From: simonmar <unknown>
Date: Fri, 7 Jul 2000 09:44:31 +0000 (+0000)
Subject: [project @ 2000-07-07 09:44:31 by simonmar]
X-Git-Tag: Approximately_9120_patches~4063
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c01c47799ea1a243f118dc624ed16007b62f980f;p=ghc-hetmet.git

[project @ 2000-07-07 09:44:31 by simonmar]
fix -keep-hc-file-too
---

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 78bd862..d3f5cd7 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1242,7 +1242,7 @@ run_pipeline last_phase do_linking use_ofile orig_basename (phase, input_fn)
 		Ln -> True
 		Mangle | keep_raw_s -> True -- first enhancement :)
 		As | keep_s  -> True
-		Cc | keep_hc -> True
+		HCc | keep_hc -> True
 		_other -> False
 
      output_fn <-