From 81009ce8fde43a5f280404615c50047a11c866b4 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 7 Dec 2000 16:39:40 +0000
Subject: [PATCH] [project @ 2000-12-07 16:39:40 by simonmar] touch the object
 file in the HscNoRecomp case (duh)

---
 ghc/compiler/main/DriverPipeline.hs |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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