X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnEnv.lhs;h=f4cdea1b6569febecce5b197075d3d5974a9886b;hb=c0ecf485676289ce297917bb57b4bbd2e159d7d9;hp=f8dab26a12a189f4d336ce4c88c207f82139f351;hpb=a977810779813388908daa6dbe57d9d1a05baaa3;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index f8dab26..f4cdea1 100644
--- 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}