projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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 IdInfo
--import Maybes
---import SrcLoc ( mkUnknownSrcLoc, SrcLoc )
+--import SrcLoc ( noSrcLoc, SrcLoc )
--import Util
\end{code}
--import Util
\end{code}
@@
-156,8
+156,8
@@
try_split_bind id expr =
-- right function to use ..
-- Now the bodies
-- 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
worker_rhs
= mkTyLam [] (big_args ++ [alphaTyVar]) (args++[c_id,n_id]) worker_body