module Distribution.Cab.Version (
Ver
, toVer
, toVersion
, verToString
, version
, versionToString
) where
import Distribution.Cab.Utils
import Distribution.Version
newtype Ver = Ver [Int] deriving (Eq,Ord,Read,Show)
toVer :: [Int] -> Ver
toVer is = Ver is
toVersion :: [Int] -> Version
#if MIN_VERSION_Cabal(2,0,0)
toVersion is = mkVersion is
#else
toVersion is = Version is []
#endif
verToString :: Ver -> String
verToString (Ver ver) = toDotted ver
version :: Version -> Ver
#if MIN_VERSION_Cabal(2,0,0)
version = Ver . versionNumbers
#else
version = Ver . versionBranch
#endif
versionToString :: Version -> String
versionToString = verToString . version