diff options
| author | simonpj <unknown> | 2005-11-15 17:37:54 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2005-11-15 17:37:54 +0000 |
| commit | b6e680de14e07e1316f3d668b2e46b7a19e7a6b6 (patch) | |
| tree | 08b239031844d1ba59e2d707590d75d6b256da7d | |
| parent | b36b3d13c6e27fe67e56214f32342c25b61d3ee0 (diff) | |
| download | haskell-b6e680de14e07e1316f3d668b2e46b7a19e7a6b6.tar.gz | |
[project @ 2005-11-15 17:37:54 by simonpj]
Yet more detail in types with -dppr-debug
| -rw-r--r-- | ghc/compiler/types/TypeRep.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/compiler/types/TypeRep.lhs b/ghc/compiler/types/TypeRep.lhs index f5bb325ad9..4c0d01bc84 100644 --- a/ghc/compiler/types/TypeRep.lhs +++ b/ghc/compiler/types/TypeRep.lhs @@ -344,7 +344,8 @@ instance Outputable name => OutputableBndr (IPName name) where ppr_type :: Prec -> Type -> SDoc ppr_type p (TyVarTy tv) = ppr tv ppr_type p (PredTy pred) = braces (ppr pred) -ppr_type p (NoteTy (SynNote ty1) ty2) = ppr_type p ty1 +ppr_type p (NoteTy (SynNote ty1) ty2) = ppr_type p ty1 + <+> ifPprDebug (braces $ ptext SLIT("Syn:") <+> pprType ty2) ppr_type p (NoteTy other ty2) = ppr_type p ty2 ppr_type p (TyConApp tc tys) = ppr_tc_app p tc tys |