[project @ 2003-06-06 11:18:35 by simonmar]

unbreak GHCi

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 51267d9..605f082 100644 (file)
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1109,7 +1109,9 @@ hscNextPhase hsc_lang = do
                HscC -> HCc
                HscAsm | split -> SplitMangle
                       | otherwise -> As
-               HscNothing -> HCc
+               HscNothing     -> HCc  -- dummy (no output will be generated)
+               HscInterpreted -> HCc  -- "" ""
+               _other         -> HCc  -- "" ""
        )
 
 hscMaybeAdjustLang :: HscLang -> IO HscLang