projects
/
haskell-directory.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d3547c6
)
[project @ 2005-07-08 12:22:02 by simonmar]
author
simonmar
<unknown>
Fri, 8 Jul 2005 12:22:02 +0000
(12:22 +0000)
committer
simonmar
<unknown>
Fri, 8 Jul 2005 12:22:02 +0000
(12:22 +0000)
Fix instance Eq Version
Data/Version.hs
patch
|
blob
|
history
diff --git
a/Data/Version.hs
b/Data/Version.hs
index
c52d21c
..
d82fc3a
100644
(file)
--- a/
Data/Version.hs
+++ b/
Data/Version.hs
@@
-120,8
+120,8
@@
instance Typeable Version where
instance Eq Version where
v1 == v2 = versionBranch v1 == versionBranch v2
instance Eq Version where
v1 == v2 = versionBranch v1 == versionBranch v2
- && all (`elem` (versionTags v2)) (versionTags v1)
- -- tags may be in any order
+ && sort (versionTags v1) == sort (versionTags v2)
+ -- tags may be in any order
instance Ord Version where
v1 `compare` v2 = versionBranch v1 `compare` versionBranch v2
instance Ord Version where
v1 `compare` v2 = versionBranch v1 `compare` versionBranch v2