From ecf9f5a9ff6820b3a1765f675499ad055da1d6d6 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 6 Jun 2003 11:18:35 +0000
Subject: [PATCH] [project @ 2003-06-06 11:18:35 by simonmar] unbreak GHCi

---
 ghc/compiler/main/DriverPipeline.hs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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