ghc/compiler/tests/deSugar/ds038.hs

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