mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 13:02:11 +03:00
34e40e6caf
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/8429 GitOrigin-RevId: e543b608a91e0c39c39f06b772a7d43f360d5dc3
53 lines
1.8 KiB
Haskell
53 lines
1.8 KiB
Haskell
-- | 'get_feature_flag' Metadata API action. Given a feature flag
|
|
-- identifier, it returns the value of the flag and its description.
|
|
module Hasura.RQL.DDL.FeatureFlag
|
|
( -- * Get Feature Flag
|
|
GetFeatureFlag (..),
|
|
runGetFeatureFlag,
|
|
)
|
|
where
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
--------------------------------------------------------------------------------
|
|
import Data.Aeson (FromJSON, (.:), (.=))
|
|
import Data.Aeson qualified as Aeson
|
|
import Data.HashMap.Strict qualified as HashMap
|
|
import Hasura.Base.Error qualified as Error
|
|
import Hasura.EncJSON (EncJSON)
|
|
import Hasura.EncJSON qualified as EncJSON
|
|
import Hasura.Prelude
|
|
import Hasura.Server.Init.FeatureFlag qualified as FeatureFlag
|
|
import Hasura.Server.Types qualified as Types
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
newtype GetFeatureFlag = GetFeatureFlag {gfgIdentifier :: Text}
|
|
|
|
instance FromJSON GetFeatureFlag where
|
|
parseJSON = Aeson.withObject "GetFeatureFlag" \o -> do
|
|
gfgIdentifier <- o .: "identifier"
|
|
pure $ GetFeatureFlag {..}
|
|
|
|
runGetFeatureFlag ::
|
|
( MonadError Error.QErr m,
|
|
Types.HasServerConfigCtx m,
|
|
MonadIO m
|
|
) =>
|
|
GetFeatureFlag ->
|
|
m EncJSON
|
|
runGetFeatureFlag GetFeatureFlag {..} = do
|
|
Types.CheckFeatureFlag getFeatureFlag <- Types._sccCheckFeatureFlag <$> Types.askServerConfigCtx
|
|
let flagM = HashMap.lookup gfgIdentifier $ FeatureFlag.getFeatureFlags $ FeatureFlag.featureFlags
|
|
case flagM of
|
|
Nothing -> Error.throw400 Error.NotFound $ "Feature Flag '" <> gfgIdentifier <> "' not found"
|
|
Just flag -> do
|
|
flagValue <- liftIO $ getFeatureFlag flag
|
|
pure $
|
|
EncJSON.encJFromJValue $
|
|
Aeson.object
|
|
[ "identifier" .= gfgIdentifier,
|
|
"value" .= flagValue,
|
|
"description" .= FeatureFlag.ffDescription flag
|
|
]
|