ref: 8550d88e9a32963637f0e15becb6ec4ed13fdba6
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