diff options
| -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")) |