X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCgCon.lhs;h=324c5ccf36ea072a3cfd6013bbeca656f7694eb3;hb=42b63073fb5e71fcd539ab80289cf6cf2a5b9641;hp=4fab0e9bcd05f83ba5f94cc102221cc6b1339876;hpb=87bfa396ca8cea3296e8a715766062dc4d2c1d9b;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgCon.lhs b/ghc/compiler/codeGen/CgCon.lhs
index 4fab0e9..324c5cc 100644
--- a/ghc/compiler/codeGen/CgCon.lhs
+++ b/ghc/compiler/codeGen/CgCon.lhs
@@ -43,7 +43,7 @@ import CostCentre	( currentOrSubsumedCCS, dontCareCCS, CostCentreStack,
 			  currentCCS )
 import DataCon		( DataCon, dataConTag, 
 			  isUnboxedTupleCon, isNullaryDataCon, dataConWorkId, 
-			  dataConWrapId, dataConRepArity
+			  dataConName, dataConRepArity
 			)
 import Id		( Id, idName, idPrimRep )
 import Literal		( Literal(..) )
@@ -138,7 +138,7 @@ at all.
 \begin{code}
 buildDynCon binder cc con []
   = returnFC (stableAmodeIdInfo binder
-				(CLbl (mkClosureLabel (idName (dataConWrapId con))) PtrRep)
+				(CLbl (mkClosureLabel (dataConName con)) PtrRep)
     				(mkConLFInfo con))
 \end{code}