diff options
| author | simonpj@microsoft.com <unknown> | 2010-09-17 14:00:54 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-09-17 14:00:54 +0000 |
| commit | 4e40d888c15e84922c3ca02a9dda67b1d75a02f9 (patch) | |
| tree | e1885ac3f3cbdc7bcad41d1298d7b658026f8451 /compiler | |
| parent | 73855b2d99dfb60b89c057f43ab313b243cfc574 (diff) | |
| download | haskell-4e40d888c15e84922c3ca02a9dda67b1d75a02f9.tar.gz | |
Better pretty printing of implicit parameters
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/hsSyn/HsBinds.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/hsSyn/HsBinds.lhs b/compiler/hsSyn/HsBinds.lhs index 92b050a7f2..0615cbe45e 100644 --- a/compiler/hsSyn/HsBinds.lhs +++ b/compiler/hsSyn/HsBinds.lhs @@ -348,7 +348,7 @@ data IPBind id instance (OutputableBndr id) => Outputable (HsIPBinds id) where ppr (IPBinds bs ds) = pprDeeperList vcat (map ppr bs) - $$ ppr ds + $$ ifPprDebug (ppr ds) instance (OutputableBndr id) => Outputable (IPBind id) where ppr (IPBind id rhs) = pprBndr LetBind id <+> equals <+> pprExpr (unLoc rhs) |