X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FZipCfgCmmRep.hs;h=4c35a925912afedf363952b928250f0105987922;hp=71e206e4f638fca22d1b54292b956aa03c19f0c3;hb=c105c74926393accbccf8a826714fde8d6440370;hpb=c0a5a5d2e41341046aaf37c1d2155372e7ed3ee8

diff --git a/compiler/cmm/ZipCfgCmmRep.hs b/compiler/cmm/ZipCfgCmmRep.hs
index 71e206e..4c35a92 100644
--- a/compiler/cmm/ZipCfgCmmRep.hs
+++ b/compiler/cmm/ZipCfgCmmRep.hs
@@ -157,12 +157,7 @@ instance Outputable Convention where
 instance DF.DebugNodes Middle Last
 
 instance Outputable CmmGraph where
-    ppr = pprCmmGraphAsRep
-
-pprCmmGraphAsRep :: CmmGraph -> SDoc
-pprCmmGraphAsRep g = vcat (map ppr_block blocks)
-    where blocks = postorder_dfs g
-          ppr_block (Block id tail) = hang (ppr id <> colon) 4 (ppr tail)
+    ppr = pprLgraph
 
 pprMiddle :: Middle -> SDoc    
 pprMiddle stmt = (case stmt of