Commit 9cf07963 authored by simonmar's avatar simonmar

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

add missing default case for Eq (TyClDecl name pat)
parent a71f8523
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment