diff --git a/ghc/compiler/hsSyn/HsBasic.lhs b/ghc/compiler/hsSyn/HsBasic.lhs
index 29fcce384989aef5934308ad4faf53bd396d530d..afe2516b8362d6e958dada980544b91b9d140f58 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)