X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplStg%2FLambdaLift.lhs;h=09d10b99ea4dc2d6dbc1154c2b2bd848d75eab05;hb=69e14f75a4b031e489b7774914e5a176409cea78;hp=837293bc5465d4e8aeb061bd8fcc80ab1f9a1d55;hpb=c9dfd084e476b18290e964e5e5d66adf0771b9e6;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplStg/LambdaLift.lhs b/ghc/compiler/simplStg/LambdaLift.lhs
index 837293b..09d10b9 100644
--- a/ghc/compiler/simplStg/LambdaLift.lhs
+++ b/ghc/compiler/simplStg/LambdaLift.lhs
@@ -11,7 +11,7 @@ module LambdaLift ( liftProgram ) where
 import StgSyn
 
 import Bag		( Bag, emptyBag, unionBags, unitBag, snocBag, bagToList )
-import Id		( mkUserId, idType, setIdArity, Id )
+import Id		( mkVanillaId, idType, setIdArity, Id )
 import VarSet
 import VarEnv
 import IdInfo		( exactArity )
@@ -441,7 +441,7 @@ newSupercombinator :: Type
 		   -> LiftM Id
 
 newSupercombinator ty arity mod ci us idenv
-  = mkUserId (mkTopName uniq mod SLIT("_ll")) ty
+  = mkVanillaId (mkTopName uniq mod SLIT("_ll")) ty
     `setIdArity` exactArity arity
 	-- ToDo: rm the setIdArity?  Just let subsequent stg-saturation pass do it?
   where