diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-12-04 11:59:08 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-12-04 14:21:31 +0000 |
| commit | 822141b95174f068872fd4e491da764139ce626f (patch) | |
| tree | 87bb75493c93d7b8ab451d44abde00de2e506c74 | |
| parent | 1cb3c8c2e8bc7d5dd8123f6473ae9b1a6060408b (diff) | |
| download | haskell-822141b95174f068872fd4e491da764139ce626f.tar.gz | |
Make -dppr-debug show contents of (TypeError ...)
Just for debugging
| -rw-r--r-- | compiler/types/TypeRep.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/types/TypeRep.hs b/compiler/types/TypeRep.hs index 384f1ef47a..f13ca8aa1e 100644 --- a/compiler/types/TypeRep.hs +++ b/compiler/types/TypeRep.hs @@ -790,7 +790,9 @@ pprTyTcApp p tc tys if gopt Opt_PrintExplicitKinds dflags then pprTcApp p ppr_type tc tys else pprTyList p ty1 ty2 - | tc `hasKey` errorMessageTypeErrorFamKey = text "(TypeError ...)" + | not opt_PprStyle_Debug + , tc `hasKey` errorMessageTypeErrorFamKey + = text "(TypeError ...)" -- Suppress detail unles you _really_ want to see it | otherwise = pprTcApp p ppr_type tc tys |