X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmContFlowOpt.hs;h=64a23155ccc3e137a7c0d47dc6a090fe49c0ad11;hb=c6206fd81612e51e257a650390646421c7c1d1cb;hp=e0d95552f901cd4a2e49e3eed8cfe45b7bfbf0b8;hpb=1e50fd4185479a62e02d987bdfcb1c62712859ca;p=ghc-hetmet.git

diff --git a/compiler/cmm/CmmContFlowOpt.hs b/compiler/cmm/CmmContFlowOpt.hs
index e0d9555..64a2315 100644
--- a/compiler/cmm/CmmContFlowOpt.hs
+++ b/compiler/cmm/CmmContFlowOpt.hs
@@ -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)