[project @ 1998-02-02 14:52:08 by simonm]

[ghc-hetmet.git] / ghc / compiler / rename / RnExpr.lhs

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index a4d8230..165555e 100644 (file)
--- a/ghc/compiler/rename/RnExpr.lhs
+++ b/ghc/compiler/rename/RnExpr.lhs
@@ -151,7 +151,8 @@ rnMatch match
        unused_binders = binder_set `minusNameSet` fvs
        net_fvs        = fvs `minusNameSet` binder_set
     in
-    warnUnusedNames unused_binders     `thenRn_`
+    warnUnusedMatches unused_binders           `thenRn_`
+    
     returnRn (match', net_fvs)
  where
     get_binders (GRHSMatch _)       = []