projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
8346e80
)
Change pretty printing of InlinePrag slightly
author
simonpj@microsoft.com
<unknown>
Thu, 25 Feb 2010 17:40:28 +0000
(17:40 +0000)
committer
simonpj@microsoft.com
<unknown>
Thu, 25 Feb 2010 17:40:28 +0000
(17:40 +0000)
compiler/basicTypes/BasicTypes.lhs
patch
|
blob
|
history
diff --git
a/compiler/basicTypes/BasicTypes.lhs
b/compiler/basicTypes/BasicTypes.lhs
index
b151f5b
..
3a882a7
100644
(file)
--- 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 })
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")
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
| otherwise = empty
pp_info | isFunLike info = empty
| otherwise = ppr info