Commit 3287fb1d authored by simonpj@microsoft.com's avatar simonpj@microsoft.com

Better pretty-printing for TvSubst

parent 7a59afce
......@@ -1135,9 +1135,9 @@ zip_ty_env tvs tys env = pprTrace "Var/Type length mismatch: " (ppr
instance Outputable TvSubst where
ppr (TvSubst ins env)
= sep[ ptext SLIT("<TvSubst"),
nest 2 (ptext SLIT("In scope:") <+> ppr ins),
nest 2 (ptext SLIT("Env:") <+> ppr env) ]
= brackets $ sep[ ptext SLIT("TvSubst"),
nest 2 (ptext SLIT("In scope:") <+> ppr ins),
nest 2 (ptext SLIT("Env:") <+> ppr env) ]
\end{code}
%************************************************************************
......
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