From: quintela <unknown>
Date: Tue, 2 Dec 1997 18:03:56 +0000 (+0000)
Subject: [project @ 1997-12-02 18:03:56 by quintela]
X-Git-Tag: Approx_2487_patches~1214
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8af88215dac4112d2b0090d2804cd26033cb8f69;p=ghc-hetmet.git

[project @ 1997-12-02 18:03:56 by quintela]
HsLit instance of Eq; need by Check
---

diff --git a/ghc/compiler/hsSyn/HsBasic.lhs b/ghc/compiler/hsSyn/HsBasic.lhs
index 29fcce3..afe2516 100644
--- a/ghc/compiler/hsSyn/HsBasic.lhs
+++ b/ghc/compiler/hsSyn/HsBasic.lhs
@@ -48,8 +48,11 @@ data HsLit
 				-- also: "overloaded" type; but
 				-- must resolve to boxed-primitive!
 				-- (WDP 94/10)
+	deriving Eq
 \end{code}
 
+ToDo: an improved Eq instance JJQC 30-Nov-1997
+
 \begin{code}
 negLiteral (HsInt  i) = HsInt  (-i)
 negLiteral (HsFrac f) = HsFrac (-f)