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
-- '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
......
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