From: simonmar <unknown>
Date: Tue, 24 May 2005 14:19:09 +0000 (+0000)
Subject: [project @ 2005-05-24 14:19:09 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~478
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c0384c5133d042281a9eda3c6d6df4a0c1ff522a;p=ghc-hetmet.git

[project @ 2005-05-24 14:19:09 by simonmar]
If hsc_lang is HscNothing, produce an empty linkable.
---

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 125533b..ec70b8d 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -212,6 +212,9 @@ compile hsc_env msg_act mod_summary maybe_old_linkable old_iface mod_index nmods
 #endif
 		       Nothing -> panic "compile: no interpreted code"
 
+		HscNothing
+		  -> return ([], ms_hs_date mod_summary)
+
 		-- We're in --make mode: finish the compilation pipeline.
 		_other
 		  -> do	runPipeline StopLn dflags (output_fn,Nothing) Persistent