Commit 3403e407 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Improve pretty-printing of InstDecl

Fixes Trac #1966. 
parent 6c27803d
......@@ -752,10 +752,10 @@ data InstDecl name
instance (OutputableBndr name) => Outputable (InstDecl name) where
ppr (InstDecl inst_ty binds uprags ats)
= vcat [hsep [ptext SLIT("instance"), ppr inst_ty, ptext SLIT("where")],
nest 4 (ppr ats),
nest 4 (ppr uprags),
nest 4 (pprLHsBinds binds) ]
= vcat [hsep [ptext SLIT("instance"), ppr inst_ty, ptext SLIT("where")]
, nest 4 $ vcat (map ppr ats)
, nest 4 $ vcat (map ppr uprags)
, nest 4 $ pprLHsBinds binds ]
-- Extract the declarations of associated types from an instance
--
......
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