X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FDsArrows.lhs;h=7500111f4cd7b64537c8f990f177e2a3d8e2be2c;hp=86b52ed73a25c1d50fba74cd9dfa2cf7e6c824f1;hb=6a05ec5ef5373f61b7f9f5bdc344483417fa801b;hpb=9630111a75d550088b945b37aa5964bca9a6e663

diff --git a/compiler/deSugar/DsArrows.lhs b/compiler/deSugar/DsArrows.lhs
index 86b52ed..7500111 100644
--- a/compiler/deSugar/DsArrows.lhs
+++ b/compiler/deSugar/DsArrows.lhs
@@ -6,11 +6,11 @@
 Desugaring arrow commands
 
 \begin{code}
-{-# OPTIONS_GHC -w #-}
+{-# OPTIONS -w #-}
 -- The above warning supression flag is a temporary kludge.
 -- While working on this module you are encouraged to remove it and fix
 -- any warnings in the module. See
---     http://hackage.haskell.org/trac/ghc/wiki/WorkingConventions#Warnings
+--     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
 -- for details
 
 module DsArrows ( dsProcExpr ) where
@@ -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