From b2ab324f726f5a95979c64e61d56cf6df132aa24 Mon Sep 17 00:00:00 2001
From: Max Bolingbroke <batterseapower@hotmail.com>
Date: Sun, 4 Sep 2011 12:54:47 +0100
Subject: Deal with change to IParam handling in GHC

---
 src/Haddock/Convert.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/Haddock')

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
-- 
cgit v1.2.3