mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 20:41:49 +03:00
e0c0043e76
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/9284 GitOrigin-RevId: 2f2cf2ad01900a54e4bdb970205ac0ef313c7e00
57 lines
2.1 KiB
Haskell
57 lines
2.1 KiB
Haskell
module Hasura.Metadata.DTO.Metadata (MetadataDTO (..)) where
|
|
|
|
import Autodocodec
|
|
( Autodocodec (Autodocodec),
|
|
HasCodec (codec),
|
|
dimapCodec,
|
|
disjointEitherCodec,
|
|
named,
|
|
(<?>),
|
|
)
|
|
import Autodocodec.OpenAPI ()
|
|
import Data.Aeson (FromJSON, ToJSON)
|
|
import Data.OpenApi qualified as OpenApi
|
|
import Hasura.Metadata.DTO.MetadataV1 (MetadataV1)
|
|
import Hasura.Metadata.DTO.MetadataV2 (MetadataV2)
|
|
import Hasura.Metadata.DTO.MetadataV3 (MetadataV3)
|
|
import Hasura.Prelude
|
|
|
|
-- | Exported representation of the GraphQL Engine metadata configuration
|
|
-- format.
|
|
--
|
|
-- The OpenAPI specification for metadata is experimental and incomplete. Please
|
|
-- do not incorporate it into essential workflows at this time.
|
|
data MetadataDTO = V1 MetadataV1 | V2 MetadataV2 | V3 MetadataV3
|
|
deriving stock (Show, Eq, Generic)
|
|
deriving (FromJSON, ToJSON, OpenApi.ToSchema) via (Autodocodec MetadataDTO)
|
|
|
|
-- | Sum types translate to union types in OpenApi documents via
|
|
-- `disjointEitherCodec` (or via `eitherCodec` if the encoded JSON is not
|
|
-- necessarily disjoint). In this case we ensure that the encodings of
|
|
-- 'MetadataV1', 'MetadataV2', and 'MetadataV3' are disjoint by using
|
|
-- 'versionField' in the codec for each variant which injects a field into the
|
|
-- JSON representation that requires a specific number to parse successfully.
|
|
-- ('MetadataV1' is the only variant where the version field is optional.)
|
|
--
|
|
-- A codec that represents more than two variants of different types requires
|
|
-- nesting `disjointEitherCodec`. Thankfully in the generated OpenApi
|
|
-- documentation these three variants are flattened into a single @oneOf@ list
|
|
-- of allowed schemas.
|
|
instance HasCodec MetadataDTO where
|
|
codec =
|
|
named "Metadata"
|
|
$ dimapCodec decode encode
|
|
$ disjointEitherCodec
|
|
(codec @MetadataV1)
|
|
( disjointEitherCodec
|
|
(codec @MetadataV2)
|
|
(codec @MetadataV3)
|
|
)
|
|
<?> "configuration format for the Hasura GraphQL Engine"
|
|
where
|
|
decode = either V1 $ either V2 V3
|
|
encode = \case
|
|
V1 v1 -> Left v1
|
|
V2 v2 -> Right $ Left v2
|
|
V3 v3 -> Right $ Right v3
|