Source file values.ml

(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Awso
open! Import
[@@@warning "-32"]
let service = Service.neptune_graph
let apiVersion = "2023-11-29"
let endpointPrefix = "neptune-graph"
let serviceFullName = "Amazon Neptune Graph"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Neptune Graph"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module ExportFilterOutputDataType =
  struct
    type nonrec t = string
    let context_ = "ExportFilterOutputDataType"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(Any|Byte|Short|Int|Long|Float|Double|String|Bool|Boolean|Float\\[\\]|Double\\[\\])");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ExportFilterOutputDataType" j
    let to_json = simple_to_json to_value
  end
module ExportFilterSourcePropertyName =
  struct
    type nonrec t = string
    let context_ = "ExportFilterSourcePropertyName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ExportFilterSourcePropertyName" j
    let to_json = simple_to_json to_value
  end
module MultiValueHandlingType =
  struct
    type nonrec t =
      | TO_LIST 
      | PICK_FIRST 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TO_LIST -> "TO_LIST"
      | PICK_FIRST -> "PICK_FIRST"
      | Non_static_id s -> s
    let of_string =
      function
      | "TO_LIST" -> TO_LIST
      | "PICK_FIRST" -> PICK_FIRST
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration MultiValueHandlingType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"MultiValueHandlingType" j)
    let to_json = simple_to_json to_value
  end
module ExportFilterOutputPropertyName =
  struct
    type nonrec t = string
    let context_ = "ExportFilterOutputPropertyName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ExportFilterOutputPropertyName" j
    let to_json = simple_to_json to_value
  end
