From 3032c5d5262fbba05e0a482c9f306fdca5e363aa Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 16 Jun 2000 08:53:10 +0000
Subject: [PATCH] [project @ 2000-06-16 08:53:10 by simonmar] instance Eq
(HsDecl name pat) : add default case
---
ghc/compiler/hsSyn/HsDecls.lhs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index aed17b2e5b64..5267681cae8b 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}
--
GitLab