ghc/compiler/tests/deSugar/ds028.hs

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