X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FFoldrBuildWW.lhs;h=19ec58c8f9c80bf61bcd084996a2ab1d40bdc9fe;hp=a3e559d48c7791b426638e14b323c1a189268237;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hpb=f7ecf7234c224489be8a5e63fced903b655d92ee

diff --git a/ghc/compiler/simplCore/FoldrBuildWW.lhs b/ghc/compiler/simplCore/FoldrBuildWW.lhs
index a3e559d..19ec58c 100644
--- a/ghc/compiler/simplCore/FoldrBuildWW.lhs
+++ b/ghc/compiler/simplCore/FoldrBuildWW.lhs
@@ -149,9 +149,7 @@ try_split_bind id expr =
 
 	worker_ty = mkForallTy (templ  ++ [alphaTyVar])
 			(foldr mkFunTy n_ty_templ (arg_tys++[c_ty_templ,n_ty_templ]))
-	wrapper_id  = id `replaceIdInfo`
-			      (getIdInfo id	`addInfo_UF`
-			       iWantToBeINLINEd UnfoldAlways)
+	wrapper_id  = addInlinePragma id
 	worker_id  = mkWorkerId worker_new_uq id worker_ty
 				noIdInfo
 		-- TODO : CHECK if mkWorkerId is thr