[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 (file)
--- 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 <-