[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 (file)
--- 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