[commit: ghc] master: Improve pretty-printing of inline-family pragmas; fixes Trac #7906 (1d4704d)

[Simon Peyton Jones]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/1d4704d4cdbb197725ddefb864d58158592136a4

>---------------------------------------------------------------

commit 1d4704d4cdbb197725ddefb864d58158592136a4
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed May 15 09:55:24 2013 +0100

    Improve pretty-printing of inline-family pragmas; fixes Trac #7906

>---------------------------------------------------------------

 compiler/hsSyn/HsBinds.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/hsSyn/HsBinds.lhs b/compiler/hsSyn/HsBinds.lhs
index 10724bc..cb2538f 100644
--- a/compiler/hsSyn/HsBinds.lhs
+++ b/compiler/hsSyn/HsBinds.lhs
@@ -615,7 +615,7 @@ hsSigDoc (TypeSig {})           = ptext (sLit "type signature")
 hsSigDoc (GenericSig {})        = ptext (sLit "default type signature")
 hsSigDoc (IdSig {})             = ptext (sLit "id signature")
 hsSigDoc (SpecSig {})           = ptext (sLit "SPECIALISE pragma")
-hsSigDoc (InlineSig {})         = ptext (sLit "INLINE pragma")
+hsSigDoc (InlineSig _ prag)     = ppr (inlinePragmaSpec prag) <+> ptext (sLit "pragma")
 hsSigDoc (SpecInstSig {})       = ptext (sLit "SPECIALISE instance pragma")
 hsSigDoc (FixSig {})            = ptext (sLit "fixity declaration")
 \end{code}