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