diff options
Diffstat (limited to 'testsuite/tests/deSugar/should_compile/ds045.hs')
| -rw-r--r-- | testsuite/tests/deSugar/should_compile/ds045.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/testsuite/tests/deSugar/should_compile/ds045.hs b/testsuite/tests/deSugar/should_compile/ds045.hs new file mode 100644 index 0000000000..5688a530e1 --- /dev/null +++ b/testsuite/tests/deSugar/should_compile/ds045.hs @@ -0,0 +1,18 @@ + +{-# LANGUAGE NPlusKPatterns #-} + +-- !!! N-plus-K pattern in binding + +-- From: Andreas Marth +-- Sent: Monday, June 07, 1999 5:02 PM +-- To: glasgow-haskell-bugs@majordomo.haskell.org +-- Subject: compiler-bug + +module ShouldCompile where + +erroR :: Int +erroR = n where + (n+1,_) = (5,2) + +-- Produced a -dcore-lint error in the desugarer output +-- (Was a missing case in DsHsSyn.collectTypedPatBinders) |