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 29fcce384989..afe2516b8362 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)
--
GitLab