[project @ 2000-07-27 10:46:00 by simonmar]

fix for .hc files

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 472754c..e6651ab 100644 (file)
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1220,9 +1220,13 @@ genPipeline stop_after stop_after_flag filename
     haskell_ish_file = suffix `elem` [ "hs", "lhs", "hc" ]
     c_ish_file       = suffix `elem` [ "c", "s", "S" ]  -- maybe .cc et al.??
 
+       -- hack for .hc files
+    real_lang | suffix == "hc" = HscC
+             | otherwise      = lang
+
     pipeline
       | haskell_ish_file = 
-       case lang of
+       case real_lang of
        HscC    | split && mangle -> [ Unlit, Cpp, Hsc, HCc, Mangle, 
                                        SplitMangle, SplitAs ]
                | mangle          -> [ Unlit, Cpp, Hsc, HCc, Mangle, As ]