X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=NormalizeTools.hs;h=923b54567767e68d7ccc68bfda2c0db9c70114f2;hb=f20ebcfe03b2f3493be450761c8b3a26c2e0cd30;hp=58432d3eae50f40816c09d5385fc62a33d5de798;hpb=a4d372dbdfce2a3bddfda1c352f8dd05146f4f71;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/NormalizeTools.hs b/NormalizeTools.hs
index 58432d3..923b545 100644
--- a/NormalizeTools.hs
+++ b/NormalizeTools.hs
@@ -168,7 +168,7 @@ mkUnique = Trans.lift $ do
 -- given expression.
 substitute :: [(CoreBndr, CoreExpr)] -> CoreExpr -> CoreExpr
 substitute replace expr = CoreSubst.substExpr subs expr
-    where subs = foldl (\s (b, e) -> CoreSubst.extendIdSubst s b e) CoreSubst.emptySubst replace
+    where subs = foldl (\s (b, e) -> CoreSubst.extendSubst s b e) CoreSubst.emptySubst replace
 
 -- Run a given TransformSession. Used mostly to setup the right calls and
 -- an initial state.