mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 04:51:35 +03:00
11a454c2d6
This commit applies ormolu to the whole Haskell code base by running `make format`. For in-flight branches, simply merging changes from `main` will result in merge conflicts. To avoid this, update your branch using the following instructions. Replace `<format-commit>` by the hash of *this* commit. $ git checkout my-feature-branch $ git merge <format-commit>^ # and resolve conflicts normally $ make format $ git commit -a -m "reformat with ormolu" $ git merge -s ours post-ormolu https://github.com/hasura/graphql-engine-mono/pull/2404 GitOrigin-RevId: 75049f5c12f430c615eafb4c6b8e83e371e01c8e
49 lines
1.6 KiB
Haskell
49 lines
1.6 KiB
Haskell
module Hasura.RQL.IR.Update where
|
|
|
|
import Data.Kind (Type)
|
|
import Hasura.Prelude
|
|
import Hasura.RQL.IR.BoolExp
|
|
import Hasura.RQL.IR.Returning
|
|
import Hasura.RQL.Types.Backend
|
|
import Hasura.RQL.Types.Column
|
|
import Hasura.SQL.Backend
|
|
|
|
data AnnUpdG (b :: BackendType) (r :: BackendType -> Type) v = AnnUpd
|
|
{ uqp1Table :: !(TableName b),
|
|
uqp1OpExps :: ![(Column b, UpdOpExpG v)],
|
|
uqp1Where :: !(AnnBoolExp b v, AnnBoolExp b v),
|
|
uqp1Check :: !(AnnBoolExp b v),
|
|
-- we don't prepare the arguments for returning
|
|
-- however the session variable can still be
|
|
-- converted as desired
|
|
uqp1Output :: !(MutationOutputG b r v),
|
|
uqp1AllCols :: ![ColumnInfo b]
|
|
}
|
|
deriving (Functor, Foldable, Traversable)
|
|
|
|
type AnnUpd b = AnnUpdG b (Const Void) (SQLExpression b)
|
|
|
|
data UpdOpExpG v
|
|
= UpdSet !v
|
|
| UpdInc !v
|
|
| UpdAppend !v
|
|
| UpdPrepend !v
|
|
| UpdDeleteKey !v
|
|
| UpdDeleteElem !v
|
|
| UpdDeleteAtPath ![v]
|
|
deriving (Functor, Foldable, Traversable, Generic, Data)
|
|
|
|
-- NOTE: This function can be improved, because we use
|
|
-- the literal values defined below in the 'updateOperators'
|
|
-- function in 'Hasura.GraphQL.Schema.Mutation'. It would
|
|
-- be nice if we could avoid duplicating the string literal
|
|
-- values
|
|
updateOperatorText :: UpdOpExpG a -> Text
|
|
updateOperatorText (UpdSet _) = "_set"
|
|
updateOperatorText (UpdInc _) = "_inc"
|
|
updateOperatorText (UpdAppend _) = "_append"
|
|
updateOperatorText (UpdPrepend _) = "_prepend"
|
|
updateOperatorText (UpdDeleteKey _) = "_delete_key"
|
|
updateOperatorText (UpdDeleteElem _) = "_delete_elem"
|
|
updateOperatorText (UpdDeleteAtPath _) = "_delete_at_path"
|