From c01c47799ea1a243f118dc624ed16007b62f980f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 7 Jul 2000 09:44:31 +0000
Subject: [PATCH] [project @ 2000-07-07 09:44:31 by simonmar] fix
 -keep-hc-file-too

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