[project @ 2000-06-28 11:28:27 by simonmar]

add missing default case for Eq (TyClDecl name pat)

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index 1c3c8d4..4e6c2b4 100644 (file)
--- 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