From 54e95e505c4057d2a0bb50eb59d5cd9df47a6f9e Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 27 Nov 2000 12:04:23 +0000
Subject: [PATCH] [project @ 2000-11-27 12:04:23 by simonpj] Generate correct
 sys-names in MkIface (again)

---
 ghc/compiler/main/MkIface.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4