Commit 822141b9 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Make -dppr-debug show contents of (TypeError ...)

Just for debugging
parent 1cb3c8c2
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment