Commit 14f70d83 authored by David Himmelstrup's avatar David Himmelstrup
Browse files

Wibble in HscMain.

parent 0490ee1f
...@@ -274,7 +274,7 @@ hscMkCompiler norecomp messenger frontend backend ...@@ -274,7 +274,7 @@ hscMkCompiler norecomp messenger frontend backend
hscCompileOneShot :: Compiler HscStatus hscCompileOneShot :: Compiler HscStatus
hscCompileOneShot hsc_env mod_summary = hscCompileOneShot hsc_env mod_summary =
compiler hsc_env mod_summary compiler hsc_env mod_summary
where mkComp = hscMkCompiler (norecompOneShot HscNoRecomp) oneShotMsg where mkComp = hscMkCompiler norecompOneShot oneShotMsg
-- How to compile nonBoot files. -- How to compile nonBoot files.
nonBootComp inp = hscSimplify inp >>= hscNormalIface >>= nonBootComp inp = hscSimplify inp >>= hscNormalIface >>=
hscWriteIface >>= hscOneShot hscWriteIface >>= hscOneShot
...@@ -307,6 +307,7 @@ hscCompileBatch hsc_env mod_summary ...@@ -307,6 +307,7 @@ hscCompileBatch hsc_env mod_summary
-> mkComp hscFileFrontEnd bootComp -> mkComp hscFileFrontEnd bootComp
-- Type-check Haskell, boot and extCore. -- Type-check Haskell, boot and extCore.
-- Does it make sense to compile extCore to nothing?
hscCompileNothing :: Compiler (HscStatus, ModIface, ModDetails) hscCompileNothing :: Compiler (HscStatus, ModIface, ModDetails)
hscCompileNothing hsc_env mod_summary hscCompileNothing hsc_env mod_summary
= compiler hsc_env mod_summary = compiler hsc_env mod_summary
...@@ -339,12 +340,12 @@ hscCompileInteractive hsc_env mod_summary = ...@@ -339,12 +340,12 @@ hscCompileInteractive hsc_env mod_summary =
-- NoRecomp handlers -- NoRecomp handlers
-------------------------------------------------------------- --------------------------------------------------------------
norecompOneShot :: a -> NoRecomp a norecompOneShot :: NoRecomp HscStatus
norecompOneShot a old_iface norecompOneShot old_iface
= do hsc_env <- gets compHscEnv = do hsc_env <- gets compHscEnv
liftIO $ do liftIO $ do
dumpIfaceStats hsc_env dumpIfaceStats hsc_env
return a return HscNoRecomp
norecompBatch :: NoRecomp (HscStatus, ModIface, ModDetails) norecompBatch :: NoRecomp (HscStatus, ModIface, ModDetails)
norecompBatch = norecompWorker HscNoRecomp False norecompBatch = norecompWorker HscNoRecomp False
......
Supports Markdown
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