Commit 8204c808 authored by David Himmelstrup's avatar David Himmelstrup
Browse files

Use hscCodeGenNothing instead of hscCodeGenSimple.

parent 9a32e538
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment