X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMkIface.lhs;fp=ghc%2Fcompiler%2Fmain%2FMkIface.lhs;h=2b35f372d7490d33c6745d24d773814a09d2fac1;hb=42b63073fb5e71fcd539ab80289cf6cf2a5b9641;hp=899d0dfab7909d24432c963292efb4df73c74a17;hpb=87bfa396ca8cea3296e8a715766062dc4d2c1d9b;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 899d0df..2b35f37 100644
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -39,7 +39,7 @@ import HscTypes		( VersionInfo(..), ModIface(..),
 
 import CmdLineOpts
 import Id		( idType, idInfo, isImplicitId, idCgInfo )
-import DataCon		( dataConSig, dataConFieldLabels, dataConStrictMarks )
+import DataCon		( dataConName, dataConSig, dataConFieldLabels, dataConStrictMarks )
 import IdInfo		-- Lots
 import CoreSyn		( CoreRule(..), IdCoreRule )
 import CoreFVs		( ruleLhsFreeNames )
@@ -224,6 +224,7 @@ we miss them out of the accumulating parameter here.
 
 \begin{code}
 ifaceTyThing_acc :: TyThing -> [RenamedTyClDecl] -> [RenamedTyClDecl]
+ifaceTyThing_acc (ADataCon dc) so_far 		      = so_far
 ifaceTyThing_acc (AnId   id) so_far | isImplicitId id = so_far
 ifaceTyThing_acc (ATyCon id) so_far | isClassTyCon id = so_far
 ifaceTyThing_acc other so_far = ifaceTyThing other : so_far
@@ -308,7 +309,7 @@ ifaceTyThing (ATyCon tycon) = ty_decl
     ifaceConDecls (DataCons cs) = DataCons (map ifaceConDecl cs)
 
     ifaceConDecl data_con 
-	= ConDecl (getName data_con)
+	= ConDecl (dataConName data_con)
 		  (toHsTyVars ex_tyvars)
 		  (toHsContext ex_theta)
 		  details noSrcLoc