From 9cf0796366586e7cce895105f2715510ba88a4d4 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 28 Jun 2000 11:28:27 +0000
Subject: [PATCH] [project @ 2000-06-28 11:28:27 by simonmar] add missing
default case for Eq (TyClDecl name pat)
---
ghc/compiler/hsSyn/HsDecls.lhs | 3 +++
1 file changed, 3 insertions(+)
diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index 1c3c8d41fe8b..4e6c2b422000 100644
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -185,6 +185,9 @@ instance Ord name => Eq (TyClDecl name pat) where
eqListBy (eq_cls_sig env) sigs1 sigs2
)
+ (==) _ _ = False -- default case
+
+
eq_hsFD env (ns1,ms1) (ns2,ms2)
= eqListBy (eq_hsVar env) ns1 ns2 && eqListBy (eq_hsVar env) ms1 ms2
--
GitLab