From: simonpj <unknown>
Date: Fri, 29 Apr 2005 11:24:56 +0000 (+0000)
Subject: [project @ 2005-04-29 11:24:56 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~636
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=748c8c8d55001e0e5bfb19230265fcc07755ba72;p=ghc-hetmet.git

[project @ 2005-04-29 11:24:56 by simonpj]
Fix typo causing loop in SpecConstr!
---

diff --git a/ghc/compiler/specialise/SpecConstr.lhs b/ghc/compiler/specialise/SpecConstr.lhs
index 271d59d..7463c9b 100644
--- a/ghc/compiler/specialise/SpecConstr.lhs
+++ b/ghc/compiler/specialise/SpecConstr.lhs
@@ -512,8 +512,8 @@ spec_one env fn rhs (pats, rule_number)
 	rule_name = mkFastString ("SC:" ++ showSDoc (ppr fn <> int rule_number))
 	spec_rhs  = mkLams spec_lam_args spec_body
 	spec_id   = mkUserLocal spec_occ spec_uniq (mkPiTypes spec_lam_args body_ty) fn_loc
-	rhs	  = mkVarApps (Var spec_id) spec_call_args
-	rule      = mkLocalRule rule_name specConstrActivation fn_name bndrs pats rhs
+	rule_rhs  = mkVarApps (Var spec_id) spec_call_args
+	rule      = mkLocalRule rule_name specConstrActivation fn_name bndrs pats rule_rhs
     in
     returnUs (rule, (spec_id, spec_rhs))