1
0
mirror of https://github.com/hasura/graphql-engine.git synced 2024-12-18 21:12:09 +03:00
graphql-engine/server/src-lib/Hasura/GraphQL/Schema/Postgres.hs
Antoine Leblanc 8a77386fcf server: IR for DB-DB joins
### Description

This PR adds the required IR for DB to DB joins, based on @paf31 and @0x777 's `feature/db-to-db` branch.

To do so, it also refactors the IR to introduce a new type parameter, `r`, which is used to recursively constructs the `v` parameter of remote QueryDBs. When collecting remote joins, we replace `r` with `Const Void`, indicating at the type level that there cannot be any leftover remote join.

Furthermore, this PR refactors IR.Select for readability, moves some code from IR.Root to IR.Select to avoid having to deal with circular dependencies, and makes it compile by adding `error` in all new cases in the execution pipeline.

The diff doesn't make it clear, but most of Select.hs is actually unchanged. Declarations have just been reordered by topic, in the following order:
- type declarations
- instance declarations
- type aliases
- constructor functions
- traverse functions

https://github.com/hasura/graphql-engine-mono/pull/1580

Co-authored-by: Phil Freeman <630306+paf31@users.noreply.github.com>
GitOrigin-RevId: bbdcb4119cec8bb3fc32f1294f91b8dea0728721
2021-06-17 23:13:05 +00:00

56 lines
2.2 KiB
Haskell

-- | Postgres-specific schema combinators. Those should be moved to
-- the corresponding instance of `BackendSchema`, when actions are
-- generalized.
module Hasura.GraphQL.Schema.Postgres
( buildActionQueryFields
, buildActionSubscriptionFields
, buildActionMutationFields
) where
import Hasura.Prelude
import Hasura.GraphQL.Parser hiding (EnumValueInfo, field)
import Hasura.GraphQL.Schema.Action
import Hasura.GraphQL.Schema.Backend (MonadBuildSchema)
import Hasura.RQL.IR
import Hasura.RQL.Types
buildActionQueryFields
:: MonadBuildSchema ('Postgres 'Vanilla) r m n
=> NonObjectTypeMap
-> ActionInfo
-> m [FieldParser n (QueryRootField UnpreparedValue UnpreparedValue)]
buildActionQueryFields nonObjectCustomTypes actionInfo =
maybeToList <$> case _adType (_aiDefinition actionInfo) of
ActionQuery ->
fmap (fmap (RFAction . AQQuery)) <$> actionExecute nonObjectCustomTypes actionInfo
ActionMutation ActionSynchronous -> pure Nothing
ActionMutation ActionAsynchronous ->
fmap (fmap (RFAction . AQAsync)) <$> actionAsyncQuery actionInfo
buildActionMutationFields
:: MonadBuildSchema ('Postgres 'Vanilla) r m n
=> NonObjectTypeMap
-> ActionInfo
-> m [FieldParser n (MutationRootField UnpreparedValue UnpreparedValue)]
buildActionMutationFields nonObjectCustomTypes actionInfo =
maybeToList <$> case _adType (_aiDefinition actionInfo) of
ActionQuery -> pure Nothing
ActionMutation ActionSynchronous ->
fmap (fmap (RFAction . AMSync)) <$> actionExecute nonObjectCustomTypes actionInfo
ActionMutation ActionAsynchronous ->
fmap (fmap (RFAction . AMAsync)) <$> actionAsyncMutation nonObjectCustomTypes actionInfo
buildActionSubscriptionFields
:: MonadBuildSchema ('Postgres 'Vanilla) r m n
=> ActionInfo
-> m [FieldParser n (QueryRootField UnpreparedValue
UnpreparedValue)]
buildActionSubscriptionFields actionInfo =
maybeToList <$> case _adType (_aiDefinition actionInfo) of
ActionQuery -> pure Nothing
ActionMutation ActionSynchronous -> pure Nothing
ActionMutation ActionAsynchronous ->
fmap (fmap (RFAction . AQAsync)) <$> actionAsyncQuery actionInfo