summaryrefslogtreecommitdiff
path: root/testsuite/tests/deSugar/should_compile/ds045.hs
blob: 5688a530e16003823c994ec9225fe4f46727ea3e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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)