ghc/compiler/tests/deSugar/ds016.hs

   1 --!!! ds016 -- case expressions
   2 --
   3 module Tests 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"