Remove Control.Parallel*, now in package parallel

[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.List       ( intersperse )
+import Data.List       ( intersperse, sort )
 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 
-               && 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