mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-21 06:21:39 +03:00
ea5c92acae
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/8876 GitOrigin-RevId: abfc18eeef96a1f3593bfe823adab4d161161333
45 lines
1.6 KiB
Haskell
45 lines
1.6 KiB
Haskell
-- | This module defines the translation functions for update mutations.
|
|
module Hasura.Backends.MSSQL.FromIr.Update
|
|
( fromUpdate,
|
|
)
|
|
where
|
|
|
|
import Hasura.Backends.MSSQL.FromIr
|
|
( FromIr,
|
|
NameTemplate (TableTemplate),
|
|
generateAlias,
|
|
)
|
|
import Hasura.Backends.MSSQL.FromIr.Constants (tempTableNameUpdated)
|
|
import Hasura.Backends.MSSQL.FromIr.Expression (fromGBoolExp)
|
|
import Hasura.Backends.MSSQL.Instances.Types ()
|
|
import Hasura.Backends.MSSQL.Types.Internal
|
|
import Hasura.Backends.MSSQL.Types.Update
|
|
import Hasura.Prelude
|
|
import Hasura.RQL.IR qualified as IR
|
|
import Hasura.RQL.IR.Update.Batch qualified as IR
|
|
import Hasura.RQL.Types.BackendType
|
|
import Hasura.RQL.Types.Column qualified as IR
|
|
|
|
fromUpdate :: IR.AnnotatedUpdate 'MSSQL -> FromIr Update
|
|
fromUpdate (IR.AnnotatedUpdateG table updatePermFilter _ (IR.UpdateBatch updateOperations whereClause) _ allColumns _tCase) = do
|
|
tableAlias <- generateAlias (TableTemplate (tableName table))
|
|
runReaderT
|
|
( do
|
|
permissionsFilter <- fromGBoolExp updatePermFilter
|
|
whereExpression <- fromGBoolExp whereClause
|
|
let columnNames = map IR.ciColumn allColumns
|
|
pure
|
|
Update
|
|
{ updateTable =
|
|
Aliased
|
|
{ aliasedAlias = tableAlias,
|
|
aliasedThing = table
|
|
},
|
|
updateSet = updateOperations,
|
|
updateOutput = Output Inserted (map OutputColumn columnNames),
|
|
updateTempTable = TempTable tempTableNameUpdated columnNames,
|
|
updateWhere = Where [permissionsFilter, whereExpression]
|
|
}
|
|
)
|
|
(EntityAlias tableAlias)
|