ghc/tests/deSugar/should_compile/ds038.hs

   1 --!!! Jon Hill reported a bug in desugaring this in 0.09
   2 --!!! (recursive with n+k patts)
   3 --
   4 module ShouldSucceed where
   5
   6 takeList :: Int -> [a] -> [a]
   7 takeList 0     _      = []
   8 takeList (n+1) []     = []
   9 takeList (n+1) (x:xs) = x : takeList n xs