projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
cc0a715
)
[project @ 2000-06-16 08:53:10 by simonmar]
author
simonmar
<unknown>
Fri, 16 Jun 2000 08:53:10 +0000
(08:53 +0000)
committer
simonmar
<unknown>
Fri, 16 Jun 2000 08:53:10 +0000
(08:53 +0000)
instance Eq (HsDecl name pat) : add default case
ghc/compiler/hsSyn/HsDecls.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/hsSyn/HsDecls.lhs
b/ghc/compiler/hsSyn/HsDecls.lhs
index
aed17b2
..
5267681
100644
(file)
--- 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}