testsuite/tests/ghc-regress/module/mod113.hs


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"; }
}