summaryrefslogtreecommitdiff
path: root/testsuite/tests/module/mod113.hs
blob: 89f812f74f6b707f9a660b55e7775924cbad2e97 (plain)
1
2
3
4
5
6
7
-- !!! empty decls, alts and stmts
module M where {
;;;;;;;;import Data.Char;;x = 1;;y = 2;
v = do {;;;;;;;;;;;;;;;;;;;;;;;x <- [1];;return x;;};
f x = case x of { ;;;;;;2 -> 'a';;;;;;3->'b';;;;;;;;;;;};;;
g x = case x of { ;;;;;;;;;; _ -> "aa"; }
}