ref: f7223e89e63a69b557ab4287128d1ec6ef5190c9
dir: /lib/Data/Version.hs/
module Data.Version(
Version(..),
showVersion,
makeVersion
) where
data Version = Version { versionBranch :: [Int] }
deriving (Show, Eq, Ord)
showVersion :: Version -> String
showVersion (Version b) = intercalate "." (map show b)
{-
parseVersion :: ReadP Version
parseVersion = do branch <- sepBy1 (fmap read (munch1 isDigit)) (char '.')
pure Version{versionBranch=branch}
-}
makeVersion :: [Int] -> Version
makeVersion b = Version b