[project @ 2003-02-12 15:01:31 by simonpj]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgCon.lhs

diff --git a/ghc/compiler/codeGen/CgCon.lhs b/ghc/compiler/codeGen/CgCon.lhs
index 4fab0e9..324c5cc 100644 (file)
--- 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}