X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverPipeline.hs;h=605f082590dbc781b92b7595b426c3c7db2c4d46;hp=51267d9e19a7f91c0c6e2a0f9ebb5906cd744517;hb=ecf9f5a9ff6820b3a1765f675499ad055da1d6d6;hpb=4cd6f0b10c82bcde83fa2034db75308b429b5bb5

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