[commit: ghc] master: Add an "Outputable (InstInfo a)" instance (74ae9bb)
Ian Lynagh <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master http://hackage.haskell.org/trac/ghc/changeset/74ae9bb0d22be2bcb1b58d23d0b70fda4feca389 >--------------------------------------------------------------- commit 74ae9bb0d22be2bcb1b58d23d0b70fda4feca389 Author: Ian Lynagh <[email protected]> Date: Thu Oct 11 18:06:50 2012 +0100 Add an "Outputable (InstInfo a)" instance >--------------------------------------------------------------- compiler/typecheck/TcEnv.lhs | 3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) diff --git a/compiler/typecheck/TcEnv.lhs b/compiler/typecheck/TcEnv.lhs index 3249f54..f3fc936 100644 --- a/compiler/typecheck/TcEnv.lhs +++ b/compiler/typecheck/TcEnv.lhs @@ -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"))