mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 20:41:49 +03:00
21 lines
602 B
Haskell
21 lines
602 B
Haskell
module Hasura.RQL.DDL.GraphqlSchemaIntrospection where
|
|
|
|
import Hasura.Prelude
|
|
|
|
import Control.Lens ((.~))
|
|
|
|
import Hasura.Base.Error
|
|
import Hasura.EncJSON
|
|
import Hasura.RQL.Types
|
|
|
|
|
|
runSetGraphqlSchemaIntrospectionOptions
|
|
:: (MonadError QErr m, MetadataM m, CacheRWM m)
|
|
=> SetGraphqlIntrospectionOptions -> m EncJSON
|
|
runSetGraphqlSchemaIntrospectionOptions introspectionOptions = do
|
|
withNewInconsistentObjsCheck
|
|
$ buildSchemaCache
|
|
$ MetadataModifier
|
|
$ metaSetGraphqlIntrospectionOptions .~ introspectionOptions
|
|
return successMsg
|