ghc/tests/deSugar/should_compile/ds045.hs

   1 -- !!! N-plus-K pattern in binding
   2
   3 -- From: Andreas Marth
   4 -- Sent: Monday, June 07, 1999 5:02 PM
   5 -- To: glasgow-haskell-bugs@majordomo.haskell.org
   6 -- Subject: compiler-bug
   7
   8 module ShouldCompile where
   9
  10 erroR :: Int
  11 erroR = n where
  12                 (n+1,_) = (5,2)
  13
  14 -- Produced a -dcore-lint error in the desugarer output
  15 -- (Was a missing case in DsHsSyn.collectTypedPatBinders)