From: sof <unknown>
Date: Mon, 10 May 1999 13:13:18 +0000 (+0000)
Subject: [project @ 1999-05-10 13:13:18 by sof]
X-Git-Tag: Approximately_9120_patches~6236
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2d74238376e28afe2585674d78391ef0e8092ea4;p=ghc-hetmet.git

[project @ 1999-05-10 13:13:18 by sof]
yet another bugfix to the 'deriving Read' code
---

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 (