beb9787 · elk · git.iko.soy

git.iko.soy/elk

on master help sign in

Move version filtering out of Elm.Version

beb9787Evan Czaplicki8 years ago

compiler/src/Elm/Version.hs−18

compare with master

unifiedsplit

@@ -6,8 +6,6 @@ module Elm.Version

6 , bumpPatch

7 , bumpMinor

8 , bumpMajor

9− , filterLatest

10− , majorAndMinor

11 , toChars

9 , toChars

12 , toString

10 , toString

13 , fromString

11 , fromString

@@ -20,8 +18,6 @@ module Elm.Version

20import Prelude hiding (max)

18import Prelude hiding (max)

21import Control.Monad (liftM, liftM3)

19import Control.Monad (liftM, liftM3)

22import Data.Binary (Binary, get, put, getWord8, putWord8)

20import Data.Binary (Binary, get, put, getWord8, putWord8)

23−import Data.Function (on)

24−import qualified Data.List as List

25import qualified Data.Utf8 as Utf8

21import qualified Data.Utf8 as Utf8

26import qualified Data.Version as Version

22import qualified Data.Version as Version

27import Data.Word (Word16)

23import Data.Word (Word16)

@@ -90,20 +86,6 @@ bumpMajor (Version major _minor _patch) =

93−-- FILTERING

94−

95−

96−filterLatest :: (Ord a) => (Version -> a) -> [Version] -> [Version]

97−filterLatest characteristic versions =

98− map last (List.groupBy ((==) `on` characteristic) (List.sort versions))

99−

100−

101−majorAndMinor :: Version -> ( Int, Int )

102−majorAndMinor (Version major minor _patch) =

103− ( fromIntegral major, fromIntegral minor )

104−

105−

106−

107-- TO STRING

89-- TO STRING

108

109