Commit 0d7cc019 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Add type signature

parent 26637fd8
...@@ -156,6 +156,8 @@ instance OutputableBndr id => Outputable (HsValBinds id) where ...@@ -156,6 +156,8 @@ instance OutputableBndr id => Outputable (HsValBinds id) where
-- 'where' include a list of HsBindGroups and we don't want -- 'where' include a list of HsBindGroups and we don't want
-- several groups of bindings each with braces around. -- several groups of bindings each with braces around.
-- Sort by location before printing -- Sort by location before printing
pprValBindsForUser :: (OutputableBndr id1, OutputableBndr id2)
=> LHsBinds id1 -> [LSig id2] -> SDoc
pprValBindsForUser binds sigs pprValBindsForUser binds sigs
= vcat (map snd (sort_by_loc decls)) = vcat (map snd (sort_by_loc decls))
where where
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment