X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FIdLoop.lhi;fp=ghc%2Fcompiler%2FbasicTypes%2FIdLoop.lhi;h=aea554af73848484ad4505b6058bc527f262b485;hb=ae45ff0e9831a0dc862a5d68d03e355d7e323c62;hp=deeae88b42a068f4a9e10a6aa36ccac22a27ac70;hpb=e7498a3ee1d0484d02a9e86633cc179c76ebf36e;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/IdLoop.lhi b/ghc/compiler/basicTypes/IdLoop.lhi
index deeae88..aea554a 100644
--- a/ghc/compiler/basicTypes/IdLoop.lhi
+++ b/ghc/compiler/basicTypes/IdLoop.lhi
@@ -18,6 +18,7 @@ import Id		( externallyVisibleId, isDataCon, isWorkerId, isWrapperId,
 import IdInfo		( IdInfo )
 import Literal		( Literal )
 import MagicUFs		( mkMagicUnfoldingFun, MagicUnfoldingFun )
+import OccurAnal	( occurAnalyseGlobalExpr )
 import Outputable	( Outputable(..) )
 import PprEnv		( NmbrEnv )
 import PprStyle		( PprStyle )
@@ -31,6 +32,7 @@ import Usage		( GenUsage )
 import Util		( Ord3(..) )
 import WwLib		( mAX_WORKER_ARGS )
 
+occurAnalyseGlobalExpr  :: GenCoreExpr (GenId (GenType (GenTyVar (GenUsage Unique)) Unique)) (GenId (GenType (GenTyVar (GenUsage Unique)) Unique)) (GenTyVar (GenUsage Unique)) Unique -> GenCoreExpr (GenId (GenType (GenTyVar (GenUsage Unique)) Unique), BinderInfo) (GenId (GenType (GenTyVar (GenUsage Unique)) Unique)) (GenTyVar (GenUsage Unique)) Unique
 externallyVisibleId	:: Id	    -> Bool
 isDataCon		:: GenId ty -> Bool
 isWorkerId		:: GenId ty -> Bool