From 558c0ec0fcb37051a8d91870c4d2520dc2de65aa Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Wed, 5 Jul 2000 09:46:35 +0000
Subject: [PATCH] [project @ 2000-07-05 09:46:35 by sewardj] Make -S work when
going via the NCG.
---
ghc/driver/Main.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 6c982ad872c5..9c18f0c7b7de 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1157,7 +1157,7 @@ run_pipeline last_phase do_linking use_ofile orig_basename (phase, input_fn)
_other -> False
output_fn <-
- (if phase == last_phase && not do_linking && use_ofile
+ (if next_phase > last_phase && not do_linking && use_ofile
then do o_file <- readIORef output_file
case o_file of
Just s -> return s
--
GitLab