From 1001e160604225ac034ea6b8bab60fe6ae071347 Mon Sep 17 00:00:00 2001
From: Solomon Bothwell <ssbothwell@gmail.com>
Date: Mon, 26 Apr 2021 21:22:32 -0700
Subject: [PATCH] Limits when `runMetadataQuery` bumps the resource version

GitOrigin-RevId: ce5bf96572e4b4325e1e1f26350ac10e6c90abc3
---
 server/src-lib/Hasura/Server/API/Metadata.hs | 27 ++++++++++++--------
 1 file changed, 16 insertions(+), 11 deletions(-)

diff --git a/server/src-lib/Hasura/Server/API/Metadata.hs b/server/src-lib/Hasura/Server/API/Metadata.hs
index db06c5e5002..6f014d81e25 100644
--- a/server/src-lib/Hasura/Server/API/Metadata.hs
+++ b/server/src-lib/Hasura/Server/API/Metadata.hs
@@ -316,19 +316,24 @@ queryModifiesMetadata :: RQLMetadataRequest -> Bool
 queryModifiesMetadata = \case
   RMV1 q ->
     case q of
-      RMGetCatalogState _      -> False
-      RMExportMetadata _       -> False
-      RMGetEventInvocations _  -> False
-      RMGetScheduledEvents _   -> False
-
-      RMCreateScheduledEvent _ -> False
-      RMDeleteScheduledEvent _ -> False
-      RMBulk qs                -> any queryModifiesMetadata qs
-      _                        -> True
+      RMPgRedeliverEvent _        -> False
+      RMPgInvokeEventTrigger _    -> False
+      RMGetInconsistentMetadata _ -> False
+      RMIntrospectRemoteSchema _  -> False
+      RMDumpInternalState _       -> False
+      RMSetCatalogState _         -> False
+      RMGetCatalogState _         -> False
+      RMExportMetadata _          -> False
+      RMGetEventInvocations _     -> False
+      RMGetScheduledEvents _      -> False
+      RMCreateScheduledEvent _    -> False
+      RMDeleteScheduledEvent _    -> False
+      RMBulk qs                   -> any queryModifiesMetadata qs
+      _                           -> True
   RMV2 q ->
     case q of
-      RMV2ExportMetadata _  -> False
-      RMV2ReplaceMetadata _ -> True
+      RMV2ExportMetadata _ -> False
+      _                    -> True
 
 runMetadataQueryM
   :: ( HasVersion