From 8af88215dac4112d2b0090d2804cd26033cb8f69 Mon Sep 17 00:00:00 2001
From: quintela <unknown>
Date: Tue, 2 Dec 1997 18:03:56 +0000
Subject: [PATCH] [project @ 1997-12-02 18:03:56 by quintela] HsLit instance
 of Eq; need by Check

---
 ghc/compiler/hsSyn/HsBasic.lhs |    3 +++
 1 file changed, 3 insertions(+)

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)
-- 
1.7.10.4