git.iko.soy/gogol
on develop help sign in
Ensuring latest version of a service definition is used
58c807cBrendan Hay
gen/src/Gen/Types.hs+4−1
compare with develop
unifiedsplit
@@ -16,6 +16,7 @@ import Data.Function (on)
16import qualified Data.HashMap.Strict as Map
16import qualified Data.HashMap.Strict as Map
17import Data.List (nub, sort)
17import Data.List (nub, sort)
18import Data.Monoid
18import Data.Monoid
19+import Data.Ord
19import Data.Text (Text)
20import Data.Text (Text)
20import qualified Data.Text as Text
21import qualified Data.Text as Text
21import qualified Data.Text.Lazy as LText
22import qualified Data.Text.Lazy as LText
@@ -63,7 +64,9 @@ instance Eq Spec where
63 (==) = on (==) _specPrefix
64 (==) = on (==) _specPrefix
64
65
65instance Ord Spec where
66instance Ord Spec where
67+ compare a b =
66− compare a b = on compare _specPrefix a b <> on compare _specVersion a b
68+ on compare _specPrefix a b
69+ <> on compare (Down . _specVersion) a b
67
70
68specFromPath :: Path -> Spec
71specFromPath :: Path -> Spec
69specFromPath x = Spec (n <> v) p v x
72specFromPath x = Spec (n <> v) p v x