From: simonmar <unknown>
Date: Thu, 7 Dec 2000 16:39:40 +0000 (+0000)
Subject: [project @ 2000-12-07 16:39:40 by simonmar]
X-Git-Tag: Approximately_9120_patches~3172
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=81009ce8fde43a5f280404615c50047a11c866b4;p=ghc-hetmet.git

[project @ 2000-12-07 16:39:40 by simonmar]
touch the object file in the HscNoRecomp case (duh)
---

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index c1ffd4d..c0951ac 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.39 2000/12/05 16:59:03 rrt Exp $
+-- $Id: DriverPipeline.hs,v 1.40 2000/12/07 16:39:40 simonmar Exp $
 --
 -- GHC Driver
 --
@@ -470,7 +470,11 @@ run_phase Hsc basename suff input_fn output_fn
 
 	    HscFail pcs -> throwDyn (PhaseFailed "hsc" (ExitFailure 1));
 
-            HscNoRecomp pcs details iface -> return False;
+            HscNoRecomp pcs details iface -> 
+	        do {
+		  runSomething "Touching object file" ("touch " ++ o_file);
+		  return False;
+		};
 
 	    HscRecomp pcs details iface maybe_stub_h maybe_stub_c 
 		      _maybe_interpreted_code -> do