mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-19 13:31:43 +03:00
ca85acbfe3
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/3782 Co-authored-by: Abhijeet Khangarot <26903230+abhi40308@users.noreply.github.com> GitOrigin-RevId: 404197e766efa94a1814e8a0287cd55d9175f2a7
80 lines
3.0 KiB
Haskell
80 lines
3.0 KiB
Haskell
{-# LANGUAGE ApplicativeDo #-}
|
|
{-# LANGUAGE DeriveAnyClass #-}
|
|
|
|
module Hasura.RQL.DDL.Webhook.Transform.QueryParams
|
|
( -- * Query transformations
|
|
QueryParams (..),
|
|
TransformFn (..),
|
|
|
|
-- ** Method Transformation Action
|
|
QueryParamsTransformAction (..),
|
|
)
|
|
where
|
|
|
|
-------------------------------------------------------------------------------
|
|
|
|
import Data.Aeson qualified as J
|
|
import Data.HashMap.Strict qualified as M
|
|
import Data.Validation (Validation)
|
|
import Data.Validation qualified as V
|
|
import Hasura.Incremental (Cacheable)
|
|
import Hasura.Prelude
|
|
import Hasura.RQL.DDL.Webhook.Transform.Class
|
|
( RequestTransformCtx (..),
|
|
TemplatingEngine,
|
|
Transform (..),
|
|
TransformErrorBundle (..),
|
|
UnescapedTemplate (..),
|
|
runUnescapedRequestTemplateTransform',
|
|
validateRequestUnescapedTemplateTransform',
|
|
)
|
|
import Network.HTTP.Client.Transformable qualified as HTTP
|
|
|
|
-------------------------------------------------------------------------------
|
|
|
|
-- | The actual query params we are transforming
|
|
--
|
|
-- Necessary boilerplate because otherwise we end up with an
|
|
-- orphan instance.
|
|
newtype QueryParams = QueryParams {unQueryParams :: HTTP.Query}
|
|
|
|
instance Transform QueryParams where
|
|
newtype TransformFn QueryParams = QueryParamsTransform QueryParamsTransformAction
|
|
deriving stock (Show, Eq, Generic)
|
|
deriving newtype (NFData, Cacheable, J.FromJSON, J.ToJSON)
|
|
|
|
transform :: MonadError TransformErrorBundle m => TransformFn QueryParams -> RequestTransformCtx -> QueryParams -> m QueryParams
|
|
transform (QueryParamsTransform transformation) context _ = do
|
|
case transformation of
|
|
QueryParamsTransformAction replacements -> do
|
|
-- NOTE: We use `ApplicativeDo` here to take advantage of
|
|
-- Validation's applicative sequencing.
|
|
queryParams <- liftEither . V.toEither $ for replacements \(rawKey, rawValue) -> do
|
|
key <- runUnescapedRequestTemplateTransform' context rawKey
|
|
value <- traverse (runUnescapedRequestTemplateTransform' context) rawValue
|
|
pure (key, value)
|
|
pure $ QueryParams queryParams
|
|
|
|
validate ::
|
|
TemplatingEngine ->
|
|
TransformFn QueryParams ->
|
|
Validation TransformErrorBundle ()
|
|
validate engine (QueryParamsTransform (QueryParamsTransformAction params)) =
|
|
for_ params \(key, val) -> do
|
|
-- Note: We are using ApplicativeDo here:
|
|
validateRequestUnescapedTemplateTransform' engine key
|
|
traverse_ (validateRequestUnescapedTemplateTransform' engine) val
|
|
pure ()
|
|
|
|
-- | The defunctionalized transformation 'QueryParams'
|
|
newtype QueryParamsTransformAction = QueryParamsTransformAction [(UnescapedTemplate, Maybe UnescapedTemplate)]
|
|
deriving stock (Generic)
|
|
deriving newtype (Show, Eq)
|
|
deriving anyclass (NFData, Cacheable)
|
|
|
|
instance J.ToJSON QueryParamsTransformAction where
|
|
toJSON (QueryParamsTransformAction qs) = J.toJSON $ M.fromList qs
|
|
|
|
instance J.FromJSON QueryParamsTransformAction where
|
|
parseJSON v = QueryParamsTransformAction . M.toList <$> J.parseJSON v
|