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.sqs
let apiVersion = "2012-11-05"
let endpointPrefix = "sqs"
let serviceFullName = "Amazon Simple Queue Service"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Amazon SQS"
let targetPrefix = "AmazonSQS"
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 Binary =
  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 String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module BinaryList =
  struct
    type nonrec t = Binary.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:Binary.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:Binary.of_xml)
    let of_json j = list_of_json ~kind:"BinaryList" ~of_json:Binary.of_json j
    let to_json v = composed_to_json to_value v
  end
module StringList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"StringList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module MessageAttributeValue =
  struct
    type nonrec t =
      {
      stringValue: String_.t option
        [@ocaml.doc
          "Strings are Unicode with UTF-8 binary encoding. For a list of code values, see ASCII Printable Characters."];
      binaryValue: Binary.t option
        [@ocaml.doc
          "Binary type attributes can store any binary data, such as compressed data, encrypted data, or images."];
      stringListValues: StringList.t option
        [@ocaml.doc "Not implemented. Reserved for future use."];
      binaryListValues: BinaryList.t option
        [@ocaml.doc "Not implemented. Reserved for future use."];
      dataType: String_.t
        [@ocaml.doc
          "Amazon SQS supports the following logical data types: String, Number, and Binary. For the Number data type, you must use StringValue. You can also append custom labels. For more information, see Amazon SQS Message Attributes in the Amazon SQS Developer Guide."]}
    let context_ = "MessageAttributeValue"
    let make ?stringValue =
      fun ?binaryValue ->
        fun ?stringListValues ->
          fun ?binaryListValues ->
            fun ~dataType ->
              fun () ->
                {
                  stringValue;
                  binaryValue;
                  stringListValues;
                  binaryListValues;
                  dataType
                }
    let to_value x =
      structure_to_value
        [("StringValue", (Option.map x.stringValue ~f:String_.to_value));
        ("BinaryValue", (Option.map x.binaryValue ~f:Binary.to_value));
        ("StringListValues",
          (Option.map x.stringListValues ~f:StringList.to_value));
        ("BinaryListValues",
          (Option.map x.binaryListValues ~f:BinaryList.to_value));
        ("DataType", (Some (String_.to_value x.dataType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataType =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DataType") in
      let binaryListValues =
        (Option.map ~f:BinaryList.of_xml)
          (Xml.child xml_arg0 "BinaryListValues") in
      let stringListValues =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "StringListValues") in
      let binaryValue =
        (Option.map ~f:Binary.of_xml) (Xml.child xml_arg0 "BinaryValue") in
      let stringValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StringValue") in
      make ~dataType ?binaryListValues ?stringListValues ?binaryValue
        ?stringValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataType = field_map_exn json__ "DataType" String_.of_json in
      let binaryListValues =
        field_map json__ "BinaryListValues" BinaryList.of_json in
      let stringListValues =
        field_map json__ "StringListValues" StringList.of_json in
      let binaryValue = field_map json__ "BinaryValue" Binary.of_json in
      let stringValue = field_map json__ "StringValue" String_.of_json in
      make ~dataType ?binaryListValues ?stringListValues ?binaryValue
        ?stringValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The user-specified message attribute value. For string data types, the Value attribute has the same restrictions on the content as the message body. For more information, see SendMessage. Name, type, value and the message body must not be empty or null. All parts of the message attribute, including Name, Type, and Value, are part of the message size restriction (1 MiB or 1,048,576 bytes)."]
module MessageSystemAttributeNameForSends =
  struct
    type nonrec t =
      | AWSTraceHeader 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | AWSTraceHeader -> "AWSTraceHeader" | Non_static_id s -> s
    let of_string =
      function | "AWSTraceHeader" -> AWSTraceHeader | 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 MessageSystemAttributeNameForSends"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"MessageSystemAttributeNameForSends" j)
    let to_json = simple_to_json to_value
  end
module MessageSystemAttributeValue =
  struct
    type nonrec t =
      {
      stringValue: String_.t option
        [@ocaml.doc
          "Strings are Unicode with UTF-8 binary encoding. For a list of code values, see ASCII Printable Characters."];
      binaryValue: Binary.t option
        [@ocaml.doc
          "Binary type attributes can store any binary data, such as compressed data, encrypted data, or images."];
      stringListValues: StringList.t option
        [@ocaml.doc "Not implemented. Reserved for future use."];
      binaryListValues: BinaryList.t option
        [@ocaml.doc "Not implemented. Reserved for future use."];
      dataType: String_.t
        [@ocaml.doc
          "Amazon SQS supports the following logical data types: String, Number, and Binary. For the Number data type, you must use StringValue. You can also append custom labels. For more information, see Amazon SQS Message Attributes in the Amazon SQS Developer Guide."]}
    let context_ = "MessageSystemAttributeValue"
    let make ?stringValue =
      fun ?binaryValue ->
        fun ?stringListValues ->
          fun ?binaryListValues ->
            fun ~dataType ->
              fun () ->
                {
                  stringValue;
                  binaryValue;
                  stringListValues;
                  binaryListValues;
                  dataType
                }
    let to_value x =
      structure_to_value
        [("StringValue", (Option.map x.stringValue ~f:String_.to_value));
        ("BinaryValue", (Option.map x.binaryValue ~f:Binary.to_value));
        ("StringListValues",
          (Option.map x.stringListValues ~f:StringList.to_value));
        ("BinaryListValues",
          (Option.map x.binaryListValues ~f:BinaryList.to_value));
        ("DataType", (Some (String_.to_value x.dataType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataType =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DataType") in
      let binaryListValues =
        (Option.map ~f:BinaryList.of_xml)
          (Xml.child xml_arg0 "BinaryListValues") in
      let stringListValues =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "StringListValues") in
      let binaryValue =
        (Option.map ~f:Binary.of_xml) (Xml.child xml_arg0 "BinaryValue") in
      let stringValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StringValue") in
      make ~dataType ?binaryListValues ?stringListValues ?binaryValue
        ?stringValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataType = field_map_exn json__ "DataType" String_.of_json in
      let binaryListValues =
        field_map json__ "BinaryListValues" BinaryList.of_json in
      let stringListValues =
        field_map json__ "StringListValues" StringList.of_json in
      let binaryValue = field_map json__ "BinaryValue" Binary.of_json in
      let stringValue = field_map json__ "StringValue" String_.of_json in
      make ~dataType ?binaryListValues ?stringListValues ?binaryValue
        ?stringValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The user-specified message system attribute value. For string data types, the Value attribute has the same restrictions on the content as the message body. For more information, see SendMessage. Name, type, value and the message body must not be empty or null."]
module MessageSystemAttributeName =
  struct
    type nonrec t =
      | All 
      | SenderId 
      | SentTimestamp 
      | ApproximateReceiveCount 
      | ApproximateFirstReceiveTimestamp 
      | SequenceNumber 
      | MessageDeduplicationId 
      | MessageGroupId 
      | AWSTraceHeader 
      | DeadLetterQueueSourceArn 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | All -> "All"
      | SenderId -> "SenderId"
      | SentTimestamp -> "SentTimestamp"
      | ApproximateReceiveCount -> "ApproximateReceiveCount"
      | ApproximateFirstReceiveTimestamp ->
          "ApproximateFirstReceiveTimestamp"
      | SequenceNumber -> "SequenceNumber"
      | MessageDeduplicationId -> "MessageDeduplicationId"
      | MessageGroupId -> "MessageGroupId"
      | AWSTraceHeader -> "AWSTraceHeader"
      | DeadLetterQueueSourceArn -> "DeadLetterQueueSourceArn"
      | Non_static_id s -> s
    let of_string =
      function
      | "All" -> All
      | "SenderId" -> SenderId
      | "SentTimestamp" -> SentTimestamp
      | "ApproximateReceiveCount" -> ApproximateReceiveCount
      | "ApproximateFirstReceiveTimestamp" ->
          ApproximateFirstReceiveTimestamp
      | "SequenceNumber" -> SequenceNumber
      | "MessageDeduplicationId" -> MessageDeduplicationId
      | "MessageGroupId" -> MessageGroupId
      | "AWSTraceHeader" -> AWSTraceHeader
      | "DeadLetterQueueSourceArn" -> DeadLetterQueueSourceArn
      | 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 MessageSystemAttributeName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"MessageSystemAttributeName" j)
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module MessageBodyAttributeMap =
  struct
    type nonrec t = (String_.t * MessageAttributeValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types String MessageAttributeValue"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x ->
                       (MessageAttributeValue.to_value y) |>
                         (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:MessageAttributeValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module MessageBodySystemAttributeMap =
  struct
    type nonrec t =
      (MessageSystemAttributeNameForSends.t * MessageSystemAttributeValue.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 MessageSystemAttributeNameForSends MessageSystemAttributeValue"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (MessageSystemAttributeNameForSends.to_value x) |>
                    (fun x ->
                       (MessageSystemAttributeValue.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:MessageSystemAttributeNameForSends.of_string
        ~of_json:MessageSystemAttributeValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module NullableInteger =
  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 NullableInteger" 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 MessageSystemAttributeMap =
  struct
    type nonrec t = (MessageSystemAttributeName.t * String_.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 ->
                            ((MessageSystemAttributeName.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (MessageSystemAttributeName.to_value x) |>
                    (fun x -> (String_.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:MessageSystemAttributeName.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module NullableLong =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module 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 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 QueueAttributeName =
  struct
    type nonrec t =
      | All 
      | Policy 
      | VisibilityTimeout 
      | MaximumMessageSize 
      | MessageRetentionPeriod 
      | ApproximateNumberOfMessages 
      | ApproximateNumberOfMessagesNotVisible 
      | CreatedTimestamp 
      | LastModifiedTimestamp 
      | QueueArn 
      | ApproximateNumberOfMessagesDelayed 
      | DelaySeconds 
      | ReceiveMessageWaitTimeSeconds 
      | RedrivePolicy 
      | FifoQueue 
      | ContentBasedDeduplication 
      | KmsMasterKeyId 
      | KmsDataKeyReusePeriodSeconds 
      | DeduplicationScope 
      | FifoThroughputLimit 
      | RedriveAllowPolicy 
      | SqsManagedSseEnabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | All -> "All"
      | Policy -> "Policy"
      | VisibilityTimeout -> "VisibilityTimeout"
      | MaximumMessageSize -> "MaximumMessageSize"
      | MessageRetentionPeriod -> "MessageRetentionPeriod"
      | ApproximateNumberOfMessages -> "ApproximateNumberOfMessages"
      | ApproximateNumberOfMessagesNotVisible ->
          "ApproximateNumberOfMessagesNotVisible"
      | CreatedTimestamp -> "CreatedTimestamp"
      | LastModifiedTimestamp -> "LastModifiedTimestamp"
      | QueueArn -> "QueueArn"
      | ApproximateNumberOfMessagesDelayed ->
          "ApproximateNumberOfMessagesDelayed"
      | DelaySeconds -> "DelaySeconds"
      | ReceiveMessageWaitTimeSeconds -> "ReceiveMessageWaitTimeSeconds"
      | RedrivePolicy -> "RedrivePolicy"
      | FifoQueue -> "FifoQueue"
      | ContentBasedDeduplication -> "ContentBasedDeduplication"
      | KmsMasterKeyId -> "KmsMasterKeyId"
      | KmsDataKeyReusePeriodSeconds -> "KmsDataKeyReusePeriodSeconds"
      | DeduplicationScope -> "DeduplicationScope"
      | FifoThroughputLimit -> "FifoThroughputLimit"
      | RedriveAllowPolicy -> "RedriveAllowPolicy"
      | SqsManagedSseEnabled -> "SqsManagedSseEnabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "All" -> All
      | "Policy" -> Policy
      | "VisibilityTimeout" -> VisibilityTimeout
      | "MaximumMessageSize" -> MaximumMessageSize
      | "MessageRetentionPeriod" -> MessageRetentionPeriod
      | "ApproximateNumberOfMessages" -> ApproximateNumberOfMessages
      | "ApproximateNumberOfMessagesNotVisible" ->
          ApproximateNumberOfMessagesNotVisible
      | "CreatedTimestamp" -> CreatedTimestamp
      | "LastModifiedTimestamp" -> LastModifiedTimestamp
      | "QueueArn" -> QueueArn
      | "ApproximateNumberOfMessagesDelayed" ->
          ApproximateNumberOfMessagesDelayed
      | "DelaySeconds" -> DelaySeconds
      | "ReceiveMessageWaitTimeSeconds" -> ReceiveMessageWaitTimeSeconds
      | "RedrivePolicy" -> RedrivePolicy
      | "FifoQueue" -> FifoQueue
      | "ContentBasedDeduplication" -> ContentBasedDeduplication
      | "KmsMasterKeyId" -> KmsMasterKeyId
      | "KmsDataKeyReusePeriodSeconds" -> KmsDataKeyReusePeriodSeconds
      | "DeduplicationScope" -> DeduplicationScope
      | "FifoThroughputLimit" -> FifoThroughputLimit
      | "RedriveAllowPolicy" -> RedriveAllowPolicy
      | "SqsManagedSseEnabled" -> SqsManagedSseEnabled
      | 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 QueueAttributeName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"QueueAttributeName" j)
    let to_json = simple_to_json to_value
  end
module BatchResultErrorEntry =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc "The Id of an entry in a batch request."];
      senderFault: Boolean.t option
        [@ocaml.doc
          "Specifies whether the error happened due to the caller of the batch API action."];
      code: String_.t option
        [@ocaml.doc
          "An error code representing why the action failed on this entry."];
      message: String_.t option
        [@ocaml.doc
          "A message explaining why the action failed on this entry."]}
    let make ?id =
      fun ?senderFault ->
        fun ?code ->
          fun ?message -> fun () -> { id; senderFault; code; message }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:String_.to_value));
        ("SenderFault", (Option.map x.senderFault ~f:Boolean.to_value));
        ("Code", (Option.map x.code ~f:String_.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Code") in
      let senderFault =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "SenderFault") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Id") in
      make ?message ?code ?senderFault ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" String_.of_json in
      let senderFault = field_map json__ "SenderFault" Boolean.of_json in
      let id = field_map json__ "Id" String_.of_json in
      make ?message ?code ?senderFault ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gives a detailed description of the result of an action on each entry in the request."]
module SendMessageBatchResultEntry =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc "An identifier for the message in this batch."];
      messageId: String_.t option
        [@ocaml.doc "An identifier for the message."];
      mD5OfMessageBody: String_.t option
        [@ocaml.doc
          "An MD5 digest of the non-URL-encoded message body string. You can use this attribute to verify that Amazon SQS received the message correctly. Amazon SQS URL-decodes the message before creating the MD5 digest. For information about MD5, see RFC1321."];
      mD5OfMessageAttributes: String_.t option
        [@ocaml.doc
          "An MD5 digest of the non-URL-encoded message attribute string. You can use this attribute to verify that Amazon SQS received the message correctly. Amazon SQS URL-decodes the message before creating the MD5 digest. For information about MD5, see RFC1321."];
      mD5OfMessageSystemAttributes: String_.t option
        [@ocaml.doc
          "An MD5 digest of the non-URL-encoded message system attribute string. You can use this attribute to verify that Amazon SQS received the message correctly. Amazon SQS URL-decodes the message before creating the MD5 digest. For information about MD5, see RFC1321."];
      sequenceNumber: String_.t option
        [@ocaml.doc
          "This parameter applies only to FIFO (first-in-first-out) queues. The large, non-consecutive number that Amazon SQS assigns to each message. The length of SequenceNumber is 128 bits. As SequenceNumber continues to increase for a particular MessageGroupId."]}
    let make ?id =
      fun ?messageId ->
        fun ?mD5OfMessageBody ->
          fun ?mD5OfMessageAttributes ->
            fun ?mD5OfMessageSystemAttributes ->
              fun ?sequenceNumber ->
                fun () ->
                  {
                    id;
                    messageId;
                    mD5OfMessageBody;
                    mD5OfMessageAttributes;
                    mD5OfMessageSystemAttributes;
                    sequenceNumber
                  }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:String_.to_value));
        ("MessageId", (Option.map x.messageId ~f:String_.to_value));
        ("MD5OfMessageBody",
          (Option.map x.mD5OfMessageBody ~f:String_.to_value));
        ("MD5OfMessageAttributes",
          (Option.map x.mD5OfMessageAttributes ~f:String_.to_value));
        ("MD5OfMessageSystemAttributes",
          (Option.map x.mD5OfMessageSystemAttributes ~f:String_.to_value));
        ("SequenceNumber", (Option.map x.sequenceNumber ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sequenceNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SequenceNumber") in
      let mD5OfMessageSystemAttributes =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MD5OfMessageSystemAttributes") in
      let mD5OfMessageAttributes =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MD5OfMessageAttributes") in
      let mD5OfMessageBody =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MD5OfMessageBody") in
      let messageId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MessageId") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Id") in
      make ?sequenceNumber ?mD5OfMessageSystemAttributes
        ?mD5OfMessageAttributes ?mD5OfMessageBody ?messageId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sequenceNumber = field_map json__ "SequenceNumber" String_.of_json in
      let mD5OfMessageSystemAttributes =
        field_map json__ "MD5OfMessageSystemAttributes" String_.of_json in
      let mD5OfMessageAttributes =
        field_map json__ "MD5OfMessageAttributes" String_.of_json in
      let mD5OfMessageBody =
        field_map json__ "MD5OfMessageBody" String_.of_json in
      let messageId = field_map json__ "MessageId" String_.of_json in
      let id = field_map json__ "Id" String_.of_json in
      make ?sequenceNumber ?mD5OfMessageSystemAttributes
        ?mD5OfMessageAttributes ?mD5OfMessageBody ?messageId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Encloses a MessageId for a successfully-enqueued message in a SendMessageBatch."]
module SendMessageBatchRequestEntry =
  struct
    type nonrec t =
      {
      id: String_.t
        [@ocaml.doc
          "An identifier for a message in this batch used to communicate the result. The Ids of a batch request need to be unique within a request. This identifier can have up to 80 characters. The following characters are accepted: alphanumeric characters, hyphens(-), and underscores (_)."];
      messageBody: String_.t [@ocaml.doc "The body of the message."];
      delaySeconds: NullableInteger.t option
        [@ocaml.doc
          "The length of time, in seconds, for which a specific message is delayed. Valid values: 0 to 900. Maximum: 15 minutes. Messages with a positive DelaySeconds value become available for processing after the delay period is finished. If you don't specify a value, the default value for the queue is applied. When you set FifoQueue, you can't set DelaySeconds per message. You can set this parameter only on a queue level."];
      messageAttributes: MessageBodyAttributeMap.t option
        [@ocaml.doc
          "Each message attribute consists of a Name, Type, and Value. For more information, see Amazon SQS message attributes in the Amazon SQS Developer Guide."];
      messageSystemAttributes: MessageBodySystemAttributeMap.t option
        [@ocaml.doc
          "The message system attribute to send Each message system attribute consists of a Name, Type, and Value. Currently, the only supported message system attribute is AWSTraceHeader. Its type must be String and its value must be a correctly formatted X-Ray trace header string. The size of a message system attribute doesn't count towards the total size of a message."];
      messageDeduplicationId: String_.t option
        [@ocaml.doc
          "This parameter applies only to FIFO (first-in-first-out) queues. The token used for deduplication of messages within a 5-minute minimum deduplication interval. If a message with a particular MessageDeduplicationId is sent successfully, subsequent messages with the same MessageDeduplicationId are accepted successfully but aren't delivered. For more information, see Exactly-once processing in the Amazon SQS Developer Guide. Every message must have a unique MessageDeduplicationId, You may provide a MessageDeduplicationId explicitly. If you aren't able to provide a MessageDeduplicationId and you enable ContentBasedDeduplication for your queue, Amazon SQS uses a SHA-256 hash to generate the MessageDeduplicationId using the body of the message (but not the attributes of the message). If you don't provide a MessageDeduplicationId and the queue doesn't have ContentBasedDeduplication set, the action fails with an error. If the queue has ContentBasedDeduplication set, your MessageDeduplicationId overrides the generated one. When ContentBasedDeduplication is in effect, messages with identical content sent within the deduplication interval are treated as duplicates and only one copy of the message is delivered. If you send one message with ContentBasedDeduplication enabled and then another message with a MessageDeduplicationId that is the same as the one generated for the first MessageDeduplicationId, the two messages are treated as duplicates and only one copy of the message is delivered. The MessageDeduplicationId is available to the consumer of the message (this can be useful for troubleshooting delivery issues). If a message is sent successfully but the acknowledgement is lost and the message is resent with the same MessageDeduplicationId after the deduplication interval, Amazon SQS can't detect duplicate messages. Amazon SQS continues to keep track of the message deduplication ID even after the message is received and deleted. The length of MessageDeduplicationId is 128 characters. MessageDeduplicationId can contain alphanumeric characters (a-z, A-Z, 0-9) and punctuation (!\"#$%&'()*+,-./:;<=>?\\@\\[\\\\]^_`\\{|\\}~). For best practices of using MessageDeduplicationId, see Using the MessageDeduplicationId Property in the Amazon SQS Developer Guide."];
      messageGroupId: String_.t option
        [@ocaml.doc
          "MessageGroupId is an attribute used in Amazon SQS FIFO (First-In-First-Out) and standard queues. In FIFO queues, MessageGroupId organizes messages into distinct groups. Messages within the same message group are always processed one at a time, in strict order, ensuring that no two messages from the same group are processed simultaneously. In standard queues, using MessageGroupId enables fair queues. It is used to identify the tenant a message belongs to, helping maintain consistent message dwell time across all tenants during noisy neighbor events. Unlike FIFO queues, messages with the same MessageGroupId can be processed in parallel, maintaining the high throughput of standard queues. FIFO queues: MessageGroupId acts as the tag that specifies that a message belongs to a specific message group. Messages that belong to the same message group are processed in a FIFO manner (however, messages in different message groups might be processed out of order). To interleave multiple ordered streams within a single queue, use MessageGroupId values (for example, session data for multiple users). In this scenario, multiple consumers can process the queue, but the session data of each user is processed in a FIFO fashion. If you do not provide a MessageGroupId when sending a message to a FIFO queue, the action fails. ReceiveMessage might return messages with multiple MessageGroupId values. For each MessageGroupId, the messages are sorted by time sent. Standard queues:Use MessageGroupId in standard queues to enable fair queues. The MessageGroupId identifies the tenant a message belongs to. A tenant can be any entity that shares a queue with others, such as your customer, a client application, or a request type. When one tenant sends a disproportionately large volume of messages or has messages that require longer processing time, fair queues ensure other tenants' messages maintain low dwell time. This preserves quality of service for all tenants while maintaining the scalability and throughput of standard queues. We recommend that you include a MessageGroupId in all messages when using fair queues. The length of MessageGroupId is 128 characters. Valid values: alphanumeric characters and punctuation (!\"#$%&'()*+,-./:;<=>?\\@\\[\\\\]^_`\\{|\\}~). For best practices of using MessageGroupId, see Using the MessageGroupId Property in the Amazon SQS Developer Guide."]}
    let context_ = "SendMessageBatchRequestEntry"
    let make ?delaySeconds =
      fun ?messageAttributes ->
        fun ?messageSystemAttributes ->
          fun ?messageDeduplicationId ->
            fun ?messageGroupId ->
              fun ~id ->
                fun ~messageBody ->
                  fun () ->
                    {
                      delaySeconds;
                      messageAttributes;
                      messageSystemAttributes;
                      messageDeduplicationId;
                      messageGroupId;
                      id;
                      messageBody
                    }
    let to_value x =
      structure_to_value
        [("Id", (Some (String_.to_value x.id)));
        ("MessageBody", (Some (String_.to_value x.messageBody)));
        ("DelaySeconds",
          (Option.map x.delaySeconds ~f:NullableInteger.to_value));
        ("MessageAttributes",
          (Option.map x.messageAttributes ~f:MessageBodyAttributeMap.to_value));
        ("MessageSystemAttributes",
          (Option.map x.messageSystemAttributes
             ~f:MessageBodySystemAttributeMap.to_value));
        ("MessageDeduplicationId",
          (Option.map x.messageDeduplicationId ~f:String_.to_value));
        ("MessageGroupId", (Option.map x.messageGroupId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageGroupId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MessageGroupId") in
      let messageDeduplicationId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MessageDeduplicationId") in
      let messageSystemAttributes =
        (Option.map ~f:MessageBodySystemAttributeMap.of_xml)
          (Xml.child xml_arg0 "MessageSystemAttributes") in
      let messageAttributes =
        (Option.map ~f:MessageBodyAttributeMap.of_xml)
          (Xml.child xml_arg0 "MessageAttributes") in
      let delaySeconds =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "DelaySeconds") in
      let messageBody =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MessageBody") in
      let id = String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ?messageGroupId ?messageDeduplicationId ?messageSystemAttributes
        ?messageAttributes ?delaySeconds ~messageBody ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageGroupId = field_map json__ "MessageGroupId" String_.of_json in
      let messageDeduplicationId =
        field_map json__ "MessageDeduplicationId" String_.of_json in
      let messageSystemAttributes =
        field_map json__ "MessageSystemAttributes"
          MessageBodySystemAttributeMap.of_json in
      let messageAttributes =
        field_map json__ "MessageAttributes" MessageBodyAttributeMap.of_json in
      let delaySeconds =
        field_map json__ "DelaySeconds" NullableInteger.of_json in
      let messageBody = field_map_exn json__ "MessageBody" String_.of_json in
      let id = field_map_exn json__ "Id" String_.of_json in
      make ?messageGroupId ?messageDeduplicationId ?messageSystemAttributes
        ?messageAttributes ?delaySeconds ~messageBody ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details of a single Amazon SQS message along with an Id."]
module Message =
  struct
    type nonrec t =
      {
      messageId: String_.t option
        [@ocaml.doc
          "A unique identifier for the message. A MessageIdis considered unique across all Amazon Web Services accounts for an extended period of time."];
      receiptHandle: String_.t option
        [@ocaml.doc
          "An identifier associated with the act of receiving the message. A new receipt handle is returned every time you receive a message. When deleting a message, you provide the last received receipt handle to delete the message."];
      mD5OfBody: String_.t option
        [@ocaml.doc
          "An MD5 digest of the non-URL-encoded message body string."];
      body: String_.t option
        [@ocaml.doc "The message's contents (not URL-encoded)."];
      attributes: MessageSystemAttributeMap.t option
        [@ocaml.doc
          "A map of the attributes requested in ReceiveMessage to their respective values. Supported attributes: ApproximateReceiveCount ApproximateFirstReceiveTimestamp MessageDeduplicationId MessageGroupId SenderId SentTimestamp SequenceNumber ApproximateFirstReceiveTimestamp and SentTimestamp are each returned as an integer representing the epoch time in milliseconds."];
      mD5OfMessageAttributes: String_.t option
        [@ocaml.doc
          "An MD5 digest of the non-URL-encoded message attribute string. You can use this attribute to verify that Amazon SQS received the message correctly. Amazon SQS URL-decodes the message before creating the MD5 digest. For information about MD5, see RFC1321."];
      messageAttributes: MessageBodyAttributeMap.t option
        [@ocaml.doc
          "Each message attribute consists of a Name, Type, and Value. For more information, see Amazon SQS message attributes in the Amazon SQS Developer Guide."]}
    let make ?messageId =
      fun ?receiptHandle ->
        fun ?mD5OfBody ->
          fun ?body ->
            fun ?attributes ->
              fun ?mD5OfMessageAttributes ->
                fun ?messageAttributes ->
                  fun () ->
                    {
                      messageId;
                      receiptHandle;
                      mD5OfBody;
                      body;
                      attributes;
                      mD5OfMessageAttributes;
                      messageAttributes
                    }
    let to_value x =
      structure_to_value
        [("MessageId", (Option.map x.messageId ~f:String_.to_value));
        ("ReceiptHandle", (Option.map x.receiptHandle ~f:String_.to_value));
        ("MD5OfBody", (Option.map x.mD5OfBody ~f:String_.to_value));
        ("Body", (Option.map x.body ~f:String_.to_value));
        ("Attributes",
          (Option.map x.attributes ~f:MessageSystemAttributeMap.to_value));
        ("MD5OfMessageAttributes",
          (Option.map x.mD5OfMessageAttributes ~f:String_.to_value));
        ("MessageAttributes",
          (Option.map x.messageAttributes ~f:MessageBodyAttributeMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageAttributes =
        (Option.map ~f:MessageBodyAttributeMap.of_xml)
          (Xml.child xml_arg0 "MessageAttributes") in
      let mD5OfMessageAttributes =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MD5OfMessageAttributes") in
      let attributes =
        (Option.map ~f:MessageSystemAttributeMap.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      let body = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Body") in
      let mD5OfBody =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MD5OfBody") in
      let receiptHandle =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ReceiptHandle") in
      let messageId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MessageId") in
      make ?messageAttributes ?mD5OfMessageAttributes ?attributes ?body
        ?mD5OfBody ?receiptHandle ?messageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageAttributes =
        field_map json__ "MessageAttributes" MessageBodyAttributeMap.of_json in
      let mD5OfMessageAttributes =
        field_map json__ "MD5OfMessageAttributes" String_.of_json in
      let attributes =
        field_map json__ "Attributes" MessageSystemAttributeMap.of_json in
      let body = field_map json__ "Body" String_.of_json in
      let mD5OfBody = field_map json__ "MD5OfBody" String_.of_json in
      let receiptHandle = field_map json__ "ReceiptHandle" String_.of_json in
      let messageId = field_map json__ "MessageId" String_.of_json in
      make ?messageAttributes ?mD5OfMessageAttributes ?attributes ?body
        ?mD5OfBody ?receiptHandle ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An Amazon SQS message."]
module MessageAttributeName =
  struct
    type nonrec t = string
    let context_ = "MessageAttributeName"
    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:"MessageAttributeName" j
    let to_json = simple_to_json to_value
  end
module ListMessageMoveTasksResultEntry =
  struct
    type nonrec t =
      {
      taskHandle: String_.t option
        [@ocaml.doc
          "An identifier associated with a message movement task. When this field is returned in the response of the ListMessageMoveTasks action, it is only populated for tasks that are in RUNNING status."];
      status: String_.t option
        [@ocaml.doc
          "The status of the message movement task. Possible values are: RUNNING, COMPLETED, CANCELLING, CANCELLED, and FAILED."];
      sourceArn: String_.t option
        [@ocaml.doc
          "The ARN of the queue that contains the messages to be moved to another queue."];
      destinationArn: String_.t option
        [@ocaml.doc
          "The ARN of the destination queue if it has been specified in the StartMessageMoveTask request. If a DestinationArn has not been specified in the StartMessageMoveTask request, this field value will be NULL."];
      maxNumberOfMessagesPerSecond: NullableInteger.t option
        [@ocaml.doc
          "The number of messages to be moved per second (the message movement rate), if it has been specified in the StartMessageMoveTask request. If a MaxNumberOfMessagesPerSecond has not been specified in the StartMessageMoveTask request, this field value will be NULL."];
      approximateNumberOfMessagesMoved: Long.t option
        [@ocaml.doc
          "The approximate number of messages already moved to the destination queue."];
      approximateNumberOfMessagesToMove: NullableLong.t option
        [@ocaml.doc
          "The number of messages to be moved from the source queue. This number is obtained at the time of starting the message movement task and is only included after the message movement task is selected to start."];
      failureReason: String_.t option
        [@ocaml.doc
          "The task failure reason (only included if the task status is FAILED)."];
      startedTimestamp: Long.t option
        [@ocaml.doc "The timestamp of starting the message movement task."]}
    let make ?taskHandle =
      fun ?status ->
        fun ?sourceArn ->
          fun ?destinationArn ->
            fun ?maxNumberOfMessagesPerSecond ->
              fun ?approximateNumberOfMessagesMoved ->
                fun ?approximateNumberOfMessagesToMove ->
                  fun ?failureReason ->
                    fun ?startedTimestamp ->
                      fun () ->
                        {
                          taskHandle;
                          status;
                          sourceArn;
                          destinationArn;
                          maxNumberOfMessagesPerSecond;
                          approximateNumberOfMessagesMoved;
                          approximateNumberOfMessagesToMove;
                          failureReason;
                          startedTimestamp
                        }
    let to_value x =
      structure_to_value
        [("TaskHandle", (Option.map x.taskHandle ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("SourceArn", (Option.map x.sourceArn ~f:String_.to_value));
        ("DestinationArn", (Option.map x.destinationArn ~f:String_.to_value));
        ("MaxNumberOfMessagesPerSecond",
          (Option.map x.maxNumberOfMessagesPerSecond
             ~f:NullableInteger.to_value));
        ("ApproximateNumberOfMessagesMoved",
          (Option.map x.approximateNumberOfMessagesMoved ~f:Long.to_value));
        ("ApproximateNumberOfMessagesToMove",
          (Option.map x.approximateNumberOfMessagesToMove
             ~f:NullableLong.to_value));
        ("FailureReason", (Option.map x.failureReason ~f:String_.to_value));
        ("StartedTimestamp",
          (Option.map x.startedTimestamp ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startedTimestamp =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "StartedTimestamp") in
      let failureReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "FailureReason") in
      let approximateNumberOfMessagesToMove =
        (Option.map ~f:NullableLong.of_xml)
          (Xml.child xml_arg0 "ApproximateNumberOfMessagesToMove") in
      let approximateNumberOfMessagesMoved =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "ApproximateNumberOfMessagesMoved") in
      let maxNumberOfMessagesPerSecond =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "MaxNumberOfMessagesPerSecond") in
      let destinationArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DestinationArn") in
      let sourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SourceArn") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let taskHandle =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TaskHandle") in
      make ?startedTimestamp ?failureReason
        ?approximateNumberOfMessagesToMove ?approximateNumberOfMessagesMoved
        ?maxNumberOfMessagesPerSecond ?destinationArn ?sourceArn ?status
        ?taskHandle ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startedTimestamp = field_map json__ "StartedTimestamp" Long.of_json in
      let failureReason = field_map json__ "FailureReason" String_.of_json in
      let approximateNumberOfMessagesToMove =
        field_map json__ "ApproximateNumberOfMessagesToMove"
          NullableLong.of_json in
      let approximateNumberOfMessagesMoved =
        field_map json__ "ApproximateNumberOfMessagesMoved" Long.of_json in
      let maxNumberOfMessagesPerSecond =
        field_map json__ "MaxNumberOfMessagesPerSecond"
          NullableInteger.of_json in
      let destinationArn = field_map json__ "DestinationArn" String_.of_json in
      let sourceArn = field_map json__ "SourceArn" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let taskHandle = field_map json__ "TaskHandle" String_.of_json in
      make ?startedTimestamp ?failureReason
        ?approximateNumberOfMessagesToMove ?approximateNumberOfMessagesMoved
        ?maxNumberOfMessagesPerSecond ?destinationArn ?sourceArn ?status
        ?taskHandle ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the details of a message movement task."]
module DeleteMessageBatchResultEntry =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc "Represents a successfully deleted message."]}
    let make ?id = fun () -> { id }
    let to_value x =
      structure_to_value [("Id", (Option.map x.id ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Id") in
      make ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map json__ "Id" String_.of_json in make ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Encloses the Id of an entry in DeleteMessageBatch."]
module DeleteMessageBatchRequestEntry =
  struct
    type nonrec t =
      {
      id: String_.t
        [@ocaml.doc
          "The identifier for this particular receipt handle. This is used to communicate the result. The Ids of a batch request need to be unique within a request. This identifier can have up to 80 characters. The following characters are accepted: alphanumeric characters, hyphens(-), and underscores (_)."];
      receiptHandle: String_.t [@ocaml.doc "A receipt handle."]}
    let context_ = "DeleteMessageBatchRequestEntry"
    let make ~id = fun ~receiptHandle -> fun () -> { id; receiptHandle }
    let to_value x =
      structure_to_value
        [("Id", (Some (String_.to_value x.id)));
        ("ReceiptHandle", (Some (String_.to_value x.receiptHandle)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let receiptHandle =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReceiptHandle") in
      let id = String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ~receiptHandle ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let receiptHandle =
        field_map_exn json__ "ReceiptHandle" String_.of_json in
      let id = field_map_exn json__ "Id" String_.of_json in
      make ~receiptHandle ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Encloses a receipt handle and an identifier for it."]
module ChangeMessageVisibilityBatchResultEntry =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc
          "Represents a message whose visibility timeout has been changed successfully."]}
    let make ?id = fun () -> { id }
    let to_value x =
      structure_to_value [("Id", (Option.map x.id ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Id") in
      make ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map json__ "Id" String_.of_json in make ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Encloses the Id of an entry in ChangeMessageVisibilityBatch."]
module ChangeMessageVisibilityBatchRequestEntry =
  struct
    type nonrec t =
      {
      id: String_.t
        [@ocaml.doc
          "An identifier for this particular receipt handle used to communicate the result. The Ids of a batch request need to be unique within a request. This identifier can have up to 80 characters. The following characters are accepted: alphanumeric characters, hyphens(-), and underscores (_)."];
      receiptHandle: String_.t [@ocaml.doc "A receipt handle."];
      visibilityTimeout: NullableInteger.t option
        [@ocaml.doc
          "The new value (in seconds) for the message's visibility timeout."]}
    let context_ = "ChangeMessageVisibilityBatchRequestEntry"
    let make ?visibilityTimeout =
      fun ~id ->
        fun ~receiptHandle ->
          fun () -> { visibilityTimeout; id; receiptHandle }
    let to_value x =
      structure_to_value
        [("Id", (Some (String_.to_value x.id)));
        ("ReceiptHandle", (Some (String_.to_value x.receiptHandle)));
        ("VisibilityTimeout",
          (Option.map x.visibilityTimeout ~f:NullableInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let visibilityTimeout =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "VisibilityTimeout") in
      let receiptHandle =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReceiptHandle") in
      let id = String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ?visibilityTimeout ~receiptHandle ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let visibilityTimeout =
        field_map json__ "VisibilityTimeout" NullableInteger.of_json in
      let receiptHandle =
        field_map_exn json__ "ReceiptHandle" String_.of_json in
      let id = field_map_exn json__ "Id" String_.of_json in
      make ?visibilityTimeout ~receiptHandle ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Encloses a receipt handle and an entry ID for each message in ChangeMessageVisibilityBatch."]
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 x ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidAddress =
  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 ID is invalid."]
module InvalidSecurity =
  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 request was not made over HTTPS or did not use SigV4 for signing."]
module RequestThrottled =
  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 request was denied due to request throttling. Exceeds the permitted request rate for the queue or for the recipient of the request. Ensure that the request rate is within the Amazon SQS limits for sending messages. For more information, see Amazon SQS quotas in the Amazon SQS Developer Guide."]
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 "One or more specified resources don't exist."]
module UnsupportedOperation =
  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 "Error code 400. Unsupported operation."]
module QueueAttributeMap =
  struct
    type nonrec t = (QueueAttributeName.t * String_.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 ->
                            ((QueueAttributeName.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (QueueAttributeName.to_value x) |>
                    (fun x -> (String_.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:QueueAttributeName.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidMessageContents =
  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 message contains characters outside the allowed set."]
module KmsAccessDenied =
  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 caller doesn't have the required KMS access."]
module KmsDisabled =
  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 request was denied due to request throttling."]
module KmsInvalidKeyUsage =
  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 request was rejected for one of the following reasons: The KeyUsage value of the KMS key is incompatible with the API operation. The encryption algorithm or signing algorithm specified for the operation is incompatible with the type of key material in the KMS key (KeySpec)."]
module KmsInvalidState =
  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 request was rejected because the state of the specified resource is not valid for this request."]
module KmsNotFound =
  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 request was rejected because the specified entity or resource could not be found."]
module KmsOptInRequired =
  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 request was rejected because the specified key policy isn't syntactically or semantically correct."]
module KmsThrottled =
  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
       "Amazon Web Services KMS throttles requests for the following conditions."]
module QueueDoesNotExist =
  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
       "Ensure that the QueueUrl is correct and that the queue has not been deleted."]
module BatchEntryIdsNotDistinct =
  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
       "Two or more batch entries in the request have the same Id."]
module BatchRequestTooLong =
  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 length of all the messages put together is more than the limit."]
module BatchResultErrorEntryList =
  struct
    type nonrec t = BatchResultErrorEntry.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:BatchResultErrorEntry.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 x ~f:BatchResultErrorEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchResultErrorEntryList"
        ~of_json:BatchResultErrorEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module EmptyBatchRequest =
  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 batch request doesn't contain any entries."]
module InvalidBatchEntryId =
  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 Id of a batch entry in a batch request doesn't abide by the specification."]
module SendMessageBatchResultEntryList =
  struct
    type nonrec t = SendMessageBatchResultEntry.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:SendMessageBatchResultEntry.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 x ~f:SendMessageBatchResultEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"SendMessageBatchResultEntryList"
        ~of_json:SendMessageBatchResultEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module TooManyEntriesInBatchRequest =
  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 batch request contains more entries than permissible. For Amazon SQS, the maximum number of entries you can include in a single SendMessageBatch, DeleteMessageBatch, or ChangeMessageVisibilityBatch request is 10."]
module SendMessageBatchRequestEntryList =
  struct
    type nonrec t = SendMessageBatchRequestEntry.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:SendMessageBatchRequestEntry.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 x ~f:SendMessageBatchRequestEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"SendMessageBatchRequestEntryList"
        ~of_json:SendMessageBatchRequestEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module MessageList =
  struct
    type nonrec t = Message.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:Message.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 x ~f:Message.of_xml)
    let of_json j =
      list_of_json ~kind:"MessageList" ~of_json:Message.of_json j
    let to_json v = composed_to_json to_value v
  end
module OverLimit =
  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 action violates a limit. For example, ReceiveMessage returns this error if the maximum number of in flight messages is reached and AddPermission returns this error if the maximum number of permissions for the queue is reached."]
module AttributeNameList =
  struct
    type nonrec t = QueueAttributeName.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:QueueAttributeName.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 x ~f:QueueAttributeName.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeNameList"
        ~of_json:QueueAttributeName.of_json j
    let to_json v = composed_to_json to_value v
  end
module MessageAttributeNameList =
  struct
    type nonrec t = MessageAttributeName.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:MessageAttributeName.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 x ~f:MessageAttributeName.of_xml)
    let of_json j =
      list_of_json ~kind:"MessageAttributeNameList"
        ~of_json:MessageAttributeName.of_json j
    let to_json v = composed_to_json to_value v
  end
module MessageSystemAttributeList =
  struct
    type nonrec t = MessageSystemAttributeName.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:MessageSystemAttributeName.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 x ~f:MessageSystemAttributeName.of_xml)
    let of_json j =
      list_of_json ~kind:"MessageSystemAttributeList"
        ~of_json:MessageSystemAttributeName.of_json j
    let to_json v = composed_to_json to_value v
  end
module QueueUrlList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x = make (List.map x ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"QueueUrlList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Token =
  struct
    type nonrec t = string
    let context_ = "Token"
    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:"Token" j
    let to_json = simple_to_json to_value
  end
module BoxedInteger =
  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 BoxedInteger" 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 ListMessageMoveTasksResultEntryList =
  struct
    type nonrec t = ListMessageMoveTasksResultEntry.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:ListMessageMoveTasksResultEntry.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 x ~f:ListMessageMoveTasksResultEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"ListMessageMoveTasksResultEntryList"
        ~of_json:ListMessageMoveTasksResultEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidAttributeName =
  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 attribute doesn't exist."]
module DeleteMessageBatchResultEntryList =
  struct
    type nonrec t = DeleteMessageBatchResultEntry.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:DeleteMessageBatchResultEntry.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 x ~f:DeleteMessageBatchResultEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"DeleteMessageBatchResultEntryList"
        ~of_json:DeleteMessageBatchResultEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeleteMessageBatchRequestEntryList =
  struct
    type nonrec t = DeleteMessageBatchRequestEntry.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:DeleteMessageBatchRequestEntry.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 x ~f:DeleteMessageBatchRequestEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"DeleteMessageBatchRequestEntryList"
        ~of_json:DeleteMessageBatchRequestEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidAttributeValue =
  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 queue attribute value is invalid."]
module QueueDeletedRecently =
  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
       "You must wait 60 seconds after deleting a queue before you can create another queue with the same name."]
module QueueNameExists =
  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 queue with this name already exists. Amazon SQS returns this error only if the request includes attributes whose values differ from those of the existing queue."]
module ChangeMessageVisibilityBatchResultEntryList =
  struct
    type nonrec t = ChangeMessageVisibilityBatchResultEntry.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:ChangeMessageVisibilityBatchResultEntry.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 x ~f:ChangeMessageVisibilityBatchResultEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"ChangeMessageVisibilityBatchResultEntryList"
        ~of_json:ChangeMessageVisibilityBatchResultEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChangeMessageVisibilityBatchRequestEntryList =
  struct
    type nonrec t = ChangeMessageVisibilityBatchRequestEntry.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:ChangeMessageVisibilityBatchRequestEntry.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 x ~f:ChangeMessageVisibilityBatchRequestEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"ChangeMessageVisibilityBatchRequestEntryList"
        ~of_json:ChangeMessageVisibilityBatchRequestEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module AWSAccountIdList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x = make (List.map x ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"AWSAccountIdList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActionNameList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x = make (List.map x ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"ActionNameList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module UntagQueueRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t [@ocaml.doc "The URL of the queue."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The list of tags to be removed from the specified queue."]}
    let context_ = "UntagQueueRequest"
    let make ~queueUrl = fun ~tagKeys -> fun () -> { queueUrl; tagKeys }
    let to_value x =
      structure_to_value
        [("QueueUrl", (Some (String_.to_value x.queueUrl)));
        ("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.children xml_arg0 "TagKeys") in
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ~tagKeys ~queueUrl ()
    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 queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ~tagKeys ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Remove cost allocation tags from the specified Amazon SQS queue. For an overview, see Tagging Your Amazon SQS Queues in the Amazon SQS Developer Guide. Cross-account permissions don't apply to this action. For more information, see Grant cross-account permissions to a role and a username in the Amazon SQS Developer Guide."]
module TagQueueRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t [@ocaml.doc "The URL of the queue."];
      tags: TagMap.t
        [@ocaml.doc "The list of tags to be added to the specified queue."]}
    let context_ = "TagQueueRequest"
    let make ~queueUrl = fun ~tags -> fun () -> { queueUrl; tags }
    let to_value x =
      structure_to_value
        [("QueueUrl", (Some (String_.to_value x.queueUrl)));
        ("Tags", (Some (TagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ~tags ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagMap.of_json in
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ~tags ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Add cost allocation tags to the specified Amazon SQS queue. For an overview, see Tagging Your Amazon SQS Queues in the Amazon SQS Developer Guide. When you use queue tags, keep the following guidelines in mind: Adding more than 50 tags to a queue isn't recommended. Tags don't have any semantic meaning. Amazon SQS interprets tags as character strings. Tags are case-sensitive. A new tag with a key identical to that of an existing tag overwrites the existing tag. For a full list of tag restrictions, see Quotas related to queues in the Amazon SQS Developer Guide. Cross-account permissions don't apply to this action. For more information, see Grant cross-account permissions to a role and a username in the Amazon SQS Developer Guide."]
module StartMessageMoveTaskResult =
  struct
    type nonrec t =
      {
      taskHandle: String_.t option
        [@ocaml.doc
          "An identifier associated with a message movement task. You can use this identifier to cancel a specified message movement task using the CancelMessageMoveTask action."]}
    type nonrec error =
      [ `InvalidAddress of InvalidAddress.t 
      | `InvalidSecurity of InvalidSecurity.t 
      | `RequestThrottled of RequestThrottled.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperation of UnsupportedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?taskHandle = fun () -> { taskHandle }
    let error_of_json name json =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_json json)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_json json)
      | "RequestThrottled" ->
          `RequestThrottled (RequestThrottled.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_xml xml)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_xml xml)
      | "RequestThrottled" -> `RequestThrottled (RequestThrottled.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidAddress e ->
          `Assoc
            [("error", (`String "InvalidAddress"));
            ("details", (InvalidAddress.to_json e))]
      | `InvalidSecurity e ->
          `Assoc
            [("error", (`String "InvalidSecurity"));
            ("details", (InvalidSecurity.to_json e))]
      | `RequestThrottled e ->
          `Assoc
            [("error", (`String "RequestThrottled"));
            ("details", (RequestThrottled.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperation e ->
          `Assoc
            [("error", (`String "UnsupportedOperation"));
            ("details", (UnsupportedOperation.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
        [("TaskHandle", (Option.map x.taskHandle ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taskHandle =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TaskHandle") in
      make ?taskHandle ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taskHandle = field_map json__ "TaskHandle" String_.of_json in
      make ?taskHandle ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts an asynchronous task to move messages from a specified source queue to a specified destination queue. This action is currently limited to supporting message redrive from queues that are configured as dead-letter queues (DLQs) of other Amazon SQS queues only. Non-SQS queue sources of dead-letter queues, such as Lambda or Amazon SNS topics, are currently not supported. In dead-letter queues redrive context, the StartMessageMoveTask the source queue is the DLQ, while the destination queue can be the original source queue (from which the messages were driven to the dead-letter-queue), or a custom destination queue. Only one active message movement task is supported per queue at any given time."]
module StartMessageMoveTaskRequest =
  struct
    type nonrec t =
      {
      sourceArn: String_.t
        [@ocaml.doc
          "The ARN of the queue that contains the messages to be moved to another queue. Currently, only ARNs of dead-letter queues (DLQs) whose sources are other Amazon SQS queues are accepted. DLQs whose sources are non-SQS queues, such as Lambda or Amazon SNS topics, are not currently supported."];
      destinationArn: String_.t option
        [@ocaml.doc
          "The ARN of the queue that receives the moved messages. You can use this field to specify the destination queue where you would like to redrive messages. If this field is left blank, the messages will be redriven back to their respective original source queues."];
      maxNumberOfMessagesPerSecond: NullableInteger.t option
        [@ocaml.doc
          "The number of messages to be moved per second (the message movement rate). You can use this field to define a fixed message movement rate. The maximum value for messages per second is 500. If this field is left blank, the system will optimize the rate based on the queue message backlog size, which may vary throughout the duration of the message movement task."]}
    let context_ = "StartMessageMoveTaskRequest"
    let make ?destinationArn =
      fun ?maxNumberOfMessagesPerSecond ->
        fun ~sourceArn ->
          fun () ->
            { destinationArn; maxNumberOfMessagesPerSecond; sourceArn }
    let to_value x =
      structure_to_value
        [("SourceArn", (Some (String_.to_value x.sourceArn)));
        ("DestinationArn", (Option.map x.destinationArn ~f:String_.to_value));
        ("MaxNumberOfMessagesPerSecond",
          (Option.map x.maxNumberOfMessagesPerSecond
             ~f:NullableInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxNumberOfMessagesPerSecond =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "MaxNumberOfMessagesPerSecond") in
      let destinationArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DestinationArn") in
      let sourceArn =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SourceArn") in
      make ?maxNumberOfMessagesPerSecond ?destinationArn ~sourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxNumberOfMessagesPerSecond =
        field_map json__ "MaxNumberOfMessagesPerSecond"
          NullableInteger.of_json in
      let destinationArn = field_map json__ "DestinationArn" String_.of_json in
      let sourceArn = field_map_exn json__ "SourceArn" String_.of_json in
      make ?maxNumberOfMessagesPerSecond ?destinationArn ~sourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts an asynchronous task to move messages from a specified source queue to a specified destination queue. This action is currently limited to supporting message redrive from queues that are configured as dead-letter queues (DLQs) of other Amazon SQS queues only. Non-SQS queue sources of dead-letter queues, such as Lambda or Amazon SNS topics, are currently not supported. In dead-letter queues redrive context, the StartMessageMoveTask the source queue is the DLQ, while the destination queue can be the original source queue (from which the messages were driven to the dead-letter-queue), or a custom destination queue. Only one active message movement task is supported per queue at any given time."]
module SetQueueAttributesRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t
        [@ocaml.doc
          "The URL of the Amazon SQS queue whose attributes are set. Queue URLs and names are case-sensitive."];
      attributes: QueueAttributeMap.t
        [@ocaml.doc
          "A map of attributes to set. The following lists the names, descriptions, and values of the special request parameters that the SetQueueAttributes action uses: DelaySeconds \226\128\147 The length of time, in seconds, for which the delivery of all messages in the queue is delayed. Valid values: An integer from 0 to 900 (15 minutes). Default: 0. MaximumMessageSize \226\128\147 The limit of how many bytes a message can contain before Amazon SQS rejects it. Valid values: An integer from 1,024 bytes (1 KiB) up to 1,048,576 bytes (1 MiB). Default: 1,048,576 bytes (1 MiB). MessageRetentionPeriod \226\128\147 The length of time, in seconds, for which Amazon SQS retains a message. Valid values: An integer representing seconds, from 60 (1 minute) to 1,209,600 (14 days). Default: 345,600 (4 days). When you change a queue's attributes, the change can take up to 60 seconds for most of the attributes to propagate throughout the Amazon SQS system. Changes made to the MessageRetentionPeriod attribute can take up to 15 minutes and will impact existing messages in the queue potentially causing them to be expired and deleted if the MessageRetentionPeriod is reduced below the age of existing messages. Policy \226\128\147 The queue's policy. A valid Amazon Web Services policy. For more information about policy structure, see Overview of Amazon Web Services IAM Policies in the Identity and Access Management User Guide. ReceiveMessageWaitTimeSeconds \226\128\147 The length of time, in seconds, for which a ReceiveMessage action waits for a message to arrive. Valid values: An integer from 0 to 20 (seconds). Default: 0. VisibilityTimeout \226\128\147 The visibility timeout for the queue, in seconds. Valid values: An integer from 0 to 43,200 (12 hours). Default: 30. For more information about the visibility timeout, see Visibility Timeout in the Amazon SQS Developer Guide. The following attributes apply only to dead-letter queues: RedrivePolicy \226\128\147 The string that includes the parameters for the dead-letter queue functionality of the source queue as a JSON object. The parameters are as follows: deadLetterTargetArn \226\128\147 The Amazon Resource Name (ARN) of the dead-letter queue to which Amazon SQS moves messages after the value of maxReceiveCount is exceeded. maxReceiveCount \226\128\147 The number of times a message is delivered to the source queue before being moved to the dead-letter queue. Default: 10. When the ReceiveCount for a message exceeds the maxReceiveCount for a queue, Amazon SQS moves the message to the dead-letter-queue. RedriveAllowPolicy \226\128\147 The string that includes the parameters for the permissions for the dead-letter queue redrive permission and which source queues can specify dead-letter queues as a JSON object. The parameters are as follows: redrivePermission \226\128\147 The permission type that defines which source queues can specify the current queue as the dead-letter queue. Valid values are: allowAll \226\128\147 (Default) Any source queues in this Amazon Web Services account in the same Region can specify this queue as the dead-letter queue. denyAll \226\128\147 No source queues can specify this queue as the dead-letter queue. byQueue \226\128\147 Only queues specified by the sourceQueueArns parameter can specify this queue as the dead-letter queue. sourceQueueArns \226\128\147 The Amazon Resource Names (ARN)s of the source queues that can specify this queue as the dead-letter queue and redrive messages. You can specify this parameter only when the redrivePermission parameter is set to byQueue. You can specify up to 10 source queue ARNs. To allow more than 10 source queues to specify dead-letter queues, set the redrivePermission parameter to allowAll. The dead-letter queue of a FIFO queue must also be a FIFO queue. Similarly, the dead-letter queue of a standard queue must also be a standard queue. The following attributes apply only to server-side-encryption: KmsMasterKeyId \226\128\147 The ID of an Amazon Web Services managed customer master key (CMK) for Amazon SQS or a custom CMK. For more information, see Key Terms. While the alias of the AWS-managed CMK for Amazon SQS is always alias/aws/sqs, the alias of a custom CMK can, for example, be alias/MyAlias . For more examples, see KeyId in the Key Management Service API Reference. KmsDataKeyReusePeriodSeconds \226\128\147 The length of time, in seconds, for which Amazon SQS can reuse a data key to encrypt or decrypt messages before calling KMS again. An integer representing seconds, between 60 seconds (1 minute) and 86,400 seconds (24 hours). Default: 300 (5 minutes). A shorter time period provides better security but results in more calls to KMS which might incur charges after Free Tier. For more information, see How Does the Data Key Reuse Period Work?. SqsManagedSseEnabled \226\128\147 Enables server-side queue encryption using SQS owned encryption keys. Only one server-side encryption option is supported per queue (for example, SSE-KMS or SSE-SQS). The following attribute applies only to FIFO (first-in-first-out) queues: ContentBasedDeduplication \226\128\147 Enables content-based deduplication. For more information, see Exactly-once processing in the Amazon SQS Developer Guide. Note the following: Every message must have a unique MessageDeduplicationId. You may provide a MessageDeduplicationId explicitly. If you aren't able to provide a MessageDeduplicationId and you enable ContentBasedDeduplication for your queue, Amazon SQS uses a SHA-256 hash to generate the MessageDeduplicationId using the body of the message (but not the attributes of the message). If you don't provide a MessageDeduplicationId and the queue doesn't have ContentBasedDeduplication set, the action fails with an error. If the queue has ContentBasedDeduplication set, your MessageDeduplicationId overrides the generated one. When ContentBasedDeduplication is in effect, messages with identical content sent within the deduplication interval are treated as duplicates and only one copy of the message is delivered. If you send one message with ContentBasedDeduplication enabled and then another message with a MessageDeduplicationId that is the same as the one generated for the first MessageDeduplicationId, the two messages are treated as duplicates and only one copy of the message is delivered. The following attributes apply only to high throughput for FIFO queues: DeduplicationScope \226\128\147 Specifies whether message deduplication occurs at the message group or queue level. Valid values are messageGroup and queue. FifoThroughputLimit \226\128\147 Specifies whether the FIFO queue throughput quota applies to the entire queue or per message group. Valid values are perQueue and perMessageGroupId. The perMessageGroupId value is allowed only when the value for DeduplicationScope is messageGroup. To enable high throughput for FIFO queues, do the following: Set DeduplicationScope to messageGroup. Set FifoThroughputLimit to perMessageGroupId. If you set these attributes to anything other than the values shown for enabling high throughput, normal throughput is in effect and deduplication occurs as specified. For information on throughput quotas, see Quotas related to messages in the Amazon SQS Developer Guide."]}
    let context_ = "SetQueueAttributesRequest"
    let make ~queueUrl =
      fun ~attributes -> fun () -> { queueUrl; attributes }
    let to_value x =
      structure_to_value
        [("QueueUrl", (Some (String_.to_value x.queueUrl)));
        ("Attributes", (Some (QueueAttributeMap.to_value x.attributes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        QueueAttributeMap.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Attributes") in
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ~attributes ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes =
        field_map_exn json__ "Attributes" QueueAttributeMap.of_json in
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ~attributes ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end
module SendMessageResult =
  struct
    type nonrec t =
      {
      mD5OfMessageBody: String_.t option
        [@ocaml.doc
          "An MD5 digest of the non-URL-encoded message body string. You can use this attribute to verify that Amazon SQS received the message correctly. Amazon SQS URL-decodes the message before creating the MD5 digest. For information about MD5, see RFC1321."];
      mD5OfMessageAttributes: String_.t option
        [@ocaml.doc
          "An MD5 digest of the non-URL-encoded message attribute string. You can use this attribute to verify that Amazon SQS received the message correctly. Amazon SQS URL-decodes the message before creating the MD5 digest. For information about MD5, see RFC1321."];
      mD5OfMessageSystemAttributes: String_.t option
        [@ocaml.doc
          "An MD5 digest of the non-URL-encoded message system attribute string. You can use this attribute to verify that Amazon SQS received the message correctly. Amazon SQS URL-decodes the message before creating the MD5 digest."];
      messageId: String_.t option
        [@ocaml.doc
          "An attribute containing the MessageId of the message sent to the queue. For more information, see Queue and Message Identifiers in the Amazon SQS Developer Guide."];
      sequenceNumber: String_.t option
        [@ocaml.doc
          "This parameter applies only to FIFO (first-in-first-out) queues. The large, non-consecutive number that Amazon SQS assigns to each message. The length of SequenceNumber is 128 bits. SequenceNumber continues to increase for a particular MessageGroupId."]}
    type nonrec error =
      [ `InvalidAddress of InvalidAddress.t 
      | `InvalidMessageContents of InvalidMessageContents.t 
      | `InvalidSecurity of InvalidSecurity.t 
      | `KmsAccessDenied of KmsAccessDenied.t 
      | `KmsDisabled of KmsDisabled.t 
      | `KmsInvalidKeyUsage of KmsInvalidKeyUsage.t 
      | `KmsInvalidState of KmsInvalidState.t 
      | `KmsNotFound of KmsNotFound.t 
      | `KmsOptInRequired of KmsOptInRequired.t 
      | `KmsThrottled of KmsThrottled.t 
      | `QueueDoesNotExist of QueueDoesNotExist.t 
      | `RequestThrottled of RequestThrottled.t 
      | `UnsupportedOperation of UnsupportedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?mD5OfMessageBody =
      fun ?mD5OfMessageAttributes ->
        fun ?mD5OfMessageSystemAttributes ->
          fun ?messageId ->
            fun ?sequenceNumber ->
              fun () ->
                {
                  mD5OfMessageBody;
                  mD5OfMessageAttributes;
                  mD5OfMessageSystemAttributes;
                  messageId;
                  sequenceNumber
                }
    let error_of_json name json =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_json json)
      | "InvalidMessageContents" ->
          `InvalidMessageContents (InvalidMessageContents.of_json json)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_json json)
      | "KmsAccessDenied" -> `KmsAccessDenied (KmsAccessDenied.of_json json)
      | "KmsDisabled" -> `KmsDisabled (KmsDisabled.of_json json)
      | "KmsInvalidKeyUsage" ->
          `KmsInvalidKeyUsage (KmsInvalidKeyUsage.of_json json)
      | "KmsInvalidState" -> `KmsInvalidState (KmsInvalidState.of_json json)
      | "KmsNotFound" -> `KmsNotFound (KmsNotFound.of_json json)
      | "KmsOptInRequired" ->
          `KmsOptInRequired (KmsOptInRequired.of_json json)
      | "KmsThrottled" -> `KmsThrottled (KmsThrottled.of_json json)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_json json)
      | "RequestThrottled" ->
          `RequestThrottled (RequestThrottled.of_json json)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_xml xml)
      | "InvalidMessageContents" ->
          `InvalidMessageContents (InvalidMessageContents.of_xml xml)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_xml xml)
      | "KmsAccessDenied" -> `KmsAccessDenied (KmsAccessDenied.of_xml xml)
      | "KmsDisabled" -> `KmsDisabled (KmsDisabled.of_xml xml)
      | "KmsInvalidKeyUsage" ->
          `KmsInvalidKeyUsage (KmsInvalidKeyUsage.of_xml xml)
      | "KmsInvalidState" -> `KmsInvalidState (KmsInvalidState.of_xml xml)
      | "KmsNotFound" -> `KmsNotFound (KmsNotFound.of_xml xml)
      | "KmsOptInRequired" -> `KmsOptInRequired (KmsOptInRequired.of_xml xml)
      | "KmsThrottled" -> `KmsThrottled (KmsThrottled.of_xml xml)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_xml xml)
      | "RequestThrottled" -> `RequestThrottled (RequestThrottled.of_xml xml)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidAddress e ->
          `Assoc
            [("error", (`String "InvalidAddress"));
            ("details", (InvalidAddress.to_json e))]
      | `InvalidMessageContents e ->
          `Assoc
            [("error", (`String "InvalidMessageContents"));
            ("details", (InvalidMessageContents.to_json e))]
      | `InvalidSecurity e ->
          `Assoc
            [("error", (`String "InvalidSecurity"));
            ("details", (InvalidSecurity.to_json e))]
      | `KmsAccessDenied e ->
          `Assoc
            [("error", (`String "KmsAccessDenied"));
            ("details", (KmsAccessDenied.to_json e))]
      | `KmsDisabled e ->
          `Assoc
            [("error", (`String "KmsDisabled"));
            ("details", (KmsDisabled.to_json e))]
      | `KmsInvalidKeyUsage e ->
          `Assoc
            [("error", (`String "KmsInvalidKeyUsage"));
            ("details", (KmsInvalidKeyUsage.to_json e))]
      | `KmsInvalidState e ->
          `Assoc
            [("error", (`String "KmsInvalidState"));
            ("details", (KmsInvalidState.to_json e))]
      | `KmsNotFound e ->
          `Assoc
            [("error", (`String "KmsNotFound"));
            ("details", (KmsNotFound.to_json e))]
      | `KmsOptInRequired e ->
          `Assoc
            [("error", (`String "KmsOptInRequired"));
            ("details", (KmsOptInRequired.to_json e))]
      | `KmsThrottled e ->
          `Assoc
            [("error", (`String "KmsThrottled"));
            ("details", (KmsThrottled.to_json e))]
      | `QueueDoesNotExist e ->
          `Assoc
            [("error", (`String "QueueDoesNotExist"));
            ("details", (QueueDoesNotExist.to_json e))]
      | `RequestThrottled e ->
          `Assoc
            [("error", (`String "RequestThrottled"));
            ("details", (RequestThrottled.to_json e))]
      | `UnsupportedOperation e ->
          `Assoc
            [("error", (`String "UnsupportedOperation"));
            ("details", (UnsupportedOperation.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
        [("MD5OfMessageBody",
           (Option.map x.mD5OfMessageBody ~f:String_.to_value));
        ("MD5OfMessageAttributes",
          (Option.map x.mD5OfMessageAttributes ~f:String_.to_value));
        ("MD5OfMessageSystemAttributes",
          (Option.map x.mD5OfMessageSystemAttributes ~f:String_.to_value));
        ("MessageId", (Option.map x.messageId ~f:String_.to_value));
        ("SequenceNumber", (Option.map x.sequenceNumber ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sequenceNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SequenceNumber") in
      let messageId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MessageId") in
      let mD5OfMessageSystemAttributes =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MD5OfMessageSystemAttributes") in
      let mD5OfMessageAttributes =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MD5OfMessageAttributes") in
      let mD5OfMessageBody =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MD5OfMessageBody") in
      make ?sequenceNumber ?messageId ?mD5OfMessageSystemAttributes
        ?mD5OfMessageAttributes ?mD5OfMessageBody ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sequenceNumber = field_map json__ "SequenceNumber" String_.of_json in
      let messageId = field_map json__ "MessageId" String_.of_json in
      let mD5OfMessageSystemAttributes =
        field_map json__ "MD5OfMessageSystemAttributes" String_.of_json in
      let mD5OfMessageAttributes =
        field_map json__ "MD5OfMessageAttributes" String_.of_json in
      let mD5OfMessageBody =
        field_map json__ "MD5OfMessageBody" String_.of_json in
      make ?sequenceNumber ?messageId ?mD5OfMessageSystemAttributes
        ?mD5OfMessageAttributes ?mD5OfMessageBody ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The MD5OfMessageBody and MessageId elements."]
module SendMessageRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t
        [@ocaml.doc
          "The URL of the Amazon SQS queue to which a message is sent. Queue URLs and names are case-sensitive."];
      messageBody: String_.t
        [@ocaml.doc
          "The message to send. The minimum size is one character. The maximum size is 1 MiB or 1,048,576 bytes A message can include only XML, JSON, and unformatted text. The following Unicode characters are allowed. For more information, see the W3C specification for characters. #x9 | #xA | #xD | #x20 to #xD7FF | #xE000 to #xFFFD | #x10000 to #x10FFFF If a message contains characters outside the allowed set, Amazon SQS rejects the message and returns an InvalidMessageContents error. Ensure that your message body includes only valid characters to avoid this exception."];
      delaySeconds: NullableInteger.t option
        [@ocaml.doc
          "The length of time, in seconds, for which to delay a specific message. Valid values: 0 to 900. Maximum: 15 minutes. Messages with a positive DelaySeconds value become available for processing after the delay period is finished. If you don't specify a value, the default value for the queue applies. When you set FifoQueue, you can't set DelaySeconds per message. You can set this parameter only on a queue level."];
      messageAttributes: MessageBodyAttributeMap.t option
        [@ocaml.doc
          "Each message attribute consists of a Name, Type, and Value. For more information, see Amazon SQS message attributes in the Amazon SQS Developer Guide."];
      messageSystemAttributes: MessageBodySystemAttributeMap.t option
        [@ocaml.doc
          "The message system attribute to send. Each message system attribute consists of a Name, Type, and Value. Currently, the only supported message system attribute is AWSTraceHeader. Its type must be String and its value must be a correctly formatted X-Ray trace header string. The size of a message system attribute doesn't count towards the total size of a message."];
      messageDeduplicationId: String_.t option
        [@ocaml.doc
          "This parameter applies only to FIFO (first-in-first-out) queues. The token used for deduplication of sent messages. If a message with a particular MessageDeduplicationId is sent successfully, any messages sent with the same MessageDeduplicationId are accepted successfully but aren't delivered during the 5-minute deduplication interval. For more information, see Exactly-once processing in the Amazon SQS Developer Guide. Every message must have a unique MessageDeduplicationId, You may provide a MessageDeduplicationId explicitly. If you aren't able to provide a MessageDeduplicationId and you enable ContentBasedDeduplication for your queue, Amazon SQS uses a SHA-256 hash to generate the MessageDeduplicationId using the body of the message (but not the attributes of the message). If you don't provide a MessageDeduplicationId and the queue doesn't have ContentBasedDeduplication set, the action fails with an error. If the queue has ContentBasedDeduplication set, your MessageDeduplicationId overrides the generated one. When ContentBasedDeduplication is in effect, messages with identical content sent within the deduplication interval are treated as duplicates and only one copy of the message is delivered. If you send one message with ContentBasedDeduplication enabled and then another message with a MessageDeduplicationId that is the same as the one generated for the first MessageDeduplicationId, the two messages are treated as duplicates and only one copy of the message is delivered. The MessageDeduplicationId is available to the consumer of the message (this can be useful for troubleshooting delivery issues). If a message is sent successfully but the acknowledgement is lost and the message is resent with the same MessageDeduplicationId after the deduplication interval, Amazon SQS can't detect duplicate messages. Amazon SQS continues to keep track of the message deduplication ID even after the message is received and deleted. The maximum length of MessageDeduplicationId is 128 characters. MessageDeduplicationId can contain alphanumeric characters (a-z, A-Z, 0-9) and punctuation (!\"#$%&'()*+,-./:;<=>?\\@\\[\\\\]^_`\\{|\\}~). For best practices of using MessageDeduplicationId, see Using the MessageDeduplicationId Property in the Amazon SQS Developer Guide."];
      messageGroupId: String_.t option
        [@ocaml.doc
          "MessageGroupId is an attribute used in Amazon SQS FIFO (First-In-First-Out) and standard queues. In FIFO queues, MessageGroupId organizes messages into distinct groups. Messages within the same message group are always processed one at a time, in strict order, ensuring that no two messages from the same group are processed simultaneously. In standard queues, using MessageGroupId enables fair queues. It is used to identify the tenant a message belongs to, helping maintain consistent message dwell time across all tenants during noisy neighbor events. Unlike FIFO queues, messages with the same MessageGroupId can be processed in parallel, maintaining the high throughput of standard queues. FIFO queues: MessageGroupId acts as the tag that specifies that a message belongs to a specific message group. Messages that belong to the same message group are processed in a FIFO manner (however, messages in different message groups might be processed out of order). To interleave multiple ordered streams within a single queue, use MessageGroupId values (for example, session data for multiple users). In this scenario, multiple consumers can process the queue, but the session data of each user is processed in a FIFO fashion. If you do not provide a MessageGroupId when sending a message to a FIFO queue, the action fails. ReceiveMessage might return messages with multiple MessageGroupId values. For each MessageGroupId, the messages are sorted by time sent. Standard queues:Use MessageGroupId in standard queues to enable fair queues. The MessageGroupId identifies the tenant a message belongs to. A tenant can be any entity that shares a queue with others, such as your customer, a client application, or a request type. When one tenant sends a disproportionately large volume of messages or has messages that require longer processing time, fair queues ensure other tenants' messages maintain low dwell time. This preserves quality of service for all tenants while maintaining the scalability and throughput of standard queues. We recommend that you include a MessageGroupId in all messages when using fair queues. The length of MessageGroupId is 128 characters. Valid values: alphanumeric characters and punctuation (!\"#$%&'()*+,-./:;<=>?\\@\\[\\\\]^_`\\{|\\}~). For best practices of using MessageGroupId, see Using the MessageGroupId Property in the Amazon SQS Developer Guide."]}
    let context_ = "SendMessageRequest"
    let make ?delaySeconds =
      fun ?messageAttributes ->
        fun ?messageSystemAttributes ->
          fun ?messageDeduplicationId ->
            fun ?messageGroupId ->
              fun ~queueUrl ->
                fun ~messageBody ->
                  fun () ->
                    {
                      delaySeconds;
                      messageAttributes;
                      messageSystemAttributes;
                      messageDeduplicationId;
                      messageGroupId;
                      queueUrl;
                      messageBody
                    }
    let to_value x =
      structure_to_value
        [("QueueUrl", (Some (String_.to_value x.queueUrl)));
        ("MessageBody", (Some (String_.to_value x.messageBody)));
        ("DelaySeconds",
          (Option.map x.delaySeconds ~f:NullableInteger.to_value));
        ("MessageAttributes",
          (Option.map x.messageAttributes ~f:MessageBodyAttributeMap.to_value));
        ("MessageSystemAttributes",
          (Option.map x.messageSystemAttributes
             ~f:MessageBodySystemAttributeMap.to_value));
        ("MessageDeduplicationId",
          (Option.map x.messageDeduplicationId ~f:String_.to_value));
        ("MessageGroupId", (Option.map x.messageGroupId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messageGroupId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MessageGroupId") in
      let messageDeduplicationId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "MessageDeduplicationId") in
      let messageSystemAttributes =
        (Option.map ~f:MessageBodySystemAttributeMap.of_xml)
          (Xml.child xml_arg0 "MessageSystemAttributes") in
      let messageAttributes =
        (Option.map ~f:MessageBodyAttributeMap.of_xml)
          (Xml.child xml_arg0 "MessageAttributes") in
      let delaySeconds =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "DelaySeconds") in
      let messageBody =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MessageBody") in
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ?messageGroupId ?messageDeduplicationId ?messageSystemAttributes
        ?messageAttributes ?delaySeconds ~messageBody ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messageGroupId = field_map json__ "MessageGroupId" String_.of_json in
      let messageDeduplicationId =
        field_map json__ "MessageDeduplicationId" String_.of_json in
      let messageSystemAttributes =
        field_map json__ "MessageSystemAttributes"
          MessageBodySystemAttributeMap.of_json in
      let messageAttributes =
        field_map json__ "MessageAttributes" MessageBodyAttributeMap.of_json in
      let delaySeconds =
        field_map json__ "DelaySeconds" NullableInteger.of_json in
      let messageBody = field_map_exn json__ "MessageBody" String_.of_json in
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ?messageGroupId ?messageDeduplicationId ?messageSystemAttributes
        ?messageAttributes ?delaySeconds ~messageBody ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end
module SendMessageBatchResult =
  struct
    type nonrec t =
      {
      successful: SendMessageBatchResultEntryList.t option
        [@ocaml.doc "A list of SendMessageBatchResultEntry items."];
      failed: BatchResultErrorEntryList.t option
        [@ocaml.doc
          "A list of BatchResultErrorEntry items with error details about each message that can't be enqueued."]}
    type nonrec error =
      [ `BatchEntryIdsNotDistinct of BatchEntryIdsNotDistinct.t 
      | `BatchRequestTooLong of BatchRequestTooLong.t 
      | `EmptyBatchRequest of EmptyBatchRequest.t 
      | `InvalidAddress of InvalidAddress.t 
      | `InvalidBatchEntryId of InvalidBatchEntryId.t 
      | `InvalidSecurity of InvalidSecurity.t 
      | `KmsAccessDenied of KmsAccessDenied.t 
      | `KmsDisabled of KmsDisabled.t 
      | `KmsInvalidKeyUsage of KmsInvalidKeyUsage.t 
      | `KmsInvalidState of KmsInvalidState.t 
      | `KmsNotFound of KmsNotFound.t 
      | `KmsOptInRequired of KmsOptInRequired.t 
      | `KmsThrottled of KmsThrottled.t 
      | `QueueDoesNotExist of QueueDoesNotExist.t 
      | `RequestThrottled of RequestThrottled.t 
      | `TooManyEntriesInBatchRequest of TooManyEntriesInBatchRequest.t 
      | `UnsupportedOperation of UnsupportedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?successful = fun ?failed -> fun () -> { successful; failed }
    let error_of_json name json =
      match name with
      | "BatchEntryIdsNotDistinct" ->
          `BatchEntryIdsNotDistinct (BatchEntryIdsNotDistinct.of_json json)
      | "BatchRequestTooLong" ->
          `BatchRequestTooLong (BatchRequestTooLong.of_json json)
      | "EmptyBatchRequest" ->
          `EmptyBatchRequest (EmptyBatchRequest.of_json json)
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_json json)
      | "InvalidBatchEntryId" ->
          `InvalidBatchEntryId (InvalidBatchEntryId.of_json json)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_json json)
      | "KmsAccessDenied" -> `KmsAccessDenied (KmsAccessDenied.of_json json)
      | "KmsDisabled" -> `KmsDisabled (KmsDisabled.of_json json)
      | "KmsInvalidKeyUsage" ->
          `KmsInvalidKeyUsage (KmsInvalidKeyUsage.of_json json)
      | "KmsInvalidState" -> `KmsInvalidState (KmsInvalidState.of_json json)
      | "KmsNotFound" -> `KmsNotFound (KmsNotFound.of_json json)
      | "KmsOptInRequired" ->
          `KmsOptInRequired (KmsOptInRequired.of_json json)
      | "KmsThrottled" -> `KmsThrottled (KmsThrottled.of_json json)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_json json)
      | "RequestThrottled" ->
          `RequestThrottled (RequestThrottled.of_json json)
      | "TooManyEntriesInBatchRequest" ->
          `TooManyEntriesInBatchRequest
            (TooManyEntriesInBatchRequest.of_json json)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BatchEntryIdsNotDistinct" ->
          `BatchEntryIdsNotDistinct (BatchEntryIdsNotDistinct.of_xml xml)
      | "BatchRequestTooLong" ->
          `BatchRequestTooLong (BatchRequestTooLong.of_xml xml)
      | "EmptyBatchRequest" ->
          `EmptyBatchRequest (EmptyBatchRequest.of_xml xml)
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_xml xml)
      | "InvalidBatchEntryId" ->
          `InvalidBatchEntryId (InvalidBatchEntryId.of_xml xml)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_xml xml)
      | "KmsAccessDenied" -> `KmsAccessDenied (KmsAccessDenied.of_xml xml)
      | "KmsDisabled" -> `KmsDisabled (KmsDisabled.of_xml xml)
      | "KmsInvalidKeyUsage" ->
          `KmsInvalidKeyUsage (KmsInvalidKeyUsage.of_xml xml)
      | "KmsInvalidState" -> `KmsInvalidState (KmsInvalidState.of_xml xml)
      | "KmsNotFound" -> `KmsNotFound (KmsNotFound.of_xml xml)
      | "KmsOptInRequired" -> `KmsOptInRequired (KmsOptInRequired.of_xml xml)
      | "KmsThrottled" -> `KmsThrottled (KmsThrottled.of_xml xml)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_xml xml)
      | "RequestThrottled" -> `RequestThrottled (RequestThrottled.of_xml xml)
      | "TooManyEntriesInBatchRequest" ->
          `TooManyEntriesInBatchRequest
            (TooManyEntriesInBatchRequest.of_xml xml)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BatchEntryIdsNotDistinct e ->
          `Assoc
            [("error", (`String "BatchEntryIdsNotDistinct"));
            ("details", (BatchEntryIdsNotDistinct.to_json e))]
      | `BatchRequestTooLong e ->
          `Assoc
            [("error", (`String "BatchRequestTooLong"));
            ("details", (BatchRequestTooLong.to_json e))]
      | `EmptyBatchRequest e ->
          `Assoc
            [("error", (`String "EmptyBatchRequest"));
            ("details", (EmptyBatchRequest.to_json e))]
      | `InvalidAddress e ->
          `Assoc
            [("error", (`String "InvalidAddress"));
            ("details", (InvalidAddress.to_json e))]
      | `InvalidBatchEntryId e ->
          `Assoc
            [("error", (`String "InvalidBatchEntryId"));
            ("details", (InvalidBatchEntryId.to_json e))]
      | `InvalidSecurity e ->
          `Assoc
            [("error", (`String "InvalidSecurity"));
            ("details", (InvalidSecurity.to_json e))]
      | `KmsAccessDenied e ->
          `Assoc
            [("error", (`String "KmsAccessDenied"));
            ("details", (KmsAccessDenied.to_json e))]
      | `KmsDisabled e ->
          `Assoc
            [("error", (`String "KmsDisabled"));
            ("details", (KmsDisabled.to_json e))]
      | `KmsInvalidKeyUsage e ->
          `Assoc
            [("error", (`String "KmsInvalidKeyUsage"));
            ("details", (KmsInvalidKeyUsage.to_json e))]
      | `KmsInvalidState e ->
          `Assoc
            [("error", (`String "KmsInvalidState"));
            ("details", (KmsInvalidState.to_json e))]
      | `KmsNotFound e ->
          `Assoc
            [("error", (`String "KmsNotFound"));
            ("details", (KmsNotFound.to_json e))]
      | `KmsOptInRequired e ->
          `Assoc
            [("error", (`String "KmsOptInRequired"));
            ("details", (KmsOptInRequired.to_json e))]
      | `KmsThrottled e ->
          `Assoc
            [("error", (`String "KmsThrottled"));
            ("details", (KmsThrottled.to_json e))]
      | `QueueDoesNotExist e ->
          `Assoc
            [("error", (`String "QueueDoesNotExist"));
            ("details", (QueueDoesNotExist.to_json e))]
      | `RequestThrottled e ->
          `Assoc
            [("error", (`String "RequestThrottled"));
            ("details", (RequestThrottled.to_json e))]
      | `TooManyEntriesInBatchRequest e ->
          `Assoc
            [("error", (`String "TooManyEntriesInBatchRequest"));
            ("details", (TooManyEntriesInBatchRequest.to_json e))]
      | `UnsupportedOperation e ->
          `Assoc
            [("error", (`String "UnsupportedOperation"));
            ("details", (UnsupportedOperation.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
        [("Successful",
           (Option.map x.successful
              ~f:SendMessageBatchResultEntryList.to_value));
        ("Failed",
          (Option.map x.failed ~f:BatchResultErrorEntryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failed =
        (Option.map ~f:BatchResultErrorEntryList.of_xml)
          (Some (Xml.children xml_arg0 "Failed")) in
      let successful =
        (Option.map ~f:SendMessageBatchResultEntryList.of_xml)
          (Some (Xml.children xml_arg0 "Successful")) in
      make ?failed ?successful ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failed =
        field_map json__ "Failed" BatchResultErrorEntryList.of_json in
      let successful =
        field_map json__ "Successful" SendMessageBatchResultEntryList.of_json in
      make ?failed ?successful ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For each message in the batch, the response contains a SendMessageBatchResultEntry tag if the message succeeds or a BatchResultErrorEntry tag if the message fails."]
module SendMessageBatchRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t
        [@ocaml.doc
          "The URL of the Amazon SQS queue to which batched messages are sent. Queue URLs and names are case-sensitive."];
      entries: SendMessageBatchRequestEntryList.t
        [@ocaml.doc "A list of SendMessageBatchRequestEntry items."]}
    let context_ = "SendMessageBatchRequest"
    let make ~queueUrl = fun ~entries -> fun () -> { queueUrl; entries }
    let to_value x =
      structure_to_value
        [("QueueUrl", (Some (String_.to_value x.queueUrl)));
        ("Entries",
          (Some (SendMessageBatchRequestEntryList.to_value x.entries)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entries =
        SendMessageBatchRequestEntryList.of_xml
          (Xml.children xml_arg0 "Entries") in
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ~entries ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entries =
        field_map_exn json__ "Entries"
          SendMessageBatchRequestEntryList.of_json in
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ~entries ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end
module RemovePermissionRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t
        [@ocaml.doc
          "The URL of the Amazon SQS queue from which permissions are removed. Queue URLs and names are case-sensitive."];
      label: String_.t
        [@ocaml.doc
          "The identification of the permission to remove. This is the label added using the AddPermission action."]}
    let context_ = "RemovePermissionRequest"
    let make ~queueUrl = fun ~label -> fun () -> { queueUrl; label }
    let to_value x =
      structure_to_value
        [("QueueUrl", (Some (String_.to_value x.queueUrl)));
        ("Label", (Some (String_.to_value x.label)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let label =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Label") in
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ~label ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let label = field_map_exn json__ "Label" String_.of_json in
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ~label ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end
module ReceiveMessageResult =
  struct
    type nonrec t =
      {
      messages: MessageList.t option [@ocaml.doc "A list of messages."]}
    type nonrec error =
      [ `InvalidAddress of InvalidAddress.t 
      | `InvalidSecurity of InvalidSecurity.t 
      | `KmsAccessDenied of KmsAccessDenied.t 
      | `KmsDisabled of KmsDisabled.t 
      | `KmsInvalidKeyUsage of KmsInvalidKeyUsage.t 
      | `KmsInvalidState of KmsInvalidState.t 
      | `KmsNotFound of KmsNotFound.t 
      | `KmsOptInRequired of KmsOptInRequired.t 
      | `KmsThrottled of KmsThrottled.t  | `OverLimit of OverLimit.t 
      | `QueueDoesNotExist of QueueDoesNotExist.t 
      | `RequestThrottled of RequestThrottled.t 
      | `UnsupportedOperation of UnsupportedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?messages = fun () -> { messages }
    let error_of_json name json =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_json json)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_json json)
      | "KmsAccessDenied" -> `KmsAccessDenied (KmsAccessDenied.of_json json)
      | "KmsDisabled" -> `KmsDisabled (KmsDisabled.of_json json)
      | "KmsInvalidKeyUsage" ->
          `KmsInvalidKeyUsage (KmsInvalidKeyUsage.of_json json)
      | "KmsInvalidState" -> `KmsInvalidState (KmsInvalidState.of_json json)
      | "KmsNotFound" -> `KmsNotFound (KmsNotFound.of_json json)
      | "KmsOptInRequired" ->
          `KmsOptInRequired (KmsOptInRequired.of_json json)
      | "KmsThrottled" -> `KmsThrottled (KmsThrottled.of_json json)
      | "OverLimit" -> `OverLimit (OverLimit.of_json json)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_json json)
      | "RequestThrottled" ->
          `RequestThrottled (RequestThrottled.of_json json)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_xml xml)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_xml xml)
      | "KmsAccessDenied" -> `KmsAccessDenied (KmsAccessDenied.of_xml xml)
      | "KmsDisabled" -> `KmsDisabled (KmsDisabled.of_xml xml)
      | "KmsInvalidKeyUsage" ->
          `KmsInvalidKeyUsage (KmsInvalidKeyUsage.of_xml xml)
      | "KmsInvalidState" -> `KmsInvalidState (KmsInvalidState.of_xml xml)
      | "KmsNotFound" -> `KmsNotFound (KmsNotFound.of_xml xml)
      | "KmsOptInRequired" -> `KmsOptInRequired (KmsOptInRequired.of_xml xml)
      | "KmsThrottled" -> `KmsThrottled (KmsThrottled.of_xml xml)
      | "OverLimit" -> `OverLimit (OverLimit.of_xml xml)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_xml xml)
      | "RequestThrottled" -> `RequestThrottled (RequestThrottled.of_xml xml)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidAddress e ->
          `Assoc
            [("error", (`String "InvalidAddress"));
            ("details", (InvalidAddress.to_json e))]
      | `InvalidSecurity e ->
          `Assoc
            [("error", (`String "InvalidSecurity"));
            ("details", (InvalidSecurity.to_json e))]
      | `KmsAccessDenied e ->
          `Assoc
            [("error", (`String "KmsAccessDenied"));
            ("details", (KmsAccessDenied.to_json e))]
      | `KmsDisabled e ->
          `Assoc
            [("error", (`String "KmsDisabled"));
            ("details", (KmsDisabled.to_json e))]
      | `KmsInvalidKeyUsage e ->
          `Assoc
            [("error", (`String "KmsInvalidKeyUsage"));
            ("details", (KmsInvalidKeyUsage.to_json e))]
      | `KmsInvalidState e ->
          `Assoc
            [("error", (`String "KmsInvalidState"));
            ("details", (KmsInvalidState.to_json e))]
      | `KmsNotFound e ->
          `Assoc
            [("error", (`String "KmsNotFound"));
            ("details", (KmsNotFound.to_json e))]
      | `KmsOptInRequired e ->
          `Assoc
            [("error", (`String "KmsOptInRequired"));
            ("details", (KmsOptInRequired.to_json e))]
      | `KmsThrottled e ->
          `Assoc
            [("error", (`String "KmsThrottled"));
            ("details", (KmsThrottled.to_json e))]
      | `OverLimit e ->
          `Assoc
            [("error", (`String "OverLimit"));
            ("details", (OverLimit.to_json e))]
      | `QueueDoesNotExist e ->
          `Assoc
            [("error", (`String "QueueDoesNotExist"));
            ("details", (QueueDoesNotExist.to_json e))]
      | `RequestThrottled e ->
          `Assoc
            [("error", (`String "RequestThrottled"));
            ("details", (RequestThrottled.to_json e))]
      | `UnsupportedOperation e ->
          `Assoc
            [("error", (`String "UnsupportedOperation"));
            ("details", (UnsupportedOperation.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
        [("Messages", (Option.map x.messages ~f:MessageList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let messages =
        (Option.map ~f:MessageList.of_xml)
          (Some (Xml.children xml_arg0 "Messages")) in
      make ?messages ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let messages = field_map json__ "Messages" MessageList.of_json in
      make ?messages ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list of received messages."]
module ReceiveMessageRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t
        [@ocaml.doc
          "The URL of the Amazon SQS queue from which messages are received. Queue URLs and names are case-sensitive."];
      attributeNames: AttributeNameList.t option
        [@ocaml.doc
          "This parameter has been discontinued but will be supported for backward compatibility. To provide attribute names, you are encouraged to use MessageSystemAttributeNames. A list of attributes that need to be returned along with each message. These attributes include: All \226\128\147 Returns all values. ApproximateFirstReceiveTimestamp \226\128\147 Returns the time the message was first received from the queue (epoch time in milliseconds). ApproximateReceiveCount \226\128\147 Returns the number of times a message has been received across all queues but not deleted. AWSTraceHeader \226\128\147 Returns the X-Ray trace header string. SenderId For a user, returns the user ID, for example ABCDEFGHI1JKLMNOPQ23R. For an IAM role, returns the IAM role ID, for example ABCDE1F2GH3I4JK5LMNOP:i-a123b456. SentTimestamp \226\128\147 Returns the time the message was sent to the queue (epoch time in milliseconds). SqsManagedSseEnabled \226\128\147 Enables server-side queue encryption using SQS owned encryption keys. Only one server-side encryption option is supported per queue (for example, SSE-KMS or SSE-SQS). MessageDeduplicationId \226\128\147 Returns the value provided by the producer that calls the SendMessage action. MessageGroupId \226\128\147 Returns the value provided by the producer that calls the SendMessage action. SequenceNumber \226\128\147 Returns the value provided by Amazon SQS."];
      messageSystemAttributeNames: MessageSystemAttributeList.t option
        [@ocaml.doc
          "A list of attributes that need to be returned along with each message. These attributes include: All \226\128\147 Returns all values. ApproximateFirstReceiveTimestamp \226\128\147 Returns the time the message was first received from the queue (epoch time in milliseconds). ApproximateReceiveCount \226\128\147 Returns the number of times a message has been received across all queues but not deleted. AWSTraceHeader \226\128\147 Returns the X-Ray trace header string. SenderId For a user, returns the user ID, for example ABCDEFGHI1JKLMNOPQ23R. For an IAM role, returns the IAM role ID, for example ABCDE1F2GH3I4JK5LMNOP:i-a123b456. SentTimestamp \226\128\147 Returns the time the message was sent to the queue (epoch time in milliseconds). SqsManagedSseEnabled \226\128\147 Enables server-side queue encryption using SQS owned encryption keys. Only one server-side encryption option is supported per queue (for example, SSE-KMS or SSE-SQS). MessageDeduplicationId \226\128\147 Returns the value provided by the producer that calls the SendMessage action. MessageGroupId \226\128\147 Returns the value provided by the producer that calls the SendMessage action. SequenceNumber \226\128\147 Returns the value provided by Amazon SQS."];
      messageAttributeNames: MessageAttributeNameList.t option
        [@ocaml.doc
          "The name of the message attribute, where N is the index. The name can contain alphanumeric characters and the underscore (_), hyphen (-), and period (.). The name is case-sensitive and must be unique among all attribute names for the message. The name must not start with AWS-reserved prefixes such as AWS. or Amazon. (or any casing variants). The name must not start or end with a period (.), and it should not have periods in succession (..). The name can be up to 256 characters long. When using ReceiveMessage, you can send a list of attribute names to receive, or you can return all of the attributes by specifying All or .* in your request. You can also use all message attributes starting with a prefix, for example bar.*."];
      maxNumberOfMessages: NullableInteger.t option
        [@ocaml.doc
          "The maximum number of messages to return. Amazon SQS never returns more messages than this value (however, fewer messages might be returned). Valid values: 1 to 10. Default: 1."];
      visibilityTimeout: NullableInteger.t option
        [@ocaml.doc
          "The duration (in seconds) that the received messages are hidden from subsequent retrieve requests after being retrieved by a ReceiveMessage request. If not specified, the default visibility timeout for the queue is used, which is 30 seconds. Understanding VisibilityTimeout: When a message is received from a queue, it becomes temporarily invisible to other consumers for the duration of the visibility timeout. This prevents multiple consumers from processing the same message simultaneously. If the message is not deleted or its visibility timeout is not extended before the timeout expires, it becomes visible again and can be retrieved by other consumers. Setting an appropriate visibility timeout is crucial. If it's too short, the message might become visible again before processing is complete, leading to duplicate processing. If it's too long, it delays the reprocessing of messages if the initial processing fails. You can adjust the visibility timeout using the --visibility-timeout parameter in the receive-message command to match the processing time required by your application. A message that isn't deleted or a message whose visibility isn't extended before the visibility timeout expires counts as a failed receive. Depending on the configuration of the queue, the message might be sent to the dead-letter queue. For more information, see Visibility Timeout in the Amazon SQS Developer Guide."];
      waitTimeSeconds: NullableInteger.t option
        [@ocaml.doc
          "The duration (in seconds) for which the call waits for a message to arrive in the queue before returning. If a message is available, the call returns sooner than WaitTimeSeconds. If no messages are available and the wait time expires, the call does not return a message list. If you are using the Java SDK, it returns a ReceiveMessageResponse object, which has a empty list instead of a Null object. To avoid HTTP errors, ensure that the HTTP response timeout for ReceiveMessage requests is longer than the WaitTimeSeconds parameter. For example, with the Java SDK, you can set HTTP transport settings using the NettyNioAsyncHttpClient for asynchronous clients, or the ApacheHttpClient for synchronous clients."];
      receiveRequestAttemptId: String_.t option
        [@ocaml.doc
          "This parameter applies only to FIFO (first-in-first-out) queues. The token used for deduplication of ReceiveMessage calls. If a networking issue occurs after a ReceiveMessage action, and instead of a response you receive a generic error, it is possible to retry the same action with an identical ReceiveRequestAttemptId to retrieve the same set of messages, even if their visibility timeout has not yet expired. You can use ReceiveRequestAttemptId only for 5 minutes after a ReceiveMessage action. When you set FifoQueue, a caller of the ReceiveMessage action can provide a ReceiveRequestAttemptId explicitly. It is possible to retry the ReceiveMessage action with the same ReceiveRequestAttemptId if none of the messages have been modified (deleted or had their visibility changes). During a visibility timeout, subsequent calls with the same ReceiveRequestAttemptId return the same messages and receipt handles. If a retry occurs within the deduplication interval, it resets the visibility timeout. For more information, see Visibility Timeout in the Amazon SQS Developer Guide. If a caller of the ReceiveMessage action still processes messages when the visibility timeout expires and messages become visible, another worker consuming from the same queue can receive the same messages and therefore process duplicates. Also, if a consumer whose message processing time is longer than the visibility timeout tries to delete the processed messages, the action fails with an error. To mitigate this effect, ensure that your application observes a safe threshold before the visibility timeout expires and extend the visibility timeout as necessary. While messages with a particular MessageGroupId are invisible, no more messages belonging to the same MessageGroupId are returned until the visibility timeout expires. You can still receive messages with another MessageGroupId from your FIFO queue as long as they are visible. If a caller of ReceiveMessage can't track the ReceiveRequestAttemptId, no retries work until the original visibility timeout expires. As a result, delays might occur but the messages in the queue remain in a strict order. The maximum length of ReceiveRequestAttemptId is 128 characters. ReceiveRequestAttemptId can contain alphanumeric characters (a-z, A-Z, 0-9) and punctuation (!\"#$%&'()*+,-./:;<=>?\\@\\[\\\\]^_`\\{|\\}~). For best practices of using ReceiveRequestAttemptId, see Using the ReceiveRequestAttemptId Request Parameter in the Amazon SQS Developer Guide."]}
    let context_ = "ReceiveMessageRequest"
    let make ?attributeNames =
      fun ?messageSystemAttributeNames ->
        fun ?messageAttributeNames ->
          fun ?maxNumberOfMessages ->
            fun ?visibilityTimeout ->
              fun ?waitTimeSeconds ->
                fun ?receiveRequestAttemptId ->
                  fun ~queueUrl ->
                    fun () ->
                      {
                        attributeNames;
                        messageSystemAttributeNames;
                        messageAttributeNames;
                        maxNumberOfMessages;
                        visibilityTimeout;
                        waitTimeSeconds;
                        receiveRequestAttemptId;
                        queueUrl
                      }
    let to_value x =
      structure_to_value
        [("QueueUrl", (Some (String_.to_value x.queueUrl)));
        ("AttributeNames",
          (Option.map x.attributeNames ~f:AttributeNameList.to_value));
        ("MessageSystemAttributeNames",
          (Option.map x.messageSystemAttributeNames
             ~f:MessageSystemAttributeList.to_value));
        ("MessageAttributeNames",
          (Option.map x.messageAttributeNames
             ~f:MessageAttributeNameList.to_value));
        ("MaxNumberOfMessages",
          (Option.map x.maxNumberOfMessages ~f:NullableInteger.to_value));
        ("VisibilityTimeout",
          (Option.map x.visibilityTimeout ~f:NullableInteger.to_value));
        ("WaitTimeSeconds",
          (Option.map x.waitTimeSeconds ~f:NullableInteger.to_value));
        ("ReceiveRequestAttemptId",
          (Option.map x.receiveRequestAttemptId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let receiveRequestAttemptId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ReceiveRequestAttemptId") in
      let waitTimeSeconds =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "WaitTimeSeconds") in
      let visibilityTimeout =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "VisibilityTimeout") in
      let maxNumberOfMessages =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "MaxNumberOfMessages") in
      let messageAttributeNames =
        (Option.map ~f:MessageAttributeNameList.of_xml)
          (Some (Xml.children xml_arg0 "MessageAttributeNames")) in
      let messageSystemAttributeNames =
        (Option.map ~f:MessageSystemAttributeList.of_xml)
          (Some (Xml.children xml_arg0 "MessageSystemAttributeNames")) in
      let attributeNames =
        (Option.map ~f:AttributeNameList.of_xml)
          (Some (Xml.children xml_arg0 "AttributeNames")) in
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ?receiveRequestAttemptId ?waitTimeSeconds ?visibilityTimeout
        ?maxNumberOfMessages ?messageAttributeNames
        ?messageSystemAttributeNames ?attributeNames ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let receiveRequestAttemptId =
        field_map json__ "ReceiveRequestAttemptId" String_.of_json in
      let waitTimeSeconds =
        field_map json__ "WaitTimeSeconds" NullableInteger.of_json in
      let visibilityTimeout =
        field_map json__ "VisibilityTimeout" NullableInteger.of_json in
      let maxNumberOfMessages =
        field_map json__ "MaxNumberOfMessages" NullableInteger.of_json in
      let messageAttributeNames =
        field_map json__ "MessageAttributeNames"
          MessageAttributeNameList.of_json in
      let messageSystemAttributeNames =
        field_map json__ "MessageSystemAttributeNames"
          MessageSystemAttributeList.of_json in
      let attributeNames =
        field_map json__ "AttributeNames" AttributeNameList.of_json in
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ?receiveRequestAttemptId ?waitTimeSeconds ?visibilityTimeout
        ?maxNumberOfMessages ?messageAttributeNames
        ?messageSystemAttributeNames ?attributeNames ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves one or more messages from a specified queue."]
module ReceiptHandleIsInvalid =
  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 receipt handle isn't valid."]
module PurgeQueueRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t
        [@ocaml.doc
          "The URL of the queue from which the PurgeQueue action deletes messages. Queue URLs and names are case-sensitive."]}
    let context_ = "PurgeQueueRequest"
    let make ~queueUrl = fun () -> { queueUrl }
    let to_value x =
      structure_to_value [("QueueUrl", (Some (String_.to_value x.queueUrl)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end
module PurgeQueueInProgress =
  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 specified queue previously received a PurgeQueue request within the last 60 seconds (the time it can take to delete the messages in the queue)."]
module MessageNotInflight =
  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 specified message isn't in flight."]
module ListQueuesResult =
  struct
    type nonrec t =
      {
      queueUrls: QueueUrlList.t option
        [@ocaml.doc
          "A list of queue URLs, up to 1,000 entries, or the value of MaxResults that you sent in the request."];
      nextToken: Token.t option
        [@ocaml.doc
          "Pagination token to include in the next request. Token value is null if there are no additional results to request, or if you did not set MaxResults in the request."]}
    type nonrec error =
      [ `InvalidAddress of InvalidAddress.t 
      | `InvalidSecurity of InvalidSecurity.t 
      | `RequestThrottled of RequestThrottled.t 
      | `UnsupportedOperation of UnsupportedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?queueUrls =
      fun ?nextToken -> fun () -> { queueUrls; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_json json)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_json json)
      | "RequestThrottled" ->
          `RequestThrottled (RequestThrottled.of_json json)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_xml xml)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_xml xml)
      | "RequestThrottled" -> `RequestThrottled (RequestThrottled.of_xml xml)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidAddress e ->
          `Assoc
            [("error", (`String "InvalidAddress"));
            ("details", (InvalidAddress.to_json e))]
      | `InvalidSecurity e ->
          `Assoc
            [("error", (`String "InvalidSecurity"));
            ("details", (InvalidSecurity.to_json e))]
      | `RequestThrottled e ->
          `Assoc
            [("error", (`String "RequestThrottled"));
            ("details", (RequestThrottled.to_json e))]
      | `UnsupportedOperation e ->
          `Assoc
            [("error", (`String "UnsupportedOperation"));
            ("details", (UnsupportedOperation.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
        [("QueueUrls", (Option.map x.queueUrls ~f:QueueUrlList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let queueUrls =
        (Option.map ~f:QueueUrlList.of_xml)
          (Some (Xml.children xml_arg0 "QueueUrls")) in
      make ?nextToken ?queueUrls ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let queueUrls = field_map json__ "QueueUrls" QueueUrlList.of_json in
      make ?nextToken ?queueUrls ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list of your queues."]
module ListQueuesRequest =
  struct
    type nonrec t =
      {
      queueNamePrefix: String_.t option
        [@ocaml.doc
          "A string to use for filtering the list results. Only those queues whose name begins with the specified string are returned. Queue URLs and names are case-sensitive."];
      nextToken: Token.t option
        [@ocaml.doc "Pagination token to request the next set of results."];
      maxResults: BoxedInteger.t option
        [@ocaml.doc
          "Maximum number of results to include in the response. Value range is 1 to 1000. You must set MaxResults to receive a value for NextToken in the response."]}
    let make ?queueNamePrefix =
      fun ?nextToken ->
        fun ?maxResults ->
          fun () -> { queueNamePrefix; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("QueueNamePrefix",
           (Option.map x.queueNamePrefix ~f:String_.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:BoxedInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:BoxedInteger.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let queueNamePrefix =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "QueueNamePrefix") in
      make ?maxResults ?nextToken ?queueNamePrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" BoxedInteger.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let queueNamePrefix =
        field_map json__ "QueueNamePrefix" String_.of_json in
      make ?maxResults ?nextToken ?queueNamePrefix ()
    let to_json v = composed_to_json to_value v
  end
module ListQueueTagsResult =
  struct
    type nonrec t =
      {
      tags: TagMap.t option
        [@ocaml.doc "The list of all tags added to the specified queue."]}
    type nonrec error =
      [ `InvalidAddress of InvalidAddress.t 
      | `InvalidSecurity of InvalidSecurity.t 
      | `QueueDoesNotExist of QueueDoesNotExist.t 
      | `RequestThrottled of RequestThrottled.t 
      | `UnsupportedOperation of UnsupportedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_json json)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_json json)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_json json)
      | "RequestThrottled" ->
          `RequestThrottled (RequestThrottled.of_json json)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_xml xml)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_xml xml)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_xml xml)
      | "RequestThrottled" -> `RequestThrottled (RequestThrottled.of_xml xml)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidAddress e ->
          `Assoc
            [("error", (`String "InvalidAddress"));
            ("details", (InvalidAddress.to_json e))]
      | `InvalidSecurity e ->
          `Assoc
            [("error", (`String "InvalidSecurity"));
            ("details", (InvalidSecurity.to_json e))]
      | `QueueDoesNotExist e ->
          `Assoc
            [("error", (`String "QueueDoesNotExist"));
            ("details", (QueueDoesNotExist.to_json e))]
      | `RequestThrottled e ->
          `Assoc
            [("error", (`String "RequestThrottled"));
            ("details", (RequestThrottled.to_json e))]
      | `UnsupportedOperation e ->
          `Assoc
            [("error", (`String "UnsupportedOperation"));
            ("details", (UnsupportedOperation.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all cost allocation tags added to the specified Amazon SQS queue. For an overview, see Tagging Your Amazon SQS Queues in the Amazon SQS Developer Guide. Cross-account permissions don't apply to this action. For more information, see Grant cross-account permissions to a role and a username in the Amazon SQS Developer Guide."]
module ListQueueTagsRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t [@ocaml.doc "The URL of the queue."]}
    let context_ = "ListQueueTagsRequest"
    let make ~queueUrl = fun () -> { queueUrl }
    let to_value x =
      structure_to_value [("QueueUrl", (Some (String_.to_value x.queueUrl)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all cost allocation tags added to the specified Amazon SQS queue. For an overview, see Tagging Your Amazon SQS Queues in the Amazon SQS Developer Guide. Cross-account permissions don't apply to this action. For more information, see Grant cross-account permissions to a role and a username in the Amazon SQS Developer Guide."]
module ListMessageMoveTasksResult =
  struct
    type nonrec t =
      {
      results: ListMessageMoveTasksResultEntryList.t option
        [@ocaml.doc "A list of message movement tasks and their attributes."]}
    type nonrec error =
      [ `InvalidAddress of InvalidAddress.t 
      | `InvalidSecurity of InvalidSecurity.t 
      | `RequestThrottled of RequestThrottled.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperation of UnsupportedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?results = fun () -> { results }
    let error_of_json name json =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_json json)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_json json)
      | "RequestThrottled" ->
          `RequestThrottled (RequestThrottled.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_xml xml)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_xml xml)
      | "RequestThrottled" -> `RequestThrottled (RequestThrottled.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidAddress e ->
          `Assoc
            [("error", (`String "InvalidAddress"));
            ("details", (InvalidAddress.to_json e))]
      | `InvalidSecurity e ->
          `Assoc
            [("error", (`String "InvalidSecurity"));
            ("details", (InvalidSecurity.to_json e))]
      | `RequestThrottled e ->
          `Assoc
            [("error", (`String "RequestThrottled"));
            ("details", (RequestThrottled.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperation e ->
          `Assoc
            [("error", (`String "UnsupportedOperation"));
            ("details", (UnsupportedOperation.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
        [("Results",
           (Option.map x.results
              ~f:ListMessageMoveTasksResultEntryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let results =
        (Option.map ~f:ListMessageMoveTasksResultEntryList.of_xml)
          (Some (Xml.children xml_arg0 "Results")) in
      make ?results ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let results =
        field_map json__ "Results"
          ListMessageMoveTasksResultEntryList.of_json in
      make ?results ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the most recent message movement tasks (up to 10) under a specific source queue. This action is currently limited to supporting message redrive from dead-letter queues (DLQs) only. In this context, the source queue is the dead-letter queue (DLQ), while the destination queue can be the original source queue (from which the messages were driven to the dead-letter-queue), or a custom destination queue. Only one active message movement task is supported per queue at any given time."]
module ListMessageMoveTasksRequest =
  struct
    type nonrec t =
      {
      sourceArn: String_.t
        [@ocaml.doc
          "The ARN of the queue whose message movement tasks are to be listed."];
      maxResults: NullableInteger.t option
        [@ocaml.doc
          "The maximum number of results to include in the response. The default is 1, which provides the most recent message movement task. The upper limit is 10."]}
    let context_ = "ListMessageMoveTasksRequest"
    let make ?maxResults =
      fun ~sourceArn -> fun () -> { maxResults; sourceArn }
    let to_value x =
      structure_to_value
        [("SourceArn", (Some (String_.to_value x.sourceArn)));
        ("MaxResults", (Option.map x.maxResults ~f:NullableInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let sourceArn =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SourceArn") in
      make ?maxResults ~sourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" NullableInteger.of_json in
      let sourceArn = field_map_exn json__ "SourceArn" String_.of_json in
      make ?maxResults ~sourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the most recent message movement tasks (up to 10) under a specific source queue. This action is currently limited to supporting message redrive from dead-letter queues (DLQs) only. In this context, the source queue is the dead-letter queue (DLQ), while the destination queue can be the original source queue (from which the messages were driven to the dead-letter-queue), or a custom destination queue. Only one active message movement task is supported per queue at any given time."]
module ListDeadLetterSourceQueuesResult =
  struct
    type nonrec t =
      {
      queueUrls: QueueUrlList.t option
        [@ocaml.doc
          "A list of source queue URLs that have the RedrivePolicy queue attribute configured with a dead-letter queue."];
      nextToken: Token.t option
        [@ocaml.doc
          "Pagination token to include in the next request. Token value is null if there are no additional results to request, or if you did not set MaxResults in the request."]}
    type nonrec error =
      [ `InvalidAddress of InvalidAddress.t 
      | `InvalidSecurity of InvalidSecurity.t 
      | `QueueDoesNotExist of QueueDoesNotExist.t 
      | `RequestThrottled of RequestThrottled.t 
      | `UnsupportedOperation of UnsupportedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?queueUrls =
      fun ?nextToken -> fun () -> { queueUrls; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_json json)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_json json)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_json json)
      | "RequestThrottled" ->
          `RequestThrottled (RequestThrottled.of_json json)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_xml xml)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_xml xml)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_xml xml)
      | "RequestThrottled" -> `RequestThrottled (RequestThrottled.of_xml xml)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidAddress e ->
          `Assoc
            [("error", (`String "InvalidAddress"));
            ("details", (InvalidAddress.to_json e))]
      | `InvalidSecurity e ->
          `Assoc
            [("error", (`String "InvalidSecurity"));
            ("details", (InvalidSecurity.to_json e))]
      | `QueueDoesNotExist e ->
          `Assoc
            [("error", (`String "QueueDoesNotExist"));
            ("details", (QueueDoesNotExist.to_json e))]
      | `RequestThrottled e ->
          `Assoc
            [("error", (`String "RequestThrottled"));
            ("details", (RequestThrottled.to_json e))]
      | `UnsupportedOperation e ->
          `Assoc
            [("error", (`String "UnsupportedOperation"));
            ("details", (UnsupportedOperation.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
        [("queueUrls", (Option.map x.queueUrls ~f:QueueUrlList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let queueUrls =
        (Option.map ~f:QueueUrlList.of_xml)
          (Some (Xml.children xml_arg0 "queueUrls")) in
      make ?nextToken ?queueUrls ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let queueUrls = field_map json__ "queueUrls" QueueUrlList.of_json in
      make ?nextToken ?queueUrls ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list of your dead letter source queues."]
module ListDeadLetterSourceQueuesRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t
        [@ocaml.doc
          "The URL of a dead-letter queue. Queue URLs and names are case-sensitive."];
      nextToken: Token.t option
        [@ocaml.doc "Pagination token to request the next set of results."];
      maxResults: BoxedInteger.t option
        [@ocaml.doc
          "Maximum number of results to include in the response. Value range is 1 to 1000. You must set MaxResults to receive a value for NextToken in the response."]}
    let context_ = "ListDeadLetterSourceQueuesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~queueUrl -> fun () -> { nextToken; maxResults; queueUrl }
    let to_value x =
      structure_to_value
        [("QueueUrl", (Some (String_.to_value x.queueUrl)));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:BoxedInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:BoxedInteger.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ?maxResults ?nextToken ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" BoxedInteger.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ?maxResults ?nextToken ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end
module InvalidIdFormat =
  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 specified receipt handle isn't valid for the current version."]
module GetQueueUrlResult =
  struct
    type nonrec t =
      {
      queueUrl: String_.t option [@ocaml.doc "The URL of the queue."]}
    type nonrec error =
      [ `InvalidAddress of InvalidAddress.t 
      | `InvalidSecurity of InvalidSecurity.t 
      | `QueueDoesNotExist of QueueDoesNotExist.t 
      | `RequestThrottled of RequestThrottled.t 
      | `UnsupportedOperation of UnsupportedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?queueUrl = fun () -> { queueUrl }
    let error_of_json name json =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_json json)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_json json)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_json json)
      | "RequestThrottled" ->
          `RequestThrottled (RequestThrottled.of_json json)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_xml xml)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_xml xml)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_xml xml)
      | "RequestThrottled" -> `RequestThrottled (RequestThrottled.of_xml xml)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidAddress e ->
          `Assoc
            [("error", (`String "InvalidAddress"));
            ("details", (InvalidAddress.to_json e))]
      | `InvalidSecurity e ->
          `Assoc
            [("error", (`String "InvalidSecurity"));
            ("details", (InvalidSecurity.to_json e))]
      | `QueueDoesNotExist e ->
          `Assoc
            [("error", (`String "QueueDoesNotExist"));
            ("details", (QueueDoesNotExist.to_json e))]
      | `RequestThrottled e ->
          `Assoc
            [("error", (`String "RequestThrottled"));
            ("details", (RequestThrottled.to_json e))]
      | `UnsupportedOperation e ->
          `Assoc
            [("error", (`String "UnsupportedOperation"));
            ("details", (UnsupportedOperation.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
        [("QueueUrl", (Option.map x.queueUrl ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queueUrl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "QueueUrl") in
      make ?queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queueUrl = field_map json__ "QueueUrl" String_.of_json in
      make ?queueUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For more information, see Interpreting Responses in the Amazon SQS Developer Guide."]
module GetQueueUrlRequest =
  struct
    type nonrec t =
      {
      queueName: String_.t
        [@ocaml.doc
          "(Required) The name of the queue for which you want to fetch the URL. The name can be up to 80 characters long and can include alphanumeric characters, hyphens (-), and underscores (_). Queue URLs and names are case-sensitive."];
      queueOwnerAWSAccountId: String_.t option
        [@ocaml.doc
          "(Optional) The Amazon Web Services account ID of the account that created the queue. This is only required when you are attempting to access a queue owned by another Amazon Web Services account."]}
    let context_ = "GetQueueUrlRequest"
    let make ?queueOwnerAWSAccountId =
      fun ~queueName -> fun () -> { queueOwnerAWSAccountId; queueName }
    let to_value x =
      structure_to_value
        [("QueueName", (Some (String_.to_value x.queueName)));
        ("QueueOwnerAWSAccountId",
          (Option.map x.queueOwnerAWSAccountId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queueOwnerAWSAccountId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "QueueOwnerAWSAccountId") in
      let queueName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueName") in
      make ?queueOwnerAWSAccountId ~queueName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queueOwnerAWSAccountId =
        field_map json__ "QueueOwnerAWSAccountId" String_.of_json in
      let queueName = field_map_exn json__ "QueueName" String_.of_json in
      make ?queueOwnerAWSAccountId ~queueName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the URL of an existing queue based on its name and, optionally, the Amazon Web Services account ID."]
module GetQueueAttributesResult =
  struct
    type nonrec t =
      {
      attributes: QueueAttributeMap.t option
        [@ocaml.doc "A map of attributes to their respective values."]}
    type nonrec error =
      [ `InvalidAddress of InvalidAddress.t 
      | `InvalidAttributeName of InvalidAttributeName.t 
      | `InvalidSecurity of InvalidSecurity.t 
      | `QueueDoesNotExist of QueueDoesNotExist.t 
      | `RequestThrottled of RequestThrottled.t 
      | `UnsupportedOperation of UnsupportedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attributes = fun () -> { attributes }
    let error_of_json name json =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_json json)
      | "InvalidAttributeName" ->
          `InvalidAttributeName (InvalidAttributeName.of_json json)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_json json)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_json json)
      | "RequestThrottled" ->
          `RequestThrottled (RequestThrottled.of_json json)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_xml xml)
      | "InvalidAttributeName" ->
          `InvalidAttributeName (InvalidAttributeName.of_xml xml)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_xml xml)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_xml xml)
      | "RequestThrottled" -> `RequestThrottled (RequestThrottled.of_xml xml)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidAddress e ->
          `Assoc
            [("error", (`String "InvalidAddress"));
            ("details", (InvalidAddress.to_json e))]
      | `InvalidAttributeName e ->
          `Assoc
            [("error", (`String "InvalidAttributeName"));
            ("details", (InvalidAttributeName.to_json e))]
      | `InvalidSecurity e ->
          `Assoc
            [("error", (`String "InvalidSecurity"));
            ("details", (InvalidSecurity.to_json e))]
      | `QueueDoesNotExist e ->
          `Assoc
            [("error", (`String "QueueDoesNotExist"));
            ("details", (QueueDoesNotExist.to_json e))]
      | `RequestThrottled e ->
          `Assoc
            [("error", (`String "RequestThrottled"));
            ("details", (RequestThrottled.to_json e))]
      | `UnsupportedOperation e ->
          `Assoc
            [("error", (`String "UnsupportedOperation"));
            ("details", (UnsupportedOperation.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:QueueAttributeMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:QueueAttributeMap.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" QueueAttributeMap.of_json in
      make ?attributes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list of returned queue attributes."]
module GetQueueAttributesRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t
        [@ocaml.doc
          "The URL of the Amazon SQS queue whose attribute information is retrieved. Queue URLs and names are case-sensitive."];
      attributeNames: AttributeNameList.t option
        [@ocaml.doc
          "A list of attributes for which to retrieve information. The AttributeNames parameter is optional, but if you don't specify values for this parameter, the request returns empty results. In the future, new attributes might be added. If you write code that calls this action, we recommend that you structure your code so that it can handle new attributes gracefully. The following attributes are supported: The ApproximateNumberOfMessagesDelayed, ApproximateNumberOfMessagesNotVisible, and ApproximateNumberOfMessages metrics may not achieve consistency until at least 1 minute after the producers stop sending messages. This period is required for the queue metadata to reach eventual consistency. All \226\128\147 Returns all values. ApproximateNumberOfMessages \226\128\147 Returns the approximate number of messages available for retrieval from the queue. ApproximateNumberOfMessagesDelayed \226\128\147 Returns the approximate number of messages in the queue that are delayed and not available for reading immediately. This can happen when the queue is configured as a delay queue or when a message has been sent with a delay parameter. ApproximateNumberOfMessagesNotVisible \226\128\147 Returns the approximate number of messages that are in flight. Messages are considered to be in flight if they have been sent to a client but have not yet been deleted or have not yet reached the end of their visibility window. CreatedTimestamp \226\128\147 Returns the time when the queue was created in seconds (epoch time). DelaySeconds \226\128\147 Returns the default delay on the queue in seconds. LastModifiedTimestamp \226\128\147 Returns the time when the queue was last changed in seconds (epoch time). MaximumMessageSize \226\128\147 Returns the limit of how many bytes a message can contain before Amazon SQS rejects it. MessageRetentionPeriod \226\128\147 Returns the length of time, in seconds, for which Amazon SQS retains a message. When you change a queue's attributes, the change can take up to 60 seconds for most of the attributes to propagate throughout the Amazon SQS system. Changes made to the MessageRetentionPeriod attribute can take up to 15 minutes and will impact existing messages in the queue potentially causing them to be expired and deleted if the MessageRetentionPeriod is reduced below the age of existing messages. Policy \226\128\147 Returns the policy of the queue. QueueArn \226\128\147 Returns the Amazon resource name (ARN) of the queue. ReceiveMessageWaitTimeSeconds \226\128\147 Returns the length of time, in seconds, for which the ReceiveMessage action waits for a message to arrive. VisibilityTimeout \226\128\147 Returns the visibility timeout for the queue. For more information about the visibility timeout, see Visibility Timeout in the Amazon SQS Developer Guide. The following attributes apply only to dead-letter queues: RedrivePolicy \226\128\147 The string that includes the parameters for the dead-letter queue functionality of the source queue as a JSON object. The parameters are as follows: deadLetterTargetArn \226\128\147 The Amazon Resource Name (ARN) of the dead-letter queue to which Amazon SQS moves messages after the value of maxReceiveCount is exceeded. maxReceiveCount \226\128\147 The number of times a message is delivered to the source queue before being moved to the dead-letter queue. Default: 10. When the ReceiveCount for a message exceeds the maxReceiveCount for a queue, Amazon SQS moves the message to the dead-letter-queue. RedriveAllowPolicy \226\128\147 The string that includes the parameters for the permissions for the dead-letter queue redrive permission and which source queues can specify dead-letter queues as a JSON object. The parameters are as follows: redrivePermission \226\128\147 The permission type that defines which source queues can specify the current queue as the dead-letter queue. Valid values are: allowAll \226\128\147 (Default) Any source queues in this Amazon Web Services account in the same Region can specify this queue as the dead-letter queue. denyAll \226\128\147 No source queues can specify this queue as the dead-letter queue. byQueue \226\128\147 Only queues specified by the sourceQueueArns parameter can specify this queue as the dead-letter queue. sourceQueueArns \226\128\147 The Amazon Resource Names (ARN)s of the source queues that can specify this queue as the dead-letter queue and redrive messages. You can specify this parameter only when the redrivePermission parameter is set to byQueue. You can specify up to 10 source queue ARNs. To allow more than 10 source queues to specify dead-letter queues, set the redrivePermission parameter to allowAll. The dead-letter queue of a FIFO queue must also be a FIFO queue. Similarly, the dead-letter queue of a standard queue must also be a standard queue. The following attributes apply only to server-side-encryption: KmsMasterKeyId \226\128\147 Returns the ID of an Amazon Web Services managed customer master key (CMK) for Amazon SQS or a custom CMK. For more information, see Key Terms. KmsDataKeyReusePeriodSeconds \226\128\147 Returns the length of time, in seconds, for which Amazon SQS can reuse a data key to encrypt or decrypt messages before calling KMS again. For more information, see How Does the Data Key Reuse Period Work?. SqsManagedSseEnabled \226\128\147 Returns information about whether the queue is using SSE-SQS encryption using SQS owned encryption keys. Only one server-side encryption option is supported per queue (for example, SSE-KMS or SSE-SQS). The following attributes apply only to FIFO (first-in-first-out) queues: FifoQueue \226\128\147 Returns information about whether the queue is FIFO. For more information, see FIFO queue logic in the Amazon SQS Developer Guide. To determine whether a queue is FIFO, you can check whether QueueName ends with the .fifo suffix. ContentBasedDeduplication \226\128\147 Returns whether content-based deduplication is enabled for the queue. For more information, see Exactly-once processing in the Amazon SQS Developer Guide. The following attributes apply only to high throughput for FIFO queues: DeduplicationScope \226\128\147 Specifies whether message deduplication occurs at the message group or queue level. Valid values are messageGroup and queue. FifoThroughputLimit \226\128\147 Specifies whether the FIFO queue throughput quota applies to the entire queue or per message group. Valid values are perQueue and perMessageGroupId. The perMessageGroupId value is allowed only when the value for DeduplicationScope is messageGroup. To enable high throughput for FIFO queues, do the following: Set DeduplicationScope to messageGroup. Set FifoThroughputLimit to perMessageGroupId. If you set these attributes to anything other than the values shown for enabling high throughput, normal throughput is in effect and deduplication occurs as specified. For information on throughput quotas, see Quotas related to messages in the Amazon SQS Developer Guide."]}
    let context_ = "GetQueueAttributesRequest"
    let make ?attributeNames =
      fun ~queueUrl -> fun () -> { attributeNames; queueUrl }
    let to_value x =
      structure_to_value
        [("QueueUrl", (Some (String_.to_value x.queueUrl)));
        ("AttributeNames",
          (Option.map x.attributeNames ~f:AttributeNameList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeNames =
        (Option.map ~f:AttributeNameList.of_xml)
          (Some (Xml.children xml_arg0 "AttributeNames")) in
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ?attributeNames ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeNames =
        field_map json__ "AttributeNames" AttributeNameList.of_json in
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ?attributeNames ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end
module DeleteQueueRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t
        [@ocaml.doc
          "The URL of the Amazon SQS queue to delete. Queue URLs and names are case-sensitive."]}
    let context_ = "DeleteQueueRequest"
    let make ~queueUrl = fun () -> { queueUrl }
    let to_value x =
      structure_to_value [("QueueUrl", (Some (String_.to_value x.queueUrl)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end
module DeleteMessageRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t
        [@ocaml.doc
          "The URL of the Amazon SQS queue from which messages are deleted. Queue URLs and names are case-sensitive."];
      receiptHandle: String_.t
        [@ocaml.doc
          "The receipt handle associated with the message to delete."]}
    let context_ = "DeleteMessageRequest"
    let make ~queueUrl =
      fun ~receiptHandle -> fun () -> { queueUrl; receiptHandle }
    let to_value x =
      structure_to_value
        [("QueueUrl", (Some (String_.to_value x.queueUrl)));
        ("ReceiptHandle", (Some (String_.to_value x.receiptHandle)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let receiptHandle =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReceiptHandle") in
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ~receiptHandle ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let receiptHandle =
        field_map_exn json__ "ReceiptHandle" String_.of_json in
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ~receiptHandle ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end
module DeleteMessageBatchResult =
  struct
    type nonrec t =
      {
      successful: DeleteMessageBatchResultEntryList.t option
        [@ocaml.doc "A list of DeleteMessageBatchResultEntry items."];
      failed: BatchResultErrorEntryList.t option
        [@ocaml.doc "A list of BatchResultErrorEntry items."]}
    type nonrec error =
      [ `BatchEntryIdsNotDistinct of BatchEntryIdsNotDistinct.t 
      | `EmptyBatchRequest of EmptyBatchRequest.t 
      | `InvalidAddress of InvalidAddress.t 
      | `InvalidBatchEntryId of InvalidBatchEntryId.t 
      | `InvalidSecurity of InvalidSecurity.t 
      | `QueueDoesNotExist of QueueDoesNotExist.t 
      | `RequestThrottled of RequestThrottled.t 
      | `TooManyEntriesInBatchRequest of TooManyEntriesInBatchRequest.t 
      | `UnsupportedOperation of UnsupportedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?successful = fun ?failed -> fun () -> { successful; failed }
    let error_of_json name json =
      match name with
      | "BatchEntryIdsNotDistinct" ->
          `BatchEntryIdsNotDistinct (BatchEntryIdsNotDistinct.of_json json)
      | "EmptyBatchRequest" ->
          `EmptyBatchRequest (EmptyBatchRequest.of_json json)
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_json json)
      | "InvalidBatchEntryId" ->
          `InvalidBatchEntryId (InvalidBatchEntryId.of_json json)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_json json)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_json json)
      | "RequestThrottled" ->
          `RequestThrottled (RequestThrottled.of_json json)
      | "TooManyEntriesInBatchRequest" ->
          `TooManyEntriesInBatchRequest
            (TooManyEntriesInBatchRequest.of_json json)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BatchEntryIdsNotDistinct" ->
          `BatchEntryIdsNotDistinct (BatchEntryIdsNotDistinct.of_xml xml)
      | "EmptyBatchRequest" ->
          `EmptyBatchRequest (EmptyBatchRequest.of_xml xml)
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_xml xml)
      | "InvalidBatchEntryId" ->
          `InvalidBatchEntryId (InvalidBatchEntryId.of_xml xml)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_xml xml)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_xml xml)
      | "RequestThrottled" -> `RequestThrottled (RequestThrottled.of_xml xml)
      | "TooManyEntriesInBatchRequest" ->
          `TooManyEntriesInBatchRequest
            (TooManyEntriesInBatchRequest.of_xml xml)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BatchEntryIdsNotDistinct e ->
          `Assoc
            [("error", (`String "BatchEntryIdsNotDistinct"));
            ("details", (BatchEntryIdsNotDistinct.to_json e))]
      | `EmptyBatchRequest e ->
          `Assoc
            [("error", (`String "EmptyBatchRequest"));
            ("details", (EmptyBatchRequest.to_json e))]
      | `InvalidAddress e ->
          `Assoc
            [("error", (`String "InvalidAddress"));
            ("details", (InvalidAddress.to_json e))]
      | `InvalidBatchEntryId e ->
          `Assoc
            [("error", (`String "InvalidBatchEntryId"));
            ("details", (InvalidBatchEntryId.to_json e))]
      | `InvalidSecurity e ->
          `Assoc
            [("error", (`String "InvalidSecurity"));
            ("details", (InvalidSecurity.to_json e))]
      | `QueueDoesNotExist e ->
          `Assoc
            [("error", (`String "QueueDoesNotExist"));
            ("details", (QueueDoesNotExist.to_json e))]
      | `RequestThrottled e ->
          `Assoc
            [("error", (`String "RequestThrottled"));
            ("details", (RequestThrottled.to_json e))]
      | `TooManyEntriesInBatchRequest e ->
          `Assoc
            [("error", (`String "TooManyEntriesInBatchRequest"));
            ("details", (TooManyEntriesInBatchRequest.to_json e))]
      | `UnsupportedOperation e ->
          `Assoc
            [("error", (`String "UnsupportedOperation"));
            ("details", (UnsupportedOperation.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
        [("Successful",
           (Option.map x.successful
              ~f:DeleteMessageBatchResultEntryList.to_value));
        ("Failed",
          (Option.map x.failed ~f:BatchResultErrorEntryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failed =
        (Option.map ~f:BatchResultErrorEntryList.of_xml)
          (Some (Xml.children xml_arg0 "Failed")) in
      let successful =
        (Option.map ~f:DeleteMessageBatchResultEntryList.of_xml)
          (Some (Xml.children xml_arg0 "Successful")) in
      make ?failed ?successful ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failed =
        field_map json__ "Failed" BatchResultErrorEntryList.of_json in
      let successful =
        field_map json__ "Successful"
          DeleteMessageBatchResultEntryList.of_json in
      make ?failed ?successful ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For each message in the batch, the response contains a DeleteMessageBatchResultEntry tag if the message is deleted or a BatchResultErrorEntry tag if the message can't be deleted."]
module DeleteMessageBatchRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t
        [@ocaml.doc
          "The URL of the Amazon SQS queue from which messages are deleted. Queue URLs and names are case-sensitive."];
      entries: DeleteMessageBatchRequestEntryList.t
        [@ocaml.doc
          "Lists the receipt handles for the messages to be deleted."]}
    let context_ = "DeleteMessageBatchRequest"
    let make ~queueUrl = fun ~entries -> fun () -> { queueUrl; entries }
    let to_value x =
      structure_to_value
        [("QueueUrl", (Some (String_.to_value x.queueUrl)));
        ("Entries",
          (Some (DeleteMessageBatchRequestEntryList.to_value x.entries)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entries =
        DeleteMessageBatchRequestEntryList.of_xml
          (Xml.children xml_arg0 "Entries") in
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ~entries ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entries =
        field_map_exn json__ "Entries"
          DeleteMessageBatchRequestEntryList.of_json in
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ~entries ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end
module CreateQueueResult =
  struct
    type nonrec t =
      {
      queueUrl: String_.t option
        [@ocaml.doc "The URL of the created Amazon SQS queue."]}
    type nonrec error =
      [ `InvalidAddress of InvalidAddress.t 
      | `InvalidAttributeName of InvalidAttributeName.t 
      | `InvalidAttributeValue of InvalidAttributeValue.t 
      | `InvalidSecurity of InvalidSecurity.t 
      | `QueueDeletedRecently of QueueDeletedRecently.t 
      | `QueueNameExists of QueueNameExists.t 
      | `RequestThrottled of RequestThrottled.t 
      | `UnsupportedOperation of UnsupportedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?queueUrl = fun () -> { queueUrl }
    let error_of_json name json =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_json json)
      | "InvalidAttributeName" ->
          `InvalidAttributeName (InvalidAttributeName.of_json json)
      | "InvalidAttributeValue" ->
          `InvalidAttributeValue (InvalidAttributeValue.of_json json)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_json json)
      | "QueueDeletedRecently" ->
          `QueueDeletedRecently (QueueDeletedRecently.of_json json)
      | "QueueNameExists" -> `QueueNameExists (QueueNameExists.of_json json)
      | "RequestThrottled" ->
          `RequestThrottled (RequestThrottled.of_json json)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_xml xml)
      | "InvalidAttributeName" ->
          `InvalidAttributeName (InvalidAttributeName.of_xml xml)
      | "InvalidAttributeValue" ->
          `InvalidAttributeValue (InvalidAttributeValue.of_xml xml)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_xml xml)
      | "QueueDeletedRecently" ->
          `QueueDeletedRecently (QueueDeletedRecently.of_xml xml)
      | "QueueNameExists" -> `QueueNameExists (QueueNameExists.of_xml xml)
      | "RequestThrottled" -> `RequestThrottled (RequestThrottled.of_xml xml)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidAddress e ->
          `Assoc
            [("error", (`String "InvalidAddress"));
            ("details", (InvalidAddress.to_json e))]
      | `InvalidAttributeName e ->
          `Assoc
            [("error", (`String "InvalidAttributeName"));
            ("details", (InvalidAttributeName.to_json e))]
      | `InvalidAttributeValue e ->
          `Assoc
            [("error", (`String "InvalidAttributeValue"));
            ("details", (InvalidAttributeValue.to_json e))]
      | `InvalidSecurity e ->
          `Assoc
            [("error", (`String "InvalidSecurity"));
            ("details", (InvalidSecurity.to_json e))]
      | `QueueDeletedRecently e ->
          `Assoc
            [("error", (`String "QueueDeletedRecently"));
            ("details", (QueueDeletedRecently.to_json e))]
      | `QueueNameExists e ->
          `Assoc
            [("error", (`String "QueueNameExists"));
            ("details", (QueueNameExists.to_json e))]
      | `RequestThrottled e ->
          `Assoc
            [("error", (`String "RequestThrottled"));
            ("details", (RequestThrottled.to_json e))]
      | `UnsupportedOperation e ->
          `Assoc
            [("error", (`String "UnsupportedOperation"));
            ("details", (UnsupportedOperation.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
        [("QueueUrl", (Option.map x.queueUrl ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queueUrl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "QueueUrl") in
      make ?queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queueUrl = field_map json__ "QueueUrl" String_.of_json in
      make ?queueUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the QueueUrl attribute of the created queue."]
module CreateQueueRequest =
  struct
    type nonrec t =
      {
      queueName: String_.t
        [@ocaml.doc
          "The name of the new queue. The following limits apply to this name: A queue name can have up to 80 characters. Valid values: alphanumeric characters, hyphens (-), and underscores (_). A FIFO queue name must end with the .fifo suffix. Queue URLs and names are case-sensitive."];
      attributes: QueueAttributeMap.t option
        [@ocaml.doc
          "A map of attributes with their corresponding values. The following lists the names, descriptions, and values of the special request parameters that the CreateQueue action uses: DelaySeconds \226\128\147 The length of time, in seconds, for which the delivery of all messages in the queue is delayed. Valid values: An integer from 0 to 900 seconds (15 minutes). Default: 0. MaximumMessageSize \226\128\147 The limit of how many bytes a message can contain before Amazon SQS rejects it. Valid values: An integer from 1,024 bytes (1 KiB) to 1,048,576 bytes (1 MiB). Default: 1,048,576 bytes (1 MiB). MessageRetentionPeriod \226\128\147 The length of time, in seconds, for which Amazon SQS retains a message. Valid values: An integer from 60 seconds (1 minute) to 1,209,600 seconds (14 days). Default: 345,600 (4 days). When you change a queue's attributes, the change can take up to 60 seconds for most of the attributes to propagate throughout the Amazon SQS system. Changes made to the MessageRetentionPeriod attribute can take up to 15 minutes and will impact existing messages in the queue potentially causing them to be expired and deleted if the MessageRetentionPeriod is reduced below the age of existing messages. Policy \226\128\147 The queue's policy. A valid Amazon Web Services policy. For more information about policy structure, see Overview of Amazon Web Services IAM Policies in the IAM User Guide. ReceiveMessageWaitTimeSeconds \226\128\147 The length of time, in seconds, for which a ReceiveMessage action waits for a message to arrive. Valid values: An integer from 0 to 20 (seconds). Default: 0. VisibilityTimeout \226\128\147 The visibility timeout for the queue, in seconds. Valid values: An integer from 0 to 43,200 (12 hours). Default: 30. For more information about the visibility timeout, see Visibility Timeout in the Amazon SQS Developer Guide. The following attributes apply only to dead-letter queues: RedrivePolicy \226\128\147 The string that includes the parameters for the dead-letter queue functionality of the source queue as a JSON object. The parameters are as follows: deadLetterTargetArn \226\128\147 The Amazon Resource Name (ARN) of the dead-letter queue to which Amazon SQS moves messages after the value of maxReceiveCount is exceeded. maxReceiveCount \226\128\147 The number of times a message is delivered to the source queue before being moved to the dead-letter queue. Default: 10. When the ReceiveCount for a message exceeds the maxReceiveCount for a queue, Amazon SQS moves the message to the dead-letter-queue. RedriveAllowPolicy \226\128\147 The string that includes the parameters for the permissions for the dead-letter queue redrive permission and which source queues can specify dead-letter queues as a JSON object. The parameters are as follows: redrivePermission \226\128\147 The permission type that defines which source queues can specify the current queue as the dead-letter queue. Valid values are: allowAll \226\128\147 (Default) Any source queues in this Amazon Web Services account in the same Region can specify this queue as the dead-letter queue. denyAll \226\128\147 No source queues can specify this queue as the dead-letter queue. byQueue \226\128\147 Only queues specified by the sourceQueueArns parameter can specify this queue as the dead-letter queue. sourceQueueArns \226\128\147 The Amazon Resource Names (ARN)s of the source queues that can specify this queue as the dead-letter queue and redrive messages. You can specify this parameter only when the redrivePermission parameter is set to byQueue. You can specify up to 10 source queue ARNs. To allow more than 10 source queues to specify dead-letter queues, set the redrivePermission parameter to allowAll. The dead-letter queue of a FIFO queue must also be a FIFO queue. Similarly, the dead-letter queue of a standard queue must also be a standard queue. The following attributes apply only to server-side-encryption: KmsMasterKeyId \226\128\147 The ID of an Amazon Web Services managed customer master key (CMK) for Amazon SQS or a custom CMK. For more information, see Key Terms. While the alias of the Amazon Web Services managed CMK for Amazon SQS is always alias/aws/sqs, the alias of a custom CMK can, for example, be alias/MyAlias . For more examples, see KeyId in the Key Management Service API Reference. KmsDataKeyReusePeriodSeconds \226\128\147 The length of time, in seconds, for which Amazon SQS can reuse a data key to encrypt or decrypt messages before calling KMS again. An integer representing seconds, between 60 seconds (1 minute) and 86,400 seconds (24 hours). Default: 300 (5 minutes). A shorter time period provides better security but results in more calls to KMS which might incur charges after Free Tier. For more information, see How Does the Data Key Reuse Period Work? SqsManagedSseEnabled \226\128\147 Enables server-side queue encryption using SQS owned encryption keys. Only one server-side encryption option is supported per queue (for example, SSE-KMS or SSE-SQS). The following attributes apply only to FIFO (first-in-first-out) queues: FifoQueue \226\128\147 Designates a queue as FIFO. Valid values are true and false. If you don't specify the FifoQueue attribute, Amazon SQS creates a standard queue. You can provide this attribute only during queue creation. You can't change it for an existing queue. When you set this attribute, you must also provide the MessageGroupId for your messages explicitly. For more information, see FIFO queue logic in the Amazon SQS Developer Guide. ContentBasedDeduplication \226\128\147 Enables content-based deduplication. Valid values are true and false. For more information, see Exactly-once processing in the Amazon SQS Developer Guide. Note the following: Every message must have a unique MessageDeduplicationId. You may provide a MessageDeduplicationId explicitly. If you aren't able to provide a MessageDeduplicationId and you enable ContentBasedDeduplication for your queue, Amazon SQS uses a SHA-256 hash to generate the MessageDeduplicationId using the body of the message (but not the attributes of the message). If you don't provide a MessageDeduplicationId and the queue doesn't have ContentBasedDeduplication set, the action fails with an error. If the queue has ContentBasedDeduplication set, your MessageDeduplicationId overrides the generated one. When ContentBasedDeduplication is in effect, messages with identical content sent within the deduplication interval are treated as duplicates and only one copy of the message is delivered. If you send one message with ContentBasedDeduplication enabled and then another message with a MessageDeduplicationId that is the same as the one generated for the first MessageDeduplicationId, the two messages are treated as duplicates and only one copy of the message is delivered. The following attributes apply only to high throughput for FIFO queues: DeduplicationScope \226\128\147 Specifies whether message deduplication occurs at the message group or queue level. Valid values are messageGroup and queue. FifoThroughputLimit \226\128\147 Specifies whether the FIFO queue throughput quota applies to the entire queue or per message group. Valid values are perQueue and perMessageGroupId. The perMessageGroupId value is allowed only when the value for DeduplicationScope is messageGroup. To enable high throughput for FIFO queues, do the following: Set DeduplicationScope to messageGroup. Set FifoThroughputLimit to perMessageGroupId. If you set these attributes to anything other than the values shown for enabling high throughput, normal throughput is in effect and deduplication occurs as specified. For information on throughput quotas, see Quotas related to messages in the Amazon SQS Developer Guide."];
      tags: TagMap.t option
        [@ocaml.doc
          "Add cost allocation tags to the specified Amazon SQS queue. For an overview, see Tagging Your Amazon SQS Queues in the Amazon SQS Developer Guide. When you use queue tags, keep the following guidelines in mind: Adding more than 50 tags to a queue isn't recommended. Tags don't have any semantic meaning. Amazon SQS interprets tags as character strings. Tags are case-sensitive. A new tag with a key identical to that of an existing tag overwrites the existing tag. For a full list of tag restrictions, see Quotas related to queues in the Amazon SQS Developer Guide. To be able to tag a queue on creation, you must have the sqs:CreateQueue and sqs:TagQueue permissions. Cross-account permissions don't apply to this action. For more information, see Grant cross-account permissions to a role and a username in the Amazon SQS Developer Guide."]}
    let context_ = "CreateQueueRequest"
    let make ?attributes =
      fun ?tags ->
        fun ~queueName -> fun () -> { attributes; tags; queueName }
    let to_value x =
      structure_to_value
        [("QueueName", (Some (String_.to_value x.queueName)));
        ("Attributes",
          (Option.map x.attributes ~f:QueueAttributeMap.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let attributes =
        (Option.map ~f:QueueAttributeMap.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      let queueName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueName") in
      make ?tags ?attributes ~queueName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let attributes =
        field_map json__ "Attributes" QueueAttributeMap.of_json in
      let queueName = field_map_exn json__ "QueueName" String_.of_json in
      make ?tags ?attributes ~queueName ()
    let to_json v = composed_to_json to_value v
  end
module ChangeMessageVisibilityRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t
        [@ocaml.doc
          "The URL of the Amazon SQS queue whose message's visibility is changed. Queue URLs and names are case-sensitive."];
      receiptHandle: String_.t
        [@ocaml.doc
          "The receipt handle associated with the message, whose visibility timeout is changed. This parameter is returned by the ReceiveMessage action."];
      visibilityTimeout: NullableInteger.t
        [@ocaml.doc
          "The new value for the message's visibility timeout (in seconds). Values range: 0 to 43200. Maximum: 12 hours."]}
    let context_ = "ChangeMessageVisibilityRequest"
    let make ~queueUrl =
      fun ~receiptHandle ->
        fun ~visibilityTimeout ->
          fun () -> { queueUrl; receiptHandle; visibilityTimeout }
    let to_value x =
      structure_to_value
        [("QueueUrl", (Some (String_.to_value x.queueUrl)));
        ("ReceiptHandle", (Some (String_.to_value x.receiptHandle)));
        ("VisibilityTimeout",
          (Some (NullableInteger.to_value x.visibilityTimeout)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let visibilityTimeout =
        NullableInteger.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VisibilityTimeout") in
      let receiptHandle =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReceiptHandle") in
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ~visibilityTimeout ~receiptHandle ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let visibilityTimeout =
        field_map_exn json__ "VisibilityTimeout" NullableInteger.of_json in
      let receiptHandle =
        field_map_exn json__ "ReceiptHandle" String_.of_json in
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ~visibilityTimeout ~receiptHandle ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes the visibility timeout of a specified message in a queue to a new value. The default visibility timeout for a message is 30 seconds. The minimum is 0 seconds. The maximum is 12 hours. For more information, see Visibility Timeout in the Amazon SQS Developer Guide. For example, if the default timeout for a queue is 60 seconds, 15 seconds have elapsed since you received the message, and you send a ChangeMessageVisibility call with VisibilityTimeout set to 10 seconds, the 10 seconds begin to count from the time that you make the ChangeMessageVisibility call. Thus, any attempt to change the visibility timeout or to delete that message 10 seconds after you initially change the visibility timeout (a total of 25 seconds) might result in an error. An Amazon SQS message has three basic states: Sent to a queue by a producer. Received from the queue by a consumer. Deleted from the queue. A message is considered to be stored after it is sent to a queue by a producer, but not yet received from the queue by a consumer (that is, between states 1 and 2). There is no limit to the number of stored messages. A message is considered to be in flight after it is received from a queue by a consumer, but not yet deleted from the queue (that is, between states 2 and 3). There is a limit to the number of in flight messages. Limits that apply to in flight messages are unrelated to the unlimited number of stored messages. For most standard queues (depending on queue traffic and message backlog), there can be a maximum of approximately 120,000 in flight messages (received from a queue by a consumer, but not yet deleted from the queue). If you reach this limit, Amazon SQS returns the OverLimit error message. To avoid reaching the limit, you should delete messages from the queue after they're processed. You can also increase the number of queues you use to process your messages. To request a limit increase, file a support request. For FIFO queues, there can be a maximum of 120,000 in flight messages (received from a queue by a consumer, but not yet deleted from the queue). If you reach this limit, Amazon SQS returns no error messages. If you attempt to set the VisibilityTimeout to a value greater than the maximum time left, Amazon SQS returns an error. Amazon SQS doesn't automatically recalculate and increase the timeout to the maximum remaining time. Unlike with a queue, when you change the visibility timeout for a specific message the timeout value is applied immediately but isn't saved in memory for that message. If you don't delete a message after it is received, the visibility timeout for the message reverts to the original timeout value (not to the value you set using the ChangeMessageVisibility action) the next time the message is received."]
module ChangeMessageVisibilityBatchResult =
  struct
    type nonrec t =
      {
      successful: ChangeMessageVisibilityBatchResultEntryList.t option
        [@ocaml.doc
          "A list of ChangeMessageVisibilityBatchResultEntry items."];
      failed: BatchResultErrorEntryList.t option
        [@ocaml.doc "A list of BatchResultErrorEntry items."]}
    type nonrec error =
      [ `BatchEntryIdsNotDistinct of BatchEntryIdsNotDistinct.t 
      | `EmptyBatchRequest of EmptyBatchRequest.t 
      | `InvalidAddress of InvalidAddress.t 
      | `InvalidBatchEntryId of InvalidBatchEntryId.t 
      | `InvalidSecurity of InvalidSecurity.t 
      | `QueueDoesNotExist of QueueDoesNotExist.t 
      | `RequestThrottled of RequestThrottled.t 
      | `TooManyEntriesInBatchRequest of TooManyEntriesInBatchRequest.t 
      | `UnsupportedOperation of UnsupportedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?successful = fun ?failed -> fun () -> { successful; failed }
    let error_of_json name json =
      match name with
      | "BatchEntryIdsNotDistinct" ->
          `BatchEntryIdsNotDistinct (BatchEntryIdsNotDistinct.of_json json)
      | "EmptyBatchRequest" ->
          `EmptyBatchRequest (EmptyBatchRequest.of_json json)
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_json json)
      | "InvalidBatchEntryId" ->
          `InvalidBatchEntryId (InvalidBatchEntryId.of_json json)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_json json)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_json json)
      | "RequestThrottled" ->
          `RequestThrottled (RequestThrottled.of_json json)
      | "TooManyEntriesInBatchRequest" ->
          `TooManyEntriesInBatchRequest
            (TooManyEntriesInBatchRequest.of_json json)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BatchEntryIdsNotDistinct" ->
          `BatchEntryIdsNotDistinct (BatchEntryIdsNotDistinct.of_xml xml)
      | "EmptyBatchRequest" ->
          `EmptyBatchRequest (EmptyBatchRequest.of_xml xml)
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_xml xml)
      | "InvalidBatchEntryId" ->
          `InvalidBatchEntryId (InvalidBatchEntryId.of_xml xml)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_xml xml)
      | "QueueDoesNotExist" ->
          `QueueDoesNotExist (QueueDoesNotExist.of_xml xml)
      | "RequestThrottled" -> `RequestThrottled (RequestThrottled.of_xml xml)
      | "TooManyEntriesInBatchRequest" ->
          `TooManyEntriesInBatchRequest
            (TooManyEntriesInBatchRequest.of_xml xml)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BatchEntryIdsNotDistinct e ->
          `Assoc
            [("error", (`String "BatchEntryIdsNotDistinct"));
            ("details", (BatchEntryIdsNotDistinct.to_json e))]
      | `EmptyBatchRequest e ->
          `Assoc
            [("error", (`String "EmptyBatchRequest"));
            ("details", (EmptyBatchRequest.to_json e))]
      | `InvalidAddress e ->
          `Assoc
            [("error", (`String "InvalidAddress"));
            ("details", (InvalidAddress.to_json e))]
      | `InvalidBatchEntryId e ->
          `Assoc
            [("error", (`String "InvalidBatchEntryId"));
            ("details", (InvalidBatchEntryId.to_json e))]
      | `InvalidSecurity e ->
          `Assoc
            [("error", (`String "InvalidSecurity"));
            ("details", (InvalidSecurity.to_json e))]
      | `QueueDoesNotExist e ->
          `Assoc
            [("error", (`String "QueueDoesNotExist"));
            ("details", (QueueDoesNotExist.to_json e))]
      | `RequestThrottled e ->
          `Assoc
            [("error", (`String "RequestThrottled"));
            ("details", (RequestThrottled.to_json e))]
      | `TooManyEntriesInBatchRequest e ->
          `Assoc
            [("error", (`String "TooManyEntriesInBatchRequest"));
            ("details", (TooManyEntriesInBatchRequest.to_json e))]
      | `UnsupportedOperation e ->
          `Assoc
            [("error", (`String "UnsupportedOperation"));
            ("details", (UnsupportedOperation.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
        [("Successful",
           (Option.map x.successful
              ~f:ChangeMessageVisibilityBatchResultEntryList.to_value));
        ("Failed",
          (Option.map x.failed ~f:BatchResultErrorEntryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failed =
        (Option.map ~f:BatchResultErrorEntryList.of_xml)
          (Some (Xml.children xml_arg0 "Failed")) in
      let successful =
        (Option.map ~f:ChangeMessageVisibilityBatchResultEntryList.of_xml)
          (Some (Xml.children xml_arg0 "Successful")) in
      make ?failed ?successful ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failed =
        field_map json__ "Failed" BatchResultErrorEntryList.of_json in
      let successful =
        field_map json__ "Successful"
          ChangeMessageVisibilityBatchResultEntryList.of_json in
      make ?failed ?successful ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For each message in the batch, the response contains a ChangeMessageVisibilityBatchResultEntry tag if the message succeeds or a BatchResultErrorEntry tag if the message fails."]
module ChangeMessageVisibilityBatchRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t
        [@ocaml.doc
          "The URL of the Amazon SQS queue whose messages' visibility is changed. Queue URLs and names are case-sensitive."];
      entries: ChangeMessageVisibilityBatchRequestEntryList.t
        [@ocaml.doc
          "Lists the receipt handles of the messages for which the visibility timeout must be changed."]}
    let context_ = "ChangeMessageVisibilityBatchRequest"
    let make ~queueUrl = fun ~entries -> fun () -> { queueUrl; entries }
    let to_value x =
      structure_to_value
        [("QueueUrl", (Some (String_.to_value x.queueUrl)));
        ("Entries",
          (Some
             (ChangeMessageVisibilityBatchRequestEntryList.to_value x.entries)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entries =
        ChangeMessageVisibilityBatchRequestEntryList.of_xml
          (Xml.children xml_arg0 "Entries") in
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ~entries ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entries =
        field_map_exn json__ "Entries"
          ChangeMessageVisibilityBatchRequestEntryList.of_json in
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ~entries ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end
module CancelMessageMoveTaskResult =
  struct
    type nonrec t =
      {
      approximateNumberOfMessagesMoved: Long.t option
        [@ocaml.doc
          "The approximate number of messages already moved to the destination queue."]}
    type nonrec error =
      [ `InvalidAddress of InvalidAddress.t 
      | `InvalidSecurity of InvalidSecurity.t 
      | `RequestThrottled of RequestThrottled.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperation of UnsupportedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?approximateNumberOfMessagesMoved =
      fun () -> { approximateNumberOfMessagesMoved }
    let error_of_json name json =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_json json)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_json json)
      | "RequestThrottled" ->
          `RequestThrottled (RequestThrottled.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidAddress" -> `InvalidAddress (InvalidAddress.of_xml xml)
      | "InvalidSecurity" -> `InvalidSecurity (InvalidSecurity.of_xml xml)
      | "RequestThrottled" -> `RequestThrottled (RequestThrottled.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperation" ->
          `UnsupportedOperation (UnsupportedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidAddress e ->
          `Assoc
            [("error", (`String "InvalidAddress"));
            ("details", (InvalidAddress.to_json e))]
      | `InvalidSecurity e ->
          `Assoc
            [("error", (`String "InvalidSecurity"));
            ("details", (InvalidSecurity.to_json e))]
      | `RequestThrottled e ->
          `Assoc
            [("error", (`String "RequestThrottled"));
            ("details", (RequestThrottled.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperation e ->
          `Assoc
            [("error", (`String "UnsupportedOperation"));
            ("details", (UnsupportedOperation.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
        [("ApproximateNumberOfMessagesMoved",
           (Option.map x.approximateNumberOfMessagesMoved ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approximateNumberOfMessagesMoved =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "ApproximateNumberOfMessagesMoved") in
      make ?approximateNumberOfMessagesMoved ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approximateNumberOfMessagesMoved =
        field_map json__ "ApproximateNumberOfMessagesMoved" Long.of_json in
      make ?approximateNumberOfMessagesMoved ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels a specified message movement task. A message movement can only be cancelled when the current status is RUNNING. Cancelling a message movement task does not revert the messages that have already been moved. It can only stop the messages that have not been moved yet. This action is currently limited to supporting message redrive from dead-letter queues (DLQs) only. In this context, the source queue is the dead-letter queue (DLQ), while the destination queue can be the original source queue (from which the messages were driven to the dead-letter-queue), or a custom destination queue. Only one active message movement task is supported per queue at any given time."]
module CancelMessageMoveTaskRequest =
  struct
    type nonrec t =
      {
      taskHandle: String_.t
        [@ocaml.doc "An identifier associated with a message movement task."]}
    let context_ = "CancelMessageMoveTaskRequest"
    let make ~taskHandle = fun () -> { taskHandle }
    let to_value x =
      structure_to_value
        [("TaskHandle", (Some (String_.to_value x.taskHandle)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taskHandle =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TaskHandle") in
      make ~taskHandle ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taskHandle = field_map_exn json__ "TaskHandle" String_.of_json in
      make ~taskHandle ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels a specified message movement task. A message movement can only be cancelled when the current status is RUNNING. Cancelling a message movement task does not revert the messages that have already been moved. It can only stop the messages that have not been moved yet. This action is currently limited to supporting message redrive from dead-letter queues (DLQs) only. In this context, the source queue is the dead-letter queue (DLQ), while the destination queue can be the original source queue (from which the messages were driven to the dead-letter-queue), or a custom destination queue. Only one active message movement task is supported per queue at any given time."]
module AddPermissionRequest =
  struct
    type nonrec t =
      {
      queueUrl: String_.t
        [@ocaml.doc
          "The URL of the Amazon SQS queue to which permissions are added. Queue URLs and names are case-sensitive."];
      label: String_.t
        [@ocaml.doc
          "The unique identification of the permission you're setting (for example, AliceSendMessage). Maximum 80 characters. Allowed characters include alphanumeric characters, hyphens (-), and underscores (_)."];
      aWSAccountIds: AWSAccountIdList.t
        [@ocaml.doc
          "The Amazon Web Services account numbers of the principals who are to receive permission. For information about locating the Amazon Web Services account identification, see Your Amazon Web Services Identifiers in the Amazon SQS Developer Guide."];
      actions: ActionNameList.t
        [@ocaml.doc
          "The action the client wants to allow for the specified principal. Valid values: the name of any action or *. For more information about these actions, see Overview of Managing Access Permissions to Your Amazon Simple Queue Service Resource in the Amazon SQS Developer Guide. Specifying SendMessage, DeleteMessage, or ChangeMessageVisibility for ActionName.n also grants permissions for the corresponding batch versions of those actions: SendMessageBatch, DeleteMessageBatch, and ChangeMessageVisibilityBatch."]}
    let context_ = "AddPermissionRequest"
    let make ~queueUrl =
      fun ~label ->
        fun ~aWSAccountIds ->
          fun ~actions ->
            fun () -> { queueUrl; label; aWSAccountIds; actions }
    let to_value x =
      structure_to_value
        [("QueueUrl", (Some (String_.to_value x.queueUrl)));
        ("Label", (Some (String_.to_value x.label)));
        ("AWSAccountIds", (Some (AWSAccountIdList.to_value x.aWSAccountIds)));
        ("Actions", (Some (ActionNameList.to_value x.actions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let actions = ActionNameList.of_xml (Xml.children xml_arg0 "Actions") in
      let aWSAccountIds =
        AWSAccountIdList.of_xml (Xml.children xml_arg0 "AWSAccountIds") in
      let label =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Label") in
      let queueUrl =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "QueueUrl") in
      make ~actions ~aWSAccountIds ~label ~queueUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let actions = field_map_exn json__ "Actions" ActionNameList.of_json in
      let aWSAccountIds =
        field_map_exn json__ "AWSAccountIds" AWSAccountIdList.of_json in
      let label = field_map_exn json__ "Label" String_.of_json in
      let queueUrl = field_map_exn json__ "QueueUrl" String_.of_json in
      make ~actions ~aWSAccountIds ~label ~queueUrl ()
    let to_json v = composed_to_json to_value v
  end