aboutsummaryrefslogtreecommitdiff
path: root/haddock-api
diff options
context:
space:
mode:
authorSebastian Graf <sgraf1337@gmail.com>2019-10-25 17:14:40 +0200
committerSebastian Graf <sgraf1337@gmail.com>2019-10-25 17:14:40 +0200
commitfad111e9d3de1a2e86837d3e6f72fe0cf2f6c0ac (patch)
tree4eddac2f8fe25d98cb62e9e3b84e9ee16021e506 /haddock-api
parent08b5533323201342b96987379c374be53ca7541a (diff)
Refactor for OutputableBndrId changes
Diffstat (limited to 'haddock-api')
-rw-r--r--haddock-api/src/Haddock/Backends/Hoogle.hs4
-rw-r--r--haddock-api/src/Haddock/Types.hs4
2 files changed, 4 insertions, 4 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hoogle.hs b/haddock-api/src/Haddock/Backends/Hoogle.hs
index 9298f262..b76d14b5 100644
--- a/haddock-api/src/Haddock/Backends/Hoogle.hs
+++ b/haddock-api/src/Haddock/Backends/Hoogle.hs
@@ -86,8 +86,8 @@ dropHsDocTy = f
f (HsDocTy _ a _) = f $ unL a
f x = x
-outHsType :: (a ~ GhcPass p, OutputableBndrId a)
- => DynFlags -> HsType a -> String
+outHsType :: (OutputableBndrId p)
+ => DynFlags -> HsType (GhcPass p) -> String
outHsType dflags = out dflags . reparenType . dropHsDocTy
diff --git a/haddock-api/src/Haddock/Types.hs b/haddock-api/src/Haddock/Types.hs
index da221819..c03ab385 100644
--- a/haddock-api/src/Haddock/Types.hs
+++ b/haddock-api/src/Haddock/Types.hs
@@ -345,8 +345,8 @@ data InstType name
| TypeInst (Maybe (HsType name)) -- ^ Body (right-hand side)
| DataInst (TyClDecl name) -- ^ Data constructors
-instance (a ~ GhcPass p,OutputableBndrId a)
- => Outputable (InstType a) where
+instance (OutputableBndrId p)
+ => Outputable (InstType (GhcPass p)) where
ppr (ClassInst { .. }) = text "ClassInst"
<+> ppr clsiCtx
<+> ppr clsiTyVars