X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FIdUtils.lhs;h=fe04abfd7ba6d66592baabaee79493613a060960;hb=be33dbc967b4915cfdb0307ae1b7ae3cee651b8c;hp=7307caa5cb1de94f7545dea05308fbb559d77cf3;hpb=c29022c49449b7d8862dcc2259e16cafe9461945;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/IdUtils.lhs b/ghc/compiler/basicTypes/IdUtils.lhs
index 7307caa..fe04abf 100644
--- a/ghc/compiler/basicTypes/IdUtils.lhs
+++ b/ghc/compiler/basicTypes/IdUtils.lhs
@@ -9,15 +9,14 @@ module IdUtils ( primOpName ) where
 #include "HsVersions.h"
 
 import CoreSyn
-import CoreUnfold	( UnfoldingGuidance(..), Unfolding, mkUnfolding )
+import CoreUnfold	( Unfolding )
 import Id		( mkPrimitiveId )
 import IdInfo		-- quite a few things
 import StdIdInfo
 import Name		( mkWiredInIdName, Name )
-import PrimOp		( primOpInfo, tagOf_PrimOp, primOp_str,
-			  PrimOpInfo(..), PrimOpResultInfo(..), PrimOp )
+import PrimOp		( primOpInfo, tagOf_PrimOp, PrimOpInfo(..), PrimOp )
 import PrelMods		( pREL_GHC )
-import Type		( mkForAllTys, mkFunTy, mkFunTys, mkTyVarTy, mkTyConApp )
+import Type		( mkForAllTys, mkFunTy, mkFunTys, mkTyConApp )
 import TysWiredIn	( boolTy )
 import Unique		( mkPrimOpIdUnique )
 import Util		( panic )