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