diff options
| author | Lemmih <lemmih@gmail.com> | 2006-03-04 13:30:08 +0000 |
|---|---|---|
| committer | Lemmih <lemmih@gmail.com> | 2006-03-04 13:30:08 +0000 |
| commit | 8204c80847518e3157c122fc51960f8e7d3a23e7 (patch) | |
| tree | 4ff70a26032dbe82ce75e162d1aa2852d2d2b4b5 | |
| parent | 9a32e538207812cefda23dd30d503bd0d886f456 (diff) | |
| download | haskell-8204c80847518e3157c122fc51960f8e7d3a23e7.tar.gz | |
Use hscCodeGenNothing instead of hscCodeGenSimple.
| -rw-r--r-- | ghc/compiler/main/HscMain.lhs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs index 3885bd3665..32eefb892d 100644 --- 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 - HscNothing -> hscCodeGenSimple (\(i, d, g) -> (HscRecomp False, i, d)) + HscNothing -> hscCodeGenNothing _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 -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 |