Make -dppr-debug show contents of (TypeError ...)
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 4 Dec 2015 11:59:08 +0000 (11:59 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 4 Dec 2015 14:21:31 +0000 (14:21 +0000)
Just for debugging

compiler/types/TypeRep.hs

index 384f1ef..f13ca8a 100644 (file)
@@ -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