Testsuite: tabs -> spaces [skip ci]
[ghc.git] / testsuite / tests / deSugar / should_compile / ds016.hs
1 -- !!! ds016 -- case expressions
2 --
3 module ShouldCompile where
4
5 f x y z =
6 case ( x ++ x ++ x ++ x ++ x ) of
7 [] -> []
8 [a] -> error "2"
9 [a,b,c] ->
10 case ( (y,z,y,z) ) of
11 -- (True, _, False, _) | True == False -> z
12 -- (True, _, False, _) | True == False -> z
13 _ -> z
14
15 (a:bs) -> error "4"