8ea5f3ff99
Eliminated some dead code. In other cases, exported a currently unused function, since it was a logical part of the API. Of course this improves the API documentation. It may also sometimes let ghc optimize code better, since it can know a function is internal to a module. 364 modules still to go, according to git grep -E 'module [A-Za-z.]+ where'
45 lines
1.1 KiB
Haskell
45 lines
1.1 KiB
Haskell
{- dotted versions, such as 1.0.1
|
|
-
|
|
- Copyright 2011-2014 Joey Hess <id@joeyh.name>
|
|
-
|
|
- License: BSD-2-clause
|
|
-}
|
|
|
|
{-# OPTIONS_GHC -fno-warn-tabs #-}
|
|
|
|
module Utility.DottedVersion (
|
|
DottedVersion,
|
|
fromDottedVersion,
|
|
normalize,
|
|
) where
|
|
|
|
import Common
|
|
|
|
data DottedVersion = DottedVersion String Integer
|
|
deriving (Eq)
|
|
|
|
instance Ord DottedVersion where
|
|
compare (DottedVersion _ x) (DottedVersion _ y) = compare x y
|
|
|
|
instance Show DottedVersion where
|
|
show = fromDottedVersion
|
|
|
|
fromDottedVersion :: DottedVersion -> String
|
|
fromDottedVersion (DottedVersion s _) = s
|
|
|
|
{- To compare dotted versions like 1.7.7 and 1.8, they are normalized to
|
|
- a somewhat arbitrary integer representation. -}
|
|
normalize :: String -> DottedVersion
|
|
normalize v = DottedVersion v $
|
|
sum $ mult 1 $ reverse $ extend precision $ take precision $
|
|
map readi $ splitc '.' v
|
|
where
|
|
extend n l = l ++ replicate (n - length l) 0
|
|
mult _ [] = []
|
|
mult n (x:xs) = (n*x) : mult (n*10^width) xs
|
|
readi :: String -> Integer
|
|
readi s = case reads s of
|
|
((x,_):_) -> x
|
|
_ -> 0
|
|
precision = 10 -- number of segments of the version to compare
|
|
width = length "yyyymmddhhmmss" -- maximum width of a segment
|