ref: 3336e0765c952f6fa7435b216e93b96fb038b414
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