ghcup-hs/lib/GHCup/Version.hs

50 lines
1.5 KiB
Haskell
Raw Permalink Normal View History

2020-01-11 20:15:05 +00:00
{-# LANGUAGE QuasiQuotes #-}
2020-07-21 23:08:58 +00:00
{-|
Module : GHCup.Version
Description : Version information and version handling.
2020-07-21 23:08:58 +00:00
Copyright : (c) Julian Ospald, 2020
2020-07-30 18:04:02 +00:00
License : LGPL-3.0
2020-07-21 23:08:58 +00:00
Maintainer : hasufell@hasufell.de
Stability : experimental
2021-05-14 21:09:45 +00:00
Portability : portable
2020-07-21 23:08:58 +00:00
-}
2020-01-11 20:15:05 +00:00
module GHCup.Version where
import GHCup.Types
2021-02-25 14:33:52 +00:00
import Paths_ghcup (version)
2020-01-11 20:15:05 +00:00
2021-02-25 14:33:52 +00:00
import Data.Version (Version(versionBranch))
import Data.Versions hiding (version)
import URI.ByteString
import URI.ByteString.QQ
2021-02-25 14:33:52 +00:00
import qualified Data.List.NonEmpty as NE
2020-04-17 14:56:56 +00:00
import qualified Data.Text as T
2020-08-09 15:39:02 +00:00
-- | This reflects the API version of the YAML.
ghcupURL :: URI
ghcupURL = [uri|https://www.haskell.org/ghcup/data/ghcup-0.0.6.yaml|]
2020-01-11 20:15:05 +00:00
2020-08-09 15:39:02 +00:00
-- | The current ghcup version.
2020-01-11 20:15:05 +00:00
ghcUpVer :: PVP
2021-02-25 14:33:52 +00:00
ghcUpVer = PVP . NE.fromList . fmap fromIntegral $ versionBranch version
2020-04-17 14:56:56 +00:00
2020-07-21 23:08:58 +00:00
-- | ghcup version as numeric string.
2020-04-17 14:56:56 +00:00
numericVer :: String
numericVer = T.unpack . prettyPVP $ ghcUpVer
versionCmp :: Versioning -> VersionCmp -> Bool
versionCmp ver1 (VR_gt ver2) = ver1 > ver2
versionCmp ver1 (VR_gteq ver2) = ver1 >= ver2
versionCmp ver1 (VR_lt ver2) = ver1 < ver2
versionCmp ver1 (VR_lteq ver2) = ver1 <= ver2
versionCmp ver1 (VR_eq ver2) = ver1 == ver2
versionRange :: Versioning -> VersionRange -> Bool
versionRange ver' (SimpleRange cmps) = and $ fmap (versionCmp ver') cmps
versionRange ver' (OrRange cmps range) =
versionRange ver' (SimpleRange cmps) || versionRange ver' range