Commit 3e234f73 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Fix type-variable details naming (fixes misleading debug output)

parent 14965981
......@@ -522,8 +522,8 @@ pprTcTyVarDetails (MetaTv { mtv_info = info, mtv_tclvl = tclvl })
where
pp_info = case info of
ReturnTv -> ptext (sLit "ret")
TauTv True -> ptext (sLit "tau")
TauTv False -> ptext (sLit "twc")
TauTv True -> ptext (sLit "twc")
TauTv False -> ptext (sLit "tau")
SigTv -> ptext (sLit "sig")
FlatMetaTv -> ptext (sLit "fuv")
......
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