@@ -16,6 +16,7 @@ import Data.Function (on)
1616import qualified Data.HashMap.Strict as Map
1717import Data.List (nub, sort)
1818import Data.Monoid
19+import Data.Ord
1920import Data.Text (Text)
2021import qualified Data.Text as Text
2122import qualified Data.Text.Lazy as LText
@@ -63,7 +64,9 @@ instance Eq Spec where
6364 (==) = on (==) _specPrefix
6465
6566instance Ord Spec where
66− compare a b = on compare _specPrefix a b <> on compare _specVersion a b
67+ compare a b =
68+ on compare _specPrefix a b
69+ <> on compare (Down . _specVersion) a b
6770
6871specFromPath :: Path -> Spec
6972specFromPath x = Spec (n <> v) p v x