Version.hs

{-# LANGUAGE CPP #-}
-- |
-- Module: Staversion.Internal.Version
-- Description: Compatibility wrapper for Distribution.Version etc. from Cabal package
-- Maintainer: Toshio Ito <debug.ito@gmail.com>
--
-- __This is an internal module. End-users should not use it.__
module Staversion.Internal.Version
       ( -- * Re-exports
         V.Version,
         V.VersionRange,
         V.LowerBound(..),
         V.UpperBound(..),
         V.Bound(..),
         V.VersionInterval,
         V.thisVersion,
         V.unionVersionRanges,
         V.simplifyVersionRange,
         V.fromVersionIntervals,
         V.asVersionIntervals,
         -- * Compatibility
         mkVersion,
         mkVersionIntervals,
         versionNumbers,
         docVersionRange,
         -- * Util
         BaseVersion,
         showBaseVersion,
         parseVersionText
       ) where

import Data.Maybe (listToMaybe, fromJust)
import Data.Text (Text, unpack)

#if MIN_VERSION_Cabal(2,2,0)

#if MIN_VERSION_Cabal(3,6,0)
import qualified Distribution.Types.VersionInterval.Legacy as V
#else
import qualified Distribution.Types.VersionInterval as V
#endif

import qualified Distribution.Version as V (simplifyVersionRange)
import qualified Distribution.Types.Version as V
import qualified Distribution.Types.VersionRange as V
import qualified Distribution.Pretty as DP

#else

import qualified Distribution.Version as V
import qualified Distribution.Text as DT

#endif

import Data.Version (parseVersion)
import qualified Data.Version as BaseV
import Text.ParserCombinators.ReadP (readP_to_S)
import Text.PrettyPrint (Doc)

-- | A Version type by "Data.Version".
type BaseVersion = BaseV.Version

showBaseVersion :: BaseVersion -> String
showBaseVersion = BaseV.showVersion

baseVToV :: BaseV.Version -> V.Version
baseVToV = mkVersion . BaseV.versionBranch

-- | Parse a version text. There must not be any trailing characters
-- after a valid version text.
parseVersionText :: Text -> Maybe V.Version
parseVersionText = extractResult . (readP_to_S parseVersion) . unpack where
  extractResult = fmap baseVToV . listToMaybe . map fst . filter (\pair -> snd pair == "")

#if MIN_VERSION_Cabal(2,0,0)
mkVersion :: [Int] -> V.Version
mkVersion = V.mkVersion

versionNumbers :: V.Version -> [Int]
versionNumbers = V.versionNumbers

#else

mkVersion :: [Int] -> V.Version
mkVersion vs = V.Version vs []

versionNumbers :: V.Version -> [Int]
versionNumbers = V.versionBranch

#endif

#if MIN_VERSION_Cabal(2,2,0)

mkVersionIntervals :: [V.VersionInterval] -> V.VersionIntervals
mkVersionIntervals = V.mkVersionIntervals

#else

mkVersionIntervals :: [V.VersionInterval] -> V.VersionIntervals
mkVersionIntervals = fromJust . V.mkVersionIntervals

#endif


#if MIN_VERSION_Cabal(2,2,0)
docVersionRange :: V.VersionRange -> Doc
docVersionRange = DP.pretty
#else
docVersionRange :: V.VersionRange -> Doc
docVersionRange = DT.disp
#endif