Syntax.hs

-- Note: this is an automatically generated file. Do not edit.

-- | A syntax model for TinkerPop's GraphSON format. This model is designed to be as inclusive as possible, supporting GraphSON 4.0 as well as earlier versions. See https://github.com/apache/tinkerpop/blob/master/docs/src/dev/io/graphson.asciidoc.

module Hydra.Pg.Graphson.Syntax where

import qualified Hydra.Core as Core
import Prelude hiding  (Enum, Ordering, decodeFloat, encodeFloat, fail, map, pure, sum)
import qualified Data.Scientific as Sci
import qualified Data.Int as I
import qualified Data.Map as M

newtype BigDecimalValue =
  BigDecimalValue {
    unBigDecimalValue :: String}
  deriving (Eq, Ord, Read, Show)

_BigDecimalValue = Core.Name "hydra.pg.graphson.syntax.BigDecimalValue"

data CompositeTypedValue =
  CompositeTypedValue {
    compositeTypedValueType :: TypeName,
    compositeTypedValueFields :: Map}
  deriving (Eq, Ord, Read, Show)

_CompositeTypedValue = Core.Name "hydra.pg.graphson.syntax.CompositeTypedValue"

_CompositeTypedValue_type = Core.Name "type"

_CompositeTypedValue_fields = Core.Name "fields"

newtype DateTime =
  DateTime {
    unDateTime :: String}
  deriving (Eq, Ord, Read, Show)

_DateTime = Core.Name "hydra.pg.graphson.syntax.DateTime"

data DoubleValue =
  DoubleValueFinite Double |
  DoubleValueInfinity  |
  DoubleValueNegativeInfinity  |
  DoubleValueNotANumber
  deriving (Eq, Ord, Read, Show)

_DoubleValue = Core.Name "hydra.pg.graphson.syntax.DoubleValue"

_DoubleValue_finite = Core.Name "finite"

_DoubleValue_infinity = Core.Name "infinity"

_DoubleValue_negativeInfinity = Core.Name "negativeInfinity"

_DoubleValue_notANumber = Core.Name "notANumber"

newtype Duration =
  Duration {
    unDuration :: String}
  deriving (Eq, Ord, Read, Show)

_Duration = Core.Name "hydra.pg.graphson.syntax.Duration"

newtype EdgeLabel =
  EdgeLabel {
    unEdgeLabel :: String}
  deriving (Eq, Ord, Read, Show)

_EdgeLabel = Core.Name "hydra.pg.graphson.syntax.EdgeLabel"

data FloatValue =
  FloatValueFinite Float |
  FloatValueInfinity  |
  FloatValueNegativeInfinity  |
  FloatValueNotANumber
  deriving (Eq, Ord, Read, Show)

_FloatValue = Core.Name "hydra.pg.graphson.syntax.FloatValue"

_FloatValue_finite = Core.Name "finite"

_FloatValue_infinity = Core.Name "infinity"

_FloatValue_negativeInfinity = Core.Name "negativeInfinity"

_FloatValue_notANumber = Core.Name "notANumber"

newtype Map =
  Map {
    unMap :: [ValuePair]}
  deriving (Eq, Ord, Read, Show)

_Map = Core.Name "hydra.pg.graphson.syntax.Map"

data AdjacentEdge =
  AdjacentEdge {
    adjacentEdgeId :: Value,
    adjacentEdgeVertexId :: Value,
    adjacentEdgeProperties :: (M.Map PropertyKey Value)}
  deriving (Eq, Ord, Read, Show)

_AdjacentEdge = Core.Name "hydra.pg.graphson.syntax.AdjacentEdge"

_AdjacentEdge_id = Core.Name "id"

_AdjacentEdge_vertexId = Core.Name "vertexId"

_AdjacentEdge_properties = Core.Name "properties"

data PrimitiveTypedValue =
  PrimitiveTypedValue {
    primitiveTypedValueType :: TypeName,
    primitiveTypedValueValue :: String}
  deriving (Eq, Ord, Read, Show)

_PrimitiveTypedValue = Core.Name "hydra.pg.graphson.syntax.PrimitiveTypedValue"

_PrimitiveTypedValue_type = Core.Name "type"

