X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreSyn.lhs;h=ea22eb585b1cdcfdc21ad3fb7ae483d19a6f61e7;hb=6084fb5517da34f65034370a3695e2af3b85ce2b;hp=ac32bc201b4051e7b7036b40069ac0e2b5ced7cc;hpb=bbc583766a08678d03740354bed216e268306356;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs
index ac32bc2..ea22eb5 100644
--- a/compiler/coreSyn/CoreSyn.lhs
+++ b/compiler/coreSyn/CoreSyn.lhs
@@ -42,13 +42,14 @@ module CoreSyn (
 	-- Core rules
 	CoreRule(..),	-- CoreSubst, CoreTidy, CoreFVs, PprCore only
 	RuleName, seqRules, ruleArity,
-	isBuiltinRule, ruleName, isLocalRule, ruleIdName
+	isBuiltinRule, ruleName, isLocalRule, ruleIdName, setRuleIdName
     ) where
 
 #include "HsVersions.h"
 
 import CostCentre
 import Var
+import Id
 import Type
 import Coercion
 import Name
@@ -205,8 +206,6 @@ A Rule is
 	   as the rule itself
 
 \begin{code}
-type RuleName = FastString
-
 data CoreRule
   = Rule { 
 	ru_name :: RuleName,
@@ -262,6 +261,9 @@ ruleIdName = ru_fn
 
 isLocalRule :: CoreRule -> Bool
 isLocalRule = ru_local
+
+setRuleIdName :: Name -> CoreRule -> CoreRule
+setRuleIdName nm ru = ru { ru_fn = nm }
 \end{code}