projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ac80e0d
)
[project @ 2005-01-18 13:51:28 by simonmar]
author
simonmar
<unknown>
Tue, 18 Jan 2005 13:51:28 +0000
(13:51 +0000)
committer
simonmar
<unknown>
Tue, 18 Jan 2005 13:51:28 +0000
(13:51 +0000)
Update a comment
ghc/compiler/main/DriverPhases.hs
patch
|
blob
|
history
diff --git
a/ghc/compiler/main/DriverPhases.hs
b/ghc/compiler/main/DriverPhases.hs
index
a81d93e
..
37d73d3
100644
(file)
--- a/
ghc/compiler/main/DriverPhases.hs
+++ b/
ghc/compiler/main/DriverPhases.hs
@@
-1,5
+1,5
@@
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
--- $Id: DriverPhases.hs,v 1.30 2004/09/30 10:37:11 simonpj Exp $
+-- $Id: DriverPhases.hs,v 1.31 2005/01/18 13:51:28 simonmar Exp $
--
-- GHC Driver
--
--
-- GHC Driver
--
@@
-97,8
+97,9
@@
startPhase "cmm" = CmmCpp
startPhase "cmmcpp" = Cmm
startPhase _ = Ln -- all unknown file types
startPhase "cmmcpp" = Cmm
startPhase _ = Ln -- all unknown file types
--- the output suffix for a given phase is uniquely determined by
--- the input requirements of the next phase.
+-- This is used to determine the extension for the output from the
+-- current phase (if it generates a new file). The extension depends
+-- on the next phase in the pipeline.
phaseInputExt Unlit = "lhs"
phaseInputExt Cpp = "lpp" -- intermediate only
phaseInputExt HsPp = "hscpp"
phaseInputExt Unlit = "lhs"
phaseInputExt Cpp = "lpp" -- intermediate only
phaseInputExt HsPp = "hscpp"