module ExportFilterPropertyAttributes =
  struct
    type nonrec t =
      {
      outputType: ExportFilterOutputDataType.t option
        [@ocaml.doc
          "Specifies the data type to use for the property in the exported data (e.g. \"String\", \"Int\", \"Float\"). If a type is not provided, the export process will determine the type. If a given property is present as multiple types (e.g. one vertex has \"height\" stored as a double, and another edge has it stored as a string), the type will be of Any type, otherwise, it will be the type of the property as present in vertices."];
      sourcePropertyName: ExportFilterSourcePropertyName.t option
        [@ocaml.doc
          "The name of the property as it exists in the original graph data. If not provided, it is assumed that the key matches the desired sourcePropertyName."];
      multiValueHandling: MultiValueHandlingType.t option
        [@ocaml.doc
          "Specifies how to handle properties that have multiple values. Can be either TO_LIST to export all values as a list, or PICK_FIRST to export the first value encountered. If not specified, the default value is PICK_FIRST."]}
    let make ?outputType =
      fun ?sourcePropertyName ->
        fun ?multiValueHandling ->
          fun () -> { outputType; sourcePropertyName; multiValueHandling }
    let to_value x =
      structure_to_value
        [("outputType",
           (Option.map x.outputType ~f:ExportFilterOutputDataType.to_value));
        ("sourcePropertyName",
          (Option.map x.sourcePropertyName
             ~f:ExportFilterSourcePropertyName.to_value));
        ("multiValueHandling",
          (Option.map x.multiValueHandling ~f:MultiValueHandlingType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let multiValueHandling =
        (Option.map ~f:MultiValueHandlingType.of_xml)
          (Xml.child xml_arg0 "multiValueHandling") in
      let sourcePropertyName =
        (Option.map ~f:ExportFilterSourcePropertyName.of_xml)
          (Xml.child xml_arg0 "sourcePropertyName") in
      let outputType =
        (Option.map ~f:ExportFilterOutputDataType.of_xml)
          (Xml.child xml_arg0 "outputType") in
      make ?multiValueHandling ?sourcePropertyName ?outputType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let multiValueHandling =
        field_map json__ "multiValueHandling" MultiValueHandlingType.of_json in
      let sourcePropertyName =
        field_map json__ "sourcePropertyName"
          ExportFilterSourcePropertyName.of_json in
      let outputType =
        field_map json__ "outputType" ExportFilterOutputDataType.of_json in
      make ?multiValueHandling ?sourcePropertyName ?outputType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure representing a property's attributes. It is a map object of outputType, sourcePropertyName and multiValueHandling."]
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module ExportFilterPropertyMap =
  struct
    type nonrec t =
      (ExportFilterOutputPropertyName.t * ExportFilterPropertyAttributes.t)
        list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types ExportFilterOutputPropertyName ExportFilterPropertyAttributes"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ExportFilterOutputPropertyName.to_value x) |>
                    (fun x ->
                       (ExportFilterPropertyAttributes.to_value y) |>
                         (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:ExportFilterOutputPropertyName.of_string
        ~of_json:ExportFilterPropertyAttributes.of_json j
    let to_json v = composed_to_json to_value v
  end
module SubnetId =
  struct
    type nonrec t = string
    let context_ = "SubnetId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"subnet-[a-z0-9]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SubnetId" j
    let to_json = simple_to_json to_value
  end
module EdgeProperties =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"EdgeProperties" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module NodeProperties =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"NodeProperties" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module OutgoingEdgeLabels =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"OutgoingEdgeLabels" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module NeptuneImportOptionsS3ExportKmsKeyIdString =
  struct
    type nonrec t = string
    let context_ = "NeptuneImportOptionsS3ExportKmsKeyIdString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"NeptuneImportOptionsS3ExportKmsKeyIdString" j
    let to_json = simple_to_json to_value
  end
module NeptuneImportOptionsS3ExportPathString =
  struct
    type nonrec t = string
    let context_ = "NeptuneImportOptionsS3ExportPathString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"NeptuneImportOptionsS3ExportPathString" j
    let to_json = simple_to_json to_value
  end
module ExportFilterElement =
  struct
    type nonrec t =
      {
      properties: ExportFilterPropertyMap.t option
        [@ocaml.doc
          "Each property is defined by a key-value pair, where the key is the desired output property name (e.g. \"name\"), and the value is an object."]}
    let make ?properties = fun () -> { properties }
    let to_value x =
      structure_to_value
        [("properties",
           (Option.map x.properties ~f:ExportFilterPropertyMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let properties =
        (Option.map ~f:ExportFilterPropertyMap.of_xml)
          (Xml.child xml_arg0 "properties") in
      make ?properties ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let properties =
        field_map json__ "properties" ExportFilterPropertyMap.of_json in
      make ?properties ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies which properties of that label should be included in the export."]
module ExportFilterLabel =
  struct
    type nonrec t = string
    let context_ = "ExportFilterLabel"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ExportFilterLabel" j
    let to_json = simple_to_json to_value
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module QueryState =
  struct
    type nonrec t =
      | RUNNING 
      | WAITING 
      | CANCELLING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RUNNING -> "RUNNING"
      | WAITING -> "WAITING"
      | CANCELLING -> "CANCELLING"
      | Non_static_id s -> s
    let of_string =
      function
      | "RUNNING" -> RUNNING
      | "WAITING" -> WAITING
      | "CANCELLING" -> CANCELLING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration QueryState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"QueryState" j)
    let to_json = simple_to_json to_value
  end
module PrivateGraphEndpointStatus =
  struct
    type nonrec t =
      | CREATING 
      | AVAILABLE 
      | DELETING 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration PrivateGraphEndpointStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PrivateGraphEndpointStatus" j)
    let to_json = simple_to_json to_value
  end
module SubnetIds =
  struct
    type nonrec t = SubnetId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:6) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SubnetId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SubnetId.of_xml)
    let of_json j =
      list_of_json ~kind:"SubnetIds" ~of_json:SubnetId.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcEndpointId =
  struct
    type nonrec t = string
    let context_ = "VpcEndpointId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"vpce-[0-9a-f]{17}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VpcEndpointId" j
    let to_json = simple_to_json to_value
  end
module VpcId =
  struct
    type nonrec t = string
    let context_ = "VpcId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"vpc-[a-z0-9]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VpcId" j
    let to_json = simple_to_json to_value
  end
module Format_ =
  struct
    type nonrec t =
      | CSV 
      | OPEN_CYPHER 
      | PARQUET 
      | NTRIPLES 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CSV -> "CSV"
      | OPEN_CYPHER -> "OPEN_CYPHER"
      | PARQUET -> "PARQUET"
      | NTRIPLES -> "NTRIPLES"
      | Non_static_id s -> s
    let of_string =
      function
      | "CSV" -> CSV
      | "OPEN_CYPHER" -> OPEN_CYPHER
      | "PARQUET" -> PARQUET
      | "NTRIPLES" -> NTRIPLES
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Format" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Format" j)
    let to_json = simple_to_json to_value
  end
module GraphId =
  struct
    type nonrec t = string
    let context_ = "GraphId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"g-[a-z0-9]{10}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GraphId" j
    let to_json = simple_to_json to_value
  end
module ImportTaskStatus =
  struct
    type nonrec t =
      | INITIALIZING 
      | EXPORTING 
      | ANALYZING_DATA 
      | IMPORTING 
      | REPROVISIONING 
      | ROLLING_BACK 
      | SUCCEEDED 
      | FAILED 
      | CANCELLING 
      | CANCELLED 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INITIALIZING -> "INITIALIZING"
      | EXPORTING -> "EXPORTING"
      | ANALYZING_DATA -> "ANALYZING_DATA"
      | IMPORTING -> "IMPORTING"
      | REPROVISIONING -> "REPROVISIONING"
      | ROLLING_BACK -> "ROLLING_BACK"
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | CANCELLING -> "CANCELLING"
      | CANCELLED -> "CANCELLED"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "INITIALIZING" -> INITIALIZING
      | "EXPORTING" -> EXPORTING
      | "ANALYZING_DATA" -> ANALYZING_DATA
      | "IMPORTING" -> IMPORTING
      | "REPROVISIONING" -> REPROVISIONING
      | "ROLLING_BACK" -> ROLLING_BACK
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | "CANCELLING" -> CANCELLING
      | "CANCELLED" -> CANCELLED
      | "DELETED" -> DELETED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ImportTaskStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ImportTaskStatus" j)
    let to_json = simple_to_json to_value
  end
module ParquetType =
  struct
    type nonrec t =
      | COLUMNAR 
      | Non_static_id of string 
    let make i = i
    let to_string = function | COLUMNAR -> "COLUMNAR" | Non_static_id s -> s
    let of_string = function | "COLUMNAR" -> COLUMNAR | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ParquetType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ParquetType" j)
    let to_json = simple_to_json to_value
  end
module RoleArn =
  struct
    type nonrec t = string
    let context_ = "RoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws[^:]*:iam::\\d{12}:(role|role/service-role)(/[\\w+=,.@-]+)+");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RoleArn" j
    let to_json = simple_to_json to_value
  end
module TaskId =
  struct
    type nonrec t = string
    let context_ = "TaskId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"t-[a-z0-9]{10}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TaskId" j
    let to_json = simple_to_json to_value
  end
module GraphName =
  struct
    type nonrec t = string
    let context_ = "GraphName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?!g-)[a-z][a-z0-9]*(-[a-z0-9]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GraphName" j
    let to_json = simple_to_json to_value
  end
module GraphStatus =
  struct
    type nonrec t =
      | CREATING 
      | AVAILABLE 
      | DELETING 
      | RESETTING 
      | UPDATING 
      | SNAPSHOTTING 
      | FAILED 
      | IMPORTING 
      | STARTING 
      | STOPPING 
      | STOPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | RESETTING -> "RESETTING"
      | UPDATING -> "UPDATING"
      | SNAPSHOTTING -> "SNAPSHOTTING"
      | FAILED -> "FAILED"
      | IMPORTING -> "IMPORTING"
      | STARTING -> "STARTING"
      | STOPPING -> "STOPPING"
      | STOPPED -> "STOPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | "RESETTING" -> RESETTING
      | "UPDATING" -> UPDATING
      | "SNAPSHOTTING" -> SNAPSHOTTING
      | "FAILED" -> FAILED
      | "IMPORTING" -> IMPORTING
      | "STARTING" -> STARTING
      | "STOPPING" -> STOPPING
      | "STOPPED" -> STOPPED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration GraphStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GraphStatus" j)
    let to_json = simple_to_json to_value
  end
module ProvisionedMemory =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:24576) >>=
             (fun () -> check_int_min i ~min:16));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ProvisionedMemory" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ReplicaCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:2) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ReplicaCount" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module KmsKeyArn =
  struct
    type nonrec t = string
    let context_ = "KmsKeyArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(|-cn|-us-gov):kms:[a-zA-Z0-9-]*:[0-9]{12}:key/[a-zA-Z0-9-]{36}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"KmsKeyArn" j
    let to_json = simple_to_json to_value
  end
module SnapshotId =
  struct
    type nonrec t = string
    let context_ = "SnapshotId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"gs-[a-z0-9]{10}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SnapshotId" j
    let to_json = simple_to_json to_value
  end
module SnapshotName =
  struct
    type nonrec t = string
    let context_ = "SnapshotName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?!gs-)[a-z][a-z0-9]*(-[a-z0-9]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SnapshotName" j
    let to_json = simple_to_json to_value
  end
module SnapshotStatus =
  struct
    type nonrec t =
      | CREATING 
      | AVAILABLE 
      | DELETING 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | AVAILABLE -> "AVAILABLE"
      | DELETING -> "DELETING"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "AVAILABLE" -> AVAILABLE
      | "DELETING" -> DELETING
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration SnapshotStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SnapshotStatus" j)
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module ExportFormat =
  struct
    type nonrec t =
      | PARQUET 
      | CSV 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | PARQUET -> "PARQUET" | CSV -> "CSV" | Non_static_id s -> s
    let of_string =
      function | "PARQUET" -> PARQUET | "CSV" -> CSV | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ExportFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExportFormat" j)
    let to_json = simple_to_json to_value
  end
module ExportTaskId =
  struct
    type nonrec t = string
    let context_ = "ExportTaskId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"t-[a-z0-9]{10}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ExportTaskId" j
    let to_json = simple_to_json to_value
  end
module ExportTaskStatus =
  struct
    type nonrec t =
      | INITIALIZING 
      | EXPORTING 
      | SUCCEEDED 
      | FAILED 
      | CANCELLING 
      | CANCELLED 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INITIALIZING -> "INITIALIZING"
      | EXPORTING -> "EXPORTING"
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | CANCELLING -> "CANCELLING"
      | CANCELLED -> "CANCELLED"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "INITIALIZING" -> INITIALIZING
      | "EXPORTING" -> EXPORTING
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | "CANCELLING" -> CANCELLING
      | "CANCELLED" -> CANCELLED
      | "DELETED" -> DELETED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ExportTaskStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExportTaskStatus" j)
    let to_json = simple_to_json to_value
  end
module ExportTaskSummaryDestinationString =
  struct
    type nonrec t = string
    let context_ = "ExportTaskSummaryDestinationString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ExportTaskSummaryDestinationString" j
    let to_json = simple_to_json to_value
  end
module EdgeStructure =
  struct
    type nonrec t =
      {
      count: Long.t option
        [@ocaml.doc "The number of instances of the edge in the graph."];
      edgeProperties: EdgeProperties.t option
        [@ocaml.doc "A list of the properties associated with the edge."]}
    let make ?count =
      fun ?edgeProperties -> fun () -> { count; edgeProperties }
    let to_value x =
      structure_to_value
        [("count", (Option.map x.count ~f:Long.to_value));
        ("edgeProperties",
          (Option.map x.edgeProperties ~f:EdgeProperties.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let edgeProperties =
        (Option.map ~f:EdgeProperties.of_xml)
          (Xml.child xml_arg0 "edgeProperties") in
      let count = (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "count") in
      make ?edgeProperties ?count ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let edgeProperties =
        field_map json__ "edgeProperties" EdgeProperties.of_json in
      let count = field_map json__ "count" Long.of_json in
      make ?edgeProperties ?count ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an edge in a Neptune Analytics graph."]
module LongValuedMap =
  struct
    type nonrec t = (String_.t * Long.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped), (Long.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (Long.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string ~of_json:Long.of_json j
    let to_json v = composed_to_json to_value v
  end
module NodeStructure =
  struct
    type nonrec t =
      {
      count: Long.t option
        [@ocaml.doc "The number of instances of this node."];
      nodeProperties: NodeProperties.t option
        [@ocaml.doc "Properties associated with this node."];
      distinctOutgoingEdgeLabels: OutgoingEdgeLabels.t option
        [@ocaml.doc "The outgoing edge labels associated with this node."]}
    let make ?count =
      fun ?nodeProperties ->
        fun ?distinctOutgoingEdgeLabels ->
          fun () -> { count; nodeProperties; distinctOutgoingEdgeLabels }
    let to_value x =
      structure_to_value
        [("count", (Option.map x.count ~f:Long.to_value));
        ("nodeProperties",
          (Option.map x.nodeProperties ~f:NodeProperties.to_value));
        ("distinctOutgoingEdgeLabels",
          (Option.map x.distinctOutgoingEdgeLabels
             ~f:OutgoingEdgeLabels.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let distinctOutgoingEdgeLabels =
        (Option.map ~f:OutgoingEdgeLabels.of_xml)
          (Xml.child xml_arg0 "distinctOutgoingEdgeLabels") in
      let nodeProperties =
        (Option.map ~f:NodeProperties.of_xml)
          (Xml.child xml_arg0 "nodeProperties") in
      let count = (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "count") in
      make ?distinctOutgoingEdgeLabels ?nodeProperties ?count ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let distinctOutgoingEdgeLabels =
        field_map json__ "distinctOutgoingEdgeLabels"
          OutgoingEdgeLabels.of_json in
      let nodeProperties =
        field_map json__ "nodeProperties" NodeProperties.of_json in
      let count = field_map json__ "count" Long.of_json in
      make ?distinctOutgoingEdgeLabels ?nodeProperties ?count ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a node."]
module ConflictExceptionReason =
  struct
    type nonrec t =
      | CONCURRENT_MODIFICATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CONCURRENT_MODIFICATION -> "CONCURRENT_MODIFICATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "CONCURRENT_MODIFICATION" -> CONCURRENT_MODIFICATION
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ConflictExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConflictExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | CONSTRAINT_VIOLATION 
      | ILLEGAL_ARGUMENT 
      | MALFORMED_QUERY 
      | QUERY_CANCELLED 
      | QUERY_TOO_LARGE 
      | UNSUPPORTED_OPERATION 
      | BAD_REQUEST 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CONSTRAINT_VIOLATION -> "CONSTRAINT_VIOLATION"
      | ILLEGAL_ARGUMENT -> "ILLEGAL_ARGUMENT"
      | MALFORMED_QUERY -> "MALFORMED_QUERY"
      | QUERY_CANCELLED -> "QUERY_CANCELLED"
      | QUERY_TOO_LARGE -> "QUERY_TOO_LARGE"
      | UNSUPPORTED_OPERATION -> "UNSUPPORTED_OPERATION"
      | BAD_REQUEST -> "BAD_REQUEST"
      | Non_static_id s -> s
    let of_string =
      function
      | "CONSTRAINT_VIOLATION" -> CONSTRAINT_VIOLATION
      | "ILLEGAL_ARGUMENT" -> ILLEGAL_ARGUMENT
      | "MALFORMED_QUERY" -> MALFORMED_QUERY
      | "QUERY_CANCELLED" -> QUERY_CANCELLED
      | "QUERY_TOO_LARGE" -> QUERY_TOO_LARGE
      | "UNSUPPORTED_OPERATION" -> UNSUPPORTED_OPERATION
      | "BAD_REQUEST" -> BAD_REQUEST
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module VectorSearchDimension =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:65536) >>=
             (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for VectorSearchDimension" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"(?!aws:)[a-zA-Z+-=._:/]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module NeptuneImportOptions =
  struct
    type nonrec t =
      {
      s3ExportPath: NeptuneImportOptionsS3ExportPathString.t
        [@ocaml.doc "The path to an S3 bucket from which to import data."];
      s3ExportKmsKeyId: NeptuneImportOptionsS3ExportKmsKeyIdString.t
        [@ocaml.doc
          "The KMS key to use to encrypt data in the S3 bucket where the graph data is exported"];
      preserveDefaultVertexLabels: Boolean.t option
        [@ocaml.doc
          "Neptune Analytics supports label-less vertices and no labels are assigned unless one is explicitly provided. Neptune assigns default labels when none is explicitly provided. When importing the data into Neptune Analytics, the default vertex labels can be omitted by setting preserveDefaultVertexLabels to false. Note that if the vertex only has default labels, and has no other properties or edges, then the vertex will effectively not get imported into Neptune Analytics when preserveDefaultVertexLabels is set to false."];
      preserveEdgeIds: Boolean.t option
        [@ocaml.doc
          "Neptune Analytics currently does not support user defined edge ids. The edge ids are not imported by default. They are imported if preserveEdgeIds is set to true, and ids are stored as properties on the relationships with the property name neptuneEdgeId."]}
    let context_ = "NeptuneImportOptions"
    let make ?preserveDefaultVertexLabels =
      fun ?preserveEdgeIds ->
        fun ~s3ExportPath ->
          fun ~s3ExportKmsKeyId ->
            fun () ->
              {
                preserveDefaultVertexLabels;
                preserveEdgeIds;
                s3ExportPath;
                s3ExportKmsKeyId
              }
    let to_value x =
      structure_to_value
        [("s3ExportPath",
           (Some
              (NeptuneImportOptionsS3ExportPathString.to_value x.s3ExportPath)));
        ("s3ExportKmsKeyId",
          (Some
             (NeptuneImportOptionsS3ExportKmsKeyIdString.to_value
                x.s3ExportKmsKeyId)));
        ("preserveDefaultVertexLabels",
          (Option.map x.preserveDefaultVertexLabels ~f:Boolean.to_value));
        ("preserveEdgeIds",
          (Option.map x.preserveEdgeIds ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let preserveEdgeIds =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "preserveEdgeIds") in
      let preserveDefaultVertexLabels =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "preserveDefaultVertexLabels") in
      let s3ExportKmsKeyId =
        NeptuneImportOptionsS3ExportKmsKeyIdString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "s3ExportKmsKeyId") in
      let s3ExportPath =
        NeptuneImportOptionsS3ExportPathString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "s3ExportPath") in
      make ?preserveEdgeIds ?preserveDefaultVertexLabels ~s3ExportKmsKeyId
        ~s3ExportPath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let preserveEdgeIds =
        field_map json__ "preserveEdgeIds" Boolean.of_json in
      let preserveDefaultVertexLabels =
        field_map json__ "preserveDefaultVertexLabels" Boolean.of_json in
      let s3ExportKmsKeyId =
        field_map_exn json__ "s3ExportKmsKeyId"
          NeptuneImportOptionsS3ExportKmsKeyIdString.of_json in
      let s3ExportPath =
        field_map_exn json__ "s3ExportPath"
          NeptuneImportOptionsS3ExportPathString.of_json in
      make ?preserveEdgeIds ?preserveDefaultVertexLabels ~s3ExportKmsKeyId
        ~s3ExportPath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Options for how to import Neptune data."]
module ExportFilterPerLabelMap =
  struct
    type nonrec t = (ExportFilterLabel.t * ExportFilterElement.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types ExportFilterLabel ExportFilterElement"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ExportFilterLabel.to_value x) |>
                    (fun x ->
                       (ExportFilterElement.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:ExportFilterLabel.of_string
        ~of_json:ExportFilterElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module QuerySummary =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc "A string representation of the id of the query."];
      queryString: String_.t option
        [@ocaml.doc
          "The actual query text. The queryString may be truncated if the actual query string is too long."];
      waited: Integer.t option
        [@ocaml.doc
          "The amount of time, in milliseconds, the query has waited in the queue before being picked up by a worker thread."];
      elapsed: Integer.t option
        [@ocaml.doc "The running time of the query, in milliseconds."];
      state: QueryState.t option [@ocaml.doc "State of the query."]}
    let make ?id =
      fun ?queryString ->
        fun ?waited ->
          fun ?elapsed ->
            fun ?state ->
              fun () -> { id; queryString; waited; elapsed; state }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:String_.to_value));
        ("queryString", (Option.map x.queryString ~f:String_.to_value));
        ("waited", (Option.map x.waited ~f:Integer.to_value));
        ("elapsed", (Option.map x.elapsed ~f:Integer.to_value));
        ("state", (Option.map x.state ~f:QueryState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:QueryState.of_xml) (Xml.child xml_arg0 "state") in
      let elapsed =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "elapsed") in
      let waited =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "waited") in
      let queryString =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "queryString") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      make ?state ?elapsed ?waited ?queryString ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "state" QueryState.of_json in
      let elapsed = field_map json__ "elapsed" Integer.of_json in
      let waited = field_map json__ "waited" Integer.of_json in
      let queryString = field_map json__ "queryString" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      make ?state ?elapsed ?waited ?queryString ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details of the query listed."]
module PrivateGraphEndpointSummary =
  struct
    type nonrec t =
      {
      vpcId: VpcId.t option
        [@ocaml.doc
          "The ID of the VPC in which the private graph endpoint is located."];
      subnetIds: SubnetIds.t option
        [@ocaml.doc
          "The subnet IDs associated with the private graph endpoint."];
      status: PrivateGraphEndpointStatus.t option
        [@ocaml.doc "The status of the private graph endpoint."];
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc "The ID of the VPC endpoint."]}
    let make ?vpcId =
      fun ?subnetIds ->
        fun ?status ->
          fun ?vpcEndpointId ->
            fun () -> { vpcId; subnetIds; status; vpcEndpointId }
    let to_value x =
      structure_to_value
        [("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("subnetIds", (Option.map x.subnetIds ~f:SubnetIds.to_value));
        ("status",
          (Option.map x.status ~f:PrivateGraphEndpointStatus.to_value));
        ("vpcEndpointId",
          (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "vpcEndpointId") in
      let status =
        (Option.map ~f:PrivateGraphEndpointStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let subnetIds =
        (Option.map ~f:SubnetIds.of_xml) (Xml.child xml_arg0 "subnetIds") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      make ?vpcEndpointId ?status ?subnetIds ?vpcId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointId =
        field_map json__ "vpcEndpointId" VpcEndpointId.of_json in
      let status =
        field_map json__ "status" PrivateGraphEndpointStatus.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetIds.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      make ?vpcEndpointId ?status ?subnetIds ?vpcId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about a private graph endpoint."]
module ImportTaskSummary =
  struct
    type nonrec t =
      {
      graphId: GraphId.t option
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      taskId: TaskId.t option
        [@ocaml.doc "The unique identifier of the import task."];
      source: String_.t option
        [@ocaml.doc
          "A URL identifying to the location of the data to be imported. This can be an Amazon S3 path, or can point to a Neptune database endpoint or snapshot"];
      format: Format_.t option
        [@ocaml.doc
          "Specifies the format of S3 data to be imported. Valid values are CSV, which identifies the Gremlin CSV format or OPENCYPHER, which identies the openCypher load format."];
      parquetType: ParquetType.t option
        [@ocaml.doc "The parquet type of the import task."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM role that will allow access to the data that is to be imported."];
      status: ImportTaskStatus.t option
        [@ocaml.doc "Status of the import task."]}
    let make ?graphId =
      fun ?taskId ->
        fun ?source ->
          fun ?format ->
            fun ?parquetType ->
              fun ?roleArn ->
                fun ?status ->
                  fun () ->
                    {
                      graphId;
                      taskId;
                      source;
                      format;
                      parquetType;
                      roleArn;
                      status
                    }
    let to_value x =
      structure_to_value
        [("graphId", (Option.map x.graphId ~f:GraphId.to_value));
        ("taskId", (Option.map x.taskId ~f:TaskId.to_value));
        ("source", (Option.map x.source ~f:String_.to_value));
        ("format", (Option.map x.format ~f:Format_.to_value));
        ("parquetType", (Option.map x.parquetType ~f:ParquetType.to_value));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("status", (Option.map x.status ~f:ImportTaskStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ImportTaskStatus.of_xml) (Xml.child xml_arg0 "status") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let parquetType =
        (Option.map ~f:ParquetType.of_xml) (Xml.child xml_arg0 "parquetType") in
      let format =
        (Option.map ~f:Format_.of_xml) (Xml.child xml_arg0 "format") in
      let source =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "source") in
      let taskId =
        (Option.map ~f:TaskId.of_xml) (Xml.child xml_arg0 "taskId") in
      let graphId =
        (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "graphId") in
      make ?status ?roleArn ?parquetType ?format ?source ?taskId ?graphId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" ImportTaskStatus.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let parquetType = field_map json__ "parquetType" ParquetType.of_json in
      let format = field_map json__ "format" Format_.of_json in
      let source = field_map json__ "source" String_.of_json in
      let taskId = field_map json__ "taskId" TaskId.of_json in
      let graphId = field_map json__ "graphId" GraphId.of_json in
      make ?status ?roleArn ?parquetType ?format ?source ?taskId ?graphId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about an import task."]
module GraphSummary =
  struct
    type nonrec t =
      {
      id: GraphId.t option [@ocaml.doc "The unique identifier of the graph."];
      name: GraphName.t option [@ocaml.doc "The name of the graph."];
      arn: String_.t option [@ocaml.doc "The ARN associated with the graph."];
      status: GraphStatus.t option [@ocaml.doc "The status of the graph."];
      provisionedMemory: ProvisionedMemory.t option
        [@ocaml.doc
          "The number of memory-optimized Neptune Capacity Units (m-NCUs) allocated to the graph."];
      publicConnectivity: Boolean.t option
        [@ocaml.doc
          "If true, the graph has a public endpoint, otherwise not."];
      endpoint: String_.t option [@ocaml.doc "The graph endpoint."];
      replicaCount: ReplicaCount.t option
        [@ocaml.doc "The number of replicas for the graph."];
      kmsKeyIdentifier: String_.t option
        [@ocaml.doc
          "The ID of the KMS key used to encrypt and decrypt graph data."];
      deletionProtection: Boolean.t option
        [@ocaml.doc "If true, deletion protection is enabled for the graph."]}
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?status ->
            fun ?provisionedMemory ->
              fun ?publicConnectivity ->
                fun ?endpoint ->
                  fun ?replicaCount ->
                    fun ?kmsKeyIdentifier ->
                      fun ?deletionProtection ->
                        fun () ->
                          {
                            id;
                            name;
                            arn;
                            status;
                            provisionedMemory;
                            publicConnectivity;
                            endpoint;
                            replicaCount;
                            kmsKeyIdentifier;
                            deletionProtection
                          }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:GraphId.to_value));
        ("name", (Option.map x.name ~f:GraphName.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("status", (Option.map x.status ~f:GraphStatus.to_value));
        ("provisionedMemory",
          (Option.map x.provisionedMemory ~f:ProvisionedMemory.to_value));
        ("publicConnectivity",
          (Option.map x.publicConnectivity ~f:Boolean.to_value));
        ("endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("replicaCount",
          (Option.map x.replicaCount ~f:ReplicaCount.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:String_.to_value));
        ("deletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deletionProtection") in
      let kmsKeyIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let replicaCount =
        (Option.map ~f:ReplicaCount.of_xml)
          (Xml.child xml_arg0 "replicaCount") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "endpoint") in
      let publicConnectivity =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "publicConnectivity") in
      let provisionedMemory =
        (Option.map ~f:ProvisionedMemory.of_xml)
          (Xml.child xml_arg0 "provisionedMemory") in
      let status =
        (Option.map ~f:GraphStatus.of_xml) (Xml.child xml_arg0 "status") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let name = (Option.map ~f:GraphName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "id") in
      make ?deletionProtection ?kmsKeyIdentifier ?replicaCount ?endpoint
        ?publicConnectivity ?provisionedMemory ?status ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionProtection =
        field_map json__ "deletionProtection" Boolean.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" String_.of_json in
      let replicaCount = field_map json__ "replicaCount" ReplicaCount.of_json in
      let endpoint = field_map json__ "endpoint" String_.of_json in
      let publicConnectivity =
        field_map json__ "publicConnectivity" Boolean.of_json in
      let provisionedMemory =
        field_map json__ "provisionedMemory" ProvisionedMemory.of_json in
      let status = field_map json__ "status" GraphStatus.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let name = field_map json__ "name" GraphName.of_json in
      let id = field_map json__ "id" GraphId.of_json in
      make ?deletionProtection ?kmsKeyIdentifier ?replicaCount ?endpoint
        ?publicConnectivity ?provisionedMemory ?status ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary details about a graph."]
module GraphSnapshotSummary =
  struct
    type nonrec t =
      {
      id: SnapshotId.t option
        [@ocaml.doc "The unique identifier of the graph snapshot."];
      name: SnapshotName.t option
        [@ocaml.doc
          "The snapshot name. For example: my-snapshot-1. The name must contain from 1 to 63 letters, numbers, or hyphens, and its first character must be a letter. It cannot end with a hyphen or contain two consecutive hyphens. Only lowercase letters are allowed."];
      arn: String_.t option [@ocaml.doc "The ARN of the graph snapshot."];
      sourceGraphId: GraphId.t option
        [@ocaml.doc
          "The graph identifier for the graph for which a snapshot is to be created."];
      snapshotCreateTime: Timestamp.t option
        [@ocaml.doc "The time when the snapshot was created."];
      status: SnapshotStatus.t option
        [@ocaml.doc "The status of the graph snapshot."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc
          "The ID of the KMS key used to encrypt and decrypt the snapshot."]}
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?sourceGraphId ->
            fun ?snapshotCreateTime ->
              fun ?status ->
                fun ?kmsKeyIdentifier ->
                  fun () ->
                    {
                      id;
                      name;
                      arn;
                      sourceGraphId;
                      snapshotCreateTime;
                      status;
                      kmsKeyIdentifier
                    }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:SnapshotId.to_value));
        ("name", (Option.map x.name ~f:SnapshotName.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("sourceGraphId", (Option.map x.sourceGraphId ~f:GraphId.to_value));
        ("snapshotCreateTime",
          (Option.map x.snapshotCreateTime ~f:Timestamp.to_value));
        ("status", (Option.map x.status ~f:SnapshotStatus.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let status =
        (Option.map ~f:SnapshotStatus.of_xml) (Xml.child xml_arg0 "status") in
      let snapshotCreateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "snapshotCreateTime") in
      let sourceGraphId =
        (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "sourceGraphId") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:SnapshotName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "id") in
      make ?kmsKeyIdentifier ?status ?snapshotCreateTime ?sourceGraphId ?arn
        ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let status = field_map json__ "status" SnapshotStatus.of_json in
      let snapshotCreateTime =
        field_map json__ "snapshotCreateTime" Timestamp.of_json in
      let sourceGraphId = field_map json__ "sourceGraphId" GraphId.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let name = field_map json__ "name" SnapshotName.of_json in
      let id = field_map json__ "id" SnapshotId.of_json in
      make ?kmsKeyIdentifier ?status ?snapshotCreateTime ?sourceGraphId ?arn
        ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about a graph snapshot."]
module ExportTaskSummary =
  struct
    type nonrec t =
      {
      graphId: GraphId.t option
        [@ocaml.doc "The source graph identifier of the export task."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM role that will allow the data to be exported to the destination."];
      taskId: ExportTaskId.t option
        [@ocaml.doc "The unique identifier of the export task."];
      status: ExportTaskStatus.t option
        [@ocaml.doc "The current status of the export task."];
      format: ExportFormat.t option
        [@ocaml.doc "The format of the export task."];
      destination: ExportTaskSummaryDestinationString.t option
        [@ocaml.doc
          "The Amazon S3 URI of the export task where data will be exported to."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc "The KMS key identifier of the export task."];
      parquetType: ParquetType.t option
        [@ocaml.doc "The parquet type of the export task."];
      statusReason: String_.t option
        [@ocaml.doc "The reason that the export task has this status value."]}
    let make ?graphId =
      fun ?roleArn ->
        fun ?taskId ->
          fun ?status ->
            fun ?format ->
              fun ?destination ->
                fun ?kmsKeyIdentifier ->
                  fun ?parquetType ->
                    fun ?statusReason ->
                      fun () ->
                        {
                          graphId;
                          roleArn;
                          taskId;
                          status;
                          format;
                          destination;
                          kmsKeyIdentifier;
                          parquetType;
                          statusReason
                        }
    let to_value x =
      structure_to_value
        [("graphId", (Option.map x.graphId ~f:GraphId.to_value));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("taskId", (Option.map x.taskId ~f:ExportTaskId.to_value));
        ("status", (Option.map x.status ~f:ExportTaskStatus.to_value));
        ("format", (Option.map x.format ~f:ExportFormat.to_value));
        ("destination",
          (Option.map x.destination
             ~f:ExportTaskSummaryDestinationString.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value));
        ("parquetType", (Option.map x.parquetType ~f:ParquetType.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let parquetType =
        (Option.map ~f:ParquetType.of_xml) (Xml.child xml_arg0 "parquetType") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let destination =
        (Option.map ~f:ExportTaskSummaryDestinationString.of_xml)
          (Xml.child xml_arg0 "destination") in
      let format =
        (Option.map ~f:ExportFormat.of_xml) (Xml.child xml_arg0 "format") in
      let status =
        (Option.map ~f:ExportTaskStatus.of_xml) (Xml.child xml_arg0 "status") in
      let taskId =
        (Option.map ~f:ExportTaskId.of_xml) (Xml.child xml_arg0 "taskId") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let graphId =
        (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "graphId") in
      make ?statusReason ?parquetType ?kmsKeyIdentifier ?destination ?format
        ?status ?taskId ?roleArn ?graphId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let parquetType = field_map json__ "parquetType" ParquetType.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let destination =
        field_map json__ "destination"
          ExportTaskSummaryDestinationString.of_json in
      let format = field_map json__ "format" ExportFormat.of_json in
      let status = field_map json__ "status" ExportTaskStatus.of_json in
      let taskId = field_map json__ "taskId" ExportTaskId.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let graphId = field_map json__ "graphId" GraphId.of_json in
      make ?statusReason ?parquetType ?kmsKeyIdentifier ?destination ?format
        ?status ?taskId ?roleArn ?graphId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides details about an export task."]
module EdgeLabels =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"EdgeLabels" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module EdgeStructures =
  struct
    type nonrec t = EdgeStructure.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:EdgeStructure.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:EdgeStructure.of_xml)
    let of_json j =
      list_of_json ~kind:"EdgeStructures" ~of_json:EdgeStructure.of_json j
    let to_json v = composed_to_json to_value v
  end
module LongValuedMapList =
  struct
    type nonrec t = LongValuedMap.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:LongValuedMap.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:LongValuedMap.of_xml)
    let of_json j =
      list_of_json ~kind:"LongValuedMapList" ~of_json:LongValuedMap.of_json j
    let to_json v = composed_to_json to_value v
  end
module NodeLabels =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"NodeLabels" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module NodeStructures =
  struct
    type nonrec t = NodeStructure.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:NodeStructure.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:NodeStructure.of_xml)
    let of_json j =
      list_of_json ~kind:"NodeStructures" ~of_json:NodeStructure.of_json j
    let to_json v = composed_to_json to_value v
  end
module UnprocessableExceptionReason =
  struct
    type nonrec t =
      | QUERY_TIMEOUT 
      | INTERNAL_LIMIT_EXCEEDED 
      | MEMORY_LIMIT_EXCEEDED 
      | STORAGE_LIMIT_EXCEEDED 
      | PARTITION_FULL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | QUERY_TIMEOUT -> "QUERY_TIMEOUT"
      | INTERNAL_LIMIT_EXCEEDED -> "INTERNAL_LIMIT_EXCEEDED"
      | MEMORY_LIMIT_EXCEEDED -> "MEMORY_LIMIT_EXCEEDED"
      | STORAGE_LIMIT_EXCEEDED -> "STORAGE_LIMIT_EXCEEDED"
      | PARTITION_FULL -> "PARTITION_FULL"
      | Non_static_id s -> s
    let of_string =
      function
      | "QUERY_TIMEOUT" -> QUERY_TIMEOUT
      | "INTERNAL_LIMIT_EXCEEDED" -> INTERNAL_LIMIT_EXCEEDED
      | "MEMORY_LIMIT_EXCEEDED" -> MEMORY_LIMIT_EXCEEDED
      | "STORAGE_LIMIT_EXCEEDED" -> STORAGE_LIMIT_EXCEEDED
      | "PARTITION_FULL" -> PARTITION_FULL
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration UnprocessableExceptionReason"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"UnprocessableExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module Document =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end
module SecurityGroupId =
  struct
    type nonrec t = string
    let context_ = "SecurityGroupId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"sg-[a-z0-9]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SecurityGroupId" j
    let to_json = simple_to_json to_value
  end
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A message describing the problem."];
      reason: ConflictExceptionReason.t option
        [@ocaml.doc "The reason for the conflict exception."]}
    let make ?message = fun ?reason -> fun () -> { message; reason }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("reason", (Option.map x.reason ~f:ConflictExceptionReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:ConflictExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map json__ "reason" ConflictExceptionReason.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Raised when a conflict is encountered."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A message describing the problem."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A failure occurred on the server."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A message describing the problem."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A specified resource could not be located."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A message describing the problem."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The exception was interrupted by throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A message describing the problem."];
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The reason that the resource could not be validated."]}
    let make ?message = fun ?reason -> fun () -> { message; reason }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A resource could not be validated."]
module VectorSearchConfiguration =
  struct
    type nonrec t =
      {
      dimension: VectorSearchDimension.t
        [@ocaml.doc "The number of dimensions."]}
    let context_ = "VectorSearchConfiguration"
    let make ~dimension = fun () -> { dimension }
    let to_value x =
      structure_to_value
        [("dimension", (Some (VectorSearchDimension.to_value x.dimension)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dimension =
        VectorSearchDimension.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "dimension") in
      make ~dimension ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dimension =
        field_map_exn json__ "dimension" VectorSearchDimension.of_json in
      make ~dimension ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the number of dimensions for vector embeddings loaded into the graph. Max = 65535"]
module GraphIdentifier =
  struct
    type nonrec t = string
    let context_ = "GraphIdentifier"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"g-[a-z0-9]{10}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GraphIdentifier" j
    let to_json = simple_to_json to_value
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () -> check_pattern i ~pattern:"arn:.+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Arn" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImportOptions =
  struct
    type nonrec t =
      {
      neptune: NeptuneImportOptions.t option
        [@ocaml.doc "Options for importing data from a Neptune database."]}
    let make ?neptune = fun () -> { neptune }
    let to_value x =
      structure_to_value
        [("neptune", (Option.map x.neptune ~f:NeptuneImportOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let neptune =
        (Option.map ~f:NeptuneImportOptions.of_xml)
          (Xml.child xml_arg0 "neptune") in
      make ?neptune ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let neptune = field_map json__ "neptune" NeptuneImportOptions.of_json in
      make ?neptune ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Options for how to perform an import."]
module BlankNodeHandling =
  struct
    type nonrec t =
      | ConvertToIri 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ConvertToIri -> "convertToIri" | Non_static_id s -> s
    let of_string =
      function | "convertToIri" -> ConvertToIri | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration BlankNodeHandling" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BlankNodeHandling" j)
    let to_json = simple_to_json to_value
  end
module ExportFilter =
  struct
    type nonrec t =
      {
      vertexFilter: ExportFilterPerLabelMap.t option
        [@ocaml.doc
          "Used to specify filters on a per-label basis for vertices. This allows you to control which vertex labels and properties are included in the export."];
      edgeFilter: ExportFilterPerLabelMap.t option
        [@ocaml.doc
          "Used to specify filters on a per-label basis for edges. This allows you to control which edge labels and properties are included in the export."]}
    let make ?vertexFilter =
      fun ?edgeFilter -> fun () -> { vertexFilter; edgeFilter }
    let to_value x =
      structure_to_value
        [("vertexFilter",
           (Option.map x.vertexFilter ~f:ExportFilterPerLabelMap.to_value));
        ("edgeFilter",
          (Option.map x.edgeFilter ~f:ExportFilterPerLabelMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let edgeFilter =
        (Option.map ~f:ExportFilterPerLabelMap.of_xml)
          (Xml.child xml_arg0 "edgeFilter") in
      let vertexFilter =
        (Option.map ~f:ExportFilterPerLabelMap.of_xml)
          (Xml.child xml_arg0 "vertexFilter") in
      make ?edgeFilter ?vertexFilter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let edgeFilter =
        field_map json__ "edgeFilter" ExportFilterPerLabelMap.of_json in
      let vertexFilter =
        field_map json__ "vertexFilter" ExportFilterPerLabelMap.of_json in
      make ?edgeFilter ?vertexFilter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is the top-level field for specifying vertex or edge filters. If the ExportFilter is not provided, then all properties for all labels will be exported. If the ExportFilter is provided but is an empty object, then no data will be exported."]
module StartExportTaskOutputDestinationString =
  struct
    type nonrec t = string
    let context_ = "StartExportTaskOutputDestinationString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"StartExportTaskOutputDestinationString" j
    let to_json = simple_to_json to_value
  end
module StartExportTaskInputDestinationString =
  struct
    type nonrec t = string
    let context_ = "StartExportTaskInputDestinationString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"StartExportTaskInputDestinationString" j
    let to_json = simple_to_json to_value
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "The identifier of the resource that exceeded quota."];
      resourceType: String_.t option
        [@ocaml.doc
          "The type of the resource that exceeded quota. Ex: Graph, Snapshot"];
      serviceCode: String_.t option
        [@ocaml.doc "The service code that exceeded quota."];
      quotaCode: String_.t option
        [@ocaml.doc
          "Service quota code of the resource for which quota was exceeded."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?serviceCode ->
            fun ?quotaCode ->
              fun () ->
                { message; resourceId; resourceType; serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A service quota was exceeded."]
module SnapshotIdentifier =
  struct
    type nonrec t = string
    let context_ = "SnapshotIdentifier"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"gs-[a-z0-9]{10}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SnapshotIdentifier" j
    let to_json = simple_to_json to_value
  end
module AccessDeniedException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A message describing the problem."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Raised in case of an authentication or authorization failure."]
module QuerySummaryList =
  struct
    type nonrec t = QuerySummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:QuerySummary.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:QuerySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"QuerySummaryList" ~of_json:QuerySummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module QueryStateInput =
  struct
    type nonrec t =
      | ALL 
      | RUNNING 
      | WAITING 
      | CANCELLING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALL -> "ALL"
      | RUNNING -> "RUNNING"
      | WAITING -> "WAITING"
      | CANCELLING -> "CANCELLING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALL" -> ALL
      | "RUNNING" -> RUNNING
      | "WAITING" -> WAITING
      | "CANCELLING" -> CANCELLING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration QueryStateInput" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"QueryStateInput" j)
    let to_json = simple_to_json to_value
  end
module PaginationToken =
  struct
    type nonrec t = string
    let context_ = "PaginationToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:8192) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PaginationToken" j
    let to_json = simple_to_json to_value
  end
module PrivateGraphEndpointSummaryList =
  struct
    type nonrec t = PrivateGraphEndpointSummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PrivateGraphEndpointSummary.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:PrivateGraphEndpointSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"PrivateGraphEndpointSummaryList"
        ~of_json:PrivateGraphEndpointSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ImportTaskSummaryList =
  struct
    type nonrec t = ImportTaskSummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ImportTaskSummary.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ImportTaskSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ImportTaskSummaryList"
        ~of_json:ImportTaskSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module GraphSummaryList =
  struct
    type nonrec t = GraphSummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:GraphSummary.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:GraphSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"GraphSummaryList" ~of_json:GraphSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module GraphSnapshotSummaryList =
  struct
    type nonrec t = GraphSnapshotSummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:GraphSnapshotSummary.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:GraphSnapshotSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"GraphSnapshotSummaryList"
        ~of_json:GraphSnapshotSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExportTaskSummaryList =
  struct
    type nonrec t = ExportTaskSummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ExportTaskSummary.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ExportTaskSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ExportTaskSummaryList"
        ~of_json:ExportTaskSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImportTaskDetails =
  struct
    type nonrec t =
      {
      status: String_.t option [@ocaml.doc "Status of the import task."];
      startTime: Timestamp.t option
        [@ocaml.doc "Time at which the import task started."];
      timeElapsedSeconds: Long.t option
        [@ocaml.doc "Seconds elapsed since the import task started."];
      progressPercentage: Integer.t option
        [@ocaml.doc "The percentage progress so far."];
      errorCount: Integer.t option
        [@ocaml.doc "The number of errors encountered so far."];
      errorDetails: String_.t option
        [@ocaml.doc "Details about the errors that have been encountered."];
      statementCount: Long.t option
        [@ocaml.doc "The number of statements in the import task."];
      dictionaryEntryCount: Long.t option
        [@ocaml.doc "The number of dictionary entries in the import task."]}
    let make ?status =
      fun ?startTime ->
        fun ?timeElapsedSeconds ->
          fun ?progressPercentage ->
            fun ?errorCount ->
              fun ?errorDetails ->
                fun ?statementCount ->
                  fun ?dictionaryEntryCount ->
                    fun () ->
                      {
                        status;
                        startTime;
                        timeElapsedSeconds;
                        progressPercentage;
                        errorCount;
                        errorDetails;
                        statementCount;
                        dictionaryEntryCount
                      }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:String_.to_value));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("timeElapsedSeconds",
          (Option.map x.timeElapsedSeconds ~f:Long.to_value));
        ("progressPercentage",
          (Option.map x.progressPercentage ~f:Integer.to_value));
        ("errorCount", (Option.map x.errorCount ~f:Integer.to_value));
        ("errorDetails", (Option.map x.errorDetails ~f:String_.to_value));
        ("statementCount", (Option.map x.statementCount ~f:Long.to_value));
        ("dictionaryEntryCount",
          (Option.map x.dictionaryEntryCount ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dictionaryEntryCount =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "dictionaryEntryCount") in
      let statementCount =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "statementCount") in
      let errorDetails =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorDetails") in
      let errorCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "errorCount") in
      let progressPercentage =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "progressPercentage") in
      let timeElapsedSeconds =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "timeElapsedSeconds") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      make ?dictionaryEntryCount ?statementCount ?errorDetails ?errorCount
        ?progressPercentage ?timeElapsedSeconds ?startTime ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dictionaryEntryCount =
        field_map json__ "dictionaryEntryCount" Long.of_json in
      let statementCount = field_map json__ "statementCount" Long.of_json in
      let errorDetails = field_map json__ "errorDetails" String_.of_json in
      let errorCount = field_map json__ "errorCount" Integer.of_json in
      let progressPercentage =
        field_map json__ "progressPercentage" Integer.of_json in
      let timeElapsedSeconds =
        field_map json__ "timeElapsedSeconds" Long.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let status = field_map json__ "status" String_.of_json in
      make ?dictionaryEntryCount ?statementCount ?errorDetails ?errorCount
        ?progressPercentage ?timeElapsedSeconds ?startTime ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about an import task."]
module GraphDataSummary =
  struct
    type nonrec t =
      {
      numNodes: Long.t option
        [@ocaml.doc "The number of nodes in the graph."];
      numEdges: Long.t option
        [@ocaml.doc "The number of edges in the graph."];
      numNodeLabels: Long.t option
        [@ocaml.doc "The number of distinct node labels in the graph."];
      numEdgeLabels: Long.t option
        [@ocaml.doc "The number of unique edge labels in the graph."];
      nodeLabels: NodeLabels.t option
        [@ocaml.doc "A list of distinct node labels in the graph."];
      edgeLabels: EdgeLabels.t option
        [@ocaml.doc "A list of the edge labels in the graph."];
      numNodeProperties: Long.t option
        [@ocaml.doc "The number of distinct node properties in the graph."];
      numEdgeProperties: Long.t option
        [@ocaml.doc "The number of edge properties in the graph."];
      nodeProperties: LongValuedMapList.t option
        [@ocaml.doc
          "A list of the distinct node properties in the graph, along with the count of nodes where each property is used."];
      edgeProperties: LongValuedMapList.t option
        [@ocaml.doc
          "A list of the distinct edge properties in the graph, along with the count of edges where each property is used."];
      totalNodePropertyValues: Long.t option
        [@ocaml.doc "The total number of usages of all node properties."];
      totalEdgePropertyValues: Long.t option
        [@ocaml.doc "The total number of usages of all edge properties."];
      nodeStructures: NodeStructures.t option
        [@ocaml.doc
          "This field is only present when the requested mode is DETAILED. It contains a list of node structures."];
      edgeStructures: EdgeStructures.t option
        [@ocaml.doc
          "This field is only present when the requested mode is DETAILED. It contains a list of edge structures."]}
    let make ?numNodes =
      fun ?numEdges ->
        fun ?numNodeLabels ->
          fun ?numEdgeLabels ->
            fun ?nodeLabels ->
              fun ?edgeLabels ->
                fun ?numNodeProperties ->
                  fun ?numEdgeProperties ->
                    fun ?nodeProperties ->
                      fun ?edgeProperties ->
                        fun ?totalNodePropertyValues ->
                          fun ?totalEdgePropertyValues ->
                            fun ?nodeStructures ->
                              fun ?edgeStructures ->
                                fun () ->
                                  {
                                    numNodes;
                                    numEdges;
                                    numNodeLabels;
                                    numEdgeLabels;
                                    nodeLabels;
                                    edgeLabels;
                                    numNodeProperties;
                                    numEdgeProperties;
                                    nodeProperties;
                                    edgeProperties;
                                    totalNodePropertyValues;
                                    totalEdgePropertyValues;
                                    nodeStructures;
                                    edgeStructures
                                  }
    let to_value x =
      structure_to_value
        [("numNodes", (Option.map x.numNodes ~f:Long.to_value));
        ("numEdges", (Option.map x.numEdges ~f:Long.to_value));
        ("numNodeLabels", (Option.map x.numNodeLabels ~f:Long.to_value));
        ("numEdgeLabels", (Option.map x.numEdgeLabels ~f:Long.to_value));
        ("nodeLabels", (Option.map x.nodeLabels ~f:NodeLabels.to_value));
        ("edgeLabels", (Option.map x.edgeLabels ~f:EdgeLabels.to_value));
        ("numNodeProperties",
          (Option.map x.numNodeProperties ~f:Long.to_value));
        ("numEdgeProperties",
          (Option.map x.numEdgeProperties ~f:Long.to_value));
        ("nodeProperties",
          (Option.map x.nodeProperties ~f:LongValuedMapList.to_value));
        ("edgeProperties",
          (Option.map x.edgeProperties ~f:LongValuedMapList.to_value));
        ("totalNodePropertyValues",
          (Option.map x.totalNodePropertyValues ~f:Long.to_value));
        ("totalEdgePropertyValues",
          (Option.map x.totalEdgePropertyValues ~f:Long.to_value));
        ("nodeStructures",
          (Option.map x.nodeStructures ~f:NodeStructures.to_value));
        ("edgeStructures",
          (Option.map x.edgeStructures ~f:EdgeStructures.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let edgeStructures =
        (Option.map ~f:EdgeStructures.of_xml)
          (Xml.child xml_arg0 "edgeStructures") in
      let nodeStructures =
        (Option.map ~f:NodeStructures.of_xml)
          (Xml.child xml_arg0 "nodeStructures") in
      let totalEdgePropertyValues =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "totalEdgePropertyValues") in
      let totalNodePropertyValues =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "totalNodePropertyValues") in
      let edgeProperties =
        (Option.map ~f:LongValuedMapList.of_xml)
          (Xml.child xml_arg0 "edgeProperties") in
      let nodeProperties =
        (Option.map ~f:LongValuedMapList.of_xml)
          (Xml.child xml_arg0 "nodeProperties") in
      let numEdgeProperties =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "numEdgeProperties") in
      let numNodeProperties =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "numNodeProperties") in
      let edgeLabels =
        (Option.map ~f:EdgeLabels.of_xml) (Xml.child xml_arg0 "edgeLabels") in
      let nodeLabels =
        (Option.map ~f:NodeLabels.of_xml) (Xml.child xml_arg0 "nodeLabels") in
      let numEdgeLabels =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "numEdgeLabels") in
      let numNodeLabels =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "numNodeLabels") in
      let numEdges =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "numEdges") in
      let numNodes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "numNodes") in
      make ?edgeStructures ?nodeStructures ?totalEdgePropertyValues
        ?totalNodePropertyValues ?edgeProperties ?nodeProperties
        ?numEdgeProperties ?numNodeProperties ?edgeLabels ?nodeLabels
        ?numEdgeLabels ?numNodeLabels ?numEdges ?numNodes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let edgeStructures =
        field_map json__ "edgeStructures" EdgeStructures.of_json in
      let nodeStructures =
        field_map json__ "nodeStructures" NodeStructures.of_json in
      let totalEdgePropertyValues =
        field_map json__ "totalEdgePropertyValues" Long.of_json in
      let totalNodePropertyValues =
        field_map json__ "totalNodePropertyValues" Long.of_json in
      let edgeProperties =
        field_map json__ "edgeProperties" LongValuedMapList.of_json in
      let nodeProperties =
        field_map json__ "nodeProperties" LongValuedMapList.of_json in
      let numEdgeProperties =
        field_map json__ "numEdgeProperties" Long.of_json in
      let numNodeProperties =
        field_map json__ "numNodeProperties" Long.of_json in
      let edgeLabels = field_map json__ "edgeLabels" EdgeLabels.of_json in
      let nodeLabels = field_map json__ "nodeLabels" NodeLabels.of_json in
      let numEdgeLabels = field_map json__ "numEdgeLabels" Long.of_json in
      let numNodeLabels = field_map json__ "numNodeLabels" Long.of_json in
      let numEdges = field_map json__ "numEdges" Long.of_json in
      let numNodes = field_map json__ "numNodes" Long.of_json in
      make ?edgeStructures ?nodeStructures ?totalEdgePropertyValues
        ?totalNodePropertyValues ?edgeProperties ?nodeProperties
        ?numEdgeProperties ?numNodeProperties ?edgeLabels ?nodeLabels
        ?numEdgeLabels ?numNodeLabels ?numEdges ?numNodes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about the graph."]
module SyntheticTimestamp_date_time =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module GraphSummaryMode =
  struct
    type nonrec t =
      | BASIC 
      | DETAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BASIC -> "BASIC"
      | DETAILED -> "DETAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "BASIC" -> BASIC
      | "DETAILED" -> DETAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration GraphSummaryMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GraphSummaryMode" j)
    let to_json = simple_to_json to_value
  end
module ExportTaskDetails =
  struct
    type nonrec t =
      {
      startTime: Timestamp.t option
        [@ocaml.doc "The start time of the export task."];
      timeElapsedSeconds: Long.t option
        [@ocaml.doc
          "The time elapsed, in seconds, since the start time of the export task."];
      progressPercentage: Integer.t option
        [@ocaml.doc "The number of progress percentage of the export task."];
      numVerticesWritten: Long.t option
        [@ocaml.doc "The number of exported vertices."];
      numEdgesWritten: Long.t option
        [@ocaml.doc "The number of exported edges."]}
    let make ?startTime =
      fun ?timeElapsedSeconds ->
        fun ?progressPercentage ->
          fun ?numVerticesWritten ->
            fun ?numEdgesWritten ->
              fun () ->
                {
                  startTime;
                  timeElapsedSeconds;
                  progressPercentage;
                  numVerticesWritten;
                  numEdgesWritten
                }
    let to_value x =
      structure_to_value
        [("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("timeElapsedSeconds",
          (Option.map x.timeElapsedSeconds ~f:Long.to_value));
        ("progressPercentage",
          (Option.map x.progressPercentage ~f:Integer.to_value));
        ("numVerticesWritten",
          (Option.map x.numVerticesWritten ~f:Long.to_value));
        ("numEdgesWritten", (Option.map x.numEdgesWritten ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let numEdgesWritten =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "numEdgesWritten") in
      let numVerticesWritten =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "numVerticesWritten") in
      let progressPercentage =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "progressPercentage") in
      let timeElapsedSeconds =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "timeElapsedSeconds") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      make ?numEdgesWritten ?numVerticesWritten ?progressPercentage
        ?timeElapsedSeconds ?startTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let numEdgesWritten = field_map json__ "numEdgesWritten" Long.of_json in
      let numVerticesWritten =
        field_map json__ "numVerticesWritten" Long.of_json in
      let progressPercentage =
        field_map json__ "progressPercentage" Integer.of_json in
      let timeElapsedSeconds =
        field_map json__ "timeElapsedSeconds" Long.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      make ?numEdgesWritten ?numVerticesWritten ?progressPercentage
        ?timeElapsedSeconds ?startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about the specified export task."]
module GetExportTaskOutputDestinationString =
  struct
    type nonrec t = string
    let context_ = "GetExportTaskOutputDestinationString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"GetExportTaskOutputDestinationString" j
    let to_json = simple_to_json to_value
  end
module QueryResponseBlob =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module UnprocessableException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: UnprocessableExceptionReason.t option
        [@ocaml.doc "The reason for the unprocessable exception."]}
    let make ?message = fun ?reason -> fun () -> { message; reason }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("reason",
          (Option.map x.reason ~f:UnprocessableExceptionReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:UnprocessableExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "reason" UnprocessableExceptionReason.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request cannot be processed due to known reasons. Eg. partition full."]
module DocumentValuedMap =
  struct
    type nonrec t = (String_.t * Document.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types String Document"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (Document.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:Document.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExplainMode =
  struct
    type nonrec t =
      | STATIC 
      | DETAILS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STATIC -> "STATIC"
      | DETAILS -> "DETAILS"
      | Non_static_id s -> s
    let of_string =
      function
      | "STATIC" -> STATIC
      | "DETAILS" -> DETAILS
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ExplainMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExplainMode" j)
    let to_json = simple_to_json to_value
  end
module PlanCacheType =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | AUTO 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | AUTO -> "AUTO"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | "AUTO" -> AUTO
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration PlanCacheType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PlanCacheType" j)
    let to_json = simple_to_json to_value
  end
module QueryLanguage =
  struct
    type nonrec t =
      | OPEN_CYPHER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | OPEN_CYPHER -> "OPEN_CYPHER" | Non_static_id s -> s
    let of_string =
      function | "OPEN_CYPHER" -> OPEN_CYPHER | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration QueryLanguage" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"QueryLanguage" j)
    let to_json = simple_to_json to_value
  end
module SecurityGroupIds =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SecurityGroupId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"SecurityGroupIds" ~of_json:SecurityGroupId.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module CancelExportTaskOutputDestinationString =
  struct
    type nonrec t = string
    let context_ = "CancelExportTaskOutputDestinationString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"CancelExportTaskOutputDestinationString" j
    let to_json = simple_to_json to_value
  end
module UpdateGraphOutput =
  struct
    type nonrec t =
      {
      id: GraphId.t option [@ocaml.doc "The unique identifier of the graph."];
      name: GraphName.t option [@ocaml.doc "The name of the graph."];
      arn: String_.t option [@ocaml.doc "The ARN associated with the graph."];
      status: GraphStatus.t option [@ocaml.doc "The status of the graph."];
      statusReason: String_.t option
        [@ocaml.doc "The reason that the graph has this status."];
      createTime: Timestamp.t option
        [@ocaml.doc "The time at which the graph was created."];
      provisionedMemory: ProvisionedMemory.t option
        [@ocaml.doc
          "The number of memory-optimized Neptune Capacity Units (m-NCUs) allocated to the graph."];
      endpoint: String_.t option [@ocaml.doc "The graph endpoint."];
      publicConnectivity: Boolean.t option
        [@ocaml.doc
          "If true, the graph has a public endpoint, otherwise not."];
      vectorSearchConfiguration: VectorSearchConfiguration.t option ;
      replicaCount: ReplicaCount.t option
        [@ocaml.doc "The number of replicas for the graph."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc
          "The ID of the KMS key used to encrypt and decrypt graph data."];
      sourceSnapshotId: SnapshotId.t option
        [@ocaml.doc
          "The ID of the snapshot from which the graph was created, if any."];
      deletionProtection: Boolean.t option
        [@ocaml.doc "If true, deletion protection is enabled for the graph."];
      buildNumber: String_.t option
        [@ocaml.doc "The build number of the graph."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?status ->
            fun ?statusReason ->
              fun ?createTime ->
                fun ?provisionedMemory ->
                  fun ?endpoint ->
                    fun ?publicConnectivity ->
                      fun ?vectorSearchConfiguration ->
                        fun ?replicaCount ->
                          fun ?kmsKeyIdentifier ->
                            fun ?sourceSnapshotId ->
                              fun ?deletionProtection ->
                                fun ?buildNumber ->
                                  fun () ->
                                    {
                                      id;
                                      name;
                                      arn;
                                      status;
                                      statusReason;
                                      createTime;
                                      provisionedMemory;
                                      endpoint;
                                      publicConnectivity;
                                      vectorSearchConfiguration;
                                      replicaCount;
                                      kmsKeyIdentifier;
                                      sourceSnapshotId;
                                      deletionProtection;
                                      buildNumber
                                    }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:GraphId.to_value));
        ("name", (Option.map x.name ~f:GraphName.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("status", (Option.map x.status ~f:GraphStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("createTime", (Option.map x.createTime ~f:Timestamp.to_value));
        ("provisionedMemory",
          (Option.map x.provisionedMemory ~f:ProvisionedMemory.to_value));
        ("endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("publicConnectivity",
          (Option.map x.publicConnectivity ~f:Boolean.to_value));
        ("vectorSearchConfiguration",
          (Option.map x.vectorSearchConfiguration
             ~f:VectorSearchConfiguration.to_value));
        ("replicaCount",
          (Option.map x.replicaCount ~f:ReplicaCount.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value));
        ("sourceSnapshotId",
          (Option.map x.sourceSnapshotId ~f:SnapshotId.to_value));
        ("deletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value));
        ("buildNumber", (Option.map x.buildNumber ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let buildNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "buildNumber") in
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deletionProtection") in
      let sourceSnapshotId =
        (Option.map ~f:SnapshotId.of_xml)
          (Xml.child xml_arg0 "sourceSnapshotId") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let replicaCount =
        (Option.map ~f:ReplicaCount.of_xml)
          (Xml.child xml_arg0 "replicaCount") in
      let vectorSearchConfiguration =
        (Option.map ~f:VectorSearchConfiguration.of_xml)
          (Xml.child xml_arg0 "vectorSearchConfiguration") in
      let publicConnectivity =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "publicConnectivity") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "endpoint") in
      let provisionedMemory =
        (Option.map ~f:ProvisionedMemory.of_xml)
          (Xml.child xml_arg0 "provisionedMemory") in
      let createTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createTime") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:GraphStatus.of_xml) (Xml.child xml_arg0 "status") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let name = (Option.map ~f:GraphName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "id") in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let buildNumber = field_map json__ "buildNumber" String_.of_json in
      let deletionProtection =
        field_map json__ "deletionProtection" Boolean.of_json in
      let sourceSnapshotId =
        field_map json__ "sourceSnapshotId" SnapshotId.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let replicaCount = field_map json__ "replicaCount" ReplicaCount.of_json in
      let vectorSearchConfiguration =
        field_map json__ "vectorSearchConfiguration"
          VectorSearchConfiguration.of_json in
      let publicConnectivity =
        field_map json__ "publicConnectivity" Boolean.of_json in
      let endpoint = field_map json__ "endpoint" String_.of_json in
      let provisionedMemory =
        field_map json__ "provisionedMemory" ProvisionedMemory.of_json in
      let createTime = field_map json__ "createTime" Timestamp.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status = field_map json__ "status" GraphStatus.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let name = field_map json__ "name" GraphName.of_json in
      let id = field_map json__ "id" GraphId.of_json in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of a specified Neptune Analytics graph"]
module UpdateGraphInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      publicConnectivity: Boolean.t option
        [@ocaml.doc
          "Specifies whether or not the graph can be reachable over the internet. All access to graphs is IAM authenticated. (true to enable, or false to disable."];
      provisionedMemory: ProvisionedMemory.t option
        [@ocaml.doc
          "The provisioned memory-optimized Neptune Capacity Units (m-NCUs) to use for the graph. Min = 16"];
      deletionProtection: Boolean.t option
        [@ocaml.doc
          "A value that indicates whether the graph has deletion protection enabled. The graph can't be deleted when deletion protection is enabled."]}
    let context_ = "UpdateGraphInput"
    let make ?publicConnectivity =
      fun ?provisionedMemory ->
        fun ?deletionProtection ->
          fun ~graphIdentifier ->
            fun () ->
              {
                publicConnectivity;
                provisionedMemory;
                deletionProtection;
                graphIdentifier
              }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("publicConnectivity",
          (Option.map x.publicConnectivity ~f:Boolean.to_value));
        ("provisionedMemory",
          (Option.map x.provisionedMemory ~f:ProvisionedMemory.to_value));
        ("deletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deletionProtection") in
      let provisionedMemory =
        (Option.map ~f:ProvisionedMemory.of_xml)
          (Xml.child xml_arg0 "provisionedMemory") in
      let publicConnectivity =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "publicConnectivity") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ?deletionProtection ?provisionedMemory ?publicConnectivity
        ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionProtection =
        field_map json__ "deletionProtection" Boolean.of_json in
      let provisionedMemory =
        field_map json__ "provisionedMemory" ProvisionedMemory.of_json in
      let publicConnectivity =
        field_map json__ "publicConnectivity" Boolean.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ?deletionProtection ?provisionedMemory ?publicConnectivity
        ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of a specified Neptune Analytics graph"]
module UntagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes the specified tags from the specified resource."]
module UntagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc "ARN of the resource whose tag needs to be removed."];
      tagKeys: TagKeyList.t
        [@ocaml.doc "Tag keys for the tags to be removed."]}
    let context_ = "UntagResourceInput"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeyList.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes the specified tags from the specified resource."]
module TagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds tags to the specified resource."]
module TagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc "ARN of the resource for which tags need to be added."];
      tags: TagMap.t
        [@ocaml.doc
          "The tags to be assigned to the Neptune Analytics resource. The tags are metadata that are specified as a list of key-value pairs: Key (string) \194\160 \226\128\147 \194\160 A key is the required name of the tag. The string value can be from 1 to 128 Unicode characters in length. It can't be prefixed with aws: and can only contain the set of Unicode characters specified by this Java regular expression: \"^(\\[\\p\\{L\\}\\p\\{Z\\}\\p\\{N\\}_.:/=+\\-\\]*)$\"). Value (string) \194\160 \226\128\147 \194\160 A value is the optional value of the tag. The string value can be from 1 to 256 Unicode characters in length. It can't be prefixed with aws: and can only contain the set of Unicode characters specified by this Java regular expression: \"^(\\[\\p\\{L\\}\\p\\{Z\\}\\p\\{N\\}_.:/=+\\-\\]*)$\")."]}
    let context_ = "TagResourceInput"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tags", (Some (TagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagMap.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds tags to the specified resource."]
module StopGraphOutput =
  struct
    type nonrec t =
      {
      id: GraphId.t option [@ocaml.doc "The unique identifier of the graph."];
      name: GraphName.t option [@ocaml.doc "The name of the graph."];
      arn: String_.t option [@ocaml.doc "The ARN associated with the graph."];
      status: GraphStatus.t option [@ocaml.doc "The status of the graph."];
      statusReason: String_.t option
        [@ocaml.doc "The reason that the graph has this status."];
      createTime: Timestamp.t option
        [@ocaml.doc "The time at which the graph was created."];
      provisionedMemory: ProvisionedMemory.t option
        [@ocaml.doc
          "The number of memory-optimized Neptune Capacity Units (m-NCUs) allocated to the graph."];
      endpoint: String_.t option [@ocaml.doc "The graph endpoint."];
      publicConnectivity: Boolean.t option
        [@ocaml.doc
          "If true, the graph has a public endpoint, otherwise not."];
      vectorSearchConfiguration: VectorSearchConfiguration.t option ;
      replicaCount: ReplicaCount.t option
        [@ocaml.doc "The number of replicas for the graph."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc
          "The ID of the KMS key used to encrypt and decrypt graph data."];
      sourceSnapshotId: SnapshotId.t option
        [@ocaml.doc
          "The ID of the snapshot from which the graph was created, if it was created from a snapshot."];
      deletionProtection: Boolean.t option
        [@ocaml.doc "If true, deletion protection is enabled for the graph."];
      buildNumber: String_.t option
        [@ocaml.doc "The build number of the graph."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?status ->
            fun ?statusReason ->
              fun ?createTime ->
                fun ?provisionedMemory ->
                  fun ?endpoint ->
                    fun ?publicConnectivity ->
                      fun ?vectorSearchConfiguration ->
                        fun ?replicaCount ->
                          fun ?kmsKeyIdentifier ->
                            fun ?sourceSnapshotId ->
                              fun ?deletionProtection ->
                                fun ?buildNumber ->
                                  fun () ->
                                    {
                                      id;
                                      name;
                                      arn;
                                      status;
                                      statusReason;
                                      createTime;
                                      provisionedMemory;
                                      endpoint;
                                      publicConnectivity;
                                      vectorSearchConfiguration;
                                      replicaCount;
                                      kmsKeyIdentifier;
                                      sourceSnapshotId;
                                      deletionProtection;
                                      buildNumber
                                    }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:GraphId.to_value));
        ("name", (Option.map x.name ~f:GraphName.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("status", (Option.map x.status ~f:GraphStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("createTime", (Option.map x.createTime ~f:Timestamp.to_value));
        ("provisionedMemory",
          (Option.map x.provisionedMemory ~f:ProvisionedMemory.to_value));
        ("endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("publicConnectivity",
          (Option.map x.publicConnectivity ~f:Boolean.to_value));
        ("vectorSearchConfiguration",
          (Option.map x.vectorSearchConfiguration
             ~f:VectorSearchConfiguration.to_value));
        ("replicaCount",
          (Option.map x.replicaCount ~f:ReplicaCount.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value));
        ("sourceSnapshotId",
          (Option.map x.sourceSnapshotId ~f:SnapshotId.to_value));
        ("deletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value));
        ("buildNumber", (Option.map x.buildNumber ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let buildNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "buildNumber") in
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deletionProtection") in
      let sourceSnapshotId =
        (Option.map ~f:SnapshotId.of_xml)
          (Xml.child xml_arg0 "sourceSnapshotId") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let replicaCount =
        (Option.map ~f:ReplicaCount.of_xml)
          (Xml.child xml_arg0 "replicaCount") in
      let vectorSearchConfiguration =
        (Option.map ~f:VectorSearchConfiguration.of_xml)
          (Xml.child xml_arg0 "vectorSearchConfiguration") in
      let publicConnectivity =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "publicConnectivity") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "endpoint") in
      let provisionedMemory =
        (Option.map ~f:ProvisionedMemory.of_xml)
          (Xml.child xml_arg0 "provisionedMemory") in
      let createTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createTime") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:GraphStatus.of_xml) (Xml.child xml_arg0 "status") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let name = (Option.map ~f:GraphName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "id") in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let buildNumber = field_map json__ "buildNumber" String_.of_json in
      let deletionProtection =
        field_map json__ "deletionProtection" Boolean.of_json in
      let sourceSnapshotId =
        field_map json__ "sourceSnapshotId" SnapshotId.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let replicaCount = field_map json__ "replicaCount" ReplicaCount.of_json in
      let vectorSearchConfiguration =
        field_map json__ "vectorSearchConfiguration"
          VectorSearchConfiguration.of_json in
      let publicConnectivity =
        field_map json__ "publicConnectivity" Boolean.of_json in
      let endpoint = field_map json__ "endpoint" String_.of_json in
      let provisionedMemory =
        field_map json__ "provisionedMemory" ProvisionedMemory.of_json in
      let createTime = field_map json__ "createTime" Timestamp.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status = field_map json__ "status" GraphStatus.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let name = field_map json__ "name" GraphName.of_json in
      let id = field_map json__ "id" GraphId.of_json in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops the specific graph."]
module StopGraphInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."]}
    let context_ = "StopGraphInput"
    let make ~graphIdentifier = fun () -> { graphIdentifier }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops the specific graph."]
module StartImportTaskOutput =
  struct
    type nonrec t =
      {
      graphId: GraphId.t option
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      taskId: TaskId.t option
        [@ocaml.doc "The unique identifier of the import task."];
      source: String_.t option
        [@ocaml.doc
          "A URL identifying the location of the data to be imported. This can be an Amazon S3 path, or can point to a Neptune database endpoint or snapshot."];
      format: Format_.t option
        [@ocaml.doc
          "Specifies the format of Amazon S3 data to be imported. Valid values are CSV, which identifies the Gremlin CSV format or OPENCYPHER, which identifies the openCypher load format."];
      parquetType: ParquetType.t option
        [@ocaml.doc "The parquet type of the import task."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM role that will allow access to the data that is to be imported."];
      status: ImportTaskStatus.t option
        [@ocaml.doc "The status of the import task."];
      importOptions: ImportOptions.t option }
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?graphId =
      fun ?taskId ->
        fun ?source ->
          fun ?format ->
            fun ?parquetType ->
              fun ?roleArn ->
                fun ?status ->
                  fun ?importOptions ->
                    fun () ->
                      {
                        graphId;
                        taskId;
                        source;
                        format;
                        parquetType;
                        roleArn;
                        status;
                        importOptions
                      }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("graphId", (Option.map x.graphId ~f:GraphId.to_value));
        ("taskId", (Option.map x.taskId ~f:TaskId.to_value));
        ("source", (Option.map x.source ~f:String_.to_value));
        ("format", (Option.map x.format ~f:Format_.to_value));
        ("parquetType", (Option.map x.parquetType ~f:ParquetType.to_value));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("status", (Option.map x.status ~f:ImportTaskStatus.to_value));
        ("importOptions",
          (Option.map x.importOptions ~f:ImportOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let importOptions =
        (Option.map ~f:ImportOptions.of_xml)
          (Xml.child xml_arg0 "importOptions") in
      let status =
        (Option.map ~f:ImportTaskStatus.of_xml) (Xml.child xml_arg0 "status") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let parquetType =
        (Option.map ~f:ParquetType.of_xml) (Xml.child xml_arg0 "parquetType") in
      let format =
        (Option.map ~f:Format_.of_xml) (Xml.child xml_arg0 "format") in
      let source =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "source") in
      let taskId =
        (Option.map ~f:TaskId.of_xml) (Xml.child xml_arg0 "taskId") in
      let graphId =
        (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "graphId") in
      make ?importOptions ?status ?roleArn ?parquetType ?format ?source
        ?taskId ?graphId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let importOptions =
        field_map json__ "importOptions" ImportOptions.of_json in
      let status = field_map json__ "status" ImportTaskStatus.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let parquetType = field_map json__ "parquetType" ParquetType.of_json in
      let format = field_map json__ "format" Format_.of_json in
      let source = field_map json__ "source" String_.of_json in
      let taskId = field_map json__ "taskId" TaskId.of_json in
      let graphId = field_map json__ "graphId" GraphId.of_json in
      make ?importOptions ?status ?roleArn ?parquetType ?format ?source
        ?taskId ?graphId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Import data into existing Neptune Analytics graph from Amazon Simple Storage Service (S3). The graph needs to be empty and in the AVAILABLE state."]
module StartImportTaskInput =
  struct
    type nonrec t =
      {
      importOptions: ImportOptions.t option ;
      failOnError: Boolean.t option
        [@ocaml.doc
          "If set to true, the task halts when an import error is encountered. If set to false, the task skips the data that caused the error and continues if possible."];
      source: String_.t
        [@ocaml.doc
          "A URL identifying the location of the data to be imported. This can be an Amazon S3 path, or can point to a Neptune database endpoint or snapshot."];
      format: Format_.t option
        [@ocaml.doc
          "Specifies the format of Amazon S3 data to be imported. Valid values are CSV, which identifies the Gremlin CSV format or OPENCYPHER, which identifies the openCypher load format."];
      parquetType: ParquetType.t option
        [@ocaml.doc "The parquet type of the import task."];
      blankNodeHandling: BlankNodeHandling.t option
        [@ocaml.doc
          "The method to handle blank nodes in the dataset. Currently, only convertToIri is supported, meaning blank nodes are converted to unique IRIs at load time. Must be provided when format is ntriples. For more information, see Handling RDF values."];
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      roleArn: RoleArn.t
        [@ocaml.doc
          "The ARN of the IAM role that will allow access to the data that is to be imported."]}
    let context_ = "StartImportTaskInput"
    let make ?importOptions =
      fun ?failOnError ->
        fun ?format ->
          fun ?parquetType ->
            fun ?blankNodeHandling ->
              fun ~source ->
                fun ~graphIdentifier ->
                  fun ~roleArn ->
                    fun () ->
                      {
                        importOptions;
                        failOnError;
                        format;
                        parquetType;
                        blankNodeHandling;
                        source;
                        graphIdentifier;
                        roleArn
                      }
    let to_value x =
      structure_to_value
        [("importOptions",
           (Option.map x.importOptions ~f:ImportOptions.to_value));
        ("failOnError", (Option.map x.failOnError ~f:Boolean.to_value));
        ("source", (Some (String_.to_value x.source)));
        ("format", (Option.map x.format ~f:Format_.to_value));
        ("parquetType", (Option.map x.parquetType ~f:ParquetType.to_value));
        ("blankNodeHandling",
          (Option.map x.blankNodeHandling ~f:BlankNodeHandling.to_value));
        ("graphIdentifier",
          (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("roleArn", (Some (RoleArn.to_value x.roleArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleArn =
        RoleArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "roleArn") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      let blankNodeHandling =
        (Option.map ~f:BlankNodeHandling.of_xml)
          (Xml.child xml_arg0 "blankNodeHandling") in
      let parquetType =
        (Option.map ~f:ParquetType.of_xml) (Xml.child xml_arg0 "parquetType") in
      let format =
        (Option.map ~f:Format_.of_xml) (Xml.child xml_arg0 "format") in
      let source =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "source") in
      let failOnError =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "failOnError") in
      let importOptions =
        (Option.map ~f:ImportOptions.of_xml)
          (Xml.child xml_arg0 "importOptions") in
      make ~roleArn ~graphIdentifier ?blankNodeHandling ?parquetType ?format
        ~source ?failOnError ?importOptions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleArn = field_map_exn json__ "roleArn" RoleArn.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      let blankNodeHandling =
        field_map json__ "blankNodeHandling" BlankNodeHandling.of_json in
      let parquetType = field_map json__ "parquetType" ParquetType.of_json in
      let format = field_map json__ "format" Format_.of_json in
      let source = field_map_exn json__ "source" String_.of_json in
      let failOnError = field_map json__ "failOnError" Boolean.of_json in
      let importOptions =
        field_map json__ "importOptions" ImportOptions.of_json in
      make ~roleArn ~graphIdentifier ?blankNodeHandling ?parquetType ?format
        ~source ?failOnError ?importOptions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Import data into existing Neptune Analytics graph from Amazon Simple Storage Service (S3). The graph needs to be empty and in the AVAILABLE state."]
module StartGraphOutput =
  struct
    type nonrec t =
      {
      id: GraphId.t option [@ocaml.doc "The unique identifier of the graph."];
      name: GraphName.t option [@ocaml.doc "The name of the graph."];
      arn: String_.t option [@ocaml.doc "The ARN associated with the graph."];
      status: GraphStatus.t option [@ocaml.doc "The status of the graph."];
      statusReason: String_.t option
        [@ocaml.doc "The reason that the graph has this status."];
      createTime: Timestamp.t option
        [@ocaml.doc "The time at which the graph was created."];
      provisionedMemory: ProvisionedMemory.t option
        [@ocaml.doc
          "The number of memory-optimized Neptune Capacity Units (m-NCUs) allocated to the graph."];
      endpoint: String_.t option [@ocaml.doc "The graph endpoint."];
      publicConnectivity: Boolean.t option
        [@ocaml.doc
          "If true, the graph has a public endpoint, otherwise not."];
      vectorSearchConfiguration: VectorSearchConfiguration.t option ;
      replicaCount: ReplicaCount.t option
        [@ocaml.doc "The number of replicas for the graph."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc
          "The ID of the KMS key used to encrypt and decrypt graph data."];
      sourceSnapshotId: SnapshotId.t option
        [@ocaml.doc
          "The ID of the snapshot from which the graph was created, if it was created from a snapshot."];
      deletionProtection: Boolean.t option
        [@ocaml.doc "If true, deletion protection is enabled for the graph."];
      buildNumber: String_.t option
        [@ocaml.doc "The build number of the graph."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?status ->
            fun ?statusReason ->
              fun ?createTime ->
                fun ?provisionedMemory ->
                  fun ?endpoint ->
                    fun ?publicConnectivity ->
                      fun ?vectorSearchConfiguration ->
                        fun ?replicaCount ->
                          fun ?kmsKeyIdentifier ->
                            fun ?sourceSnapshotId ->
                              fun ?deletionProtection ->
                                fun ?buildNumber ->
                                  fun () ->
                                    {
                                      id;
                                      name;
                                      arn;
                                      status;
                                      statusReason;
                                      createTime;
                                      provisionedMemory;
                                      endpoint;
                                      publicConnectivity;
                                      vectorSearchConfiguration;
                                      replicaCount;
                                      kmsKeyIdentifier;
                                      sourceSnapshotId;
                                      deletionProtection;
                                      buildNumber
                                    }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:GraphId.to_value));
        ("name", (Option.map x.name ~f:GraphName.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("status", (Option.map x.status ~f:GraphStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("createTime", (Option.map x.createTime ~f:Timestamp.to_value));
        ("provisionedMemory",
          (Option.map x.provisionedMemory ~f:ProvisionedMemory.to_value));
        ("endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("publicConnectivity",
          (Option.map x.publicConnectivity ~f:Boolean.to_value));
        ("vectorSearchConfiguration",
          (Option.map x.vectorSearchConfiguration
             ~f:VectorSearchConfiguration.to_value));
        ("replicaCount",
          (Option.map x.replicaCount ~f:ReplicaCount.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value));
        ("sourceSnapshotId",
          (Option.map x.sourceSnapshotId ~f:SnapshotId.to_value));
        ("deletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value));
        ("buildNumber", (Option.map x.buildNumber ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let buildNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "buildNumber") in
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deletionProtection") in
      let sourceSnapshotId =
        (Option.map ~f:SnapshotId.of_xml)
          (Xml.child xml_arg0 "sourceSnapshotId") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let replicaCount =
        (Option.map ~f:ReplicaCount.of_xml)
          (Xml.child xml_arg0 "replicaCount") in
      let vectorSearchConfiguration =
        (Option.map ~f:VectorSearchConfiguration.of_xml)
          (Xml.child xml_arg0 "vectorSearchConfiguration") in
      let publicConnectivity =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "publicConnectivity") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "endpoint") in
      let provisionedMemory =
        (Option.map ~f:ProvisionedMemory.of_xml)
          (Xml.child xml_arg0 "provisionedMemory") in
      let createTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createTime") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:GraphStatus.of_xml) (Xml.child xml_arg0 "status") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let name = (Option.map ~f:GraphName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "id") in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let buildNumber = field_map json__ "buildNumber" String_.of_json in
      let deletionProtection =
        field_map json__ "deletionProtection" Boolean.of_json in
      let sourceSnapshotId =
        field_map json__ "sourceSnapshotId" SnapshotId.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let replicaCount = field_map json__ "replicaCount" ReplicaCount.of_json in
      let vectorSearchConfiguration =
        field_map json__ "vectorSearchConfiguration"
          VectorSearchConfiguration.of_json in
      let publicConnectivity =
        field_map json__ "publicConnectivity" Boolean.of_json in
      let endpoint = field_map json__ "endpoint" String_.of_json in
      let provisionedMemory =
        field_map json__ "provisionedMemory" ProvisionedMemory.of_json in
      let createTime = field_map json__ "createTime" Timestamp.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status = field_map json__ "status" GraphStatus.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let name = field_map json__ "name" GraphName.of_json in
      let id = field_map json__ "id" GraphId.of_json in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Starts the specific graph."]
module StartGraphInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."]}
    let context_ = "StartGraphInput"
    let make ~graphIdentifier = fun () -> { graphIdentifier }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Starts the specific graph."]
module StartExportTaskOutput =
  struct
    type nonrec t =
      {
      graphId: GraphId.t option
        [@ocaml.doc "The source graph identifier of the export task."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM role that will allow data to be exported to the destination."];
      taskId: ExportTaskId.t option
        [@ocaml.doc "The unique identifier of the export task."];
      status: ExportTaskStatus.t option
        [@ocaml.doc "The current status of the export task."];
      format: ExportFormat.t option
        [@ocaml.doc "The format of the export task."];
      destination: StartExportTaskOutputDestinationString.t option
        [@ocaml.doc
          "The Amazon S3 URI of the export task where data will be exported to."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc "The KMS key identifier of the export task."];
      parquetType: ParquetType.t option
        [@ocaml.doc "The parquet type of the export task."];
      statusReason: String_.t option
        [@ocaml.doc "The reason that the export task has this status value."];
      exportFilter: ExportFilter.t option
        [@ocaml.doc "The export filter of the export task."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?graphId =
      fun ?roleArn ->
        fun ?taskId ->
          fun ?status ->
            fun ?format ->
              fun ?destination ->
                fun ?kmsKeyIdentifier ->
                  fun ?parquetType ->
                    fun ?statusReason ->
                      fun ?exportFilter ->
                        fun () ->
                          {
                            graphId;
                            roleArn;
                            taskId;
                            status;
                            format;
                            destination;
                            kmsKeyIdentifier;
                            parquetType;
                            statusReason;
                            exportFilter
                          }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("graphId", (Option.map x.graphId ~f:GraphId.to_value));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("taskId", (Option.map x.taskId ~f:ExportTaskId.to_value));
        ("status", (Option.map x.status ~f:ExportTaskStatus.to_value));
        ("format", (Option.map x.format ~f:ExportFormat.to_value));
        ("destination",
          (Option.map x.destination
             ~f:StartExportTaskOutputDestinationString.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value));
        ("parquetType", (Option.map x.parquetType ~f:ParquetType.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("exportFilter",
          (Option.map x.exportFilter ~f:ExportFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportFilter =
        (Option.map ~f:ExportFilter.of_xml)
          (Xml.child xml_arg0 "exportFilter") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let parquetType =
        (Option.map ~f:ParquetType.of_xml) (Xml.child xml_arg0 "parquetType") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let destination =
        (Option.map ~f:StartExportTaskOutputDestinationString.of_xml)
          (Xml.child xml_arg0 "destination") in
      let format =
        (Option.map ~f:ExportFormat.of_xml) (Xml.child xml_arg0 "format") in
      let status =
        (Option.map ~f:ExportTaskStatus.of_xml) (Xml.child xml_arg0 "status") in
      let taskId =
        (Option.map ~f:ExportTaskId.of_xml) (Xml.child xml_arg0 "taskId") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let graphId =
        (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "graphId") in
      make ?exportFilter ?statusReason ?parquetType ?kmsKeyIdentifier
        ?destination ?format ?status ?taskId ?roleArn ?graphId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportFilter = field_map json__ "exportFilter" ExportFilter.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let parquetType = field_map json__ "parquetType" ParquetType.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let destination =
        field_map json__ "destination"
          StartExportTaskOutputDestinationString.of_json in
      let format = field_map json__ "format" ExportFormat.of_json in
      let status = field_map json__ "status" ExportTaskStatus.of_json in
      let taskId = field_map json__ "taskId" ExportTaskId.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let graphId = field_map json__ "graphId" GraphId.of_json in
      make ?exportFilter ?statusReason ?parquetType ?kmsKeyIdentifier
        ?destination ?format ?status ?taskId ?roleArn ?graphId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Export data from an existing Neptune Analytics graph to Amazon S3. The graph state should be AVAILABLE."]
module StartExportTaskInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The source graph identifier of the export task."];
      roleArn: RoleArn.t
        [@ocaml.doc
          "The ARN of the IAM role that will allow data to be exported to the destination."];
      format: ExportFormat.t [@ocaml.doc "The format of the export task."];
      destination: StartExportTaskInputDestinationString.t
        [@ocaml.doc "The Amazon S3 URI where data will be exported to."];
      kmsKeyIdentifier: KmsKeyArn.t
        [@ocaml.doc "The KMS key identifier of the export task."];
      parquetType: ParquetType.t option
        [@ocaml.doc "The parquet type of the export task."];
      exportFilter: ExportFilter.t option
        [@ocaml.doc "The export filter of the export task."];
      tags: TagMap.t option
        [@ocaml.doc "Tags to be applied to the export task."]}
    let context_ = "StartExportTaskInput"
    let make ?parquetType =
      fun ?exportFilter ->
        fun ?tags ->
          fun ~graphIdentifier ->
            fun ~roleArn ->
              fun ~format ->
                fun ~destination ->
                  fun ~kmsKeyIdentifier ->
                    fun () ->
                      {
                        parquetType;
                        exportFilter;
                        tags;
                        graphIdentifier;
                        roleArn;
                        format;
                        destination;
                        kmsKeyIdentifier
                      }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("roleArn", (Some (RoleArn.to_value x.roleArn)));
        ("format", (Some (ExportFormat.to_value x.format)));
        ("destination",
          (Some
             (StartExportTaskInputDestinationString.to_value x.destination)));
        ("kmsKeyIdentifier", (Some (KmsKeyArn.to_value x.kmsKeyIdentifier)));
        ("parquetType", (Option.map x.parquetType ~f:ParquetType.to_value));
        ("exportFilter",
          (Option.map x.exportFilter ~f:ExportFilter.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let exportFilter =
        (Option.map ~f:ExportFilter.of_xml)
          (Xml.child xml_arg0 "exportFilter") in
      let parquetType =
        (Option.map ~f:ParquetType.of_xml) (Xml.child xml_arg0 "parquetType") in
      let kmsKeyIdentifier =
        KmsKeyArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "kmsKeyIdentifier") in
      let destination =
        StartExportTaskInputDestinationString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destination") in
      let format =
        ExportFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "format") in
      let roleArn =
        RoleArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "roleArn") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ?tags ?exportFilter ?parquetType ~kmsKeyIdentifier ~destination
        ~format ~roleArn ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let exportFilter = field_map json__ "exportFilter" ExportFilter.of_json in
      let parquetType = field_map json__ "parquetType" ParquetType.of_json in
      let kmsKeyIdentifier =
        field_map_exn json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let destination =
        field_map_exn json__ "destination"
          StartExportTaskInputDestinationString.of_json in
      let format = field_map_exn json__ "format" ExportFormat.of_json in
      let roleArn = field_map_exn json__ "roleArn" RoleArn.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ?tags ?exportFilter ?parquetType ~kmsKeyIdentifier ~destination
        ~format ~roleArn ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Export data from an existing Neptune Analytics graph to Amazon S3. The graph state should be AVAILABLE."]
module RestoreGraphFromSnapshotOutput =
  struct
    type nonrec t =
      {
      id: GraphId.t option [@ocaml.doc "The unique identifier of the graph."];
      name: GraphName.t option [@ocaml.doc "The name of the graph."];
      arn: String_.t option [@ocaml.doc "The ARN associated with the graph."];
      status: GraphStatus.t option [@ocaml.doc "The status of the graph."];
      statusReason: String_.t option
        [@ocaml.doc "The reason that the graph has this status."];
      createTime: Timestamp.t option
        [@ocaml.doc "The time at which the graph was created."];
      provisionedMemory: ProvisionedMemory.t option
        [@ocaml.doc
          "The number of memory-optimized Neptune Capacity Units (m-NCUs) allocated to the graph."];
      endpoint: String_.t option [@ocaml.doc "The graph endpoint."];
      publicConnectivity: Boolean.t option
        [@ocaml.doc
          "If true, the graph has a public endpoint, otherwise not."];
      vectorSearchConfiguration: VectorSearchConfiguration.t option ;
      replicaCount: ReplicaCount.t option
        [@ocaml.doc "The number of replicas for the graph."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc
          "The ID of the KMS key used to encrypt and decrypt graph data."];
      sourceSnapshotId: SnapshotId.t option
        [@ocaml.doc
          "The ID of the snapshot from which the graph was created, if any."];
      deletionProtection: Boolean.t option
        [@ocaml.doc "If true, deletion protection is enabled for the graph."];
      buildNumber: String_.t option
        [@ocaml.doc "The build number of the graph."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?status ->
            fun ?statusReason ->
              fun ?createTime ->
                fun ?provisionedMemory ->
                  fun ?endpoint ->
                    fun ?publicConnectivity ->
                      fun ?vectorSearchConfiguration ->
                        fun ?replicaCount ->
                          fun ?kmsKeyIdentifier ->
                            fun ?sourceSnapshotId ->
                              fun ?deletionProtection ->
                                fun ?buildNumber ->
                                  fun () ->
                                    {
                                      id;
                                      name;
                                      arn;
                                      status;
                                      statusReason;
                                      createTime;
                                      provisionedMemory;
                                      endpoint;
                                      publicConnectivity;
                                      vectorSearchConfiguration;
                                      replicaCount;
                                      kmsKeyIdentifier;
                                      sourceSnapshotId;
                                      deletionProtection;
                                      buildNumber
                                    }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:GraphId.to_value));
        ("name", (Option.map x.name ~f:GraphName.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("status", (Option.map x.status ~f:GraphStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("createTime", (Option.map x.createTime ~f:Timestamp.to_value));
        ("provisionedMemory",
          (Option.map x.provisionedMemory ~f:ProvisionedMemory.to_value));
        ("endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("publicConnectivity",
          (Option.map x.publicConnectivity ~f:Boolean.to_value));
        ("vectorSearchConfiguration",
          (Option.map x.vectorSearchConfiguration
             ~f:VectorSearchConfiguration.to_value));
        ("replicaCount",
          (Option.map x.replicaCount ~f:ReplicaCount.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value));
        ("sourceSnapshotId",
          (Option.map x.sourceSnapshotId ~f:SnapshotId.to_value));
        ("deletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value));
        ("buildNumber", (Option.map x.buildNumber ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let buildNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "buildNumber") in
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deletionProtection") in
      let sourceSnapshotId =
        (Option.map ~f:SnapshotId.of_xml)
          (Xml.child xml_arg0 "sourceSnapshotId") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let replicaCount =
        (Option.map ~f:ReplicaCount.of_xml)
          (Xml.child xml_arg0 "replicaCount") in
      let vectorSearchConfiguration =
        (Option.map ~f:VectorSearchConfiguration.of_xml)
          (Xml.child xml_arg0 "vectorSearchConfiguration") in
      let publicConnectivity =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "publicConnectivity") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "endpoint") in
      let provisionedMemory =
        (Option.map ~f:ProvisionedMemory.of_xml)
          (Xml.child xml_arg0 "provisionedMemory") in
      let createTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createTime") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:GraphStatus.of_xml) (Xml.child xml_arg0 "status") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let name = (Option.map ~f:GraphName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "id") in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let buildNumber = field_map json__ "buildNumber" String_.of_json in
      let deletionProtection =
        field_map json__ "deletionProtection" Boolean.of_json in
      let sourceSnapshotId =
        field_map json__ "sourceSnapshotId" SnapshotId.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let replicaCount = field_map json__ "replicaCount" ReplicaCount.of_json in
      let vectorSearchConfiguration =
        field_map json__ "vectorSearchConfiguration"
          VectorSearchConfiguration.of_json in
      let publicConnectivity =
        field_map json__ "publicConnectivity" Boolean.of_json in
      let endpoint = field_map json__ "endpoint" String_.of_json in
      let provisionedMemory =
        field_map json__ "provisionedMemory" ProvisionedMemory.of_json in
      let createTime = field_map json__ "createTime" Timestamp.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status = field_map json__ "status" GraphStatus.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let name = field_map json__ "name" GraphName.of_json in
      let id = field_map json__ "id" GraphId.of_json in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Restores a graph from a snapshot."]
module RestoreGraphFromSnapshotInput =
  struct
    type nonrec t =
      {
      snapshotIdentifier: SnapshotIdentifier.t
        [@ocaml.doc "The ID of the snapshot in question."];
      graphName: GraphName.t
        [@ocaml.doc
          "A name for the new Neptune Analytics graph to be created from the snapshot. The name must contain from 1 to 63 letters, numbers, or hyphens, and its first character must be a letter. It cannot end with a hyphen or contain two consecutive hyphens. Only lowercase letters are allowed."];
      provisionedMemory: ProvisionedMemory.t option
        [@ocaml.doc
          "The provisioned memory-optimized Neptune Capacity Units (m-NCUs) to use for the graph. Min = 16"];
      deletionProtection: Boolean.t option
        [@ocaml.doc
          "A value that indicates whether the graph has deletion protection enabled. The graph can't be deleted when deletion protection is enabled."];
      tags: TagMap.t option
        [@ocaml.doc
          "Adds metadata tags to the snapshot. These tags can also be used with cost allocation reporting, or used in a Condition statement in an IAM policy."];
      replicaCount: ReplicaCount.t option
        [@ocaml.doc
          "The number of replicas in other AZs. Min =0, Max = 2, Default =1 Additional charges equivalent to the m-NCUs selected for the graph apply for each replica."];
      publicConnectivity: Boolean.t option
        [@ocaml.doc
          "Specifies whether or not the graph can be reachable over the internet. All access to graphs is IAM authenticated. (true to enable, or false to disable)."]}
    let context_ = "RestoreGraphFromSnapshotInput"
    let make ?provisionedMemory =
      fun ?deletionProtection ->
        fun ?tags ->
          fun ?replicaCount ->
            fun ?publicConnectivity ->
              fun ~snapshotIdentifier ->
                fun ~graphName ->
                  fun () ->
                    {
                      provisionedMemory;
                      deletionProtection;
                      tags;
                      replicaCount;
                      publicConnectivity;
                      snapshotIdentifier;
                      graphName
                    }
    let to_value x =
      structure_to_value
        [("snapshotIdentifier",
           (Some (SnapshotIdentifier.to_value x.snapshotIdentifier)));
        ("graphName", (Some (GraphName.to_value x.graphName)));
        ("provisionedMemory",
          (Option.map x.provisionedMemory ~f:ProvisionedMemory.to_value));
        ("deletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("replicaCount",
          (Option.map x.replicaCount ~f:ReplicaCount.to_value));
        ("publicConnectivity",
          (Option.map x.publicConnectivity ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publicConnectivity =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "publicConnectivity") in
      let replicaCount =
        (Option.map ~f:ReplicaCount.of_xml)
          (Xml.child xml_arg0 "replicaCount") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deletionProtection") in
      let provisionedMemory =
        (Option.map ~f:ProvisionedMemory.of_xml)
          (Xml.child xml_arg0 "provisionedMemory") in
      let graphName =
        GraphName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphName") in
      let snapshotIdentifier =
        SnapshotIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "snapshotIdentifier") in
      make ?publicConnectivity ?replicaCount ?tags ?deletionProtection
        ?provisionedMemory ~graphName ~snapshotIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publicConnectivity =
        field_map json__ "publicConnectivity" Boolean.of_json in
      let replicaCount = field_map json__ "replicaCount" ReplicaCount.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let deletionProtection =
        field_map json__ "deletionProtection" Boolean.of_json in
      let provisionedMemory =
        field_map json__ "provisionedMemory" ProvisionedMemory.of_json in
      let graphName = field_map_exn json__ "graphName" GraphName.of_json in
      let snapshotIdentifier =
        field_map_exn json__ "snapshotIdentifier" SnapshotIdentifier.of_json in
      make ?publicConnectivity ?replicaCount ?tags ?deletionProtection
        ?provisionedMemory ~graphName ~snapshotIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Restores a graph from a snapshot."]
module ResetGraphOutput =
  struct
    type nonrec t =
      {
      id: GraphId.t option [@ocaml.doc "The unique identifier of the graph."];
      name: GraphName.t option [@ocaml.doc "The name of the graph."];
      arn: String_.t option [@ocaml.doc "The ARN associated with the graph."];
      status: GraphStatus.t option [@ocaml.doc "The status of the graph."];
      statusReason: String_.t option
        [@ocaml.doc "The reason that the graph has this status."];
      createTime: Timestamp.t option
        [@ocaml.doc "The time at which the graph was created."];
      provisionedMemory: ProvisionedMemory.t option
        [@ocaml.doc
          "The number of memory-optimized Neptune Capacity Units (m-NCUs) allocated to the graph."];
      endpoint: String_.t option [@ocaml.doc "The graph endpoint."];
      publicConnectivity: Boolean.t option
        [@ocaml.doc
          "If true, the graph has a public endpoint, otherwise not."];
      vectorSearchConfiguration: VectorSearchConfiguration.t option ;
      replicaCount: ReplicaCount.t option
        [@ocaml.doc "The number of replicas for the graph."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc
          "The ID of the KMS key used to encrypt and decrypt graph data."];
      sourceSnapshotId: SnapshotId.t option
        [@ocaml.doc
          "The ID of the snapshot from which the graph was created, if any."];
      deletionProtection: Boolean.t option
        [@ocaml.doc "If true, deletion protection is enabled for the graph."];
      buildNumber: String_.t option
        [@ocaml.doc "The build number of the graph."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?status ->
            fun ?statusReason ->
              fun ?createTime ->
                fun ?provisionedMemory ->
                  fun ?endpoint ->
                    fun ?publicConnectivity ->
                      fun ?vectorSearchConfiguration ->
                        fun ?replicaCount ->
                          fun ?kmsKeyIdentifier ->
                            fun ?sourceSnapshotId ->
                              fun ?deletionProtection ->
                                fun ?buildNumber ->
                                  fun () ->
                                    {
                                      id;
                                      name;
                                      arn;
                                      status;
                                      statusReason;
                                      createTime;
                                      provisionedMemory;
                                      endpoint;
                                      publicConnectivity;
                                      vectorSearchConfiguration;
                                      replicaCount;
                                      kmsKeyIdentifier;
                                      sourceSnapshotId;
                                      deletionProtection;
                                      buildNumber
                                    }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:GraphId.to_value));
        ("name", (Option.map x.name ~f:GraphName.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("status", (Option.map x.status ~f:GraphStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("createTime", (Option.map x.createTime ~f:Timestamp.to_value));
        ("provisionedMemory",
          (Option.map x.provisionedMemory ~f:ProvisionedMemory.to_value));
        ("endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("publicConnectivity",
          (Option.map x.publicConnectivity ~f:Boolean.to_value));
        ("vectorSearchConfiguration",
          (Option.map x.vectorSearchConfiguration
             ~f:VectorSearchConfiguration.to_value));
        ("replicaCount",
          (Option.map x.replicaCount ~f:ReplicaCount.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value));
        ("sourceSnapshotId",
          (Option.map x.sourceSnapshotId ~f:SnapshotId.to_value));
        ("deletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value));
        ("buildNumber", (Option.map x.buildNumber ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let buildNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "buildNumber") in
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deletionProtection") in
      let sourceSnapshotId =
        (Option.map ~f:SnapshotId.of_xml)
          (Xml.child xml_arg0 "sourceSnapshotId") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let replicaCount =
        (Option.map ~f:ReplicaCount.of_xml)
          (Xml.child xml_arg0 "replicaCount") in
      let vectorSearchConfiguration =
        (Option.map ~f:VectorSearchConfiguration.of_xml)
          (Xml.child xml_arg0 "vectorSearchConfiguration") in
      let publicConnectivity =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "publicConnectivity") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "endpoint") in
      let provisionedMemory =
        (Option.map ~f:ProvisionedMemory.of_xml)
          (Xml.child xml_arg0 "provisionedMemory") in
      let createTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createTime") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:GraphStatus.of_xml) (Xml.child xml_arg0 "status") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let name = (Option.map ~f:GraphName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "id") in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let buildNumber = field_map json__ "buildNumber" String_.of_json in
      let deletionProtection =
        field_map json__ "deletionProtection" Boolean.of_json in
      let sourceSnapshotId =
        field_map json__ "sourceSnapshotId" SnapshotId.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let replicaCount = field_map json__ "replicaCount" ReplicaCount.of_json in
      let vectorSearchConfiguration =
        field_map json__ "vectorSearchConfiguration"
          VectorSearchConfiguration.of_json in
      let publicConnectivity =
        field_map json__ "publicConnectivity" Boolean.of_json in
      let endpoint = field_map json__ "endpoint" String_.of_json in
      let provisionedMemory =
        field_map json__ "provisionedMemory" ProvisionedMemory.of_json in
      let createTime = field_map json__ "createTime" Timestamp.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status = field_map json__ "status" GraphStatus.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let name = field_map json__ "name" GraphName.of_json in
      let id = field_map json__ "id" GraphId.of_json in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Empties the data from a specified Neptune Analytics graph."]
module ResetGraphInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "ID of the graph to reset."];
      skipSnapshot: Boolean.t
        [@ocaml.doc
          "Determines whether a final graph snapshot is created before the graph data is deleted. If set to true, no graph snapshot is created. If set to false, a graph snapshot is created before the data is deleted."]}
    let context_ = "ResetGraphInput"
    let make ~graphIdentifier =
      fun ~skipSnapshot -> fun () -> { graphIdentifier; skipSnapshot }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("skipSnapshot", (Some (Boolean.to_value x.skipSnapshot)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let skipSnapshot =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "skipSnapshot") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ~skipSnapshot ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let skipSnapshot = field_map_exn json__ "skipSnapshot" Boolean.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ~skipSnapshot ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Empties the data from a specified Neptune Analytics graph."]
module ListTagsForResourceOutput =
  struct
    type nonrec t =
      {
      tags: TagMap.t option
        [@ocaml.doc
          "The list of metadata tags associated with the resource."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists tags associated with a specified resource."]
module ListTagsForResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t [@ocaml.doc "The ARN of the resource."]}
    let context_ = "ListTagsForResourceInput"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists tags associated with a specified resource."]
module ListQueriesOutput =
  struct
    type nonrec t =
      {
      queries: QuerySummaryList.t option
        [@ocaml.doc "A list of current openCypher queries."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?queries = fun () -> { queries }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("queries", (Option.map x.queries ~f:QuerySummaryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queries =
        (Option.map ~f:QuerySummaryList.of_xml)
          (Xml.child xml_arg0 "queries") in
      make ?queries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queries = field_map json__ "queries" QuerySummaryList.of_json in
      make ?queries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists active openCypher queries."]
module ListQueriesInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      maxResults: Integer.t
        [@ocaml.doc
          "The maximum number of results to be fetched by the API."];
      state: QueryStateInput.t option
        [@ocaml.doc "Filtered list of queries based on state."]}
    let context_ = "ListQueriesInput"
    let make ?state =
      fun ~graphIdentifier ->
        fun ~maxResults -> fun () -> { state; graphIdentifier; maxResults }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("maxResults", (Some (Integer.to_value x.maxResults)));
        ("state", (Option.map x.state ~f:QueryStateInput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:QueryStateInput.of_xml) (Xml.child xml_arg0 "state") in
      let maxResults =
        Integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "maxResults") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ?state ~maxResults ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "state" QueryStateInput.of_json in
      let maxResults = field_map_exn json__ "maxResults" Integer.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ?state ~maxResults ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists active openCypher queries."]
module ListPrivateGraphEndpointsOutput =
  struct
    type nonrec t =
      {
      privateGraphEndpoints: PrivateGraphEndpointSummaryList.t option
        [@ocaml.doc
          "A list of private endpoints for the specified Neptune Analytics graph."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "Pagination token used to paginate output. When this value is provided as input, the service returns results from where the previous response left off. When this value is present in output, it indicates that there are more results to retrieve."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?privateGraphEndpoints =
      fun ?nextToken -> fun () -> { privateGraphEndpoints; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("privateGraphEndpoints",
           (Option.map x.privateGraphEndpoints
              ~f:PrivateGraphEndpointSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let privateGraphEndpoints =
        (Option.map ~f:PrivateGraphEndpointSummaryList.of_xml)
          (Xml.child xml_arg0 "privateGraphEndpoints") in
      make ?nextToken ?privateGraphEndpoints ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let privateGraphEndpoints =
        field_map json__ "privateGraphEndpoints"
          PrivateGraphEndpointSummaryList.of_json in
      make ?nextToken ?privateGraphEndpoints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists private endpoints for a specified Neptune Analytics graph."]
module ListPrivateGraphEndpointsInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "Pagination token used to paginate output. When this value is provided as input, the service returns results from where the previous response left off. When this value is present in output, it indicates that there are more results to retrieve."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The total number of records to return in the command's output. If the total number of records available is more than the value specified, nextToken is provided in the command's output. To resume pagination, provide the nextToken output value in the nextToken argument of a subsequent command. Do not use the nextToken response element directly outside of the Amazon CLI."]}
    let context_ = "ListPrivateGraphEndpointsInput"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~graphIdentifier ->
          fun () -> { nextToken; maxResults; graphIdentifier }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ?maxResults ?nextToken ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ?maxResults ?nextToken ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists private endpoints for a specified Neptune Analytics graph."]
module ListImportTasksOutput =
  struct
    type nonrec t =
      {
      tasks: ImportTaskSummaryList.t option
        [@ocaml.doc "The requested list of import tasks."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "Pagination token used to paginate output. When this value is provided as input, the service returns results from where the previous response left off. When this value is present in output, it indicates that there are more results to retrieve."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tasks = fun ?nextToken -> fun () -> { tasks; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("tasks", (Option.map x.tasks ~f:ImportTaskSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let tasks =
        (Option.map ~f:ImportTaskSummaryList.of_xml)
          (Xml.child xml_arg0 "tasks") in
      make ?nextToken ?tasks ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let tasks = field_map json__ "tasks" ImportTaskSummaryList.of_json in
      make ?nextToken ?tasks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists import tasks."]
module ListImportTasksInput =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "Pagination token used to paginate output. When this value is provided as input, the service returns results from where the previous response left off. When this value is present in output, it indicates that there are more results to retrieve."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The total number of records to return in the command's output. If the total number of records available is more than the value specified, nextToken is provided in the command's output. To resume pagination, provide the nextToken output value in the nextToken argument of a subsequent command. Do not use the nextToken response element directly outside of the Amazon CLI."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists import tasks."]
module ListGraphsOutput =
  struct
    type nonrec t =
      {
      graphs: GraphSummaryList.t option [@ocaml.doc "A list of the graphs."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "Pagination token used to paginate output. When this value is provided as input, the service returns results from where the previous response left off. When this value is present in output, it indicates that there are more results to retrieve."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?graphs = fun ?nextToken -> fun () -> { graphs; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("graphs", (Option.map x.graphs ~f:GraphSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let graphs =
        (Option.map ~f:GraphSummaryList.of_xml) (Xml.child xml_arg0 "graphs") in
      make ?nextToken ?graphs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let graphs = field_map json__ "graphs" GraphSummaryList.of_json in
      make ?nextToken ?graphs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists available Neptune Analytics graphs."]
module ListGraphsInput =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "Pagination token used to paginate output. When this value is provided as input, the service returns results from where the previous response left off. When this value is present in output, it indicates that there are more results to retrieve."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The total number of records to return in the command's output. If the total number of records available is more than the value specified, nextToken is provided in the command's output. To resume pagination, provide the nextToken output value in the nextToken argument of a subsequent command. Do not use the nextToken response element directly outside of the Amazon CLI."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists available Neptune Analytics graphs."]
module ListGraphSnapshotsOutput =
  struct
    type nonrec t =
      {
      graphSnapshots: GraphSnapshotSummaryList.t option
        [@ocaml.doc "The requested list of snapshots."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "Pagination token used to paginate output. When this value is provided as input, the service returns results from where the previous response left off. When this value is present in output, it indicates that there are more results to retrieve."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?graphSnapshots =
      fun ?nextToken -> fun () -> { graphSnapshots; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("graphSnapshots",
           (Option.map x.graphSnapshots ~f:GraphSnapshotSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let graphSnapshots =
        (Option.map ~f:GraphSnapshotSummaryList.of_xml)
          (Xml.child xml_arg0 "graphSnapshots") in
      make ?nextToken ?graphSnapshots ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let graphSnapshots =
        field_map json__ "graphSnapshots" GraphSnapshotSummaryList.of_json in
      make ?nextToken ?graphSnapshots ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists available snapshots of a specified Neptune Analytics graph."]
module ListGraphSnapshotsInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t option
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "Pagination token used to paginate output. When this value is provided as input, the service returns results from where the previous response left off. When this value is present in output, it indicates that there are more results to retrieve."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The total number of records to return in the command's output. If the total number of records available is more than the value specified, nextToken is provided in the command's output. To resume pagination, provide the nextToken output value in the nextToken argument of a subsequent command. Do not use the nextToken response element directly outside of the Amazon CLI."]}
    let make ?graphIdentifier =
      fun ?nextToken ->
        fun ?maxResults ->
          fun () -> { graphIdentifier; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Option.map x.graphIdentifier ~f:GraphIdentifier.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let graphIdentifier =
        (Option.map ~f:GraphIdentifier.of_xml)
          (Xml.child xml_arg0 "graphIdentifier") in
      make ?maxResults ?nextToken ?graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let graphIdentifier =
        field_map json__ "graphIdentifier" GraphIdentifier.of_json in
      make ?maxResults ?nextToken ?graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists available snapshots of a specified Neptune Analytics graph."]
module ListExportTasksOutput =
  struct
    type nonrec t =
      {
      tasks: ExportTaskSummaryList.t option
        [@ocaml.doc "The requested list of export tasks."];
      nextToken: PaginationToken.t option
        [@ocaml.doc "Pagination token used to paginate output."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tasks = fun ?nextToken -> fun () -> { tasks; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("tasks", (Option.map x.tasks ~f:ExportTaskSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let tasks =
        (Option.map ~f:ExportTaskSummaryList.of_xml)
          (Xml.child xml_arg0 "tasks") in
      make ?nextToken ?tasks ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let tasks = field_map json__ "tasks" ExportTaskSummaryList.of_json in
      make ?nextToken ?tasks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of export tasks."]
module ListExportTasksInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t option
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      nextToken: PaginationToken.t option
        [@ocaml.doc "Pagination token used to paginate input."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of export tasks to return."]}
    let make ?graphIdentifier =
      fun ?nextToken ->
        fun ?maxResults ->
          fun () -> { graphIdentifier; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Option.map x.graphIdentifier ~f:GraphIdentifier.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let graphIdentifier =
        (Option.map ~f:GraphIdentifier.of_xml)
          (Xml.child xml_arg0 "graphIdentifier") in
      make ?maxResults ?nextToken ?graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let graphIdentifier =
        field_map json__ "graphIdentifier" GraphIdentifier.of_json in
      make ?maxResults ?nextToken ?graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of export tasks."]
module GetQueryOutput =
  struct
    type nonrec t =
      {
      id: String_.t option [@ocaml.doc "The ID of the query in question."];
      queryString: String_.t option [@ocaml.doc "The query in question."];
      waited: Integer.t option
        [@ocaml.doc "Indicates how long the query waited, in milliseconds."];
      elapsed: Integer.t option
        [@ocaml.doc "The number of milliseconds the query has been running."];
      state: QueryState.t option [@ocaml.doc "State of the query."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?queryString ->
        fun ?waited ->
          fun ?elapsed ->
            fun ?state ->
              fun () -> { id; queryString; waited; elapsed; state }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:String_.to_value));
        ("queryString", (Option.map x.queryString ~f:String_.to_value));
        ("waited", (Option.map x.waited ~f:Integer.to_value));
        ("elapsed", (Option.map x.elapsed ~f:Integer.to_value));
        ("state", (Option.map x.state ~f:QueryState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:QueryState.of_xml) (Xml.child xml_arg0 "state") in
      let elapsed =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "elapsed") in
      let waited =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "waited") in
      let queryString =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "queryString") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      make ?state ?elapsed ?waited ?queryString ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "state" QueryState.of_json in
      let elapsed = field_map json__ "elapsed" Integer.of_json in
      let waited = field_map json__ "waited" Integer.of_json in
      let queryString = field_map json__ "queryString" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      make ?state ?elapsed ?waited ?queryString ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the status of a specified query. When invoking this operation in a Neptune Analytics cluster, the IAM user or role making the request must have the neptune-graph:GetQueryStatus IAM action attached."]
module GetQueryInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      queryId: String_.t [@ocaml.doc "The ID of the query in question."]}
    let context_ = "GetQueryInput"
    let make ~graphIdentifier =
      fun ~queryId -> fun () -> { graphIdentifier; queryId }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("queryId", (Some (String_.to_value x.queryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queryId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "queryId") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ~queryId ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queryId = field_map_exn json__ "queryId" String_.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ~queryId ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the status of a specified query. When invoking this operation in a Neptune Analytics cluster, the IAM user or role making the request must have the neptune-graph:GetQueryStatus IAM action attached."]
module GetPrivateGraphEndpointOutput =
  struct
    type nonrec t =
      {
      vpcId: VpcId.t option
        [@ocaml.doc
          "The ID of the VPC where the private endpoint is located."];
      subnetIds: SubnetIds.t option [@ocaml.doc "The subnet IDs involved."];
      status: PrivateGraphEndpointStatus.t option
        [@ocaml.doc "The current status of the private endpoint."];
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc "The ID of the private endpoint."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcId =
      fun ?subnetIds ->
        fun ?status ->
          fun ?vpcEndpointId ->
            fun () -> { vpcId; subnetIds; status; vpcEndpointId }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("subnetIds", (Option.map x.subnetIds ~f:SubnetIds.to_value));
        ("status",
          (Option.map x.status ~f:PrivateGraphEndpointStatus.to_value));
        ("vpcEndpointId",
          (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "vpcEndpointId") in
      let status =
        (Option.map ~f:PrivateGraphEndpointStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let subnetIds =
        (Option.map ~f:SubnetIds.of_xml) (Xml.child xml_arg0 "subnetIds") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      make ?vpcEndpointId ?status ?subnetIds ?vpcId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointId =
        field_map json__ "vpcEndpointId" VpcEndpointId.of_json in
      let status =
        field_map json__ "status" PrivateGraphEndpointStatus.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetIds.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      make ?vpcEndpointId ?status ?subnetIds ?vpcId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about a specified private endpoint."]
module GetPrivateGraphEndpointInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      vpcId: VpcId.t
        [@ocaml.doc
          "The ID of the VPC where the private endpoint is located."]}
    let context_ = "GetPrivateGraphEndpointInput"
    let make ~graphIdentifier =
      fun ~vpcId -> fun () -> { graphIdentifier; vpcId }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("vpcId", (Some (VpcId.to_value x.vpcId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcId =
        VpcId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vpcId") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ~vpcId ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcId = field_map_exn json__ "vpcId" VpcId.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ~vpcId ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about a specified private endpoint."]
module GetImportTaskOutput =
  struct
    type nonrec t =
      {
      graphId: GraphId.t option
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      taskId: TaskId.t option
        [@ocaml.doc "The unique identifier of the import task."];
      source: String_.t option
        [@ocaml.doc
          "A URL identifying to the location of the data to be imported. This can be an Amazon S3 path, or can point to a Neptune database endpoint or snapshot"];
      format: Format_.t option
        [@ocaml.doc
          "Specifies the format of S3 data to be imported. Valid values are CSV, which identifies the Gremlin CSV format or OPENCYPHER, which identifies the openCypher load format."];
      parquetType: ParquetType.t option
        [@ocaml.doc "The parquet type of the import task."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM role that will allow access to the data that is to be imported."];
      status: ImportTaskStatus.t option
        [@ocaml.doc
          "The status of the import task: INITIALIZING \194\160 \226\128\147 \194\160 The necessary resources needed to create the graph are being prepared. ANALYZING_DATA \194\160 \226\128\147 \194\160 The data is being analyzed to determine the optimal infrastructure configuration for the new graph. RE_PROVISIONING \194\160 \226\128\147 \194\160 The data did not fit into the provisioned graph, so it is being re-provisioned with more capacity. IMPORTING \194\160 \226\128\147 \194\160 The data is being loaded. ERROR_ENCOUNTERED \194\160 \226\128\147 \194\160 An error has been encountered while trying to create the graph and import the data. ERROR_ENCOUNTERED_ROLLING_BACK \194\160 \226\128\147 \194\160 Because of the error that was encountered, the graph is being rolled back and all its resources released. SUCCEEDED \194\160 \226\128\147 \194\160 Graph creation and data loading succeeded. FAILED \194\160 \226\128\147 \194\160 Graph creation or data loading failed. When the status is FAILED, you can use get-graphs to get more information about the state of the graph. CANCELLING \194\160 \226\128\147 \194\160 Because you cancelled the import task, cancellation is in progress. CANCELLED \194\160 \226\128\147 \194\160 You have successfully cancelled the import task."];
      importOptions: ImportOptions.t option
        [@ocaml.doc
          "Contains options for controlling the import process. For example, if the failOnError key is set to false, the import skips problem data and attempts to continue (whereas if set to true, the default, or if omitted, the import operation halts immediately when an error is encountered."];
      importTaskDetails: ImportTaskDetails.t option
        [@ocaml.doc "Contains details about the specified import task."];
      attemptNumber: Integer.t option
        [@ocaml.doc
          "The number of the current attempts to execute the import task."];
      statusReason: String_.t option
        [@ocaml.doc "The reason that the import task has this status value."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?graphId =
      fun ?taskId ->
        fun ?source ->
          fun ?format ->
            fun ?parquetType ->
              fun ?roleArn ->
                fun ?status ->
                  fun ?importOptions ->
                    fun ?importTaskDetails ->
                      fun ?attemptNumber ->
                        fun ?statusReason ->
                          fun () ->
                            {
                              graphId;
                              taskId;
                              source;
                              format;
                              parquetType;
                              roleArn;
                              status;
                              importOptions;
                              importTaskDetails;
                              attemptNumber;
                              statusReason
                            }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("graphId", (Option.map x.graphId ~f:GraphId.to_value));
        ("taskId", (Option.map x.taskId ~f:TaskId.to_value));
        ("source", (Option.map x.source ~f:String_.to_value));
        ("format", (Option.map x.format ~f:Format_.to_value));
        ("parquetType", (Option.map x.parquetType ~f:ParquetType.to_value));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("status", (Option.map x.status ~f:ImportTaskStatus.to_value));
        ("importOptions",
          (Option.map x.importOptions ~f:ImportOptions.to_value));
        ("importTaskDetails",
          (Option.map x.importTaskDetails ~f:ImportTaskDetails.to_value));
        ("attemptNumber", (Option.map x.attemptNumber ~f:Integer.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let attemptNumber =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "attemptNumber") in
      let importTaskDetails =
        (Option.map ~f:ImportTaskDetails.of_xml)
          (Xml.child xml_arg0 "importTaskDetails") in
      let importOptions =
        (Option.map ~f:ImportOptions.of_xml)
          (Xml.child xml_arg0 "importOptions") in
      let status =
        (Option.map ~f:ImportTaskStatus.of_xml) (Xml.child xml_arg0 "status") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let parquetType =
        (Option.map ~f:ParquetType.of_xml) (Xml.child xml_arg0 "parquetType") in
      let format =
        (Option.map ~f:Format_.of_xml) (Xml.child xml_arg0 "format") in
      let source =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "source") in
      let taskId =
        (Option.map ~f:TaskId.of_xml) (Xml.child xml_arg0 "taskId") in
      let graphId =
        (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "graphId") in
      make ?statusReason ?attemptNumber ?importTaskDetails ?importOptions
        ?status ?roleArn ?parquetType ?format ?source ?taskId ?graphId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let attemptNumber = field_map json__ "attemptNumber" Integer.of_json in
      let importTaskDetails =
        field_map json__ "importTaskDetails" ImportTaskDetails.of_json in
      let importOptions =
        field_map json__ "importOptions" ImportOptions.of_json in
      let status = field_map json__ "status" ImportTaskStatus.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let parquetType = field_map json__ "parquetType" ParquetType.of_json in
      let format = field_map json__ "format" Format_.of_json in
      let source = field_map json__ "source" String_.of_json in
      let taskId = field_map json__ "taskId" TaskId.of_json in
      let graphId = field_map json__ "graphId" GraphId.of_json in
      make ?statusReason ?attemptNumber ?importTaskDetails ?importOptions
        ?status ?roleArn ?parquetType ?format ?source ?taskId ?graphId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a specified import task."]
module GetImportTaskInput =
  struct
    type nonrec t =
      {
      taskIdentifier: TaskId.t
        [@ocaml.doc "The unique identifier of the import task."]}
    let context_ = "GetImportTaskInput"
    let make ~taskIdentifier = fun () -> { taskIdentifier }
    let to_value x =
      structure_to_value
        [("taskIdentifier", (Some (TaskId.to_value x.taskIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taskIdentifier =
        TaskId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "taskIdentifier") in
      make ~taskIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taskIdentifier =
        field_map_exn json__ "taskIdentifier" TaskId.of_json in
      make ~taskIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a specified import task."]
module GetGraphSummaryOutput =
  struct
    type nonrec t =
      {
      version: String_.t option
        [@ocaml.doc "Display the version of this tool."];
      lastStatisticsComputationTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The timestamp, in ISO 8601 format, of the time at which Neptune Analytics last computed statistics."];
      graphSummary: GraphDataSummary.t option
        [@ocaml.doc "The graph summary."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?version =
      fun ?lastStatisticsComputationTime ->
        fun ?graphSummary ->
          fun () -> { version; lastStatisticsComputationTime; graphSummary }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("version", (Option.map x.version ~f:String_.to_value));
        ("lastStatisticsComputationTime",
          (Option.map x.lastStatisticsComputationTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("graphSummary",
          (Option.map x.graphSummary ~f:GraphDataSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let graphSummary =
        (Option.map ~f:GraphDataSummary.of_xml)
          (Xml.child xml_arg0 "graphSummary") in
      let lastStatisticsComputationTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "lastStatisticsComputationTime") in
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "version") in
      make ?graphSummary ?lastStatisticsComputationTime ?version ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let graphSummary =
        field_map json__ "graphSummary" GraphDataSummary.of_json in
      let lastStatisticsComputationTime =
        field_map json__ "lastStatisticsComputationTime"
          SyntheticTimestamp_date_time.of_json in
      let version = field_map json__ "version" String_.of_json in
      make ?graphSummary ?lastStatisticsComputationTime ?version ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets a graph summary for a property graph."]
module GetGraphSummaryInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      mode: GraphSummaryMode.t option
        [@ocaml.doc
          "The summary mode can take one of two values: basic (the default), and detailed."]}
    let context_ = "GetGraphSummaryInput"
    let make ?mode =
      fun ~graphIdentifier -> fun () -> { mode; graphIdentifier }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("mode", (Option.map x.mode ~f:GraphSummaryMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mode =
        (Option.map ~f:GraphSummaryMode.of_xml) (Xml.child xml_arg0 "mode") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ?mode ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mode = field_map json__ "mode" GraphSummaryMode.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ?mode ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets a graph summary for a property graph."]
module GetGraphSnapshotOutput =
  struct
    type nonrec t =
      {
      id: SnapshotId.t option
        [@ocaml.doc "The unique identifier of the graph snapshot."];
      name: SnapshotName.t option
        [@ocaml.doc
          "The snapshot name. For example: my-snapshot-1. The name must contain from 1 to 63 letters, numbers, or hyphens, and its first character must be a letter. It cannot end with a hyphen or contain two consecutive hyphens. Only lowercase letters are allowed."];
      arn: String_.t option [@ocaml.doc "The ARN of the graph snapshot."];
      sourceGraphId: GraphId.t option
        [@ocaml.doc
          "The graph identifier for the graph for which a snapshot is to be created."];
      snapshotCreateTime: Timestamp.t option
        [@ocaml.doc "The time when the snapshot was created."];
      status: SnapshotStatus.t option
        [@ocaml.doc "The status of the graph snapshot."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc
          "The ID of the KMS key used to encrypt and decrypt the snapshot."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?sourceGraphId ->
            fun ?snapshotCreateTime ->
              fun ?status ->
                fun ?kmsKeyIdentifier ->
                  fun () ->
                    {
                      id;
                      name;
                      arn;
                      sourceGraphId;
                      snapshotCreateTime;
                      status;
                      kmsKeyIdentifier
                    }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:SnapshotId.to_value));
        ("name", (Option.map x.name ~f:SnapshotName.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("sourceGraphId", (Option.map x.sourceGraphId ~f:GraphId.to_value));
        ("snapshotCreateTime",
          (Option.map x.snapshotCreateTime ~f:Timestamp.to_value));
        ("status", (Option.map x.status ~f:SnapshotStatus.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let status =
        (Option.map ~f:SnapshotStatus.of_xml) (Xml.child xml_arg0 "status") in
      let snapshotCreateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "snapshotCreateTime") in
      let sourceGraphId =
        (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "sourceGraphId") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:SnapshotName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "id") in
      make ?kmsKeyIdentifier ?status ?snapshotCreateTime ?sourceGraphId ?arn
        ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let status = field_map json__ "status" SnapshotStatus.of_json in
      let snapshotCreateTime =
        field_map json__ "snapshotCreateTime" Timestamp.of_json in
      let sourceGraphId = field_map json__ "sourceGraphId" GraphId.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let name = field_map json__ "name" SnapshotName.of_json in
      let id = field_map json__ "id" SnapshotId.of_json in
      make ?kmsKeyIdentifier ?status ?snapshotCreateTime ?sourceGraphId ?arn
        ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a specified graph snapshot."]
module GetGraphSnapshotInput =
  struct
    type nonrec t =
      {
      snapshotIdentifier: SnapshotIdentifier.t
        [@ocaml.doc "The ID of the snapshot to retrieve."]}
    let context_ = "GetGraphSnapshotInput"
    let make ~snapshotIdentifier = fun () -> { snapshotIdentifier }
    let to_value x =
      structure_to_value
        [("snapshotIdentifier",
           (Some (SnapshotIdentifier.to_value x.snapshotIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snapshotIdentifier =
        SnapshotIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "snapshotIdentifier") in
      make ~snapshotIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snapshotIdentifier =
        field_map_exn json__ "snapshotIdentifier" SnapshotIdentifier.of_json in
      make ~snapshotIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a specified graph snapshot."]
module GetGraphOutput =
  struct
    type nonrec t =
      {
      id: GraphId.t option [@ocaml.doc "The unique identifier of the graph."];
      name: GraphName.t option [@ocaml.doc "The name of the graph."];
      arn: String_.t option [@ocaml.doc "The ARN associated with the graph."];
      status: GraphStatus.t option [@ocaml.doc "The status of the graph."];
      statusReason: String_.t option
        [@ocaml.doc "The reason that the graph has this status."];
      createTime: Timestamp.t option
        [@ocaml.doc "The time at which the graph was created."];
      provisionedMemory: ProvisionedMemory.t option
        [@ocaml.doc
          "The number of memory-optimized Neptune Capacity Units (m-NCUs) allocated to the graph."];
      endpoint: String_.t option [@ocaml.doc "The graph endpoint."];
      publicConnectivity: Boolean.t option
        [@ocaml.doc
          "If true, the graph has a public endpoint, otherwise not."];
      vectorSearchConfiguration: VectorSearchConfiguration.t option ;
      replicaCount: ReplicaCount.t option
        [@ocaml.doc "The number of replicas for the graph."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc
          "The ID of the KMS key used to encrypt and decrypt graph data."];
      sourceSnapshotId: SnapshotId.t option
        [@ocaml.doc
          "The ID of the snapshot from which the graph was created, if it was created from a snapshot."];
      deletionProtection: Boolean.t option
        [@ocaml.doc "If true, deletion protection is enabled for the graph."];
      buildNumber: String_.t option
        [@ocaml.doc "The build number of the graph."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?status ->
            fun ?statusReason ->
              fun ?createTime ->
                fun ?provisionedMemory ->
                  fun ?endpoint ->
                    fun ?publicConnectivity ->
                      fun ?vectorSearchConfiguration ->
                        fun ?replicaCount ->
                          fun ?kmsKeyIdentifier ->
                            fun ?sourceSnapshotId ->
                              fun ?deletionProtection ->
                                fun ?buildNumber ->
                                  fun () ->
                                    {
                                      id;
                                      name;
                                      arn;
                                      status;
                                      statusReason;
                                      createTime;
                                      provisionedMemory;
                                      endpoint;
                                      publicConnectivity;
                                      vectorSearchConfiguration;
                                      replicaCount;
                                      kmsKeyIdentifier;
                                      sourceSnapshotId;
                                      deletionProtection;
                                      buildNumber
                                    }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:GraphId.to_value));
        ("name", (Option.map x.name ~f:GraphName.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("status", (Option.map x.status ~f:GraphStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("createTime", (Option.map x.createTime ~f:Timestamp.to_value));
        ("provisionedMemory",
          (Option.map x.provisionedMemory ~f:ProvisionedMemory.to_value));
        ("endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("publicConnectivity",
          (Option.map x.publicConnectivity ~f:Boolean.to_value));
        ("vectorSearchConfiguration",
          (Option.map x.vectorSearchConfiguration
             ~f:VectorSearchConfiguration.to_value));
        ("replicaCount",
          (Option.map x.replicaCount ~f:ReplicaCount.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value));
        ("sourceSnapshotId",
          (Option.map x.sourceSnapshotId ~f:SnapshotId.to_value));
        ("deletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value));
        ("buildNumber", (Option.map x.buildNumber ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let buildNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "buildNumber") in
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deletionProtection") in
      let sourceSnapshotId =
        (Option.map ~f:SnapshotId.of_xml)
          (Xml.child xml_arg0 "sourceSnapshotId") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let replicaCount =
        (Option.map ~f:ReplicaCount.of_xml)
          (Xml.child xml_arg0 "replicaCount") in
      let vectorSearchConfiguration =
        (Option.map ~f:VectorSearchConfiguration.of_xml)
          (Xml.child xml_arg0 "vectorSearchConfiguration") in
      let publicConnectivity =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "publicConnectivity") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "endpoint") in
      let provisionedMemory =
        (Option.map ~f:ProvisionedMemory.of_xml)
          (Xml.child xml_arg0 "provisionedMemory") in
      let createTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createTime") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:GraphStatus.of_xml) (Xml.child xml_arg0 "status") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let name = (Option.map ~f:GraphName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "id") in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let buildNumber = field_map json__ "buildNumber" String_.of_json in
      let deletionProtection =
        field_map json__ "deletionProtection" Boolean.of_json in
      let sourceSnapshotId =
        field_map json__ "sourceSnapshotId" SnapshotId.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let replicaCount = field_map json__ "replicaCount" ReplicaCount.of_json in
      let vectorSearchConfiguration =
        field_map json__ "vectorSearchConfiguration"
          VectorSearchConfiguration.of_json in
      let publicConnectivity =
        field_map json__ "publicConnectivity" Boolean.of_json in
      let endpoint = field_map json__ "endpoint" String_.of_json in
      let provisionedMemory =
        field_map json__ "provisionedMemory" ProvisionedMemory.of_json in
      let createTime = field_map json__ "createTime" Timestamp.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status = field_map json__ "status" GraphStatus.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let name = field_map json__ "name" GraphName.of_json in
      let id = field_map json__ "id" GraphId.of_json in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about a specified graph."]
module GetGraphInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."]}
    let context_ = "GetGraphInput"
    let make ~graphIdentifier = fun () -> { graphIdentifier }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about a specified graph."]
module GetExportTaskOutput =
  struct
    type nonrec t =
      {
      graphId: GraphId.t option
        [@ocaml.doc "The source graph identifier of the export task."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM role that will allow data to be exported to the destination."];
      taskId: ExportTaskId.t option
        [@ocaml.doc "The unique identifier of the export task."];
      status: ExportTaskStatus.t option
        [@ocaml.doc "The current status of the export task."];
      format: ExportFormat.t option
        [@ocaml.doc "The format of the export task."];
      destination: GetExportTaskOutputDestinationString.t option
        [@ocaml.doc
          "The Amazon S3 URI of the export task where data will be exported."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc "The KMS key identifier of the export task."];
      parquetType: ParquetType.t option
        [@ocaml.doc "The parquet type of the export task."];
      statusReason: String_.t option
        [@ocaml.doc "The reason that the export task has this status value."];
      exportTaskDetails: ExportTaskDetails.t option
        [@ocaml.doc "The details of the export task."];
      exportFilter: ExportFilter.t option
        [@ocaml.doc "The export filter of the export task."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?graphId =
      fun ?roleArn ->
        fun ?taskId ->
          fun ?status ->
            fun ?format ->
              fun ?destination ->
                fun ?kmsKeyIdentifier ->
                  fun ?parquetType ->
                    fun ?statusReason ->
                      fun ?exportTaskDetails ->
                        fun ?exportFilter ->
                          fun () ->
                            {
                              graphId;
                              roleArn;
                              taskId;
                              status;
                              format;
                              destination;
                              kmsKeyIdentifier;
                              parquetType;
                              statusReason;
                              exportTaskDetails;
                              exportFilter
                            }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("graphId", (Option.map x.graphId ~f:GraphId.to_value));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("taskId", (Option.map x.taskId ~f:ExportTaskId.to_value));
        ("status", (Option.map x.status ~f:ExportTaskStatus.to_value));
        ("format", (Option.map x.format ~f:ExportFormat.to_value));
        ("destination",
          (Option.map x.destination
             ~f:GetExportTaskOutputDestinationString.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value));
        ("parquetType", (Option.map x.parquetType ~f:ParquetType.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("exportTaskDetails",
          (Option.map x.exportTaskDetails ~f:ExportTaskDetails.to_value));
        ("exportFilter",
          (Option.map x.exportFilter ~f:ExportFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportFilter =
        (Option.map ~f:ExportFilter.of_xml)
          (Xml.child xml_arg0 "exportFilter") in
      let exportTaskDetails =
        (Option.map ~f:ExportTaskDetails.of_xml)
          (Xml.child xml_arg0 "exportTaskDetails") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let parquetType =
        (Option.map ~f:ParquetType.of_xml) (Xml.child xml_arg0 "parquetType") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let destination =
        (Option.map ~f:GetExportTaskOutputDestinationString.of_xml)
          (Xml.child xml_arg0 "destination") in
      let format =
        (Option.map ~f:ExportFormat.of_xml) (Xml.child xml_arg0 "format") in
      let status =
        (Option.map ~f:ExportTaskStatus.of_xml) (Xml.child xml_arg0 "status") in
      let taskId =
        (Option.map ~f:ExportTaskId.of_xml) (Xml.child xml_arg0 "taskId") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let graphId =
        (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "graphId") in
      make ?exportFilter ?exportTaskDetails ?statusReason ?parquetType
        ?kmsKeyIdentifier ?destination ?format ?status ?taskId ?roleArn
        ?graphId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportFilter = field_map json__ "exportFilter" ExportFilter.of_json in
      let exportTaskDetails =
        field_map json__ "exportTaskDetails" ExportTaskDetails.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let parquetType = field_map json__ "parquetType" ParquetType.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let destination =
        field_map json__ "destination"
          GetExportTaskOutputDestinationString.of_json in
      let format = field_map json__ "format" ExportFormat.of_json in
      let status = field_map json__ "status" ExportTaskStatus.of_json in
      let taskId = field_map json__ "taskId" ExportTaskId.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let graphId = field_map json__ "graphId" GraphId.of_json in
      make ?exportFilter ?exportTaskDetails ?statusReason ?parquetType
        ?kmsKeyIdentifier ?destination ?format ?status ?taskId ?roleArn
        ?graphId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a specified export task."]
module GetExportTaskInput =
  struct
    type nonrec t =
      {
      taskIdentifier: ExportTaskId.t
        [@ocaml.doc "The unique identifier of the export task."]}
    let context_ = "GetExportTaskInput"
    let make ~taskIdentifier = fun () -> { taskIdentifier }
    let to_value x =
      structure_to_value
        [("taskIdentifier", (Some (ExportTaskId.to_value x.taskIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taskIdentifier =
        ExportTaskId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "taskIdentifier") in
      make ~taskIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taskIdentifier =
        field_map_exn json__ "taskIdentifier" ExportTaskId.of_json in
      make ~taskIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a specified export task."]
module ExecuteQueryOutput =
  struct
    type nonrec t =
      {
      payload: QueryResponseBlob.t option [@ocaml.doc "The query results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnprocessableException of UnprocessableException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?payload = fun () -> { payload }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnprocessableException" ->
          `UnprocessableException (UnprocessableException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnprocessableException" ->
          `UnprocessableException (UnprocessableException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnprocessableException e ->
          `Assoc
            [("error", (`String "UnprocessableException"));
            ("details", (UnprocessableException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body =
      ((fun (xs, pipe) -> make ?payload:(Some pipe) ())[@warning "-27"])
    let to_value x =
      structure_to_value
        [("payload", (Option.map x.payload ~f:QueryResponseBlob.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let payload =
        (Option.map ~f:QueryResponseBlob.of_xml)
          (Xml.child xml_arg0 "payload") in
      make ?payload ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let payload = field_map json__ "payload" QueryResponseBlob.of_json in
      make ?payload ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Execute an openCypher query. When invoking this operation in a Neptune Analytics cluster, the IAM user or role making the request must have a policy attached that allows one of the following IAM actions in that cluster, depending on the query: neptune-graph:ReadDataViaQuery neptune-graph:WriteDataViaQuery neptune-graph:DeleteDataViaQuery"]
module ExecuteQueryInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      queryString: String_.t [@ocaml.doc "The query string to be executed."];
      language: QueryLanguage.t
        [@ocaml.doc
          "The query language the query is written in. Currently only openCypher is supported."];
      parameters: DocumentValuedMap.t option
        [@ocaml.doc
          "The data parameters the query can use in JSON format. For example: \\{\"name\": \"john\", \"age\": 20\\}. (optional)"];
      planCache: PlanCacheType.t option
        [@ocaml.doc
          "Query plan cache is a feature that saves the query plan and reuses it on successive executions of the same query. This reduces query latency, and works for both READ and UPDATE queries. The plan cache is an LRU cache with a 5 minute TTL and a capacity of 1000."];
      explainMode: ExplainMode.t option
        [@ocaml.doc
          "The explain mode parameter returns a query explain instead of the actual query results. A query explain can be used to gather insights about the query execution such as planning decisions, time spent on each operator, solutions flowing etc."];
      queryTimeoutMilliseconds: Integer.t option
        [@ocaml.doc
          "Specifies the query timeout duration, in milliseconds. (optional)"]}
    let context_ = "ExecuteQueryInput"
    let make ?parameters =
      fun ?planCache ->
        fun ?explainMode ->
          fun ?queryTimeoutMilliseconds ->
            fun ~graphIdentifier ->
              fun ~queryString ->
                fun ~language ->
                  fun () ->
                    {
                      parameters;
                      planCache;
                      explainMode;
                      queryTimeoutMilliseconds;
                      graphIdentifier;
                      queryString;
                      language
                    }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("query", (Some (String_.to_value x.queryString)));
        ("language", (Some (QueryLanguage.to_value x.language)));
        ("parameters",
          (Option.map x.parameters ~f:DocumentValuedMap.to_value));
        ("planCache", (Option.map x.planCache ~f:PlanCacheType.to_value));
        ("explain", (Option.map x.explainMode ~f:ExplainMode.to_value));
        ("queryTimeoutMilliseconds",
          (Option.map x.queryTimeoutMilliseconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queryTimeoutMilliseconds =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "queryTimeoutMilliseconds") in
      let explainMode =
        (Option.map ~f:ExplainMode.of_xml) (Xml.child xml_arg0 "explain") in
      let planCache =
        (Option.map ~f:PlanCacheType.of_xml) (Xml.child xml_arg0 "planCache") in
      let parameters =
        (Option.map ~f:DocumentValuedMap.of_xml)
          (Xml.child xml_arg0 "parameters") in
      let language =
        QueryLanguage.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "language") in
      let queryString =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "query") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ?queryTimeoutMilliseconds ?explainMode ?planCache ?parameters
        ~language ~queryString ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queryTimeoutMilliseconds =
        field_map json__ "queryTimeoutMilliseconds" Integer.of_json in
      let explainMode = field_map json__ "explainMode" ExplainMode.of_json in
      let planCache = field_map json__ "planCache" PlanCacheType.of_json in
      let parameters =
        field_map json__ "parameters" DocumentValuedMap.of_json in
      let language = field_map_exn json__ "language" QueryLanguage.of_json in
      let queryString = field_map_exn json__ "queryString" String_.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ?queryTimeoutMilliseconds ?explainMode ?planCache ?parameters
        ~language ~queryString ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Execute an openCypher query. When invoking this operation in a Neptune Analytics cluster, the IAM user or role making the request must have a policy attached that allows one of the following IAM actions in that cluster, depending on the query: neptune-graph:ReadDataViaQuery neptune-graph:WriteDataViaQuery neptune-graph:DeleteDataViaQuery"]
module DeletePrivateGraphEndpointOutput =
  struct
    type nonrec t =
      {
      vpcId: VpcId.t option
        [@ocaml.doc
          "The ID of the VPC where the private endpoint was deleted."];
      subnetIds: SubnetIds.t option [@ocaml.doc "The subnet IDs involved."];
      status: PrivateGraphEndpointStatus.t option
        [@ocaml.doc "The status of the delete operation."];
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc "The ID of the VPC endpoint that was deleted."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcId =
      fun ?subnetIds ->
        fun ?status ->
          fun ?vpcEndpointId ->
            fun () -> { vpcId; subnetIds; status; vpcEndpointId }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("subnetIds", (Option.map x.subnetIds ~f:SubnetIds.to_value));
        ("status",
          (Option.map x.status ~f:PrivateGraphEndpointStatus.to_value));
        ("vpcEndpointId",
          (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "vpcEndpointId") in
      let status =
        (Option.map ~f:PrivateGraphEndpointStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let subnetIds =
        (Option.map ~f:SubnetIds.of_xml) (Xml.child xml_arg0 "subnetIds") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      make ?vpcEndpointId ?status ?subnetIds ?vpcId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointId =
        field_map json__ "vpcEndpointId" VpcEndpointId.of_json in
      let status =
        field_map json__ "status" PrivateGraphEndpointStatus.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetIds.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      make ?vpcEndpointId ?status ?subnetIds ?vpcId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a private graph endpoint."]
module DeletePrivateGraphEndpointInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      vpcId: VpcId.t
        [@ocaml.doc
          "The ID of the VPC where the private endpoint is located."]}
    let context_ = "DeletePrivateGraphEndpointInput"
    let make ~graphIdentifier =
      fun ~vpcId -> fun () -> { graphIdentifier; vpcId }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("vpcId", (Some (VpcId.to_value x.vpcId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcId =
        VpcId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vpcId") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ~vpcId ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcId = field_map_exn json__ "vpcId" VpcId.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ~vpcId ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a private graph endpoint."]
module DeleteGraphSnapshotOutput =
  struct
    type nonrec t =
      {
      id: SnapshotId.t option
        [@ocaml.doc "The unique identifier of the graph snapshot."];
      name: SnapshotName.t option
        [@ocaml.doc
          "The snapshot name. For example: my-snapshot-1. The name must contain from 1 to 63 letters, numbers, or hyphens, and its first character must be a letter. It cannot end with a hyphen or contain two consecutive hyphens. Only lowercase letters are allowed."];
      arn: String_.t option [@ocaml.doc "The ARN of the graph snapshot."];
      sourceGraphId: GraphId.t option
        [@ocaml.doc
          "The graph identifier for the graph from which the snapshot was created."];
      snapshotCreateTime: Timestamp.t option
        [@ocaml.doc "The time when the snapshot was created."];
      status: SnapshotStatus.t option
        [@ocaml.doc "The status of the graph snapshot."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc
          "The ID of the KMS key used to encrypt and decrypt the snapshot."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?sourceGraphId ->
            fun ?snapshotCreateTime ->
              fun ?status ->
                fun ?kmsKeyIdentifier ->
                  fun () ->
                    {
                      id;
                      name;
                      arn;
                      sourceGraphId;
                      snapshotCreateTime;
                      status;
                      kmsKeyIdentifier
                    }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:SnapshotId.to_value));
        ("name", (Option.map x.name ~f:SnapshotName.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("sourceGraphId", (Option.map x.sourceGraphId ~f:GraphId.to_value));
        ("snapshotCreateTime",
          (Option.map x.snapshotCreateTime ~f:Timestamp.to_value));
        ("status", (Option.map x.status ~f:SnapshotStatus.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let status =
        (Option.map ~f:SnapshotStatus.of_xml) (Xml.child xml_arg0 "status") in
      let snapshotCreateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "snapshotCreateTime") in
      let sourceGraphId =
        (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "sourceGraphId") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:SnapshotName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "id") in
      make ?kmsKeyIdentifier ?status ?snapshotCreateTime ?sourceGraphId ?arn
        ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let status = field_map json__ "status" SnapshotStatus.of_json in
      let snapshotCreateTime =
        field_map json__ "snapshotCreateTime" Timestamp.of_json in
      let sourceGraphId = field_map json__ "sourceGraphId" GraphId.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let name = field_map json__ "name" SnapshotName.of_json in
      let id = field_map json__ "id" SnapshotId.of_json in
      make ?kmsKeyIdentifier ?status ?snapshotCreateTime ?sourceGraphId ?arn
        ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified graph snapshot."]
module DeleteGraphSnapshotInput =
  struct
    type nonrec t =
      {
      snapshotIdentifier: SnapshotIdentifier.t
        [@ocaml.doc "ID of the graph snapshot to be deleted."]}
    let context_ = "DeleteGraphSnapshotInput"
    let make ~snapshotIdentifier = fun () -> { snapshotIdentifier }
    let to_value x =
      structure_to_value
        [("snapshotIdentifier",
           (Some (SnapshotIdentifier.to_value x.snapshotIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snapshotIdentifier =
        SnapshotIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "snapshotIdentifier") in
      make ~snapshotIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snapshotIdentifier =
        field_map_exn json__ "snapshotIdentifier" SnapshotIdentifier.of_json in
      make ~snapshotIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified graph snapshot."]
module DeleteGraphOutput =
  struct
    type nonrec t =
      {
      id: GraphId.t option [@ocaml.doc "The unique identifier of the graph."];
      name: GraphName.t option [@ocaml.doc "The name of the graph."];
      arn: String_.t option [@ocaml.doc "The ARN associated with the graph."];
      status: GraphStatus.t option [@ocaml.doc "The status of the graph."];
      statusReason: String_.t option
        [@ocaml.doc "The reason for the status of the graph."];
      createTime: Timestamp.t option
        [@ocaml.doc "The time at which the graph was created."];
      provisionedMemory: ProvisionedMemory.t option
        [@ocaml.doc
          "The number of memory-optimized Neptune Capacity Units (m-NCUs) allocated to the graph."];
      endpoint: String_.t option [@ocaml.doc "The graph endpoint."];
      publicConnectivity: Boolean.t option
        [@ocaml.doc
          "If true, the graph has a public endpoint, otherwise not."];
      vectorSearchConfiguration: VectorSearchConfiguration.t option ;
      replicaCount: ReplicaCount.t option
        [@ocaml.doc "The number of replicas for the graph."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc
          "The ID of the KMS key used to encrypt and decrypt graph data."];
      sourceSnapshotId: SnapshotId.t option
        [@ocaml.doc
          "The ID of the snapshot from which the graph was created, if the graph was recovered from a snapshot."];
      deletionProtection: Boolean.t option
        [@ocaml.doc
          "If true, deletion protection was enabled for the graph."];
      buildNumber: String_.t option
        [@ocaml.doc "The build number associated with the graph."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?status ->
            fun ?statusReason ->
              fun ?createTime ->
                fun ?provisionedMemory ->
                  fun ?endpoint ->
                    fun ?publicConnectivity ->
                      fun ?vectorSearchConfiguration ->
                        fun ?replicaCount ->
                          fun ?kmsKeyIdentifier ->
                            fun ?sourceSnapshotId ->
                              fun ?deletionProtection ->
                                fun ?buildNumber ->
                                  fun () ->
                                    {
                                      id;
                                      name;
                                      arn;
                                      status;
                                      statusReason;
                                      createTime;
                                      provisionedMemory;
                                      endpoint;
                                      publicConnectivity;
                                      vectorSearchConfiguration;
                                      replicaCount;
                                      kmsKeyIdentifier;
                                      sourceSnapshotId;
                                      deletionProtection;
                                      buildNumber
                                    }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:GraphId.to_value));
        ("name", (Option.map x.name ~f:GraphName.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("status", (Option.map x.status ~f:GraphStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("createTime", (Option.map x.createTime ~f:Timestamp.to_value));
        ("provisionedMemory",
          (Option.map x.provisionedMemory ~f:ProvisionedMemory.to_value));
        ("endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("publicConnectivity",
          (Option.map x.publicConnectivity ~f:Boolean.to_value));
        ("vectorSearchConfiguration",
          (Option.map x.vectorSearchConfiguration
             ~f:VectorSearchConfiguration.to_value));
        ("replicaCount",
          (Option.map x.replicaCount ~f:ReplicaCount.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value));
        ("sourceSnapshotId",
          (Option.map x.sourceSnapshotId ~f:SnapshotId.to_value));
        ("deletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value));
        ("buildNumber", (Option.map x.buildNumber ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let buildNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "buildNumber") in
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deletionProtection") in
      let sourceSnapshotId =
        (Option.map ~f:SnapshotId.of_xml)
          (Xml.child xml_arg0 "sourceSnapshotId") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let replicaCount =
        (Option.map ~f:ReplicaCount.of_xml)
          (Xml.child xml_arg0 "replicaCount") in
      let vectorSearchConfiguration =
        (Option.map ~f:VectorSearchConfiguration.of_xml)
          (Xml.child xml_arg0 "vectorSearchConfiguration") in
      let publicConnectivity =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "publicConnectivity") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "endpoint") in
      let provisionedMemory =
        (Option.map ~f:ProvisionedMemory.of_xml)
          (Xml.child xml_arg0 "provisionedMemory") in
      let createTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createTime") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:GraphStatus.of_xml) (Xml.child xml_arg0 "status") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let name = (Option.map ~f:GraphName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "id") in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let buildNumber = field_map json__ "buildNumber" String_.of_json in
      let deletionProtection =
        field_map json__ "deletionProtection" Boolean.of_json in
      let sourceSnapshotId =
        field_map json__ "sourceSnapshotId" SnapshotId.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let replicaCount = field_map json__ "replicaCount" ReplicaCount.of_json in
      let vectorSearchConfiguration =
        field_map json__ "vectorSearchConfiguration"
          VectorSearchConfiguration.of_json in
      let publicConnectivity =
        field_map json__ "publicConnectivity" Boolean.of_json in
      let endpoint = field_map json__ "endpoint" String_.of_json in
      let provisionedMemory =
        field_map json__ "provisionedMemory" ProvisionedMemory.of_json in
      let createTime = field_map json__ "createTime" Timestamp.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status = field_map json__ "status" GraphStatus.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let name = field_map json__ "name" GraphName.of_json in
      let id = field_map json__ "id" GraphId.of_json in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified graph. Graphs cannot be deleted if delete-protection is enabled."]
module DeleteGraphInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      skipSnapshot: Boolean.t
        [@ocaml.doc
          "Determines whether a final graph snapshot is created before the graph is deleted. If true is specified, no graph snapshot is created. If false is specified, a graph snapshot is created before the graph is deleted."]}
    let context_ = "DeleteGraphInput"
    let make ~graphIdentifier =
      fun ~skipSnapshot -> fun () -> { graphIdentifier; skipSnapshot }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("skipSnapshot", (Some (Boolean.to_value x.skipSnapshot)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let skipSnapshot =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "skipSnapshot") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ~skipSnapshot ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let skipSnapshot = field_map_exn json__ "skipSnapshot" Boolean.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ~skipSnapshot ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified graph. Graphs cannot be deleted if delete-protection is enabled."]
module CreatePrivateGraphEndpointOutput =
  struct
    type nonrec t =
      {
      vpcId: VpcId.t option
        [@ocaml.doc "VPC in which the private graph endpoint is created."];
      subnetIds: SubnetIds.t option
        [@ocaml.doc
          "Subnets in which the private graph endpoint ENIs are created."];
      status: PrivateGraphEndpointStatus.t option
        [@ocaml.doc "Status of the private graph endpoint."];
      vpcEndpointId: VpcEndpointId.t option
        [@ocaml.doc "Endpoint ID of the private graph endpoint."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vpcId =
      fun ?subnetIds ->
        fun ?status ->
          fun ?vpcEndpointId ->
            fun () -> { vpcId; subnetIds; status; vpcEndpointId }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("subnetIds", (Option.map x.subnetIds ~f:SubnetIds.to_value));
        ("status",
          (Option.map x.status ~f:PrivateGraphEndpointStatus.to_value));
        ("vpcEndpointId",
          (Option.map x.vpcEndpointId ~f:VpcEndpointId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcEndpointId =
        (Option.map ~f:VpcEndpointId.of_xml)
          (Xml.child xml_arg0 "vpcEndpointId") in
      let status =
        (Option.map ~f:PrivateGraphEndpointStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let subnetIds =
        (Option.map ~f:SubnetIds.of_xml) (Xml.child xml_arg0 "subnetIds") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      make ?vpcEndpointId ?status ?subnetIds ?vpcId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcEndpointId =
        field_map json__ "vpcEndpointId" VpcEndpointId.of_json in
      let status =
        field_map json__ "status" PrivateGraphEndpointStatus.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetIds.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      make ?vpcEndpointId ?status ?subnetIds ?vpcId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Create a private graph endpoint to allow private access to the graph from within a VPC. You can attach security groups to the private graph endpoint. VPC endpoint charges apply."]
module CreatePrivateGraphEndpointInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      vpcId: VpcId.t option
        [@ocaml.doc
          "The VPC in which the private graph endpoint needs to be created."];
      subnetIds: SubnetIds.t option
        [@ocaml.doc
          "Subnets in which private graph endpoint ENIs are created."];
      vpcSecurityGroupIds: SecurityGroupIds.t option
        [@ocaml.doc
          "Security groups to be attached to the private graph endpoint."]}
    let context_ = "CreatePrivateGraphEndpointInput"
    let make ?vpcId =
      fun ?subnetIds ->
        fun ?vpcSecurityGroupIds ->
          fun ~graphIdentifier ->
            fun () ->
              { vpcId; subnetIds; vpcSecurityGroupIds; graphIdentifier }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("subnetIds", (Option.map x.subnetIds ~f:SubnetIds.to_value));
        ("vpcSecurityGroupIds",
          (Option.map x.vpcSecurityGroupIds ~f:SecurityGroupIds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcSecurityGroupIds =
        (Option.map ~f:SecurityGroupIds.of_xml)
          (Xml.child xml_arg0 "vpcSecurityGroupIds") in
      let subnetIds =
        (Option.map ~f:SubnetIds.of_xml) (Xml.child xml_arg0 "subnetIds") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ?vpcSecurityGroupIds ?subnetIds ?vpcId ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcSecurityGroupIds =
        field_map json__ "vpcSecurityGroupIds" SecurityGroupIds.of_json in
      let subnetIds = field_map json__ "subnetIds" SubnetIds.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ?vpcSecurityGroupIds ?subnetIds ?vpcId ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Create a private graph endpoint to allow private access to the graph from within a VPC. You can attach security groups to the private graph endpoint. VPC endpoint charges apply."]
module CreateGraphUsingImportTaskOutput =
  struct
    type nonrec t =
      {
      graphId: GraphId.t option
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      taskId: TaskId.t option
        [@ocaml.doc "The unique identifier of the import task."];
      source: String_.t option
        [@ocaml.doc
          "A URL identifying to the location of the data to be imported. This can be an Amazon S3 path, or can point to a Neptune database endpoint or snapshot."];
      format: Format_.t option
        [@ocaml.doc
          "Specifies the format of S3 data to be imported. Valid values are CSV, which identifies the Gremlin CSV format, OPENCYPHER, which identifies the openCypher load format, or ntriples, which identifies the RDF n-triples format."];
      parquetType: ParquetType.t option
        [@ocaml.doc "The parquet type of the import task."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM role that will allow access to the data that is to be imported."];
      status: ImportTaskStatus.t option
        [@ocaml.doc "The status of the import task."];
      importOptions: ImportOptions.t option
        [@ocaml.doc
          "Contains options for controlling the import process. For example, if the failOnError key is set to false, the import skips problem data and attempts to continue (whereas if set to true, the default, or if omitted, the import operation halts immediately when an error is encountered."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?graphId =
      fun ?taskId ->
        fun ?source ->
          fun ?format ->
            fun ?parquetType ->
              fun ?roleArn ->
                fun ?status ->
                  fun ?importOptions ->
                    fun () ->
                      {
                        graphId;
                        taskId;
                        source;
                        format;
                        parquetType;
                        roleArn;
                        status;
                        importOptions
                      }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("graphId", (Option.map x.graphId ~f:GraphId.to_value));
        ("taskId", (Option.map x.taskId ~f:TaskId.to_value));
        ("source", (Option.map x.source ~f:String_.to_value));
        ("format", (Option.map x.format ~f:Format_.to_value));
        ("parquetType", (Option.map x.parquetType ~f:ParquetType.to_value));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("status", (Option.map x.status ~f:ImportTaskStatus.to_value));
        ("importOptions",
          (Option.map x.importOptions ~f:ImportOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let importOptions =
        (Option.map ~f:ImportOptions.of_xml)
          (Xml.child xml_arg0 "importOptions") in
      let status =
        (Option.map ~f:ImportTaskStatus.of_xml) (Xml.child xml_arg0 "status") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let parquetType =
        (Option.map ~f:ParquetType.of_xml) (Xml.child xml_arg0 "parquetType") in
      let format =
        (Option.map ~f:Format_.of_xml) (Xml.child xml_arg0 "format") in
      let source =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "source") in
      let taskId =
        (Option.map ~f:TaskId.of_xml) (Xml.child xml_arg0 "taskId") in
      let graphId =
        (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "graphId") in
      make ?importOptions ?status ?roleArn ?parquetType ?format ?source
        ?taskId ?graphId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let importOptions =
        field_map json__ "importOptions" ImportOptions.of_json in
      let status = field_map json__ "status" ImportTaskStatus.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let parquetType = field_map json__ "parquetType" ParquetType.of_json in
      let format = field_map json__ "format" Format_.of_json in
      let source = field_map json__ "source" String_.of_json in
      let taskId = field_map json__ "taskId" TaskId.of_json in
      let graphId = field_map json__ "graphId" GraphId.of_json in
      make ?importOptions ?status ?roleArn ?parquetType ?format ?source
        ?taskId ?graphId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new Neptune Analytics graph and imports data into it, either from Amazon Simple Storage Service (S3) or from a Neptune database or a Neptune database snapshot. The data can be loaded from files in S3 that in either the Gremlin CSV format or the openCypher load format."]
module CreateGraphUsingImportTaskInput =
  struct
    type nonrec t =
      {
      graphName: GraphName.t
        [@ocaml.doc
          "A name for the new Neptune Analytics graph to be created. The name must contain from 1 to 63 letters, numbers, or hyphens, and its first character must be a letter. It cannot end with a hyphen or contain two consecutive hyphens. Only lowercase letters are allowed."];
      tags: TagMap.t option
        [@ocaml.doc
          "Adds metadata tags to the new graph. These tags can also be used with cost allocation reporting, or used in a Condition statement in an IAM policy."];
      publicConnectivity: Boolean.t option
        [@ocaml.doc
          "Specifies whether or not the graph can be reachable over the internet. All access to graphs is IAM authenticated. (true to enable, or false to disable)."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc
          "Specifies a KMS key to use to encrypt data imported into the new graph."];
      vectorSearchConfiguration: VectorSearchConfiguration.t option
        [@ocaml.doc
          "Specifies the number of dimensions for vector embeddings that will be loaded into the graph. The value is specified as dimension=value. Max = 65,535"];
      replicaCount: ReplicaCount.t option
        [@ocaml.doc
          "The number of replicas in other AZs to provision on the new graph after import. Default = 0, Min = 0, Max = 2. Additional charges equivalent to the m-NCUs selected for the graph apply for each replica."];
      deletionProtection: Boolean.t option
        [@ocaml.doc
          "Indicates whether or not to enable deletion protection on the graph. The graph can\226\128\153t be deleted when deletion protection is enabled. (true or false)."];
      importOptions: ImportOptions.t option
        [@ocaml.doc
          "Contains options for controlling the import process. For example, if the failOnError key is set to false, the import skips problem data and attempts to continue (whereas if set to true, the default, or if omitted, the import operation halts immediately when an error is encountered."];
      maxProvisionedMemory: ProvisionedMemory.t option
        [@ocaml.doc
          "The maximum provisioned memory-optimized Neptune Capacity Units (m-NCUs) to use for the graph. Default: 1024, or the approved upper limit for your account. If both the minimum and maximum values are specified, the final provisioned-memory will be chosen per the actual size of your imported data. If neither value is specified, 128 m-NCUs are used."];
      minProvisionedMemory: ProvisionedMemory.t option
        [@ocaml.doc
          "The minimum provisioned memory-optimized Neptune Capacity Units (m-NCUs) to use for the graph. Default: 16"];
      failOnError: Boolean.t option
        [@ocaml.doc
          "If set to true, the task halts when an import error is encountered. If set to false, the task skips the data that caused the error and continues if possible."];
      source: String_.t
        [@ocaml.doc
          "A URL identifying to the location of the data to be imported. This can be an Amazon S3 path, or can point to a Neptune database endpoint or snapshot."];
      format: Format_.t option
        [@ocaml.doc
          "Specifies the format of S3 data to be imported. Valid values are CSV, which identifies the Gremlin CSV format, OPEN_CYPHER, which identifies the openCypher load format, or ntriples, which identifies the RDF n-triples format."];
      parquetType: ParquetType.t option
        [@ocaml.doc "The parquet type of the import task."];
      blankNodeHandling: BlankNodeHandling.t option
        [@ocaml.doc
          "The method to handle blank nodes in the dataset. Currently, only convertToIri is supported, meaning blank nodes are converted to unique IRIs at load time. Must be provided when format is ntriples. For more information, see Handling RDF values."];
      roleArn: RoleArn.t
        [@ocaml.doc
          "The ARN of the IAM role that will allow access to the data that is to be imported."]}
    let context_ = "CreateGraphUsingImportTaskInput"
    let make ?tags =
      fun ?publicConnectivity ->
        fun ?kmsKeyIdentifier ->
          fun ?vectorSearchConfiguration ->
            fun ?replicaCount ->
              fun ?deletionProtection ->
                fun ?importOptions ->
                  fun ?maxProvisionedMemory ->
                    fun ?minProvisionedMemory ->
                      fun ?failOnError ->
                        fun ?format ->
                          fun ?parquetType ->
                            fun ?blankNodeHandling ->
                              fun ~graphName ->
                                fun ~source ->
                                  fun ~roleArn ->
                                    fun () ->
                                      {
                                        tags;
                                        publicConnectivity;
                                        kmsKeyIdentifier;
                                        vectorSearchConfiguration;
                                        replicaCount;
                                        deletionProtection;
                                        importOptions;
                                        maxProvisionedMemory;
                                        minProvisionedMemory;
                                        failOnError;
                                        format;
                                        parquetType;
                                        blankNodeHandling;
                                        graphName;
                                        source;
                                        roleArn
                                      }
    let to_value x =
      structure_to_value
        [("graphName", (Some (GraphName.to_value x.graphName)));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("publicConnectivity",
          (Option.map x.publicConnectivity ~f:Boolean.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value));
        ("vectorSearchConfiguration",
          (Option.map x.vectorSearchConfiguration
             ~f:VectorSearchConfiguration.to_value));
        ("replicaCount",
          (Option.map x.replicaCount ~f:ReplicaCount.to_value));
        ("deletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value));
        ("importOptions",
          (Option.map x.importOptions ~f:ImportOptions.to_value));
        ("maxProvisionedMemory",
          (Option.map x.maxProvisionedMemory ~f:ProvisionedMemory.to_value));
        ("minProvisionedMemory",
          (Option.map x.minProvisionedMemory ~f:ProvisionedMemory.to_value));
        ("failOnError", (Option.map x.failOnError ~f:Boolean.to_value));
        ("source", (Some (String_.to_value x.source)));
        ("format", (Option.map x.format ~f:Format_.to_value));
        ("parquetType", (Option.map x.parquetType ~f:ParquetType.to_value));
        ("blankNodeHandling",
          (Option.map x.blankNodeHandling ~f:BlankNodeHandling.to_value));
        ("roleArn", (Some (RoleArn.to_value x.roleArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleArn =
        RoleArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "roleArn") in
      let blankNodeHandling =
        (Option.map ~f:BlankNodeHandling.of_xml)
          (Xml.child xml_arg0 "blankNodeHandling") in
      let parquetType =
        (Option.map ~f:ParquetType.of_xml) (Xml.child xml_arg0 "parquetType") in
      let format =
        (Option.map ~f:Format_.of_xml) (Xml.child xml_arg0 "format") in
      let source =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "source") in
      let failOnError =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "failOnError") in
      let minProvisionedMemory =
        (Option.map ~f:ProvisionedMemory.of_xml)
          (Xml.child xml_arg0 "minProvisionedMemory") in
      let maxProvisionedMemory =
        (Option.map ~f:ProvisionedMemory.of_xml)
          (Xml.child xml_arg0 "maxProvisionedMemory") in
      let importOptions =
        (Option.map ~f:ImportOptions.of_xml)
          (Xml.child xml_arg0 "importOptions") in
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deletionProtection") in
      let replicaCount =
        (Option.map ~f:ReplicaCount.of_xml)
          (Xml.child xml_arg0 "replicaCount") in
      let vectorSearchConfiguration =
        (Option.map ~f:VectorSearchConfiguration.of_xml)
          (Xml.child xml_arg0 "vectorSearchConfiguration") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let publicConnectivity =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "publicConnectivity") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let graphName =
        GraphName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphName") in
      make ~roleArn ?blankNodeHandling ?parquetType ?format ~source
        ?failOnError ?minProvisionedMemory ?maxProvisionedMemory
        ?importOptions ?deletionProtection ?replicaCount
        ?vectorSearchConfiguration ?kmsKeyIdentifier ?publicConnectivity
        ?tags ~graphName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleArn = field_map_exn json__ "roleArn" RoleArn.of_json in
      let blankNodeHandling =
        field_map json__ "blankNodeHandling" BlankNodeHandling.of_json in
      let parquetType = field_map json__ "parquetType" ParquetType.of_json in
      let format = field_map json__ "format" Format_.of_json in
      let source = field_map_exn json__ "source" String_.of_json in
      let failOnError = field_map json__ "failOnError" Boolean.of_json in
      let minProvisionedMemory =
        field_map json__ "minProvisionedMemory" ProvisionedMemory.of_json in
      let maxProvisionedMemory =
        field_map json__ "maxProvisionedMemory" ProvisionedMemory.of_json in
      let importOptions =
        field_map json__ "importOptions" ImportOptions.of_json in
      let deletionProtection =
        field_map json__ "deletionProtection" Boolean.of_json in
      let replicaCount = field_map json__ "replicaCount" ReplicaCount.of_json in
      let vectorSearchConfiguration =
        field_map json__ "vectorSearchConfiguration"
          VectorSearchConfiguration.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let publicConnectivity =
        field_map json__ "publicConnectivity" Boolean.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let graphName = field_map_exn json__ "graphName" GraphName.of_json in
      make ~roleArn ?blankNodeHandling ?parquetType ?format ~source
        ?failOnError ?minProvisionedMemory ?maxProvisionedMemory
        ?importOptions ?deletionProtection ?replicaCount
        ?vectorSearchConfiguration ?kmsKeyIdentifier ?publicConnectivity
        ?tags ~graphName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new Neptune Analytics graph and imports data into it, either from Amazon Simple Storage Service (S3) or from a Neptune database or a Neptune database snapshot. The data can be loaded from files in S3 that in either the Gremlin CSV format or the openCypher load format."]
module CreateGraphSnapshotOutput =
  struct
    type nonrec t =
      {
      id: SnapshotId.t option [@ocaml.doc "The ID of the snapshot created."];
      name: SnapshotName.t option
        [@ocaml.doc "The name of the snapshot created."];
      arn: String_.t option [@ocaml.doc "The ARN of the snapshot created."];
      sourceGraphId: GraphId.t option
        [@ocaml.doc
          "The Id of the Neptune Analytics graph from which the snapshot is created."];
      snapshotCreateTime: Timestamp.t option
        [@ocaml.doc "The snapshot creation time"];
      status: SnapshotStatus.t option
        [@ocaml.doc "The current state of the snapshot."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc
          "The ID of the KMS key used to encrypt and decrypt graph data."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?sourceGraphId ->
            fun ?snapshotCreateTime ->
              fun ?status ->
                fun ?kmsKeyIdentifier ->
                  fun () ->
                    {
                      id;
                      name;
                      arn;
                      sourceGraphId;
                      snapshotCreateTime;
                      status;
                      kmsKeyIdentifier
                    }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:SnapshotId.to_value));
        ("name", (Option.map x.name ~f:SnapshotName.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("sourceGraphId", (Option.map x.sourceGraphId ~f:GraphId.to_value));
        ("snapshotCreateTime",
          (Option.map x.snapshotCreateTime ~f:Timestamp.to_value));
        ("status", (Option.map x.status ~f:SnapshotStatus.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let status =
        (Option.map ~f:SnapshotStatus.of_xml) (Xml.child xml_arg0 "status") in
      let snapshotCreateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "snapshotCreateTime") in
      let sourceGraphId =
        (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "sourceGraphId") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:SnapshotName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "id") in
      make ?kmsKeyIdentifier ?status ?snapshotCreateTime ?sourceGraphId ?arn
        ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let status = field_map json__ "status" SnapshotStatus.of_json in
      let snapshotCreateTime =
        field_map json__ "snapshotCreateTime" Timestamp.of_json in
      let sourceGraphId = field_map json__ "sourceGraphId" GraphId.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let name = field_map json__ "name" SnapshotName.of_json in
      let id = field_map json__ "id" SnapshotId.of_json in
      make ?kmsKeyIdentifier ?status ?snapshotCreateTime ?sourceGraphId ?arn
        ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a snapshot of the specific graph."]
module CreateGraphSnapshotInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      snapshotName: SnapshotName.t
        [@ocaml.doc
          "The snapshot name. For example: my-snapshot-1. The name must contain from 1 to 63 letters, numbers, or hyphens, and its first character must be a letter. It cannot end with a hyphen or contain two consecutive hyphens. Only lowercase letters are allowed."];
      tags: TagMap.t option
        [@ocaml.doc
          "Adds metadata tags to the new graph. These tags can also be used with cost allocation reporting, or used in a Condition statement in an IAM policy."]}
    let context_ = "CreateGraphSnapshotInput"
    let make ?tags =
      fun ~graphIdentifier ->
        fun ~snapshotName ->
          fun () -> { tags; graphIdentifier; snapshotName }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("snapshotName", (Some (SnapshotName.to_value x.snapshotName)));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let snapshotName =
        SnapshotName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "snapshotName") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ?tags ~snapshotName ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let snapshotName =
        field_map_exn json__ "snapshotName" SnapshotName.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ?tags ~snapshotName ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a snapshot of the specific graph."]
module CreateGraphOutput =
  struct
    type nonrec t =
      {
      id: GraphId.t option [@ocaml.doc "The ID of the graph."];
      name: GraphName.t option
        [@ocaml.doc
          "The graph name. For example: my-graph-1. The name must contain from 1 to 63 letters, numbers, or hyphens, and its first character must be a letter. It cannot end with a hyphen or contain two consecutive hyphens. Only lowercase letters are allowed."];
      arn: String_.t option [@ocaml.doc "The ARN of the graph."];
      status: GraphStatus.t option
        [@ocaml.doc "The current status of the graph."];
      statusReason: String_.t option
        [@ocaml.doc "The reason the status was given."];
      createTime: Timestamp.t option
        [@ocaml.doc "The time when the graph was created."];
      provisionedMemory: ProvisionedMemory.t option
        [@ocaml.doc
          "The provisioned memory-optimized Neptune Capacity Units (m-NCUs) to use for the graph. Min = 16"];
      endpoint: String_.t option [@ocaml.doc "The graph endpoint."];
      publicConnectivity: Boolean.t option
        [@ocaml.doc
          "Specifies whether or not the graph can be reachable over the internet. All access to graphs is IAM authenticated. If enabling public connectivity for the first time, there will be a delay while it is enabled."];
      vectorSearchConfiguration: VectorSearchConfiguration.t option
        [@ocaml.doc
          "The vector-search configuration for the graph, which specifies the vector dimension to use in the vector index, if any."];
      replicaCount: ReplicaCount.t option
        [@ocaml.doc
          "The number of replicas in other AZs. Default: If not specified, the default value is 1."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc
          "Specifies the KMS key used to encrypt data in the new graph."];
      sourceSnapshotId: SnapshotId.t option
        [@ocaml.doc "The ID of the source graph."];
      deletionProtection: Boolean.t option
        [@ocaml.doc
          "A value that indicates whether the graph has deletion protection enabled. The graph can't be deleted when deletion protection is enabled."];
      buildNumber: String_.t option
        [@ocaml.doc "The build number of the graph software."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?name ->
        fun ?arn ->
          fun ?status ->
            fun ?statusReason ->
              fun ?createTime ->
                fun ?provisionedMemory ->
                  fun ?endpoint ->
                    fun ?publicConnectivity ->
                      fun ?vectorSearchConfiguration ->
                        fun ?replicaCount ->
                          fun ?kmsKeyIdentifier ->
                            fun ?sourceSnapshotId ->
                              fun ?deletionProtection ->
                                fun ?buildNumber ->
                                  fun () ->
                                    {
                                      id;
                                      name;
                                      arn;
                                      status;
                                      statusReason;
                                      createTime;
                                      provisionedMemory;
                                      endpoint;
                                      publicConnectivity;
                                      vectorSearchConfiguration;
                                      replicaCount;
                                      kmsKeyIdentifier;
                                      sourceSnapshotId;
                                      deletionProtection;
                                      buildNumber
                                    }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:GraphId.to_value));
        ("name", (Option.map x.name ~f:GraphName.to_value));
        ("arn", (Option.map x.arn ~f:String_.to_value));
        ("status", (Option.map x.status ~f:GraphStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("createTime", (Option.map x.createTime ~f:Timestamp.to_value));
        ("provisionedMemory",
          (Option.map x.provisionedMemory ~f:ProvisionedMemory.to_value));
        ("endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("publicConnectivity",
          (Option.map x.publicConnectivity ~f:Boolean.to_value));
        ("vectorSearchConfiguration",
          (Option.map x.vectorSearchConfiguration
             ~f:VectorSearchConfiguration.to_value));
        ("replicaCount",
          (Option.map x.replicaCount ~f:ReplicaCount.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value));
        ("sourceSnapshotId",
          (Option.map x.sourceSnapshotId ~f:SnapshotId.to_value));
        ("deletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value));
        ("buildNumber", (Option.map x.buildNumber ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let buildNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "buildNumber") in
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deletionProtection") in
      let sourceSnapshotId =
        (Option.map ~f:SnapshotId.of_xml)
          (Xml.child xml_arg0 "sourceSnapshotId") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let replicaCount =
        (Option.map ~f:ReplicaCount.of_xml)
          (Xml.child xml_arg0 "replicaCount") in
      let vectorSearchConfiguration =
        (Option.map ~f:VectorSearchConfiguration.of_xml)
          (Xml.child xml_arg0 "vectorSearchConfiguration") in
      let publicConnectivity =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "publicConnectivity") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "endpoint") in
      let provisionedMemory =
        (Option.map ~f:ProvisionedMemory.of_xml)
          (Xml.child xml_arg0 "provisionedMemory") in
      let createTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createTime") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:GraphStatus.of_xml) (Xml.child xml_arg0 "status") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "arn") in
      let name = (Option.map ~f:GraphName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "id") in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let buildNumber = field_map json__ "buildNumber" String_.of_json in
      let deletionProtection =
        field_map json__ "deletionProtection" Boolean.of_json in
      let sourceSnapshotId =
        field_map json__ "sourceSnapshotId" SnapshotId.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let replicaCount = field_map json__ "replicaCount" ReplicaCount.of_json in
      let vectorSearchConfiguration =
        field_map json__ "vectorSearchConfiguration"
          VectorSearchConfiguration.of_json in
      let publicConnectivity =
        field_map json__ "publicConnectivity" Boolean.of_json in
      let endpoint = field_map json__ "endpoint" String_.of_json in
      let provisionedMemory =
        field_map json__ "provisionedMemory" ProvisionedMemory.of_json in
      let createTime = field_map json__ "createTime" Timestamp.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status = field_map json__ "status" GraphStatus.of_json in
      let arn = field_map json__ "arn" String_.of_json in
      let name = field_map json__ "name" GraphName.of_json in
      let id = field_map json__ "id" GraphId.of_json in
      make ?buildNumber ?deletionProtection ?sourceSnapshotId
        ?kmsKeyIdentifier ?replicaCount ?vectorSearchConfiguration
        ?publicConnectivity ?endpoint ?provisionedMemory ?createTime
        ?statusReason ?status ?arn ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new Neptune Analytics graph."]
module CreateGraphInput =
  struct
    type nonrec t =
      {
      graphName: GraphName.t
        [@ocaml.doc
          "A name for the new Neptune Analytics graph to be created. The name must contain from 1 to 63 letters, numbers, or hyphens, and its first character must be a letter. It cannot end with a hyphen or contain two consecutive hyphens. Only lowercase letters are allowed."];
      tags: TagMap.t option
        [@ocaml.doc
          "Adds metadata tags to the new graph. These tags can also be used with cost allocation reporting, or used in a Condition statement in an IAM policy."];
      publicConnectivity: Boolean.t option
        [@ocaml.doc
          "Specifies whether or not the graph can be reachable over the internet. All access to graphs is IAM authenticated. (true to enable, or false to disable."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc
          "Specifies a KMS key to use to encrypt data in the new graph."];
      vectorSearchConfiguration: VectorSearchConfiguration.t option
        [@ocaml.doc
          "Specifies the number of dimensions for vector embeddings that will be loaded into the graph. The value is specified as dimension=value. Max = 65,535"];
      replicaCount: ReplicaCount.t option
        [@ocaml.doc
          "The number of replicas in other AZs. Min =0, Max = 2, Default = 1. Additional charges equivalent to the m-NCUs selected for the graph apply for each replica."];
      deletionProtection: Boolean.t option
        [@ocaml.doc
          "Indicates whether or not to enable deletion protection on the graph. The graph can\226\128\153t be deleted when deletion protection is enabled. (true or false)."];
      provisionedMemory: ProvisionedMemory.t
        [@ocaml.doc
          "The provisioned memory-optimized Neptune Capacity Units (m-NCUs) to use for the graph. Min = 16"]}
    let context_ = "CreateGraphInput"
    let make ?tags =
      fun ?publicConnectivity ->
        fun ?kmsKeyIdentifier ->
          fun ?vectorSearchConfiguration ->
            fun ?replicaCount ->
              fun ?deletionProtection ->
                fun ~graphName ->
                  fun ~provisionedMemory ->
                    fun () ->
                      {
                        tags;
                        publicConnectivity;
                        kmsKeyIdentifier;
                        vectorSearchConfiguration;
                        replicaCount;
                        deletionProtection;
                        graphName;
                        provisionedMemory
                      }
    let to_value x =
      structure_to_value
        [("graphName", (Some (GraphName.to_value x.graphName)));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("publicConnectivity",
          (Option.map x.publicConnectivity ~f:Boolean.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value));
        ("vectorSearchConfiguration",
          (Option.map x.vectorSearchConfiguration
             ~f:VectorSearchConfiguration.to_value));
        ("replicaCount",
          (Option.map x.replicaCount ~f:ReplicaCount.to_value));
        ("deletionProtection",
          (Option.map x.deletionProtection ~f:Boolean.to_value));
        ("provisionedMemory",
          (Some (ProvisionedMemory.to_value x.provisionedMemory)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let provisionedMemory =
        ProvisionedMemory.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "provisionedMemory") in
      let deletionProtection =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "deletionProtection") in
      let replicaCount =
        (Option.map ~f:ReplicaCount.of_xml)
          (Xml.child xml_arg0 "replicaCount") in
      let vectorSearchConfiguration =
        (Option.map ~f:VectorSearchConfiguration.of_xml)
          (Xml.child xml_arg0 "vectorSearchConfiguration") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let publicConnectivity =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "publicConnectivity") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let graphName =
        GraphName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphName") in
      make ~provisionedMemory ?deletionProtection ?replicaCount
        ?vectorSearchConfiguration ?kmsKeyIdentifier ?publicConnectivity
        ?tags ~graphName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let provisionedMemory =
        field_map_exn json__ "provisionedMemory" ProvisionedMemory.of_json in
      let deletionProtection =
        field_map json__ "deletionProtection" Boolean.of_json in
      let replicaCount = field_map json__ "replicaCount" ReplicaCount.of_json in
      let vectorSearchConfiguration =
        field_map json__ "vectorSearchConfiguration"
          VectorSearchConfiguration.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let publicConnectivity =
        field_map json__ "publicConnectivity" Boolean.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let graphName = field_map_exn json__ "graphName" GraphName.of_json in
      make ~provisionedMemory ?deletionProtection ?replicaCount
        ?vectorSearchConfiguration ?kmsKeyIdentifier ?publicConnectivity
        ?tags ~graphName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new Neptune Analytics graph."]
module CancelQueryInput =
  struct
    type nonrec t =
      {
      graphIdentifier: GraphIdentifier.t
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      queryId: String_.t
        [@ocaml.doc "The unique identifier of the query to cancel."]}
    let context_ = "CancelQueryInput"
    let make ~graphIdentifier =
      fun ~queryId -> fun () -> { graphIdentifier; queryId }
    let to_value x =
      structure_to_value
        [("graphIdentifier",
           (Some (GraphIdentifier.to_value x.graphIdentifier)));
        ("queryId", (Some (String_.to_value x.queryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queryId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "queryId") in
      let graphIdentifier =
        GraphIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "graphIdentifier") in
      make ~queryId ~graphIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queryId = field_map_exn json__ "queryId" String_.of_json in
      let graphIdentifier =
        field_map_exn json__ "graphIdentifier" GraphIdentifier.of_json in
      make ~queryId ~graphIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Cancels a specified query."]
module CancelImportTaskOutput =
  struct
    type nonrec t =
      {
      graphId: GraphId.t option
        [@ocaml.doc "The unique identifier of the Neptune Analytics graph."];
      taskId: TaskId.t option
        [@ocaml.doc "The unique identifier of the import task."];
      source: String_.t option
        [@ocaml.doc
          "A URL identifying to the location of the data to be imported. This can be an Amazon S3 path, or can point to a Neptune database endpoint or snapshot."];
      format: Format_.t option
        [@ocaml.doc
          "Specifies the format of S3 data to be imported. Valid values are CSV, which identifies the Gremlin CSV format or OPENCYPHER, which identifies the openCypher load format."];
      parquetType: ParquetType.t option
        [@ocaml.doc "The parquet type of the cancelled import task."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM role that will allow access to the data that is to be imported."];
      status: ImportTaskStatus.t option
        [@ocaml.doc
          "Current status of the task. Status is CANCELLING when the import task is cancelled."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?graphId =
      fun ?taskId ->
        fun ?source ->
          fun ?format ->
            fun ?parquetType ->
              fun ?roleArn ->
                fun ?status ->
                  fun () ->
                    {
                      graphId;
                      taskId;
                      source;
                      format;
                      parquetType;
                      roleArn;
                      status
                    }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("graphId", (Option.map x.graphId ~f:GraphId.to_value));
        ("taskId", (Option.map x.taskId ~f:TaskId.to_value));
        ("source", (Option.map x.source ~f:String_.to_value));
        ("format", (Option.map x.format ~f:Format_.to_value));
        ("parquetType", (Option.map x.parquetType ~f:ParquetType.to_value));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("status", (Option.map x.status ~f:ImportTaskStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ImportTaskStatus.of_xml) (Xml.child xml_arg0 "status") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let parquetType =
        (Option.map ~f:ParquetType.of_xml) (Xml.child xml_arg0 "parquetType") in
      let format =
        (Option.map ~f:Format_.of_xml) (Xml.child xml_arg0 "format") in
      let source =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "source") in
      let taskId =
        (Option.map ~f:TaskId.of_xml) (Xml.child xml_arg0 "taskId") in
      let graphId =
        (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "graphId") in
      make ?status ?roleArn ?parquetType ?format ?source ?taskId ?graphId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" ImportTaskStatus.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let parquetType = field_map json__ "parquetType" ParquetType.of_json in
      let format = field_map json__ "format" Format_.of_json in
      let source = field_map json__ "source" String_.of_json in
      let taskId = field_map json__ "taskId" TaskId.of_json in
      let graphId = field_map json__ "graphId" GraphId.of_json in
      make ?status ?roleArn ?parquetType ?format ?source ?taskId ?graphId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified import task."]
module CancelImportTaskInput =
  struct
    type nonrec t =
      {
      taskIdentifier: TaskId.t
        [@ocaml.doc "The unique identifier of the import task."]}
    let context_ = "CancelImportTaskInput"
    let make ~taskIdentifier = fun () -> { taskIdentifier }
    let to_value x =
      structure_to_value
        [("taskIdentifier", (Some (TaskId.to_value x.taskIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taskIdentifier =
        TaskId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "taskIdentifier") in
      make ~taskIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taskIdentifier =
        field_map_exn json__ "taskIdentifier" TaskId.of_json in
      make ~taskIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified import task."]
module CancelExportTaskOutput =
  struct
    type nonrec t =
      {
      graphId: GraphId.t option
        [@ocaml.doc
          "The source graph identifier of the cancelled export task."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM role that will allow the exporting of data to the destination."];
      taskId: ExportTaskId.t option
        [@ocaml.doc "The unique identifier of the export task."];
      status: ExportTaskStatus.t option
        [@ocaml.doc
          "The current status of the export task. The status is CANCELLING when the export task is cancelled."];
      format: ExportFormat.t option
        [@ocaml.doc "The format of the cancelled export task."];
      destination: CancelExportTaskOutputDestinationString.t option
        [@ocaml.doc
          "The Amazon S3 URI of the cancelled export task where data will be exported to."];
      kmsKeyIdentifier: KmsKeyArn.t option
        [@ocaml.doc "The KMS key identifier of the cancelled export task."];
      parquetType: ParquetType.t option
        [@ocaml.doc "The parquet type of the cancelled export task."];
      statusReason: String_.t option
        [@ocaml.doc "The reason that the export task has this status value."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?graphId =
      fun ?roleArn ->
        fun ?taskId ->
          fun ?status ->
            fun ?format ->
              fun ?destination ->
                fun ?kmsKeyIdentifier ->
                  fun ?parquetType ->
                    fun ?statusReason ->
                      fun () ->
                        {
                          graphId;
                          roleArn;
                          taskId;
                          status;
                          format;
                          destination;
                          kmsKeyIdentifier;
                          parquetType;
                          statusReason
                        }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("graphId", (Option.map x.graphId ~f:GraphId.to_value));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("taskId", (Option.map x.taskId ~f:ExportTaskId.to_value));
        ("status", (Option.map x.status ~f:ExportTaskStatus.to_value));
        ("format", (Option.map x.format ~f:ExportFormat.to_value));
        ("destination",
          (Option.map x.destination
             ~f:CancelExportTaskOutputDestinationString.to_value));
        ("kmsKeyIdentifier",
          (Option.map x.kmsKeyIdentifier ~f:KmsKeyArn.to_value));
        ("parquetType", (Option.map x.parquetType ~f:ParquetType.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let parquetType =
        (Option.map ~f:ParquetType.of_xml) (Xml.child xml_arg0 "parquetType") in
      let kmsKeyIdentifier =
        (Option.map ~f:KmsKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsKeyIdentifier") in
      let destination =
        (Option.map ~f:CancelExportTaskOutputDestinationString.of_xml)
          (Xml.child xml_arg0 "destination") in
      let format =
        (Option.map ~f:ExportFormat.of_xml) (Xml.child xml_arg0 "format") in
      let status =
        (Option.map ~f:ExportTaskStatus.of_xml) (Xml.child xml_arg0 "status") in
      let taskId =
        (Option.map ~f:ExportTaskId.of_xml) (Xml.child xml_arg0 "taskId") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let graphId =
        (Option.map ~f:GraphId.of_xml) (Xml.child xml_arg0 "graphId") in
      make ?statusReason ?parquetType ?kmsKeyIdentifier ?destination ?format
        ?status ?taskId ?roleArn ?graphId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let parquetType = field_map json__ "parquetType" ParquetType.of_json in
      let kmsKeyIdentifier =
        field_map json__ "kmsKeyIdentifier" KmsKeyArn.of_json in
      let destination =
        field_map json__ "destination"
          CancelExportTaskOutputDestinationString.of_json in
      let format = field_map json__ "format" ExportFormat.of_json in
      let status = field_map json__ "status" ExportTaskStatus.of_json in
      let taskId = field_map json__ "taskId" ExportTaskId.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let graphId = field_map json__ "graphId" GraphId.of_json in
      make ?statusReason ?parquetType ?kmsKeyIdentifier ?destination ?format
        ?status ?taskId ?roleArn ?graphId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Cancel the specified export task."]
module CancelExportTaskInput =
  struct
    type nonrec t =
      {
      taskIdentifier: ExportTaskId.t
        [@ocaml.doc "The unique identifier of the export task."]}
    let context_ = "CancelExportTaskInput"
    let make ~taskIdentifier = fun () -> { taskIdentifier }
    let to_value x =
      structure_to_value
        [("taskIdentifier", (Some (ExportTaskId.to_value x.taskIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taskIdentifier =
        ExportTaskId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "taskIdentifier") in
      make ~taskIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taskIdentifier =
        field_map_exn json__ "taskIdentifier" ExportTaskId.of_json in
      make ~taskIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Cancel the specified export task."]