From 290d2574d148e982fd1307dc512a581c220aeac9 Mon Sep 17 00:00:00 2001
From: andy <unknown>
Date: Fri, 29 Oct 1999 00:53:25 +0000
Subject: [PATCH] [project @ 1999-10-29 00:53:25 by andy] Fixing bug with
 derived Read/Show of labeled fields. (showField and
 readField were undefined).

---
 ghc/interpreter/link.c |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ghc/interpreter/link.c b/ghc/interpreter/link.c
index 52bfcb8..e9fb95f 100644
--- a/ghc/interpreter/link.c
+++ b/ghc/interpreter/link.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: link.c,v $
- * $Revision: 1.9 $
- * $Date: 1999/10/15 21:40:51 $
+ * $Revision: 1.10 $
+ * $Date: 1999/10/29 00:53:25 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -541,7 +541,9 @@ Int what; {
 
                        /* deriving                              */
                        pFun(nameApp,            "++");
+                       pFun(nameReadField,      "readField");
                        pFun(nameReadParen,      "readParen");
+                       pFun(nameShowField,      "showField");
                        pFun(nameShowParen,      "showParen");
                        pFun(nameLex,            "lex");
                        pFun(nameEnToEn,         "toEnumPR"); //not sure
-- 
1.7.10.4