From db2da00e8722919ecfbda79fe536af86b8bf045e Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 25 Aug 1997 22:31:23 +0000
Subject: [PATCH] [project @ 1997-08-25 22:31:23 by sof] fixed SLIT cpp buglet
---
ghc/compiler/typecheck/TcGenDeriv.lhs | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/ghc/compiler/typecheck/TcGenDeriv.lhs b/ghc/compiler/typecheck/TcGenDeriv.lhs
index 14cf7a0e651a..dde873ef589f 100644
--- a/ghc/compiler/typecheck/TcGenDeriv.lhs
+++ b/ghc/compiler/typecheck/TcGenDeriv.lhs
@@ -640,8 +640,6 @@ gen_Ix_binds tycon
= mk_easy_FunMonoBind tycon_loc index_RDR [TuplePatIn [con_pat as_needed, con_pat bs_needed], con_pat cs_needed] [range_size] (
foldl mk_index (HsLit (HsInt 0)) (zip3 as_needed bs_needed cs_needed))
where
- mk_index (HsLit (HsInt 0)) (l, u, i) -- optim.
- = HsApp (HsApp (HsVar index_RDR) (ExplicitTuple [HsVar l, HsVar u])) (HsVar i)
mk_index multiply_by (l, u, i)
= genOpApp (
(HsApp (HsApp (HsVar index_RDR) (ExplicitTuple [HsVar l, HsVar u])) (HsVar i))
@@ -742,7 +740,7 @@ gen_Read_binds tycon
(zipEqual "bs_needed"
((str_qual (SLIT("{")):
concat (
- intersperse ([str_qual SLIT(",")]) $
+ intersperse ([str_qual (_CONS_ ',' _NIL_)]) $
zipWithEqual
"field_quals"
(\ as b -> as ++ [b])
--
GitLab