Safe Haskell | None |
---|---|
Language | Haskell2010 |
Documentation
addNonColumnFields :: forall b arr m. (ArrowChoice arr, ArrowDistribute arr, ArrowWriter (Seq CollectedInfo) arr, ArrowKleisli m arr, MonadError QErr m, BackendMetadata b) => (HashMap SourceName (AnyBackend PartiallyResolvedSource), SourceName, HashMap (TableName b) (TableCoreInfoG b (ColumnInfo b) (ColumnInfo b)), FieldInfoMap (ColumnInfo b), RemoteSchemaMap, DBFunctionsMetadata b, NonColumnTableInputs b) `arr` FieldInfoMap (FieldInfo b) Source #
mkRelationshipMetadataObject :: forall b a. (ToJSON a, Backend b) => RelType -> (SourceName, TableName b, RelDef a) -> MetadataObject Source #
buildObjectRelationship :: (ArrowChoice arr, ArrowWriter (Seq CollectedInfo) arr, Backend b) => (HashMap (TableName b) (HashSet (ForeignKey b)), (SourceName, TableName b, ObjRelDef b)) `arr` Maybe (RelInfo b) Source #
buildArrayRelationship :: (ArrowChoice arr, ArrowWriter (Seq CollectedInfo) arr, Backend b) => (HashMap (TableName b) (HashSet (ForeignKey b)), (SourceName, TableName b, ArrRelDef b)) `arr` Maybe (RelInfo b) Source #
buildRelationship :: forall m b a. (MonadWriter (Seq CollectedInfo) m, ToJSON a, Backend b) => SourceName -> TableName b -> (RelDef a -> Either QErr (RelInfo b, [SchemaDependency])) -> RelType -> RelDef a -> m (Maybe (RelInfo b)) Source #
mkComputedFieldMetadataObject :: forall b. Backend b => (SourceName, TableName b, ComputedFieldMetadata b) -> MetadataObject Source #
buildComputedField :: forall b m. (MonadWriter (Seq CollectedInfo) m, BackendMetadata b) => HashSet (TableName b) -> HashSet (Column b) -> SourceName -> DBFunctionsMetadata b -> TableName b -> ComputedFieldMetadata b -> m (Either QErr (Maybe (ComputedFieldInfo b))) Source #
mkRemoteRelationshipMetadataObject :: forall b. Backend b => (SourceName, TableName b, RemoteRelationship) -> MetadataObject Source #
buildRemoteRelationship :: forall b m. (MonadWriter (Seq CollectedInfo) m, BackendMetadata b) => HashMap SourceName (AnyBackend PartiallyResolvedSource) -> HashMap FieldName (DBJoinField b) -> RemoteSchemaMap -> (SourceName, TableName b, RemoteRelationship) -> m (Either QErr (Maybe (RemoteFieldInfo (DBJoinField b)))) Source #