diff options
| -rw-r--r-- | src/Haddock/Convert.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs index 6e534d05..b3549fdc 100644 --- a/src/Haddock/Convert.hs +++ b/src/Haddock/Convert.hs @@ -20,7 +20,6 @@ module Haddock.Convert where import HsSyn import TcType ( tcSplitTyConApp_maybe, tcSplitSigmaTy ) import TypeRep -import RnTypes ( mkIPName ) import Kind ( liftedTypeKind, constraintKind ) import Coercion ( splitKindFunTys, synTyConResKind ) import Name @@ -28,7 +27,6 @@ import Var import Class import TyCon import DataCon -import SrcLoc ( noSrcSpan ) import BasicTypes ( TupleSort(..) ) import TysPrim ( alphaTyVars ) import TysWiredIn ( listTyConName, eqTyCon ) @@ -275,7 +273,7 @@ synifyType _ (TyConApp tc tys) -- ditto for implicit parameter tycons | Just ip <- tyConIP_maybe tc , [ty] <- tys - = noLoc $ HsIParamTy (mkIPName noSrcSpan ip) (synifyType WithinType ty) + = noLoc $ HsIParamTy ip (synifyType WithinType ty) -- and equalities | tc == eqTyCon , [ty1, ty2] <- tys |