From: simonmar <unknown>
Date: Tue, 1 Feb 2005 13:18:05 +0000 (+0000)
Subject: [project @ 2005-02-01 13:18:05 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1138
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9dadfbd7f2b48ef2ab50279671d6c2fd71067e45;p=ghc-hetmet.git

[project @ 2005-02-01 13:18:05 by simonmar]
Fix the source_unchanged test in the Hsc phase
---

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index a89991e..cd19d6c 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -656,10 +656,10 @@ runPhase (Hsc src_flavour) stop dflags basename suff input_fn get_output_fn _may
   -- date wrt M.hs (or M.o doesn't exist) so we must recompile regardless.
 	let do_recomp = recompFlag dflags
 	source_unchanged <- 
-          if not do_recomp || isStopLn stop
+          if not do_recomp || not (isStopLn stop)
 		-- Set source_unchanged to False unconditionally if
 		--	(a) recompilation checker is off, or
-		-- 	(b) we aren't going all the way to .o file (e.g. ghc -S),
+		-- 	(b) we aren't going all the way to .o file (e.g. ghc -S)
 	     then return False	
 		-- Otherwise look at file modification dates
 	     else do o_file_exists <- doesFileExist o_file