View patterns, record wildcards, and record puns

[ghc-hetmet.git] / compiler / deSugar / DsArrows.lhs

diff --git a/compiler/deSugar/DsArrows.lhs b/compiler/deSugar/DsArrows.lhs
index 0ef7fa5..7500111 100644 (file)
--- a/compiler/deSugar/DsArrows.lhs
+++ b/compiler/deSugar/DsArrows.lhs
@@ -1115,7 +1115,7 @@ collectl (L l pat) bndrs
                                     collectHsBindLocatedBinders ds
                                     ++ foldr collectl bndrs (hsConPatArgs ps)
     go (LitPat _)                 = bndrs
-    go (NPat _ _ _ _)             = bndrs
+    go (NPat _ _ _)               = bndrs
     go (NPlusKPat n _ _ _)        = n : bndrs
 
     go (SigPatIn pat _)           = collectl pat bndrs