From: simonpj@microsoft.com <unknown>
Date: Thu, 25 Feb 2010 17:40:28 +0000 (+0000)
Subject: Change pretty printing of InlinePrag slightly
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=023b31fe82746b937ab0eba78b11559be782ebcf;hp=8346e807afa6cffe8ef11dcd79c35f5b55f96f68;p=ghc-hetmet.git

Change pretty printing of InlinePrag slightly
---

diff --git a/compiler/basicTypes/BasicTypes.lhs b/compiler/basicTypes/BasicTypes.lhs
index b151f5b..3a882a7 100644
--- a/compiler/basicTypes/BasicTypes.lhs
+++ b/compiler/basicTypes/BasicTypes.lhs
@@ -713,11 +713,11 @@ instance Outputable RuleMatchInfo where
 instance Outputable InlinePragma where
   ppr (InlinePragma { inl_inline = inline, inl_act = activation
                     , inl_rule = info, inl_sat = mb_arity })
-    = pp_inline <> pp_sat <+> pp_info <+> pp_activation
+    = pp_inline <> pp_activation <+> pp_sat <+> pp_info 
     where
       pp_inline | inline    = ptext (sLit "INLINE")
                 | otherwise = ptext (sLit "NOINLINE")
-      pp_sat | Just ar <- mb_arity = braces (int ar)
+      pp_sat | Just ar <- mb_arity = parens (ptext (sLit "sat-args=") <> int ar)
              | otherwise           = empty
       pp_info | isFunLike info = empty
               | otherwise      = ppr info