Commit 3032c5d5 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-06-16 08:53:10 by simonmar]

instance Eq (HsDecl name pat) : add default case
parent cc0a715a
......@@ -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}
......
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