X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FId.lhs;h=13443a9852ee5e2fb9ebf3f76894d46fe44e2511;hb=db7041f72b7c7d0114e47b7305058fae48fb0ade;hp=495ee677460fc48d54804456c2c6302a4e386249;hpb=0aa61e36c7baf3bb001049d495a46f0fdc330952;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index 495ee67..13443a9 100644
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -24,7 +24,6 @@ module Id (
 	-- Predicates
 	isImplicitId, isDeadBinder,
 	externallyVisibleId,
-	isIP,
 	isSpecPragmaId,	isRecordSelector,
 	isPrimOpId, isPrimOpId_maybe, isDictFunId,
 	isDataConId, isDataConId_maybe, 
@@ -88,7 +87,7 @@ import IdInfo
 import Demand		( Demand )
 import Name	 	( Name, OccName,
 			  mkSysLocalName, mkLocalName,
-			  getOccName, isIPOcc
+			  getOccName
 			) 
 import OccName		( UserFS )
 import PrimRep		( PrimRep )
@@ -296,8 +295,6 @@ isImplicitId id
 isDeadBinder :: Id -> Bool
 isDeadBinder bndr | isId bndr = isDeadOcc (idOccInfo bndr)
 		  | otherwise = False	-- TyVars count as not dead
-
-isIP id = isIPOcc (getOccName id)
 \end{code}