From: t-peterj@microsoft.com <unknown>
Date: Fri, 26 Jun 2009 10:54:40 +0000 (+0000)
Subject: Rename parameters to make debugging code compile.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b2261f5c931fd14dd796b105051294f67020438a

Rename parameters to make debugging code compile.
---

diff --git a/compiler/specialise/Rules.lhs b/compiler/specialise/Rules.lhs
index a15cc6f..c300f77 100644
--- a/compiler/specialise/Rules.lhs
+++ b/compiler/specialise/Rules.lhs
@@ -567,7 +567,7 @@ match menv subst (Cast e1 co1) (Cast e2 co2)
 	; match menv subst1 e1 e2 }
 
 -- Everything else fails
-match _ _ _e1 _e2 = -- pprTrace "Failing at" ((text "e1:" <+> ppr e1) $$ (text "e2:" <+> ppr e2)) $ 
+match _ _ _e1 _e2 = -- pprTrace "Failing at" ((text "e1:" <+> ppr _e1) $$ (text "e2:" <+> ppr _e2)) $ 
 			 Nothing
 
 ------------------------------------------