From 2d74238376e28afe2585674d78391ef0e8092ea4 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 10 May 1999 13:13:18 +0000
Subject: [PATCH] [project @ 1999-05-10 13:13:18 by sof] yet another bugfix to
 the 'deriving Read' code

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

diff --git a/ghc/compiler/typecheck/TcGenDeriv.lhs b/ghc/compiler/typecheck/TcGenDeriv.lhs
index bb27993..b043f7d 100644
--- a/ghc/compiler/typecheck/TcGenDeriv.lhs
+++ b/ghc/compiler/typecheck/TcGenDeriv.lhs
@@ -847,7 +847,7 @@ gen_Read_binds fixities tycon
 						as_needed bs_needed))
               | otherwise =
 		  snd $
-		  mapAccumL mk_qual c_Expr
+		  mapAccumL mk_qual d_Expr
 			(zipEqual "bs_needed"	     
 			   ((str_qual "{":
 			     concat (
-- 
1.7.10.4