X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FFoldrBuildWW.lhs;fp=ghc%2Fcompiler%2FsimplCore%2FFoldrBuildWW.lhs;h=f7fc93390646c67f888ec85ee09ee4705559c6e7;hb=7a3bd641457666e10d0a47be9f22762e03defbf0;hp=19ec58c8f9c80bf61bcd084996a2ab1d40bdc9fe;hpb=f65044d135ef61bee82a6c9767235f6780bdf00e;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/FoldrBuildWW.lhs b/ghc/compiler/simplCore/FoldrBuildWW.lhs
index 19ec58c..f7fc933 100644
--- a/ghc/compiler/simplCore/FoldrBuildWW.lhs
+++ b/ghc/compiler/simplCore/FoldrBuildWW.lhs
@@ -30,7 +30,7 @@ import Util		( panic{-ToDo:rm?-} )
 --			)
 --import IdInfo
 --import Maybes
---import SrcLoc		( mkUnknownSrcLoc, SrcLoc )
+--import SrcLoc		( noSrcLoc, SrcLoc )
 --import Util
 \end{code}
 
@@ -156,8 +156,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 noSrcLoc
+	n_id = mkSysLocal SLIT("fbww") n_new_uq n_ty noSrcLoc
 	worker_rhs
 	  = mkTyLam [] (big_args ++ [alphaTyVar]) (args++[c_id,n_id]) worker_body