From: Simon Marlow Date: Tue, 4 Sep 2007 14:12:31 +0000 (+0000) Subject: don't generate .hi-boot/.o-boot files in GHCi X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=330e3bb76603b50a66032897e3073f90d00c440e;p=ghc-hetmet.git don't generate .hi-boot/.o-boot files in GHCi --- diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index ceb0b3b..e9db1ab 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -163,7 +163,8 @@ compile hsc_env mod_summary maybe_old_linkable old_iface mod_index nmods = do return (CompOK details iface maybe_old_linkable) handleBatch (HscRecomp hasStub, iface, details) | isHsBoot src_flavour - = do SysTools.touch dflags' "Touching object file" + = do when (isObjectTarget hsc_lang) $ -- interpreted reaches here too + SysTools.touch dflags' "Touching object file" object_filename return (CompOK details iface Nothing) | otherwise @@ -211,13 +212,11 @@ compile hsc_env mod_summary maybe_old_linkable old_iface mod_index nmods = do Just result -> handle result -- run the compiler case hsc_lang of - HscInterpreted | not (isHsBoot src_flavour) -- We can't compile boot files to - -- bytecode so don't even try. - -> runCompiler hscCompileInteractive handleInterpreted - HscNothing - -> runCompiler hscCompileNothing handleBatch - _other - -> runCompiler hscCompileBatch handleBatch + HscInterpreted + | isHsBoot src_flavour -> runCompiler hscCompileNothing handleBatch + | otherwise -> runCompiler hscCompileInteractive handleInterpreted + HscNothing -> runCompiler hscCompileNothing handleBatch + _other -> runCompiler hscCompileBatch handleBatch ----------------------------------------------------------------------------- -- stub .h and .c files (for foreign export support)