Remove unused variable binding to fix validate
authorDr. ERDI Gergo <gergo@erdi.hu>
Sat, 12 Apr 2014 00:57:27 +0000 (08:57 +0800)
committerDr. ERDI Gergo <gergo@erdi.hu>
Sat, 12 Apr 2014 00:57:27 +0000 (08:57 +0800)
compiler/typecheck/TcPatSyn.lhs

index 00dfbe3..fdbee92 100644 (file)
@@ -321,8 +321,8 @@ tcCheckPatSynPat = go
     go1   (PArrPat pats _)    = mapM_ go pats
     go1   (ListPat pats _ _)  = mapM_ go pats
     go1   (TuplePat pats _ _) = mapM_ go pats
-    go1   (LitPat lit)        = return ()
-    go1   (NPat n _ _)        = return ()
+    go1   LitPat{}            = return ()
+    go1   NPat{}              = return ()
     go1   (SigPatIn pat _)    = go pat
     go1   (ViewPat _ pat _)   = go pat
     go1 p@SplicePat{}         = thInPatSynErr p