23 lines
501 B
Haskell
23 lines
501 B
Haskell
{-# LANGUAGE QuasiQuotes #-}
|
|
|
|
|
|
module GHCup.Version where
|
|
|
|
import GHCup.Utils.Version.QQ
|
|
|
|
import Data.Versions
|
|
import URI.ByteString
|
|
import URI.ByteString.QQ
|
|
|
|
import qualified Data.Text as T
|
|
|
|
-- | This reflects the API version of the JSON.
|
|
ghcupURL :: URI
|
|
ghcupURL = [uri|https://www.haskell.org/ghcup/data/ghcup-0.0.2.json|]
|
|
|
|
ghcUpVer :: PVP
|
|
ghcUpVer = [pver|0.1.4|]
|
|
|
|
numericVer :: String
|
|
numericVer = T.unpack . prettyPVP $ ghcUpVer
|