graphql-engine/server/src-lib/Hasura/Backends/Postgres/DDL.hs

module Hasura.Backends.Postgres.DDL
  ( parseCollectableType
  , module M
  )
where

import           Data.Aeson

import           Hasura.Backends.Postgres.SQL.DML
import           Hasura.Backends.Postgres.Translate.Column
import           Hasura.Prelude
import           Hasura.RQL.IR.BoolExp
import           Hasura.RQL.Types.Column
import           Hasura.RQL.Types.Error
import           Hasura.SQL.Backend
import           Hasura.SQL.Types
import           Hasura.Server.Utils
import           Hasura.Session

import           Hasura.Backends.Postgres.DDL.BoolExp      as M
import           Hasura.Backends.Postgres.DDL.Field        as M
import           Hasura.Backends.Postgres.DDL.Function     as M
import           Hasura.Backends.Postgres.DDL.Source       as M
import           Hasura.Backends.Postgres.DDL.Table        as M

parseCollectableType
  :: (MonadError QErr m)
  => CollectableType (ColumnType 'Postgres)
  -> Value -> m (PartialSQLExp 'Postgres)
parseCollectableType pgType = \case
  -- When it is a special variable
  String t
    | isSessionVariable t -> return $ mkTypedSessionVar pgType $ mkSessionVariable t
    | isReqUserId t       -> return $ mkTypedSessionVar pgType userIdHeader
  -- Typical value as Aeson's value
  val -> case pgType of
    CollectableTypeScalar cvType ->
      PSESQLExp . toTxtValue . ColumnValue cvType <$> parseScalarValueColumnType cvType val
    CollectableTypeArray ofType -> do
      vals <- runAesonParser parseJSON val
      scalarValues <- parseScalarValuesColumnType ofType vals
      return . PSESQLExp $ SETyAnn
        (SEArray $ map (toTxtValue . ColumnValue ofType) scalarValues)
        (mkTypeAnn $ CollectableTypeArray (unsafePGColumnToBackend ofType))

mkTypedSessionVar
  :: CollectableType (ColumnType 'Postgres)
  -> SessionVariable -> PartialSQLExp 'Postgres
mkTypedSessionVar columnType =
  PSESessVar (unsafePGColumnToBackend <$> columnType)