From 748c8c8d55001e0e5bfb19230265fcc07755ba72 Mon Sep 17 00:00:00 2001 From: simonpj Date: Fri, 29 Apr 2005 11:24:56 +0000 Subject: [PATCH] [project @ 2005-04-29 11:24:56 by simonpj] Fix typo causing loop in SpecConstr! --- ghc/compiler/specialise/SpecConstr.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4