Commit 023b31fe authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Change pretty printing of InlinePrag slightly

parent 8346e807
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment