mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 12:31:52 +03:00
72cfb7fc9b
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/5341 GitOrigin-RevId: 39db14cc2d2329d8cadb7a6080b1e2361eba1fb5
109 lines
3.9 KiB
Haskell
109 lines
3.9 KiB
Haskell
-- | Postgres Translate Update
|
|
--
|
|
-- Translates IR update to Postgres-specific SQL UPDATE statements.
|
|
module Hasura.Backends.Postgres.Translate.Update
|
|
( mkUpdateCTE,
|
|
UpdateCTE (..),
|
|
)
|
|
where
|
|
|
|
import Data.HashMap.Strict qualified as Map
|
|
import Hasura.Backends.Postgres.SQL.DML qualified as S
|
|
import Hasura.Backends.Postgres.SQL.Types
|
|
import Hasura.Backends.Postgres.Translate.BoolExp
|
|
import Hasura.Backends.Postgres.Translate.Insert
|
|
import Hasura.Backends.Postgres.Translate.Returning
|
|
import Hasura.Backends.Postgres.Types.Update
|
|
import Hasura.Prelude
|
|
import Hasura.RQL.IR.BoolExp
|
|
import Hasura.RQL.IR.Update
|
|
import Hasura.RQL.Types.Backend
|
|
import Hasura.RQL.Types.Column
|
|
import Hasura.SQL.Backend
|
|
import Hasura.SQL.Types
|
|
|
|
data UpdateCTE
|
|
= -- | Used for /update_table/ and /update_table_by_pk/.
|
|
Update S.TopLevelCTE
|
|
| -- | Used for /update_table_many/.
|
|
MultiUpdate [S.TopLevelCTE]
|
|
|
|
-- | Create the update CTE.
|
|
mkUpdateCTE ::
|
|
forall pgKind.
|
|
Backend ('Postgres pgKind) =>
|
|
AnnotatedUpdate ('Postgres pgKind) ->
|
|
UpdateCTE
|
|
mkUpdateCTE (AnnotatedUpdateG tn (permFltr, wc) chk backendUpdate _ columnsInfo _tCase) =
|
|
case backendUpdate of
|
|
BackendUpdate opExps ->
|
|
Update $ S.CTEUpdate update
|
|
where
|
|
update =
|
|
S.SQLUpdate
|
|
{ upTable = tn,
|
|
upSet =
|
|
S.SetExp $ map (expandOperator columnsInfo) (Map.toList opExps),
|
|
upFrom = Nothing,
|
|
upWhere =
|
|
Just
|
|
. S.WhereFrag
|
|
. S.simplifyBoolExp
|
|
. toSQLBoolExp (S.QualTable tn)
|
|
$ andAnnBoolExps permFltr wc,
|
|
upRet =
|
|
Just $
|
|
S.RetExp
|
|
[ S.selectStar,
|
|
asCheckErrorExtractor $
|
|
insertCheckConstraint $
|
|
toSQLBoolExp (S.QualTable tn) chk
|
|
]
|
|
}
|
|
BackendMultiRowUpdate updates ->
|
|
MultiUpdate $ translateUpdate <$> updates
|
|
where
|
|
translateUpdate :: MultiRowUpdate pgKind S.SQLExp -> S.TopLevelCTE
|
|
translateUpdate MultiRowUpdate {..} =
|
|
S.CTEUpdate
|
|
S.SQLUpdate
|
|
{ upTable = tn,
|
|
upSet =
|
|
S.SetExp $ map (expandOperator columnsInfo) (Map.toList mruExpression),
|
|
upFrom = Nothing,
|
|
upWhere =
|
|
Just
|
|
. S.WhereFrag
|
|
. S.simplifyBoolExp
|
|
$ toSQLBoolExp (S.QualTable tn) mruWhere,
|
|
upRet =
|
|
Just $
|
|
S.RetExp
|
|
[ S.selectStar,
|
|
asCheckErrorExtractor
|
|
. insertCheckConstraint
|
|
$ toSQLBoolExp (S.QualTable tn) chk
|
|
]
|
|
}
|
|
|
|
expandOperator :: [ColumnInfo ('Postgres pgKind)] -> (PGCol, UpdateOpExpression S.SQLExp) -> S.SetExpItem
|
|
expandOperator infos (column, op) = S.SetExpItem $
|
|
(column,) $ case op of
|
|
UpdateSet e -> e
|
|
UpdateInc e -> S.mkSQLOpExp S.incOp identifier (asNum e)
|
|
UpdateAppend e -> S.mkSQLOpExp S.jsonbConcatOp identifier (asJSON e)
|
|
UpdatePrepend e -> S.mkSQLOpExp S.jsonbConcatOp (asJSON e) identifier
|
|
UpdateDeleteKey e -> S.mkSQLOpExp S.jsonbDeleteOp identifier (asText e)
|
|
UpdateDeleteElem e -> S.mkSQLOpExp S.jsonbDeleteOp identifier (asInt e)
|
|
UpdateDeleteAtPath a -> S.mkSQLOpExp S.jsonbDeleteAtPathOp identifier (asArray a)
|
|
where
|
|
identifier = S.SEIdentifier $ toIdentifier column
|
|
asInt e = S.SETyAnn e S.intTypeAnn
|
|
asText e = S.SETyAnn e S.textTypeAnn
|
|
asJSON e = S.SETyAnn e S.jsonbTypeAnn
|
|
asArray a = S.SETyAnn (S.SEArray a) S.textArrTypeAnn
|
|
asNum e = S.SETyAnn e $
|
|
case find (\info -> ciColumn info == column) infos <&> ciType of
|
|
Just (ColumnScalar s) -> S.mkTypeAnn $ CollectableTypeScalar s
|
|
_ -> S.numericTypeAnn
|