Better pretty-printing for TvSubst

3287fb1d · simonpj@microsoft.com · 7a59afce · 3287fb1d
Commit 3287fb1d authored Aug 18, 2006 by simonpj@microsoft.com
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

compiler/types/Type.lhs compiler/types/Type.lhs +3 -3

No files found.
--- a/compiler/types/Type.lhs
+++ b/compiler/types/Type.lhs
@@ -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}

 %************************************************************************