Repository : http://darcs.haskell.org/ghc.git/
On branch : master https://github.com/ghc/ghc/commit/1d4704d4cdbb197725ddefb864d58158592136a4 >--------------------------------------------------------------- commit 1d4704d4cdbb197725ddefb864d58158592136a4 Author: Simon Peyton Jones <[email protected]> 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} _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
