projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-03-11 14:31:56 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
hsSyn
/
HsBinds.lhs
diff --git
a/ghc/compiler/hsSyn/HsBinds.lhs
b/ghc/compiler/hsSyn/HsBinds.lhs
index
0db816c
..
458a713
100644
(file)
--- a/
ghc/compiler/hsSyn/HsBinds.lhs
+++ b/
ghc/compiler/hsSyn/HsBinds.lhs
@@
-50,7
+50,7
@@
instance OutputableBndr id => Outputable (HsBindGroup id) where
ppr (HsBindGroup binds sigs is_rec)
= vcat [ppr_isrec,
vcat (map ppr sigs),
ppr (HsBindGroup binds sigs is_rec)
= vcat [ppr_isrec,
vcat (map ppr sigs),
- vcat (map ppr (bagToList binds))
+ pprLHsBinds binds
]
where
ppr_isrec = getPprStyle $ \ sty ->
]
where
ppr_isrec = getPprStyle $ \ sty ->
@@
-81,6
+81,9
@@
instance (OutputableBndr id) => Outputable (IPBind id) where
type LHsBinds id = Bag (LHsBind id)
type LHsBind id = Located (HsBind id)
type LHsBinds id = Bag (LHsBind id)
type LHsBind id = Located (HsBind id)
+pprLHsBinds :: OutputableBndr id => LHsBinds id -> SDoc
+pprLHsBinds binds = lbrace <+> vcat (map ppr (bagToList binds)) <+> rbrace
+
data HsBind id
= FunBind (Located id)
-- Used for both functions f x = e
data HsBind id
= FunBind (Located id)
-- Used for both functions f x = e
@@
-161,7
+164,7
@@
ppr_monobind (AbsBinds tyvars dictvars exports inlines val_binds)
nest 4 ( vcat [pprBndr LetBind x | (_,x,_) <- exports]
-- Print type signatures
$$
nest 4 ( vcat [pprBndr LetBind x | (_,x,_) <- exports]
-- Print type signatures
$$
- ppr val_binds )
+ pprLHsBinds val_binds )
\end{code}
%************************************************************************
\end{code}
%************************************************************************