2020-01-11 21:15:05 +01:00
|
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
module GHCup.Version where
|
|
|
|
|
|
|
|
|
|
import GHCup.Utils.Version.QQ
|
|
|
|
|
|
|
|
|
|
import Data.Versions
|
2020-04-09 16:59:25 +02:00
|
|
|
import URI.ByteString
|
|
|
|
|
import URI.ByteString.QQ
|
|
|
|
|
|
2020-04-17 16:56:56 +02:00
|
|
|
import qualified Data.Text as T
|
|
|
|
|
|
2020-04-09 20:36:03 +02:00
|
|
|
-- | This reflects the API version of the JSON.
|
2020-04-09 16:59:25 +02:00
|
|
|
ghcupURL :: URI
|
|
|
|
|
ghcupURL = [uri|https://www.haskell.org/ghcup/data/ghcup-0.0.1.json|]
|
2020-01-11 21:15:05 +01:00
|
|
|
|
|
|
|
|
ghcUpVer :: PVP
|
2020-04-16 09:04:19 +02:00
|
|
|
ghcUpVer = [pver|0.1.4|]
|
2020-04-17 16:56:56 +02:00
|
|
|
|
|
|
|
|
numericVer :: String
|
|
|
|
|
numericVer = T.unpack . prettyPVP $ ghcUpVer
|
