projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
006a18e
)
Print more "..." in long lists of declarations
author
simonpj@microsoft.com
<unknown>
Thu, 9 Aug 2007 22:32:28 +0000
(22:32 +0000)
committer
simonpj@microsoft.com
<unknown>
Thu, 9 Aug 2007 22:32:28 +0000
(22:32 +0000)
compiler/hsSyn/HsBinds.lhs
patch
|
blob
|
history
diff --git
a/compiler/hsSyn/HsBinds.lhs
b/compiler/hsSyn/HsBinds.lhs
index
9e08cf5
..
6c46fa2
100644
(file)
--- a/
compiler/hsSyn/HsBinds.lhs
+++ b/
compiler/hsSyn/HsBinds.lhs
@@
-165,7
+165,7
@@
instance OutputableBndr id => Outputable (HsValBinds id) where
pprValBindsForUser :: (OutputableBndr id1, OutputableBndr id2)
=> LHsBinds id1 -> [LSig id2] -> SDoc
pprValBindsForUser binds sigs
pprValBindsForUser :: (OutputableBndr id1, OutputableBndr id2)
=> LHsBinds id1 -> [LSig id2] -> SDoc
pprValBindsForUser binds sigs
- = vcat (map snd (sort_by_loc decls))
+ = pprDeeperList vcat (map snd (sort_by_loc decls))
where
decls :: [(SrcSpan, SDoc)]
where
decls :: [(SrcSpan, SDoc)]
@@
-177,7
+177,7
@@
pprValBindsForUser binds sigs
pprLHsBinds :: OutputableBndr id => LHsBinds id -> SDoc
pprLHsBinds binds
| isEmptyLHsBinds binds = empty
pprLHsBinds :: OutputableBndr id => LHsBinds id -> SDoc
pprLHsBinds binds
| isEmptyLHsBinds binds = empty
- | otherwise = lbrace <+> vcat (map ppr (bagToList binds)) <+> rbrace
+ | otherwise = lbrace <+> pprDeeperList vcat (map ppr (bagToList binds)) <+> rbrace
------------
emptyLocalBinds :: HsLocalBinds a
------------
emptyLocalBinds :: HsLocalBinds a
@@
-292,7
+292,7
@@
data IPBind id
(LHsExpr id)
instance (OutputableBndr id) => Outputable (HsIPBinds id) where
(LHsExpr id)
instance (OutputableBndr id) => Outputable (HsIPBinds id) where
- ppr (IPBinds bs ds) = vcat (map ppr bs)
+ ppr (IPBinds bs ds) = pprDeeperList vcat (map ppr bs)
$$ pprLHsBinds ds
instance (OutputableBndr id) => Outputable (IPBind id) where
$$ pprLHsBinds ds
instance (OutputableBndr id) => Outputable (IPBind id) where