summaryrefslogtreecommitdiff
path: root/testsuite/tests/parser/should_compile/read044.hs
blob: a92b48c298e562b1fdef2bd338322453bc67f071 (plain)
1
2
3
4
5
-- test case from #1091
main =
 	  case True of {- | -}
 	    True  -> putStrLn "Hello World\n"
 	    False {- | -} -> putStrLn "Goodbye Cruel World\n"