X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FSimplEnv.lhs;h=3cdbb3291dd093ff30be54b2736966eb1fe70dae;hb=a211dd24b1149cf3bc5262f775f63e4d1c9b60ce;hp=d592e7c470072e592ad2392b0da674b9598f3e93;hpb=562ce83f582f73526c169544dd29b76f3791677f;p=ghc-hetmet.git

diff --git a/compiler/simplCore/SimplEnv.lhs b/compiler/simplCore/SimplEnv.lhs
index d592e7c..3cdbb32 100644
--- a/compiler/simplCore/SimplEnv.lhs
+++ b/compiler/simplCore/SimplEnv.lhs
@@ -23,7 +23,7 @@ module SimplEnv (
 	mkSimplEnv, extendIdSubst, SimplEnv.extendTvSubst, 
 	zapSubstEnv, setSubstEnv, 
 	getInScope, setInScope, setInScopeSet, modifyInScope, addNewInScopeIds,
-	getRules, 
+	getSimplRules, 
 
 	SimplSR(..), mkContEx, substId, lookupRecBndr,
 
@@ -268,7 +268,7 @@ addNewInScopeIds env@(SimplEnv { seInScope = in_scope, seIdSubst = id_subst }) v
 	-- Why delete?  Consider 
 	--	let x = a*b in (x, \x -> x+3)
 	-- We add [x |-> a*b] to the substitution, but we must
-	-- *delete* it from the substitution when going inside
+	-- _delete_ it from the substitution when going inside
 	-- the (\x -> ...)!
 
 modifyInScope :: SimplEnv -> CoreBndr -> CoreBndr -> SimplEnv