ghc/compiler/tests/deSugar/ds003.hs

   1 --!!! ds003 -- list, tuple, lazy, as patterns
   2 --
   3 module Test where
   4
   5 f []            y        True  = []
   6 f x             a@(y,ys) ~z    = []
   7 f (x:x1:x2:x3)  ~(y,ys)  z     = []
   8 f x             y        True  = []