X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCgConTbls.lhs;fp=ghc%2Fcompiler%2FcodeGen%2FCgConTbls.lhs;h=299eceb08fa56b0bd81669d1dac6db50446de5e0;hb=47eef4b5780f0a5b5a37847097842daebd0f9285;hp=e3197fadc419d8ccacd23c7d3a9a062f376e9061;hpb=cd241c73f2b03a48d905e0db50c796eb0de45dec;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgConTbls.lhs b/ghc/compiler/codeGen/CgConTbls.lhs
index e3197fa..299eceb 100644
--- a/ghc/compiler/codeGen/CgConTbls.lhs
+++ b/ghc/compiler/codeGen/CgConTbls.lhs
@@ -17,11 +17,9 @@ import CLabel		( mkConEntryLabel )
 import ClosureInfo	( layOutStaticClosure, layOutDynCon,
 			  mkConLFInfo, ClosureInfo
 			)
-import CostCentre	( dontCareCCS )
 import DataCon		( DataCon, dataConName, dataConRepArgTys, isNullaryDataCon )
 import Name		( getOccName )
 import OccName		( occNameUserString )
-import PrimRep		( getPrimRepSize, PrimRep(..) )
 import TyCon		( tyConDataCons, isEnumerationTyCon, TyCon )
 import Type		( typePrimRep )
 \end{code}
@@ -140,7 +138,6 @@ genConInfo comp_info tycon data_con
 	-- just one more thing to go wrong.
 
     arg_tys	    = dataConRepArgTys  data_con
-    entry_label     = mkConEntryLabel      con_name
     con_name	    = dataConName data_con
 \end{code}