From: simonpj <unknown>
Date: Mon, 27 Nov 2000 12:04:23 +0000 (+0000)
Subject: [project @ 2000-11-27 12:04:23 by simonpj]
X-Git-Tag: Approximately_9120_patches~3240
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=54e95e505c4057d2a0bb50eb59d5cd9df47a6f9e;p=ghc-hetmet.git

[project @ 2000-11-27 12:04:23 by simonpj]
Generate correct sys-names in MkIface (again)
---

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index b7917da..a63c80f 100644
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -292,7 +292,7 @@ ifaceTyCls (ATyCon tycon) so_far
 	        | otherwise	   = DataType
 
     ifaceConDecl data_con 
-	= ConDecl (getName data_con) (error "ifaceConDecl")
+	= ConDecl (getName data_con) (getName (dataConId data_con))
 		  (toHsTyVars ex_tyvars)
 		  (toHsContext ex_theta)
 		  details noSrcLoc