@@ -6,8 +6,6 @@ module Elm.Version
66 , bumpPatch
77 , bumpMinor
88 , bumpMajor
9− , filterLatest
10− , majorAndMinor
119 , toChars
1210 , toString
1311 , fromString
@@ -20,8 +18,6 @@ module Elm.Version
2018import Prelude hiding (max)
2119import Control.Monad (liftM, liftM3)
2220import Data.Binary (Binary, get, put, getWord8, putWord8)
23−import Data.Function (on)
24−import qualified Data.List as List
2521import qualified Data.Utf8 as Utf8
2622import qualified Data.Version as Version
2723import Data.Word (Word16)
@@ -90,20 +86,6 @@ bumpMajor (Version major _minor _patch) =
9086
9187
9288
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−
10789-- TO STRING
10890
10991