aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src
diff options
context:
space:
mode:
authorEric Seidel <gridaphobe@gmail.com>2016-01-11 14:57:57 -0800
committerEric Seidel <gridaphobe@gmail.com>2016-01-11 14:57:57 -0800
commit17388b0f0029d969d79353be7737eb01c7b8dc5f (patch)
treeb1e12226d3a59a6ca6d14cd1590ab2f5b39425c5 /haddock-api/src
parenta13d21c688cae176be4505a5a6e9d64739845ea3 (diff)
deal with un-wiring of IP class
Diffstat (limited to 'haddock-api/src')
-rw-r--r--haddock-api/src/Haddock/Convert.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs
index 38271a04..b6dd06e9 100644
--- a/haddock-api/src/Haddock/Convert.hs
+++ b/haddock-api/src/Haddock/Convert.hs
@@ -34,8 +34,8 @@ import TyCon
import Type
import TyCoRep
import TysPrim ( alphaTyVars )
-import TysWiredIn ( listTyConName, ipTyCon )
-import PrelNames ( hasKey, eqTyConKey )
+import TysWiredIn ( listTyConName )
+import PrelNames ( hasKey, eqTyConKey, ipClassKey )
import Unique ( getUnique )
import Util ( filterByList, filterOut )
import Var
@@ -372,7 +372,7 @@ synifyType _ (TyConApp tc tys)
| getName tc == listTyConName, [ty] <- tys =
noLoc $ HsListTy (synifyType WithinType ty)
-- ditto for implicit parameter tycons
- | tc == ipTyCon
+ | tc `hasKey` ipClassKey
, [name, ty] <- tys
, Just x <- isStrLitTy name
= noLoc $ HsIParamTy (HsIPName x) (synifyType WithinType ty)