Commit 74ae9bb0 authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Add an "Outputable (InstInfo a)" instance

parent a49580fd
......@@ -681,6 +681,9 @@ data InstBindings a
-- See Note [Newtype deriving and unused constructors]
-- in TcDeriv
instance OutputableBndr a => Outputable (InstInfo a) where
ppr = pprInstInfoDetails
pprInstInfoDetails :: OutputableBndr a => InstInfo a -> SDoc
pprInstInfoDetails info
= hang (pprInstanceHdr (iSpec info) <+> ptext (sLit "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