ghc/tests/deSugar/should_compile/ds028.hs

   1 -- !!! ds028: failable pats in top row
   2
   3 module ShouldCompile where
   4
   5
   6 -- when the first row of pats doesn't have convenient
   7 -- variables to grab...
   8
   9 mAp f []        = []
  10 mAp f (x:xs)    = f x : mAp f xs
  11
  12 True  |||| _    =  True
  13 False |||| x    =  x