X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FFoldrBuildWW.lhs;fp=ghc%2Fcompiler%2FsimplCore%2FFoldrBuildWW.lhs;h=40fbba2f9f3565f2eae34321a4e8856eed60331b;hb=ae45ff0e9831a0dc862a5d68d03e355d7e323c62;hp=e5903cb1d711fe84b5da6ac65afebf8c7a7e25dc;hpb=e7498a3ee1d0484d02a9e86633cc179c76ebf36e;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/FoldrBuildWW.lhs b/ghc/compiler/simplCore/FoldrBuildWW.lhs
index e5903cb..40fbba2 100644
--- a/ghc/compiler/simplCore/FoldrBuildWW.lhs
+++ b/ghc/compiler/simplCore/FoldrBuildWW.lhs
@@ -157,8 +157,8 @@ try_split_bind id expr =
 		-- right function to use ..
 	-- Now the bodies
 
-	c_id = mkSysLocal SLIT("_fbww") c_new_uq c_ty mkUnknownSrcLoc
-	n_id = mkSysLocal SLIT("_fbww") n_new_uq n_ty mkUnknownSrcLoc
+	c_id = mkSysLocal SLIT("fbww") c_new_uq c_ty mkUnknownSrcLoc
+	n_id = mkSysLocal SLIT("fbww") n_new_uq n_ty mkUnknownSrcLoc
 	worker_rhs
 	  = mkTyLam [] (big_args ++ [alphaTyVar]) (args++[c_id,n_id]) worker_body