[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 (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 
-               && 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