Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/b222368224680525cdd9303269e0772d13a02f27 >--------------------------------------------------------------- commit b222368224680525cdd9303269e0772d13a02f27 Author: Simon Peyton Jones <[email protected]> Date: Tue Jan 3 10:35:46 2012 +0000 Be less verbose when printing out Vars For some reason we were printing every occurrence with its type and that is far too much. >--------------------------------------------------------------- compiler/basicTypes/Var.lhs | 10 ++++++---- 1 files changed, 6 insertions(+), 4 deletions(-) diff --git a/compiler/basicTypes/Var.lhs b/compiler/basicTypes/Var.lhs index d7caf2a..ea8e9d2 100644 --- a/compiler/basicTypes/Var.lhs +++ b/compiler/basicTypes/Var.lhs @@ -85,7 +85,7 @@ import FastTypes import FastString import Outputable -import StaticFlags ( opt_SuppressVarKinds ) +-- import StaticFlags ( opt_SuppressVarKinds ) import Data.Data \end{code} @@ -211,9 +211,11 @@ After CoreTidy, top-level LocalIds are turned into GlobalIds \begin{code} instance Outputable Var where - ppr var = ifPprDebug (text "(") <+> ppr (varName var) <+> ifPprDebug (brackets (ppr_debug var)) - <+> if (not opt_SuppressVarKinds) then ifPprDebug (text "::" <+> ppr (tyVarKind var) <+> text ")") - else empty + ppr var = ppr (varName var) <+> ifPprDebug (brackets (ppr_debug var)) +-- Printing the type on every occurrence is too much! +-- <+> if (not opt_SuppressVarKinds) +-- then ifPprDebug (text "::" <+> ppr (tyVarKind var) <+> text ")") +-- else empty ppr_debug :: Var -> SDoc ppr_debug (TyVar {}) = ptext (sLit "tv") _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
