graphql-engine/server/src-lib/Hasura/RQL/IR/RemoteJoin.hs
Antoine Leblanc 377425ff2d server: generalize subscriptions
GitOrigin-RevId: 464e80abf151032dc50eaf6cf8dafc5e7cfa51cd
2021-02-20 13:46:43 +00:00

27 lines
1.1 KiB
Haskell

module Hasura.RQL.IR.RemoteJoin
( RemoteJoin(..)
) where
import Hasura.Prelude
import qualified Language.GraphQL.Draft.Syntax as G
import Hasura.RQL.IR.Select
import Hasura.RQL.Types
-- | A 'RemoteJoin' represents the context of remote relationship to be extracted from 'AnnFieldG's.
data RemoteJoin (b :: BackendType)
= RemoteJoin
{ _rjName :: !FieldName -- ^ The remote join field name.
, _rjArgs :: ![RemoteFieldArgument] -- ^ User-provided arguments with variables.
, _rjSelSet :: !(G.SelectionSet G.NoFragments RemoteSchemaVariable) -- ^ User-provided selection set of remote field.
, _rjHasuraFields :: !(HashSet FieldName) -- ^ Table fields.
, _rjFieldCall :: !(NonEmpty FieldCall) -- ^ Remote server fields.
, _rjRemoteSchema :: !RemoteSchemaInfo -- ^ The remote schema server info.
, _rjPhantomFields :: ![ColumnInfo b]
-- ^ Hasura fields which are not in the selection set, but are required as
-- parameters to satisfy the remote join.
}
deriving instance Backend b => Eq (RemoteJoin b)