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.clouddirectory
let apiVersion = "2017-01-11"
let endpointPrefix = "clouddirectory"
let serviceFullName = "Amazon CloudDirectory"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
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 Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    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:"Arn" j
    let to_json = simple_to_json to_value
  end
module AttributeName =
  struct
    type nonrec t = string
    let context_ = "AttributeName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:230) >>=
                  (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:"AttributeName" j
    let to_json = simple_to_json to_value
  end
module FacetName =
  struct
    type nonrec t = string
    let context_ = "FacetName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (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:"FacetName" j
    let to_json = simple_to_json to_value
  end
module BinaryAttributeValue =
  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 BooleanAttributeValue =
  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 DatetimeAttributeValue =
  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 NumberAttributeValue =
  struct
    type nonrec t = string
    let context_ = "NumberAttributeValue"
    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:"NumberAttributeValue" j
    let to_json = simple_to_json to_value
  end
module StringAttributeValue =
  struct
    type nonrec t = string
    let context_ = "StringAttributeValue"
    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:"StringAttributeValue" j
    let to_json = simple_to_json to_value
  end
module AttributeKey =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the schema that contains the facet and attribute."];
      facetName: FacetName.t
        [@ocaml.doc
          "The name of the facet that the attribute exists within."];
      name: AttributeName.t [@ocaml.doc "The name of the attribute."]}
    let context_ = "AttributeKey"
    let make ~schemaArn =
      fun ~facetName -> fun ~name -> fun () -> { schemaArn; facetName; name }
    let to_value x =
      structure_to_value
        [("SchemaArn", (Some (Arn.to_value x.schemaArn)));
        ("FacetName", (Some (FacetName.to_value x.facetName)));
        ("Name", (Some (AttributeName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        AttributeName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let facetName =
        FacetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FacetName") in
      let schemaArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SchemaArn") in
      make ~name ~facetName ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" AttributeName.of_json in
      let facetName = field_map_exn json__ "FacetName" FacetName.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ~name ~facetName ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A unique identifier for an attribute."]
module TypedAttributeValue =
  struct
    type nonrec t =
      {
      stringValue: StringAttributeValue.t option
        [@ocaml.doc "A string data value."];
      binaryValue: BinaryAttributeValue.t option
        [@ocaml.doc "A binary data value."];
      booleanValue: BooleanAttributeValue.t option
        [@ocaml.doc "A Boolean data value."];
      numberValue: NumberAttributeValue.t option
        [@ocaml.doc "A number data value."];
      datetimeValue: DatetimeAttributeValue.t option
        [@ocaml.doc "A date and time value."]}
    let make ?stringValue =
      fun ?binaryValue ->
        fun ?booleanValue ->
          fun ?numberValue ->
            fun ?datetimeValue ->
              fun () ->
                {
                  stringValue;
                  binaryValue;
                  booleanValue;
                  numberValue;
                  datetimeValue
                }
    let to_value x =
      structure_to_value
        [("StringValue",
           (Option.map x.stringValue ~f:StringAttributeValue.to_value));
        ("BinaryValue",
          (Option.map x.binaryValue ~f:BinaryAttributeValue.to_value));
        ("BooleanValue",
          (Option.map x.booleanValue ~f:BooleanAttributeValue.to_value));
        ("NumberValue",
          (Option.map x.numberValue ~f:NumberAttributeValue.to_value));
        ("DatetimeValue",
          (Option.map x.datetimeValue ~f:DatetimeAttributeValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datetimeValue =
        (Option.map ~f:DatetimeAttributeValue.of_xml)
          (Xml.child xml_arg0 "DatetimeValue") in
      let numberValue =
        (Option.map ~f:NumberAttributeValue.of_xml)
          (Xml.child xml_arg0 "NumberValue") in
      let booleanValue =
        (Option.map ~f:BooleanAttributeValue.of_xml)
          (Xml.child xml_arg0 "BooleanValue") in
      let binaryValue =
        (Option.map ~f:BinaryAttributeValue.of_xml)
          (Xml.child xml_arg0 "BinaryValue") in
      let stringValue =
        (Option.map ~f:StringAttributeValue.of_xml)
          (Xml.child xml_arg0 "StringValue") in
      make ?datetimeValue ?numberValue ?booleanValue ?binaryValue
        ?stringValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datetimeValue =
        field_map json__ "DatetimeValue" DatetimeAttributeValue.of_json in
      let numberValue =
        field_map json__ "NumberValue" NumberAttributeValue.of_json in
      let booleanValue =
        field_map json__ "BooleanValue" BooleanAttributeValue.of_json in
      let binaryValue =
        field_map json__ "BinaryValue" BinaryAttributeValue.of_json in
      let stringValue =
        field_map json__ "StringValue" StringAttributeValue.of_json in
      make ?datetimeValue ?numberValue ?booleanValue ?binaryValue
        ?stringValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the data for a typed attribute. You can set one, and only one, of the elements. Each attribute in an item is a name-value pair. Attributes have a single value."]
module ObjectIdentifier =
  struct
    type nonrec t = string
    let context_ = "ObjectIdentifier"
    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:"ObjectIdentifier" j
    let to_json = simple_to_json to_value
  end
module PolicyType =
  struct
    type nonrec t = string
    let context_ = "PolicyType"
    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:"PolicyType" j
    let to_json = simple_to_json to_value
  end
module RuleParameterKey =
  struct
    type nonrec t = string
    let context_ = "RuleParameterKey"
    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:"RuleParameterKey" j
    let to_json = simple_to_json to_value
  end
module RuleParameterValue =
  struct
    type nonrec t = string
    let context_ = "RuleParameterValue"
    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:"RuleParameterValue" j
    let to_json = simple_to_json to_value
  end
module AttributeKeyAndValue =
  struct
    type nonrec t =
      {
      key: AttributeKey.t [@ocaml.doc "The key of the attribute."];
      value: TypedAttributeValue.t [@ocaml.doc "The value of the attribute."]}
    let context_ = "AttributeKeyAndValue"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (AttributeKey.to_value x.key)));
        ("Value", (Some (TypedAttributeValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TypedAttributeValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        AttributeKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TypedAttributeValue.of_json in
      let key = field_map_exn json__ "Key" AttributeKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The combination of an attribute key and an attribute value."]
module AttributeNameAndValue =
  struct
    type nonrec t =
      {
      attributeName: AttributeName.t
        [@ocaml.doc "The attribute name of the typed link."];
      value: TypedAttributeValue.t
        [@ocaml.doc "The value for the typed link."]}
    let context_ = "AttributeNameAndValue"
    let make ~attributeName =
      fun ~value -> fun () -> { attributeName; value }
    let to_value x =
      structure_to_value
        [("AttributeName", (Some (AttributeName.to_value x.attributeName)));
        ("Value", (Some (TypedAttributeValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TypedAttributeValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let attributeName =
        AttributeName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttributeName") in
      make ~value ~attributeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TypedAttributeValue.of_json in
      let attributeName =
        field_map_exn json__ "AttributeName" AttributeName.of_json in
      make ~value ~attributeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifies the attribute name and value for a typed link."]
module SelectorObjectReference =
  struct
    type nonrec t = string
    let context_ = "SelectorObjectReference"
    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:"SelectorObjectReference" j
    let to_json = simple_to_json to_value
  end
module TypedLinkName =
  struct
    type nonrec t = string
    let context_ = "TypedLinkName"
    let make i =
      let open Result in
        ok_or_failwith (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:"TypedLinkName" j
    let to_json = simple_to_json to_value
  end
module PolicyAttachment =
  struct
    type nonrec t =
      {
      policyId: ObjectIdentifier.t option
        [@ocaml.doc "The ID of PolicyAttachment."];
      objectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc
          "The ObjectIdentifier that is associated with PolicyAttachment."];
      policyType: PolicyType.t option
        [@ocaml.doc
          "The type of policy that can be associated with PolicyAttachment."]}
    let make ?policyId =
      fun ?objectIdentifier ->
        fun ?policyType ->
          fun () -> { policyId; objectIdentifier; policyType }
    let to_value x =
      structure_to_value
        [("PolicyId", (Option.map x.policyId ~f:ObjectIdentifier.to_value));
        ("ObjectIdentifier",
          (Option.map x.objectIdentifier ~f:ObjectIdentifier.to_value));
        ("PolicyType", (Option.map x.policyType ~f:PolicyType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyType =
        (Option.map ~f:PolicyType.of_xml) (Xml.child xml_arg0 "PolicyType") in
      let objectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifier") in
      let policyId =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "PolicyId") in
      make ?policyType ?objectIdentifier ?policyId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyType = field_map json__ "PolicyType" PolicyType.of_json in
      let objectIdentifier =
        field_map json__ "ObjectIdentifier" ObjectIdentifier.of_json in
      let policyId = field_map json__ "PolicyId" ObjectIdentifier.of_json in
      make ?policyType ?objectIdentifier ?policyId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the PolicyType, PolicyId, and the ObjectIdentifier to which it is attached. For more information, see Policies."]
module RuleParameterMap =
  struct
    type nonrec t = (RuleParameterKey.t * RuleParameterValue.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 ->
                            ((RuleParameterKey.of_string chopped),
                              (RuleParameterValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (RuleParameterKey.to_value x) |>
                    (fun x ->
                       (RuleParameterValue.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:RuleParameterKey.of_string
        ~of_json:RuleParameterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleType =
  struct
    type nonrec t =
      | BINARY_LENGTH 
      | NUMBER_COMPARISON 
      | STRING_FROM_SET 
      | STRING_LENGTH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BINARY_LENGTH -> "BINARY_LENGTH"
      | NUMBER_COMPARISON -> "NUMBER_COMPARISON"
      | STRING_FROM_SET -> "STRING_FROM_SET"
      | STRING_LENGTH -> "STRING_LENGTH"
      | Non_static_id s -> s
    let of_string =
      function
      | "BINARY_LENGTH" -> BINARY_LENGTH
      | "NUMBER_COMPARISON" -> NUMBER_COMPARISON
      | "STRING_FROM_SET" -> STRING_FROM_SET
      | "STRING_LENGTH" -> STRING_LENGTH
      | 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 RuleType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleType" j)
    let to_json = simple_to_json to_value
  end
module UpdateActionType =
  struct
    type nonrec t =
      | CREATE_OR_UPDATE 
      | DELETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_OR_UPDATE -> "CREATE_OR_UPDATE"
      | DELETE -> "DELETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_OR_UPDATE" -> CREATE_OR_UPDATE
      | "DELETE" -> DELETE
      | 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 UpdateActionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UpdateActionType" j)
    let to_json = simple_to_json to_value
  end
module AttributeKeyAndValueList =
  struct
    type nonrec t = AttributeKeyAndValue.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:AttributeKeyAndValue.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:AttributeKeyAndValue.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeKeyAndValueList"
        ~of_json:AttributeKeyAndValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module AttributeNameAndValueList =
  struct
    type nonrec t = AttributeNameAndValue.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:AttributeNameAndValue.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:AttributeNameAndValue.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeNameAndValueList"
        ~of_json:AttributeNameAndValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ObjectReference =
  struct
    type nonrec t =
      {
      selector: SelectorObjectReference.t option
        [@ocaml.doc
          "A path selector supports easy selection of an object by the parent/child links leading to it from the directory root. Use the link names from each parent/child link to construct the path. Path selectors start with a slash (/) and link names are separated by slashes. For more information about paths, see Access Objects. You can identify an object in one of the following ways: $ObjectIdentifier - An object identifier is an opaque string provided by Amazon Cloud Directory. When creating objects, the system will provide you with the identifier of the created object. An object\226\128\153s identifier is immutable and no two objects will ever share the same object identifier. To identify an object with ObjectIdentifier, the ObjectIdentifier must be wrapped in double quotes. /some/path - Identifies the object based on path #SomeBatchReference - Identifies the object in a batch call"]}
    let make ?selector = fun () -> { selector }
    let to_value x =
      structure_to_value
        [("Selector",
           (Option.map x.selector ~f:SelectorObjectReference.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let selector =
        (Option.map ~f:SelectorObjectReference.of_xml)
          (Xml.child xml_arg0 "Selector") in
      make ?selector ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let selector =
        field_map json__ "Selector" SelectorObjectReference.of_json in
      make ?selector ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The reference that identifies an object."]
module TypedLinkSchemaAndFacetName =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the schema. For more information, see arns."];
      typedLinkName: TypedLinkName.t
        [@ocaml.doc "The unique name of the typed link facet."]}
    let context_ = "TypedLinkSchemaAndFacetName"
    let make ~schemaArn =
      fun ~typedLinkName -> fun () -> { schemaArn; typedLinkName }
    let to_value x =
      structure_to_value
        [("SchemaArn", (Some (Arn.to_value x.schemaArn)));
        ("TypedLinkName", (Some (TypedLinkName.to_value x.typedLinkName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typedLinkName =
        TypedLinkName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TypedLinkName") in
      let schemaArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SchemaArn") in
      make ~typedLinkName ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typedLinkName =
        field_map_exn json__ "TypedLinkName" TypedLinkName.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ~typedLinkName ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifies the schema Amazon Resource Name (ARN) and facet name for the typed link."]
module ObjectIdentifierList =
  struct
    type nonrec t = ObjectIdentifier.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:ObjectIdentifier.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:ObjectIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"ObjectIdentifierList"
        ~of_json:ObjectIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module PathString =
  struct
    type nonrec t = string
    let context_ = "PathString"
    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:"PathString" j
    let to_json = simple_to_json to_value
  end
module LinkName =
  struct
    type nonrec t = string
    let context_ = "LinkName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[^\\/\\[\\]\\(\\):\\{\\}#@!?\\s\\\\;]+")));
        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:"LinkName" j
    let to_json = simple_to_json to_value
  end
module PolicyAttachmentList =
  struct
    type nonrec t = PolicyAttachment.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:PolicyAttachment.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:PolicyAttachment.of_xml)
    let of_json j =
      list_of_json ~kind:"PolicyAttachmentList"
        ~of_json:PolicyAttachment.of_json j
    let to_json v = composed_to_json to_value v
  end
module RangeMode =
  struct
    type nonrec t =
      | FIRST 
      | LAST 
      | LAST_BEFORE_MISSING_VALUES 
      | INCLUSIVE 
      | EXCLUSIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FIRST -> "FIRST"
      | LAST -> "LAST"
      | LAST_BEFORE_MISSING_VALUES -> "LAST_BEFORE_MISSING_VALUES"
      | INCLUSIVE -> "INCLUSIVE"
      | EXCLUSIVE -> "EXCLUSIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "FIRST" -> FIRST
      | "LAST" -> LAST
      | "LAST_BEFORE_MISSING_VALUES" -> LAST_BEFORE_MISSING_VALUES
      | "INCLUSIVE" -> INCLUSIVE
      | "EXCLUSIVE" -> EXCLUSIVE
      | 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 RangeMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RangeMode" j)
    let to_json = simple_to_json to_value
  end
module Rule =
  struct
    type nonrec t =
      {
      type_: RuleType.t option
        [@ocaml.doc "The type of attribute validation rule."];
      parameters: RuleParameterMap.t option
        [@ocaml.doc
          "The minimum and maximum parameters that are associated with the rule."]}
    let make ?type_ = fun ?parameters -> fun () -> { type_; parameters }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:RuleType.to_value));
        ("Parameters",
          (Option.map x.parameters ~f:RuleParameterMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parameters =
        (Option.map ~f:RuleParameterMap.of_xml)
          (Xml.child xml_arg0 "Parameters") in
      let type_ = (Option.map ~f:RuleType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?parameters ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parameters = field_map json__ "Parameters" RuleParameterMap.of_json in
      let type_ = field_map json__ "Type" RuleType.of_json in
      make ?parameters ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains an Amazon Resource Name (ARN) and parameters that are associated with the rule."]
module RuleKey =
  struct
    type nonrec t = string
    let context_ = "RuleKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (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:"RuleKey" j
    let to_json = simple_to_json to_value
  end
module LinkAttributeAction =
  struct
    type nonrec t =
      {
      attributeActionType: UpdateActionType.t option
        [@ocaml.doc "A type that can be either UPDATE_OR_CREATE or DELETE."];
      attributeUpdateValue: TypedAttributeValue.t option
        [@ocaml.doc "The value that you want to update to."]}
    let make ?attributeActionType =
      fun ?attributeUpdateValue ->
        fun () -> { attributeActionType; attributeUpdateValue }
    let to_value x =
      structure_to_value
        [("AttributeActionType",
           (Option.map x.attributeActionType ~f:UpdateActionType.to_value));
        ("AttributeUpdateValue",
          (Option.map x.attributeUpdateValue ~f:TypedAttributeValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeUpdateValue =
        (Option.map ~f:TypedAttributeValue.of_xml)
          (Xml.child xml_arg0 "AttributeUpdateValue") in
      let attributeActionType =
        (Option.map ~f:UpdateActionType.of_xml)
          (Xml.child xml_arg0 "AttributeActionType") in
      make ?attributeUpdateValue ?attributeActionType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeUpdateValue =
        field_map json__ "AttributeUpdateValue" TypedAttributeValue.of_json in
      let attributeActionType =
        field_map json__ "AttributeActionType" UpdateActionType.of_json in
      make ?attributeUpdateValue ?attributeActionType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The action to take on a typed link attribute value. Updates are only supported for attributes which don\226\128\153t contribute to link identity."]
module ObjectAttributeAction =
  struct
    type nonrec t =
      {
      objectAttributeActionType: UpdateActionType.t option
        [@ocaml.doc "A type that can be either Update or Delete."];
      objectAttributeUpdateValue: TypedAttributeValue.t option
        [@ocaml.doc "The value that you want to update to."]}
    let make ?objectAttributeActionType =
      fun ?objectAttributeUpdateValue ->
        fun () -> { objectAttributeActionType; objectAttributeUpdateValue }
    let to_value x =
      structure_to_value
        [("ObjectAttributeActionType",
           (Option.map x.objectAttributeActionType
              ~f:UpdateActionType.to_value));
        ("ObjectAttributeUpdateValue",
          (Option.map x.objectAttributeUpdateValue
             ~f:TypedAttributeValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectAttributeUpdateValue =
        (Option.map ~f:TypedAttributeValue.of_xml)
          (Xml.child xml_arg0 "ObjectAttributeUpdateValue") in
      let objectAttributeActionType =
        (Option.map ~f:UpdateActionType.of_xml)
          (Xml.child xml_arg0 "ObjectAttributeActionType") in
      make ?objectAttributeUpdateValue ?objectAttributeActionType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectAttributeUpdateValue =
        field_map json__ "ObjectAttributeUpdateValue"
          TypedAttributeValue.of_json in
      let objectAttributeActionType =
        field_map json__ "ObjectAttributeActionType" UpdateActionType.of_json in
      make ?objectAttributeUpdateValue ?objectAttributeActionType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The action to take on the object attribute."]
module SchemaFacet =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t option
        [@ocaml.doc
          "The ARN of the schema that contains the facet with no minor component. See arns and In-Place Schema Upgrade for a description of when to provide minor versions. If this value is set, FacetName must also be set."];
      facetName: FacetName.t option
        [@ocaml.doc
          "The name of the facet. If this value is set, SchemaArn must also be set."]}
    let make ?schemaArn =
      fun ?facetName -> fun () -> { schemaArn; facetName }
    let to_value x =
      structure_to_value
        [("SchemaArn", (Option.map x.schemaArn ~f:Arn.to_value));
        ("FacetName", (Option.map x.facetName ~f:FacetName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let facetName =
        (Option.map ~f:FacetName.of_xml) (Xml.child xml_arg0 "FacetName") in
      let schemaArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      make ?facetName ?schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let facetName = field_map json__ "FacetName" FacetName.of_json in
      let schemaArn = field_map json__ "SchemaArn" Arn.of_json in
      make ?facetName ?schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A facet."]
module IndexAttachment =
  struct
    type nonrec t =
      {
      indexedAttributes: AttributeKeyAndValueList.t option
        [@ocaml.doc "The indexed attribute values."];
      objectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc
          "In response to ListIndex, the ObjectIdentifier of the object attached to the index. In response to ListAttachedIndices, the ObjectIdentifier of the index attached to the object. This field will always contain the ObjectIdentifier of the object on the opposite side of the attachment specified in the query."]}
    let make ?indexedAttributes =
      fun ?objectIdentifier ->
        fun () -> { indexedAttributes; objectIdentifier }
    let to_value x =
      structure_to_value
        [("IndexedAttributes",
           (Option.map x.indexedAttributes
              ~f:AttributeKeyAndValueList.to_value));
        ("ObjectIdentifier",
          (Option.map x.objectIdentifier ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifier") in
      let indexedAttributes =
        (Option.map ~f:AttributeKeyAndValueList.of_xml)
          (Xml.child xml_arg0 "IndexedAttributes") in
      make ?objectIdentifier ?indexedAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectIdentifier =
        field_map json__ "ObjectIdentifier" ObjectIdentifier.of_json in
      let indexedAttributes =
        field_map json__ "IndexedAttributes" AttributeKeyAndValueList.of_json in
      make ?objectIdentifier ?indexedAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents an index and an attached object."]
module TypedLinkSpecifier =
  struct
    type nonrec t =
      {
      typedLinkFacet: TypedLinkSchemaAndFacetName.t
        [@ocaml.doc
          "Identifies the typed link facet that is associated with the typed link."];
      sourceObjectReference: ObjectReference.t
        [@ocaml.doc
          "Identifies the source object that the typed link will attach to."];
      targetObjectReference: ObjectReference.t
        [@ocaml.doc
          "Identifies the target object that the typed link will attach to."];
      identityAttributeValues: AttributeNameAndValueList.t
        [@ocaml.doc "Identifies the attribute value to update."]}
    let context_ = "TypedLinkSpecifier"
    let make ~typedLinkFacet =
      fun ~sourceObjectReference ->
        fun ~targetObjectReference ->
          fun ~identityAttributeValues ->
            fun () ->
              {
                typedLinkFacet;
                sourceObjectReference;
                targetObjectReference;
                identityAttributeValues
              }
    let to_value x =
      structure_to_value
        [("TypedLinkFacet",
           (Some (TypedLinkSchemaAndFacetName.to_value x.typedLinkFacet)));
        ("SourceObjectReference",
          (Some (ObjectReference.to_value x.sourceObjectReference)));
        ("TargetObjectReference",
          (Some (ObjectReference.to_value x.targetObjectReference)));
        ("IdentityAttributeValues",
          (Some
             (AttributeNameAndValueList.to_value x.identityAttributeValues)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityAttributeValues =
        AttributeNameAndValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityAttributeValues") in
      let targetObjectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetObjectReference") in
      let sourceObjectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceObjectReference") in
      let typedLinkFacet =
        TypedLinkSchemaAndFacetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TypedLinkFacet") in
      make ~identityAttributeValues ~targetObjectReference
        ~sourceObjectReference ~typedLinkFacet ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityAttributeValues =
        field_map_exn json__ "IdentityAttributeValues"
          AttributeNameAndValueList.of_json in
      let targetObjectReference =
        field_map_exn json__ "TargetObjectReference" ObjectReference.of_json in
      let sourceObjectReference =
        field_map_exn json__ "SourceObjectReference" ObjectReference.of_json in
      let typedLinkFacet =
        field_map_exn json__ "TypedLinkFacet"
          TypedLinkSchemaAndFacetName.of_json in
      make ~identityAttributeValues ~targetObjectReference
        ~sourceObjectReference ~typedLinkFacet ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains all the information that is used to uniquely identify a typed link. The parameters discussed in this topic are used to uniquely specify the typed link being operated on. The AttachTypedLink API returns a typed link specifier while the DetachTypedLink API accepts one as input. Similarly, the ListIncomingTypedLinks and ListOutgoingTypedLinks API operations provide typed link specifiers as output. You can also construct a typed link specifier from scratch."]
module PathToObjectIdentifiers =
  struct
    type nonrec t =
      {
      path: PathString.t option
        [@ocaml.doc
          "The path that is used to identify the object starting from directory root."];
      objectIdentifiers: ObjectIdentifierList.t option
        [@ocaml.doc
          "Lists ObjectIdentifiers starting from directory root to the object in the request."]}
    let make ?path =
      fun ?objectIdentifiers -> fun () -> { path; objectIdentifiers }
    let to_value x =
      structure_to_value
        [("Path", (Option.map x.path ~f:PathString.to_value));
        ("ObjectIdentifiers",
          (Option.map x.objectIdentifiers ~f:ObjectIdentifierList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectIdentifiers =
        (Option.map ~f:ObjectIdentifierList.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifiers") in
      let path =
        (Option.map ~f:PathString.of_xml) (Xml.child xml_arg0 "Path") in
      make ?objectIdentifiers ?path ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectIdentifiers =
        field_map json__ "ObjectIdentifiers" ObjectIdentifierList.of_json in
      let path = field_map json__ "Path" PathString.of_json in
      make ?objectIdentifiers ?path ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the path to the ObjectIdentifiers that is associated with the directory."]
module ObjectIdentifierAndLinkNameTuple =
  struct
    type nonrec t =
      {
      objectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc "The ID that is associated with the object."];
      linkName: LinkName.t option
        [@ocaml.doc
          "The name of the link between the parent and the child object."]}
    let make ?objectIdentifier =
      fun ?linkName -> fun () -> { objectIdentifier; linkName }
    let to_value x =
      structure_to_value
        [("ObjectIdentifier",
           (Option.map x.objectIdentifier ~f:ObjectIdentifier.to_value));
        ("LinkName", (Option.map x.linkName ~f:LinkName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkName =
        (Option.map ~f:LinkName.of_xml) (Xml.child xml_arg0 "LinkName") in
      let objectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifier") in
      make ?linkName ?objectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkName = field_map json__ "LinkName" LinkName.of_json in
      let objectIdentifier =
        field_map json__ "ObjectIdentifier" ObjectIdentifier.of_json in
      make ?linkName ?objectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A pair of ObjectIdentifier and LinkName."]
module PolicyToPath =
  struct
    type nonrec t =
      {
      path: PathString.t option
        [@ocaml.doc "The path that is referenced from the root."];
      policies: PolicyAttachmentList.t option
        [@ocaml.doc "List of policy objects."]}
    let make ?path = fun ?policies -> fun () -> { path; policies }
    let to_value x =
      structure_to_value
        [("Path", (Option.map x.path ~f:PathString.to_value));
        ("Policies",
          (Option.map x.policies ~f:PolicyAttachmentList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policies =
        (Option.map ~f:PolicyAttachmentList.of_xml)
          (Xml.child xml_arg0 "Policies") in
      let path =
        (Option.map ~f:PathString.of_xml) (Xml.child xml_arg0 "Path") in
      make ?policies ?path ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policies = field_map json__ "Policies" PolicyAttachmentList.of_json in
      let path = field_map json__ "Path" PathString.of_json in
      make ?policies ?path ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Used when a regular object exists in a Directory and you want to find all of the policies that are associated with that object and the parent to that object."]
module TypedAttributeValueRange =
  struct
    type nonrec t =
      {
      startMode: RangeMode.t
        [@ocaml.doc "The inclusive or exclusive range start."];
      startValue: TypedAttributeValue.t option
        [@ocaml.doc "The value to start the range at."];
      endMode: RangeMode.t
        [@ocaml.doc "The inclusive or exclusive range end."];
      endValue: TypedAttributeValue.t option
        [@ocaml.doc "The attribute value to terminate the range at."]}
    let context_ = "TypedAttributeValueRange"
    let make ?startValue =
      fun ?endValue ->
        fun ~startMode ->
          fun ~endMode ->
            fun () -> { startValue; endValue; startMode; endMode }
    let to_value x =
      structure_to_value
        [("StartMode", (Some (RangeMode.to_value x.startMode)));
        ("StartValue",
          (Option.map x.startValue ~f:TypedAttributeValue.to_value));
        ("EndMode", (Some (RangeMode.to_value x.endMode)));
        ("EndValue", (Option.map x.endValue ~f:TypedAttributeValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endValue =
        (Option.map ~f:TypedAttributeValue.of_xml)
          (Xml.child xml_arg0 "EndValue") in
      let endMode =
        RangeMode.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndMode") in
      let startValue =
        (Option.map ~f:TypedAttributeValue.of_xml)
          (Xml.child xml_arg0 "StartValue") in
      let startMode =
        RangeMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartMode") in
      make ?endValue ~endMode ?startValue ~startMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endValue = field_map json__ "EndValue" TypedAttributeValue.of_json in
      let endMode = field_map_exn json__ "EndMode" RangeMode.of_json in
      let startValue =
        field_map json__ "StartValue" TypedAttributeValue.of_json in
      let startMode = field_map_exn json__ "StartMode" RangeMode.of_json in
      make ?endValue ~endMode ?startValue ~startMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A range of attribute values. For more information, see Range Filters."]
module Bool_ =
  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 FacetAttributeType =
  struct
    type nonrec t =
      | STRING 
      | BINARY 
      | BOOLEAN 
      | NUMBER 
      | DATETIME 
      | VARIANT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STRING -> "STRING"
      | BINARY -> "BINARY"
      | BOOLEAN -> "BOOLEAN"
      | NUMBER -> "NUMBER"
      | DATETIME -> "DATETIME"
      | VARIANT -> "VARIANT"
      | Non_static_id s -> s
    let of_string =
      function
      | "STRING" -> STRING
      | "BINARY" -> BINARY
      | "BOOLEAN" -> BOOLEAN
      | "NUMBER" -> NUMBER
      | "DATETIME" -> DATETIME
      | "VARIANT" -> VARIANT
      | 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 FacetAttributeType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FacetAttributeType" j)
    let to_json = simple_to_json to_value
  end
module RuleMap =
  struct
    type nonrec t = (RuleKey.t * Rule.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 RuleKey Rule"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (RuleKey.to_value x) |>
                    (fun x -> (Rule.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:RuleKey.of_string ~of_json:Rule.of_json j
    let to_json v = composed_to_json to_value v
  end
module LinkAttributeUpdate =
  struct
    type nonrec t =
      {
      attributeKey: AttributeKey.t option
        [@ocaml.doc "The key of the attribute being updated."];
      attributeAction: LinkAttributeAction.t option
        [@ocaml.doc "The action to perform as part of the attribute update."]}
    let make ?attributeKey =
      fun ?attributeAction -> fun () -> { attributeKey; attributeAction }
    let to_value x =
      structure_to_value
        [("AttributeKey",
           (Option.map x.attributeKey ~f:AttributeKey.to_value));
        ("AttributeAction",
          (Option.map x.attributeAction ~f:LinkAttributeAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeAction =
        (Option.map ~f:LinkAttributeAction.of_xml)
          (Xml.child xml_arg0 "AttributeAction") in
      let attributeKey =
        (Option.map ~f:AttributeKey.of_xml)
          (Xml.child xml_arg0 "AttributeKey") in
      make ?attributeAction ?attributeKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeAction =
        field_map json__ "AttributeAction" LinkAttributeAction.of_json in
      let attributeKey = field_map json__ "AttributeKey" AttributeKey.of_json in
      make ?attributeAction ?attributeKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Structure that contains attribute update information."]
module ObjectAttributeUpdate =
  struct
    type nonrec t =
      {
      objectAttributeKey: AttributeKey.t option
        [@ocaml.doc "The key of the attribute being updated."];
      objectAttributeAction: ObjectAttributeAction.t option
        [@ocaml.doc "The action to perform as part of the attribute update."]}
    let make ?objectAttributeKey =
      fun ?objectAttributeAction ->
        fun () -> { objectAttributeKey; objectAttributeAction }
    let to_value x =
      structure_to_value
        [("ObjectAttributeKey",
           (Option.map x.objectAttributeKey ~f:AttributeKey.to_value));
        ("ObjectAttributeAction",
          (Option.map x.objectAttributeAction
             ~f:ObjectAttributeAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectAttributeAction =
        (Option.map ~f:ObjectAttributeAction.of_xml)
          (Xml.child xml_arg0 "ObjectAttributeAction") in
      let objectAttributeKey =
        (Option.map ~f:AttributeKey.of_xml)
          (Xml.child xml_arg0 "ObjectAttributeKey") in
      make ?objectAttributeAction ?objectAttributeKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectAttributeAction =
        field_map json__ "ObjectAttributeAction"
          ObjectAttributeAction.of_json in
      let objectAttributeKey =
        field_map json__ "ObjectAttributeKey" AttributeKey.of_json in
      make ?objectAttributeAction ?objectAttributeKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Structure that contains attribute update information."]
module SchemaFacetList =
  struct
    type nonrec t = SchemaFacet.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:SchemaFacet.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:SchemaFacet.of_xml)
    let of_json j =
      list_of_json ~kind:"SchemaFacetList" ~of_json:SchemaFacet.of_json j
    let to_json v = composed_to_json to_value v
  end
module IndexAttachmentList =
  struct
    type nonrec t = IndexAttachment.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:IndexAttachment.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:IndexAttachment.of_xml)
    let of_json j =
      list_of_json ~kind:"IndexAttachmentList"
        ~of_json:IndexAttachment.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module TypedLinkSpecifierList =
  struct
    type nonrec t = TypedLinkSpecifier.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:TypedLinkSpecifier.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:TypedLinkSpecifier.of_xml)
    let of_json j =
      list_of_json ~kind:"TypedLinkSpecifierList"
        ~of_json:TypedLinkSpecifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module LinkNameToObjectIdentifierMap =
  struct
    type nonrec t = (LinkName.t * ObjectIdentifier.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 ->
                            ((LinkName.of_string chopped),
                              (ObjectIdentifier.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (LinkName.to_value x) |>
                    (fun x ->
                       (ObjectIdentifier.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:LinkName.of_string
        ~of_json:ObjectIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module PathToObjectIdentifiersList =
  struct
    type nonrec t = PathToObjectIdentifiers.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:PathToObjectIdentifiers.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:PathToObjectIdentifiers.of_xml)
    let of_json j =
      list_of_json ~kind:"PathToObjectIdentifiersList"
        ~of_json:PathToObjectIdentifiers.of_json j
    let to_json v = composed_to_json to_value v
  end
module ObjectIdentifierAndLinkNameList =
  struct
    type nonrec t = ObjectIdentifierAndLinkNameTuple.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:ObjectIdentifierAndLinkNameTuple.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:ObjectIdentifierAndLinkNameTuple.of_xml)
    let of_json j =
      list_of_json ~kind:"ObjectIdentifierAndLinkNameList"
        ~of_json:ObjectIdentifierAndLinkNameTuple.of_json j
    let to_json v = composed_to_json to_value v
  end
module PolicyToPathList =
  struct
    type nonrec t = PolicyToPath.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:PolicyToPath.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:PolicyToPath.of_xml)
    let of_json j =
      list_of_json ~kind:"PolicyToPathList" ~of_json:PolicyToPath.of_json j
    let to_json v = composed_to_json to_value v
  end
module TypedLinkAttributeRange =
  struct
    type nonrec t =
      {
      attributeName: AttributeName.t option
        [@ocaml.doc "The unique name of the typed link attribute."];
      range: TypedAttributeValueRange.t
        [@ocaml.doc "The range of attribute values that are being selected."]}
    let context_ = "TypedLinkAttributeRange"
    let make ?attributeName =
      fun ~range -> fun () -> { attributeName; range }
    let to_value x =
      structure_to_value
        [("AttributeName",
           (Option.map x.attributeName ~f:AttributeName.to_value));
        ("Range", (Some (TypedAttributeValueRange.to_value x.range)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let range =
        TypedAttributeValueRange.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Range") in
      let attributeName =
        (Option.map ~f:AttributeName.of_xml)
          (Xml.child xml_arg0 "AttributeName") in
      make ~range ?attributeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let range =
        field_map_exn json__ "Range" TypedAttributeValueRange.of_json in
      let attributeName =
        field_map json__ "AttributeName" AttributeName.of_json in
      make ~range ?attributeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifies the range of attributes that are used by a specified filter."]
module ObjectAttributeRange =
  struct
    type nonrec t =
      {
      attributeKey: AttributeKey.t option
        [@ocaml.doc
          "The key of the attribute that the attribute range covers."];
      range: TypedAttributeValueRange.t option
        [@ocaml.doc "The range of attribute values being selected."]}
    let make ?attributeKey = fun ?range -> fun () -> { attributeKey; range }
    let to_value x =
      structure_to_value
        [("AttributeKey",
           (Option.map x.attributeKey ~f:AttributeKey.to_value));
        ("Range", (Option.map x.range ~f:TypedAttributeValueRange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let range =
        (Option.map ~f:TypedAttributeValueRange.of_xml)
          (Xml.child xml_arg0 "Range") in
      let attributeKey =
        (Option.map ~f:AttributeKey.of_xml)
          (Xml.child xml_arg0 "AttributeKey") in
      make ?range ?attributeKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let range = field_map json__ "Range" TypedAttributeValueRange.of_json in
      let attributeKey = field_map json__ "AttributeKey" AttributeKey.of_json in
      make ?range ?attributeKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A range of attributes."]
module RequiredAttributeBehavior =
  struct
    type nonrec t =
      | REQUIRED_ALWAYS 
      | NOT_REQUIRED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REQUIRED_ALWAYS -> "REQUIRED_ALWAYS"
      | NOT_REQUIRED -> "NOT_REQUIRED"
      | Non_static_id s -> s
    let of_string =
      function
      | "REQUIRED_ALWAYS" -> REQUIRED_ALWAYS
      | "NOT_REQUIRED" -> NOT_REQUIRED
      | 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 RequiredAttributeBehavior" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RequiredAttributeBehavior" j)
    let to_json = simple_to_json to_value
  end
module FacetAttributeDefinition =
  struct
    type nonrec t =
      {
      type_: FacetAttributeType.t [@ocaml.doc "The type of the attribute."];
      defaultValue: TypedAttributeValue.t option
        [@ocaml.doc "The default value of the attribute (if configured)."];
      isImmutable: Bool_.t option
        [@ocaml.doc "Whether the attribute is mutable or not."];
      rules: RuleMap.t option
        [@ocaml.doc "Validation rules attached to the attribute definition."]}
    let context_ = "FacetAttributeDefinition"
    let make ?defaultValue =
      fun ?isImmutable ->
        fun ?rules ->
          fun ~type_ -> fun () -> { defaultValue; isImmutable; rules; type_ }
    let to_value x =
      structure_to_value
        [("Type", (Some (FacetAttributeType.to_value x.type_)));
        ("DefaultValue",
          (Option.map x.defaultValue ~f:TypedAttributeValue.to_value));
        ("IsImmutable", (Option.map x.isImmutable ~f:Bool_.to_value));
        ("Rules", (Option.map x.rules ~f:RuleMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rules = (Option.map ~f:RuleMap.of_xml) (Xml.child xml_arg0 "Rules") in
      let isImmutable =
        (Option.map ~f:Bool_.of_xml) (Xml.child xml_arg0 "IsImmutable") in
      let defaultValue =
        (Option.map ~f:TypedAttributeValue.of_xml)
          (Xml.child xml_arg0 "DefaultValue") in
      let type_ =
        FacetAttributeType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      make ?rules ?isImmutable ?defaultValue ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rules = field_map json__ "Rules" RuleMap.of_json in
      let isImmutable = field_map json__ "IsImmutable" Bool_.of_json in
      let defaultValue =
        field_map json__ "DefaultValue" TypedAttributeValue.of_json in
      let type_ = field_map_exn json__ "Type" FacetAttributeType.of_json in
      make ?rules ?isImmutable ?defaultValue ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A facet attribute definition. See Attribute References for more information."]
module FacetAttributeReference =
  struct
    type nonrec t =
      {
      targetFacetName: FacetName.t
        [@ocaml.doc
          "The target facet name that is associated with the facet reference. See Attribute References for more information."];
      targetAttributeName: AttributeName.t
        [@ocaml.doc
          "The target attribute name that is associated with the facet reference. See Attribute References for more information."]}
    let context_ = "FacetAttributeReference"
    let make ~targetFacetName =
      fun ~targetAttributeName ->
        fun () -> { targetFacetName; targetAttributeName }
    let to_value x =
      structure_to_value
        [("TargetFacetName", (Some (FacetName.to_value x.targetFacetName)));
        ("TargetAttributeName",
          (Some (AttributeName.to_value x.targetAttributeName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetAttributeName =
        AttributeName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetAttributeName") in
      let targetFacetName =
        FacetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetFacetName") in
      make ~targetAttributeName ~targetFacetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetAttributeName =
        field_map_exn json__ "TargetAttributeName" AttributeName.of_json in
      let targetFacetName =
        field_map_exn json__ "TargetFacetName" FacetName.of_json in
      make ~targetAttributeName ~targetFacetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The facet attribute reference that specifies the attribute definition that contains the attribute facet name and attribute name."]
module AttributeKeyList =
  struct
    type nonrec t = AttributeKey.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:AttributeKey.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:AttributeKey.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeKeyList" ~of_json:AttributeKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchReferenceName =
  struct
    type nonrec t = string
    let context_ = "BatchReferenceName"
    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:"BatchReferenceName" j
    let to_json = simple_to_json to_value
  end
module LinkAttributeUpdateList =
  struct
    type nonrec t = LinkAttributeUpdate.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:LinkAttributeUpdate.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:LinkAttributeUpdate.of_xml)
    let of_json j =
      list_of_json ~kind:"LinkAttributeUpdateList"
        ~of_json:LinkAttributeUpdate.of_json j
    let to_json v = composed_to_json to_value v
  end
module ObjectAttributeUpdateList =
  struct
    type nonrec t = ObjectAttributeUpdate.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:ObjectAttributeUpdate.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:ObjectAttributeUpdate.of_xml)
    let of_json j =
      list_of_json ~kind:"ObjectAttributeUpdateList"
        ~of_json:ObjectAttributeUpdate.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchReadExceptionType =
  struct
    type nonrec t =
      | ValidationException 
      | InvalidArnException 
      | ResourceNotFoundException 
      | InvalidNextTokenException 
      | AccessDeniedException 
      | NotNodeException 
      | FacetValidationException 
      | CannotListParentOfRootException 
      | NotIndexException 
      | NotPolicyException 
      | DirectoryNotEnabledException 
      | LimitExceededException 
      | InternalServiceException 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ValidationException -> "ValidationException"
      | InvalidArnException -> "InvalidArnException"
      | ResourceNotFoundException -> "ResourceNotFoundException"
      | InvalidNextTokenException -> "InvalidNextTokenException"
      | AccessDeniedException -> "AccessDeniedException"
      | NotNodeException -> "NotNodeException"
      | FacetValidationException -> "FacetValidationException"
      | CannotListParentOfRootException -> "CannotListParentOfRootException"
      | NotIndexException -> "NotIndexException"
      | NotPolicyException -> "NotPolicyException"
      | DirectoryNotEnabledException -> "DirectoryNotEnabledException"
      | LimitExceededException -> "LimitExceededException"
      | InternalServiceException -> "InternalServiceException"
      | Non_static_id s -> s
    let of_string =
      function
      | "ValidationException" -> ValidationException
      | "InvalidArnException" -> InvalidArnException
      | "ResourceNotFoundException" -> ResourceNotFoundException
      | "InvalidNextTokenException" -> InvalidNextTokenException
      | "AccessDeniedException" -> AccessDeniedException
      | "NotNodeException" -> NotNodeException
      | "FacetValidationException" -> FacetValidationException
      | "CannotListParentOfRootException" -> CannotListParentOfRootException
      | "NotIndexException" -> NotIndexException
      | "NotPolicyException" -> NotPolicyException
      | "DirectoryNotEnabledException" -> DirectoryNotEnabledException
      | "LimitExceededException" -> LimitExceededException
      | "InternalServiceException" -> InternalServiceException
      | 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 BatchReadExceptionType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BatchReadExceptionType" j)
    let to_json = simple_to_json to_value
  end
module ExceptionMessage =
  struct
    type nonrec t = string
    let context_ = "ExceptionMessage"
    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:"ExceptionMessage" j
    let to_json = simple_to_json to_value
  end
module BatchGetLinkAttributesResponse =
  struct
    type nonrec t =
      {
      attributes: AttributeKeyAndValueList.t option
        [@ocaml.doc
          "The attributes that are associated with the typed link."]}
    let make ?attributes = fun () -> { attributes }
    let to_value x =
      structure_to_value
        [("Attributes",
           (Option.map x.attributes ~f:AttributeKeyAndValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:AttributeKeyAndValueList.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      make ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "Attributes" AttributeKeyAndValueList.of_json in
      make ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a GetLinkAttributes response operation."]
module BatchGetObjectAttributesResponse =
  struct
    type nonrec t =
      {
      attributes: AttributeKeyAndValueList.t option
        [@ocaml.doc
          "The attribute values that are associated with an object."]}
    let make ?attributes = fun () -> { attributes }
    let to_value x =
      structure_to_value
        [("Attributes",
           (Option.map x.attributes ~f:AttributeKeyAndValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:AttributeKeyAndValueList.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      make ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "Attributes" AttributeKeyAndValueList.of_json in
      make ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a GetObjectAttributes response operation."]
module BatchGetObjectInformationResponse =
  struct
    type nonrec t =
      {
      schemaFacets: SchemaFacetList.t option
        [@ocaml.doc "The facets attached to the specified object."];
      objectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc "The ObjectIdentifier of the specified object."]}
    let make ?schemaFacets =
      fun ?objectIdentifier -> fun () -> { schemaFacets; objectIdentifier }
    let to_value x =
      structure_to_value
        [("SchemaFacets",
           (Option.map x.schemaFacets ~f:SchemaFacetList.to_value));
        ("ObjectIdentifier",
          (Option.map x.objectIdentifier ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifier") in
      let schemaFacets =
        (Option.map ~f:SchemaFacetList.of_xml)
          (Xml.child xml_arg0 "SchemaFacets") in
      make ?objectIdentifier ?schemaFacets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectIdentifier =
        field_map json__ "ObjectIdentifier" ObjectIdentifier.of_json in
      let schemaFacets =
        field_map json__ "SchemaFacets" SchemaFacetList.of_json in
      make ?objectIdentifier ?schemaFacets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a GetObjectInformation response operation."]
module BatchListAttachedIndicesResponse =
  struct
    type nonrec t =
      {
      indexAttachments: IndexAttachmentList.t option
        [@ocaml.doc "The indices attached to the specified object."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    let make ?indexAttachments =
      fun ?nextToken -> fun () -> { indexAttachments; nextToken }
    let to_value x =
      structure_to_value
        [("IndexAttachments",
           (Option.map x.indexAttachments ~f:IndexAttachmentList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let indexAttachments =
        (Option.map ~f:IndexAttachmentList.of_xml)
          (Xml.child xml_arg0 "IndexAttachments") in
      make ?nextToken ?indexAttachments ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let indexAttachments =
        field_map json__ "IndexAttachments" IndexAttachmentList.of_json in
      make ?nextToken ?indexAttachments ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a ListAttachedIndices response operation."]
module BatchListIncomingTypedLinksResponse =
  struct
    type nonrec t =
      {
      linkSpecifiers: TypedLinkSpecifierList.t option
        [@ocaml.doc "Returns one or more typed link specifiers as output."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    let make ?linkSpecifiers =
      fun ?nextToken -> fun () -> { linkSpecifiers; nextToken }
    let to_value x =
      structure_to_value
        [("LinkSpecifiers",
           (Option.map x.linkSpecifiers ~f:TypedLinkSpecifierList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let linkSpecifiers =
        (Option.map ~f:TypedLinkSpecifierList.of_xml)
          (Xml.child xml_arg0 "LinkSpecifiers") in
      make ?nextToken ?linkSpecifiers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let linkSpecifiers =
        field_map json__ "LinkSpecifiers" TypedLinkSpecifierList.of_json in
      make ?nextToken ?linkSpecifiers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a ListIncomingTypedLinks response operation."]
module BatchListIndexResponse =
  struct
    type nonrec t =
      {
      indexAttachments: IndexAttachmentList.t option
        [@ocaml.doc "The objects and indexed values attached to the index."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    let make ?indexAttachments =
      fun ?nextToken -> fun () -> { indexAttachments; nextToken }
    let to_value x =
      structure_to_value
        [("IndexAttachments",
           (Option.map x.indexAttachments ~f:IndexAttachmentList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let indexAttachments =
        (Option.map ~f:IndexAttachmentList.of_xml)
          (Xml.child xml_arg0 "IndexAttachments") in
      make ?nextToken ?indexAttachments ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let indexAttachments =
        field_map json__ "IndexAttachments" IndexAttachmentList.of_json in
      make ?nextToken ?indexAttachments ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a ListIndex response operation."]
module BatchListObjectAttributesResponse =
  struct
    type nonrec t =
      {
      attributes: AttributeKeyAndValueList.t option
        [@ocaml.doc
          "The attributes map that is associated with the object. AttributeArn is the key; attribute value is the value."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    let make ?attributes =
      fun ?nextToken -> fun () -> { attributes; nextToken }
    let to_value x =
      structure_to_value
        [("Attributes",
           (Option.map x.attributes ~f:AttributeKeyAndValueList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let attributes =
        (Option.map ~f:AttributeKeyAndValueList.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      make ?nextToken ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let attributes =
        field_map json__ "Attributes" AttributeKeyAndValueList.of_json in
      make ?nextToken ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a ListObjectAttributes response operation."]
module BatchListObjectChildrenResponse =
  struct
    type nonrec t =
      {
      children: LinkNameToObjectIdentifierMap.t option
        [@ocaml.doc
          "The children structure, which is a map with the key as the LinkName and ObjectIdentifier as the value."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    let make ?children = fun ?nextToken -> fun () -> { children; nextToken }
    let to_value x =
      structure_to_value
        [("Children",
           (Option.map x.children ~f:LinkNameToObjectIdentifierMap.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let children =
        (Option.map ~f:LinkNameToObjectIdentifierMap.of_xml)
          (Xml.child xml_arg0 "Children") in
      make ?nextToken ?children ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let children =
        field_map json__ "Children" LinkNameToObjectIdentifierMap.of_json in
      make ?nextToken ?children ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a ListObjectChildren response operation."]
module BatchListObjectParentPathsResponse =
  struct
    type nonrec t =
      {
      pathToObjectIdentifiersList: PathToObjectIdentifiersList.t option
        [@ocaml.doc
          "Returns the path to the ObjectIdentifiers that are associated with the directory."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    let make ?pathToObjectIdentifiersList =
      fun ?nextToken -> fun () -> { pathToObjectIdentifiersList; nextToken }
    let to_value x =
      structure_to_value
        [("PathToObjectIdentifiersList",
           (Option.map x.pathToObjectIdentifiersList
              ~f:PathToObjectIdentifiersList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let pathToObjectIdentifiersList =
        (Option.map ~f:PathToObjectIdentifiersList.of_xml)
          (Xml.child xml_arg0 "PathToObjectIdentifiersList") in
      make ?nextToken ?pathToObjectIdentifiersList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let pathToObjectIdentifiersList =
        field_map json__ "PathToObjectIdentifiersList"
          PathToObjectIdentifiersList.of_json in
      make ?nextToken ?pathToObjectIdentifiersList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a ListObjectParentPaths response operation."]
module BatchListObjectParentsResponse =
  struct
    type nonrec t =
      {
      parentLinks: ObjectIdentifierAndLinkNameList.t option
        [@ocaml.doc
          "Returns a list of parent reference and LinkName Tuples."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    let make ?parentLinks =
      fun ?nextToken -> fun () -> { parentLinks; nextToken }
    let to_value x =
      structure_to_value
        [("ParentLinks",
           (Option.map x.parentLinks
              ~f:ObjectIdentifierAndLinkNameList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let parentLinks =
        (Option.map ~f:ObjectIdentifierAndLinkNameList.of_xml)
          (Xml.child xml_arg0 "ParentLinks") in
      make ?nextToken ?parentLinks ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let parentLinks =
        field_map json__ "ParentLinks"
          ObjectIdentifierAndLinkNameList.of_json in
      make ?nextToken ?parentLinks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a ListObjectParents response operation."]
module BatchListObjectPoliciesResponse =
  struct
    type nonrec t =
      {
      attachedPolicyIds: ObjectIdentifierList.t option
        [@ocaml.doc
          "A list of policy ObjectIdentifiers, that are attached to the object."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    let make ?attachedPolicyIds =
      fun ?nextToken -> fun () -> { attachedPolicyIds; nextToken }
    let to_value x =
      structure_to_value
        [("AttachedPolicyIds",
           (Option.map x.attachedPolicyIds ~f:ObjectIdentifierList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let attachedPolicyIds =
        (Option.map ~f:ObjectIdentifierList.of_xml)
          (Xml.child xml_arg0 "AttachedPolicyIds") in
      make ?nextToken ?attachedPolicyIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let attachedPolicyIds =
        field_map json__ "AttachedPolicyIds" ObjectIdentifierList.of_json in
      make ?nextToken ?attachedPolicyIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a ListObjectPolicies response operation."]
module BatchListOutgoingTypedLinksResponse =
  struct
    type nonrec t =
      {
      typedLinkSpecifiers: TypedLinkSpecifierList.t option
        [@ocaml.doc "Returns a typed link specifier as output."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    let make ?typedLinkSpecifiers =
      fun ?nextToken -> fun () -> { typedLinkSpecifiers; nextToken }
    let to_value x =
      structure_to_value
        [("TypedLinkSpecifiers",
           (Option.map x.typedLinkSpecifiers
              ~f:TypedLinkSpecifierList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let typedLinkSpecifiers =
        (Option.map ~f:TypedLinkSpecifierList.of_xml)
          (Xml.child xml_arg0 "TypedLinkSpecifiers") in
      make ?nextToken ?typedLinkSpecifiers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let typedLinkSpecifiers =
        field_map json__ "TypedLinkSpecifiers" TypedLinkSpecifierList.of_json in
      make ?nextToken ?typedLinkSpecifiers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a ListOutgoingTypedLinks response operation."]
module BatchListPolicyAttachmentsResponse =
  struct
    type nonrec t =
      {
      objectIdentifiers: ObjectIdentifierList.t option
        [@ocaml.doc
          "A list of ObjectIdentifiers to which the policy is attached."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    let make ?objectIdentifiers =
      fun ?nextToken -> fun () -> { objectIdentifiers; nextToken }
    let to_value x =
      structure_to_value
        [("ObjectIdentifiers",
           (Option.map x.objectIdentifiers ~f:ObjectIdentifierList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let objectIdentifiers =
        (Option.map ~f:ObjectIdentifierList.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifiers") in
      make ?nextToken ?objectIdentifiers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let objectIdentifiers =
        field_map json__ "ObjectIdentifiers" ObjectIdentifierList.of_json in
      make ?nextToken ?objectIdentifiers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a ListPolicyAttachments response operation."]
module BatchLookupPolicyResponse =
  struct
    type nonrec t =
      {
      policyToPathList: PolicyToPathList.t option
        [@ocaml.doc
          "Provides list of path to policies. Policies contain PolicyId, ObjectIdentifier, and PolicyType. For more information, see Policies."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    let make ?policyToPathList =
      fun ?nextToken -> fun () -> { policyToPathList; nextToken }
    let to_value x =
      structure_to_value
        [("PolicyToPathList",
           (Option.map x.policyToPathList ~f:PolicyToPathList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let policyToPathList =
        (Option.map ~f:PolicyToPathList.of_xml)
          (Xml.child xml_arg0 "PolicyToPathList") in
      make ?nextToken ?policyToPathList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let policyToPathList =
        field_map json__ "PolicyToPathList" PolicyToPathList.of_json in
      make ?nextToken ?policyToPathList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a LookupPolicy response operation."]
module AttributeNameList =
  struct
    type nonrec t = AttributeName.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:AttributeName.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:AttributeName.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeNameList" ~of_json:AttributeName.of_json j
    let to_json v = composed_to_json to_value v
  end
module NumberResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (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 NumberResults" 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 TypedLinkAttributeRangeList =
  struct
    type nonrec t = TypedLinkAttributeRange.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:TypedLinkAttributeRange.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:TypedLinkAttributeRange.of_xml)
    let of_json j =
      list_of_json ~kind:"TypedLinkAttributeRangeList"
        ~of_json:TypedLinkAttributeRange.of_json j
    let to_json v = composed_to_json to_value v
  end
module ObjectAttributeRangeList =
  struct
    type nonrec t = ObjectAttributeRange.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:ObjectAttributeRange.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:ObjectAttributeRange.of_xml)
    let of_json j =
      list_of_json ~kind:"ObjectAttributeRangeList"
        ~of_json:ObjectAttributeRange.of_json j
    let to_json v = composed_to_json to_value v
  end
module TypedLinkAttributeDefinition =
  struct
    type nonrec t =
      {
      name: AttributeName.t
        [@ocaml.doc "The unique name of the typed link attribute."];
      type_: FacetAttributeType.t [@ocaml.doc "The type of the attribute."];
      defaultValue: TypedAttributeValue.t option
        [@ocaml.doc "The default value of the attribute (if configured)."];
      isImmutable: Bool_.t option
        [@ocaml.doc "Whether the attribute is mutable or not."];
      rules: RuleMap.t option
        [@ocaml.doc
          "Validation rules that are attached to the attribute definition."];
      requiredBehavior: RequiredAttributeBehavior.t
        [@ocaml.doc
          "The required behavior of the TypedLinkAttributeDefinition."]}
    let context_ = "TypedLinkAttributeDefinition"
    let make ?defaultValue =
      fun ?isImmutable ->
        fun ?rules ->
          fun ~name ->
            fun ~type_ ->
              fun ~requiredBehavior ->
                fun () ->
                  {
                    defaultValue;
                    isImmutable;
                    rules;
                    name;
                    type_;
                    requiredBehavior
                  }
    let to_value x =
      structure_to_value
        [("Name", (Some (AttributeName.to_value x.name)));
        ("Type", (Some (FacetAttributeType.to_value x.type_)));
        ("DefaultValue",
          (Option.map x.defaultValue ~f:TypedAttributeValue.to_value));
        ("IsImmutable", (Option.map x.isImmutable ~f:Bool_.to_value));
        ("Rules", (Option.map x.rules ~f:RuleMap.to_value));
        ("RequiredBehavior",
          (Some (RequiredAttributeBehavior.to_value x.requiredBehavior)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requiredBehavior =
        RequiredAttributeBehavior.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RequiredBehavior") in
      let rules = (Option.map ~f:RuleMap.of_xml) (Xml.child xml_arg0 "Rules") in
      let isImmutable =
        (Option.map ~f:Bool_.of_xml) (Xml.child xml_arg0 "IsImmutable") in
      let defaultValue =
        (Option.map ~f:TypedAttributeValue.of_xml)
          (Xml.child xml_arg0 "DefaultValue") in
      let type_ =
        FacetAttributeType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let name =
        AttributeName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~requiredBehavior ?rules ?isImmutable ?defaultValue ~type_ ~name
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requiredBehavior =
        field_map_exn json__ "RequiredBehavior"
          RequiredAttributeBehavior.of_json in
      let rules = field_map json__ "Rules" RuleMap.of_json in
      let isImmutable = field_map json__ "IsImmutable" Bool_.of_json in
      let defaultValue =
        field_map json__ "DefaultValue" TypedAttributeValue.of_json in
      let type_ = field_map_exn json__ "Type" FacetAttributeType.of_json in
      let name = field_map_exn json__ "Name" AttributeName.of_json in
      make ~requiredBehavior ?rules ?isImmutable ?defaultValue ~type_ ~name
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A typed link attribute definition."]
module FacetAttribute =
  struct
    type nonrec t =
      {
      name: AttributeName.t [@ocaml.doc "The name of the facet attribute."];
      attributeDefinition: FacetAttributeDefinition.t option
        [@ocaml.doc
          "A facet attribute consists of either a definition or a reference. This structure contains the attribute definition. See Attribute References for more information."];
      attributeReference: FacetAttributeReference.t option
        [@ocaml.doc
          "An attribute reference that is associated with the attribute. See Attribute References for more information."];
      requiredBehavior: RequiredAttributeBehavior.t option
        [@ocaml.doc "The required behavior of the FacetAttribute."]}
    let context_ = "FacetAttribute"
    let make ?attributeDefinition =
      fun ?attributeReference ->
        fun ?requiredBehavior ->
          fun ~name ->
            fun () ->
              {
                attributeDefinition;
                attributeReference;
                requiredBehavior;
                name
              }
    let to_value x =
      structure_to_value
        [("Name", (Some (AttributeName.to_value x.name)));
        ("AttributeDefinition",
          (Option.map x.attributeDefinition
             ~f:FacetAttributeDefinition.to_value));
        ("AttributeReference",
          (Option.map x.attributeReference
             ~f:FacetAttributeReference.to_value));
        ("RequiredBehavior",
          (Option.map x.requiredBehavior
             ~f:RequiredAttributeBehavior.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requiredBehavior =
        (Option.map ~f:RequiredAttributeBehavior.of_xml)
          (Xml.child xml_arg0 "RequiredBehavior") in
      let attributeReference =
        (Option.map ~f:FacetAttributeReference.of_xml)
          (Xml.child xml_arg0 "AttributeReference") in
      let attributeDefinition =
        (Option.map ~f:FacetAttributeDefinition.of_xml)
          (Xml.child xml_arg0 "AttributeDefinition") in
      let name =
        AttributeName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?requiredBehavior ?attributeReference ?attributeDefinition ~name
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requiredBehavior =
        field_map json__ "RequiredBehavior" RequiredAttributeBehavior.of_json in
      let attributeReference =
        field_map json__ "AttributeReference" FacetAttributeReference.of_json in
      let attributeDefinition =
        field_map json__ "AttributeDefinition"
          FacetAttributeDefinition.of_json in
      let name = field_map_exn json__ "Name" AttributeName.of_json in
      make ?requiredBehavior ?attributeReference ?attributeDefinition ~name
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An attribute that is associated with the Facet."]
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    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:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    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:"TagValue" j
    let to_json = simple_to_json to_value
  end
module Date =
  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 DirectoryArn =
  struct
    type nonrec t = string
    let context_ = "DirectoryArn"
    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:"DirectoryArn" j
    let to_json = simple_to_json to_value
  end
module DirectoryName =
  struct
    type nonrec t = string
    let context_ = "DirectoryName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (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:"DirectoryName" j
    let to_json = simple_to_json to_value
  end
module DirectoryState =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | "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 DirectoryState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DirectoryState" j)
    let to_json = simple_to_json to_value
  end
module BatchAddFacetToObjectResponse =
  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[@@ocaml.doc "The result of a batch add facet to object operation."]
module BatchAttachObjectResponse =
  struct
    type nonrec t =
      {
      attachedObjectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc
          "The ObjectIdentifier of the object that has been attached."]}
    let make ?attachedObjectIdentifier =
      fun () -> { attachedObjectIdentifier }
    let to_value x =
      structure_to_value
        [("attachedObjectIdentifier",
           (Option.map x.attachedObjectIdentifier
              ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachedObjectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "attachedObjectIdentifier") in
      make ?attachedObjectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachedObjectIdentifier =
        field_map json__ "attachedObjectIdentifier" ObjectIdentifier.of_json in
      make ?attachedObjectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output batch AttachObject response operation."]
module BatchAttachPolicyResponse =
  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[@@ocaml.doc
       "Represents the output of an AttachPolicy response operation."]
module BatchAttachToIndexResponse =
  struct
    type nonrec t =
      {
      attachedObjectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc
          "The ObjectIdentifier of the object that was attached to the index."]}
    let make ?attachedObjectIdentifier =
      fun () -> { attachedObjectIdentifier }
    let to_value x =
      structure_to_value
        [("AttachedObjectIdentifier",
           (Option.map x.attachedObjectIdentifier
              ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachedObjectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "AttachedObjectIdentifier") in
      make ?attachedObjectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachedObjectIdentifier =
        field_map json__ "AttachedObjectIdentifier" ObjectIdentifier.of_json in
      make ?attachedObjectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a AttachToIndex response operation."]
module BatchAttachTypedLinkResponse =
  struct
    type nonrec t =
      {
      typedLinkSpecifier: TypedLinkSpecifier.t option
        [@ocaml.doc "Returns a typed link specifier as output."]}
    let make ?typedLinkSpecifier = fun () -> { typedLinkSpecifier }
    let to_value x =
      structure_to_value
        [("TypedLinkSpecifier",
           (Option.map x.typedLinkSpecifier ~f:TypedLinkSpecifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typedLinkSpecifier =
        (Option.map ~f:TypedLinkSpecifier.of_xml)
          (Xml.child xml_arg0 "TypedLinkSpecifier") in
      make ?typedLinkSpecifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typedLinkSpecifier =
        field_map json__ "TypedLinkSpecifier" TypedLinkSpecifier.of_json in
      make ?typedLinkSpecifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a AttachTypedLink response operation."]
module BatchCreateIndexResponse =
  struct
    type nonrec t =
      {
      objectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc
          "The ObjectIdentifier of the index created by this operation."]}
    let make ?objectIdentifier = fun () -> { objectIdentifier }
    let to_value x =
      structure_to_value
        [("ObjectIdentifier",
           (Option.map x.objectIdentifier ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifier") in
      make ?objectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectIdentifier =
        field_map json__ "ObjectIdentifier" ObjectIdentifier.of_json in
      make ?objectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a CreateIndex response operation."]
module BatchCreateObjectResponse =
  struct
    type nonrec t =
      {
      objectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc "The ID that is associated with the object."]}
    let make ?objectIdentifier = fun () -> { objectIdentifier }
    let to_value x =
      structure_to_value
        [("ObjectIdentifier",
           (Option.map x.objectIdentifier ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifier") in
      make ?objectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectIdentifier =
        field_map json__ "ObjectIdentifier" ObjectIdentifier.of_json in
      make ?objectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a CreateObject response operation."]
module BatchDeleteObjectResponse =
  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[@@ocaml.doc
       "Represents the output of a DeleteObject response operation."]
module BatchDetachFromIndexResponse =
  struct
    type nonrec t =
      {
      detachedObjectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc
          "The ObjectIdentifier of the object that was detached from the index."]}
    let make ?detachedObjectIdentifier =
      fun () -> { detachedObjectIdentifier }
    let to_value x =
      structure_to_value
        [("DetachedObjectIdentifier",
           (Option.map x.detachedObjectIdentifier
              ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let detachedObjectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "DetachedObjectIdentifier") in
      make ?detachedObjectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let detachedObjectIdentifier =
        field_map json__ "DetachedObjectIdentifier" ObjectIdentifier.of_json in
      make ?detachedObjectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a DetachFromIndex response operation."]
module BatchDetachObjectResponse =
  struct
    type nonrec t =
      {
      detachedObjectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc "The ObjectIdentifier of the detached object."]}
    let make ?detachedObjectIdentifier =
      fun () -> { detachedObjectIdentifier }
    let to_value x =
      structure_to_value
        [("detachedObjectIdentifier",
           (Option.map x.detachedObjectIdentifier
              ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let detachedObjectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "detachedObjectIdentifier") in
      make ?detachedObjectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let detachedObjectIdentifier =
        field_map json__ "detachedObjectIdentifier" ObjectIdentifier.of_json in
      make ?detachedObjectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a DetachObject response operation."]
module BatchDetachPolicyResponse =
  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[@@ocaml.doc
       "Represents the output of a DetachPolicy response operation."]
module BatchDetachTypedLinkResponse =
  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[@@ocaml.doc
       "Represents the output of a DetachTypedLink response operation."]
module BatchRemoveFacetFromObjectResponse =
  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[@@ocaml.doc "An empty result that represents success."]
module BatchUpdateLinkAttributesResponse =
  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[@@ocaml.doc
       "Represents the output of a UpdateLinkAttributes response operation."]
module BatchUpdateObjectAttributesResponse =
  struct
    type nonrec t =
      {
      objectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc "ID that is associated with the object."]}
    let make ?objectIdentifier = fun () -> { objectIdentifier }
    let to_value x =
      structure_to_value
        [("ObjectIdentifier",
           (Option.map x.objectIdentifier ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifier") in
      make ?objectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectIdentifier =
        field_map json__ "ObjectIdentifier" ObjectIdentifier.of_json in
      make ?objectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a BatchUpdate response operation."]
module BatchAddFacetToObject =
  struct
    type nonrec t =
      {
      schemaFacet: SchemaFacet.t
        [@ocaml.doc "Represents the facet being added to the object."];
      objectAttributeList: AttributeKeyAndValueList.t
        [@ocaml.doc "The attributes to set on the object."];
      objectReference: ObjectReference.t
        [@ocaml.doc "A reference to the object being mutated."]}
    let context_ = "BatchAddFacetToObject"
    let make ~schemaFacet =
      fun ~objectAttributeList ->
        fun ~objectReference ->
          fun () -> { schemaFacet; objectAttributeList; objectReference }
    let to_value x =
      structure_to_value
        [("SchemaFacet", (Some (SchemaFacet.to_value x.schemaFacet)));
        ("ObjectAttributeList",
          (Some (AttributeKeyAndValueList.to_value x.objectAttributeList)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let objectAttributeList =
        AttributeKeyAndValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectAttributeList") in
      let schemaFacet =
        SchemaFacet.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SchemaFacet") in
      make ~objectReference ~objectAttributeList ~schemaFacet ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let objectAttributeList =
        field_map_exn json__ "ObjectAttributeList"
          AttributeKeyAndValueList.of_json in
      let schemaFacet =
        field_map_exn json__ "SchemaFacet" SchemaFacet.of_json in
      make ~objectReference ~objectAttributeList ~schemaFacet ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a batch add facet to object operation."]
module BatchAttachObject =
  struct
    type nonrec t =
      {
      parentReference: ObjectReference.t
        [@ocaml.doc "The parent object reference."];
      childReference: ObjectReference.t
        [@ocaml.doc
          "The child object reference that is to be attached to the object."];
      linkName: LinkName.t [@ocaml.doc "The name of the link."]}
    let context_ = "BatchAttachObject"
    let make ~parentReference =
      fun ~childReference ->
        fun ~linkName ->
          fun () -> { parentReference; childReference; linkName }
    let to_value x =
      structure_to_value
        [("ParentReference",
           (Some (ObjectReference.to_value x.parentReference)));
        ("ChildReference",
          (Some (ObjectReference.to_value x.childReference)));
        ("LinkName", (Some (LinkName.to_value x.linkName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkName =
        LinkName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LinkName") in
      let childReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChildReference") in
      let parentReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ParentReference") in
      make ~linkName ~childReference ~parentReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkName = field_map_exn json__ "LinkName" LinkName.of_json in
      let childReference =
        field_map_exn json__ "ChildReference" ObjectReference.of_json in
      let parentReference =
        field_map_exn json__ "ParentReference" ObjectReference.of_json in
      make ~linkName ~childReference ~parentReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of an AttachObject operation."]
module BatchAttachPolicy =
  struct
    type nonrec t =
      {
      policyReference: ObjectReference.t
        [@ocaml.doc
          "The reference that is associated with the policy object."];
      objectReference: ObjectReference.t
        [@ocaml.doc
          "The reference that identifies the object to which the policy will be attached."]}
    let context_ = "BatchAttachPolicy"
    let make ~policyReference =
      fun ~objectReference -> fun () -> { policyReference; objectReference }
    let to_value x =
      structure_to_value
        [("PolicyReference",
           (Some (ObjectReference.to_value x.policyReference)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let policyReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyReference") in
      make ~objectReference ~policyReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let policyReference =
        field_map_exn json__ "PolicyReference" ObjectReference.of_json in
      make ~objectReference ~policyReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches a policy object to a regular object inside a BatchRead operation.\194\160For more information, see AttachPolicy and BatchReadRequest$Operations."]
module BatchAttachToIndex =
  struct
    type nonrec t =
      {
      indexReference: ObjectReference.t
        [@ocaml.doc
          "A reference to the index that you are attaching the object to."];
      targetReference: ObjectReference.t
        [@ocaml.doc
          "A reference to the object that you are attaching to the index."]}
    let context_ = "BatchAttachToIndex"
    let make ~indexReference =
      fun ~targetReference -> fun () -> { indexReference; targetReference }
    let to_value x =
      structure_to_value
        [("IndexReference",
           (Some (ObjectReference.to_value x.indexReference)));
        ("TargetReference",
          (Some (ObjectReference.to_value x.targetReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetReference") in
      let indexReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IndexReference") in
      make ~targetReference ~indexReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetReference =
        field_map_exn json__ "TargetReference" ObjectReference.of_json in
      let indexReference =
        field_map_exn json__ "IndexReference" ObjectReference.of_json in
      make ~targetReference ~indexReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches the specified object to the specified index inside a BatchRead operation. For more information, see AttachToIndex and BatchReadRequest$Operations."]
module BatchAttachTypedLink =
  struct
    type nonrec t =
      {
      sourceObjectReference: ObjectReference.t
        [@ocaml.doc
          "Identifies the source object that the typed link will attach to."];
      targetObjectReference: ObjectReference.t
        [@ocaml.doc
          "Identifies the target object that the typed link will attach to."];
      typedLinkFacet: TypedLinkSchemaAndFacetName.t
        [@ocaml.doc
          "Identifies the typed link facet that is associated with the typed link."];
      attributes: AttributeNameAndValueList.t
        [@ocaml.doc
          "A set of attributes that are associated with the typed link."]}
    let context_ = "BatchAttachTypedLink"
    let make ~sourceObjectReference =
      fun ~targetObjectReference ->
        fun ~typedLinkFacet ->
          fun ~attributes ->
            fun () ->
              {
                sourceObjectReference;
                targetObjectReference;
                typedLinkFacet;
                attributes
              }
    let to_value x =
      structure_to_value
        [("SourceObjectReference",
           (Some (ObjectReference.to_value x.sourceObjectReference)));
        ("TargetObjectReference",
          (Some (ObjectReference.to_value x.targetObjectReference)));
        ("TypedLinkFacet",
          (Some (TypedLinkSchemaAndFacetName.to_value x.typedLinkFacet)));
        ("Attributes",
          (Some (AttributeNameAndValueList.to_value x.attributes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        AttributeNameAndValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Attributes") in
      let typedLinkFacet =
        TypedLinkSchemaAndFacetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TypedLinkFacet") in
      let targetObjectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetObjectReference") in
      let sourceObjectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceObjectReference") in
      make ~attributes ~typedLinkFacet ~targetObjectReference
        ~sourceObjectReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map_exn json__ "Attributes" AttributeNameAndValueList.of_json in
      let typedLinkFacet =
        field_map_exn json__ "TypedLinkFacet"
          TypedLinkSchemaAndFacetName.of_json in
      let targetObjectReference =
        field_map_exn json__ "TargetObjectReference" ObjectReference.of_json in
      let sourceObjectReference =
        field_map_exn json__ "SourceObjectReference" ObjectReference.of_json in
      make ~attributes ~typedLinkFacet ~targetObjectReference
        ~sourceObjectReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches a typed link to a specified source and target object inside a BatchRead operation. For more information, see AttachTypedLink and BatchReadRequest$Operations."]
module BatchCreateIndex =
  struct
    type nonrec t =
      {
      orderedIndexedAttributeList: AttributeKeyList.t
        [@ocaml.doc
          "Specifies the attributes that should be indexed on. Currently only a single attribute is supported."];
      isUnique: Bool_.t
        [@ocaml.doc
          "Indicates whether the attribute that is being indexed has unique values or not."];
      parentReference: ObjectReference.t option
        [@ocaml.doc
          "A reference to the parent object that contains the index object."];
      linkName: LinkName.t option
        [@ocaml.doc
          "The name of the link between the parent object and the index object."];
      batchReferenceName: BatchReferenceName.t option
        [@ocaml.doc
          "The batch reference name. See Transaction Support for more information."]}
    let context_ = "BatchCreateIndex"
    let make ?parentReference =
      fun ?linkName ->
        fun ?batchReferenceName ->
          fun ~orderedIndexedAttributeList ->
            fun ~isUnique ->
              fun () ->
                {
                  parentReference;
                  linkName;
                  batchReferenceName;
                  orderedIndexedAttributeList;
                  isUnique
                }
    let to_value x =
      structure_to_value
        [("OrderedIndexedAttributeList",
           (Some (AttributeKeyList.to_value x.orderedIndexedAttributeList)));
        ("IsUnique", (Some (Bool_.to_value x.isUnique)));
        ("ParentReference",
          (Option.map x.parentReference ~f:ObjectReference.to_value));
        ("LinkName", (Option.map x.linkName ~f:LinkName.to_value));
        ("BatchReferenceName",
          (Option.map x.batchReferenceName ~f:BatchReferenceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let batchReferenceName =
        (Option.map ~f:BatchReferenceName.of_xml)
          (Xml.child xml_arg0 "BatchReferenceName") in
      let linkName =
        (Option.map ~f:LinkName.of_xml) (Xml.child xml_arg0 "LinkName") in
      let parentReference =
        (Option.map ~f:ObjectReference.of_xml)
          (Xml.child xml_arg0 "ParentReference") in
      let isUnique =
        Bool_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "IsUnique") in
      let orderedIndexedAttributeList =
        AttributeKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "OrderedIndexedAttributeList") in
      make ?batchReferenceName ?linkName ?parentReference ~isUnique
        ~orderedIndexedAttributeList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let batchReferenceName =
        field_map json__ "BatchReferenceName" BatchReferenceName.of_json in
      let linkName = field_map json__ "LinkName" LinkName.of_json in
      let parentReference =
        field_map json__ "ParentReference" ObjectReference.of_json in
      let isUnique = field_map_exn json__ "IsUnique" Bool_.of_json in
      let orderedIndexedAttributeList =
        field_map_exn json__ "OrderedIndexedAttributeList"
          AttributeKeyList.of_json in
      make ?batchReferenceName ?linkName ?parentReference ~isUnique
        ~orderedIndexedAttributeList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an index object inside of a BatchRead operation. For more information, see CreateIndex and BatchReadRequest$Operations."]
module BatchCreateObject =
  struct
    type nonrec t =
      {
      schemaFacet: SchemaFacetList.t
        [@ocaml.doc
          "A list of FacetArns that will be associated with the object. For more information, see arns."];
      objectAttributeList: AttributeKeyAndValueList.t
        [@ocaml.doc
          "An attribute map, which contains an attribute ARN as the key and attribute value as the map value."];
      parentReference: ObjectReference.t option
        [@ocaml.doc
          "If specified, the parent reference to which this object will be attached."];
      linkName: LinkName.t option [@ocaml.doc "The name of the link."];
      batchReferenceName: BatchReferenceName.t option
        [@ocaml.doc
          "The batch reference name. See Transaction Support for more information."]}
    let context_ = "BatchCreateObject"
    let make ?parentReference =
      fun ?linkName ->
        fun ?batchReferenceName ->
          fun ~schemaFacet ->
            fun ~objectAttributeList ->
              fun () ->
                {
                  parentReference;
                  linkName;
                  batchReferenceName;
                  schemaFacet;
                  objectAttributeList
                }
    let to_value x =
      structure_to_value
        [("SchemaFacet", (Some (SchemaFacetList.to_value x.schemaFacet)));
        ("ObjectAttributeList",
          (Some (AttributeKeyAndValueList.to_value x.objectAttributeList)));
        ("ParentReference",
          (Option.map x.parentReference ~f:ObjectReference.to_value));
        ("LinkName", (Option.map x.linkName ~f:LinkName.to_value));
        ("BatchReferenceName",
          (Option.map x.batchReferenceName ~f:BatchReferenceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let batchReferenceName =
        (Option.map ~f:BatchReferenceName.of_xml)
          (Xml.child xml_arg0 "BatchReferenceName") in
      let linkName =
        (Option.map ~f:LinkName.of_xml) (Xml.child xml_arg0 "LinkName") in
      let parentReference =
        (Option.map ~f:ObjectReference.of_xml)
          (Xml.child xml_arg0 "ParentReference") in
      let objectAttributeList =
        AttributeKeyAndValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectAttributeList") in
      let schemaFacet =
        SchemaFacetList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SchemaFacet") in
      make ?batchReferenceName ?linkName ?parentReference
        ~objectAttributeList ~schemaFacet ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let batchReferenceName =
        field_map json__ "BatchReferenceName" BatchReferenceName.of_json in
      let linkName = field_map json__ "LinkName" LinkName.of_json in
      let parentReference =
        field_map json__ "ParentReference" ObjectReference.of_json in
      let objectAttributeList =
        field_map_exn json__ "ObjectAttributeList"
          AttributeKeyAndValueList.of_json in
      let schemaFacet =
        field_map_exn json__ "SchemaFacet" SchemaFacetList.of_json in
      make ?batchReferenceName ?linkName ?parentReference
        ~objectAttributeList ~schemaFacet ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a CreateObject operation."]
module BatchDeleteObject =
  struct
    type nonrec t =
      {
      objectReference: ObjectReference.t
        [@ocaml.doc "The reference that identifies the object."]}
    let context_ = "BatchDeleteObject"
    let make ~objectReference = fun () -> { objectReference }
    let to_value x =
      structure_to_value
        [("ObjectReference",
           (Some (ObjectReference.to_value x.objectReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      make ~objectReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      make ~objectReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a DeleteObject operation."]
module BatchDetachFromIndex =
  struct
    type nonrec t =
      {
      indexReference: ObjectReference.t
        [@ocaml.doc "A reference to the index object."];
      targetReference: ObjectReference.t
        [@ocaml.doc
          "A reference to the object being detached from the index."]}
    let context_ = "BatchDetachFromIndex"
    let make ~indexReference =
      fun ~targetReference -> fun () -> { indexReference; targetReference }
    let to_value x =
      structure_to_value
        [("IndexReference",
           (Some (ObjectReference.to_value x.indexReference)));
        ("TargetReference",
          (Some (ObjectReference.to_value x.targetReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetReference") in
      let indexReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IndexReference") in
      make ~targetReference ~indexReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetReference =
        field_map_exn json__ "TargetReference" ObjectReference.of_json in
      let indexReference =
        field_map_exn json__ "IndexReference" ObjectReference.of_json in
      make ~targetReference ~indexReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detaches the specified object from the specified index inside a BatchRead operation. For more information, see DetachFromIndex and BatchReadRequest$Operations."]
module BatchDetachObject =
  struct
    type nonrec t =
      {
      parentReference: ObjectReference.t
        [@ocaml.doc
          "Parent reference from which the object with the specified link name is detached."];
      linkName: LinkName.t [@ocaml.doc "The name of the link."];
      batchReferenceName: BatchReferenceName.t option
        [@ocaml.doc
          "The batch reference name. See Transaction Support for more information."]}
    let context_ = "BatchDetachObject"
    let make ?batchReferenceName =
      fun ~parentReference ->
        fun ~linkName ->
          fun () -> { batchReferenceName; parentReference; linkName }
    let to_value x =
      structure_to_value
        [("ParentReference",
           (Some (ObjectReference.to_value x.parentReference)));
        ("LinkName", (Some (LinkName.to_value x.linkName)));
        ("BatchReferenceName",
          (Option.map x.batchReferenceName ~f:BatchReferenceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let batchReferenceName =
        (Option.map ~f:BatchReferenceName.of_xml)
          (Xml.child xml_arg0 "BatchReferenceName") in
      let linkName =
        LinkName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LinkName") in
      let parentReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ParentReference") in
      make ?batchReferenceName ~linkName ~parentReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let batchReferenceName =
        field_map json__ "BatchReferenceName" BatchReferenceName.of_json in
      let linkName = field_map_exn json__ "LinkName" LinkName.of_json in
      let parentReference =
        field_map_exn json__ "ParentReference" ObjectReference.of_json in
      make ?batchReferenceName ~linkName ~parentReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a DetachObject operation."]
module BatchDetachPolicy =
  struct
    type nonrec t =
      {
      policyReference: ObjectReference.t
        [@ocaml.doc "Reference that identifies the policy object."];
      objectReference: ObjectReference.t
        [@ocaml.doc
          "Reference that identifies the object whose policy object will be detached."]}
    let context_ = "BatchDetachPolicy"
    let make ~policyReference =
      fun ~objectReference -> fun () -> { policyReference; objectReference }
    let to_value x =
      structure_to_value
        [("PolicyReference",
           (Some (ObjectReference.to_value x.policyReference)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let policyReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyReference") in
      make ~objectReference ~policyReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let policyReference =
        field_map_exn json__ "PolicyReference" ObjectReference.of_json in
      make ~objectReference ~policyReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detaches the specified policy from the specified directory inside a BatchWrite operation. For more information, see DetachPolicy and BatchWriteRequest$Operations."]
module BatchDetachTypedLink =
  struct
    type nonrec t =
      {
      typedLinkSpecifier: TypedLinkSpecifier.t
        [@ocaml.doc "Used to accept a typed link specifier as input."]}
    let context_ = "BatchDetachTypedLink"
    let make ~typedLinkSpecifier = fun () -> { typedLinkSpecifier }
    let to_value x =
      structure_to_value
        [("TypedLinkSpecifier",
           (Some (TypedLinkSpecifier.to_value x.typedLinkSpecifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typedLinkSpecifier =
        TypedLinkSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TypedLinkSpecifier") in
      make ~typedLinkSpecifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typedLinkSpecifier =
        field_map_exn json__ "TypedLinkSpecifier" TypedLinkSpecifier.of_json in
      make ~typedLinkSpecifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detaches a typed link from a specified source and target object inside a BatchRead operation. For more information, see DetachTypedLink and BatchReadRequest$Operations."]
module BatchRemoveFacetFromObject =
  struct
    type nonrec t =
      {
      schemaFacet: SchemaFacet.t
        [@ocaml.doc "The facet to remove from the object."];
      objectReference: ObjectReference.t
        [@ocaml.doc "A reference to the object whose facet will be removed."]}
    let context_ = "BatchRemoveFacetFromObject"
    let make ~schemaFacet =
      fun ~objectReference -> fun () -> { schemaFacet; objectReference }
    let to_value x =
      structure_to_value
        [("SchemaFacet", (Some (SchemaFacet.to_value x.schemaFacet)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let schemaFacet =
        SchemaFacet.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SchemaFacet") in
      make ~objectReference ~schemaFacet ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let schemaFacet =
        field_map_exn json__ "SchemaFacet" SchemaFacet.of_json in
      make ~objectReference ~schemaFacet ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A batch operation to remove a facet from an object."]
module BatchUpdateLinkAttributes =
  struct
    type nonrec t =
      {
      typedLinkSpecifier: TypedLinkSpecifier.t
        [@ocaml.doc "Allows a typed link specifier to be accepted as input."];
      attributeUpdates: LinkAttributeUpdateList.t
        [@ocaml.doc "The attributes update structure."]}
    let context_ = "BatchUpdateLinkAttributes"
    let make ~typedLinkSpecifier =
      fun ~attributeUpdates ->
        fun () -> { typedLinkSpecifier; attributeUpdates }
    let to_value x =
      structure_to_value
        [("TypedLinkSpecifier",
           (Some (TypedLinkSpecifier.to_value x.typedLinkSpecifier)));
        ("AttributeUpdates",
          (Some (LinkAttributeUpdateList.to_value x.attributeUpdates)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeUpdates =
        LinkAttributeUpdateList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttributeUpdates") in
      let typedLinkSpecifier =
        TypedLinkSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TypedLinkSpecifier") in
      make ~attributeUpdates ~typedLinkSpecifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeUpdates =
        field_map_exn json__ "AttributeUpdates"
          LinkAttributeUpdateList.of_json in
      let typedLinkSpecifier =
        field_map_exn json__ "TypedLinkSpecifier" TypedLinkSpecifier.of_json in
      make ~attributeUpdates ~typedLinkSpecifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a given typed link\226\128\153s attributes inside a BatchRead operation. Attributes to be updated must not contribute to the typed link\226\128\153s identity, as defined by its IdentityAttributeOrder. For more information, see UpdateLinkAttributes and BatchReadRequest$Operations."]
module BatchUpdateObjectAttributes =
  struct
    type nonrec t =
      {
      objectReference: ObjectReference.t
        [@ocaml.doc "Reference that identifies the object."];
      attributeUpdates: ObjectAttributeUpdateList.t
        [@ocaml.doc "Attributes update structure."]}
    let context_ = "BatchUpdateObjectAttributes"
    let make ~objectReference =
      fun ~attributeUpdates ->
        fun () -> { objectReference; attributeUpdates }
    let to_value x =
      structure_to_value
        [("ObjectReference",
           (Some (ObjectReference.to_value x.objectReference)));
        ("AttributeUpdates",
          (Some (ObjectAttributeUpdateList.to_value x.attributeUpdates)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeUpdates =
        ObjectAttributeUpdateList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttributeUpdates") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      make ~attributeUpdates ~objectReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeUpdates =
        field_map_exn json__ "AttributeUpdates"
          ObjectAttributeUpdateList.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      make ~attributeUpdates ~objectReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a BatchUpdate operation."]
module BatchReadException =
  struct
    type nonrec t =
      {
      type_: BatchReadExceptionType.t option
        [@ocaml.doc "A type of exception, such as InvalidArnException."];
      message: ExceptionMessage.t option
        [@ocaml.doc
          "An exception message that is associated with the failure."]}
    let make ?type_ = fun ?message -> fun () -> { type_; message }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:BatchReadExceptionType.to_value));
        ("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      let type_ =
        (Option.map ~f:BatchReadExceptionType.of_xml)
          (Xml.child xml_arg0 "Type") in
      make ?message ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      let type_ = field_map json__ "Type" BatchReadExceptionType.of_json in
      make ?message ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The batch read exception structure, which contains the exception type and message."]
module BatchReadSuccessfulResponse =
  struct
    type nonrec t =
      {
      listObjectAttributes: BatchListObjectAttributesResponse.t option
        [@ocaml.doc
          "Lists all attributes that are associated with an object."];
      listObjectChildren: BatchListObjectChildrenResponse.t option
        [@ocaml.doc
          "Returns a paginated list of child objects that are associated with a given object."];
      getObjectInformation: BatchGetObjectInformationResponse.t option
        [@ocaml.doc "Retrieves metadata about an object."];
      getObjectAttributes: BatchGetObjectAttributesResponse.t option
        [@ocaml.doc
          "Retrieves attributes within a facet that are associated with an object."];
      listAttachedIndices: BatchListAttachedIndicesResponse.t option
        [@ocaml.doc "Lists indices attached to an object."];
      listObjectParentPaths: BatchListObjectParentPathsResponse.t option
        [@ocaml.doc
          "Retrieves all available parent paths for any object type such as node, leaf node, policy node, and index node objects. For more information about objects, see Directory Structure."];
      listObjectPolicies: BatchListObjectPoliciesResponse.t option
        [@ocaml.doc
          "Returns policies attached to an object in pagination fashion."];
      listPolicyAttachments: BatchListPolicyAttachmentsResponse.t option
        [@ocaml.doc
          "Returns all of the ObjectIdentifiers to which a given policy is attached."];
      lookupPolicy: BatchLookupPolicyResponse.t option
        [@ocaml.doc
          "Lists all policies from the root of the Directory to the object specified. If there are no policies present, an empty list is returned. If policies are present, and if some objects don't have the policies attached, it returns the ObjectIdentifier for such objects. If policies are present, it returns ObjectIdentifier, policyId, and policyType. Paths that don't lead to the root from the target object are ignored. For more information, see Policies."];
      listIndex: BatchListIndexResponse.t option
        [@ocaml.doc "Lists objects attached to the specified index."];
      listOutgoingTypedLinks: BatchListOutgoingTypedLinksResponse.t option
        [@ocaml.doc
          "Returns a paginated list of all the outgoing TypedLinkSpecifier information for an object. It also supports filtering by typed link facet and identity attributes. For more information, see Typed Links."];
      listIncomingTypedLinks: BatchListIncomingTypedLinksResponse.t option
        [@ocaml.doc
          "Returns a paginated list of all the incoming TypedLinkSpecifier information for an object. It also supports filtering by typed link facet and identity attributes. For more information, see Typed Links."];
      getLinkAttributes: BatchGetLinkAttributesResponse.t option
        [@ocaml.doc
          "The list of attributes to retrieve from the typed link."];
      listObjectParents: BatchListObjectParentsResponse.t option
        [@ocaml.doc "The list of parent objects to retrieve."]}
    let make ?listObjectAttributes =
      fun ?listObjectChildren ->
        fun ?getObjectInformation ->
          fun ?getObjectAttributes ->
            fun ?listAttachedIndices ->
              fun ?listObjectParentPaths ->
                fun ?listObjectPolicies ->
                  fun ?listPolicyAttachments ->
                    fun ?lookupPolicy ->
                      fun ?listIndex ->
                        fun ?listOutgoingTypedLinks ->
                          fun ?listIncomingTypedLinks ->
                            fun ?getLinkAttributes ->
                              fun ?listObjectParents ->
                                fun () ->
                                  {
                                    listObjectAttributes;
                                    listObjectChildren;
                                    getObjectInformation;
                                    getObjectAttributes;
                                    listAttachedIndices;
                                    listObjectParentPaths;
                                    listObjectPolicies;
                                    listPolicyAttachments;
                                    lookupPolicy;
                                    listIndex;
                                    listOutgoingTypedLinks;
                                    listIncomingTypedLinks;
                                    getLinkAttributes;
                                    listObjectParents
                                  }
    let to_value x =
      structure_to_value
        [("ListObjectAttributes",
           (Option.map x.listObjectAttributes
              ~f:BatchListObjectAttributesResponse.to_value));
        ("ListObjectChildren",
          (Option.map x.listObjectChildren
             ~f:BatchListObjectChildrenResponse.to_value));
        ("GetObjectInformation",
          (Option.map x.getObjectInformation
             ~f:BatchGetObjectInformationResponse.to_value));
        ("GetObjectAttributes",
          (Option.map x.getObjectAttributes
             ~f:BatchGetObjectAttributesResponse.to_value));
        ("ListAttachedIndices",
          (Option.map x.listAttachedIndices
             ~f:BatchListAttachedIndicesResponse.to_value));
        ("ListObjectParentPaths",
          (Option.map x.listObjectParentPaths
             ~f:BatchListObjectParentPathsResponse.to_value));
        ("ListObjectPolicies",
          (Option.map x.listObjectPolicies
             ~f:BatchListObjectPoliciesResponse.to_value));
        ("ListPolicyAttachments",
          (Option.map x.listPolicyAttachments
             ~f:BatchListPolicyAttachmentsResponse.to_value));
        ("LookupPolicy",
          (Option.map x.lookupPolicy ~f:BatchLookupPolicyResponse.to_value));
        ("ListIndex",
          (Option.map x.listIndex ~f:BatchListIndexResponse.to_value));
        ("ListOutgoingTypedLinks",
          (Option.map x.listOutgoingTypedLinks
             ~f:BatchListOutgoingTypedLinksResponse.to_value));
        ("ListIncomingTypedLinks",
          (Option.map x.listIncomingTypedLinks
             ~f:BatchListIncomingTypedLinksResponse.to_value));
        ("GetLinkAttributes",
          (Option.map x.getLinkAttributes
             ~f:BatchGetLinkAttributesResponse.to_value));
        ("ListObjectParents",
          (Option.map x.listObjectParents
             ~f:BatchListObjectParentsResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let listObjectParents =
        (Option.map ~f:BatchListObjectParentsResponse.of_xml)
          (Xml.child xml_arg0 "ListObjectParents") in
      let getLinkAttributes =
        (Option.map ~f:BatchGetLinkAttributesResponse.of_xml)
          (Xml.child xml_arg0 "GetLinkAttributes") in
      let listIncomingTypedLinks =
        (Option.map ~f:BatchListIncomingTypedLinksResponse.of_xml)
          (Xml.child xml_arg0 "ListIncomingTypedLinks") in
      let listOutgoingTypedLinks =
        (Option.map ~f:BatchListOutgoingTypedLinksResponse.of_xml)
          (Xml.child xml_arg0 "ListOutgoingTypedLinks") in
      let listIndex =
        (Option.map ~f:BatchListIndexResponse.of_xml)
          (Xml.child xml_arg0 "ListIndex") in
      let lookupPolicy =
        (Option.map ~f:BatchLookupPolicyResponse.of_xml)
          (Xml.child xml_arg0 "LookupPolicy") in
      let listPolicyAttachments =
        (Option.map ~f:BatchListPolicyAttachmentsResponse.of_xml)
          (Xml.child xml_arg0 "ListPolicyAttachments") in
      let listObjectPolicies =
        (Option.map ~f:BatchListObjectPoliciesResponse.of_xml)
          (Xml.child xml_arg0 "ListObjectPolicies") in
      let listObjectParentPaths =
        (Option.map ~f:BatchListObjectParentPathsResponse.of_xml)
          (Xml.child xml_arg0 "ListObjectParentPaths") in
      let listAttachedIndices =
        (Option.map ~f:BatchListAttachedIndicesResponse.of_xml)
          (Xml.child xml_arg0 "ListAttachedIndices") in
      let getObjectAttributes =
        (Option.map ~f:BatchGetObjectAttributesResponse.of_xml)
          (Xml.child xml_arg0 "GetObjectAttributes") in
      let getObjectInformation =
        (Option.map ~f:BatchGetObjectInformationResponse.of_xml)
          (Xml.child xml_arg0 "GetObjectInformation") in
      let listObjectChildren =
        (Option.map ~f:BatchListObjectChildrenResponse.of_xml)
          (Xml.child xml_arg0 "ListObjectChildren") in
      let listObjectAttributes =
        (Option.map ~f:BatchListObjectAttributesResponse.of_xml)
          (Xml.child xml_arg0 "ListObjectAttributes") in
      make ?listObjectParents ?getLinkAttributes ?listIncomingTypedLinks
        ?listOutgoingTypedLinks ?listIndex ?lookupPolicy
        ?listPolicyAttachments ?listObjectPolicies ?listObjectParentPaths
        ?listAttachedIndices ?getObjectAttributes ?getObjectInformation
        ?listObjectChildren ?listObjectAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let listObjectParents =
        field_map json__ "ListObjectParents"
          BatchListObjectParentsResponse.of_json in
      let getLinkAttributes =
        field_map json__ "GetLinkAttributes"
          BatchGetLinkAttributesResponse.of_json in
      let listIncomingTypedLinks =
        field_map json__ "ListIncomingTypedLinks"
          BatchListIncomingTypedLinksResponse.of_json in
      let listOutgoingTypedLinks =
        field_map json__ "ListOutgoingTypedLinks"
          BatchListOutgoingTypedLinksResponse.of_json in
      let listIndex =
        field_map json__ "ListIndex" BatchListIndexResponse.of_json in
      let lookupPolicy =
        field_map json__ "LookupPolicy" BatchLookupPolicyResponse.of_json in
      let listPolicyAttachments =
        field_map json__ "ListPolicyAttachments"
          BatchListPolicyAttachmentsResponse.of_json in
      let listObjectPolicies =
        field_map json__ "ListObjectPolicies"
          BatchListObjectPoliciesResponse.of_json in
      let listObjectParentPaths =
        field_map json__ "ListObjectParentPaths"
          BatchListObjectParentPathsResponse.of_json in
      let listAttachedIndices =
        field_map json__ "ListAttachedIndices"
          BatchListAttachedIndicesResponse.of_json in
      let getObjectAttributes =
        field_map json__ "GetObjectAttributes"
          BatchGetObjectAttributesResponse.of_json in
      let getObjectInformation =
        field_map json__ "GetObjectInformation"
          BatchGetObjectInformationResponse.of_json in
      let listObjectChildren =
        field_map json__ "ListObjectChildren"
          BatchListObjectChildrenResponse.of_json in
      let listObjectAttributes =
        field_map json__ "ListObjectAttributes"
          BatchListObjectAttributesResponse.of_json in
      make ?listObjectParents ?getLinkAttributes ?listIncomingTypedLinks
        ?listOutgoingTypedLinks ?listIndex ?lookupPolicy
        ?listPolicyAttachments ?listObjectPolicies ?listObjectParentPaths
        ?listAttachedIndices ?getObjectAttributes ?getObjectInformation
        ?listObjectChildren ?listObjectAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a BatchRead success response operation."]
module BatchGetLinkAttributes =
  struct
    type nonrec t =
      {
      typedLinkSpecifier: TypedLinkSpecifier.t
        [@ocaml.doc "Allows a typed link specifier to be accepted as input."];
      attributeNames: AttributeNameList.t
        [@ocaml.doc
          "A list of attribute names whose values will be retrieved."]}
    let context_ = "BatchGetLinkAttributes"
    let make ~typedLinkSpecifier =
      fun ~attributeNames -> fun () -> { typedLinkSpecifier; attributeNames }
    let to_value x =
      structure_to_value
        [("TypedLinkSpecifier",
           (Some (TypedLinkSpecifier.to_value x.typedLinkSpecifier)));
        ("AttributeNames",
          (Some (AttributeNameList.to_value x.attributeNames)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeNames =
        AttributeNameList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttributeNames") in
      let typedLinkSpecifier =
        TypedLinkSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TypedLinkSpecifier") in
      make ~attributeNames ~typedLinkSpecifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeNames =
        field_map_exn json__ "AttributeNames" AttributeNameList.of_json in
      let typedLinkSpecifier =
        field_map_exn json__ "TypedLinkSpecifier" TypedLinkSpecifier.of_json in
      make ~attributeNames ~typedLinkSpecifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves attributes that are associated with a typed link inside a BatchRead operation. For more information, see GetLinkAttributes and BatchReadRequest$Operations."]
module BatchGetObjectAttributes =
  struct
    type nonrec t =
      {
      objectReference: ObjectReference.t
        [@ocaml.doc
          "Reference that identifies the object whose attributes will be retrieved."];
      schemaFacet: SchemaFacet.t
        [@ocaml.doc
          "Identifier for the facet whose attributes will be retrieved. See SchemaFacet for details."];
      attributeNames: AttributeNameList.t
        [@ocaml.doc
          "List of attribute names whose values will be retrieved."]}
    let context_ = "BatchGetObjectAttributes"
    let make ~objectReference =
      fun ~schemaFacet ->
        fun ~attributeNames ->
          fun () -> { objectReference; schemaFacet; attributeNames }
    let to_value x =
      structure_to_value
        [("ObjectReference",
           (Some (ObjectReference.to_value x.objectReference)));
        ("SchemaFacet", (Some (SchemaFacet.to_value x.schemaFacet)));
        ("AttributeNames",
          (Some (AttributeNameList.to_value x.attributeNames)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeNames =
        AttributeNameList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttributeNames") in
      let schemaFacet =
        SchemaFacet.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SchemaFacet") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      make ~attributeNames ~schemaFacet ~objectReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeNames =
        field_map_exn json__ "AttributeNames" AttributeNameList.of_json in
      let schemaFacet =
        field_map_exn json__ "SchemaFacet" SchemaFacet.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      make ~attributeNames ~schemaFacet ~objectReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves attributes within a facet that are associated with an object inside an BatchRead operation. For more information, see GetObjectAttributes and BatchReadRequest$Operations."]
module BatchGetObjectInformation =
  struct
    type nonrec t =
      {
      objectReference: ObjectReference.t
        [@ocaml.doc "A reference to the object."]}
    let context_ = "BatchGetObjectInformation"
    let make ~objectReference = fun () -> { objectReference }
    let to_value x =
      structure_to_value
        [("ObjectReference",
           (Some (ObjectReference.to_value x.objectReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      make ~objectReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      make ~objectReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves metadata about an object inside a BatchRead operation. For more information, see GetObjectInformation and BatchReadRequest$Operations."]
module BatchListAttachedIndices =
  struct
    type nonrec t =
      {
      targetReference: ObjectReference.t
        [@ocaml.doc "A reference to the object that has indices attached."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let context_ = "BatchListAttachedIndices"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~targetReference ->
          fun () -> { nextToken; maxResults; targetReference }
    let to_value x =
      structure_to_value
        [("TargetReference",
           (Some (ObjectReference.to_value x.targetReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let targetReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetReference") in
      make ?maxResults ?nextToken ~targetReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let targetReference =
        field_map_exn json__ "TargetReference" ObjectReference.of_json in
      make ?maxResults ?nextToken ~targetReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists indices attached to an object inside a BatchRead operation. For more information, see ListAttachedIndices and BatchReadRequest$Operations."]
module BatchListIncomingTypedLinks =
  struct
    type nonrec t =
      {
      objectReference: ObjectReference.t
        [@ocaml.doc
          "The reference that identifies the object whose attributes will be listed."];
      filterAttributeRanges: TypedLinkAttributeRangeList.t option
        [@ocaml.doc
          "Provides range filters for multiple attributes. When providing ranges to typed link selection, any inexact ranges must be specified at the end. Any attributes that do not have a range specified are presumed to match the entire range."];
      filterTypedLink: TypedLinkSchemaAndFacetName.t option
        [@ocaml.doc
          "Filters are interpreted in the order of the attributes on the typed link facet, not the order in which they are supplied to any API calls."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let context_ = "BatchListIncomingTypedLinks"
    let make ?filterAttributeRanges =
      fun ?filterTypedLink ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~objectReference ->
              fun () ->
                {
                  filterAttributeRanges;
                  filterTypedLink;
                  nextToken;
                  maxResults;
                  objectReference
                }
    let to_value x =
      structure_to_value
        [("ObjectReference",
           (Some (ObjectReference.to_value x.objectReference)));
        ("FilterAttributeRanges",
          (Option.map x.filterAttributeRanges
             ~f:TypedLinkAttributeRangeList.to_value));
        ("FilterTypedLink",
          (Option.map x.filterTypedLink
             ~f:TypedLinkSchemaAndFacetName.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filterTypedLink =
        (Option.map ~f:TypedLinkSchemaAndFacetName.of_xml)
          (Xml.child xml_arg0 "FilterTypedLink") in
      let filterAttributeRanges =
        (Option.map ~f:TypedLinkAttributeRangeList.of_xml)
          (Xml.child xml_arg0 "FilterAttributeRanges") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      make ?maxResults ?nextToken ?filterTypedLink ?filterAttributeRanges
        ~objectReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filterTypedLink =
        field_map json__ "FilterTypedLink"
          TypedLinkSchemaAndFacetName.of_json in
      let filterAttributeRanges =
        field_map json__ "FilterAttributeRanges"
          TypedLinkAttributeRangeList.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      make ?maxResults ?nextToken ?filterTypedLink ?filterAttributeRanges
        ~objectReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a paginated list of all the incoming TypedLinkSpecifier information for an object inside a BatchRead operation. For more information, see ListIncomingTypedLinks and BatchReadRequest$Operations."]
module BatchListIndex =
  struct
    type nonrec t =
      {
      rangesOnIndexedValues: ObjectAttributeRangeList.t option
        [@ocaml.doc
          "Specifies the ranges of indexed values that you want to query."];
      indexReference: ObjectReference.t
        [@ocaml.doc "The reference to the index to list."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    let context_ = "BatchListIndex"
    let make ?rangesOnIndexedValues =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~indexReference ->
            fun () ->
              { rangesOnIndexedValues; maxResults; nextToken; indexReference
              }
    let to_value x =
      structure_to_value
        [("RangesOnIndexedValues",
           (Option.map x.rangesOnIndexedValues
              ~f:ObjectAttributeRangeList.to_value));
        ("IndexReference",
          (Some (ObjectReference.to_value x.indexReference)));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let indexReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IndexReference") in
      let rangesOnIndexedValues =
        (Option.map ~f:ObjectAttributeRangeList.of_xml)
          (Xml.child xml_arg0 "RangesOnIndexedValues") in
      make ?nextToken ?maxResults ~indexReference ?rangesOnIndexedValues ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let indexReference =
        field_map_exn json__ "IndexReference" ObjectReference.of_json in
      let rangesOnIndexedValues =
        field_map json__ "RangesOnIndexedValues"
          ObjectAttributeRangeList.of_json in
      make ?nextToken ?maxResults ~indexReference ?rangesOnIndexedValues ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists objects attached to the specified index inside a BatchRead operation. For more information, see ListIndex and BatchReadRequest$Operations."]
module BatchListObjectAttributes =
  struct
    type nonrec t =
      {
      objectReference: ObjectReference.t
        [@ocaml.doc
          "Reference of the object whose attributes need to be listed."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc
          "The maximum number of items to be retrieved in a single call. This is an approximate number."];
      facetFilter: SchemaFacet.t option
        [@ocaml.doc
          "Used to filter the list of object attributes that are associated with a certain facet."]}
    let context_ = "BatchListObjectAttributes"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?facetFilter ->
          fun ~objectReference ->
            fun () -> { nextToken; maxResults; facetFilter; objectReference }
    let to_value x =
      structure_to_value
        [("ObjectReference",
           (Some (ObjectReference.to_value x.objectReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value));
        ("FacetFilter", (Option.map x.facetFilter ~f:SchemaFacet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let facetFilter =
        (Option.map ~f:SchemaFacet.of_xml) (Xml.child xml_arg0 "FacetFilter") in
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      make ?facetFilter ?maxResults ?nextToken ~objectReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let facetFilter = field_map json__ "FacetFilter" SchemaFacet.of_json in
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      make ?facetFilter ?maxResults ?nextToken ~objectReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a ListObjectAttributes operation."]
module BatchListObjectChildren =
  struct
    type nonrec t =
      {
      objectReference: ObjectReference.t
        [@ocaml.doc
          "Reference of the object for which child objects are being listed."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc
          "Maximum number of items to be retrieved in a single call. This is an approximate number."]}
    let context_ = "BatchListObjectChildren"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~objectReference ->
          fun () -> { nextToken; maxResults; objectReference }
    let to_value x =
      structure_to_value
        [("ObjectReference",
           (Some (ObjectReference.to_value x.objectReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      make ?maxResults ?nextToken ~objectReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      make ?maxResults ?nextToken ~objectReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a ListObjectChildren operation."]
module BatchListObjectParentPaths =
  struct
    type nonrec t =
      {
      objectReference: ObjectReference.t
        [@ocaml.doc
          "The reference that identifies the object whose attributes will be listed."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let context_ = "BatchListObjectParentPaths"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~objectReference ->
          fun () -> { nextToken; maxResults; objectReference }
    let to_value x =
      structure_to_value
        [("ObjectReference",
           (Some (ObjectReference.to_value x.objectReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      make ?maxResults ?nextToken ~objectReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      make ?maxResults ?nextToken ~objectReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves all available parent paths for any object type such as node, leaf node, policy node, and index node objects inside a BatchRead operation. For more information, see ListObjectParentPaths and BatchReadRequest$Operations."]
module BatchListObjectParents =
  struct
    type nonrec t =
      {
      objectReference: ObjectReference.t ;
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc
          "The maximum number of items to be retrieved in a single call. This is an approximate number."]}
    let context_ = "BatchListObjectParents"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~objectReference ->
          fun () -> { nextToken; maxResults; objectReference }
    let to_value x =
      structure_to_value
        [("ObjectReference",
           (Some (ObjectReference.to_value x.objectReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      make ?maxResults ?nextToken ~objectReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      make ?maxResults ?nextToken ~objectReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists parent objects that are associated with a given object in pagination fashion."]
module BatchListObjectPolicies =
  struct
    type nonrec t =
      {
      objectReference: ObjectReference.t
        [@ocaml.doc
          "The reference that identifies the object whose attributes will be listed."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let context_ = "BatchListObjectPolicies"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~objectReference ->
          fun () -> { nextToken; maxResults; objectReference }
    let to_value x =
      structure_to_value
        [("ObjectReference",
           (Some (ObjectReference.to_value x.objectReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      make ?maxResults ?nextToken ~objectReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      make ?maxResults ?nextToken ~objectReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns policies attached to an object in pagination fashion inside a BatchRead operation. For more information, see ListObjectPolicies and BatchReadRequest$Operations."]
module BatchListOutgoingTypedLinks =
  struct
    type nonrec t =
      {
      objectReference: ObjectReference.t
        [@ocaml.doc
          "The reference that identifies the object whose attributes will be listed."];
      filterAttributeRanges: TypedLinkAttributeRangeList.t option
        [@ocaml.doc
          "Provides range filters for multiple attributes. When providing ranges to typed link selection, any inexact ranges must be specified at the end. Any attributes that do not have a range specified are presumed to match the entire range."];
      filterTypedLink: TypedLinkSchemaAndFacetName.t option
        [@ocaml.doc
          "Filters are interpreted in the order of the attributes defined on the typed link facet, not the order they are supplied to any API calls."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let context_ = "BatchListOutgoingTypedLinks"
    let make ?filterAttributeRanges =
      fun ?filterTypedLink ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~objectReference ->
              fun () ->
                {
                  filterAttributeRanges;
                  filterTypedLink;
                  nextToken;
                  maxResults;
                  objectReference
                }
    let to_value x =
      structure_to_value
        [("ObjectReference",
           (Some (ObjectReference.to_value x.objectReference)));
        ("FilterAttributeRanges",
          (Option.map x.filterAttributeRanges
             ~f:TypedLinkAttributeRangeList.to_value));
        ("FilterTypedLink",
          (Option.map x.filterTypedLink
             ~f:TypedLinkSchemaAndFacetName.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filterTypedLink =
        (Option.map ~f:TypedLinkSchemaAndFacetName.of_xml)
          (Xml.child xml_arg0 "FilterTypedLink") in
      let filterAttributeRanges =
        (Option.map ~f:TypedLinkAttributeRangeList.of_xml)
          (Xml.child xml_arg0 "FilterAttributeRanges") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      make ?maxResults ?nextToken ?filterTypedLink ?filterAttributeRanges
        ~objectReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filterTypedLink =
        field_map json__ "FilterTypedLink"
          TypedLinkSchemaAndFacetName.of_json in
      let filterAttributeRanges =
        field_map json__ "FilterAttributeRanges"
          TypedLinkAttributeRangeList.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      make ?maxResults ?nextToken ?filterTypedLink ?filterAttributeRanges
        ~objectReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a paginated list of all the outgoing TypedLinkSpecifier information for an object inside a BatchRead operation. For more information, see ListOutgoingTypedLinks and BatchReadRequest$Operations."]
module BatchListPolicyAttachments =
  struct
    type nonrec t =
      {
      policyReference: ObjectReference.t
        [@ocaml.doc "The reference that identifies the policy object."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let context_ = "BatchListPolicyAttachments"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~policyReference ->
          fun () -> { nextToken; maxResults; policyReference }
    let to_value x =
      structure_to_value
        [("PolicyReference",
           (Some (ObjectReference.to_value x.policyReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let policyReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyReference") in
      make ?maxResults ?nextToken ~policyReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let policyReference =
        field_map_exn json__ "PolicyReference" ObjectReference.of_json in
      make ?maxResults ?nextToken ~policyReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns all of the ObjectIdentifiers to which a given policy is attached inside a BatchRead operation. For more information, see ListPolicyAttachments and BatchReadRequest$Operations."]
module BatchLookupPolicy =
  struct
    type nonrec t =
      {
      objectReference: ObjectReference.t
        [@ocaml.doc
          "Reference that identifies the object whose policies will be looked up."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let context_ = "BatchLookupPolicy"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~objectReference ->
          fun () -> { nextToken; maxResults; objectReference }
    let to_value x =
      structure_to_value
        [("ObjectReference",
           (Some (ObjectReference.to_value x.objectReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      make ?maxResults ?nextToken ~objectReference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      make ?maxResults ?nextToken ~objectReference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all policies from the root of the Directory to the object specified inside a BatchRead operation. For more information, see LookupPolicy and BatchReadRequest$Operations."]
module TypedLinkFacetAttributeUpdate =
  struct
    type nonrec t =
      {
      attribute: TypedLinkAttributeDefinition.t
        [@ocaml.doc "The attribute to update."];
      action: UpdateActionType.t
        [@ocaml.doc "The action to perform when updating the attribute."]}
    let context_ = "TypedLinkFacetAttributeUpdate"
    let make ~attribute = fun ~action -> fun () -> { attribute; action }
    let to_value x =
      structure_to_value
        [("Attribute",
           (Some (TypedLinkAttributeDefinition.to_value x.attribute)));
        ("Action", (Some (UpdateActionType.to_value x.action)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let action =
        UpdateActionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Action") in
      let attribute =
        TypedLinkAttributeDefinition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Attribute") in
      make ~action ~attribute ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let action = field_map_exn json__ "Action" UpdateActionType.of_json in
      let attribute =
        field_map_exn json__ "Attribute" TypedLinkAttributeDefinition.of_json in
      make ~action ~attribute ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A typed link facet attribute update."]
module FacetAttributeUpdate =
  struct
    type nonrec t =
      {
      attribute: FacetAttribute.t option
        [@ocaml.doc "The attribute to update."];
      action: UpdateActionType.t option
        [@ocaml.doc "The action to perform when updating the attribute."]}
    let make ?attribute = fun ?action -> fun () -> { attribute; action }
    let to_value x =
      structure_to_value
        [("Attribute", (Option.map x.attribute ~f:FacetAttribute.to_value));
        ("Action", (Option.map x.action ~f:UpdateActionType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let action =
        (Option.map ~f:UpdateActionType.of_xml) (Xml.child xml_arg0 "Action") in
      let attribute =
        (Option.map ~f:FacetAttribute.of_xml)
          (Xml.child xml_arg0 "Attribute") in
      make ?action ?attribute ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let action = field_map json__ "Action" UpdateActionType.of_json in
      let attribute = field_map json__ "Attribute" FacetAttribute.of_json in
      make ?action ?attribute ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains information used to update an attribute."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t option
        [@ocaml.doc "The key that is associated with the tag."];
      value: TagValue.t option
        [@ocaml.doc "The value that is associated with the tag."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:TagKey.to_value));
        ("Value", (Option.map x.value ~f:TagValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:TagValue.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:TagKey.of_xml) (Xml.child xml_arg0 "Key") in
      make ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" TagValue.of_json in
      let key = field_map json__ "Key" TagKey.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The tag structure that contains a tag key and value."]
module Directory =
  struct
    type nonrec t =
      {
      name: DirectoryName.t option [@ocaml.doc "The name of the directory."];
      directoryArn: DirectoryArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the directory. For more information, see arns."];
      state: DirectoryState.t option
        [@ocaml.doc
          "The state of the directory. Can be either Enabled, Disabled, or Deleted."];
      creationDateTime: Date.t option
        [@ocaml.doc "The date and time when the directory was created."]}
    let make ?name =
      fun ?directoryArn ->
        fun ?state ->
          fun ?creationDateTime ->
            fun () -> { name; directoryArn; state; creationDateTime }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:DirectoryName.to_value));
        ("DirectoryArn",
          (Option.map x.directoryArn ~f:DirectoryArn.to_value));
        ("State", (Option.map x.state ~f:DirectoryState.to_value));
        ("CreationDateTime",
          (Option.map x.creationDateTime ~f:Date.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationDateTime =
        (Option.map ~f:Date.of_xml) (Xml.child xml_arg0 "CreationDateTime") in
      let state =
        (Option.map ~f:DirectoryState.of_xml) (Xml.child xml_arg0 "State") in
      let directoryArn =
        (Option.map ~f:DirectoryArn.of_xml)
          (Xml.child xml_arg0 "DirectoryArn") in
      let name =
        (Option.map ~f:DirectoryName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?creationDateTime ?state ?directoryArn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationDateTime = field_map json__ "CreationDateTime" Date.of_json in
      let state = field_map json__ "State" DirectoryState.of_json in
      let directoryArn = field_map json__ "DirectoryArn" DirectoryArn.of_json in
      let name = field_map json__ "Name" DirectoryName.of_json in
      make ?creationDateTime ?state ?directoryArn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Directory structure that includes the directory name and directory ARN."]
module FacetStyle =
  struct
    type nonrec t =
      | STATIC 
      | DYNAMIC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STATIC -> "STATIC"
      | DYNAMIC -> "DYNAMIC"
      | Non_static_id s -> s
    let of_string =
      function
      | "STATIC" -> STATIC
      | "DYNAMIC" -> DYNAMIC
      | 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 FacetStyle" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FacetStyle" j)
    let to_json = simple_to_json to_value
  end
module ObjectType =
  struct
    type nonrec t =
      | NODE 
      | LEAF_NODE 
      | POLICY 
      | INDEX 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NODE -> "NODE"
      | LEAF_NODE -> "LEAF_NODE"
      | POLICY -> "POLICY"
      | INDEX -> "INDEX"
      | Non_static_id s -> s
    let of_string =
      function
      | "NODE" -> NODE
      | "LEAF_NODE" -> LEAF_NODE
      | "POLICY" -> POLICY
      | "INDEX" -> INDEX
      | 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 ObjectType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ObjectType" j)
    let to_json = simple_to_json to_value
  end
module TypedLinkAttributeDefinitionList =
  struct
    type nonrec t = TypedLinkAttributeDefinition.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:TypedLinkAttributeDefinition.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:TypedLinkAttributeDefinition.of_xml)
    let of_json j =
      list_of_json ~kind:"TypedLinkAttributeDefinitionList"
        ~of_json:TypedLinkAttributeDefinition.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchOperationIndex =
  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 BatchOperationIndex" 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 BatchWriteExceptionType =
  struct
    type nonrec t =
      | InternalServiceException 
      | ValidationException 
      | InvalidArnException 
      | LinkNameAlreadyInUseException 
      | StillContainsLinksException 
      | FacetValidationException 
      | ObjectNotDetachedException 
      | ResourceNotFoundException 
      | AccessDeniedException 
      | InvalidAttachmentException 
      | NotIndexException 
      | NotNodeException 
      | IndexedAttributeMissingException 
      | ObjectAlreadyDetachedException 
      | NotPolicyException 
      | DirectoryNotEnabledException 
      | LimitExceededException 
      | UnsupportedIndexTypeException 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | InternalServiceException -> "InternalServiceException"
      | ValidationException -> "ValidationException"
      | InvalidArnException -> "InvalidArnException"
      | LinkNameAlreadyInUseException -> "LinkNameAlreadyInUseException"
      | StillContainsLinksException -> "StillContainsLinksException"
      | FacetValidationException -> "FacetValidationException"
      | ObjectNotDetachedException -> "ObjectNotDetachedException"
      | ResourceNotFoundException -> "ResourceNotFoundException"
      | AccessDeniedException -> "AccessDeniedException"
      | InvalidAttachmentException -> "InvalidAttachmentException"
      | NotIndexException -> "NotIndexException"
      | NotNodeException -> "NotNodeException"
      | IndexedAttributeMissingException ->
          "IndexedAttributeMissingException"
      | ObjectAlreadyDetachedException -> "ObjectAlreadyDetachedException"
      | NotPolicyException -> "NotPolicyException"
      | DirectoryNotEnabledException -> "DirectoryNotEnabledException"
      | LimitExceededException -> "LimitExceededException"
      | UnsupportedIndexTypeException -> "UnsupportedIndexTypeException"
      | Non_static_id s -> s
    let of_string =
      function
      | "InternalServiceException" -> InternalServiceException
      | "ValidationException" -> ValidationException
      | "InvalidArnException" -> InvalidArnException
      | "LinkNameAlreadyInUseException" -> LinkNameAlreadyInUseException
      | "StillContainsLinksException" -> StillContainsLinksException
      | "FacetValidationException" -> FacetValidationException
      | "ObjectNotDetachedException" -> ObjectNotDetachedException
      | "ResourceNotFoundException" -> ResourceNotFoundException
      | "AccessDeniedException" -> AccessDeniedException
      | "InvalidAttachmentException" -> InvalidAttachmentException
      | "NotIndexException" -> NotIndexException
      | "NotNodeException" -> NotNodeException
      | "IndexedAttributeMissingException" ->
          IndexedAttributeMissingException
      | "ObjectAlreadyDetachedException" -> ObjectAlreadyDetachedException
      | "NotPolicyException" -> NotPolicyException
      | "DirectoryNotEnabledException" -> DirectoryNotEnabledException
      | "LimitExceededException" -> LimitExceededException
      | "UnsupportedIndexTypeException" -> UnsupportedIndexTypeException
      | 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 BatchWriteExceptionType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BatchWriteExceptionType" j)
    let to_json = simple_to_json to_value
  end
module BatchWriteOperationResponse =
  struct
    type nonrec t =
      {
      createObject: BatchCreateObjectResponse.t option
        [@ocaml.doc "Creates an object in a Directory."];
      attachObject: BatchAttachObjectResponse.t option
        [@ocaml.doc "Attaches an object to a Directory."];
      detachObject: BatchDetachObjectResponse.t option
        [@ocaml.doc "Detaches an object from a Directory."];
      updateObjectAttributes: BatchUpdateObjectAttributesResponse.t option
        [@ocaml.doc "Updates a given object\226\128\153s attributes."];
      deleteObject: BatchDeleteObjectResponse.t option
        [@ocaml.doc "Deletes an object in a Directory."];
      addFacetToObject: BatchAddFacetToObjectResponse.t option
        [@ocaml.doc "The result of an add facet to object batch operation."];
      removeFacetFromObject: BatchRemoveFacetFromObjectResponse.t option
        [@ocaml.doc
          "The result of a batch remove facet from object operation."];
      attachPolicy: BatchAttachPolicyResponse.t option
        [@ocaml.doc
          "Attaches a policy object to a regular object. An object can have a limited number of attached policies."];
      detachPolicy: BatchDetachPolicyResponse.t option
        [@ocaml.doc "Detaches a policy from a Directory."];
      createIndex: BatchCreateIndexResponse.t option
        [@ocaml.doc
          "Creates an index object. See Indexing and search for more information."];
      attachToIndex: BatchAttachToIndexResponse.t option
        [@ocaml.doc "Attaches the specified object to the specified index."];
      detachFromIndex: BatchDetachFromIndexResponse.t option
        [@ocaml.doc
          "Detaches the specified object from the specified index."];
      attachTypedLink: BatchAttachTypedLinkResponse.t option
        [@ocaml.doc
          "Attaches a typed link to a specified source and target object. For more information, see Typed Links."];
      detachTypedLink: BatchDetachTypedLinkResponse.t option
        [@ocaml.doc
          "Detaches a typed link from a specified source and target object. For more information, see Typed Links."];
      updateLinkAttributes: BatchUpdateLinkAttributesResponse.t option
        [@ocaml.doc
          "Represents the output of a BatchWrite response operation."]}
    let make ?createObject =
      fun ?attachObject ->
        fun ?detachObject ->
          fun ?updateObjectAttributes ->
            fun ?deleteObject ->
              fun ?addFacetToObject ->
                fun ?removeFacetFromObject ->
                  fun ?attachPolicy ->
                    fun ?detachPolicy ->
                      fun ?createIndex ->
                        fun ?attachToIndex ->
                          fun ?detachFromIndex ->
                            fun ?attachTypedLink ->
                              fun ?detachTypedLink ->
                                fun ?updateLinkAttributes ->
                                  fun () ->
                                    {
                                      createObject;
                                      attachObject;
                                      detachObject;
                                      updateObjectAttributes;
                                      deleteObject;
                                      addFacetToObject;
                                      removeFacetFromObject;
                                      attachPolicy;
                                      detachPolicy;
                                      createIndex;
                                      attachToIndex;
                                      detachFromIndex;
                                      attachTypedLink;
                                      detachTypedLink;
                                      updateLinkAttributes
                                    }
    let to_value x =
      structure_to_value
        [("CreateObject",
           (Option.map x.createObject ~f:BatchCreateObjectResponse.to_value));
        ("AttachObject",
          (Option.map x.attachObject ~f:BatchAttachObjectResponse.to_value));
        ("DetachObject",
          (Option.map x.detachObject ~f:BatchDetachObjectResponse.to_value));
        ("UpdateObjectAttributes",
          (Option.map x.updateObjectAttributes
             ~f:BatchUpdateObjectAttributesResponse.to_value));
        ("DeleteObject",
          (Option.map x.deleteObject ~f:BatchDeleteObjectResponse.to_value));
        ("AddFacetToObject",
          (Option.map x.addFacetToObject
             ~f:BatchAddFacetToObjectResponse.to_value));
        ("RemoveFacetFromObject",
          (Option.map x.removeFacetFromObject
             ~f:BatchRemoveFacetFromObjectResponse.to_value));
        ("AttachPolicy",
          (Option.map x.attachPolicy ~f:BatchAttachPolicyResponse.to_value));
        ("DetachPolicy",
          (Option.map x.detachPolicy ~f:BatchDetachPolicyResponse.to_value));
        ("CreateIndex",
          (Option.map x.createIndex ~f:BatchCreateIndexResponse.to_value));
        ("AttachToIndex",
          (Option.map x.attachToIndex ~f:BatchAttachToIndexResponse.to_value));
        ("DetachFromIndex",
          (Option.map x.detachFromIndex
             ~f:BatchDetachFromIndexResponse.to_value));
        ("AttachTypedLink",
          (Option.map x.attachTypedLink
             ~f:BatchAttachTypedLinkResponse.to_value));
        ("DetachTypedLink",
          (Option.map x.detachTypedLink
             ~f:BatchDetachTypedLinkResponse.to_value));
        ("UpdateLinkAttributes",
          (Option.map x.updateLinkAttributes
             ~f:BatchUpdateLinkAttributesResponse.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateLinkAttributes =
        (Option.map ~f:BatchUpdateLinkAttributesResponse.of_xml)
          (Xml.child xml_arg0 "UpdateLinkAttributes") in
      let detachTypedLink =
        (Option.map ~f:BatchDetachTypedLinkResponse.of_xml)
          (Xml.child xml_arg0 "DetachTypedLink") in
      let attachTypedLink =
        (Option.map ~f:BatchAttachTypedLinkResponse.of_xml)
          (Xml.child xml_arg0 "AttachTypedLink") in
      let detachFromIndex =
        (Option.map ~f:BatchDetachFromIndexResponse.of_xml)
          (Xml.child xml_arg0 "DetachFromIndex") in
      let attachToIndex =
        (Option.map ~f:BatchAttachToIndexResponse.of_xml)
          (Xml.child xml_arg0 "AttachToIndex") in
      let createIndex =
        (Option.map ~f:BatchCreateIndexResponse.of_xml)
          (Xml.child xml_arg0 "CreateIndex") in
      let detachPolicy =
        (Option.map ~f:BatchDetachPolicyResponse.of_xml)
          (Xml.child xml_arg0 "DetachPolicy") in
      let attachPolicy =
        (Option.map ~f:BatchAttachPolicyResponse.of_xml)
          (Xml.child xml_arg0 "AttachPolicy") in
      let removeFacetFromObject =
        (Option.map ~f:BatchRemoveFacetFromObjectResponse.of_xml)
          (Xml.child xml_arg0 "RemoveFacetFromObject") in
      let addFacetToObject =
        (Option.map ~f:BatchAddFacetToObjectResponse.of_xml)
          (Xml.child xml_arg0 "AddFacetToObject") in
      let deleteObject =
        (Option.map ~f:BatchDeleteObjectResponse.of_xml)
          (Xml.child xml_arg0 "DeleteObject") in
      let updateObjectAttributes =
        (Option.map ~f:BatchUpdateObjectAttributesResponse.of_xml)
          (Xml.child xml_arg0 "UpdateObjectAttributes") in
      let detachObject =
        (Option.map ~f:BatchDetachObjectResponse.of_xml)
          (Xml.child xml_arg0 "DetachObject") in
      let attachObject =
        (Option.map ~f:BatchAttachObjectResponse.of_xml)
          (Xml.child xml_arg0 "AttachObject") in
      let createObject =
        (Option.map ~f:BatchCreateObjectResponse.of_xml)
          (Xml.child xml_arg0 "CreateObject") in
      make ?updateLinkAttributes ?detachTypedLink ?attachTypedLink
        ?detachFromIndex ?attachToIndex ?createIndex ?detachPolicy
        ?attachPolicy ?removeFacetFromObject ?addFacetToObject ?deleteObject
        ?updateObjectAttributes ?detachObject ?attachObject ?createObject ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateLinkAttributes =
        field_map json__ "UpdateLinkAttributes"
          BatchUpdateLinkAttributesResponse.of_json in
      let detachTypedLink =
        field_map json__ "DetachTypedLink"
          BatchDetachTypedLinkResponse.of_json in
      let attachTypedLink =
        field_map json__ "AttachTypedLink"
          BatchAttachTypedLinkResponse.of_json in
      let detachFromIndex =
        field_map json__ "DetachFromIndex"
          BatchDetachFromIndexResponse.of_json in
      let attachToIndex =
        field_map json__ "AttachToIndex" BatchAttachToIndexResponse.of_json in
      let createIndex =
        field_map json__ "CreateIndex" BatchCreateIndexResponse.of_json in
      let detachPolicy =
        field_map json__ "DetachPolicy" BatchDetachPolicyResponse.of_json in
      let attachPolicy =
        field_map json__ "AttachPolicy" BatchAttachPolicyResponse.of_json in
      let removeFacetFromObject =
        field_map json__ "RemoveFacetFromObject"
          BatchRemoveFacetFromObjectResponse.of_json in
      let addFacetToObject =
        field_map json__ "AddFacetToObject"
          BatchAddFacetToObjectResponse.of_json in
      let deleteObject =
        field_map json__ "DeleteObject" BatchDeleteObjectResponse.of_json in
      let updateObjectAttributes =
        field_map json__ "UpdateObjectAttributes"
          BatchUpdateObjectAttributesResponse.of_json in
      let detachObject =
        field_map json__ "DetachObject" BatchDetachObjectResponse.of_json in
      let attachObject =
        field_map json__ "AttachObject" BatchAttachObjectResponse.of_json in
      let createObject =
        field_map json__ "CreateObject" BatchCreateObjectResponse.of_json in
      make ?updateLinkAttributes ?detachTypedLink ?attachTypedLink
        ?detachFromIndex ?attachToIndex ?createIndex ?detachPolicy
        ?attachPolicy ?removeFacetFromObject ?addFacetToObject ?deleteObject
        ?updateObjectAttributes ?detachObject ?attachObject ?createObject ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a BatchWrite response operation."]
module BatchWriteOperation =
  struct
    type nonrec t =
      {
      createObject: BatchCreateObject.t option
        [@ocaml.doc "Creates an object."];
      attachObject: BatchAttachObject.t option
        [@ocaml.doc "Attaches an object to a Directory."];
      detachObject: BatchDetachObject.t option
        [@ocaml.doc "Detaches an object from a Directory."];
      updateObjectAttributes: BatchUpdateObjectAttributes.t option
        [@ocaml.doc "Updates a given object's attributes."];
      deleteObject: BatchDeleteObject.t option
        [@ocaml.doc "Deletes an object in a Directory."];
      addFacetToObject: BatchAddFacetToObject.t option
        [@ocaml.doc "A batch operation that adds a facet to an object."];
      removeFacetFromObject: BatchRemoveFacetFromObject.t option
        [@ocaml.doc "A batch operation that removes a facet from an object."];
      attachPolicy: BatchAttachPolicy.t option
        [@ocaml.doc
          "Attaches a policy object to a regular object. An object can have a limited number of attached policies."];
      detachPolicy: BatchDetachPolicy.t option
        [@ocaml.doc "Detaches a policy from a Directory."];
      createIndex: BatchCreateIndex.t option
        [@ocaml.doc
          "Creates an index object. See Indexing and search for more information."];
      attachToIndex: BatchAttachToIndex.t option
        [@ocaml.doc "Attaches the specified object to the specified index."];
      detachFromIndex: BatchDetachFromIndex.t option
        [@ocaml.doc
          "Detaches the specified object from the specified index."];
      attachTypedLink: BatchAttachTypedLink.t option
        [@ocaml.doc
          "Attaches a typed link to a specified source and target object. For more information, see Typed Links."];
      detachTypedLink: BatchDetachTypedLink.t option
        [@ocaml.doc
          "Detaches a typed link from a specified source and target object. For more information, see Typed Links."];
      updateLinkAttributes: BatchUpdateLinkAttributes.t option
        [@ocaml.doc "Updates a given object's attributes."]}
    let make ?createObject =
      fun ?attachObject ->
        fun ?detachObject ->
          fun ?updateObjectAttributes ->
            fun ?deleteObject ->
              fun ?addFacetToObject ->
                fun ?removeFacetFromObject ->
                  fun ?attachPolicy ->
                    fun ?detachPolicy ->
                      fun ?createIndex ->
                        fun ?attachToIndex ->
                          fun ?detachFromIndex ->
                            fun ?attachTypedLink ->
                              fun ?detachTypedLink ->
                                fun ?updateLinkAttributes ->
                                  fun () ->
                                    {
                                      createObject;
                                      attachObject;
                                      detachObject;
                                      updateObjectAttributes;
                                      deleteObject;
                                      addFacetToObject;
                                      removeFacetFromObject;
                                      attachPolicy;
                                      detachPolicy;
                                      createIndex;
                                      attachToIndex;
                                      detachFromIndex;
                                      attachTypedLink;
                                      detachTypedLink;
                                      updateLinkAttributes
                                    }
    let to_value x =
      structure_to_value
        [("CreateObject",
           (Option.map x.createObject ~f:BatchCreateObject.to_value));
        ("AttachObject",
          (Option.map x.attachObject ~f:BatchAttachObject.to_value));
        ("DetachObject",
          (Option.map x.detachObject ~f:BatchDetachObject.to_value));
        ("UpdateObjectAttributes",
          (Option.map x.updateObjectAttributes
             ~f:BatchUpdateObjectAttributes.to_value));
        ("DeleteObject",
          (Option.map x.deleteObject ~f:BatchDeleteObject.to_value));
        ("AddFacetToObject",
          (Option.map x.addFacetToObject ~f:BatchAddFacetToObject.to_value));
        ("RemoveFacetFromObject",
          (Option.map x.removeFacetFromObject
             ~f:BatchRemoveFacetFromObject.to_value));
        ("AttachPolicy",
          (Option.map x.attachPolicy ~f:BatchAttachPolicy.to_value));
        ("DetachPolicy",
          (Option.map x.detachPolicy ~f:BatchDetachPolicy.to_value));
        ("CreateIndex",
          (Option.map x.createIndex ~f:BatchCreateIndex.to_value));
        ("AttachToIndex",
          (Option.map x.attachToIndex ~f:BatchAttachToIndex.to_value));
        ("DetachFromIndex",
          (Option.map x.detachFromIndex ~f:BatchDetachFromIndex.to_value));
        ("AttachTypedLink",
          (Option.map x.attachTypedLink ~f:BatchAttachTypedLink.to_value));
        ("DetachTypedLink",
          (Option.map x.detachTypedLink ~f:BatchDetachTypedLink.to_value));
        ("UpdateLinkAttributes",
          (Option.map x.updateLinkAttributes
             ~f:BatchUpdateLinkAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateLinkAttributes =
        (Option.map ~f:BatchUpdateLinkAttributes.of_xml)
          (Xml.child xml_arg0 "UpdateLinkAttributes") in
      let detachTypedLink =
        (Option.map ~f:BatchDetachTypedLink.of_xml)
          (Xml.child xml_arg0 "DetachTypedLink") in
      let attachTypedLink =
        (Option.map ~f:BatchAttachTypedLink.of_xml)
          (Xml.child xml_arg0 "AttachTypedLink") in
      let detachFromIndex =
        (Option.map ~f:BatchDetachFromIndex.of_xml)
          (Xml.child xml_arg0 "DetachFromIndex") in
      let attachToIndex =
        (Option.map ~f:BatchAttachToIndex.of_xml)
          (Xml.child xml_arg0 "AttachToIndex") in
      let createIndex =
        (Option.map ~f:BatchCreateIndex.of_xml)
          (Xml.child xml_arg0 "CreateIndex") in
      let detachPolicy =
        (Option.map ~f:BatchDetachPolicy.of_xml)
          (Xml.child xml_arg0 "DetachPolicy") in
      let attachPolicy =
        (Option.map ~f:BatchAttachPolicy.of_xml)
          (Xml.child xml_arg0 "AttachPolicy") in
      let removeFacetFromObject =
        (Option.map ~f:BatchRemoveFacetFromObject.of_xml)
          (Xml.child xml_arg0 "RemoveFacetFromObject") in
      let addFacetToObject =
        (Option.map ~f:BatchAddFacetToObject.of_xml)
          (Xml.child xml_arg0 "AddFacetToObject") in
      let deleteObject =
        (Option.map ~f:BatchDeleteObject.of_xml)
          (Xml.child xml_arg0 "DeleteObject") in
      let updateObjectAttributes =
        (Option.map ~f:BatchUpdateObjectAttributes.of_xml)
          (Xml.child xml_arg0 "UpdateObjectAttributes") in
      let detachObject =
        (Option.map ~f:BatchDetachObject.of_xml)
          (Xml.child xml_arg0 "DetachObject") in
      let attachObject =
        (Option.map ~f:BatchAttachObject.of_xml)
          (Xml.child xml_arg0 "AttachObject") in
      let createObject =
        (Option.map ~f:BatchCreateObject.of_xml)
          (Xml.child xml_arg0 "CreateObject") in
      make ?updateLinkAttributes ?detachTypedLink ?attachTypedLink
        ?detachFromIndex ?attachToIndex ?createIndex ?detachPolicy
        ?attachPolicy ?removeFacetFromObject ?addFacetToObject ?deleteObject
        ?updateObjectAttributes ?detachObject ?attachObject ?createObject ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateLinkAttributes =
        field_map json__ "UpdateLinkAttributes"
          BatchUpdateLinkAttributes.of_json in
      let detachTypedLink =
        field_map json__ "DetachTypedLink" BatchDetachTypedLink.of_json in
      let attachTypedLink =
        field_map json__ "AttachTypedLink" BatchAttachTypedLink.of_json in
      let detachFromIndex =
        field_map json__ "DetachFromIndex" BatchDetachFromIndex.of_json in
      let attachToIndex =
        field_map json__ "AttachToIndex" BatchAttachToIndex.of_json in
      let createIndex =
        field_map json__ "CreateIndex" BatchCreateIndex.of_json in
      let detachPolicy =
        field_map json__ "DetachPolicy" BatchDetachPolicy.of_json in
      let attachPolicy =
        field_map json__ "AttachPolicy" BatchAttachPolicy.of_json in
      let removeFacetFromObject =
        field_map json__ "RemoveFacetFromObject"
          BatchRemoveFacetFromObject.of_json in
      let addFacetToObject =
        field_map json__ "AddFacetToObject" BatchAddFacetToObject.of_json in
      let deleteObject =
        field_map json__ "DeleteObject" BatchDeleteObject.of_json in
      let updateObjectAttributes =
        field_map json__ "UpdateObjectAttributes"
          BatchUpdateObjectAttributes.of_json in
      let detachObject =
        field_map json__ "DetachObject" BatchDetachObject.of_json in
      let attachObject =
        field_map json__ "AttachObject" BatchAttachObject.of_json in
      let createObject =
        field_map json__ "CreateObject" BatchCreateObject.of_json in
      make ?updateLinkAttributes ?detachTypedLink ?attachTypedLink
        ?detachFromIndex ?attachToIndex ?createIndex ?detachPolicy
        ?attachPolicy ?removeFacetFromObject ?addFacetToObject ?deleteObject
        ?updateObjectAttributes ?detachObject ?attachObject ?createObject ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a BatchWrite operation."]
module BatchReadOperationResponse =
  struct
    type nonrec t =
      {
      successfulResponse: BatchReadSuccessfulResponse.t option
        [@ocaml.doc "Identifies which operation in a batch has succeeded."];
      exceptionResponse: BatchReadException.t option
        [@ocaml.doc "Identifies which operation in a batch has failed."]}
    let make ?successfulResponse =
      fun ?exceptionResponse ->
        fun () -> { successfulResponse; exceptionResponse }
    let to_value x =
      structure_to_value
        [("SuccessfulResponse",
           (Option.map x.successfulResponse
              ~f:BatchReadSuccessfulResponse.to_value));
        ("ExceptionResponse",
          (Option.map x.exceptionResponse ~f:BatchReadException.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exceptionResponse =
        (Option.map ~f:BatchReadException.of_xml)
          (Xml.child xml_arg0 "ExceptionResponse") in
      let successfulResponse =
        (Option.map ~f:BatchReadSuccessfulResponse.of_xml)
          (Xml.child xml_arg0 "SuccessfulResponse") in
      make ?exceptionResponse ?successfulResponse ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exceptionResponse =
        field_map json__ "ExceptionResponse" BatchReadException.of_json in
      let successfulResponse =
        field_map json__ "SuccessfulResponse"
          BatchReadSuccessfulResponse.of_json in
      make ?exceptionResponse ?successfulResponse ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a BatchRead response operation."]
module BatchReadOperation =
  struct
    type nonrec t =
      {
      listObjectAttributes: BatchListObjectAttributes.t option
        [@ocaml.doc
          "Lists all attributes that are associated with an object."];
      listObjectChildren: BatchListObjectChildren.t option
        [@ocaml.doc
          "Returns a paginated list of child objects that are associated with a given object."];
      listAttachedIndices: BatchListAttachedIndices.t option
        [@ocaml.doc "Lists indices attached to an object."];
      listObjectParentPaths: BatchListObjectParentPaths.t option
        [@ocaml.doc
          "Retrieves all available parent paths for any object type such as node, leaf node, policy node, and index node objects. For more information about objects, see Directory Structure."];
      getObjectInformation: BatchGetObjectInformation.t option
        [@ocaml.doc "Retrieves metadata about an object."];
      getObjectAttributes: BatchGetObjectAttributes.t option
        [@ocaml.doc
          "Retrieves attributes within a facet that are associated with an object."];
      listObjectParents: BatchListObjectParents.t option
        [@ocaml.doc
          "Lists parent objects that are associated with a given object in pagination fashion."];
      listObjectPolicies: BatchListObjectPolicies.t option
        [@ocaml.doc
          "Returns policies attached to an object in pagination fashion."];
      listPolicyAttachments: BatchListPolicyAttachments.t option
        [@ocaml.doc
          "Returns all of the ObjectIdentifiers to which a given policy is attached."];
      lookupPolicy: BatchLookupPolicy.t option
        [@ocaml.doc
          "Lists all policies from the root of the Directory to the object specified. If there are no policies present, an empty list is returned. If policies are present, and if some objects don't have the policies attached, it returns the ObjectIdentifier for such objects. If policies are present, it returns ObjectIdentifier, policyId, and policyType. Paths that don't lead to the root from the target object are ignored. For more information, see Policies."];
      listIndex: BatchListIndex.t option
        [@ocaml.doc "Lists objects attached to the specified index."];
      listOutgoingTypedLinks: BatchListOutgoingTypedLinks.t option
        [@ocaml.doc
          "Returns a paginated list of all the outgoing TypedLinkSpecifier information for an object. It also supports filtering by typed link facet and identity attributes. For more information, see Typed Links."];
      listIncomingTypedLinks: BatchListIncomingTypedLinks.t option
        [@ocaml.doc
          "Returns a paginated list of all the incoming TypedLinkSpecifier information for an object. It also supports filtering by typed link facet and identity attributes. For more information, see Typed Links."];
      getLinkAttributes: BatchGetLinkAttributes.t option
        [@ocaml.doc
          "Retrieves attributes that are associated with a typed link."]}
    let make ?listObjectAttributes =
      fun ?listObjectChildren ->
        fun ?listAttachedIndices ->
          fun ?listObjectParentPaths ->
            fun ?getObjectInformation ->
              fun ?getObjectAttributes ->
                fun ?listObjectParents ->
                  fun ?listObjectPolicies ->
                    fun ?listPolicyAttachments ->
                      fun ?lookupPolicy ->
                        fun ?listIndex ->
                          fun ?listOutgoingTypedLinks ->
                            fun ?listIncomingTypedLinks ->
                              fun ?getLinkAttributes ->
                                fun () ->
                                  {
                                    listObjectAttributes;
                                    listObjectChildren;
                                    listAttachedIndices;
                                    listObjectParentPaths;
                                    getObjectInformation;
                                    getObjectAttributes;
                                    listObjectParents;
                                    listObjectPolicies;
                                    listPolicyAttachments;
                                    lookupPolicy;
                                    listIndex;
                                    listOutgoingTypedLinks;
                                    listIncomingTypedLinks;
                                    getLinkAttributes
                                  }
    let to_value x =
      structure_to_value
        [("ListObjectAttributes",
           (Option.map x.listObjectAttributes
              ~f:BatchListObjectAttributes.to_value));
        ("ListObjectChildren",
          (Option.map x.listObjectChildren
             ~f:BatchListObjectChildren.to_value));
        ("ListAttachedIndices",
          (Option.map x.listAttachedIndices
             ~f:BatchListAttachedIndices.to_value));
        ("ListObjectParentPaths",
          (Option.map x.listObjectParentPaths
             ~f:BatchListObjectParentPaths.to_value));
        ("GetObjectInformation",
          (Option.map x.getObjectInformation
             ~f:BatchGetObjectInformation.to_value));
        ("GetObjectAttributes",
          (Option.map x.getObjectAttributes
             ~f:BatchGetObjectAttributes.to_value));
        ("ListObjectParents",
          (Option.map x.listObjectParents ~f:BatchListObjectParents.to_value));
        ("ListObjectPolicies",
          (Option.map x.listObjectPolicies
             ~f:BatchListObjectPolicies.to_value));
        ("ListPolicyAttachments",
          (Option.map x.listPolicyAttachments
             ~f:BatchListPolicyAttachments.to_value));
        ("LookupPolicy",
          (Option.map x.lookupPolicy ~f:BatchLookupPolicy.to_value));
        ("ListIndex", (Option.map x.listIndex ~f:BatchListIndex.to_value));
        ("ListOutgoingTypedLinks",
          (Option.map x.listOutgoingTypedLinks
             ~f:BatchListOutgoingTypedLinks.to_value));
        ("ListIncomingTypedLinks",
          (Option.map x.listIncomingTypedLinks
             ~f:BatchListIncomingTypedLinks.to_value));
        ("GetLinkAttributes",
          (Option.map x.getLinkAttributes ~f:BatchGetLinkAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let getLinkAttributes =
        (Option.map ~f:BatchGetLinkAttributes.of_xml)
          (Xml.child xml_arg0 "GetLinkAttributes") in
      let listIncomingTypedLinks =
        (Option.map ~f:BatchListIncomingTypedLinks.of_xml)
          (Xml.child xml_arg0 "ListIncomingTypedLinks") in
      let listOutgoingTypedLinks =
        (Option.map ~f:BatchListOutgoingTypedLinks.of_xml)
          (Xml.child xml_arg0 "ListOutgoingTypedLinks") in
      let listIndex =
        (Option.map ~f:BatchListIndex.of_xml)
          (Xml.child xml_arg0 "ListIndex") in
      let lookupPolicy =
        (Option.map ~f:BatchLookupPolicy.of_xml)
          (Xml.child xml_arg0 "LookupPolicy") in
      let listPolicyAttachments =
        (Option.map ~f:BatchListPolicyAttachments.of_xml)
          (Xml.child xml_arg0 "ListPolicyAttachments") in
      let listObjectPolicies =
        (Option.map ~f:BatchListObjectPolicies.of_xml)
          (Xml.child xml_arg0 "ListObjectPolicies") in
      let listObjectParents =
        (Option.map ~f:BatchListObjectParents.of_xml)
          (Xml.child xml_arg0 "ListObjectParents") in
      let getObjectAttributes =
        (Option.map ~f:BatchGetObjectAttributes.of_xml)
          (Xml.child xml_arg0 "GetObjectAttributes") in
      let getObjectInformation =
        (Option.map ~f:BatchGetObjectInformation.of_xml)
          (Xml.child xml_arg0 "GetObjectInformation") in
      let listObjectParentPaths =
        (Option.map ~f:BatchListObjectParentPaths.of_xml)
          (Xml.child xml_arg0 "ListObjectParentPaths") in
      let listAttachedIndices =
        (Option.map ~f:BatchListAttachedIndices.of_xml)
          (Xml.child xml_arg0 "ListAttachedIndices") in
      let listObjectChildren =
        (Option.map ~f:BatchListObjectChildren.of_xml)
          (Xml.child xml_arg0 "ListObjectChildren") in
      let listObjectAttributes =
        (Option.map ~f:BatchListObjectAttributes.of_xml)
          (Xml.child xml_arg0 "ListObjectAttributes") in
      make ?getLinkAttributes ?listIncomingTypedLinks ?listOutgoingTypedLinks
        ?listIndex ?lookupPolicy ?listPolicyAttachments ?listObjectPolicies
        ?listObjectParents ?getObjectAttributes ?getObjectInformation
        ?listObjectParentPaths ?listAttachedIndices ?listObjectChildren
        ?listObjectAttributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let getLinkAttributes =
        field_map json__ "GetLinkAttributes" BatchGetLinkAttributes.of_json in
      let listIncomingTypedLinks =
        field_map json__ "ListIncomingTypedLinks"
          BatchListIncomingTypedLinks.of_json in
      let listOutgoingTypedLinks =
        field_map json__ "ListOutgoingTypedLinks"
          BatchListOutgoingTypedLinks.of_json in
      let listIndex = field_map json__ "ListIndex" BatchListIndex.of_json in
      let lookupPolicy =
        field_map json__ "LookupPolicy" BatchLookupPolicy.of_json in
      let listPolicyAttachments =
        field_map json__ "ListPolicyAttachments"
          BatchListPolicyAttachments.of_json in
      let listObjectPolicies =
        field_map json__ "ListObjectPolicies" BatchListObjectPolicies.of_json in
      let listObjectParents =
        field_map json__ "ListObjectParents" BatchListObjectParents.of_json in
      let getObjectAttributes =
        field_map json__ "GetObjectAttributes"
          BatchGetObjectAttributes.of_json in
      let getObjectInformation =
        field_map json__ "GetObjectInformation"
          BatchGetObjectInformation.of_json in
      let listObjectParentPaths =
        field_map json__ "ListObjectParentPaths"
          BatchListObjectParentPaths.of_json in
      let listAttachedIndices =
        field_map json__ "ListAttachedIndices"
          BatchListAttachedIndices.of_json in
      let listObjectChildren =
        field_map json__ "ListObjectChildren" BatchListObjectChildren.of_json in
      let listObjectAttributes =
        field_map json__ "ListObjectAttributes"
          BatchListObjectAttributes.of_json in
      make ?getLinkAttributes ?listIncomingTypedLinks ?listOutgoingTypedLinks
        ?listIndex ?lookupPolicy ?listPolicyAttachments ?listObjectPolicies
        ?listObjectParents ?getObjectAttributes ?getObjectInformation
        ?listObjectParentPaths ?listAttachedIndices ?listObjectChildren
        ?listObjectAttributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a BatchRead operation."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Access denied or directory not found. Either you don't have permissions for this directory or the directory does not exist. Try calling ListDirectories and check your permissions."]
module IncompatibleSchemaException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates a failure occurred while performing a check for backward compatibility between the specified schema and the schema that is currently applied to the directory."]
module InternalServiceException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates a problem that must be resolved by Amazon Web Services. This might be a transient error in which case you can retry your request until it succeeds. Otherwise, go to the AWS Service Health Dashboard site to see if there are any operational issues with the service."]
module InvalidArnException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Indicates that the provided ARN value is not valid."]
module InvalidAttachmentException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that an attempt to make an attachment was invalid. For example, attaching two nodes with a link type that is not applicable to the nodes or attempting to apply a schema to a directory a second time."]
module LimitExceededException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that limits are exceeded. See Limits for more information."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource could not be found."]
module RetryableConflictException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Occurs when a conflict with a previous successful write is detected. For example, if a write operation occurs on an object and then an attempt is made to read the object using \226\128\156SERIALIZABLE\226\128\157 consistency, this exception may result. This generally occurs when the previous write did not have time to propagate to the host serving the current request. A retry (with appropriate backoff logic) is the recommended response to this exception."]
module ValidationException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that your request is malformed in some manner. See the exception message."]
module Version =
  struct
    type nonrec t = string
    let context_ = "Version"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:10) >>=
                  (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:"Version" j
    let to_json = simple_to_json to_value
  end
module SchemaAlreadyExistsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that a schema could not be created due to a naming conflict. Please select a different name and then try again."]
module FacetNotFoundException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified Facet could not be found."]
module FacetValidationException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Facet that you provided was not well formed or could not be validated with the schema."]
module InvalidFacetUpdateException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An attempt to modify a Facet resulted in an invalid schema exception."]
module InvalidRuleException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Occurs when any of the rule parameter keys or values are invalid."]
module TypedLinkFacetAttributeUpdateList =
  struct
    type nonrec t = TypedLinkFacetAttributeUpdate.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:TypedLinkFacetAttributeUpdate.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:TypedLinkFacetAttributeUpdate.of_xml)
    let of_json j =
      list_of_json ~kind:"TypedLinkFacetAttributeUpdateList"
        ~of_json:TypedLinkFacetAttributeUpdate.of_json j
    let to_json v = composed_to_json to_value v
  end
module SchemaName =
  struct
    type nonrec t = string
    let context_ = "SchemaName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (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:"SchemaName" j
    let to_json = simple_to_json to_value
  end
module DirectoryNotEnabledException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Operations are only permitted on enabled directories."]
module LinkNameAlreadyInUseException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that a link could not be created due to a naming conflict. Choose a different name and then try again."]
module FacetAttributeUpdateList =
  struct
    type nonrec t = FacetAttributeUpdate.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:FacetAttributeUpdate.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:FacetAttributeUpdate.of_xml)
    let of_json j =
      list_of_json ~kind:"FacetAttributeUpdateList"
        ~of_json:FacetAttributeUpdate.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidTaggingRequestException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Can occur for multiple reasons such as when you tag a resource that doesn\226\128\153t exist or if you specify a higher number of tags for a resource than the allowed limit. Allowed limit is 50 tags per resource."]
module TagKeyList =
  struct
    type nonrec t = TagKey.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: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 TagList =
  struct
    type nonrec t = Tag.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:Tag.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:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidSchemaDocException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the provided SchemaDoc value is not valid."]
module SchemaJsonDocument =
  struct
    type nonrec t = string
    let context_ = "SchemaJsonDocument"
    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:"SchemaJsonDocument" j
    let to_json = simple_to_json to_value
  end
module SchemaAlreadyPublishedException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Indicates that a schema is already published."]
module InvalidNextTokenException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Indicates that the NextToken value is not valid."]
module TypedLinkNameList =
  struct
    type nonrec t = TypedLinkName.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:TypedLinkName.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:TypedLinkName.of_xml)
    let of_json j =
      list_of_json ~kind:"TypedLinkNameList" ~of_json:TypedLinkName.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagsNumberResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:50); 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 TagsNumberResults" 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 Arns =
  struct
    type nonrec t = Arn.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:Arn.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:Arn.of_xml)
    let of_json j = list_of_json ~kind:"Arns" ~of_json:Arn.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotPolicyException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the requested operation can only operate on policy objects."]
module ConsistencyLevel =
  struct
    type nonrec t =
      | SERIALIZABLE 
      | EVENTUAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SERIALIZABLE -> "SERIALIZABLE"
      | EVENTUAL -> "EVENTUAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "SERIALIZABLE" -> SERIALIZABLE
      | "EVENTUAL" -> EVENTUAL
      | 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 ConsistencyLevel" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConsistencyLevel" j)
    let to_json = simple_to_json to_value
  end
module CannotListParentOfRootException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Cannot list the parents of a Directory root."]
module ObjectIdentifierToLinkNameMap =
  struct
    type nonrec t = (ObjectIdentifier.t * LinkName.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 ->
                            ((ObjectIdentifier.of_string chopped),
                              (LinkName.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ObjectIdentifier.to_value x) |>
                    (fun x -> (LinkName.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:ObjectIdentifier.of_string
        ~of_json:LinkName.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotNodeException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Occurs when any invalid operations are performed on an object that is not a node, such as calling ListObjectChildren for a leaf node object."]
module NotIndexException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the requested operation can only operate on index objects."]
module FacetNameList =
  struct
    type nonrec t = FacetName.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:FacetName.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:FacetName.of_xml)
    let of_json j =
      list_of_json ~kind:"FacetNameList" ~of_json:FacetName.of_json j
    let to_json v = composed_to_json to_value v
  end
module FacetAttributeList =
  struct
    type nonrec t = FacetAttribute.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:FacetAttribute.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:FacetAttribute.of_xml)
    let of_json j =
      list_of_json ~kind:"FacetAttributeList" ~of_json:FacetAttribute.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module DirectoryList =
  struct
    type nonrec t = Directory.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:Directory.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:Directory.of_xml)
    let of_json j =
      list_of_json ~kind:"DirectoryList" ~of_json:Directory.of_json j
    let to_json v = composed_to_json to_value v
  end
module Facet =
  struct
    type nonrec t =
      {
      name: FacetName.t option [@ocaml.doc "The name of the Facet."];
      objectType: ObjectType.t option
        [@ocaml.doc
          "The object type that is associated with the facet. See CreateFacetRequest$ObjectType for more details."];
      facetStyle: FacetStyle.t option
        [@ocaml.doc
          "There are two different styles that you can define on any given facet, Static and Dynamic. For static facets, all attributes must be defined in the schema. For dynamic facets, attributes can be defined during data plane operations."]}
    let make ?name =
      fun ?objectType ->
        fun ?facetStyle -> fun () -> { name; objectType; facetStyle }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:FacetName.to_value));
        ("ObjectType", (Option.map x.objectType ~f:ObjectType.to_value));
        ("FacetStyle", (Option.map x.facetStyle ~f:FacetStyle.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let facetStyle =
        (Option.map ~f:FacetStyle.of_xml) (Xml.child xml_arg0 "FacetStyle") in
      let objectType =
        (Option.map ~f:ObjectType.of_xml) (Xml.child xml_arg0 "ObjectType") in
      let name = (Option.map ~f:FacetName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?facetStyle ?objectType ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let facetStyle = field_map json__ "FacetStyle" FacetStyle.of_json in
      let objectType = field_map json__ "ObjectType" ObjectType.of_json in
      let name = field_map json__ "Name" FacetName.of_json in
      make ?facetStyle ?objectType ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains Name, ARN, Attributes, Rules, and ObjectTypes. See Facets for more information."]
module DirectoryDeletedException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A directory that has been deleted and to which access has been attempted. Note: The requested resource will eventually cease to exist."]
module ObjectAlreadyDetachedException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Indicates that the object is not attached to the index."]
module StillContainsLinksException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The object could not be deleted because links still exist. Remove the links and then try the operation again."]
module ObjectNotDetachedException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the requested operation cannot be completed because the object has not been detached from the tree."]
module FacetInUseException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Occurs when deleting a facet that contains an attribute that is a target to an attribute reference in a different facet."]
module DirectoryNotDisabledException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An operation can only operate on a disabled directory."]
module FacetAlreadyExistsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A facet with the same name already exists."]
module TypedLinkFacet =
  struct
    type nonrec t =
      {
      name: TypedLinkName.t
        [@ocaml.doc "The unique name of the typed link facet."];
      attributes: TypedLinkAttributeDefinitionList.t
        [@ocaml.doc
          "A set of key-value pairs associated with the typed link. Typed link attributes are used when you have data values that are related to the link itself, and not to one of the two objects being linked. Identity attributes also serve to distinguish the link from others of the same type between the same objects."];
      identityAttributeOrder: AttributeNameList.t
        [@ocaml.doc
          "The set of attributes that distinguish links made from this facet from each other, in the order of significance. Listing typed links can filter on the values of these attributes. See ListOutgoingTypedLinks and ListIncomingTypedLinks for details."]}
    let context_ = "TypedLinkFacet"
    let make ~name =
      fun ~attributes ->
        fun ~identityAttributeOrder ->
          fun () -> { name; attributes; identityAttributeOrder }
    let to_value x =
      structure_to_value
        [("Name", (Some (TypedLinkName.to_value x.name)));
        ("Attributes",
          (Some (TypedLinkAttributeDefinitionList.to_value x.attributes)));
        ("IdentityAttributeOrder",
          (Some (AttributeNameList.to_value x.identityAttributeOrder)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityAttributeOrder =
        AttributeNameList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityAttributeOrder") in
      let attributes =
        TypedLinkAttributeDefinitionList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Attributes") in
      let name =
        TypedLinkName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~identityAttributeOrder ~attributes ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityAttributeOrder =
        field_map_exn json__ "IdentityAttributeOrder"
          AttributeNameList.of_json in
      let attributes =
        field_map_exn json__ "Attributes"
          TypedLinkAttributeDefinitionList.of_json in
      let name = field_map_exn json__ "Name" TypedLinkName.of_json in
      make ~identityAttributeOrder ~attributes ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines the typed links structure and its attributes. To create a typed link facet, use the CreateTypedLinkFacet API."]
module UnsupportedIndexTypeException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the requested index type is not supported."]
module DirectoryAlreadyExistsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that a Directory could not be created due to a naming conflict. Choose a different name and try again."]
module BatchWriteException =
  struct
    type nonrec t =
      {
      index: BatchOperationIndex.t option ;
      type_: BatchWriteExceptionType.t option ;
      message: ExceptionMessage.t option }
    let make ?index =
      fun ?type_ -> fun ?message -> fun () -> { index; type_; message }
    let to_value x =
      structure_to_value
        [("Index", (Option.map x.index ~f:BatchOperationIndex.to_value));
        ("Type", (Option.map x.type_ ~f:BatchWriteExceptionType.to_value));
        ("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      let type_ =
        (Option.map ~f:BatchWriteExceptionType.of_xml)
          (Xml.child xml_arg0 "Type") in
      let index =
        (Option.map ~f:BatchOperationIndex.of_xml)
          (Xml.child xml_arg0 "Index") in
      make ?message ?type_ ?index ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      let type_ = field_map json__ "Type" BatchWriteExceptionType.of_json in
      let index = field_map json__ "Index" BatchOperationIndex.of_json in
      make ?message ?type_ ?index ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A BatchWrite exception has occurred."]
module BatchWriteOperationResponseList =
  struct
    type nonrec t = BatchWriteOperationResponse.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:BatchWriteOperationResponse.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:BatchWriteOperationResponse.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchWriteOperationResponseList"
        ~of_json:BatchWriteOperationResponse.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchWriteOperationList =
  struct
    type nonrec t = BatchWriteOperation.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:BatchWriteOperation.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:BatchWriteOperation.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchWriteOperationList"
        ~of_json:BatchWriteOperation.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchReadOperationResponseList =
  struct
    type nonrec t = BatchReadOperationResponse.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:BatchReadOperationResponse.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:BatchReadOperationResponse.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchReadOperationResponseList"
        ~of_json:BatchReadOperationResponse.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchReadOperationList =
  struct
    type nonrec t = BatchReadOperation.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:BatchReadOperation.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:BatchReadOperation.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchReadOperationList"
        ~of_json:BatchReadOperation.of_json j
    let to_json v = composed_to_json to_value v
  end
module IndexedAttributeMissingException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object has been attempted to be attached to an object that does not have the appropriate attribute value."]
module UpgradePublishedSchemaResponse =
  struct
    type nonrec t =
      {
      upgradedSchemaArn: Arn.t option
        [@ocaml.doc
          "The ARN of the upgraded schema that is returned as part of the response."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IncompatibleSchemaException of IncompatibleSchemaException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidAttachmentException of InvalidAttachmentException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?upgradedSchemaArn = fun () -> { upgradedSchemaArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IncompatibleSchemaException" ->
          `IncompatibleSchemaException
            (IncompatibleSchemaException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidAttachmentException" ->
          `InvalidAttachmentException
            (InvalidAttachmentException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "IncompatibleSchemaException" ->
          `IncompatibleSchemaException
            (IncompatibleSchemaException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidAttachmentException" ->
          `InvalidAttachmentException (InvalidAttachmentException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `IncompatibleSchemaException e ->
          `Assoc
            [("error", (`String "IncompatibleSchemaException"));
            ("details", (IncompatibleSchemaException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidAttachmentException e ->
          `Assoc
            [("error", (`String "InvalidAttachmentException"));
            ("details", (InvalidAttachmentException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("UpgradedSchemaArn",
           (Option.map x.upgradedSchemaArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let upgradedSchemaArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "UpgradedSchemaArn") in
      make ?upgradedSchemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let upgradedSchemaArn =
        field_map json__ "UpgradedSchemaArn" Arn.of_json in
      make ?upgradedSchemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Upgrades a published schema under a new minor version revision using the current contents of DevelopmentSchemaArn."]
module UpgradePublishedSchemaRequest =
  struct
    type nonrec t =
      {
      developmentSchemaArn: Arn.t
        [@ocaml.doc
          "The ARN of the development schema with the changes used for the upgrade."];
      publishedSchemaArn: Arn.t
        [@ocaml.doc "The ARN of the published schema to be upgraded."];
      minorVersion: Version.t
        [@ocaml.doc
          "Identifies the minor version of the published schema that will be created. This parameter is NOT optional."];
      dryRun: Bool_.t option
        [@ocaml.doc
          "Used for testing whether the Development schema provided is backwards compatible, or not, with the publish schema provided by the user to be upgraded. If schema compatibility fails, an exception would be thrown else the call would succeed. This parameter is optional and defaults to false."]}
    let context_ = "UpgradePublishedSchemaRequest"
    let make ?dryRun =
      fun ~developmentSchemaArn ->
        fun ~publishedSchemaArn ->
          fun ~minorVersion ->
            fun () ->
              {
                dryRun;
                developmentSchemaArn;
                publishedSchemaArn;
                minorVersion
              }
    let to_value x =
      structure_to_value
        [("DevelopmentSchemaArn",
           (Some (Arn.to_value x.developmentSchemaArn)));
        ("PublishedSchemaArn", (Some (Arn.to_value x.publishedSchemaArn)));
        ("MinorVersion", (Some (Version.to_value x.minorVersion)));
        ("DryRun", (Option.map x.dryRun ~f:Bool_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun = (Option.map ~f:Bool_.of_xml) (Xml.child xml_arg0 "DryRun") in
      let minorVersion =
        Version.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MinorVersion") in
      let publishedSchemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PublishedSchemaArn") in
      let developmentSchemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DevelopmentSchemaArn") in
      make ?dryRun ~minorVersion ~publishedSchemaArn ~developmentSchemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" Bool_.of_json in
      let minorVersion = field_map_exn json__ "MinorVersion" Version.of_json in
      let publishedSchemaArn =
        field_map_exn json__ "PublishedSchemaArn" Arn.of_json in
      let developmentSchemaArn =
        field_map_exn json__ "DevelopmentSchemaArn" Arn.of_json in
      make ?dryRun ~minorVersion ~publishedSchemaArn ~developmentSchemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Upgrades a published schema under a new minor version revision using the current contents of DevelopmentSchemaArn."]
module UpgradeAppliedSchemaResponse =
  struct
    type nonrec t =
      {
      upgradedSchemaArn: Arn.t option
        [@ocaml.doc
          "The ARN of the upgraded schema that is returned as part of the response."];
      directoryArn: Arn.t option
        [@ocaml.doc
          "The ARN of the directory that is returned as part of the response."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IncompatibleSchemaException of IncompatibleSchemaException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidAttachmentException of InvalidAttachmentException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `SchemaAlreadyExistsException of SchemaAlreadyExistsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?upgradedSchemaArn =
      fun ?directoryArn -> fun () -> { upgradedSchemaArn; directoryArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IncompatibleSchemaException" ->
          `IncompatibleSchemaException
            (IncompatibleSchemaException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidAttachmentException" ->
          `InvalidAttachmentException
            (InvalidAttachmentException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.of_json json)
      | "SchemaAlreadyExistsException" ->
          `SchemaAlreadyExistsException
            (SchemaAlreadyExistsException.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)
      | "IncompatibleSchemaException" ->
          `IncompatibleSchemaException
            (IncompatibleSchemaException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidAttachmentException" ->
          `InvalidAttachmentException (InvalidAttachmentException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.of_xml xml)
      | "SchemaAlreadyExistsException" ->
          `SchemaAlreadyExistsException
            (SchemaAlreadyExistsException.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))]
      | `IncompatibleSchemaException e ->
          `Assoc
            [("error", (`String "IncompatibleSchemaException"));
            ("details", (IncompatibleSchemaException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidAttachmentException e ->
          `Assoc
            [("error", (`String "InvalidAttachmentException"));
            ("details", (InvalidAttachmentException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.to_json e))]
      | `SchemaAlreadyExistsException e ->
          `Assoc
            [("error", (`String "SchemaAlreadyExistsException"));
            ("details", (SchemaAlreadyExistsException.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
        [("UpgradedSchemaArn",
           (Option.map x.upgradedSchemaArn ~f:Arn.to_value));
        ("DirectoryArn", (Option.map x.directoryArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "DirectoryArn") in
      let upgradedSchemaArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "UpgradedSchemaArn") in
      make ?directoryArn ?upgradedSchemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryArn = field_map json__ "DirectoryArn" Arn.of_json in
      let upgradedSchemaArn =
        field_map json__ "UpgradedSchemaArn" Arn.of_json in
      make ?directoryArn ?upgradedSchemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Upgrades a single directory in-place using the PublishedSchemaArn with schema updates found in MinorVersion. Backwards-compatible minor version upgrades are instantaneously available for readers on all objects in the directory. Note: This is a synchronous API call and upgrades only one schema on a given directory per call. To upgrade multiple directories from one schema, you would need to call this API on each directory."]
module UpgradeAppliedSchemaRequest =
  struct
    type nonrec t =
      {
      publishedSchemaArn: Arn.t
        [@ocaml.doc
          "The revision of the published schema to upgrade the directory to."];
      directoryArn: Arn.t
        [@ocaml.doc
          "The ARN for the directory to which the upgraded schema will be applied."];
      dryRun: Bool_.t option
        [@ocaml.doc
          "Used for testing whether the major version schemas are backward compatible or not. If schema compatibility fails, an exception would be thrown else the call would succeed but no changes will be saved. This parameter is optional."]}
    let context_ = "UpgradeAppliedSchemaRequest"
    let make ?dryRun =
      fun ~publishedSchemaArn ->
        fun ~directoryArn ->
          fun () -> { dryRun; publishedSchemaArn; directoryArn }
    let to_value x =
      structure_to_value
        [("PublishedSchemaArn", (Some (Arn.to_value x.publishedSchemaArn)));
        ("DirectoryArn", (Some (Arn.to_value x.directoryArn)));
        ("DryRun", (Option.map x.dryRun ~f:Bool_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun = (Option.map ~f:Bool_.of_xml) (Xml.child xml_arg0 "DryRun") in
      let directoryArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DirectoryArn") in
      let publishedSchemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PublishedSchemaArn") in
      make ?dryRun ~directoryArn ~publishedSchemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" Bool_.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      let publishedSchemaArn =
        field_map_exn json__ "PublishedSchemaArn" Arn.of_json in
      make ?dryRun ~directoryArn ~publishedSchemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Upgrades a single directory in-place using the PublishedSchemaArn with schema updates found in MinorVersion. Backwards-compatible minor version upgrades are instantaneously available for readers on all objects in the directory. Note: This is a synchronous API call and upgrades only one schema on a given directory per call. To upgrade multiple directories from one schema, you would need to call this API on each directory."]
module UpdateTypedLinkFacetResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `FacetNotFoundException of FacetNotFoundException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidFacetUpdateException of InvalidFacetUpdateException.t 
      | `InvalidRuleException of InvalidRuleException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidFacetUpdateException" ->
          `InvalidFacetUpdateException
            (InvalidFacetUpdateException.of_json json)
      | "InvalidRuleException" ->
          `InvalidRuleException (InvalidRuleException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidFacetUpdateException" ->
          `InvalidFacetUpdateException
            (InvalidFacetUpdateException.of_xml xml)
      | "InvalidRuleException" ->
          `InvalidRuleException (InvalidRuleException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `FacetNotFoundException e ->
          `Assoc
            [("error", (`String "FacetNotFoundException"));
            ("details", (FacetNotFoundException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidFacetUpdateException e ->
          `Assoc
            [("error", (`String "InvalidFacetUpdateException"));
            ("details", (InvalidFacetUpdateException.to_json e))]
      | `InvalidRuleException e ->
          `Assoc
            [("error", (`String "InvalidRuleException"));
            ("details", (InvalidRuleException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
       "Updates a TypedLinkFacet. For more information, see Typed Links."]
module UpdateTypedLinkFacetRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the schema. For more information, see arns."];
      name: TypedLinkName.t
        [@ocaml.doc "The unique name of the typed link facet."];
      attributeUpdates: TypedLinkFacetAttributeUpdateList.t
        [@ocaml.doc "Attributes update structure."];
      identityAttributeOrder: AttributeNameList.t
        [@ocaml.doc
          "The order of identity attributes for the facet, from most significant to least significant. The ability to filter typed links considers the order that the attributes are defined on the typed link facet. When providing ranges to a typed link selection, any inexact ranges must be specified at the end. Any attributes that do not have a range specified are presumed to match the entire range. Filters are interpreted in the order of the attributes on the typed link facet, not the order in which they are supplied to any API calls. For more information about identity attributes, see Typed Links."]}
    let context_ = "UpdateTypedLinkFacetRequest"
    let make ~schemaArn =
      fun ~name ->
        fun ~attributeUpdates ->
          fun ~identityAttributeOrder ->
            fun () ->
              { schemaArn; name; attributeUpdates; identityAttributeOrder }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)));
        ("Name", (Some (TypedLinkName.to_value x.name)));
        ("AttributeUpdates",
          (Some
             (TypedLinkFacetAttributeUpdateList.to_value x.attributeUpdates)));
        ("IdentityAttributeOrder",
          (Some (AttributeNameList.to_value x.identityAttributeOrder)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityAttributeOrder =
        AttributeNameList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityAttributeOrder") in
      let attributeUpdates =
        TypedLinkFacetAttributeUpdateList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttributeUpdates") in
      let name =
        TypedLinkName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~identityAttributeOrder ~attributeUpdates ~name ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityAttributeOrder =
        field_map_exn json__ "IdentityAttributeOrder"
          AttributeNameList.of_json in
      let attributeUpdates =
        field_map_exn json__ "AttributeUpdates"
          TypedLinkFacetAttributeUpdateList.of_json in
      let name = field_map_exn json__ "Name" TypedLinkName.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ~identityAttributeOrder ~attributeUpdates ~name ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a TypedLinkFacet. For more information, see Typed Links."]
module UpdateSchemaResponse =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t option
        [@ocaml.doc
          "The ARN that is associated with the updated schema. For more information, see arns."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?schemaArn = fun () -> { schemaArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("SchemaArn", (Option.map x.schemaArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      make ?schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaArn = field_map json__ "SchemaArn" Arn.of_json in
      make ?schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the schema name with a new name. Only development schema names can be updated."]
module UpdateSchemaRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the development schema. For more information, see arns."];
      name: SchemaName.t [@ocaml.doc "The name of the schema."]}
    let context_ = "UpdateSchemaRequest"
    let make ~schemaArn = fun ~name -> fun () -> { schemaArn; name }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)));
        ("Name", (Some (SchemaName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        SchemaName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~name ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" SchemaName.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ~name ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the schema name with a new name. Only development schema names can be updated."]
module UpdateObjectAttributesResponse =
  struct
    type nonrec t =
      {
      objectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc "The ObjectIdentifier of the updated object."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `LinkNameAlreadyInUseException of LinkNameAlreadyInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?objectIdentifier = fun () -> { objectIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "LinkNameAlreadyInUseException" ->
          `LinkNameAlreadyInUseException
            (LinkNameAlreadyInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "LinkNameAlreadyInUseException" ->
          `LinkNameAlreadyInUseException
            (LinkNameAlreadyInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `LinkNameAlreadyInUseException e ->
          `Assoc
            [("error", (`String "LinkNameAlreadyInUseException"));
            ("details", (LinkNameAlreadyInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("ObjectIdentifier",
           (Option.map x.objectIdentifier ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifier") in
      make ?objectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectIdentifier =
        field_map json__ "ObjectIdentifier" ObjectIdentifier.of_json in
      make ?objectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a given object's attributes."]
module UpdateObjectAttributesRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory where the object resides. For more information, see arns."];
      objectReference: ObjectReference.t
        [@ocaml.doc "The reference that identifies the object."];
      attributeUpdates: ObjectAttributeUpdateList.t
        [@ocaml.doc "The attributes update structure."]}
    let context_ = "UpdateObjectAttributesRequest"
    let make ~directoryArn =
      fun ~objectReference ->
        fun ~attributeUpdates ->
          fun () -> { directoryArn; objectReference; attributeUpdates }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)));
        ("AttributeUpdates",
          (Some (ObjectAttributeUpdateList.to_value x.attributeUpdates)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeUpdates =
        ObjectAttributeUpdateList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttributeUpdates") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~attributeUpdates ~objectReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeUpdates =
        field_map_exn json__ "AttributeUpdates"
          ObjectAttributeUpdateList.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~attributeUpdates ~objectReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a given object's attributes."]
module UpdateLinkAttributesResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
       "Updates a given typed link\226\128\153s attributes. Attributes to be updated must not contribute to the typed link\226\128\153s identity, as defined by its IdentityAttributeOrder."]
module UpdateLinkAttributesRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory where the updated typed link resides. For more information, see arns or Typed Links."];
      typedLinkSpecifier: TypedLinkSpecifier.t
        [@ocaml.doc "Allows a typed link specifier to be accepted as input."];
      attributeUpdates: LinkAttributeUpdateList.t
        [@ocaml.doc "The attributes update structure."]}
    let context_ = "UpdateLinkAttributesRequest"
    let make ~directoryArn =
      fun ~typedLinkSpecifier ->
        fun ~attributeUpdates ->
          fun () -> { directoryArn; typedLinkSpecifier; attributeUpdates }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("TypedLinkSpecifier",
          (Some (TypedLinkSpecifier.to_value x.typedLinkSpecifier)));
        ("AttributeUpdates",
          (Some (LinkAttributeUpdateList.to_value x.attributeUpdates)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeUpdates =
        LinkAttributeUpdateList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttributeUpdates") in
      let typedLinkSpecifier =
        TypedLinkSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TypedLinkSpecifier") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~attributeUpdates ~typedLinkSpecifier ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeUpdates =
        field_map_exn json__ "AttributeUpdates"
          LinkAttributeUpdateList.of_json in
      let typedLinkSpecifier =
        field_map_exn json__ "TypedLinkSpecifier" TypedLinkSpecifier.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~attributeUpdates ~typedLinkSpecifier ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a given typed link\226\128\153s attributes. Attributes to be updated must not contribute to the typed link\226\128\153s identity, as defined by its IdentityAttributeOrder."]
module UpdateFacetResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `FacetNotFoundException of FacetNotFoundException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidFacetUpdateException of InvalidFacetUpdateException.t 
      | `InvalidRuleException of InvalidRuleException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidFacetUpdateException" ->
          `InvalidFacetUpdateException
            (InvalidFacetUpdateException.of_json json)
      | "InvalidRuleException" ->
          `InvalidRuleException (InvalidRuleException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidFacetUpdateException" ->
          `InvalidFacetUpdateException
            (InvalidFacetUpdateException.of_xml xml)
      | "InvalidRuleException" ->
          `InvalidRuleException (InvalidRuleException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `FacetNotFoundException e ->
          `Assoc
            [("error", (`String "FacetNotFoundException"));
            ("details", (FacetNotFoundException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidFacetUpdateException e ->
          `Assoc
            [("error", (`String "InvalidFacetUpdateException"));
            ("details", (InvalidFacetUpdateException.to_json e))]
      | `InvalidRuleException e ->
          `Assoc
            [("error", (`String "InvalidRuleException"));
            ("details", (InvalidRuleException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
       "Does the following: Adds new Attributes, Rules, or ObjectTypes. Updates existing Attributes, Rules, or ObjectTypes. Deletes existing Attributes, Rules, or ObjectTypes."]
module UpdateFacetRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Facet. For more information, see arns."];
      name: FacetName.t [@ocaml.doc "The name of the facet."];
      attributeUpdates: FacetAttributeUpdateList.t option
        [@ocaml.doc
          "List of attributes that need to be updated in a given schema Facet. Each attribute is followed by AttributeAction, which specifies the type of update operation to perform."];
      objectType: ObjectType.t option
        [@ocaml.doc
          "The object type that is associated with the facet. See CreateFacetRequest$ObjectType for more details."]}
    let context_ = "UpdateFacetRequest"
    let make ?attributeUpdates =
      fun ?objectType ->
        fun ~schemaArn ->
          fun ~name ->
            fun () -> { attributeUpdates; objectType; schemaArn; name }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)));
        ("Name", (Some (FacetName.to_value x.name)));
        ("AttributeUpdates",
          (Option.map x.attributeUpdates ~f:FacetAttributeUpdateList.to_value));
        ("ObjectType", (Option.map x.objectType ~f:ObjectType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectType =
        (Option.map ~f:ObjectType.of_xml) (Xml.child xml_arg0 "ObjectType") in
      let attributeUpdates =
        (Option.map ~f:FacetAttributeUpdateList.of_xml)
          (Xml.child xml_arg0 "AttributeUpdates") in
      let name =
        FacetName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?objectType ?attributeUpdates ~name ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectType = field_map json__ "ObjectType" ObjectType.of_json in
      let attributeUpdates =
        field_map json__ "AttributeUpdates" FacetAttributeUpdateList.of_json in
      let name = field_map_exn json__ "Name" FacetName.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ?objectType ?attributeUpdates ~name ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Does the following: Adds new Attributes, Rules, or ObjectTypes. Updates existing Attributes, Rules, or ObjectTypes. Deletes existing Attributes, Rules, or ObjectTypes."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidTaggingRequestException of InvalidTaggingRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidTaggingRequestException" ->
          `InvalidTaggingRequestException
            (InvalidTaggingRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidTaggingRequestException" ->
          `InvalidTaggingRequestException
            (InvalidTaggingRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidTaggingRequestException e ->
          `Assoc
            [("error", (`String "InvalidTaggingRequestException"));
            ("details", (InvalidTaggingRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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 "An API operation for removing tags from a resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource. Tagging is only supported for directories."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "Keys of the tag that need to be removed from the resource."]}
    let context_ = "UntagResourceRequest"
    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 "An API operation for removing tags from a resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidTaggingRequestException of InvalidTaggingRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidTaggingRequestException" ->
          `InvalidTaggingRequestException
            (InvalidTaggingRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidTaggingRequestException" ->
          `InvalidTaggingRequestException
            (InvalidTaggingRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidTaggingRequestException e ->
          `Assoc
            [("error", (`String "InvalidTaggingRequestException"));
            ("details", (InvalidTaggingRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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 "An API operation for adding tags to a resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource. Tagging is only supported for directories."];
      tags: TagList.t [@ocaml.doc "A list of tag key-value pairs."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Arn.to_value x.resourceArn)));
        ("Tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.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" TagList.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 "An API operation for adding tags to a resource."]
module RemoveFacetFromObjectResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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 facet from the specified object."]
module RemoveFacetFromObjectRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc "The ARN of the directory in which the object resides."];
      schemaFacet: SchemaFacet.t
        [@ocaml.doc "The facet to remove. See SchemaFacet for details."];
      objectReference: ObjectReference.t
        [@ocaml.doc "A reference to the object to remove the facet from."]}
    let context_ = "RemoveFacetFromObjectRequest"
    let make ~directoryArn =
      fun ~schemaFacet ->
        fun ~objectReference ->
          fun () -> { directoryArn; schemaFacet; objectReference }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("SchemaFacet", (Some (SchemaFacet.to_value x.schemaFacet)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let schemaFacet =
        SchemaFacet.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SchemaFacet") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~objectReference ~schemaFacet ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let schemaFacet =
        field_map_exn json__ "SchemaFacet" SchemaFacet.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~objectReference ~schemaFacet ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes the specified facet from the specified object."]
module PutSchemaFromJsonResponse =
  struct
    type nonrec t =
      {
      arn: Arn.t option [@ocaml.doc "The ARN of the schema to update."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidRuleException of InvalidRuleException.t 
      | `InvalidSchemaDocException of InvalidSchemaDocException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn = fun () -> { arn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidRuleException" ->
          `InvalidRuleException (InvalidRuleException.of_json json)
      | "InvalidSchemaDocException" ->
          `InvalidSchemaDocException (InvalidSchemaDocException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidRuleException" ->
          `InvalidRuleException (InvalidRuleException.of_xml xml)
      | "InvalidSchemaDocException" ->
          `InvalidSchemaDocException (InvalidSchemaDocException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidRuleException e ->
          `Assoc
            [("error", (`String "InvalidRuleException"));
            ("details", (InvalidRuleException.to_json e))]
      | `InvalidSchemaDocException e ->
          `Assoc
            [("error", (`String "InvalidSchemaDocException"));
            ("details", (InvalidSchemaDocException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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 [("Arn", (Option.map x.arn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "Arn" Arn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Allows a schema to be updated using JSON upload. Only available for development schemas. See JSON Schema Format for more information."]
module PutSchemaFromJsonRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t [@ocaml.doc "The ARN of the schema to update."];
      document: SchemaJsonDocument.t
        [@ocaml.doc "The replacement JSON schema."]}
    let context_ = "PutSchemaFromJsonRequest"
    let make ~schemaArn = fun ~document -> fun () -> { schemaArn; document }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)));
        ("Document", (Some (SchemaJsonDocument.to_value x.document)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let document =
        SchemaJsonDocument.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Document") in
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~document ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let document =
        field_map_exn json__ "Document" SchemaJsonDocument.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ~document ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Allows a schema to be updated using JSON upload. Only available for development schemas. See JSON Schema Format for more information."]
module PublishSchemaResponse =
  struct
    type nonrec t =
      {
      publishedSchemaArn: Arn.t option
        [@ocaml.doc
          "The ARN that is associated with the published schema. For more information, see arns."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `SchemaAlreadyPublishedException of SchemaAlreadyPublishedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?publishedSchemaArn = fun () -> { publishedSchemaArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.of_json json)
      | "SchemaAlreadyPublishedException" ->
          `SchemaAlreadyPublishedException
            (SchemaAlreadyPublishedException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.of_xml xml)
      | "SchemaAlreadyPublishedException" ->
          `SchemaAlreadyPublishedException
            (SchemaAlreadyPublishedException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.to_json e))]
      | `SchemaAlreadyPublishedException e ->
          `Assoc
            [("error", (`String "SchemaAlreadyPublishedException"));
            ("details", (SchemaAlreadyPublishedException.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
        [("PublishedSchemaArn",
           (Option.map x.publishedSchemaArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let publishedSchemaArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "PublishedSchemaArn") in
      make ?publishedSchemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let publishedSchemaArn =
        field_map json__ "PublishedSchemaArn" Arn.of_json in
      make ?publishedSchemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Publishes a development schema with a major version and a recommended minor version."]
module PublishSchemaRequest =
  struct
    type nonrec t =
      {
      developmentSchemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the development schema. For more information, see arns."];
      version: Version.t
        [@ocaml.doc
          "The major version under which the schema will be published. Schemas have both a major and minor version associated with them."];
      minorVersion: Version.t option
        [@ocaml.doc
          "The minor version under which the schema will be published. This parameter is recommended. Schemas have both a major and minor version associated with them."];
      name: SchemaName.t option
        [@ocaml.doc
          "The new name under which the schema will be published. If this is not provided, the development schema is considered."]}
    let context_ = "PublishSchemaRequest"
    let make ?minorVersion =
      fun ?name ->
        fun ~developmentSchemaArn ->
          fun ~version ->
            fun () -> { minorVersion; name; developmentSchemaArn; version }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition",
           (Some (Arn.to_value x.developmentSchemaArn)));
        ("Version", (Some (Version.to_value x.version)));
        ("MinorVersion", (Option.map x.minorVersion ~f:Version.to_value));
        ("Name", (Option.map x.name ~f:SchemaName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:SchemaName.of_xml) (Xml.child xml_arg0 "Name") in
      let minorVersion =
        (Option.map ~f:Version.of_xml) (Xml.child xml_arg0 "MinorVersion") in
      let version =
        Version.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Version") in
      let developmentSchemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?name ?minorVersion ~version ~developmentSchemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" SchemaName.of_json in
      let minorVersion = field_map json__ "MinorVersion" Version.of_json in
      let version = field_map_exn json__ "Version" Version.of_json in
      let developmentSchemaArn =
        field_map_exn json__ "DevelopmentSchemaArn" Arn.of_json in
      make ?name ?minorVersion ~version ~developmentSchemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Publishes a development schema with a major version and a recommended minor version."]
module LookupPolicyResponse =
  struct
    type nonrec t =
      {
      policyToPathList: PolicyToPathList.t option
        [@ocaml.doc
          "Provides list of path to policies. Policies contain PolicyId, ObjectIdentifier, and PolicyType. For more information, see Policies."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policyToPathList =
      fun ?nextToken -> fun () -> { policyToPathList; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("PolicyToPathList",
           (Option.map x.policyToPathList ~f:PolicyToPathList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let policyToPathList =
        (Option.map ~f:PolicyToPathList.of_xml)
          (Xml.child xml_arg0 "PolicyToPathList") in
      make ?nextToken ?policyToPathList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let policyToPathList =
        field_map json__ "PolicyToPathList" PolicyToPathList.of_json in
      make ?nextToken ?policyToPathList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all policies from the root of the Directory to the object specified. If there are no policies present, an empty list is returned. If policies are present, and if some objects don't have the policies attached, it returns the ObjectIdentifier for such objects. If policies are present, it returns ObjectIdentifier, policyId, and policyType. Paths that don't lead to the root from the target object are ignored. For more information, see Policies."]
module LookupPolicyRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory. For more information, see arns."];
      objectReference: ObjectReference.t
        [@ocaml.doc
          "Reference that identifies the object whose policies will be looked up."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token to request the next page of results."];
      maxResults: NumberResults.t option
        [@ocaml.doc
          "The maximum number of items to be retrieved in a single call. This is an approximate number."]}
    let context_ = "LookupPolicyRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~directoryArn ->
          fun ~objectReference ->
            fun () ->
              { nextToken; maxResults; directoryArn; objectReference }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?maxResults ?nextToken ~objectReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?maxResults ?nextToken ~objectReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all policies from the root of the Directory to the object specified. If there are no policies present, an empty list is returned. If policies are present, and if some objects don't have the policies attached, it returns the ObjectIdentifier for such objects. If policies are present, it returns ObjectIdentifier, policyId, and policyType. Paths that don't lead to the root from the target object are ignored. For more information, see Policies."]
module ListTypedLinkFacetNamesResponse =
  struct
    type nonrec t =
      {
      facetNames: TypedLinkNameList.t option
        [@ocaml.doc
          "The names of typed link facets that exist within the schema."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?facetNames =
      fun ?nextToken -> fun () -> { facetNames; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("FacetNames",
           (Option.map x.facetNames ~f:TypedLinkNameList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let facetNames =
        (Option.map ~f:TypedLinkNameList.of_xml)
          (Xml.child xml_arg0 "FacetNames") in
      make ?nextToken ?facetNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let facetNames =
        field_map json__ "FacetNames" TypedLinkNameList.of_json in
      make ?nextToken ?facetNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a paginated list of TypedLink facet names for a particular schema. For more information, see Typed Links."]
module ListTypedLinkFacetNamesRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the schema. For more information, see arns."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let context_ = "ListTypedLinkFacetNamesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~schemaArn -> fun () -> { nextToken; maxResults; schemaArn }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?maxResults ?nextToken ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ?maxResults ?nextToken ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a paginated list of TypedLink facet names for a particular schema. For more information, see Typed Links."]
module ListTypedLinkFacetAttributesResponse =
  struct
    type nonrec t =
      {
      attributes: TypedLinkAttributeDefinitionList.t option
        [@ocaml.doc
          "An ordered set of attributes associate with the typed link."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `FacetNotFoundException of FacetNotFoundException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attributes =
      fun ?nextToken -> fun () -> { attributes; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `FacetNotFoundException e ->
          `Assoc
            [("error", (`String "FacetNotFoundException"));
            ("details", (FacetNotFoundException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("Attributes",
           (Option.map x.attributes
              ~f:TypedLinkAttributeDefinitionList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let attributes =
        (Option.map ~f:TypedLinkAttributeDefinitionList.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      make ?nextToken ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let attributes =
        field_map json__ "Attributes"
          TypedLinkAttributeDefinitionList.of_json in
      make ?nextToken ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a paginated list of all attribute definitions for a particular TypedLinkFacet. For more information, see Typed Links."]
module ListTypedLinkFacetAttributesRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the schema. For more information, see arns."];
      name: TypedLinkName.t
        [@ocaml.doc "The unique name of the typed link facet."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let context_ = "ListTypedLinkFacetAttributesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~schemaArn ->
          fun ~name -> fun () -> { nextToken; maxResults; schemaArn; name }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)));
        ("Name", (Some (TypedLinkName.to_value x.name)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let name =
        TypedLinkName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?maxResults ?nextToken ~name ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let name = field_map_exn json__ "Name" TypedLinkName.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ?maxResults ?nextToken ~name ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a paginated list of all attribute definitions for a particular TypedLinkFacet. For more information, see Typed Links."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc
          "A list of tag key value pairs that are associated with the response."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to use to retrieve the next page of results. This value is null when there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidTaggingRequestException of InvalidTaggingRequestException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun ?nextToken -> fun () -> { tags; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidTaggingRequestException" ->
          `InvalidTaggingRequestException
            (InvalidTaggingRequestException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidTaggingRequestException" ->
          `InvalidTaggingRequestException
            (InvalidTaggingRequestException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidTaggingRequestException e ->
          `Assoc
            [("error", (`String "InvalidTaggingRequestException"));
            ("details", (InvalidTaggingRequestException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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:TagList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?nextToken ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      make ?nextToken ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns tags for a resource. Tagging is currently supported only for directories with a limit of 50 tags per directory. All 50 tags are returned for a given directory with this API call."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource. Tagging is only supported for directories."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The pagination token. This is for future use. Currently pagination is not supported for tagging."];
      maxResults: TagsNumberResults.t option
        [@ocaml.doc
          "The MaxResults parameter sets the maximum number of results returned in a single page. This is for future use and is not supported currently."]}
    let context_ = "ListTagsForResourceRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~resourceArn -> fun () -> { nextToken; maxResults; resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Arn.to_value x.resourceArn)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:TagsNumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:TagsNumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ?maxResults ?nextToken ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" TagsNumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Arn.of_json in
      make ?maxResults ?nextToken ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns tags for a resource. Tagging is currently supported only for directories with a limit of 50 tags per directory. All 50 tags are returned for a given directory with this API call."]
module ListPublishedSchemaArnsResponse =
  struct
    type nonrec t =
      {
      schemaArns: Arns.t option [@ocaml.doc "The ARNs of published schemas."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?schemaArns =
      fun ?nextToken -> fun () -> { schemaArns; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("SchemaArns", (Option.map x.schemaArns ~f:Arns.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let schemaArns =
        (Option.map ~f:Arns.of_xml) (Xml.child xml_arg0 "SchemaArns") in
      make ?nextToken ?schemaArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let schemaArns = field_map json__ "SchemaArns" Arns.of_json in
      make ?nextToken ?schemaArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the major version families of each published schema. If a major version ARN is provided as SchemaArn, the minor version revisions in that family are listed instead."]
module ListPublishedSchemaArnsRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t option
        [@ocaml.doc
          "The response for ListPublishedSchemaArns when this parameter is used will list all minor version ARNs for a major version."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let make ?schemaArn =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { schemaArn; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("SchemaArn", (Option.map x.schemaArn ~f:Arn.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let schemaArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      make ?maxResults ?nextToken ?schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let schemaArn = field_map json__ "SchemaArn" Arn.of_json in
      make ?maxResults ?nextToken ?schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the major version families of each published schema. If a major version ARN is provided as SchemaArn, the minor version revisions in that family are listed instead."]
module ListPolicyAttachmentsResponse =
  struct
    type nonrec t =
      {
      objectIdentifiers: ObjectIdentifierList.t option
        [@ocaml.doc
          "A list of ObjectIdentifiers to which the policy is attached."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotPolicyException of NotPolicyException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?objectIdentifiers =
      fun ?nextToken -> fun () -> { objectIdentifiers; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotPolicyException" ->
          `NotPolicyException (NotPolicyException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotPolicyException" ->
          `NotPolicyException (NotPolicyException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotPolicyException e ->
          `Assoc
            [("error", (`String "NotPolicyException"));
            ("details", (NotPolicyException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("ObjectIdentifiers",
           (Option.map x.objectIdentifiers ~f:ObjectIdentifierList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let objectIdentifiers =
        (Option.map ~f:ObjectIdentifierList.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifiers") in
      make ?nextToken ?objectIdentifiers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let objectIdentifiers =
        field_map json__ "ObjectIdentifiers" ObjectIdentifierList.of_json in
      make ?nextToken ?objectIdentifiers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns all of the ObjectIdentifiers to which a given policy is attached."]
module ListPolicyAttachmentsRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory where objects reside. For more information, see arns."];
      policyReference: ObjectReference.t
        [@ocaml.doc "The reference that identifies the policy object."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc
          "The maximum number of items to be retrieved in a single call. This is an approximate number."];
      consistencyLevel: ConsistencyLevel.t option
        [@ocaml.doc
          "Represents the manner and timing in which the successful write or update of an object is reflected in a subsequent read operation of that same object."]}
    let context_ = "ListPolicyAttachmentsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?consistencyLevel ->
          fun ~directoryArn ->
            fun ~policyReference ->
              fun () ->
                {
                  nextToken;
                  maxResults;
                  consistencyLevel;
                  directoryArn;
                  policyReference
                }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("PolicyReference",
          (Some (ObjectReference.to_value x.policyReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value));
        ("x-amz-consistency-level",
          (Option.map x.consistencyLevel ~f:ConsistencyLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let consistencyLevel =
        (Option.map ~f:ConsistencyLevel.of_xml)
          (Xml.child xml_arg0 "x-amz-consistency-level") in
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let policyReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?consistencyLevel ?maxResults ?nextToken ~policyReference
        ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let consistencyLevel =
        field_map json__ "ConsistencyLevel" ConsistencyLevel.of_json in
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let policyReference =
        field_map_exn json__ "PolicyReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?consistencyLevel ?maxResults ?nextToken ~policyReference
        ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns all of the ObjectIdentifiers to which a given policy is attached."]
module ListOutgoingTypedLinksResponse =
  struct
    type nonrec t =
      {
      typedLinkSpecifiers: TypedLinkSpecifierList.t option
        [@ocaml.doc "Returns a typed link specifier as output."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?typedLinkSpecifiers =
      fun ?nextToken -> fun () -> { typedLinkSpecifiers; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("TypedLinkSpecifiers",
           (Option.map x.typedLinkSpecifiers
              ~f:TypedLinkSpecifierList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let typedLinkSpecifiers =
        (Option.map ~f:TypedLinkSpecifierList.of_xml)
          (Xml.child xml_arg0 "TypedLinkSpecifiers") in
      make ?nextToken ?typedLinkSpecifiers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let typedLinkSpecifiers =
        field_map json__ "TypedLinkSpecifiers" TypedLinkSpecifierList.of_json in
      make ?nextToken ?typedLinkSpecifiers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a paginated list of all the outgoing TypedLinkSpecifier information for an object. It also supports filtering by typed link facet and identity attributes. For more information, see Typed Links."]
module ListOutgoingTypedLinksRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the directory where you want to list the typed links."];
      objectReference: ObjectReference.t
        [@ocaml.doc
          "A reference that identifies the object whose attributes will be listed."];
      filterAttributeRanges: TypedLinkAttributeRangeList.t option
        [@ocaml.doc
          "Provides range filters for multiple attributes. When providing ranges to typed link selection, any inexact ranges must be specified at the end. Any attributes that do not have a range specified are presumed to match the entire range."];
      filterTypedLink: TypedLinkSchemaAndFacetName.t option
        [@ocaml.doc
          "Filters are interpreted in the order of the attributes defined on the typed link facet, not the order they are supplied to any API calls."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."];
      consistencyLevel: ConsistencyLevel.t option
        [@ocaml.doc "The consistency level to execute the request at."]}
    let context_ = "ListOutgoingTypedLinksRequest"
    let make ?filterAttributeRanges =
      fun ?filterTypedLink ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ?consistencyLevel ->
              fun ~directoryArn ->
                fun ~objectReference ->
                  fun () ->
                    {
                      filterAttributeRanges;
                      filterTypedLink;
                      nextToken;
                      maxResults;
                      consistencyLevel;
                      directoryArn;
                      objectReference
                    }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)));
        ("FilterAttributeRanges",
          (Option.map x.filterAttributeRanges
             ~f:TypedLinkAttributeRangeList.to_value));
        ("FilterTypedLink",
          (Option.map x.filterTypedLink
             ~f:TypedLinkSchemaAndFacetName.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value));
        ("ConsistencyLevel",
          (Option.map x.consistencyLevel ~f:ConsistencyLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let consistencyLevel =
        (Option.map ~f:ConsistencyLevel.of_xml)
          (Xml.child xml_arg0 "ConsistencyLevel") in
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filterTypedLink =
        (Option.map ~f:TypedLinkSchemaAndFacetName.of_xml)
          (Xml.child xml_arg0 "FilterTypedLink") in
      let filterAttributeRanges =
        (Option.map ~f:TypedLinkAttributeRangeList.of_xml)
          (Xml.child xml_arg0 "FilterAttributeRanges") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?consistencyLevel ?maxResults ?nextToken ?filterTypedLink
        ?filterAttributeRanges ~objectReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let consistencyLevel =
        field_map json__ "ConsistencyLevel" ConsistencyLevel.of_json in
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filterTypedLink =
        field_map json__ "FilterTypedLink"
          TypedLinkSchemaAndFacetName.of_json in
      let filterAttributeRanges =
        field_map json__ "FilterAttributeRanges"
          TypedLinkAttributeRangeList.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?consistencyLevel ?maxResults ?nextToken ?filterTypedLink
        ?filterAttributeRanges ~objectReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a paginated list of all the outgoing TypedLinkSpecifier information for an object. It also supports filtering by typed link facet and identity attributes. For more information, see Typed Links."]
module ListObjectPoliciesResponse =
  struct
    type nonrec t =
      {
      attachedPolicyIds: ObjectIdentifierList.t option
        [@ocaml.doc
          "A list of policy ObjectIdentifiers, that are attached to the object."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attachedPolicyIds =
      fun ?nextToken -> fun () -> { attachedPolicyIds; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("AttachedPolicyIds",
           (Option.map x.attachedPolicyIds ~f:ObjectIdentifierList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let attachedPolicyIds =
        (Option.map ~f:ObjectIdentifierList.of_xml)
          (Xml.child xml_arg0 "AttachedPolicyIds") in
      make ?nextToken ?attachedPolicyIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let attachedPolicyIds =
        field_map json__ "AttachedPolicyIds" ObjectIdentifierList.of_json in
      make ?nextToken ?attachedPolicyIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns policies attached to an object in pagination fashion."]
module ListObjectPoliciesRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory where objects reside. For more information, see arns."];
      objectReference: ObjectReference.t
        [@ocaml.doc
          "Reference that identifies the object for which policies will be listed."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc
          "The maximum number of items to be retrieved in a single call. This is an approximate number."];
      consistencyLevel: ConsistencyLevel.t option
        [@ocaml.doc
          "Represents the manner and timing in which the successful write or update of an object is reflected in a subsequent read operation of that same object."]}
    let context_ = "ListObjectPoliciesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?consistencyLevel ->
          fun ~directoryArn ->
            fun ~objectReference ->
              fun () ->
                {
                  nextToken;
                  maxResults;
                  consistencyLevel;
                  directoryArn;
                  objectReference
                }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value));
        ("x-amz-consistency-level",
          (Option.map x.consistencyLevel ~f:ConsistencyLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let consistencyLevel =
        (Option.map ~f:ConsistencyLevel.of_xml)
          (Xml.child xml_arg0 "x-amz-consistency-level") in
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?consistencyLevel ?maxResults ?nextToken ~objectReference
        ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let consistencyLevel =
        field_map json__ "ConsistencyLevel" ConsistencyLevel.of_json in
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?consistencyLevel ?maxResults ?nextToken ~objectReference
        ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns policies attached to an object in pagination fashion."]
module ListObjectParentsResponse =
  struct
    type nonrec t =
      {
      parents: ObjectIdentifierToLinkNameMap.t option
        [@ocaml.doc
          "The parent structure, which is a map with key as the ObjectIdentifier and LinkName as the value."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      parentLinks: ObjectIdentifierAndLinkNameList.t option
        [@ocaml.doc
          "Returns a list of parent reference and LinkName Tuples."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `CannotListParentOfRootException of CannotListParentOfRootException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?parents =
      fun ?nextToken ->
        fun ?parentLinks -> fun () -> { parents; nextToken; parentLinks }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "CannotListParentOfRootException" ->
          `CannotListParentOfRootException
            (CannotListParentOfRootException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "CannotListParentOfRootException" ->
          `CannotListParentOfRootException
            (CannotListParentOfRootException.of_xml xml)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `CannotListParentOfRootException e ->
          `Assoc
            [("error", (`String "CannotListParentOfRootException"));
            ("details", (CannotListParentOfRootException.to_json e))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("Parents",
           (Option.map x.parents ~f:ObjectIdentifierToLinkNameMap.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("ParentLinks",
          (Option.map x.parentLinks
             ~f:ObjectIdentifierAndLinkNameList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parentLinks =
        (Option.map ~f:ObjectIdentifierAndLinkNameList.of_xml)
          (Xml.child xml_arg0 "ParentLinks") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let parents =
        (Option.map ~f:ObjectIdentifierToLinkNameMap.of_xml)
          (Xml.child xml_arg0 "Parents") in
      make ?parentLinks ?nextToken ?parents ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parentLinks =
        field_map json__ "ParentLinks"
          ObjectIdentifierAndLinkNameList.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let parents =
        field_map json__ "Parents" ObjectIdentifierToLinkNameMap.of_json in
      make ?parentLinks ?nextToken ?parents ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists parent objects that are associated with a given object in pagination fashion."]
module ListObjectParentsRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory where the object resides. For more information, see arns."];
      objectReference: ObjectReference.t
        [@ocaml.doc
          "The reference that identifies the object for which parent objects are being listed."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc
          "The maximum number of items to be retrieved in a single call. This is an approximate number."];
      consistencyLevel: ConsistencyLevel.t option
        [@ocaml.doc
          "Represents the manner and timing in which the successful write or update of an object is reflected in a subsequent read operation of that same object."];
      includeAllLinksToEachParent: Bool_.t option
        [@ocaml.doc
          "When set to True, returns all ListObjectParentsResponse$ParentLinks. There could be multiple links between a parent-child pair."]}
    let context_ = "ListObjectParentsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?consistencyLevel ->
          fun ?includeAllLinksToEachParent ->
            fun ~directoryArn ->
              fun ~objectReference ->
                fun () ->
                  {
                    nextToken;
                    maxResults;
                    consistencyLevel;
                    includeAllLinksToEachParent;
                    directoryArn;
                    objectReference
                  }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value));
        ("x-amz-consistency-level",
          (Option.map x.consistencyLevel ~f:ConsistencyLevel.to_value));
        ("IncludeAllLinksToEachParent",
          (Option.map x.includeAllLinksToEachParent ~f:Bool_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let includeAllLinksToEachParent =
        (Option.map ~f:Bool_.of_xml)
          (Xml.child xml_arg0 "IncludeAllLinksToEachParent") in
      let consistencyLevel =
        (Option.map ~f:ConsistencyLevel.of_xml)
          (Xml.child xml_arg0 "x-amz-consistency-level") in
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?includeAllLinksToEachParent ?consistencyLevel ?maxResults
        ?nextToken ~objectReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let includeAllLinksToEachParent =
        field_map json__ "IncludeAllLinksToEachParent" Bool_.of_json in
      let consistencyLevel =
        field_map json__ "ConsistencyLevel" ConsistencyLevel.of_json in
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?includeAllLinksToEachParent ?consistencyLevel ?maxResults
        ?nextToken ~objectReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists parent objects that are associated with a given object in pagination fashion."]
module ListObjectParentPathsResponse =
  struct
    type nonrec t =
      {
      pathToObjectIdentifiersList: PathToObjectIdentifiersList.t option
        [@ocaml.doc
          "Returns the path to the ObjectIdentifiers that are associated with the directory."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pathToObjectIdentifiersList =
      fun ?nextToken -> fun () -> { pathToObjectIdentifiersList; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("PathToObjectIdentifiersList",
           (Option.map x.pathToObjectIdentifiersList
              ~f:PathToObjectIdentifiersList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let pathToObjectIdentifiersList =
        (Option.map ~f:PathToObjectIdentifiersList.of_xml)
          (Xml.child xml_arg0 "PathToObjectIdentifiersList") in
      make ?nextToken ?pathToObjectIdentifiersList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let pathToObjectIdentifiersList =
        field_map json__ "PathToObjectIdentifiersList"
          PathToObjectIdentifiersList.of_json in
      make ?nextToken ?pathToObjectIdentifiersList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves all available parent paths for any object type such as node, leaf node, policy node, and index node objects. For more information about objects, see Directory Structure. Use this API to evaluate all parents for an object. The call returns all objects from the root of the directory up to the requested object. The API returns the number of paths based on user-defined MaxResults, in case there are multiple paths to the parent. The order of the paths and nodes returned is consistent among multiple API calls unless the objects are deleted or moved. Paths not leading to the directory root are ignored from the target object."]
module ListObjectParentPathsRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The ARN of the directory to which the parent path applies."];
      objectReference: ObjectReference.t
        [@ocaml.doc
          "The reference that identifies the object whose parent paths are listed."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc
          "The maximum number of items to be retrieved in a single call. This is an approximate number."]}
    let context_ = "ListObjectParentPathsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~directoryArn ->
          fun ~objectReference ->
            fun () ->
              { nextToken; maxResults; directoryArn; objectReference }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?maxResults ?nextToken ~objectReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?maxResults ?nextToken ~objectReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves all available parent paths for any object type such as node, leaf node, policy node, and index node objects. For more information about objects, see Directory Structure. Use this API to evaluate all parents for an object. The call returns all objects from the root of the directory up to the requested object. The API returns the number of paths based on user-defined MaxResults, in case there are multiple paths to the parent. The order of the paths and nodes returned is consistent among multiple API calls unless the objects are deleted or moved. Paths not leading to the directory root are ignored from the target object."]
module ListObjectChildrenResponse =
  struct
    type nonrec t =
      {
      children: LinkNameToObjectIdentifierMap.t option
        [@ocaml.doc
          "Children structure, which is a map with key as the LinkName and ObjectIdentifier as the value."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotNodeException of NotNodeException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?children = fun ?nextToken -> fun () -> { children; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotNodeException" ->
          `NotNodeException (NotNodeException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotNodeException" -> `NotNodeException (NotNodeException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotNodeException e ->
          `Assoc
            [("error", (`String "NotNodeException"));
            ("details", (NotNodeException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("Children",
           (Option.map x.children ~f:LinkNameToObjectIdentifierMap.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let children =
        (Option.map ~f:LinkNameToObjectIdentifierMap.of_xml)
          (Xml.child xml_arg0 "Children") in
      make ?nextToken ?children ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let children =
        field_map json__ "Children" LinkNameToObjectIdentifierMap.of_json in
      make ?nextToken ?children ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a paginated list of child objects that are associated with a given object."]
module ListObjectChildrenRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory where the object resides. For more information, see arns."];
      objectReference: ObjectReference.t
        [@ocaml.doc
          "The reference that identifies the object for which child objects are being listed."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc
          "The maximum number of items to be retrieved in a single call. This is an approximate number."];
      consistencyLevel: ConsistencyLevel.t option
        [@ocaml.doc
          "Represents the manner and timing in which the successful write or update of an object is reflected in a subsequent read operation of that same object."]}
    let context_ = "ListObjectChildrenRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?consistencyLevel ->
          fun ~directoryArn ->
            fun ~objectReference ->
              fun () ->
                {
                  nextToken;
                  maxResults;
                  consistencyLevel;
                  directoryArn;
                  objectReference
                }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value));
        ("x-amz-consistency-level",
          (Option.map x.consistencyLevel ~f:ConsistencyLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let consistencyLevel =
        (Option.map ~f:ConsistencyLevel.of_xml)
          (Xml.child xml_arg0 "x-amz-consistency-level") in
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?consistencyLevel ?maxResults ?nextToken ~objectReference
        ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let consistencyLevel =
        field_map json__ "ConsistencyLevel" ConsistencyLevel.of_json in
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?consistencyLevel ?maxResults ?nextToken ~objectReference
        ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a paginated list of child objects that are associated with a given object."]
module ListObjectAttributesResponse =
  struct
    type nonrec t =
      {
      attributes: AttributeKeyAndValueList.t option
        [@ocaml.doc
          "Attributes map that is associated with the object. AttributeArn is the key, and attribute value is the value."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attributes =
      fun ?nextToken -> fun () -> { attributes; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("Attributes",
           (Option.map x.attributes ~f:AttributeKeyAndValueList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let attributes =
        (Option.map ~f:AttributeKeyAndValueList.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      make ?nextToken ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let attributes =
        field_map json__ "Attributes" AttributeKeyAndValueList.of_json in
      make ?nextToken ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all attributes that are associated with an object."]
module ListObjectAttributesRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory where the object resides. For more information, see arns."];
      objectReference: ObjectReference.t
        [@ocaml.doc
          "The reference that identifies the object whose attributes will be listed."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc
          "The maximum number of items to be retrieved in a single call. This is an approximate number."];
      consistencyLevel: ConsistencyLevel.t option
        [@ocaml.doc
          "Represents the manner and timing in which the successful write or update of an object is reflected in a subsequent read operation of that same object."];
      facetFilter: SchemaFacet.t option
        [@ocaml.doc
          "Used to filter the list of object attributes that are associated with a certain facet."]}
    let context_ = "ListObjectAttributesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?consistencyLevel ->
          fun ?facetFilter ->
            fun ~directoryArn ->
              fun ~objectReference ->
                fun () ->
                  {
                    nextToken;
                    maxResults;
                    consistencyLevel;
                    facetFilter;
                    directoryArn;
                    objectReference
                  }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value));
        ("x-amz-consistency-level",
          (Option.map x.consistencyLevel ~f:ConsistencyLevel.to_value));
        ("FacetFilter", (Option.map x.facetFilter ~f:SchemaFacet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let facetFilter =
        (Option.map ~f:SchemaFacet.of_xml) (Xml.child xml_arg0 "FacetFilter") in
      let consistencyLevel =
        (Option.map ~f:ConsistencyLevel.of_xml)
          (Xml.child xml_arg0 "x-amz-consistency-level") in
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?facetFilter ?consistencyLevel ?maxResults ?nextToken
        ~objectReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let facetFilter = field_map json__ "FacetFilter" SchemaFacet.of_json in
      let consistencyLevel =
        field_map json__ "ConsistencyLevel" ConsistencyLevel.of_json in
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?facetFilter ?consistencyLevel ?maxResults ?nextToken
        ~objectReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all attributes that are associated with an object."]
module ListManagedSchemaArnsResponse =
  struct
    type nonrec t =
      {
      schemaArns: Arns.t option
        [@ocaml.doc "The ARNs for all AWS managed schemas."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?schemaArns =
      fun ?nextToken -> fun () -> { schemaArns; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("SchemaArns", (Option.map x.schemaArns ~f:Arns.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let schemaArns =
        (Option.map ~f:Arns.of_xml) (Xml.child xml_arg0 "SchemaArns") in
      make ?nextToken ?schemaArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let schemaArns = field_map json__ "SchemaArns" Arns.of_json in
      make ?nextToken ?schemaArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the major version families of each managed schema. If a major version ARN is provided as SchemaArn, the minor version revisions in that family are listed instead."]
module ListManagedSchemaArnsRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t option
        [@ocaml.doc
          "The response for ListManagedSchemaArns. When this parameter is used, all minor version ARNs for a major version are listed."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let make ?schemaArn =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { schemaArn; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("SchemaArn", (Option.map x.schemaArn ~f:Arn.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let schemaArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      make ?maxResults ?nextToken ?schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let schemaArn = field_map json__ "SchemaArn" Arn.of_json in
      make ?maxResults ?nextToken ?schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the major version families of each managed schema. If a major version ARN is provided as SchemaArn, the minor version revisions in that family are listed instead."]
module ListIndexResponse =
  struct
    type nonrec t =
      {
      indexAttachments: IndexAttachmentList.t option
        [@ocaml.doc "The objects and indexed values attached to the index."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotIndexException of NotIndexException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?indexAttachments =
      fun ?nextToken -> fun () -> { indexAttachments; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotIndexException" ->
          `NotIndexException (NotIndexException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotIndexException" ->
          `NotIndexException (NotIndexException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotIndexException e ->
          `Assoc
            [("error", (`String "NotIndexException"));
            ("details", (NotIndexException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("IndexAttachments",
           (Option.map x.indexAttachments ~f:IndexAttachmentList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let indexAttachments =
        (Option.map ~f:IndexAttachmentList.of_xml)
          (Xml.child xml_arg0 "IndexAttachments") in
      make ?nextToken ?indexAttachments ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let indexAttachments =
        field_map json__ "IndexAttachments" IndexAttachmentList.of_json in
      make ?nextToken ?indexAttachments ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists objects attached to the specified index."]
module ListIndexRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc "The ARN of the directory that the index exists in."];
      rangesOnIndexedValues: ObjectAttributeRangeList.t option
        [@ocaml.doc
          "Specifies the ranges of indexed values that you want to query."];
      indexReference: ObjectReference.t
        [@ocaml.doc "The reference to the index to list."];
      maxResults: NumberResults.t option
        [@ocaml.doc
          "The maximum number of objects in a single page to retrieve from the index during a request. For more information, see Amazon Cloud Directory Limits."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      consistencyLevel: ConsistencyLevel.t option
        [@ocaml.doc "The consistency level to execute the request at."]}
    let context_ = "ListIndexRequest"
    let make ?rangesOnIndexedValues =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ?consistencyLevel ->
            fun ~directoryArn ->
              fun ~indexReference ->
                fun () ->
                  {
                    rangesOnIndexedValues;
                    maxResults;
                    nextToken;
                    consistencyLevel;
                    directoryArn;
                    indexReference
                  }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("RangesOnIndexedValues",
          (Option.map x.rangesOnIndexedValues
             ~f:ObjectAttributeRangeList.to_value));
        ("IndexReference",
          (Some (ObjectReference.to_value x.indexReference)));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("x-amz-consistency-level",
          (Option.map x.consistencyLevel ~f:ConsistencyLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let consistencyLevel =
        (Option.map ~f:ConsistencyLevel.of_xml)
          (Xml.child xml_arg0 "x-amz-consistency-level") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let indexReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IndexReference") in
      let rangesOnIndexedValues =
        (Option.map ~f:ObjectAttributeRangeList.of_xml)
          (Xml.child xml_arg0 "RangesOnIndexedValues") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?consistencyLevel ?nextToken ?maxResults ~indexReference
        ?rangesOnIndexedValues ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let consistencyLevel =
        field_map json__ "ConsistencyLevel" ConsistencyLevel.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let indexReference =
        field_map_exn json__ "IndexReference" ObjectReference.of_json in
      let rangesOnIndexedValues =
        field_map json__ "RangesOnIndexedValues"
          ObjectAttributeRangeList.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?consistencyLevel ?nextToken ?maxResults ~indexReference
        ?rangesOnIndexedValues ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists objects attached to the specified index."]
module ListIncomingTypedLinksResponse =
  struct
    type nonrec t =
      {
      linkSpecifiers: TypedLinkSpecifierList.t option
        [@ocaml.doc "Returns one or more typed link specifiers as output."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?linkSpecifiers =
      fun ?nextToken -> fun () -> { linkSpecifiers; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("LinkSpecifiers",
           (Option.map x.linkSpecifiers ~f:TypedLinkSpecifierList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let linkSpecifiers =
        (Option.map ~f:TypedLinkSpecifierList.of_xml)
          (Xml.child xml_arg0 "LinkSpecifiers") in
      make ?nextToken ?linkSpecifiers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let linkSpecifiers =
        field_map json__ "LinkSpecifiers" TypedLinkSpecifierList.of_json in
      make ?nextToken ?linkSpecifiers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a paginated list of all the incoming TypedLinkSpecifier information for an object. It also supports filtering by typed link facet and identity attributes. For more information, see Typed Links."]
module ListIncomingTypedLinksRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the directory where you want to list the typed links."];
      objectReference: ObjectReference.t
        [@ocaml.doc
          "Reference that identifies the object whose attributes will be listed."];
      filterAttributeRanges: TypedLinkAttributeRangeList.t option
        [@ocaml.doc
          "Provides range filters for multiple attributes. When providing ranges to typed link selection, any inexact ranges must be specified at the end. Any attributes that do not have a range specified are presumed to match the entire range."];
      filterTypedLink: TypedLinkSchemaAndFacetName.t option
        [@ocaml.doc
          "Filters are interpreted in the order of the attributes on the typed link facet, not the order in which they are supplied to any API calls."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."];
      consistencyLevel: ConsistencyLevel.t option
        [@ocaml.doc "The consistency level to execute the request at."]}
    let context_ = "ListIncomingTypedLinksRequest"
    let make ?filterAttributeRanges =
      fun ?filterTypedLink ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ?consistencyLevel ->
              fun ~directoryArn ->
                fun ~objectReference ->
                  fun () ->
                    {
                      filterAttributeRanges;
                      filterTypedLink;
                      nextToken;
                      maxResults;
                      consistencyLevel;
                      directoryArn;
                      objectReference
                    }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)));
        ("FilterAttributeRanges",
          (Option.map x.filterAttributeRanges
             ~f:TypedLinkAttributeRangeList.to_value));
        ("FilterTypedLink",
          (Option.map x.filterTypedLink
             ~f:TypedLinkSchemaAndFacetName.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value));
        ("ConsistencyLevel",
          (Option.map x.consistencyLevel ~f:ConsistencyLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let consistencyLevel =
        (Option.map ~f:ConsistencyLevel.of_xml)
          (Xml.child xml_arg0 "ConsistencyLevel") in
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filterTypedLink =
        (Option.map ~f:TypedLinkSchemaAndFacetName.of_xml)
          (Xml.child xml_arg0 "FilterTypedLink") in
      let filterAttributeRanges =
        (Option.map ~f:TypedLinkAttributeRangeList.of_xml)
          (Xml.child xml_arg0 "FilterAttributeRanges") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?consistencyLevel ?maxResults ?nextToken ?filterTypedLink
        ?filterAttributeRanges ~objectReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let consistencyLevel =
        field_map json__ "ConsistencyLevel" ConsistencyLevel.of_json in
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filterTypedLink =
        field_map json__ "FilterTypedLink"
          TypedLinkSchemaAndFacetName.of_json in
      let filterAttributeRanges =
        field_map json__ "FilterAttributeRanges"
          TypedLinkAttributeRangeList.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?consistencyLevel ?maxResults ?nextToken ?filterTypedLink
        ?filterAttributeRanges ~objectReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a paginated list of all the incoming TypedLinkSpecifier information for an object. It also supports filtering by typed link facet and identity attributes. For more information, see Typed Links."]
module ListFacetNamesResponse =
  struct
    type nonrec t =
      {
      facetNames: FacetNameList.t option
        [@ocaml.doc "The names of facets that exist within the schema."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?facetNames =
      fun ?nextToken -> fun () -> { facetNames; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("FacetNames", (Option.map x.facetNames ~f:FacetNameList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let facetNames =
        (Option.map ~f:FacetNameList.of_xml)
          (Xml.child xml_arg0 "FacetNames") in
      make ?nextToken ?facetNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let facetNames = field_map json__ "FacetNames" FacetNameList.of_json in
      make ?nextToken ?facetNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the names of facets that exist in a schema."]
module ListFacetNamesRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) to retrieve facet names from."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let context_ = "ListFacetNamesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~schemaArn -> fun () -> { nextToken; maxResults; schemaArn }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?maxResults ?nextToken ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ?maxResults ?nextToken ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the names of facets that exist in a schema."]
module ListFacetAttributesResponse =
  struct
    type nonrec t =
      {
      attributes: FacetAttributeList.t option
        [@ocaml.doc "The attributes attached to the facet."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `FacetNotFoundException of FacetNotFoundException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attributes =
      fun ?nextToken -> fun () -> { attributes; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `FacetNotFoundException e ->
          `Assoc
            [("error", (`String "FacetNotFoundException"));
            ("details", (FacetNotFoundException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("Attributes",
           (Option.map x.attributes ~f:FacetAttributeList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let attributes =
        (Option.map ~f:FacetAttributeList.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      make ?nextToken ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let attributes =
        field_map json__ "Attributes" FacetAttributeList.of_json in
      make ?nextToken ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves attributes attached to the facet."]
module ListFacetAttributesRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc "The ARN of the schema where the facet resides."];
      name: FacetName.t
        [@ocaml.doc
          "The name of the facet whose attributes will be retrieved."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let context_ = "ListFacetAttributesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~schemaArn ->
          fun ~name -> fun () -> { nextToken; maxResults; schemaArn; name }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)));
        ("Name", (Some (FacetName.to_value x.name)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let name =
        FacetName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?maxResults ?nextToken ~name ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let name = field_map_exn json__ "Name" FacetName.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ?maxResults ?nextToken ~name ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves attributes attached to the facet."]
module ListDirectoriesResponse =
  struct
    type nonrec t =
      {
      directories: DirectoryList.t option
        [@ocaml.doc
          "Lists all directories that are associated with your account in pagination fashion."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directories =
      fun ?nextToken -> fun () -> { directories; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("Directories",
           (Option.map x.directories ~f:DirectoryList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let directories =
        (Option.map ~f:DirectoryList.of_xml)
          (Xml.child xml_arg0 "Directories") in
      make ?nextToken ?directories ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let directories = field_map json__ "Directories" DirectoryList.of_json in
      make ?nextToken ?directories ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists directories created within an account."]
module ListDirectoriesRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."];
      state: DirectoryState.t option
        [@ocaml.doc
          "The state of the directories in the list. Can be either Enabled, Disabled, or Deleted."]}
    let make ?nextToken =
      fun ?maxResults ->
        fun ?state -> fun () -> { nextToken; maxResults; state }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value));
        ("state", (Option.map x.state ~f:DirectoryState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:DirectoryState.of_xml) (Xml.child xml_arg0 "state") in
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?state ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "state" DirectoryState.of_json in
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?state ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists directories created within an account."]
module ListDevelopmentSchemaArnsResponse =
  struct
    type nonrec t =
      {
      schemaArns: Arns.t option
        [@ocaml.doc "The ARNs of retrieved development schemas."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?schemaArns =
      fun ?nextToken -> fun () -> { schemaArns; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("SchemaArns", (Option.map x.schemaArns ~f:Arns.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let schemaArns =
        (Option.map ~f:Arns.of_xml) (Xml.child xml_arg0 "SchemaArns") in
      make ?nextToken ?schemaArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let schemaArns = field_map json__ "SchemaArns" Arns.of_json in
      make ?nextToken ?schemaArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves each Amazon Resource Name (ARN) of schemas in the development state."]
module ListDevelopmentSchemaArnsRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.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" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves each Amazon Resource Name (ARN) of schemas in the development state."]
module ListAttachedIndicesResponse =
  struct
    type nonrec t =
      {
      indexAttachments: IndexAttachmentList.t option
        [@ocaml.doc "The indices attached to the specified object."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?indexAttachments =
      fun ?nextToken -> fun () -> { indexAttachments; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("IndexAttachments",
           (Option.map x.indexAttachments ~f:IndexAttachmentList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let indexAttachments =
        (Option.map ~f:IndexAttachmentList.of_xml)
          (Xml.child xml_arg0 "IndexAttachments") in
      make ?nextToken ?indexAttachments ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let indexAttachments =
        field_map json__ "IndexAttachments" IndexAttachmentList.of_json in
      make ?nextToken ?indexAttachments ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists indices attached to the specified object."]
module ListAttachedIndicesRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t [@ocaml.doc "The ARN of the directory."];
      targetReference: ObjectReference.t
        [@ocaml.doc "A reference to the object that has indices attached."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."];
      consistencyLevel: ConsistencyLevel.t option
        [@ocaml.doc "The consistency level to use for this operation."]}
    let context_ = "ListAttachedIndicesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?consistencyLevel ->
          fun ~directoryArn ->
            fun ~targetReference ->
              fun () ->
                {
                  nextToken;
                  maxResults;
                  consistencyLevel;
                  directoryArn;
                  targetReference
                }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("TargetReference",
          (Some (ObjectReference.to_value x.targetReference)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value));
        ("x-amz-consistency-level",
          (Option.map x.consistencyLevel ~f:ConsistencyLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let consistencyLevel =
        (Option.map ~f:ConsistencyLevel.of_xml)
          (Xml.child xml_arg0 "x-amz-consistency-level") in
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let targetReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?consistencyLevel ?maxResults ?nextToken ~targetReference
        ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let consistencyLevel =
        field_map json__ "ConsistencyLevel" ConsistencyLevel.of_json in
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let targetReference =
        field_map_exn json__ "TargetReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?consistencyLevel ?maxResults ?nextToken ~targetReference
        ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists indices attached to the specified object."]
module ListAppliedSchemaArnsResponse =
  struct
    type nonrec t =
      {
      schemaArns: Arns.t option
        [@ocaml.doc "The ARNs of schemas that are applied to the directory."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?schemaArns =
      fun ?nextToken -> fun () -> { schemaArns; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("SchemaArns", (Option.map x.schemaArns ~f:Arns.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let schemaArns =
        (Option.map ~f:Arns.of_xml) (Xml.child xml_arg0 "SchemaArns") in
      make ?nextToken ?schemaArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let schemaArns = field_map json__ "SchemaArns" Arns.of_json in
      make ?nextToken ?schemaArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists schema major versions applied to a directory. If SchemaArn is provided, lists the minor version."]
module ListAppliedSchemaArnsRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc "The ARN of the directory you are listing."];
      schemaArn: Arn.t option
        [@ocaml.doc
          "The response for ListAppliedSchemaArns when this parameter is used will list all minor version ARNs for a major version."];
      nextToken: NextToken.t option [@ocaml.doc "The pagination token."];
      maxResults: NumberResults.t option
        [@ocaml.doc "The maximum number of results to retrieve."]}
    let context_ = "ListAppliedSchemaArnsRequest"
    let make ?schemaArn =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~directoryArn ->
            fun () -> { schemaArn; nextToken; maxResults; directoryArn }
    let to_value x =
      structure_to_value
        [("DirectoryArn", (Some (Arn.to_value x.directoryArn)));
        ("SchemaArn", (Option.map x.schemaArn ~f:Arn.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:NumberResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NumberResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let schemaArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      let directoryArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DirectoryArn") in
      make ?maxResults ?nextToken ?schemaArn ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NumberResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let schemaArn = field_map json__ "SchemaArn" Arn.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?maxResults ?nextToken ?schemaArn ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists schema major versions applied to a directory. If SchemaArn is provided, lists the minor version."]
module GetTypedLinkFacetInformationResponse =
  struct
    type nonrec t =
      {
      identityAttributeOrder: AttributeNameList.t option
        [@ocaml.doc
          "The order of identity attributes for the facet, from most significant to least significant. The ability to filter typed links considers the order that the attributes are defined on the typed link facet. When providing ranges to typed link selection, any inexact ranges must be specified at the end. Any attributes that do not have a range specified are presumed to match the entire range. Filters are interpreted in the order of the attributes on the typed link facet, not the order in which they are supplied to any API calls. For more information about identity attributes, see Typed Links."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `FacetNotFoundException of FacetNotFoundException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityAttributeOrder = fun () -> { identityAttributeOrder }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `FacetNotFoundException e ->
          `Assoc
            [("error", (`String "FacetNotFoundException"));
            ("details", (FacetNotFoundException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("IdentityAttributeOrder",
           (Option.map x.identityAttributeOrder ~f:AttributeNameList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityAttributeOrder =
        (Option.map ~f:AttributeNameList.of_xml)
          (Xml.child xml_arg0 "IdentityAttributeOrder") in
      make ?identityAttributeOrder ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityAttributeOrder =
        field_map json__ "IdentityAttributeOrder" AttributeNameList.of_json in
      make ?identityAttributeOrder ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the identity attribute order for a specific TypedLinkFacet. For more information, see Typed Links."]
module GetTypedLinkFacetInformationRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the schema. For more information, see arns."];
      name: TypedLinkName.t
        [@ocaml.doc "The unique name of the typed link facet."]}
    let context_ = "GetTypedLinkFacetInformationRequest"
    let make ~schemaArn = fun ~name -> fun () -> { schemaArn; name }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)));
        ("Name", (Some (TypedLinkName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        TypedLinkName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~name ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" TypedLinkName.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ~name ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the identity attribute order for a specific TypedLinkFacet. For more information, see Typed Links."]
module GetSchemaAsJsonResponse =
  struct
    type nonrec t =
      {
      name: SchemaName.t option
        [@ocaml.doc "The name of the retrieved schema."];
      document: SchemaJsonDocument.t option
        [@ocaml.doc "The JSON representation of the schema document."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name = fun ?document -> fun () -> { name; document }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("Name", (Option.map x.name ~f:SchemaName.to_value));
        ("Document", (Option.map x.document ~f:SchemaJsonDocument.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let document =
        (Option.map ~f:SchemaJsonDocument.of_xml)
          (Xml.child xml_arg0 "Document") in
      let name =
        (Option.map ~f:SchemaName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?document ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let document = field_map json__ "Document" SchemaJsonDocument.of_json in
      let name = field_map json__ "Name" SchemaName.of_json in
      make ?document ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a JSON representation of the schema. See JSON Schema Format for more information."]
module GetSchemaAsJsonRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t [@ocaml.doc "The ARN of the schema to retrieve."]}
    let context_ = "GetSchemaAsJsonRequest"
    let make ~schemaArn = fun () -> { schemaArn }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~schemaArn:(Arn.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "x-amz-data-partition")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a JSON representation of the schema. See JSON Schema Format for more information."]
module GetObjectInformationResponse =
  struct
    type nonrec t =
      {
      schemaFacets: SchemaFacetList.t option
        [@ocaml.doc
          "The facets attached to the specified object. Although the response does not include minor version information, the most recently applied minor version of each Facet is in effect. See GetAppliedSchemaVersion for details."];
      objectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc "The ObjectIdentifier of the specified object."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?schemaFacets =
      fun ?objectIdentifier -> fun () -> { schemaFacets; objectIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("SchemaFacets",
           (Option.map x.schemaFacets ~f:SchemaFacetList.to_value));
        ("ObjectIdentifier",
          (Option.map x.objectIdentifier ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifier") in
      let schemaFacets =
        (Option.map ~f:SchemaFacetList.of_xml)
          (Xml.child xml_arg0 "SchemaFacets") in
      make ?objectIdentifier ?schemaFacets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectIdentifier =
        field_map json__ "ObjectIdentifier" ObjectIdentifier.of_json in
      let schemaFacets =
        field_map json__ "SchemaFacets" SchemaFacetList.of_json in
      make ?objectIdentifier ?schemaFacets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves metadata about an object."]
module GetObjectInformationRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc "The ARN of the directory being retrieved."];
      objectReference: ObjectReference.t
        [@ocaml.doc "A reference to the object."];
      consistencyLevel: ConsistencyLevel.t option
        [@ocaml.doc
          "The consistency level at which to retrieve the object information."]}
    let context_ = "GetObjectInformationRequest"
    let make ?consistencyLevel =
      fun ~directoryArn ->
        fun ~objectReference ->
          fun () -> { consistencyLevel; directoryArn; objectReference }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)));
        ("x-amz-consistency-level",
          (Option.map x.consistencyLevel ~f:ConsistencyLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let consistencyLevel =
        (Option.map ~f:ConsistencyLevel.of_xml)
          (Xml.child xml_arg0 "x-amz-consistency-level") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?consistencyLevel ~objectReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let consistencyLevel =
        field_map json__ "ConsistencyLevel" ConsistencyLevel.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?consistencyLevel ~objectReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves metadata about an object."]
module GetObjectAttributesResponse =
  struct
    type nonrec t =
      {
      attributes: AttributeKeyAndValueList.t option
        [@ocaml.doc "The attributes that are associated with the object."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attributes = fun () -> { attributes }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("Attributes",
           (Option.map x.attributes ~f:AttributeKeyAndValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:AttributeKeyAndValueList.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      make ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "Attributes" AttributeKeyAndValueList.of_json in
      make ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves attributes within a facet that are associated with an object."]
module GetObjectAttributesRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory where the object resides."];
      objectReference: ObjectReference.t
        [@ocaml.doc
          "Reference that identifies the object whose attributes will be retrieved."];
      consistencyLevel: ConsistencyLevel.t option
        [@ocaml.doc
          "The consistency level at which to retrieve the attributes on an object."];
      schemaFacet: SchemaFacet.t
        [@ocaml.doc
          "Identifier for the facet whose attributes will be retrieved. See SchemaFacet for details."];
      attributeNames: AttributeNameList.t
        [@ocaml.doc
          "List of attribute names whose values will be retrieved."]}
    let context_ = "GetObjectAttributesRequest"
    let make ?consistencyLevel =
      fun ~directoryArn ->
        fun ~objectReference ->
          fun ~schemaFacet ->
            fun ~attributeNames ->
              fun () ->
                {
                  consistencyLevel;
                  directoryArn;
                  objectReference;
                  schemaFacet;
                  attributeNames
                }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)));
        ("x-amz-consistency-level",
          (Option.map x.consistencyLevel ~f:ConsistencyLevel.to_value));
        ("SchemaFacet", (Some (SchemaFacet.to_value x.schemaFacet)));
        ("AttributeNames",
          (Some (AttributeNameList.to_value x.attributeNames)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeNames =
        AttributeNameList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttributeNames") in
      let schemaFacet =
        SchemaFacet.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SchemaFacet") in
      let consistencyLevel =
        (Option.map ~f:ConsistencyLevel.of_xml)
          (Xml.child xml_arg0 "x-amz-consistency-level") in
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~attributeNames ~schemaFacet ?consistencyLevel ~objectReference
        ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeNames =
        field_map_exn json__ "AttributeNames" AttributeNameList.of_json in
      let schemaFacet =
        field_map_exn json__ "SchemaFacet" SchemaFacet.of_json in
      let consistencyLevel =
        field_map json__ "ConsistencyLevel" ConsistencyLevel.of_json in
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~attributeNames ~schemaFacet ?consistencyLevel ~objectReference
        ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves attributes within a facet that are associated with an object."]
module GetLinkAttributesResponse =
  struct
    type nonrec t =
      {
      attributes: AttributeKeyAndValueList.t option
        [@ocaml.doc
          "The attributes that are associated with the typed link."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attributes = fun () -> { attributes }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("Attributes",
           (Option.map x.attributes ~f:AttributeKeyAndValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:AttributeKeyAndValueList.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      make ?attributes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map json__ "Attributes" AttributeKeyAndValueList.of_json in
      make ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves attributes that are associated with a typed link."]
module GetLinkAttributesRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory where the typed link resides. For more information, see arns or Typed Links."];
      typedLinkSpecifier: TypedLinkSpecifier.t
        [@ocaml.doc "Allows a typed link specifier to be accepted as input."];
      attributeNames: AttributeNameList.t
        [@ocaml.doc
          "A list of attribute names whose values will be retrieved."];
      consistencyLevel: ConsistencyLevel.t option
        [@ocaml.doc
          "The consistency level at which to retrieve the attributes on a typed link."]}
    let context_ = "GetLinkAttributesRequest"
    let make ?consistencyLevel =
      fun ~directoryArn ->
        fun ~typedLinkSpecifier ->
          fun ~attributeNames ->
            fun () ->
              {
                consistencyLevel;
                directoryArn;
                typedLinkSpecifier;
                attributeNames
              }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("TypedLinkSpecifier",
          (Some (TypedLinkSpecifier.to_value x.typedLinkSpecifier)));
        ("AttributeNames",
          (Some (AttributeNameList.to_value x.attributeNames)));
        ("ConsistencyLevel",
          (Option.map x.consistencyLevel ~f:ConsistencyLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let consistencyLevel =
        (Option.map ~f:ConsistencyLevel.of_xml)
          (Xml.child xml_arg0 "ConsistencyLevel") in
      let attributeNames =
        AttributeNameList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AttributeNames") in
      let typedLinkSpecifier =
        TypedLinkSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TypedLinkSpecifier") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?consistencyLevel ~attributeNames ~typedLinkSpecifier
        ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let consistencyLevel =
        field_map json__ "ConsistencyLevel" ConsistencyLevel.of_json in
      let attributeNames =
        field_map_exn json__ "AttributeNames" AttributeNameList.of_json in
      let typedLinkSpecifier =
        field_map_exn json__ "TypedLinkSpecifier" TypedLinkSpecifier.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?consistencyLevel ~attributeNames ~typedLinkSpecifier
        ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves attributes that are associated with a typed link."]
module GetFacetResponse =
  struct
    type nonrec t =
      {
      facet: Facet.t option
        [@ocaml.doc "The Facet structure that is associated with the facet."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `FacetNotFoundException of FacetNotFoundException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?facet = fun () -> { facet }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `FacetNotFoundException e ->
          `Assoc
            [("error", (`String "FacetNotFoundException"));
            ("details", (FacetNotFoundException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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 [("Facet", (Option.map x.facet ~f:Facet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let facet = (Option.map ~f:Facet.of_xml) (Xml.child xml_arg0 "Facet") in
      make ?facet ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let facet = field_map json__ "Facet" Facet.of_json in make ?facet ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details of the Facet, such as facet name, attributes, Rules, or ObjectType. You can call this on all kinds of schema facets -- published, development, or applied."]
module GetFacetRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Facet. For more information, see arns."];
      name: FacetName.t [@ocaml.doc "The name of the facet to retrieve."]}
    let context_ = "GetFacetRequest"
    let make ~schemaArn = fun ~name -> fun () -> { schemaArn; name }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)));
        ("Name", (Some (FacetName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        FacetName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~name ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" FacetName.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ~name ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details of the Facet, such as facet name, attributes, Rules, or ObjectType. You can call this on all kinds of schema facets -- published, development, or applied."]
module GetDirectoryResponse =
  struct
    type nonrec t =
      {
      directory: Directory.t option
        [@ocaml.doc "Metadata about the directory."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directory = fun () -> { directory }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("Directory", (Option.map x.directory ~f:Directory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directory =
        (Option.map ~f:Directory.of_xml) (Xml.child xml_arg0 "Directory") in
      make ?directory ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directory = field_map json__ "Directory" Directory.of_json in
      make ?directory ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves metadata about a directory."]
module GetDirectoryRequest =
  struct
    type nonrec t =
      {
      directoryArn: DirectoryArn.t [@ocaml.doc "The ARN of the directory."]}
    let context_ = "GetDirectoryRequest"
    let make ~directoryArn = fun () -> { directoryArn }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~directoryArn:(DirectoryArn.of_string
                             ((List.Assoc.find_exn
                                 ~equal:String.Caseless.equal) xs
                                "x-amz-data-partition")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-data-partition",
           (Some (DirectoryArn.to_value x.directoryArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryArn =
        DirectoryArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryArn =
        field_map_exn json__ "DirectoryArn" DirectoryArn.of_json in
      make ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves metadata about a directory."]
module GetAppliedSchemaVersionResponse =
  struct
    type nonrec t =
      {
      appliedSchemaArn: Arn.t option
        [@ocaml.doc
          "Current applied schema ARN, including the minor version in use if one was provided."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?appliedSchemaArn = fun () -> { appliedSchemaArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("AppliedSchemaArn",
           (Option.map x.appliedSchemaArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appliedSchemaArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "AppliedSchemaArn") in
      make ?appliedSchemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appliedSchemaArn = field_map json__ "AppliedSchemaArn" Arn.of_json in
      make ?appliedSchemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns current applied schema version ARN, including the minor version in use."]
module GetAppliedSchemaVersionRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t [@ocaml.doc "The ARN of the applied schema."]}
    let context_ = "GetAppliedSchemaVersionRequest"
    let make ~schemaArn = fun () -> { schemaArn }
    let to_value x =
      structure_to_value [("SchemaArn", (Some (Arn.to_value x.schemaArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SchemaArn") in
      make ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns current applied schema version ARN, including the minor version in use."]
module EnableDirectoryResponse =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t option
        [@ocaml.doc "The ARN of the enabled directory."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryDeletedException of DirectoryDeletedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryArn = fun () -> { directoryArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryDeletedException" ->
          `DirectoryDeletedException (DirectoryDeletedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryDeletedException" ->
          `DirectoryDeletedException (DirectoryDeletedException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryDeletedException e ->
          `Assoc
            [("error", (`String "DirectoryDeletedException"));
            ("details", (DirectoryDeletedException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("DirectoryArn", (Option.map x.directoryArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "DirectoryArn") in
      make ?directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryArn = field_map json__ "DirectoryArn" Arn.of_json in
      make ?directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables the specified directory. Only disabled directories can be enabled. Once enabled, the directory can then be read and written to."]
module EnableDirectoryRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t [@ocaml.doc "The ARN of the directory to enable."]}
    let context_ = "EnableDirectoryRequest"
    let make ~directoryArn = fun () -> { directoryArn }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~directoryArn:(Arn.of_string
                             ((List.Assoc.find_exn
                                 ~equal:String.Caseless.equal) xs
                                "x-amz-data-partition")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables the specified directory. Only disabled directories can be enabled. Once enabled, the directory can then be read and written to."]
module DisableDirectoryResponse =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t option
        [@ocaml.doc "The ARN of the directory that has been disabled."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryDeletedException of DirectoryDeletedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryArn = fun () -> { directoryArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryDeletedException" ->
          `DirectoryDeletedException (DirectoryDeletedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryDeletedException" ->
          `DirectoryDeletedException (DirectoryDeletedException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryDeletedException e ->
          `Assoc
            [("error", (`String "DirectoryDeletedException"));
            ("details", (DirectoryDeletedException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("DirectoryArn", (Option.map x.directoryArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "DirectoryArn") in
      make ?directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryArn = field_map json__ "DirectoryArn" Arn.of_json in
      make ?directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disables the specified directory. Disabled directories cannot be read or written to. Only enabled directories can be disabled. Disabled directories may be reenabled."]
module DisableDirectoryRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t [@ocaml.doc "The ARN of the directory to disable."]}
    let context_ = "DisableDirectoryRequest"
    let make ~directoryArn = fun () -> { directoryArn }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~directoryArn:(Arn.of_string
                             ((List.Assoc.find_exn
                                 ~equal:String.Caseless.equal) xs
                                "x-amz-data-partition")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disables the specified directory. Disabled directories cannot be read or written to. Only enabled directories can be disabled. Disabled directories may be reenabled."]
module DetachTypedLinkRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the directory where you want to detach the typed link."];
      typedLinkSpecifier: TypedLinkSpecifier.t
        [@ocaml.doc "Used to accept a typed link specifier as input."]}
    let context_ = "DetachTypedLinkRequest"
    let make ~directoryArn =
      fun ~typedLinkSpecifier ->
        fun () -> { directoryArn; typedLinkSpecifier }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("TypedLinkSpecifier",
          (Some (TypedLinkSpecifier.to_value x.typedLinkSpecifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typedLinkSpecifier =
        TypedLinkSpecifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TypedLinkSpecifier") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~typedLinkSpecifier ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typedLinkSpecifier =
        field_map_exn json__ "TypedLinkSpecifier" TypedLinkSpecifier.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~typedLinkSpecifier ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detaches a typed link from a specified source and target object. For more information, see Typed Links."]
module DetachPolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotPolicyException of NotPolicyException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotPolicyException" ->
          `NotPolicyException (NotPolicyException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotPolicyException" ->
          `NotPolicyException (NotPolicyException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotPolicyException e ->
          `Assoc
            [("error", (`String "NotPolicyException"));
            ("details", (NotPolicyException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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 "Detaches a policy from an object."]
module DetachPolicyRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory where both objects reside. For more information, see arns."];
      policyReference: ObjectReference.t
        [@ocaml.doc "Reference that identifies the policy object."];
      objectReference: ObjectReference.t
        [@ocaml.doc
          "Reference that identifies the object whose policy object will be detached."]}
    let context_ = "DetachPolicyRequest"
    let make ~directoryArn =
      fun ~policyReference ->
        fun ~objectReference ->
          fun () -> { directoryArn; policyReference; objectReference }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("PolicyReference",
          (Some (ObjectReference.to_value x.policyReference)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let policyReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~objectReference ~policyReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let policyReference =
        field_map_exn json__ "PolicyReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~objectReference ~policyReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Detaches a policy from an object."]
module DetachObjectResponse =
  struct
    type nonrec t =
      {
      detachedObjectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc
          "The ObjectIdentifier that was detached from the object."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotNodeException of NotNodeException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?detachedObjectIdentifier =
      fun () -> { detachedObjectIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotNodeException" ->
          `NotNodeException (NotNodeException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotNodeException" -> `NotNodeException (NotNodeException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotNodeException e ->
          `Assoc
            [("error", (`String "NotNodeException"));
            ("details", (NotNodeException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("DetachedObjectIdentifier",
           (Option.map x.detachedObjectIdentifier
              ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let detachedObjectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "DetachedObjectIdentifier") in
      make ?detachedObjectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let detachedObjectIdentifier =
        field_map json__ "DetachedObjectIdentifier" ObjectIdentifier.of_json in
      make ?detachedObjectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detaches a given object from the parent object. The object that is to be detached from the parent is specified by the link name."]
module DetachObjectRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory where objects reside. For more information, see arns."];
      parentReference: ObjectReference.t
        [@ocaml.doc
          "The parent reference from which the object with the specified link name is detached."];
      linkName: LinkName.t
        [@ocaml.doc
          "The link name associated with the object that needs to be detached."]}
    let context_ = "DetachObjectRequest"
    let make ~directoryArn =
      fun ~parentReference ->
        fun ~linkName ->
          fun () -> { directoryArn; parentReference; linkName }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("ParentReference",
          (Some (ObjectReference.to_value x.parentReference)));
        ("LinkName", (Some (LinkName.to_value x.linkName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkName =
        LinkName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LinkName") in
      let parentReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ParentReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~linkName ~parentReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkName = field_map_exn json__ "LinkName" LinkName.of_json in
      let parentReference =
        field_map_exn json__ "ParentReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~linkName ~parentReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detaches a given object from the parent object. The object that is to be detached from the parent is specified by the link name."]
module DetachFromIndexResponse =
  struct
    type nonrec t =
      {
      detachedObjectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc
          "The ObjectIdentifier of the object that was detached from the index."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotIndexException of NotIndexException.t 
      | `ObjectAlreadyDetachedException of ObjectAlreadyDetachedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?detachedObjectIdentifier =
      fun () -> { detachedObjectIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotIndexException" ->
          `NotIndexException (NotIndexException.of_json json)
      | "ObjectAlreadyDetachedException" ->
          `ObjectAlreadyDetachedException
            (ObjectAlreadyDetachedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotIndexException" ->
          `NotIndexException (NotIndexException.of_xml xml)
      | "ObjectAlreadyDetachedException" ->
          `ObjectAlreadyDetachedException
            (ObjectAlreadyDetachedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotIndexException e ->
          `Assoc
            [("error", (`String "NotIndexException"));
            ("details", (NotIndexException.to_json e))]
      | `ObjectAlreadyDetachedException e ->
          `Assoc
            [("error", (`String "ObjectAlreadyDetachedException"));
            ("details", (ObjectAlreadyDetachedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("DetachedObjectIdentifier",
           (Option.map x.detachedObjectIdentifier
              ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let detachedObjectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "DetachedObjectIdentifier") in
      make ?detachedObjectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let detachedObjectIdentifier =
        field_map json__ "DetachedObjectIdentifier" ObjectIdentifier.of_json in
      make ?detachedObjectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Detaches the specified object from the specified index."]
module DetachFromIndexRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the directory the index and object exist in."];
      indexReference: ObjectReference.t
        [@ocaml.doc "A reference to the index object."];
      targetReference: ObjectReference.t
        [@ocaml.doc
          "A reference to the object being detached from the index."]}
    let context_ = "DetachFromIndexRequest"
    let make ~directoryArn =
      fun ~indexReference ->
        fun ~targetReference ->
          fun () -> { directoryArn; indexReference; targetReference }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("IndexReference",
          (Some (ObjectReference.to_value x.indexReference)));
        ("TargetReference",
          (Some (ObjectReference.to_value x.targetReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetReference") in
      let indexReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IndexReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~targetReference ~indexReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetReference =
        field_map_exn json__ "TargetReference" ObjectReference.of_json in
      let indexReference =
        field_map_exn json__ "IndexReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~targetReference ~indexReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Detaches the specified object from the specified index."]
module DeleteTypedLinkFacetResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `FacetNotFoundException of FacetNotFoundException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `FacetNotFoundException e ->
          `Assoc
            [("error", (`String "FacetNotFoundException"));
            ("details", (FacetNotFoundException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
       "Deletes a TypedLinkFacet. For more information, see Typed Links."]
module DeleteTypedLinkFacetRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the schema. For more information, see arns."];
      name: TypedLinkName.t
        [@ocaml.doc "The unique name of the typed link facet."]}
    let context_ = "DeleteTypedLinkFacetRequest"
    let make ~schemaArn = fun ~name -> fun () -> { schemaArn; name }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)));
        ("Name", (Some (TypedLinkName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        TypedLinkName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~name ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" TypedLinkName.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ~name ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a TypedLinkFacet. For more information, see Typed Links."]
module DeleteSchemaResponse =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t option
        [@ocaml.doc
          "The input ARN that is returned as part of the response. For more information, see arns."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `StillContainsLinksException of StillContainsLinksException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?schemaArn = fun () -> { schemaArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.of_json json)
      | "StillContainsLinksException" ->
          `StillContainsLinksException
            (StillContainsLinksException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.of_xml xml)
      | "StillContainsLinksException" ->
          `StillContainsLinksException
            (StillContainsLinksException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.to_json e))]
      | `StillContainsLinksException e ->
          `Assoc
            [("error", (`String "StillContainsLinksException"));
            ("details", (StillContainsLinksException.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
        [("SchemaArn", (Option.map x.schemaArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      make ?schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaArn = field_map json__ "SchemaArn" Arn.of_json in
      make ?schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a given schema. Schemas in a development and published state can only be deleted."]
module DeleteSchemaRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the development schema. For more information, see arns."]}
    let context_ = "DeleteSchemaRequest"
    let make ~schemaArn = fun () -> { schemaArn }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~schemaArn:(Arn.of_string
                          ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                             xs "x-amz-data-partition")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a given schema. Schemas in a development and published state can only be deleted."]
module DeleteObjectResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ObjectNotDetachedException of ObjectNotDetachedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ObjectNotDetachedException" ->
          `ObjectNotDetachedException
            (ObjectNotDetachedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ObjectNotDetachedException" ->
          `ObjectNotDetachedException (ObjectNotDetachedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ObjectNotDetachedException e ->
          `Assoc
            [("error", (`String "ObjectNotDetachedException"));
            ("details", (ObjectNotDetachedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
       "Deletes an object and its associated attributes. Only objects with no children and no parents can be deleted. The maximum number of attributes that can be deleted during an object deletion is 30. For more information, see Amazon Cloud Directory Limits."]
module DeleteObjectRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory where the object resides. For more information, see arns."];
      objectReference: ObjectReference.t
        [@ocaml.doc "A reference that identifies the object."]}
    let context_ = "DeleteObjectRequest"
    let make ~directoryArn =
      fun ~objectReference -> fun () -> { directoryArn; objectReference }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~objectReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~objectReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an object and its associated attributes. Only objects with no children and no parents can be deleted. The maximum number of attributes that can be deleted during an object deletion is 30. For more information, see Amazon Cloud Directory Limits."]
module DeleteFacetResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `FacetInUseException of FacetInUseException.t 
      | `FacetNotFoundException of FacetNotFoundException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "FacetInUseException" ->
          `FacetInUseException (FacetInUseException.of_json json)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "FacetInUseException" ->
          `FacetInUseException (FacetInUseException.of_xml xml)
      | "FacetNotFoundException" ->
          `FacetNotFoundException (FacetNotFoundException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `FacetInUseException e ->
          `Assoc
            [("error", (`String "FacetInUseException"));
            ("details", (FacetInUseException.to_json e))]
      | `FacetNotFoundException e ->
          `Assoc
            [("error", (`String "FacetNotFoundException"));
            ("details", (FacetNotFoundException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
       "Deletes a given Facet. All attributes and Rules that are associated with the facet will be deleted. Only development schema facets are allowed deletion."]
module DeleteFacetRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Facet. For more information, see arns."];
      name: FacetName.t [@ocaml.doc "The name of the facet to delete."]}
    let context_ = "DeleteFacetRequest"
    let make ~schemaArn = fun ~name -> fun () -> { schemaArn; name }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)));
        ("Name", (Some (FacetName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        FacetName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~name ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" FacetName.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ~name ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a given Facet. All attributes and Rules that are associated with the facet will be deleted. Only development schema facets are allowed deletion."]
module DeleteDirectoryResponse =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t option
        [@ocaml.doc "The ARN of the deleted directory."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryDeletedException of DirectoryDeletedException.t 
      | `DirectoryNotDisabledException of DirectoryNotDisabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryArn = fun () -> { directoryArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryDeletedException" ->
          `DirectoryDeletedException (DirectoryDeletedException.of_json json)
      | "DirectoryNotDisabledException" ->
          `DirectoryNotDisabledException
            (DirectoryNotDisabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryDeletedException" ->
          `DirectoryDeletedException (DirectoryDeletedException.of_xml xml)
      | "DirectoryNotDisabledException" ->
          `DirectoryNotDisabledException
            (DirectoryNotDisabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryDeletedException e ->
          `Assoc
            [("error", (`String "DirectoryDeletedException"));
            ("details", (DirectoryDeletedException.to_json e))]
      | `DirectoryNotDisabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotDisabledException"));
            ("details", (DirectoryNotDisabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("DirectoryArn", (Option.map x.directoryArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "DirectoryArn") in
      make ?directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryArn = field_map json__ "DirectoryArn" Arn.of_json in
      make ?directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a directory. Only disabled directories can be deleted. A deleted directory cannot be undone. Exercise extreme caution when deleting directories."]
module DeleteDirectoryRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t [@ocaml.doc "The ARN of the directory to delete."]}
    let context_ = "DeleteDirectoryRequest"
    let make ~directoryArn = fun () -> { directoryArn }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~directoryArn:(Arn.of_string
                             ((List.Assoc.find_exn
                                 ~equal:String.Caseless.equal) xs
                                "x-amz-data-partition")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a directory. Only disabled directories can be deleted. A deleted directory cannot be undone. Exercise extreme caution when deleting directories."]
module CreateTypedLinkFacetResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `FacetAlreadyExistsException of FacetAlreadyExistsException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidRuleException of InvalidRuleException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "FacetAlreadyExistsException" ->
          `FacetAlreadyExistsException
            (FacetAlreadyExistsException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidRuleException" ->
          `InvalidRuleException (InvalidRuleException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "FacetAlreadyExistsException" ->
          `FacetAlreadyExistsException
            (FacetAlreadyExistsException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidRuleException" ->
          `InvalidRuleException (InvalidRuleException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `FacetAlreadyExistsException e ->
          `Assoc
            [("error", (`String "FacetAlreadyExistsException"));
            ("details", (FacetAlreadyExistsException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidRuleException e ->
          `Assoc
            [("error", (`String "InvalidRuleException"));
            ("details", (InvalidRuleException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
       "Creates a TypedLinkFacet. For more information, see Typed Links."]
module CreateTypedLinkFacetRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the schema. For more information, see arns."];
      facet: TypedLinkFacet.t
        [@ocaml.doc
          "Facet structure that is associated with the typed link facet."]}
    let context_ = "CreateTypedLinkFacetRequest"
    let make ~schemaArn = fun ~facet -> fun () -> { schemaArn; facet }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)));
        ("Facet", (Some (TypedLinkFacet.to_value x.facet)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let facet =
        TypedLinkFacet.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Facet") in
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~facet ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let facet = field_map_exn json__ "Facet" TypedLinkFacet.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ~facet ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a TypedLinkFacet. For more information, see Typed Links."]
module CreateSchemaResponse =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the schema. For more information, see arns."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `SchemaAlreadyExistsException of SchemaAlreadyExistsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?schemaArn = fun () -> { schemaArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.of_json json)
      | "SchemaAlreadyExistsException" ->
          `SchemaAlreadyExistsException
            (SchemaAlreadyExistsException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.of_xml xml)
      | "SchemaAlreadyExistsException" ->
          `SchemaAlreadyExistsException
            (SchemaAlreadyExistsException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.to_json e))]
      | `SchemaAlreadyExistsException e ->
          `Assoc
            [("error", (`String "SchemaAlreadyExistsException"));
            ("details", (SchemaAlreadyExistsException.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
        [("SchemaArn", (Option.map x.schemaArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      make ?schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaArn = field_map json__ "SchemaArn" Arn.of_json in
      make ?schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new schema in a development state. A schema can exist in three phases: Development: This is a mutable phase of the schema. All new schemas are in the development phase. Once the schema is finalized, it can be published. Published: Published schemas are immutable and have a version associated with them. Applied: Applied schemas are mutable in a way that allows you to add new schema facets. You can also add new, nonrequired attributes to existing schema facets. You can apply only published schemas to directories."]
module CreateSchemaRequest =
  struct
    type nonrec t =
      {
      name: SchemaName.t
        [@ocaml.doc
          "The name that is associated with the schema. This is unique to each account and in each region."]}
    let context_ = "CreateSchemaRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("Name", (Some (SchemaName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        SchemaName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "Name" SchemaName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new schema in a development state. A schema can exist in three phases: Development: This is a mutable phase of the schema. All new schemas are in the development phase. Once the schema is finalized, it can be published. Published: Published schemas are immutable and have a version associated with them. Applied: Applied schemas are mutable in a way that allows you to add new schema facets. You can also add new, nonrequired attributes to existing schema facets. You can apply only published schemas to directories."]
module CreateObjectResponse =
  struct
    type nonrec t =
      {
      objectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc "The identifier that is associated with the object."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `LinkNameAlreadyInUseException of LinkNameAlreadyInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `UnsupportedIndexTypeException of UnsupportedIndexTypeException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?objectIdentifier = fun () -> { objectIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "LinkNameAlreadyInUseException" ->
          `LinkNameAlreadyInUseException
            (LinkNameAlreadyInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.of_json json)
      | "UnsupportedIndexTypeException" ->
          `UnsupportedIndexTypeException
            (UnsupportedIndexTypeException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "LinkNameAlreadyInUseException" ->
          `LinkNameAlreadyInUseException
            (LinkNameAlreadyInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.of_xml xml)
      | "UnsupportedIndexTypeException" ->
          `UnsupportedIndexTypeException
            (UnsupportedIndexTypeException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `LinkNameAlreadyInUseException e ->
          `Assoc
            [("error", (`String "LinkNameAlreadyInUseException"));
            ("details", (LinkNameAlreadyInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.to_json e))]
      | `UnsupportedIndexTypeException e ->
          `Assoc
            [("error", (`String "UnsupportedIndexTypeException"));
            ("details", (UnsupportedIndexTypeException.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
        [("ObjectIdentifier",
           (Option.map x.objectIdentifier ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifier") in
      make ?objectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectIdentifier =
        field_map json__ "ObjectIdentifier" ObjectIdentifier.of_json in
      make ?objectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an object in a Directory. Additionally attaches the object to a parent, if a parent reference and LinkName is specified. An object is simply a collection of Facet attributes. You can also use this API call to create a policy object, if the facet from which you create the object is a policy facet."]
module CreateObjectRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory in which the object will be created. For more information, see arns."];
      schemaFacets: SchemaFacetList.t
        [@ocaml.doc
          "A list of schema facets to be associated with the object. Do not provide minor version components. See SchemaFacet for details."];
      objectAttributeList: AttributeKeyAndValueList.t option
        [@ocaml.doc
          "The attribute map whose attribute ARN contains the key and attribute value as the map value."];
      parentReference: ObjectReference.t option
        [@ocaml.doc
          "If specified, the parent reference to which this object will be attached."];
      linkName: LinkName.t option
        [@ocaml.doc
          "The name of link that is used to attach this object to a parent."]}
    let context_ = "CreateObjectRequest"
    let make ?objectAttributeList =
      fun ?parentReference ->
        fun ?linkName ->
          fun ~directoryArn ->
            fun ~schemaFacets ->
              fun () ->
                {
                  objectAttributeList;
                  parentReference;
                  linkName;
                  directoryArn;
                  schemaFacets
                }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("SchemaFacets", (Some (SchemaFacetList.to_value x.schemaFacets)));
        ("ObjectAttributeList",
          (Option.map x.objectAttributeList
             ~f:AttributeKeyAndValueList.to_value));
        ("ParentReference",
          (Option.map x.parentReference ~f:ObjectReference.to_value));
        ("LinkName", (Option.map x.linkName ~f:LinkName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkName =
        (Option.map ~f:LinkName.of_xml) (Xml.child xml_arg0 "LinkName") in
      let parentReference =
        (Option.map ~f:ObjectReference.of_xml)
          (Xml.child xml_arg0 "ParentReference") in
      let objectAttributeList =
        (Option.map ~f:AttributeKeyAndValueList.of_xml)
          (Xml.child xml_arg0 "ObjectAttributeList") in
      let schemaFacets =
        SchemaFacetList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SchemaFacets") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?linkName ?parentReference ?objectAttributeList ~schemaFacets
        ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkName = field_map json__ "LinkName" LinkName.of_json in
      let parentReference =
        field_map json__ "ParentReference" ObjectReference.of_json in
      let objectAttributeList =
        field_map json__ "ObjectAttributeList"
          AttributeKeyAndValueList.of_json in
      let schemaFacets =
        field_map_exn json__ "SchemaFacets" SchemaFacetList.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?linkName ?parentReference ?objectAttributeList ~schemaFacets
        ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an object in a Directory. Additionally attaches the object to a parent, if a parent reference and LinkName is specified. An object is simply a collection of Facet attributes. You can also use this API call to create a policy object, if the facet from which you create the object is a policy facet."]
module CreateIndexResponse =
  struct
    type nonrec t =
      {
      objectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc
          "The ObjectIdentifier of the index created by this operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `LinkNameAlreadyInUseException of LinkNameAlreadyInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `UnsupportedIndexTypeException of UnsupportedIndexTypeException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?objectIdentifier = fun () -> { objectIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "LinkNameAlreadyInUseException" ->
          `LinkNameAlreadyInUseException
            (LinkNameAlreadyInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.of_json json)
      | "UnsupportedIndexTypeException" ->
          `UnsupportedIndexTypeException
            (UnsupportedIndexTypeException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "LinkNameAlreadyInUseException" ->
          `LinkNameAlreadyInUseException
            (LinkNameAlreadyInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.of_xml xml)
      | "UnsupportedIndexTypeException" ->
          `UnsupportedIndexTypeException
            (UnsupportedIndexTypeException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `LinkNameAlreadyInUseException e ->
          `Assoc
            [("error", (`String "LinkNameAlreadyInUseException"));
            ("details", (LinkNameAlreadyInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.to_json e))]
      | `UnsupportedIndexTypeException e ->
          `Assoc
            [("error", (`String "UnsupportedIndexTypeException"));
            ("details", (UnsupportedIndexTypeException.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
        [("ObjectIdentifier",
           (Option.map x.objectIdentifier ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifier") in
      make ?objectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectIdentifier =
        field_map json__ "ObjectIdentifier" ObjectIdentifier.of_json in
      make ?objectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an index object. See Indexing and search for more information."]
module CreateIndexRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The ARN of the directory where the index should be created."];
      orderedIndexedAttributeList: AttributeKeyList.t
        [@ocaml.doc
          "Specifies the attributes that should be indexed on. Currently only a single attribute is supported."];
      isUnique: Bool_.t
        [@ocaml.doc
          "Indicates whether the attribute that is being indexed has unique values or not."];
      parentReference: ObjectReference.t option
        [@ocaml.doc
          "A reference to the parent object that contains the index object."];
      linkName: LinkName.t option
        [@ocaml.doc
          "The name of the link between the parent object and the index object."]}
    let context_ = "CreateIndexRequest"
    let make ?parentReference =
      fun ?linkName ->
        fun ~directoryArn ->
          fun ~orderedIndexedAttributeList ->
            fun ~isUnique ->
              fun () ->
                {
                  parentReference;
                  linkName;
                  directoryArn;
                  orderedIndexedAttributeList;
                  isUnique
                }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("OrderedIndexedAttributeList",
          (Some (AttributeKeyList.to_value x.orderedIndexedAttributeList)));
        ("IsUnique", (Some (Bool_.to_value x.isUnique)));
        ("ParentReference",
          (Option.map x.parentReference ~f:ObjectReference.to_value));
        ("LinkName", (Option.map x.linkName ~f:LinkName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkName =
        (Option.map ~f:LinkName.of_xml) (Xml.child xml_arg0 "LinkName") in
      let parentReference =
        (Option.map ~f:ObjectReference.of_xml)
          (Xml.child xml_arg0 "ParentReference") in
      let isUnique =
        Bool_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "IsUnique") in
      let orderedIndexedAttributeList =
        AttributeKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "OrderedIndexedAttributeList") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?linkName ?parentReference ~isUnique ~orderedIndexedAttributeList
        ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkName = field_map json__ "LinkName" LinkName.of_json in
      let parentReference =
        field_map json__ "ParentReference" ObjectReference.of_json in
      let isUnique = field_map_exn json__ "IsUnique" Bool_.of_json in
      let orderedIndexedAttributeList =
        field_map_exn json__ "OrderedIndexedAttributeList"
          AttributeKeyList.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?linkName ?parentReference ~isUnique ~orderedIndexedAttributeList
        ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an index object. See Indexing and search for more information."]
module CreateFacetResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `FacetAlreadyExistsException of FacetAlreadyExistsException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidRuleException of InvalidRuleException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "FacetAlreadyExistsException" ->
          `FacetAlreadyExistsException
            (FacetAlreadyExistsException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidRuleException" ->
          `InvalidRuleException (InvalidRuleException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "FacetAlreadyExistsException" ->
          `FacetAlreadyExistsException
            (FacetAlreadyExistsException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidRuleException" ->
          `InvalidRuleException (InvalidRuleException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `FacetAlreadyExistsException e ->
          `Assoc
            [("error", (`String "FacetAlreadyExistsException"));
            ("details", (FacetAlreadyExistsException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidRuleException e ->
          `Assoc
            [("error", (`String "InvalidRuleException"));
            ("details", (InvalidRuleException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
       "Creates a new Facet in a schema. Facet creation is allowed only in development or applied schemas."]
module CreateFacetRequest =
  struct
    type nonrec t =
      {
      schemaArn: Arn.t
        [@ocaml.doc
          "The schema ARN in which the new Facet will be created. For more information, see arns."];
      name: FacetName.t
        [@ocaml.doc
          "The name of the Facet, which is unique for a given schema."];
      attributes: FacetAttributeList.t option
        [@ocaml.doc "The attributes that are associated with the Facet."];
      objectType: ObjectType.t option
        [@ocaml.doc
          "Specifies whether a given object created from this facet is of type node, leaf node, policy or index. Node: Can have multiple children but one parent. Leaf node: Cannot have children but can have multiple parents. Policy: Allows you to store a policy document and policy type. For more information, see Policies. Index: Can be created with the Index API."];
      facetStyle: FacetStyle.t option
        [@ocaml.doc
          "There are two different styles that you can define on any given facet, Static and Dynamic. For static facets, all attributes must be defined in the schema. For dynamic facets, attributes can be defined during data plane operations."]}
    let context_ = "CreateFacetRequest"
    let make ?attributes =
      fun ?objectType ->
        fun ?facetStyle ->
          fun ~schemaArn ->
            fun ~name ->
              fun () ->
                { attributes; objectType; facetStyle; schemaArn; name }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)));
        ("Name", (Some (FacetName.to_value x.name)));
        ("Attributes",
          (Option.map x.attributes ~f:FacetAttributeList.to_value));
        ("ObjectType", (Option.map x.objectType ~f:ObjectType.to_value));
        ("FacetStyle", (Option.map x.facetStyle ~f:FacetStyle.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let facetStyle =
        (Option.map ~f:FacetStyle.of_xml) (Xml.child xml_arg0 "FacetStyle") in
      let objectType =
        (Option.map ~f:ObjectType.of_xml) (Xml.child xml_arg0 "ObjectType") in
      let attributes =
        (Option.map ~f:FacetAttributeList.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      let name =
        FacetName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?facetStyle ?objectType ?attributes ~name ~schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let facetStyle = field_map json__ "FacetStyle" FacetStyle.of_json in
      let objectType = field_map json__ "ObjectType" ObjectType.of_json in
      let attributes =
        field_map json__ "Attributes" FacetAttributeList.of_json in
      let name = field_map_exn json__ "Name" FacetName.of_json in
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      make ?facetStyle ?objectType ?attributes ~name ~schemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new Facet in a schema. Facet creation is allowed only in development or applied schemas."]
module CreateDirectoryResponse =
  struct
    type nonrec t =
      {
      directoryArn: DirectoryArn.t option
        [@ocaml.doc
          "The ARN that is associated with the Directory. For more information, see arns."];
      name: DirectoryName.t option [@ocaml.doc "The name of the Directory."];
      objectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc "The root object node of the created directory."];
      appliedSchemaArn: Arn.t option
        [@ocaml.doc
          "The ARN of the published schema in the Directory. Once a published schema is copied into the directory, it has its own ARN, which is referred to applied schema ARN. For more information, see arns."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryAlreadyExistsException of DirectoryAlreadyExistsException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryArn =
      fun ?name ->
        fun ?objectIdentifier ->
          fun ?appliedSchemaArn ->
            fun () ->
              { directoryArn; name; objectIdentifier; appliedSchemaArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryAlreadyExistsException" ->
          `DirectoryAlreadyExistsException
            (DirectoryAlreadyExistsException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryAlreadyExistsException" ->
          `DirectoryAlreadyExistsException
            (DirectoryAlreadyExistsException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryAlreadyExistsException e ->
          `Assoc
            [("error", (`String "DirectoryAlreadyExistsException"));
            ("details", (DirectoryAlreadyExistsException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("DirectoryArn",
           (Option.map x.directoryArn ~f:DirectoryArn.to_value));
        ("Name", (Option.map x.name ~f:DirectoryName.to_value));
        ("ObjectIdentifier",
          (Option.map x.objectIdentifier ~f:ObjectIdentifier.to_value));
        ("AppliedSchemaArn", (Option.map x.appliedSchemaArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appliedSchemaArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "AppliedSchemaArn") in
      let objectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "ObjectIdentifier") in
      let name =
        (Option.map ~f:DirectoryName.of_xml) (Xml.child xml_arg0 "Name") in
      let directoryArn =
        (Option.map ~f:DirectoryArn.of_xml)
          (Xml.child xml_arg0 "DirectoryArn") in
      make ?appliedSchemaArn ?objectIdentifier ?name ?directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appliedSchemaArn = field_map json__ "AppliedSchemaArn" Arn.of_json in
      let objectIdentifier =
        field_map json__ "ObjectIdentifier" ObjectIdentifier.of_json in
      let name = field_map json__ "Name" DirectoryName.of_json in
      let directoryArn = field_map json__ "DirectoryArn" DirectoryArn.of_json in
      make ?appliedSchemaArn ?objectIdentifier ?name ?directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Directory by copying the published schema into the directory. A directory cannot be created without a schema. You can also quickly create a directory using a managed schema, called the QuickStartSchema. For more information, see Managed Schema in the Amazon Cloud Directory Developer Guide."]
module CreateDirectoryRequest =
  struct
    type nonrec t =
      {
      name: DirectoryName.t
        [@ocaml.doc
          "The name of the Directory. Should be unique per account, per region."];
      schemaArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the published schema that will be copied into the data Directory. For more information, see arns."]}
    let context_ = "CreateDirectoryRequest"
    let make ~name = fun ~schemaArn -> fun () -> { name; schemaArn }
    let to_value x =
      structure_to_value
        [("Name", (Some (DirectoryName.to_value x.name)));
        ("x-amz-data-partition", (Some (Arn.to_value x.schemaArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      let name =
        DirectoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~schemaArn ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaArn = field_map_exn json__ "SchemaArn" Arn.of_json in
      let name = field_map_exn json__ "Name" DirectoryName.of_json in
      make ~schemaArn ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Directory by copying the published schema into the directory. A directory cannot be created without a schema. You can also quickly create a directory using a managed schema, called the QuickStartSchema. For more information, see Managed Schema in the Amazon Cloud Directory Developer Guide."]
module BatchWriteResponse =
  struct
    type nonrec t =
      {
      responses: BatchWriteOperationResponseList.t option
        [@ocaml.doc "A list of all the responses for each batch write."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BatchWriteException of BatchWriteException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?responses = fun () -> { responses }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BatchWriteException" ->
          `BatchWriteException (BatchWriteException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "BatchWriteException" ->
          `BatchWriteException (BatchWriteException.of_xml xml)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `BatchWriteException e ->
          `Assoc
            [("error", (`String "BatchWriteException"));
            ("details", (BatchWriteException.to_json e))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("Responses",
           (Option.map x.responses
              ~f:BatchWriteOperationResponseList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let responses =
        (Option.map ~f:BatchWriteOperationResponseList.of_xml)
          (Xml.child xml_arg0 "Responses") in
      make ?responses ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let responses =
        field_map json__ "Responses" BatchWriteOperationResponseList.of_json in
      make ?responses ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Performs all the write operations in a batch. Either all the operations succeed or none."]
module BatchWriteRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory. For more information, see arns."];
      operations: BatchWriteOperationList.t
        [@ocaml.doc "A list of operations that are part of the batch."]}
    let context_ = "BatchWriteRequest"
    let make ~directoryArn =
      fun ~operations -> fun () -> { directoryArn; operations }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("Operations",
          (Some (BatchWriteOperationList.to_value x.operations)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operations =
        BatchWriteOperationList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Operations") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~operations ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operations =
        field_map_exn json__ "Operations" BatchWriteOperationList.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~operations ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Performs all the write operations in a batch. Either all the operations succeed or none."]
module BatchReadResponse =
  struct
    type nonrec t =
      {
      responses: BatchReadOperationResponseList.t option
        [@ocaml.doc "A list of all the responses for each batch read."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?responses = fun () -> { responses }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("Responses",
           (Option.map x.responses ~f:BatchReadOperationResponseList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let responses =
        (Option.map ~f:BatchReadOperationResponseList.of_xml)
          (Xml.child xml_arg0 "Responses") in
      make ?responses ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let responses =
        field_map json__ "Responses" BatchReadOperationResponseList.of_json in
      make ?responses ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Performs all the read operations in a batch."]
module BatchReadRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory. For more information, see arns."];
      operations: BatchReadOperationList.t
        [@ocaml.doc "A list of operations that are part of the batch."];
      consistencyLevel: ConsistencyLevel.t option
        [@ocaml.doc
          "Represents the manner and timing in which the successful write or update of an object is reflected in a subsequent read operation of that same object."]}
    let context_ = "BatchReadRequest"
    let make ?consistencyLevel =
      fun ~directoryArn ->
        fun ~operations ->
          fun () -> { consistencyLevel; directoryArn; operations }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("Operations", (Some (BatchReadOperationList.to_value x.operations)));
        ("x-amz-consistency-level",
          (Option.map x.consistencyLevel ~f:ConsistencyLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let consistencyLevel =
        (Option.map ~f:ConsistencyLevel.of_xml)
          (Xml.child xml_arg0 "x-amz-consistency-level") in
      let operations =
        BatchReadOperationList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Operations") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ?consistencyLevel ~operations ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let consistencyLevel =
        field_map json__ "ConsistencyLevel" ConsistencyLevel.of_json in
      let operations =
        field_map_exn json__ "Operations" BatchReadOperationList.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ?consistencyLevel ~operations ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Performs all the read operations in a batch."]
module AttachTypedLinkResponse =
  struct
    type nonrec t =
      {
      typedLinkSpecifier: TypedLinkSpecifier.t option
        [@ocaml.doc "Returns a typed link specifier as output."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidAttachmentException of InvalidAttachmentException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?typedLinkSpecifier = fun () -> { typedLinkSpecifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidAttachmentException" ->
          `InvalidAttachmentException
            (InvalidAttachmentException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidAttachmentException" ->
          `InvalidAttachmentException (InvalidAttachmentException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidAttachmentException e ->
          `Assoc
            [("error", (`String "InvalidAttachmentException"));
            ("details", (InvalidAttachmentException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("TypedLinkSpecifier",
           (Option.map x.typedLinkSpecifier ~f:TypedLinkSpecifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typedLinkSpecifier =
        (Option.map ~f:TypedLinkSpecifier.of_xml)
          (Xml.child xml_arg0 "TypedLinkSpecifier") in
      make ?typedLinkSpecifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typedLinkSpecifier =
        field_map json__ "TypedLinkSpecifier" TypedLinkSpecifier.of_json in
      make ?typedLinkSpecifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches a typed link to a specified source and target object. For more information, see Typed Links."]
module AttachTypedLinkRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the directory where you want to attach the typed link."];
      sourceObjectReference: ObjectReference.t
        [@ocaml.doc
          "Identifies the source object that the typed link will attach to."];
      targetObjectReference: ObjectReference.t
        [@ocaml.doc
          "Identifies the target object that the typed link will attach to."];
      typedLinkFacet: TypedLinkSchemaAndFacetName.t
        [@ocaml.doc
          "Identifies the typed link facet that is associated with the typed link."];
      attributes: AttributeNameAndValueList.t
        [@ocaml.doc
          "A set of attributes that are associated with the typed link."]}
    let context_ = "AttachTypedLinkRequest"
    let make ~directoryArn =
      fun ~sourceObjectReference ->
        fun ~targetObjectReference ->
          fun ~typedLinkFacet ->
            fun ~attributes ->
              fun () ->
                {
                  directoryArn;
                  sourceObjectReference;
                  targetObjectReference;
                  typedLinkFacet;
                  attributes
                }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("SourceObjectReference",
          (Some (ObjectReference.to_value x.sourceObjectReference)));
        ("TargetObjectReference",
          (Some (ObjectReference.to_value x.targetObjectReference)));
        ("TypedLinkFacet",
          (Some (TypedLinkSchemaAndFacetName.to_value x.typedLinkFacet)));
        ("Attributes",
          (Some (AttributeNameAndValueList.to_value x.attributes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        AttributeNameAndValueList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Attributes") in
      let typedLinkFacet =
        TypedLinkSchemaAndFacetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TypedLinkFacet") in
      let targetObjectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetObjectReference") in
      let sourceObjectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceObjectReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~attributes ~typedLinkFacet ~targetObjectReference
        ~sourceObjectReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map_exn json__ "Attributes" AttributeNameAndValueList.of_json in
      let typedLinkFacet =
        field_map_exn json__ "TypedLinkFacet"
          TypedLinkSchemaAndFacetName.of_json in
      let targetObjectReference =
        field_map_exn json__ "TargetObjectReference" ObjectReference.of_json in
      let sourceObjectReference =
        field_map_exn json__ "SourceObjectReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~attributes ~typedLinkFacet ~targetObjectReference
        ~sourceObjectReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches a typed link to a specified source and target object. For more information, see Typed Links."]
module AttachToIndexResponse =
  struct
    type nonrec t =
      {
      attachedObjectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc
          "The ObjectIdentifier of the object that was attached to the index."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `IndexedAttributeMissingException of
          IndexedAttributeMissingException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidAttachmentException of InvalidAttachmentException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `LinkNameAlreadyInUseException of LinkNameAlreadyInUseException.t 
      | `NotIndexException of NotIndexException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attachedObjectIdentifier =
      fun () -> { attachedObjectIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "IndexedAttributeMissingException" ->
          `IndexedAttributeMissingException
            (IndexedAttributeMissingException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidAttachmentException" ->
          `InvalidAttachmentException
            (InvalidAttachmentException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "LinkNameAlreadyInUseException" ->
          `LinkNameAlreadyInUseException
            (LinkNameAlreadyInUseException.of_json json)
      | "NotIndexException" ->
          `NotIndexException (NotIndexException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "IndexedAttributeMissingException" ->
          `IndexedAttributeMissingException
            (IndexedAttributeMissingException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidAttachmentException" ->
          `InvalidAttachmentException (InvalidAttachmentException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "LinkNameAlreadyInUseException" ->
          `LinkNameAlreadyInUseException
            (LinkNameAlreadyInUseException.of_xml xml)
      | "NotIndexException" ->
          `NotIndexException (NotIndexException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `IndexedAttributeMissingException e ->
          `Assoc
            [("error", (`String "IndexedAttributeMissingException"));
            ("details", (IndexedAttributeMissingException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidAttachmentException e ->
          `Assoc
            [("error", (`String "InvalidAttachmentException"));
            ("details", (InvalidAttachmentException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `LinkNameAlreadyInUseException e ->
          `Assoc
            [("error", (`String "LinkNameAlreadyInUseException"));
            ("details", (LinkNameAlreadyInUseException.to_json e))]
      | `NotIndexException e ->
          `Assoc
            [("error", (`String "NotIndexException"));
            ("details", (NotIndexException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("AttachedObjectIdentifier",
           (Option.map x.attachedObjectIdentifier
              ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachedObjectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "AttachedObjectIdentifier") in
      make ?attachedObjectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachedObjectIdentifier =
        field_map json__ "AttachedObjectIdentifier" ObjectIdentifier.of_json in
      make ?attachedObjectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Attaches the specified object to the specified index."]
module AttachToIndexRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the directory where the object and index exist."];
      indexReference: ObjectReference.t
        [@ocaml.doc
          "A reference to the index that you are attaching the object to."];
      targetReference: ObjectReference.t
        [@ocaml.doc
          "A reference to the object that you are attaching to the index."]}
    let context_ = "AttachToIndexRequest"
    let make ~directoryArn =
      fun ~indexReference ->
        fun ~targetReference ->
          fun () -> { directoryArn; indexReference; targetReference }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("IndexReference",
          (Some (ObjectReference.to_value x.indexReference)));
        ("TargetReference",
          (Some (ObjectReference.to_value x.targetReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetReference") in
      let indexReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IndexReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~targetReference ~indexReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetReference =
        field_map_exn json__ "TargetReference" ObjectReference.of_json in
      let indexReference =
        field_map_exn json__ "IndexReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~targetReference ~indexReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Attaches the specified object to the specified index."]
module AttachPolicyResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotPolicyException of NotPolicyException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotPolicyException" ->
          `NotPolicyException (NotPolicyException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotPolicyException" ->
          `NotPolicyException (NotPolicyException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotPolicyException e ->
          `Assoc
            [("error", (`String "NotPolicyException"));
            ("details", (NotPolicyException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
       "Attaches a policy object to a regular object. An object can have a limited number of attached policies."]
module AttachPolicyRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory where both objects reside. For more information, see arns."];
      policyReference: ObjectReference.t
        [@ocaml.doc
          "The reference that is associated with the policy object."];
      objectReference: ObjectReference.t
        [@ocaml.doc
          "The reference that identifies the object to which the policy will be attached."]}
    let context_ = "AttachPolicyRequest"
    let make ~directoryArn =
      fun ~policyReference ->
        fun ~objectReference ->
          fun () -> { directoryArn; policyReference; objectReference }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("PolicyReference",
          (Some (ObjectReference.to_value x.policyReference)));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let policyReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~objectReference ~policyReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let policyReference =
        field_map_exn json__ "PolicyReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~objectReference ~policyReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches a policy object to a regular object. An object can have a limited number of attached policies."]
module AttachObjectResponse =
  struct
    type nonrec t =
      {
      attachedObjectIdentifier: ObjectIdentifier.t option
        [@ocaml.doc
          "The attached ObjectIdentifier, which is the child ObjectIdentifier."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidAttachmentException of InvalidAttachmentException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `LinkNameAlreadyInUseException of LinkNameAlreadyInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attachedObjectIdentifier =
      fun () -> { attachedObjectIdentifier }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidAttachmentException" ->
          `InvalidAttachmentException
            (InvalidAttachmentException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "LinkNameAlreadyInUseException" ->
          `LinkNameAlreadyInUseException
            (LinkNameAlreadyInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidAttachmentException" ->
          `InvalidAttachmentException (InvalidAttachmentException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "LinkNameAlreadyInUseException" ->
          `LinkNameAlreadyInUseException
            (LinkNameAlreadyInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidAttachmentException e ->
          `Assoc
            [("error", (`String "InvalidAttachmentException"));
            ("details", (InvalidAttachmentException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `LinkNameAlreadyInUseException e ->
          `Assoc
            [("error", (`String "LinkNameAlreadyInUseException"));
            ("details", (LinkNameAlreadyInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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
        [("AttachedObjectIdentifier",
           (Option.map x.attachedObjectIdentifier
              ~f:ObjectIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachedObjectIdentifier =
        (Option.map ~f:ObjectIdentifier.of_xml)
          (Xml.child xml_arg0 "AttachedObjectIdentifier") in
      make ?attachedObjectIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachedObjectIdentifier =
        field_map json__ "AttachedObjectIdentifier" ObjectIdentifier.of_json in
      make ?attachedObjectIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches an existing object to another object. An object can be accessed in two ways: Using the path Using ObjectIdentifier"]
module AttachObjectRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) that is associated with the Directory where both objects reside. For more information, see arns."];
      parentReference: ObjectReference.t
        [@ocaml.doc "The parent object reference."];
      childReference: ObjectReference.t
        [@ocaml.doc
          "The child object reference to be attached to the object."];
      linkName: LinkName.t
        [@ocaml.doc
          "The link name with which the child object is attached to the parent."]}
    let context_ = "AttachObjectRequest"
    let make ~directoryArn =
      fun ~parentReference ->
        fun ~childReference ->
          fun ~linkName ->
            fun () ->
              { directoryArn; parentReference; childReference; linkName }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("ParentReference",
          (Some (ObjectReference.to_value x.parentReference)));
        ("ChildReference",
          (Some (ObjectReference.to_value x.childReference)));
        ("LinkName", (Some (LinkName.to_value x.linkName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let linkName =
        LinkName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LinkName") in
      let childReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChildReference") in
      let parentReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ParentReference") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~linkName ~childReference ~parentReference ~directoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let linkName = field_map_exn json__ "LinkName" LinkName.of_json in
      let childReference =
        field_map_exn json__ "ChildReference" ObjectReference.of_json in
      let parentReference =
        field_map_exn json__ "ParentReference" ObjectReference.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~linkName ~childReference ~parentReference ~directoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches an existing object to another object. An object can be accessed in two ways: Using the path Using ObjectIdentifier"]
module ApplySchemaResponse =
  struct
    type nonrec t =
      {
      appliedSchemaArn: Arn.t option
        [@ocaml.doc
          "The applied schema ARN that is associated with the copied schema in the Directory. You can use this ARN to describe the schema information applied on this directory. For more information, see arns."];
      directoryArn: Arn.t option
        [@ocaml.doc
          "The ARN that is associated with the Directory. For more information, see arns."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidAttachmentException of InvalidAttachmentException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `SchemaAlreadyExistsException of SchemaAlreadyExistsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?appliedSchemaArn =
      fun ?directoryArn -> fun () -> { appliedSchemaArn; directoryArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidAttachmentException" ->
          `InvalidAttachmentException
            (InvalidAttachmentException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.of_json json)
      | "SchemaAlreadyExistsException" ->
          `SchemaAlreadyExistsException
            (SchemaAlreadyExistsException.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)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidAttachmentException" ->
          `InvalidAttachmentException (InvalidAttachmentException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.of_xml xml)
      | "SchemaAlreadyExistsException" ->
          `SchemaAlreadyExistsException
            (SchemaAlreadyExistsException.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))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidAttachmentException e ->
          `Assoc
            [("error", (`String "InvalidAttachmentException"));
            ("details", (InvalidAttachmentException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.to_json e))]
      | `SchemaAlreadyExistsException e ->
          `Assoc
            [("error", (`String "SchemaAlreadyExistsException"));
            ("details", (SchemaAlreadyExistsException.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
        [("AppliedSchemaArn",
           (Option.map x.appliedSchemaArn ~f:Arn.to_value));
        ("DirectoryArn", (Option.map x.directoryArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "DirectoryArn") in
      let appliedSchemaArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "AppliedSchemaArn") in
      make ?directoryArn ?appliedSchemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryArn = field_map json__ "DirectoryArn" Arn.of_json in
      let appliedSchemaArn = field_map json__ "AppliedSchemaArn" Arn.of_json in
      make ?directoryArn ?appliedSchemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Copies the input published schema, at the specified version, into the Directory with the same name and version as that of the published schema."]
module ApplySchemaRequest =
  struct
    type nonrec t =
      {
      publishedSchemaArn: Arn.t
        [@ocaml.doc
          "Published schema Amazon Resource Name (ARN) that needs to be copied. For more information, see arns."];
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory into which the schema is copied. For more information, see arns."]}
    let context_ = "ApplySchemaRequest"
    let make ~publishedSchemaArn =
      fun ~directoryArn -> fun () -> { publishedSchemaArn; directoryArn }
    let to_value x =
      structure_to_value
        [("PublishedSchemaArn", (Some (Arn.to_value x.publishedSchemaArn)));
        ("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      let publishedSchemaArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PublishedSchemaArn") in
      make ~directoryArn ~publishedSchemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      let publishedSchemaArn =
        field_map_exn json__ "PublishedSchemaArn" Arn.of_json in
      make ~directoryArn ~publishedSchemaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Copies the input published schema, at the specified version, into the Directory with the same name and version as that of the published schema."]
module AddFacetToObjectResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DirectoryNotEnabledException of DirectoryNotEnabledException.t 
      | `FacetValidationException of FacetValidationException.t 
      | `InternalServiceException of InternalServiceException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `RetryableConflictException of RetryableConflictException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_json json)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_json json)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "RetryableConflictException" ->
          `RetryableConflictException
            (RetryableConflictException.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)
      | "DirectoryNotEnabledException" ->
          `DirectoryNotEnabledException
            (DirectoryNotEnabledException.of_xml xml)
      | "FacetValidationException" ->
          `FacetValidationException (FacetValidationException.of_xml xml)
      | "InternalServiceException" ->
          `InternalServiceException (InternalServiceException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "RetryableConflictException" ->
          `RetryableConflictException (RetryableConflictException.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))]
      | `DirectoryNotEnabledException e ->
          `Assoc
            [("error", (`String "DirectoryNotEnabledException"));
            ("details", (DirectoryNotEnabledException.to_json e))]
      | `FacetValidationException e ->
          `Assoc
            [("error", (`String "FacetValidationException"));
            ("details", (FacetValidationException.to_json e))]
      | `InternalServiceException e ->
          `Assoc
            [("error", (`String "InternalServiceException"));
            ("details", (InternalServiceException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `RetryableConflictException e ->
          `Assoc
            [("error", (`String "RetryableConflictException"));
            ("details", (RetryableConflictException.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 a new Facet to an object. An object can have more than one facet applied on it."]
module AddFacetToObjectRequest =
  struct
    type nonrec t =
      {
      directoryArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that is associated with the Directory where the object resides. For more information, see arns."];
      schemaFacet: SchemaFacet.t
        [@ocaml.doc
          "Identifiers for the facet that you are adding to the object. See SchemaFacet for details."];
      objectAttributeList: AttributeKeyAndValueList.t option
        [@ocaml.doc
          "Attributes on the facet that you are adding to the object."];
      objectReference: ObjectReference.t
        [@ocaml.doc
          "A reference to the object you are adding the specified facet to."]}
    let context_ = "AddFacetToObjectRequest"
    let make ?objectAttributeList =
      fun ~directoryArn ->
        fun ~schemaFacet ->
          fun ~objectReference ->
            fun () ->
              {
                objectAttributeList;
                directoryArn;
                schemaFacet;
                objectReference
              }
    let to_value x =
      structure_to_value
        [("x-amz-data-partition", (Some (Arn.to_value x.directoryArn)));
        ("SchemaFacet", (Some (SchemaFacet.to_value x.schemaFacet)));
        ("ObjectAttributeList",
          (Option.map x.objectAttributeList
             ~f:AttributeKeyAndValueList.to_value));
        ("ObjectReference",
          (Some (ObjectReference.to_value x.objectReference)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectReference =
        ObjectReference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ObjectReference") in
      let objectAttributeList =
        (Option.map ~f:AttributeKeyAndValueList.of_xml)
          (Xml.child xml_arg0 "ObjectAttributeList") in
      let schemaFacet =
        SchemaFacet.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SchemaFacet") in
      let directoryArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "x-amz-data-partition") in
      make ~objectReference ?objectAttributeList ~schemaFacet ~directoryArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectReference =
        field_map_exn json__ "ObjectReference" ObjectReference.of_json in
      let objectAttributeList =
        field_map json__ "ObjectAttributeList"
          AttributeKeyAndValueList.of_json in
      let schemaFacet =
        field_map_exn json__ "SchemaFacet" SchemaFacet.of_json in
      let directoryArn = field_map_exn json__ "DirectoryArn" Arn.of_json in
      make ~objectReference ?objectAttributeList ~schemaFacet ~directoryArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a new Facet to an object. An object can have more than one facet applied on it."]