[commit: haddock] no-pred-ty: Deal with change to IParam handling in GHC (b2ab324)

[Max Bolingbroke]

Repository : ssh://darcs.haskell.org//srv/darcs/haddock

On branch  : no-pred-ty

http://hackage.haskell.org/trac/ghc/changeset/b2ab324f726f5a95979c64e61d56cf6df132aa24

>---------------------------------------------------------------

commit b2ab324f726f5a95979c64e61d56cf6df132aa24
Author: Max Bolingbroke <batterseapower at hotmail.com>
Date:   Sun Sep 4 12:54:47 2011 +0100

    Deal with change to IParam handling in GHC

>---------------------------------------------------------------

 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 6e534d0..b3549fd 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