From: simonmar <unknown>
Date: Fri, 8 Jul 2005 12:22:02 +0000 (+0000)
Subject: [project @ 2005-07-08 12:22:02 by simonmar]
X-Git-Tag: cmm-merge2~63
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d47c54ba6d29ee73830621724855fc69ebbfd0f8;p=ghc-base.git

[project @ 2005-07-08 12:22:02 by simonmar]
Fix instance Eq Version
---

diff --git a/Data/Version.hs b/Data/Version.hs
index c52d21c..d82fc3a 100644
--- 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 
-		&& 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