diff options
| author | simonmar <unknown> | 2005-07-08 12:22:02 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-07-08 12:22:02 +0000 |
| commit | 0d0409f4a5e1be067a4ddb488d312b38086a0bb0 (patch) | |
| tree | 5ad47fb5b725f2346d00aa3688604d78c2ec231c /libraries/base/Data/Version.hs | |
| parent | 858a97b5b7af0628f86ad846df6b0760daba3716 (diff) | |
| download | haskell-0d0409f4a5e1be067a4ddb488d312b38086a0bb0.tar.gz | |
[project @ 2005-07-08 12:22:02 by simonmar]
Fix instance Eq Version
Diffstat (limited to 'libraries/base/Data/Version.hs')
| -rw-r--r-- | libraries/base/Data/Version.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/Data/Version.hs b/libraries/base/Data/Version.hs index c52d21c6e6..d82fc3a072 100644 --- a/libraries/base/Data/Version.hs +++ b/libraries/base/Data/Version.hs @@ -120,8 +120,8 @@ instance Typeable Version where 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 |