mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 04:24:35 +03:00
71af68e9e5
The only real use was for the dubious multitenant option --consoleAssetsVersion, which actually overrode not just the assets version. I.e., as far as I can tell, if you pass --consoleAssetsVersion to multitenant, that version will also make it into e.g. HTTP client user agent headers as the proper graphql-engine version. I'm dropping that option, since it seems unused in production and I don't want to go to the effort of fixing it, but am happy to look into that if folks feels strongly that it should be kept. (Reason for attacking this is that I was looking into http client things around blacklisting, and the versioning thing is a bit painful around http client headers.) PR-URL: https://github.com/hasura/graphql-engine-mono/pull/2458 GitOrigin-RevId: a02b05557124bdba9f65e96b3aa2746aeee03f4a
66 lines
2.1 KiB
Haskell
66 lines
2.1 KiB
Haskell
module Hasura.Server.CheckUpdates
|
|
( checkForUpdates,
|
|
)
|
|
where
|
|
|
|
import CI qualified
|
|
import Control.Concurrent.Extended qualified as C
|
|
import Control.Exception (try)
|
|
import Control.Lens
|
|
import Data.Aeson qualified as A
|
|
import Data.Aeson.Casing qualified as A
|
|
import Data.Aeson.TH qualified as A
|
|
import Data.Either (fromRight)
|
|
import Data.Text qualified as T
|
|
import Data.Text.Conversions (toText)
|
|
import Hasura.HTTP
|
|
import Hasura.Logging (LoggerCtx (..))
|
|
import Hasura.Prelude
|
|
import Hasura.Server.Version (Version, currentVersion)
|
|
import Network.HTTP.Client qualified as H
|
|
import Network.URI.Encode qualified as URI
|
|
import Network.Wreq qualified as Wreq
|
|
import System.Log.FastLogger qualified as FL
|
|
|
|
newtype UpdateInfo = UpdateInfo
|
|
{ _uiLatest :: Version
|
|
}
|
|
deriving (Show)
|
|
|
|
-- note that this is erroneous and should drop three characters or use
|
|
-- aesonPrefix, but needs to remain like this for backwards compatibility
|
|
$(A.deriveJSON (A.aesonDrop 2 A.snakeCase) ''UpdateInfo)
|
|
|
|
checkForUpdates :: LoggerCtx a -> H.Manager -> IO void
|
|
checkForUpdates (LoggerCtx loggerSet _ _ _) manager = do
|
|
let options = wreqOptions manager []
|
|
url <- getUrl
|
|
forever $ do
|
|
resp <- try $ Wreq.getWith options $ T.unpack url
|
|
case resp of
|
|
Left ex -> ignoreHttpErr ex
|
|
Right bs -> do
|
|
UpdateInfo latestVersion <- decodeResp $ bs ^. Wreq.responseBody
|
|
when (latestVersion /= currentVersion) $
|
|
FL.pushLogStrLn loggerSet $ FL.toLogStr $ updateMsg latestVersion
|
|
|
|
C.sleep $ days 1
|
|
where
|
|
updateMsg v = "Update: A new version is available: " <> toText v
|
|
getUrl = do
|
|
let buildUrl agent =
|
|
"https://releases.hasura.io/graphql-engine?agent="
|
|
<> agent
|
|
<> "&version="
|
|
<> URI.encodeText (toText currentVersion)
|
|
ciM <- CI.getCI
|
|
return . buildUrl $ case ciM of
|
|
Nothing -> "server"
|
|
Just ci -> "server-" <> T.toLower (tshow ci)
|
|
|
|
-- ignoring if there is any error in response and returning the current version
|
|
decodeResp = pure . fromRight (UpdateInfo currentVersion) . A.eitherDecode
|
|
|
|
ignoreHttpErr :: H.HttpException -> IO ()
|
|
ignoreHttpErr _ = return ()
|