X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FZipCfgCmmRep.hs;fp=compiler%2Fcmm%2FZipCfgCmmRep.hs;h=9aae0972aaf3e0fe3bf34223b83ec83fc0f8a35c;hp=a061be8a5510a0d094356616fdae86aa9b9b4dbe;hb=df5b491ce79b42987363ae96bc98b633cf55cca2;hpb=787b08bdea84cca4bf9490d87c059453bffc5ad2

diff --git a/compiler/cmm/ZipCfgCmmRep.hs b/compiler/cmm/ZipCfgCmmRep.hs
index a061be8..9aae097 100644
--- a/compiler/cmm/ZipCfgCmmRep.hs
+++ b/compiler/cmm/ZipCfgCmmRep.hs
@@ -484,7 +484,8 @@ ppr_safety Unsafe         = text "unsafe"
 
 ppr_call_target :: MidCallTarget -> SDoc
 ppr_call_target (ForeignTarget fn c) = ppr_fc c <+> ppr_target fn
-ppr_call_target (PrimTarget op)      = ppr (CmmLabel (mkForeignLabel (mkFastString (show op)) Nothing False IsFunction))
+ppr_call_target (PrimTarget op) =
+  ppr (CmmLabel (mkForeignLabel (mkFastString (show op)) Nothing False IsFunction))
 
 ppr_target :: CmmExpr -> SDoc
 ppr_target t@(CmmLit _) = ppr t