projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9a32e53
)
Use hscCodeGenNothing instead of hscCodeGenSimple.
author
Lemmih
<lemmih@gmail.com>
Sat, 4 Mar 2006 13:30:08 +0000
(13:30 +0000)
committer
Lemmih
<lemmih@gmail.com>
Sat, 4 Mar 2006 13:30:08 +0000
(13:30 +0000)
ghc/compiler/main/HscMain.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/main/HscMain.lhs
b/ghc/compiler/main/HscMain.lhs
index
3885bd3
..
32eefb8
100644
(file)
--- a/
ghc/compiler/main/HscMain.lhs
+++ b/
ghc/compiler/main/HscMain.lhs
@@
-253,7
+253,7
@@
hscCompileMake hsc_env mod_summary
= compiler hsc_env mod_summary
where mkComp = hscMkCompiler norecompMake
backend = case hscTarget (hsc_dflags hsc_env) of
= compiler hsc_env mod_summary
where mkComp = hscMkCompiler norecompMake
backend = case hscTarget (hsc_dflags hsc_env) of
- HscNothing -> hscCodeGenSimple (\(i, d, g) -> (HscRecomp False, i, d))
+ HscNothing -> hscCodeGenNothing
_other -> hscCodeGenMake
compiler
= case ms_hsc_src mod_summary of
_other -> hscCodeGenMake
compiler
= case ms_hsc_src mod_summary of
@@
-531,9
+531,6
@@
hscCodeGenCompile hsc_env mod_summary cgguts
hscCodeGenIdentity :: CodeGen a a
hscCodeGenIdentity hsc_env mod_summary a = return a
hscCodeGenIdentity :: CodeGen a a
hscCodeGenIdentity hsc_env mod_summary a = return a
-hscCodeGenSimple :: (a -> b) -> CodeGen a b
-hscCodeGenSimple fn hsc_env mod_summary a = return (fn a)
-
hscCodeGenConst :: b -> CodeGen a b
hscCodeGenConst b hsc_env mod_summary a = return b
hscCodeGenConst :: b -> CodeGen a b
hscCodeGenConst b hsc_env mod_summary a = return b