From: simonmar <unknown>
Date: Thu, 27 Jul 2000 10:46:00 +0000 (+0000)
Subject: [project @ 2000-07-27 10:46:00 by simonmar]
X-Git-Tag: Approximately_9120_patches~3936
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e21e35eb7a08bb1cae97178a137cf537b5f16a0b;p=ghc-hetmet.git

[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
--- 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 ]