X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCodeGen.lhs;h=90bc8f94a1296a74f3e2792cebc57e0cf8a9c2b0;hb=243dedb8741d13162fe944ebf2adace921e0108d;hp=e707cb0e0f7c6d088bc6333100a392a011f7b3c4;hpb=90fa6b84fdc99ba99c0b7df9691ca69d50b62530;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs
index e707cb0..90bc8f9 100644
--- a/ghc/compiler/codeGen/CodeGen.lhs
+++ b/ghc/compiler/codeGen/CodeGen.lhs
@@ -22,8 +22,7 @@ module CodeGen ( codeGen ) where
 import StgSyn
 import CgMonad
 import AbsCSyn
-import CLabel		( CLabel, mkSRTLabel, mkClosureLabel,
-                          mkModuleInitLabel, labelDynamic )
+import CLabel		( CLabel, mkSRTLabel, mkClosureLabel, mkModuleInitLabel )
 
 import PprAbsC		( dumpRealC )
 import AbsCUtils	( mkAbstractCs, flattenAbsC )
@@ -36,16 +35,13 @@ import CmdLineOpts	( DynFlags, DynFlag(..),
 			  opt_SccProfilingOn, opt_EnsureSplittableC )
 import CostCentre       ( CostCentre, CostCentreStack )
 import Id               ( Id, idName )
-import Module           ( Module, moduleString, moduleName, 
-			  ModuleName )
-import PrimRep		( getPrimRepSize, PrimRep(..) )
-import Type             ( Type )
+import Module           ( Module )
+import PrimRep		( PrimRep(..) )
 import TyCon            ( TyCon, isDataTyCon )
 import Class		( Class, classTyCon )
 import BasicTypes	( TopLevelFlag(..) )
 import UniqSupply	( mkSplitUniqSupply )
 import ErrUtils		( dumpIfSet_dyn )
-import Util
 import Panic		( assertPanic )
 \end{code}