mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-19 13:31:43 +03:00
94331e23f5
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/3924 GitOrigin-RevId: 75b276edcd2d1f88bbdbed1b96b08708f9c68450
36 lines
971 B
Haskell
36 lines
971 B
Haskell
{-# LANGUAGE DeriveAnyClass #-}
|
|
|
|
module Hasura.Backends.DataWrapper.IR.Scalar.Value
|
|
( Value (..),
|
|
)
|
|
where
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
import Data.Aeson (FromJSON, ToJSON)
|
|
import Hasura.Backends.DataWrapper.API qualified as API
|
|
import Hasura.Incremental (Cacheable)
|
|
import Hasura.Prelude
|
|
import Witch
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
-- | Literal scalar values that can appear as leaf nodes in expressions
|
|
--
|
|
-- NOTE: This type shouldn't _need_ ser/de instances, but they're imposed by
|
|
-- the 'Backend' class.
|
|
data Value
|
|
= String Text
|
|
| Number Double
|
|
| Boolean Bool
|
|
| Null
|
|
deriving stock (Data, Eq, Generic, Ord, Show)
|
|
deriving anyclass (Cacheable, FromJSON, Hashable, NFData, ToJSON)
|
|
|
|
instance From API.Value Value where
|
|
from = \case
|
|
API.String txt -> String txt
|
|
API.Number x -> Number x
|
|
API.Boolean p -> Boolean p
|
|
API.Null -> Null
|