Commit 65dda595 authored by sof's avatar sof
Browse files

[project @ 2001-07-11 14:50:49 by sof]

run_phase: added tysig
parent ad428ac6
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- $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 -- GHC Driver
-- --
...@@ -293,6 +293,15 @@ pipeLoop ((phase, keep, o_suffix):phases) ...@@ -293,6 +293,15 @@ pipeLoop ((phase, keep, o_suffix):phases)
then odir_ify (orig_basename ++ '.':suffix) then odir_ify (orig_basename ++ '.':suffix)
else newTempName 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 -- Unlit phase
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment