mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 04:51:35 +03:00
c0d2bc6653
add remote joins: Create relationships across database and remote schemas (#2392) Co-authored-by: Aleksandra Sikora <ola.zxcvbnm@gmail.com> Co-authored-by: Chris Done <chrisdone@gmail.com> Co-authored-by: Chris Done <github@chrisdone.com> Co-authored-by: wawhal <rishichandra.wawhal@gmail.com> Co-authored-by: Aravind Shankar <aravind@hasura.io> Co-authored-by: Brandon Simmons <brandon.m.simmons@gmail.com> Co-authored-by: Rishichandra Wawhal <rishi@hasura.io> Co-authored-by: Brandon Simmons <brandon@hasura.io> Co-authored-by: nizar-m <19857260+nizar-m@users.noreply.github.com> Co-authored-by: Praveen Durairaju <praveend.web@gmail.com> Co-authored-by: rakeshkky <12475069+rakeshkky@users.noreply.github.com> Co-authored-by: Anon Ray <rayanon004@gmail.com> Co-authored-by: Shahidh K Muhammed <shahidh@hasura.io> Co-authored-by: soorajshankar <soorajshankar@users.noreply.github.com> Co-authored-by: Sooraj Sanker <sooraj@Soorajs-MacBook-Pro.local> Co-authored-by: Karthikeyan Chinnakonda <karthikeyan@hasura.io> Co-authored-by: Aleksandra Sikora <ola.zxcvbnm@gmail.com>
129 lines
3.7 KiB
Haskell
129 lines
3.7 KiB
Haskell
module Hasura.GraphQL.Schema.Common
|
|
( qualObjectToName
|
|
, addTypeSuffix
|
|
, fromInpValL
|
|
|
|
, RelationshipFieldInfo(..)
|
|
, SelField(..)
|
|
, _SFPGColumn
|
|
, getPGColumnFields
|
|
, getRelationshipFields
|
|
, getComputedFields
|
|
, getRemoteRelationships
|
|
|
|
, mkColumnType
|
|
, mkRelName
|
|
, mkAggRelName
|
|
, mkComputedFieldName
|
|
|
|
, mkTableTy
|
|
, mkTableEnumType
|
|
, mkTableAggTy
|
|
|
|
, mkColumnEnumVal
|
|
, mkColumnInputVal
|
|
, mkDescriptionWith
|
|
|
|
, mkFuncArgsTy
|
|
) where
|
|
|
|
import qualified Data.HashMap.Strict as Map
|
|
import qualified Data.Text as T
|
|
import qualified Language.GraphQL.Draft.Syntax as G
|
|
|
|
import Control.Lens
|
|
|
|
import Hasura.GraphQL.Resolve.Types
|
|
import Hasura.GraphQL.Validate.Types
|
|
import Hasura.Prelude
|
|
import Hasura.RQL.Types
|
|
import Hasura.SQL.Types
|
|
|
|
data RelationshipFieldInfo
|
|
= RelationshipFieldInfo
|
|
{ _rfiInfo :: !RelInfo
|
|
, _rfiAllowAgg :: !Bool
|
|
, _rfiColumns :: !PGColGNameMap
|
|
, _rfiPermFilter :: !AnnBoolExpPartialSQL
|
|
, _rfiPermLimit :: !(Maybe Int)
|
|
, _rfiIsNullable :: !Bool
|
|
} deriving (Show, Eq)
|
|
|
|
data SelField
|
|
= SFPGColumn !PGColumnInfo
|
|
| SFRelationship !RelationshipFieldInfo
|
|
| SFComputedField !ComputedField
|
|
| SFRemoteRelationship !RemoteFieldInfo
|
|
deriving (Show, Eq)
|
|
$(makePrisms ''SelField)
|
|
|
|
getPGColumnFields :: [SelField] -> [PGColumnInfo]
|
|
getPGColumnFields = mapMaybe (^? _SFPGColumn)
|
|
|
|
getRelationshipFields :: [SelField] -> [RelationshipFieldInfo]
|
|
getRelationshipFields = mapMaybe (^? _SFRelationship)
|
|
|
|
getComputedFields :: [SelField] -> [ComputedField]
|
|
getComputedFields = mapMaybe (^? _SFComputedField)
|
|
|
|
getRemoteRelationships :: [SelField] -> [RemoteFieldInfo]
|
|
getRemoteRelationships = mapMaybe (^? _SFRemoteRelationship)
|
|
|
|
qualObjectToName :: (ToTxt a) => QualifiedObject a -> G.Name
|
|
qualObjectToName = G.Name . snakeCaseQualObject
|
|
|
|
addTypeSuffix :: Text -> G.NamedType -> G.NamedType
|
|
addTypeSuffix suffix baseType = G.NamedType $ G.unNamedType baseType <> G.Name suffix
|
|
|
|
fromInpValL :: [InpValInfo] -> Map.HashMap G.Name InpValInfo
|
|
fromInpValL = mapFromL _iviName
|
|
|
|
mkRelName :: RelName -> G.Name
|
|
mkRelName rn = G.Name $ relNameToTxt rn
|
|
|
|
mkAggRelName :: RelName -> G.Name
|
|
mkAggRelName rn = G.Name $ relNameToTxt rn <> "_aggregate"
|
|
|
|
mkComputedFieldName :: ComputedFieldName -> G.Name
|
|
mkComputedFieldName = G.Name . computedFieldNameToText
|
|
|
|
mkColumnType :: PGColumnType -> G.NamedType
|
|
mkColumnType = \case
|
|
PGColumnScalar scalarType -> mkScalarTy scalarType
|
|
PGColumnEnumReference (EnumReference enumTable _) -> mkTableEnumType enumTable
|
|
|
|
mkTableTy :: QualifiedTable -> G.NamedType
|
|
mkTableTy = G.NamedType . qualObjectToName
|
|
|
|
mkTableEnumType :: QualifiedTable -> G.NamedType
|
|
mkTableEnumType = addTypeSuffix "_enum" . mkTableTy
|
|
|
|
mkTableAggTy :: QualifiedTable -> G.NamedType
|
|
mkTableAggTy = addTypeSuffix "_aggregate" . mkTableTy
|
|
|
|
-- used for 'distinct_on' in select and upsert's 'update columns'
|
|
mkColumnEnumVal :: G.Name -> EnumValInfo
|
|
mkColumnEnumVal colName =
|
|
EnumValInfo (Just "column name") (G.EnumValue colName) False
|
|
|
|
mkColumnInputVal :: PGColumnInfo -> InpValInfo
|
|
mkColumnInputVal ci =
|
|
InpValInfo (mkDescription <$> pgiDescription ci) (pgiName ci)
|
|
Nothing $ G.toGT $ G.toNT $ mkColumnType $ pgiType ci
|
|
|
|
mkDescriptionWith :: Maybe PGDescription -> Text -> G.Description
|
|
mkDescriptionWith descM defaultTxt = G.Description $ case descM of
|
|
Nothing -> defaultTxt
|
|
Just (PGDescription descTxt) -> T.unlines [descTxt, "\n", defaultTxt]
|
|
|
|
mkDescription :: PGDescription -> G.Description
|
|
mkDescription = G.Description . getPGDescription
|
|
|
|
mkFuncArgsName :: QualifiedFunction -> G.Name
|
|
mkFuncArgsName fn =
|
|
qualObjectToName fn <> "_args"
|
|
|
|
mkFuncArgsTy :: QualifiedFunction -> G.NamedType
|
|
mkFuncArgsTy =
|
|
G.NamedType . mkFuncArgsName
|