From e21e35eb7a08bb1cae97178a137cf537b5f16a0b Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 27 Jul 2000 10:46:00 +0000
Subject: [PATCH] [project @ 2000-07-27 10:46:00 by simonmar] fix for .hc files
---
ghc/driver/Main.hs | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 472754c4e5f1..e6651ab3b241 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 ]
--
GitLab