-- | module Hasura.RQL.DDL.ApiLimit where import Hasura.Prelude import Control.Lens ((.~)) import Hasura.EncJSON import Hasura.RQL.Types runSetApiLimits :: (MonadError QErr m, MetadataM m, CacheRWM m) => ApiLimit -> m EncJSON runSetApiLimits al = do withNewInconsistentObjsCheck $ buildSchemaCache $ MetadataModifier $ metaApiLimits .~ al return successMsg runRemoveApiLimits :: (MonadError QErr m, MetadataM m, CacheRWM m) => m EncJSON runRemoveApiLimits = do withNewInconsistentObjsCheck $ buildSchemaCache $ MetadataModifier $ metaApiLimits .~ emptyApiLimit return successMsg