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:
26637fd
)
Add type signature
author
simonpj@microsoft.com
<unknown>
Fri, 11 Aug 2006 13:33:02 +0000
(13:33 +0000)
committer
simonpj@microsoft.com
<unknown>
Fri, 11 Aug 2006 13:33:02 +0000
(13:33 +0000)
compiler/hsSyn/HsBinds.lhs
patch
|
blob
|
history
diff --git
a/compiler/hsSyn/HsBinds.lhs
b/compiler/hsSyn/HsBinds.lhs
index
b5c2179
..
78a2234
100644
(file)
--- a/
compiler/hsSyn/HsBinds.lhs
+++ b/
compiler/hsSyn/HsBinds.lhs
@@
-156,6
+156,8
@@
instance OutputableBndr id => Outputable (HsValBinds id) where
-- 'where' include a list of HsBindGroups and we don't want
-- several groups of bindings each with braces around.
-- Sort by location before printing
+pprValBindsForUser :: (OutputableBndr id1, OutputableBndr id2)
+ => LHsBinds id1 -> [LSig id2] -> SDoc
pprValBindsForUser binds sigs
= vcat (map snd (sort_by_loc decls))
where