[project @ 1997-12-02 18:03:56 by quintela]

[ghc-hetmet.git] / ghc / compiler / hsSyn / HsBasic.lhs

diff --git a/ghc/compiler/hsSyn/HsBasic.lhs b/ghc/compiler/hsSyn/HsBasic.lhs
index 29fcce3..afe2516 100644 (file)
--- 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)