projects
/
haskell-directory.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add System.Posix.Types to default nhc98 build
[haskell-directory.git]
/
Data
/
Version.hs
diff --git
a/Data/Version.hs
b/Data/Version.hs
index
c52d21c
..
1b02c6f
100644
(file)
--- a/
Data/Version.hs
+++ b/
Data/Version.hs
@@
-51,7
+51,7
@@
import Data.Dynamic ( Typeable(..), TyCon, mkTyCon, mkAppTy )
import Data.Typeable ( Typeable )
#endif
import Data.Typeable ( Typeable )
#endif
-import Data.List ( intersperse )
+import Data.List ( intersperse, sort )
import Control.Monad ( liftM )
import Data.Char ( isDigit, isAlphaNum )
import Control.Monad ( liftM )
import Data.Char ( isDigit, isAlphaNum )
@@
-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