From 65dda595430a399fc11ce42d268f40d6418359c6 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 11 Jul 2001 14:50:49 +0000
Subject: [PATCH] [project @ 2001-07-11 14:50:49 by sof] run_phase: added
 tysig

---
 ghc/compiler/main/DriverPipeline.hs |   11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index bcd433f..5685bc4 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.87 2001/07/11 01:27:04 sof Exp $
+-- $Id: DriverPipeline.hs,v 1.88 2001/07/11 14:50:49 sof Exp $
 --
 -- GHC Driver
 --
@@ -293,6 +293,15 @@ pipeLoop ((phase, keep, o_suffix):phases)
    			   then odir_ify (orig_basename ++ '.':suffix)
    			   else newTempName suffix
 
+run_phase :: Phase
+	  -> String                -- basename of original input source
+	  -> String		   -- its extension
+	  -> FilePath		   -- name of file which contains the input to this phase.
+	  -> FilePath              -- where to stick the result.
+	  -> IO (Maybe FilePath)
+	  	  -- Nothing => stop the compilation pipeline
+		  -- Just fn => the result of this phase can be found in 'fn'
+		  --            (this can either be 'input_fn' or 'output_fn').
 -------------------------------------------------------------------------------
 -- Unlit phase 
 
-- 
1.7.10.4