Commit 22930733 authored by David Himmelstrup's avatar David Himmelstrup
Browse files

Allow hscCompileMake to target HscNothing.

parent 241eb302
...@@ -260,32 +260,18 @@ hscCompileMake :: Compiler (HscStatus, ModIface, ModDetails) ...@@ -260,32 +260,18 @@ hscCompileMake :: Compiler (HscStatus, ModIface, ModDetails)
hscCompileMake hsc_env mod_summary hscCompileMake hsc_env mod_summary
= compiler hsc_env mod_summary = compiler hsc_env mod_summary
where mkComp = hscMkCompiler norecompMake where mkComp = hscMkCompiler norecompMake
backend = case hscTarget (hsc_dflags hsc_env) of
HscNothing -> hscCodeGenSimple (\(i, d, g) -> (NewHscRecomp False, i, d))
_other -> hscCodeGenMake
compiler compiler
= case ms_hsc_src mod_summary of = case ms_hsc_src mod_summary of
ExtCoreFile ExtCoreFile
-> mkComp hscCoreFrontEnd hscNewBackEnd hscCodeGenMake -> mkComp hscCoreFrontEnd hscNewBackEnd backend
HsSrcFile HsSrcFile
-> mkComp hscFileFrontEnd hscNewBackEnd hscCodeGenMake -> mkComp hscFileFrontEnd hscNewBackEnd backend
HsBootFile HsBootFile
-> mkComp hscFileFrontEnd hscNewBootBackEnd hscCodeGenIdentity -> mkComp hscFileFrontEnd hscNewBootBackEnd hscCodeGenIdentity
-- Same as 'hscCompileMake' but don't generate any actual code.
hscCompileMakeNothing :: Compiler (HscStatus, ModIface, ModDetails)
hscCompileMakeNothing hsc_env mod_summary
= compiler hsc_env mod_summary
where mkComp = hscMkCompiler norecompMake
codeGen = hscCodeGenSimple (\(i, d, g) -> (NewHscRecomp False, i, d))
compiler
= case ms_hsc_src mod_summary of
ExtCoreFile
-> mkComp hscCoreFrontEnd hscNewBackEnd
codeGen
HsSrcFile
-> mkComp hscFileFrontEnd hscNewBackEnd
codeGen
HsBootFile
-> mkComp hscFileFrontEnd hscNewBootBackEnd
hscCodeGenIdentity
-- Compile Haskell, extCore to bytecode. -- Compile Haskell, extCore to bytecode.
hscCompileInteractive :: Compiler (InteractiveStatus, ModIface, ModDetails) hscCompileInteractive :: Compiler (InteractiveStatus, ModIface, ModDetails)
......
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