[project @ 1999-07-14 13:35:49 by sewardj]

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

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index f8dab26..f4cdea1 100644 (file)
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -744,7 +744,7 @@ warnUnusedGroup emit_warning names
 
     reportable name = case occNameUserString (nameOccName name) of
                        ('_' : _) -> False
-                       _other    -> True
+                       zz_other  -> True
        -- Haskell 98 encourages compilers to suppress warnings about
        -- unused names in a pattern if they start with "_".
 \end{code}