X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmZipUtil.hs;h=6a343f836f354e51e283fab57c58212b5aa33ed8;hb=33770e2e376005ff14a1d16b89f32b0d474425e2;hp=c414d496ebdb6d9ce24d879e88e737aa3f1bf59d;hpb=4a6f2bc7c3da7e74192339502704877bfc12ccc1;p=ghc-hetmet.git

diff --git a/compiler/cmm/CmmZipUtil.hs b/compiler/cmm/CmmZipUtil.hs
index c414d49..6a343f8 100644
--- a/compiler/cmm/CmmZipUtil.hs
+++ b/compiler/cmm/CmmZipUtil.hs
@@ -11,7 +11,7 @@ import ZipCfg
 import Maybes
 import UniqSet
 
--- | Compute the predecessors of each *reachable* block
+-- | Compute the predecessors of each /reachable/ block
 zipPreds :: LastNode l => LGraph m l -> BlockEnv BlockSet
 zipPreds g = foldl add emptyBlockEnv (postorder_dfs g)
     where add env block@(Block id _) =