From: simonmar <unknown>
Date: Wed, 3 Jan 2001 14:28:26 +0000 (+0000)
Subject: [project @ 2001-01-03 14:28:26 by simonmar]
X-Git-Tag: Approximately_9120_patches~2980
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=34bafc12709ddbd8e309457877e307b042515c0b;p=ghc-hetmet.git

[project @ 2001-01-03 14:28:26 by simonmar]
unbreak mkdependHS
---

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 810d1be..79c4d89 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.45 2001/01/03 11:13:43 simonmar Exp $
+-- $Id: DriverPipeline.hs,v 1.46 2001/01/03 14:28:26 simonmar Exp $
 --
 -- GHC Driver
 --
@@ -147,12 +147,16 @@ genPipeline todo stop_flag persistent_output lang filename
    ----------- -----  ----   ---   --   --  -  -  -
     (_basename, suffix) = splitFilename filename
 
-    start_phase = startPhase suffix
+    start = startPhase suffix
+
+      -- special case for mkdependHS: .hspp files go through MkDependHS
+    start_phase | todo == DoMkDependHS && start == Hsc  = MkDependHS
+	        | otherwise = start
 
     haskellish = haskellish_suffix suffix
     cish = cish_suffix suffix
 
-   -- for a .hc file we need to force lang to HscC
+       -- for a .hc file we need to force lang to HscC
     real_lang | start_phase == HCc  = HscC
 	      | otherwise           = lang