path: root/testsuite/tests/layout/layout001.hs

module M where

f = case () of
  () -> ()
  where x = x