_PrimitiveTypedValue_value = Core.Name "value"

newtype PropertyKey =
  PropertyKey {
    unPropertyKey :: String}
  deriving (Eq, Ord, Read, Show)

_PropertyKey = Core.Name "hydra.pg.graphson.syntax.PropertyKey"

newtype TypeName =
  TypeName {
    unTypeName :: String}
  deriving (Eq, Ord, Read, Show)

_TypeName = Core.Name "hydra.pg.graphson.syntax.TypeName"

newtype Uuid =
  Uuid {
    unUuid :: String}
  deriving (Eq, Ord, Read, Show)

_Uuid = Core.Name "hydra.pg.graphson.syntax.Uuid"

data Value =
  ValueBigDecimal BigDecimalValue |
  ValueBigInteger Integer |
  ValueBinary String |
  ValueBoolean Bool |
  ValueByte I.Int16 |
  ValueChar I.Int64 |
  ValueComposite CompositeTypedValue |
  ValueDateTime DateTime |
  ValueDouble DoubleValue |
  ValueDuration Duration |
  ValueFloat FloatValue |
  ValueInteger Int |
  ValueList [Value] |
  ValueLong I.Int64 |
  ValueMap Map |
  ValueNull  |
  ValuePrimitive PrimitiveTypedValue |
  ValueSet [Value] |
  ValueShort I.Int16 |
  ValueString String |
  ValueUuid Uuid
  deriving (Eq, Ord, Read, Show)

_Value = Core.Name "hydra.pg.graphson.syntax.Value"

_Value_bigDecimal = Core.Name "bigDecimal"

_Value_bigInteger = Core.Name "bigInteger"

_Value_binary = Core.Name "binary"

_Value_boolean = Core.Name "boolean"

_Value_byte = Core.Name "byte"

_Value_char = Core.Name "char"

_Value_composite = Core.Name "composite"

_Value_dateTime = Core.Name "dateTime"

_Value_double = Core.Name "double"

_Value_duration = Core.Name "duration"

_Value_float = Core.Name "float"

_Value_integer = Core.Name "integer"

_Value_list = Core.Name "list"

_Value_long = Core.Name "long"

_Value_map = Core.Name "map"

_Value_null = Core.Name "null"

_Value_primitive = Core.Name "primitive"

_Value_set = Core.Name "set"

_Value_short = Core.Name "short"

_Value_string = Core.Name "string"

_Value_uuid = Core.Name "uuid"

data ValuePair =
  ValuePair {
    valuePairFirst :: Value,
    valuePairSecond :: Value}
  deriving (Eq, Ord, Read, Show)

_ValuePair = Core.Name "hydra.pg.graphson.syntax.ValuePair"

_ValuePair_first = Core.Name "first"

_ValuePair_second = Core.Name "second"

data Vertex =
  Vertex {
    vertexId :: Value,
    vertexLabel :: (Maybe VertexLabel),
    vertexInEdges :: (M.Map EdgeLabel [AdjacentEdge]),
    vertexOutEdges :: (M.Map EdgeLabel [AdjacentEdge]),
    vertexProperties :: (M.Map PropertyKey [VertexPropertyValue])}
  deriving (Eq, Ord, Read, Show)

_Vertex = Core.Name "hydra.pg.graphson.syntax.Vertex"

_Vertex_id = Core.Name "id"

_Vertex_label = Core.Name "label"

_Vertex_inEdges = Core.Name "inEdges"

_Vertex_outEdges = Core.Name "outEdges"

_Vertex_properties = Core.Name "properties"

newtype VertexLabel =
  VertexLabel {
    unVertexLabel :: String}
  deriving (Eq, Ord, Read, Show)

_VertexLabel = Core.Name "hydra.pg.graphson.syntax.VertexLabel"

data VertexPropertyValue =
  VertexPropertyValue {
    vertexPropertyValueId :: (Maybe Value),
    vertexPropertyValueValue :: Value}
  deriving (Eq, Ord, Read, Show)

_VertexPropertyValue = Core.Name "hydra.pg.graphson.syntax.VertexPropertyValue"

_VertexPropertyValue_id = Core.Name "id"

_VertexPropertyValue_value = Core.Name "value"