hasura/graphql-engine
1
0
Fork 0
mirror of https://github.com/hasura/graphql-engine.git synced 2025-01-05 22:34:22 +03:00
Code Issues Projects Releases Wiki Activity

server: event trigger log cleanup | rename start_event_trigger_cleanups API

Browse Source 
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/5976
GitOrigin-RevId: 752c905d31b3700aa49d816ec573df74715f6654
This commit is contained in:
paritosh-08 2022-09-21 11:29:14 +05:30 committed by hasura-bot
parent dc9a86680c
commit 876c906660
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
server/src-lib/Hasura/RQL/DDL/EventTrigger.hs
View File

@ -34,7 +34,7 @@ module Hasura.RQL.DDL.EventTrigger
cetqResponseTrasnform, cetqResponseTrasnform,
cteqCleanupConfig, cteqCleanupConfig,
runCleanupEventTriggerLog, runCleanupEventTriggerLog,
runEventTriggerStartCleanup, runEventTriggerResumeCleanup,
runEventTriggerPauseCleanup, runEventTriggerPauseCleanup,
MonadEventLogCleanup (..), MonadEventLogCleanup (..),
getAllEventTriggersWithCleanupConfig, getAllEventTriggersWithCleanupConfig,
@ -612,12 +612,12 @@ toggleEventTriggerCleanupAction conf cleanupSwitch = do
onJust (etiCleanupConfig eventTriggerInfo) $ \cleanupConfig -> onJust (etiCleanupConfig eventTriggerInfo) $ \cleanupConfig ->
updateCleanupStatusInMetadata @b cleanupConfig switch sourceName tableName triggerName updateCleanupStatusInMetadata @b cleanupConfig switch sourceName tableName triggerName
runEventTriggerStartCleanup :: runEventTriggerResumeCleanup ::
forall m. forall m.
(MonadIO m, QErrM m, CacheRWM m, MetadataM m) => (MonadIO m, QErrM m, CacheRWM m, MetadataM m) =>
TriggerLogCleanupToggleConfig -> TriggerLogCleanupToggleConfig ->
m EncJSON m EncJSON
runEventTriggerStartCleanup conf = toggleEventTriggerCleanupAction conf ETCSUnpaused runEventTriggerResumeCleanup conf = toggleEventTriggerCleanupAction conf ETCSUnpaused
runEventTriggerPauseCleanup :: runEventTriggerPauseCleanup ::
(MonadError QErr m, CacheRWM m, MonadIO m, MetadataM m) => (MonadError QErr m, CacheRWM m, MonadIO m, MetadataM m) =>

8
server/src-lib/Hasura/Server/API/Metadata.hs
View File

