From: simonmar <unknown>
Date: Fri, 6 Jun 2003 11:18:35 +0000 (+0000)
Subject: [project @ 2003-06-06 11:18:35 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~802
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ecf9f5a9ff6820b3a1765f675499ad055da1d6d6

[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
--- 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