Ticket #1091: Test.hs

File Test.hs, 122 bytes (added by guest, 9 years ago)

test case

Line 
1main =
2  case True of {- | -}
3    True  -> putStrLn "Hello World\n"
4    False {- | -} -> putStrLn "Goodbye Cruel World\n"