diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2011-09-04 12:54:47 +0100 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2011-09-04 12:54:47 +0100 |
| commit | b2ab324f726f5a95979c64e61d56cf6df132aa24 (patch) | |
| tree | 3e8e88d7be428e0338372103fcb76911c6362cee | |
| parent | d26620748326adf9cffc64dce0fbc9d069894b3e (diff) | |
Deal with change to IParam handling in GHC
| -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 |