X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FPprAbsC.lhs;fp=ghc%2Fcompiler%2FabsCSyn%2FPprAbsC.lhs;h=7094fbb697a8288dfe163bdac901edb34442f646;hb=42b63073fb5e71fcd539ab80289cf6cf2a5b9641;hp=2134f039c0bda6cf46c03959a52c24312621be5c;hpb=87bfa396ca8cea3296e8a715766062dc4d2c1d9b;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/PprAbsC.lhs b/ghc/compiler/absCSyn/PprAbsC.lhs
index 2134f03..7094fbb 100644
--- a/ghc/compiler/absCSyn/PprAbsC.lhs
+++ b/ghc/compiler/absCSyn/PprAbsC.lhs
@@ -43,7 +43,6 @@ import FiniteMap	( addToFM, emptyFM, lookupFM, FiniteMap )
 import Literal		( Literal(..) )
 import TyCon		( tyConDataCons )
 import Name		( NamedThing(..) )
-import DataCon		( dataConWrapId )
 import Maybes		( catMaybes )
 import PrimOp		( primOpNeedsWrapper )
 import MachOp		( MachOp(..) )
@@ -473,7 +472,7 @@ pprAbsC stmt@(CClosureTbl tycon) _
 	ptext SLIT("CLOSURE_TBL") <> 
 	   lparen <> pprCLabel (mkClosureTblLabel tycon) <> rparen :
 	punctuate comma (
-	   map (pp_closure_lbl . mkClosureLabel . getName . dataConWrapId) (tyConDataCons tycon)
+	   map (pp_closure_lbl . mkClosureLabel . getName) (tyConDataCons tycon)
 	)
    ) $$ ptext SLIT("};")