projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add rebindable syntax for if-then-else
[ghc-hetmet.git]
/
compiler
/
cmm
/
CmmContFlowOpt.hs
diff --git
a/compiler/cmm/CmmContFlowOpt.hs
b/compiler/cmm/CmmContFlowOpt.hs
index
8ea8a3c
..
64a2315
100644
(file)
--- a/
compiler/cmm/CmmContFlowOpt.hs
+++ b/
compiler/cmm/CmmContFlowOpt.hs
@@
-14,7
+14,7
@@
import ZipCfg
import ZipCfgCmmRep
import Maybes
import ZipCfgCmmRep
import Maybes
-import Monad
+import Control.Monad
import Outputable
import Prelude hiding (unzip, zip)
import Util
import Outputable
import Prelude hiding (unzip, zip)
import Util
@@
-36,6
+36,7
@@
cmmCfgOptsZ g =
-- with a more exciting combination of optimisations
runCmmOpts :: Tx g -> Tx (GenCmm d h g)
-- with a more exciting combination of optimisations
runCmmOpts :: Tx g -> Tx (GenCmm d h g)
+-- Lifts a transformer on a single graph to one on the whole program
runCmmOpts opt = mapProcs (optProc opt)
optProc :: Tx g -> Tx (GenCmmTop d h g)
runCmmOpts opt = mapProcs (optProc opt)
optProc :: Tx g -> Tx (GenCmmTop d h g)