ghc/compiler/tests/deSugar/ds028.hs

   1 --!!! ds028: failable pats in top row
   2
   3 module ShouldSucceed 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