From: simonmar <unknown>
Date: Fri, 16 Jun 2000 08:53:10 +0000 (+0000)
Subject: [project @ 2000-06-16 08:53:10 by simonmar]
X-Git-Tag: Approximately_9120_patches~4186
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3032c5d5262fbba05e0a482c9f306fdca5e363aa;p=ghc-hetmet.git

[project @ 2000-06-16 08:53:10 by simonmar]
instance Eq (HsDecl name pat) : add default case
---

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index aed17b2..5267681 100644
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -116,8 +116,9 @@ instance (Outputable name, Outputable pat)
 instance Ord name => Eq (HsDecl name pat) where
 	-- Used only when comparing interfaces, 
 	-- at which time only signature and type/class decls
-   (SigD s1)  == (SigD s2) = s1 == s2
+   (SigD s1)  == (SigD s2)  = s1 == s2
    (TyClD d1) == (TyClD d2) = d1 == d2
+   _          == _          = False
 \end{code}