path: root/testsuite/tests/ghc-regress/parser/should_compile/read044.hs

-- test case from #1091
main =
 	  case True of {- | -}
 	    True  -> putStrLn "Hello World\n"
 	    False {- | -} -> putStrLn "Goodbye Cruel World\n"