Be less verbose when printing out Vars
authorSimon Peyton Jones <simonpj@microsoft.com>
Tue, 3 Jan 2012 10:35:46 +0000 (10:35 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Tue, 3 Jan 2012 10:35:46 +0000 (10:35 +0000)
For some reason we were printing every occurrence with its type
and that is far too much.

compiler/basicTypes/Var.lhs

index d7caf2a..ea8e9d2 100644 (file)
@@ -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")