X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FMkZipCfgCmm.hs;h=dd29aa8bf2d7772d36ef782ef582e8736d922cda;hb=5a82864902fc01cf8eee847fcf4ee88e74aa535d;hp=e623c302be6e2f3700b122e64d5ee45742d49fab;hpb=0d80489c9b9f2421f65d8dd86c1e50c6bb429715;p=ghc-hetmet.git

diff --git a/compiler/cmm/MkZipCfgCmm.hs b/compiler/cmm/MkZipCfgCmm.hs
index e623c30..dd29aa8 100644
--- a/compiler/cmm/MkZipCfgCmm.hs
+++ b/compiler/cmm/MkZipCfgCmm.hs
@@ -27,7 +27,8 @@ import Cmm ( GenCmm(..), GenCmmTop(..), CmmStatic, CmmInfo
            )
 import MachOp (MachHint(..), wordRep)
 import ZipCfgCmmRep hiding (CmmGraph, CmmAGraph, CmmBlock, CmmZ, CmmTopZ)
-  -- ^ to make this module more self-contained, these definitions are duplicated below
+  -- to make this module more self-contained, the above definitions are
+  -- duplicated below
 import PprCmm()
 
 import ClosureInfo
@@ -58,7 +59,7 @@ mkUnsafeCall :: CmmCallTarget -> CmmFormals -> CmmActuals -> CmmAGraph
 mkFinalCall  :: CmmExpr -> CCallConv -> CmmActuals -> CmmAGraph
 		 -- Never returns; like exit() or barf()
 
----------- Context manipulation ('return via')
+---------- Context manipulation ("return via")
 mkAddToContext :: CmmExpr -> [CmmExpr] -> CmmAGraph
 
 ---------- Control transfer