From a3c3c6945f16527f6627f13a7864c708d043022f Mon Sep 17 00:00:00 2001 From: Simon Peyton Jones Date: Wed, 13 Jun 2012 17:25:29 +0100 Subject: Follow changes for the implementation of implicit parameters --- src/Haddock/Interface/Rename.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Haddock/Interface') diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index b762bcbb..380147be 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -18,7 +18,6 @@ import Haddock.GhcUtils import GHC hiding (NoLink) import Name import Bag (emptyBag) -import BasicTypes ( IPName(..), ipNameName ) import Data.List import qualified Data.Map as Map hiding ( Map ) @@ -236,7 +235,7 @@ renameType t = case t of HsListTy ty -> return . HsListTy =<< renameLType ty HsPArrTy ty -> return . HsPArrTy =<< renameLType ty - HsIParamTy n ty -> liftM2 HsIParamTy (liftM IPName (rename (ipNameName n))) (renameLType ty) + HsIParamTy n ty -> liftM (HsIParamTy n) (renameLType ty) HsEqTy ty1 ty2 -> liftM2 HsEqTy (renameLType ty1) (renameLType ty2) HsTupleTy b ts -> return . HsTupleTy b =<< mapM renameLType ts -- cgit v1.2.3