X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmContFlowOpt.hs;h=64a23155ccc3e137a7c0d47dc6a090fe49c0ad11;hb=4e0c994eb1613c62e94069642d7acdb2e69b773b;hp=8ea8a3c426f426d413a24fa300eecfd67819c1c3;hpb=c990e97592ea48e74f8e1c51ab59666decaacd6d;p=ghc-hetmet.git

diff --git a/compiler/cmm/CmmContFlowOpt.hs b/compiler/cmm/CmmContFlowOpt.hs
index 8ea8a3c..64a2315 100644
--- a/compiler/cmm/CmmContFlowOpt.hs
+++ b/compiler/cmm/CmmContFlowOpt.hs
@@ -14,7 +14,7 @@ import ZipCfg
 import ZipCfgCmmRep
 
 import Maybes
-import Monad
+import Control.Monad
 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)
+-- 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)