diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-10-11 18:06:50 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-10-11 18:06:50 +0100 |
| commit | 74ae9bb0d22be2bcb1b58d23d0b70fda4feca389 (patch) | |
| tree | fa1e94be18dd93a6f5b7a9de137dbf11fcc52b2a | |
| parent | a49580fdec48917a0028763458275a8a145d8f44 (diff) | |
| download | haskell-74ae9bb0d22be2bcb1b58d23d0b70fda4feca389.tar.gz | |
Add an "Outputable (InstInfo a)" instance
| -rw-r--r-- | 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 3249f54bc1..f3fc936996 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")) |