import ZipCfgCmmRep
import Maybes
-import Monad
+import Control.Monad
import Outputable
import Prelude hiding (unzip, zip)
import Util
-- 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)