graphql-engine/server/src-lib/Hasura/Backends/BigQuery/DDL.hs
2021-09-24 09:19:40 +00:00

103 lines
3.1 KiB
Haskell

module Hasura.Backends.BigQuery.DDL
( buildComputedFieldInfo,
fetchAndValidateEnumValues,
buildFunctionInfo,
updateColumnInEventTrigger,
parseBoolExpOperations,
parseCollectableType,
module M,
)
where
import Data.Aeson
import Hasura.Backends.BigQuery.DDL.BoolExp
import Hasura.Backends.BigQuery.DDL.Source as M
import Hasura.Backends.BigQuery.Types qualified as BigQuery
import Hasura.Base.Error
import Hasura.Prelude
import Hasura.RQL.IR.BoolExp
import Hasura.RQL.Types.Backend
import Hasura.RQL.Types.Column
import Hasura.RQL.Types.Common
import Hasura.RQL.Types.ComputedField
import Hasura.RQL.Types.EventTrigger
import Hasura.RQL.Types.Function
import Hasura.RQL.Types.SchemaCache
import Hasura.RQL.Types.Table
import Hasura.SQL.Backend
import Hasura.SQL.Types
import Hasura.Server.Utils
import Hasura.Session
buildComputedFieldInfo ::
(MonadError QErr m) =>
HashSet (TableName 'BigQuery) ->
TableName 'BigQuery ->
ComputedFieldName ->
ComputedFieldDefinition 'BigQuery ->
RawFunctionInfo 'BigQuery ->
Maybe Text ->
m (ComputedFieldInfo 'BigQuery)
buildComputedFieldInfo _ _ _ _ _ _ =
throw400 NotSupported "Computed fields aren't supported for BigQuery sources"
fetchAndValidateEnumValues ::
(Monad m) =>
SourceConfig 'BigQuery ->
TableName 'BigQuery ->
Maybe (PrimaryKey 'BigQuery (RawColumnInfo 'BigQuery)) ->
[RawColumnInfo 'BigQuery] ->
m (Either QErr EnumValues)
fetchAndValidateEnumValues _ _ _ _ =
runExceptT $
throw400 NotSupported "Enum tables are not supported for BigQuery sources"
buildFunctionInfo ::
(MonadError QErr m) =>
SourceName ->
FunctionName 'BigQuery ->
SystemDefined ->
FunctionConfig ->
FunctionPermissionsMap ->
RawFunctionInfo 'BigQuery ->
Maybe Text ->
m (FunctionInfo 'BigQuery, SchemaDependency)
buildFunctionInfo _ _ _ _ _ _ _ =
throw400 NotSupported "SQL Functions are not supported for BigQuery source"
updateColumnInEventTrigger ::
TableName 'BigQuery ->
Column 'BigQuery ->
Column 'BigQuery ->
TableName 'BigQuery ->
EventTriggerConf 'BigQuery ->
EventTriggerConf 'BigQuery
updateColumnInEventTrigger _ _ _ _ = id
parseCollectableType ::
(MonadError QErr m) =>
CollectableType (ColumnType 'BigQuery) ->
Value ->
m (PartialSQLExp 'BigQuery)
parseCollectableType collectableType = \case
String t
| isSessionVariable t -> pure $ mkTypedSessionVar collectableType $ mkSessionVariable t
| isReqUserId t -> pure $ mkTypedSessionVar collectableType userIdHeader
val -> case collectableType of
CollectableTypeScalar scalarType ->
PSESQLExp . BigQuery.ValueExpression <$> parseScalarValueColumnType scalarType val
CollectableTypeArray _ ->
throw400 NotSupported "Array types are not supported in BigQuery backend"
mkTypedSessionVar ::
CollectableType (ColumnType 'BigQuery) ->
SessionVariable ->
PartialSQLExp 'BigQuery
mkTypedSessionVar columnType =
PSESessVar (msColumnTypeToScalarType <$> columnType)
msColumnTypeToScalarType :: ColumnType 'BigQuery -> ScalarType 'BigQuery
msColumnTypeToScalarType = \case
ColumnScalar scalarType -> scalarType
ColumnEnumReference _ -> BigQuery.StringScalarType