diff options
| author | Eric Seidel <gridaphobe@gmail.com> | 2015-06-04 20:29:56 -0700 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2015-12-14 15:14:07 +0000 |
| commit | df0988170814b5e5e0e9015eb28c249b08a2d6de (patch) | |
| tree | f3ee0522aad8e6a7fa32611fc5cb40e9769f85ca /haddock-api/src/Haddock | |
| parent | 7f34b4ee53a82124f45895c74f41b50fc7aa71e7 (diff) | |
account for changes to ipClass
Diffstat (limited to 'haddock-api/src/Haddock')
| -rw-r--r-- | haddock-api/src/Haddock/Convert.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs index 7a8b1acb..24947876 100644 --- a/haddock-api/src/Haddock/Convert.hs +++ b/haddock-api/src/Haddock/Convert.hs @@ -29,14 +29,13 @@ import HsSyn import Kind ( splitKindFunTys, synTyConResKind, isKind ) import Name import PatSyn -import PrelNames (ipClassName) import SrcLoc ( Located, noLoc, unLoc, noSrcSpan ) import TcType ( tcSplitSigmaTy ) import TyCon import Type (isStrLitTy, mkFunTys) import TypeRep import TysPrim ( alphaTyVars ) -import TysWiredIn ( listTyConName, eqTyCon ) +import TysWiredIn ( listTyConName, eqTyCon, ipTyCon ) import Unique ( getUnique ) import Var @@ -350,7 +349,7 @@ synifyType _ (TyConApp tc tys) | getName tc == listTyConName, [ty] <- tys = noLoc $ HsListTy (synifyType WithinType ty) -- ditto for implicit parameter tycons - | tyConName tc == ipClassName + | tc == ipTyCon , [name, ty] <- tys , Just x <- isStrLitTy name = noLoc $ HsIParamTy (HsIPName x) (synifyType WithinType ty) |