[project @ 1996-12-19 09:10:02 by simonpj]

[ghc-hetmet.git] / ghc / compiler / simplCore / FoldrBuildWW.lhs

diff --git a/ghc/compiler/simplCore/FoldrBuildWW.lhs b/ghc/compiler/simplCore/FoldrBuildWW.lhs
index 19ec58c..f7fc933 100644 (file)
--- 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