mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 12:31:52 +03:00
35 lines
903 B
Haskell
35 lines
903 B
Haskell
module Hasura.RQL.IR.Delete where
|
|
|
|
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 AnnDelG (b :: BackendType) v
|
|
= AnnDel
|
|
{ dqp1Table :: !(TableName b)
|
|
, dqp1Where :: !(AnnBoolExp b v, AnnBoolExp b v)
|
|
, dqp1Output :: !(MutationOutputG b v)
|
|
, dqp1AllCols :: ![ColumnInfo b]
|
|
}
|
|
|
|
type AnnDel b = AnnDelG b (SQLExpression b)
|
|
|
|
traverseAnnDel
|
|
:: forall backend f a b
|
|
. (Applicative f, Backend backend)
|
|
=> (a -> f b)
|
|
-> AnnDelG backend a
|
|
-> f (AnnDelG backend b)
|
|
traverseAnnDel f annUpd =
|
|
AnnDel tn
|
|
<$> ((,) <$> traverseAnnBoolExp f whr <*> traverseAnnBoolExp f fltr)
|
|
<*> traverseMutationOutput f mutOutput
|
|
<*> pure allCols
|
|
where
|
|
AnnDel tn (whr, fltr) mutOutput allCols = annUpd
|