From: simonmar <unknown>
Date: Tue, 21 Aug 2001 16:04:43 +0000 (+0000)
Subject: [project @ 2001-08-21 16:04:43 by simonmar]
X-Git-Tag: Approximately_9120_patches~1142
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=684de20b363529919ea832b33b680e9ca8af2b28;p=ghc-hetmet.git

[project @ 2001-08-21 16:04:43 by simonmar]
Oops, I bungled the -no-recomp fix.  This probably had something to do
with the fact that -no-recomp is perhaps the worst-named option in the
history of compilers, and the internal variable used to store the
value of -no-recomp actually stores (not -no-recomp), perhaps in an
attempt to reverse the confusion generated by the obsurely named
option.  In the end I figured I had a 50/50 chance of getting it
right...
---

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 68c57e4..8529d4e 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1054,7 +1054,7 @@ compile ghci_mode summary source_unchanged have_object
 
    -- -no-recomp should also work with --make
    do_recomp <- readIORef v_Recomp
-   let source_unchanged' = source_unchanged && not do_recomp
+   let source_unchanged' = source_unchanged && do_recomp
 
    -- run the compiler
    hsc_result <- hscMain ghci_mode dyn_flags'