mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-20 05:51:54 +03:00
63cff8b731
This commit introduces an "experimental" backend adapter to the GraphQL Engine. It defines a high-level interface which will eventually be used as the basis for implementing separate data source query generation & marshaling services that communicate with the GraphQL Engine Server via some protocol. PR-URL: https://github.com/hasura/graphql-engine-mono/pull/2684 Co-authored-by: awjchen <13142944+awjchen@users.noreply.github.com> Co-authored-by: Chris Parks <592078+cdparks@users.noreply.github.com> GitOrigin-RevId: 4463b682142ad6e069e223b88b14db511f634768
48 lines
1.3 KiB
Haskell
48 lines
1.3 KiB
Haskell
{-# LANGUAGE StandaloneKindSignatures #-}
|
|
|
|
module Hasura.Experimental.IR.Name
|
|
( Name (..),
|
|
NameType (..),
|
|
)
|
|
where
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
import Data.Aeson (FromJSON, FromJSONKey, ToJSON, ToJSONKey)
|
|
import Data.Kind (Type)
|
|
import Data.Text.Extended (ToTxt)
|
|
import Hasura.Incremental (Cacheable)
|
|
import Hasura.Prelude
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
-- | A tagged, opaque wrapper around 'Text' that provides a number of derived
|
|
-- derived instances (primarily as required by the @Backend@ typeclass).
|
|
--
|
|
-- This wrapper is indexed by 'NameType' so that different "names" can be
|
|
-- represented as semantically distinct types without the boilerplate of
|
|
-- actually defining these wrappers separately.
|
|
type Name :: NameType -> Type
|
|
newtype Name ty = Name {unName :: Text}
|
|
deriving stock (Data, Eq, Generic, Ord, Show)
|
|
deriving newtype
|
|
( Cacheable,
|
|
FromJSON,
|
|
FromJSONKey,
|
|
Hashable,
|
|
NFData,
|
|
ToJSON,
|
|
ToJSONKey,
|
|
ToTxt
|
|
)
|
|
|
|
-- | The "type" of "name" that the 'Name' type is meant to provide a textual
|
|
-- representation for.
|
|
--
|
|
-- In other words: an enumeration of all the types for which 'Name' acts as a
|
|
-- shared abstraction.
|
|
data NameType
|
|
= Column
|
|
| Function
|
|
| Table
|