mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 04:24:35 +03:00
e47a8c4b86
- Move MonadBase/MonadBaseControl instances for TxE into pg-client-hs - Set the -qn2 RTS option by default to limit the parallel GC to 2 threads - Remove eventlog instrumentation - Don’t rebuild the schema cache again after running a query that needs it to be rebuilt, since we do that explicitly now. - Remove some redundant checks, and relocate a couple others.
62 lines
1.7 KiB
Haskell
62 lines
1.7 KiB
Haskell
{-# OPTIONS_GHC -fforce-recomp #-}
|
|
module Hasura.Server.Version
|
|
( currentVersion
|
|
, consoleVersion
|
|
, isDevVersion
|
|
)
|
|
where
|
|
|
|
import Control.Lens ((^.), (^?))
|
|
import Data.Either (isLeft)
|
|
|
|
import qualified Data.SemVer as V
|
|
import qualified Data.Text as T
|
|
|
|
import Hasura.Prelude
|
|
import Hasura.Server.Utils (getValFromEnvOrScript)
|
|
|
|
version :: T.Text
|
|
version = T.dropWhileEnd (== '\n')
|
|
$(getValFromEnvOrScript "VERSION" "../scripts/get-version.sh")
|
|
|
|
parsedVersion :: Either String V.Version
|
|
parsedVersion = V.fromText $ T.dropWhile (== 'v') version
|
|
|
|
currentVersion :: T.Text
|
|
currentVersion = version
|
|
|
|
isDevVersion :: Bool
|
|
isDevVersion = isLeft parsedVersion
|
|
|
|
rawVersion :: T.Text
|
|
rawVersion = "versioned/" <> version
|
|
|
|
consoleVersion :: T.Text
|
|
consoleVersion = case parsedVersion of
|
|
Left _ -> rawVersion
|
|
Right v -> mkConsoleV v
|
|
|
|
mkConsoleV :: V.Version -> T.Text
|
|
mkConsoleV v = case getReleaseChannel v of
|
|
Nothing -> rawVersion
|
|
Just c -> T.pack $ "channel/" <> c <> "/" <> vMajMin
|
|
where
|
|
vMajMin = "v" <> show (v ^. V.major) <> "." <> show (v ^. V.minor)
|
|
|
|
getReleaseChannel :: V.Version -> Maybe String
|
|
getReleaseChannel sv = case sv ^. V.release of
|
|
[] -> Just "stable"
|
|
(mr:_) -> case getTextFromId mr of
|
|
Nothing -> Nothing
|
|
Just r -> if
|
|
| "alpha" `T.isPrefixOf` r -> Just "alpha"
|
|
| "beta" `T.isPrefixOf` r -> Just "beta"
|
|
| "rc" `T.isPrefixOf` r -> Just "rc"
|
|
| otherwise -> Nothing
|
|
|
|
getTextFromId :: V.Identifier -> Maybe T.Text
|
|
getTextFromId i = Just i ^? (toTextualM . V._Textual)
|
|
where
|
|
toTextualM _ Nothing = pure Nothing
|
|
toTextualM f (Just a) = f a
|