X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FsimplCore%2FSimplCore.lhs;h=ff7749e7057607f6a06b6c7e24b7b26477edf7e4;hb=8529126a1bae9b5ee55e109de0517402feb76da5;hp=f3a5d145b8c1d98de39ef1fac0f520aa354f31c4;hpb=d4e0a55c3761544989209a2180d6d0489470db3d;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index f3a5d14..ff7749e 100644
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -43,7 +43,6 @@ import Name		( mkLocalName, tidyOccName, tidyTopName,
 			  NamedThing(..), OccName
 			)
 import TyCon		( TyCon, isDataTyCon )
-import PrelInfo		( unpackCStringId, unpackCString2Id, addr2IntegerId )
 import PrelRules	( builtinRules )
 import Type		( Type, 
 			  isUnLiftedType,
@@ -59,9 +58,7 @@ import StrictAnal	( saBinds )
 import WorkWrap	        ( wwTopBinds )
 import CprAnalyse       ( cprAnalyse )
 
-import Unique		( Unique, Uniquable(..),
-			  ratioTyConKey
-		        )
+import Unique		( Unique, Uniquable(..) )
 import UniqSupply	( UniqSupply, mkSplitUniqSupply, splitUniqSupply, uniqFromSupply )
 import Util		( mapAccumL )
 import SrcLoc		( noSrcLoc )