@ -130,7 +130,7 @@ data RQLMetadataV1
| RMRedeliverEvent !(AnyBackend RedeliverEventQuery) | RMRedeliverEvent !(AnyBackend RedeliverEventQuery)
| RMInvokeEventTrigger !(AnyBackend InvokeEventTriggerQuery) | RMInvokeEventTrigger !(AnyBackend InvokeEventTriggerQuery)
| RMCleanupEventTriggerLog !TriggerLogCleanupConfig | RMCleanupEventTriggerLog !TriggerLogCleanupConfig
| RMStartEventTriggerCleanup !TriggerLogCleanupToggleConfig | RMResumeEventTriggerCleanup !TriggerLogCleanupToggleConfig
| RMPauseEventTriggerCleanup !TriggerLogCleanupToggleConfig | RMPauseEventTriggerCleanup !TriggerLogCleanupToggleConfig
| -- Remote schemas | -- Remote schemas
RMAddRemoteSchema !AddRemoteSchemaQuery RMAddRemoteSchema !AddRemoteSchemaQuery
@ -230,7 +230,7 @@ instance FromJSON RQLMetadataV1 where
"update_remote_schema_remote_relationship" -> RMUpdateRemoteSchemaRemoteRelationship <$> args "update_remote_schema_remote_relationship" -> RMUpdateRemoteSchemaRemoteRelationship <$> args
"delete_remote_schema_remote_relationship" -> RMDeleteRemoteSchemaRemoteRelationship <$> args "delete_remote_schema_remote_relationship" -> RMDeleteRemoteSchemaRemoteRelationship <$> args
"cleanup_event_trigger_logs" -> RMCleanupEventTriggerLog <$> args "cleanup_event_trigger_logs" -> RMCleanupEventTriggerLog <$> args
"start_event_trigger_cleanups" -> RMStartEventTriggerCleanup <$> args "resume_event_trigger_cleanups" -> RMResumeEventTriggerCleanup <$> args
"pause_event_trigger_cleanups" -> RMPauseEventTriggerCleanup <$> args "pause_event_trigger_cleanups" -> RMPauseEventTriggerCleanup <$> args
"create_cron_trigger" -> RMCreateCronTrigger <$> args "create_cron_trigger" -> RMCreateCronTrigger <$> args
"delete_cron_trigger" -> RMDeleteCronTrigger <$> args "delete_cron_trigger" -> RMDeleteCronTrigger <$> args
@ -469,7 +469,7 @@ queryModifiesMetadata = \case
RMCreateEventTrigger _ -> True RMCreateEventTrigger _ -> True
RMDeleteEventTrigger _ -> True RMDeleteEventTrigger _ -> True
RMCleanupEventTriggerLog _ -> True RMCleanupEventTriggerLog _ -> True
RMStartEventTriggerCleanup _ -> True RMResumeEventTriggerCleanup _ -> True
RMPauseEventTriggerCleanup _ -> True RMPauseEventTriggerCleanup _ -> True
RMAddRemoteSchema _ -> True RMAddRemoteSchema _ -> True
RMUpdateRemoteSchema _ -> True RMUpdateRemoteSchema _ -> True
@ -616,7 +616,7 @@ runMetadataQueryV1M env currentResourceVersion = \case
RMRedeliverEvent q -> dispatchEventTrigger runRedeliverEvent q RMRedeliverEvent q -> dispatchEventTrigger runRedeliverEvent q
RMInvokeEventTrigger q -> dispatchEventTrigger runInvokeEventTrigger q RMInvokeEventTrigger q -> dispatchEventTrigger runInvokeEventTrigger q
RMCleanupEventTriggerLog q -> runCleanupEventTriggerLog q RMCleanupEventTriggerLog q -> runCleanupEventTriggerLog q
RMStartEventTriggerCleanup q -> runEventTriggerStartCleanup q RMResumeEventTriggerCleanup q -> runEventTriggerResumeCleanup q
RMPauseEventTriggerCleanup q -> runEventTriggerPauseCleanup q RMPauseEventTriggerCleanup q -> runEventTriggerPauseCleanup q
RMAddRemoteSchema q -> runAddRemoteSchema env q RMAddRemoteSchema q -> runAddRemoteSchema env q
RMUpdateRemoteSchema q -> runUpdateRemoteSchema env q RMUpdateRemoteSchema q -> runUpdateRemoteSchema env q

2
server/src-lib/Hasura/Server/API/Metadata.hs-boot
View File

@ -85,7 +85,7 @@ data RQLMetadataV1
| RMRedeliverEvent !(AnyBackend RedeliverEventQuery) | RMRedeliverEvent !(AnyBackend RedeliverEventQuery)
| RMInvokeEventTrigger !(AnyBackend InvokeEventTriggerQuery) | RMInvokeEventTrigger !(AnyBackend InvokeEventTriggerQuery)
| RMCleanupEventTriggerLog !TriggerLogCleanupConfig | RMCleanupEventTriggerLog !TriggerLogCleanupConfig
| RMStartEventTriggerCleanup !TriggerLogCleanupToggleConfig | RMResumeEventTriggerCleanup !TriggerLogCleanupToggleConfig
| RMPauseEventTriggerCleanup !TriggerLogCleanupToggleConfig | RMPauseEventTriggerCleanup !TriggerLogCleanupToggleConfig
| -- Remote schemas | -- Remote schemas
RMAddRemoteSchema !AddRemoteSchemaQuery RMAddRemoteSchema !AddRemoteSchemaQuery