Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/20e6d9d0c321074ac9a8f534d322ed722a55e910 >--------------------------------------------------------------- commit 20e6d9d0c321074ac9a8f534d322ed722a55e910 Author: Simon Peyton Jones <[email protected]> Date: Mon Apr 30 13:40:51 2012 +0100 More explicit pretty-printing of promoted TyCons with -dppr-debug >--------------------------------------------------------------- compiler/types/TyCon.lhs | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/compiler/types/TyCon.lhs b/compiler/types/TyCon.lhs index a0a69c6..d6a744c 100644 --- a/compiler/types/TyCon.lhs +++ b/compiler/types/TyCon.lhs @@ -1482,9 +1482,10 @@ instance Outputable TyCon where pprPromotionQuote :: TyCon -> SDoc pprPromotionQuote (PromotedDataCon {}) = char '\'' -- Quote promoted DataCons in types +pprPromotionQuote (PromotedTyCon {}) = ifPprDebug (char '\'') pprPromotionQuote _ = empty -- However, we don't quote TyCons in kinds -- e.g. type family T a :: Bool -> * - -- cf Trac #5952 + -- cf Trac #5952. Except with -dppr-debug instance NamedThing TyCon where getName = tyConName _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
