Skip to content

GitLab

Commit b10eb000 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Better debug printing

parent 111ff8cb
Hide whitespace changes
Inline Side-by-side
compiler/typecheck/TcRnTypes.lhs
View file @ b10eb000
...@@ -601,7 +601,7 @@ instance Outputable TcTyThing where -- Debugging only ...@@ -601,7 +601,7 @@ instance Outputable TcTyThing where -- Debugging only
<> ppr (varType (tct_id elt)) <> comma <> ppr (varType (tct_id elt)) <> comma
<+> ppr (tct_closed elt) <> comma <+> ppr (tct_closed elt) <> comma
<+> ppr (tct_level elt)) <+> ppr (tct_level elt))
ppr (ATyVar tv _) = text "Type variable" <+> quotes (ppr tv) ppr (ATyVar n tv) = text "Type variable" <+> quotes (ppr n) <+> equals <+> ppr tv
ppr (AThing k) = text "AThing" <+> ppr k ppr (AThing k) = text "AThing" <+> ppr k
ppr (APromotionErr err) = text "APromotionErr" <+> ppr err ppr (APromotionErr err) = text "APromotionErr" <+> ppr err
......
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