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.support
let apiVersion = "2013-04-15"
let endpointPrefix = "support"
let serviceFullName = "AWS Support"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "AWSSupport_20130415"
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 AttachmentId =
  struct
    type nonrec t = string
    let context_ = "AttachmentId"
    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:"AttachmentId" j
    let to_json = simple_to_json to_value
  end
module FileName =
  struct
    type nonrec t = string
    let context_ = "FileName"
    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:"FileName" j
    let to_json = simple_to_json to_value
  end
module AttachmentDetails =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t option
        [@ocaml.doc "The ID of the attachment."];
      fileName: FileName.t option
        [@ocaml.doc "The file name of the attachment."]}
    let make ?attachmentId =
      fun ?fileName -> fun () -> { attachmentId; fileName }
    let to_value x =
      structure_to_value
        [("attachmentId",
           (Option.map x.attachmentId ~f:AttachmentId.to_value));
        ("fileName", (Option.map x.fileName ~f:FileName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileName =
        (Option.map ~f:FileName.of_xml) (Xml.child xml_arg0 "fileName") in
      let attachmentId =
        (Option.map ~f:AttachmentId.of_xml)
          (Xml.child xml_arg0 "attachmentId") in
      make ?fileName ?attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileName = field_map json__ "fileName" FileName.of_json in
      let attachmentId = field_map json__ "attachmentId" AttachmentId.of_json in
      make ?fileName ?attachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The file name and ID of an attachment to a case communication. You can use the ID to retrieve the attachment with the DescribeAttachment operation."]
module AttachmentSet =
  struct
    type nonrec t = AttachmentDetails.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:AttachmentDetails.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:AttachmentDetails.of_xml)
    let of_json j =
      list_of_json ~kind:"AttachmentSet" ~of_json:AttachmentDetails.of_json j
    let to_json v = composed_to_json to_value v
  end
module CaseId =
  struct
    type nonrec t = string
    let context_ = "CaseId"
    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:"CaseId" j
    let to_json = simple_to_json to_value
  end
module SubmittedBy =
  struct
    type nonrec t = string
    let context_ = "SubmittedBy"
    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:"SubmittedBy" j
    let to_json = simple_to_json to_value
  end
module TimeCreated =
  struct
    type nonrec t = string
    let context_ = "TimeCreated"
    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:"TimeCreated" j
    let to_json = simple_to_json to_value
  end
module ValidatedCommunicationBody =
  struct
    type nonrec t = string
    let context_ = "ValidatedCommunicationBody"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:8000) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ValidatedCommunicationBody" j
    let to_json = simple_to_json to_value
  end
module Double =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" 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 CategoryCode =
  struct
    type nonrec t = string
    let context_ = "CategoryCode"
    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:"CategoryCode" j
    let to_json = simple_to_json to_value
  end
module CategoryName =
  struct
    type nonrec t = string
    let context_ = "CategoryName"
    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:"CategoryName" j
    let to_json = simple_to_json to_value
  end
module ValidatedDateTime =
  struct
    type nonrec t = string
    let context_ = "ValidatedDateTime"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:30) >>=
             (fun () -> check_string_min i ~min:8));
        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:"ValidatedDateTime" j
    let to_json = simple_to_json to_value
  end
module EndTime =
  struct
    type nonrec t = string
    let context_ = "EndTime"
    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:"EndTime" j
    let to_json = simple_to_json to_value
  end
module StartTime =
  struct
    type nonrec t = string
    let context_ = "StartTime"
    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:"StartTime" j
    let to_json = simple_to_json to_value
  end
module Communication =
  struct
    type nonrec t =
      {
      caseId: CaseId.t option
        [@ocaml.doc
          "The support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-12345678910-2013-c4c1d2bf33c5cf47"];
      body: ValidatedCommunicationBody.t option
        [@ocaml.doc
          "The text of the communication between the customer and Amazon Web Services Support."];
      submittedBy: SubmittedBy.t option
        [@ocaml.doc
          "The identity of the account that submitted, or responded to, the support case. Customer entries include the IAM role as well as the email address (for example, \"AdminRole (Role) <janedoe\\@example.com>). Entries from the Amazon Web Services Support team display \"Amazon Web Services,\" and don't show an email address."];
      timeCreated: TimeCreated.t option
        [@ocaml.doc "The time the communication was created."];
      attachmentSet: AttachmentSet.t option
        [@ocaml.doc
          "Information about the attachments to the case communication."]}
    let make ?caseId =
      fun ?body ->
        fun ?submittedBy ->
          fun ?timeCreated ->
            fun ?attachmentSet ->
              fun () ->
                { caseId; body; submittedBy; timeCreated; attachmentSet }
    let to_value x =
      structure_to_value
        [("caseId", (Option.map x.caseId ~f:CaseId.to_value));
        ("body", (Option.map x.body ~f:ValidatedCommunicationBody.to_value));
        ("submittedBy", (Option.map x.submittedBy ~f:SubmittedBy.to_value));
        ("timeCreated", (Option.map x.timeCreated ~f:TimeCreated.to_value));
        ("attachmentSet",
          (Option.map x.attachmentSet ~f:AttachmentSet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentSet =
        (Option.map ~f:AttachmentSet.of_xml)
          (Xml.child xml_arg0 "attachmentSet") in
      let timeCreated =
        (Option.map ~f:TimeCreated.of_xml) (Xml.child xml_arg0 "timeCreated") in
      let submittedBy =
        (Option.map ~f:SubmittedBy.of_xml) (Xml.child xml_arg0 "submittedBy") in
      let body =
        (Option.map ~f:ValidatedCommunicationBody.of_xml)
          (Xml.child xml_arg0 "body") in
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "caseId") in
      make ?attachmentSet ?timeCreated ?submittedBy ?body ?caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentSet =
        field_map json__ "attachmentSet" AttachmentSet.of_json in
      let timeCreated = field_map json__ "timeCreated" TimeCreated.of_json in
      let submittedBy = field_map json__ "submittedBy" SubmittedBy.of_json in
      let body = field_map json__ "body" ValidatedCommunicationBody.of_json in
      let caseId = field_map json__ "caseId" CaseId.of_json in
      make ?attachmentSet ?timeCreated ?submittedBy ?body ?caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A communication associated with a support case. The communication consists of the case ID, the message body, attachment information, the submitter of the communication, and the date and time of the communication."]
module TrustedAdvisorCostOptimizingSummary =
  struct
    type nonrec t =
      {
      estimatedMonthlySavings: Double.t option
        [@ocaml.doc
          "The estimated monthly savings that might be realized if the recommended operations are taken."];
      estimatedPercentMonthlySavings: Double.t option
        [@ocaml.doc
          "The estimated percentage of savings that might be realized if the recommended operations are taken."]}
    let make ?estimatedMonthlySavings =
      fun ?estimatedPercentMonthlySavings ->
        fun () -> { estimatedMonthlySavings; estimatedPercentMonthlySavings }
    let to_value x =
      structure_to_value
        [("estimatedMonthlySavings",
           (Option.map x.estimatedMonthlySavings ~f:Double.to_value));
        ("estimatedPercentMonthlySavings",
          (Option.map x.estimatedPercentMonthlySavings ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let estimatedPercentMonthlySavings =
        (Option.map ~f:Double.of_xml)
          (Xml.child xml_arg0 "estimatedPercentMonthlySavings") in
      let estimatedMonthlySavings =
        (Option.map ~f:Double.of_xml)
          (Xml.child xml_arg0 "estimatedMonthlySavings") in
      make ?estimatedPercentMonthlySavings ?estimatedMonthlySavings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let estimatedPercentMonthlySavings =
        field_map json__ "estimatedPercentMonthlySavings" Double.of_json in
      let estimatedMonthlySavings =
        field_map json__ "estimatedMonthlySavings" Double.of_json in
      make ?estimatedPercentMonthlySavings ?estimatedMonthlySavings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The estimated cost savings that might be realized if the recommended operations are taken."]
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 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 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 Category =
  struct
    type nonrec t =
      {
      code: CategoryCode.t option
        [@ocaml.doc "The category code for the support case."];
      name: CategoryName.t option
        [@ocaml.doc "The category name for the support case."]}
    let make ?code = fun ?name -> fun () -> { code; name }
    let to_value x =
      structure_to_value
        [("code", (Option.map x.code ~f:CategoryCode.to_value));
        ("name", (Option.map x.name ~f:CategoryName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:CategoryName.of_xml) (Xml.child xml_arg0 "name") in
      let code =
        (Option.map ~f:CategoryCode.of_xml) (Xml.child xml_arg0 "code") in
      make ?name ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" CategoryName.of_json in
      let code = field_map json__ "code" CategoryCode.of_json in
      make ?name ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON-formatted name/value pair that represents the category name and category code of the problem, selected from the DescribeServices response for each Amazon Web Services service."]
module DateInterval =
  struct
    type nonrec t =
      {
      startDateTime: ValidatedDateTime.t option
        [@ocaml.doc
          "A JSON object containing start and date time (UTC). Date and time format is RFC 3339 : 'yyyy-MM-dd'T'HH:mm:ss.SSSZZ'."];
      endDateTime: ValidatedDateTime.t option
        [@ocaml.doc
          "End Date Time (UTC). RFC 3339 format : 'yyyy-MM-dd'T'HH:mm:ss.SSSZZ'."]}
    let make ?startDateTime =
      fun ?endDateTime -> fun () -> { startDateTime; endDateTime }
    let to_value x =
      structure_to_value
        [("startDateTime",
           (Option.map x.startDateTime ~f:ValidatedDateTime.to_value));
        ("endDateTime",
          (Option.map x.endDateTime ~f:ValidatedDateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endDateTime =
        (Option.map ~f:ValidatedDateTime.of_xml)
          (Xml.child xml_arg0 "endDateTime") in
      let startDateTime =
        (Option.map ~f:ValidatedDateTime.of_xml)
          (Xml.child xml_arg0 "startDateTime") in
      make ?endDateTime ?startDateTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endDateTime =
        field_map json__ "endDateTime" ValidatedDateTime.of_json in
      let startDateTime =
        field_map json__ "startDateTime" ValidatedDateTime.of_json in
      make ?endDateTime ?startDateTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Date and time (UTC) format in RFC 3339 : 'yyyy-MM-dd'T'HH:mm:ss.SSSZZ'."]
module SupportedHour =
  struct
    type nonrec t =
      {
      startTime: StartTime.t option
        [@ocaml.doc "Start Time. RFC 3339 format 'HH:mm:ss.SSS'."];
      endTime: EndTime.t option
        [@ocaml.doc "End Time. RFC 3339 format 'HH:mm:ss.SSS'."]}
    let make ?startTime = fun ?endTime -> fun () -> { startTime; endTime }
    let to_value x =
      structure_to_value
        [("startTime", (Option.map x.startTime ~f:StartTime.to_value));
        ("endTime", (Option.map x.endTime ~f:EndTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTime =
        (Option.map ~f:EndTime.of_xml) (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:StartTime.of_xml) (Xml.child xml_arg0 "startTime") in
      make ?endTime ?startTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTime = field_map json__ "endTime" EndTime.of_json in
      let startTime = field_map json__ "startTime" StartTime.of_json in
      make ?endTime ?startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Time range object with startTime and endTime range in RFC 3339 format. 'HH:mm:ss.SSS'."]
module CcEmailAddress =
  struct
    type nonrec t = string
    let context_ = "CcEmailAddress"
    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:"CcEmailAddress" j
    let to_json = simple_to_json to_value
  end
module CommunicationList =
  struct
    type nonrec t = Communication.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:Communication.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:Communication.of_xml)
    let of_json j =
      list_of_json ~kind:"CommunicationList" ~of_json:Communication.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module TrustedAdvisorCategorySpecificSummary =
  struct
    type nonrec t =
      {
      costOptimizing: TrustedAdvisorCostOptimizingSummary.t option
        [@ocaml.doc
          "The summary information about cost savings for a Trusted Advisor check that is in the Cost Optimizing category."]}
    let make ?costOptimizing = fun () -> { costOptimizing }
    let to_value x =
      structure_to_value
        [("costOptimizing",
           (Option.map x.costOptimizing
              ~f:TrustedAdvisorCostOptimizingSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let costOptimizing =
        (Option.map ~f:TrustedAdvisorCostOptimizingSummary.of_xml)
          (Xml.child xml_arg0 "costOptimizing") in
      make ?costOptimizing ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let costOptimizing =
        field_map json__ "costOptimizing"
          TrustedAdvisorCostOptimizingSummary.of_json in
      make ?costOptimizing ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The container for summary information that relates to the category of the Trusted Advisor check."]
module TrustedAdvisorResourcesSummary =
  struct
    type nonrec t =
      {
      resourcesProcessed: Long.t option
        [@ocaml.doc
          "The number of Amazon Web Services resources that were analyzed by the Trusted Advisor check."];
      resourcesFlagged: Long.t option
        [@ocaml.doc
          "The number of Amazon Web Services resources that were flagged (listed) by the Trusted Advisor check."];
      resourcesIgnored: Long.t option
        [@ocaml.doc
          "The number of Amazon Web Services resources ignored by Trusted Advisor because information was unavailable."];
      resourcesSuppressed: Long.t option
        [@ocaml.doc
          "The number of Amazon Web Services resources ignored by Trusted Advisor because they were marked as suppressed by the user."]}
    let make ?resourcesProcessed =
      fun ?resourcesFlagged ->
        fun ?resourcesIgnored ->
          fun ?resourcesSuppressed ->
            fun () ->
              {
                resourcesProcessed;
                resourcesFlagged;
                resourcesIgnored;
                resourcesSuppressed
              }
    let to_value x =
      structure_to_value
        [("resourcesProcessed",
           (Option.map x.resourcesProcessed ~f:Long.to_value));
        ("resourcesFlagged",
          (Option.map x.resourcesFlagged ~f:Long.to_value));
        ("resourcesIgnored",
          (Option.map x.resourcesIgnored ~f:Long.to_value));
        ("resourcesSuppressed",
          (Option.map x.resourcesSuppressed ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourcesSuppressed =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "resourcesSuppressed") in
      let resourcesIgnored =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "resourcesIgnored") in
      let resourcesFlagged =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "resourcesFlagged") in
      let resourcesProcessed =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "resourcesProcessed") in
      make ?resourcesSuppressed ?resourcesIgnored ?resourcesFlagged
        ?resourcesProcessed ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourcesSuppressed =
        field_map json__ "resourcesSuppressed" Long.of_json in
      let resourcesIgnored = field_map json__ "resourcesIgnored" Long.of_json in
      let resourcesFlagged = field_map json__ "resourcesFlagged" Long.of_json in
      let resourcesProcessed =
        field_map json__ "resourcesProcessed" Long.of_json in
      make ?resourcesSuppressed ?resourcesIgnored ?resourcesFlagged
        ?resourcesProcessed ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about Amazon Web Services resources that were analyzed in a call to Trusted Advisor DescribeTrustedAdvisorCheckSummaries."]
module TrustedAdvisorResourceDetail =
  struct
    type nonrec t =
      {
      status: String_.t option
        [@ocaml.doc
          "The status code for the resource identified in the Trusted Advisor check."];
      region: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region in which the identified resource is located."];
      resourceId: String_.t option
        [@ocaml.doc "The unique identifier for the identified resource."];
      isSuppressed: Boolean.t option
        [@ocaml.doc
          "Specifies whether the Amazon Web Services resource was ignored by Trusted Advisor because it was marked as suppressed by the user."];
      metadata: StringList.t option
        [@ocaml.doc
          "Additional information about the identified resource. The exact metadata and its order can be obtained by inspecting the TrustedAdvisorCheckDescription object returned by the call to DescribeTrustedAdvisorChecks. Metadata contains all the data that is shown in the Excel download, even in those cases where the UI shows just summary data."]}
    let make ?status =
      fun ?region ->
        fun ?resourceId ->
          fun ?isSuppressed ->
            fun ?metadata ->
              fun () ->
                { status; region; resourceId; isSuppressed; metadata }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:String_.to_value));
        ("region", (Option.map x.region ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("isSuppressed", (Option.map x.isSuppressed ~f:Boolean.to_value));
        ("metadata", (Option.map x.metadata ~f:StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "metadata") in
      let isSuppressed =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isSuppressed") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "region") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      make ?metadata ?isSuppressed ?resourceId ?region ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map json__ "metadata" StringList.of_json in
      let isSuppressed = field_map json__ "isSuppressed" Boolean.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let region = field_map json__ "region" String_.of_json in
      let status = field_map json__ "status" String_.of_json in
      make ?metadata ?isSuppressed ?resourceId ?region ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a resource identified by a Trusted Advisor check."]
module Code =
  struct
    type nonrec t = string
    let context_ = "Code"
    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:"Code" j
    let to_json = simple_to_json to_value
  end
module Display =
  struct
    type nonrec t = string
    let context_ = "Display"
    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:"Display" j
    let to_json = simple_to_json to_value
  end
module Language =
  struct
    type nonrec t = string
    let context_ = "Language"
    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:"Language" j
    let to_json = simple_to_json to_value
  end
module SeverityLevelCode =
  struct
    type nonrec t = string
    let context_ = "SeverityLevelCode"
    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:"SeverityLevelCode" j
    let to_json = simple_to_json to_value
  end
module SeverityLevelName =
  struct
    type nonrec t = string
    let context_ = "SeverityLevelName"
    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:"SeverityLevelName" j
    let to_json = simple_to_json to_value
  end
module CategoryList =
  struct
    type nonrec t = Category.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:Category.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:Category.of_xml)
    let of_json j =
      list_of_json ~kind:"CategoryList" ~of_json:Category.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceCode =
  struct
    type nonrec t = string
    let context_ = "ServiceCode"
    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:"ServiceCode" j
    let to_json = simple_to_json to_value
  end
module ServiceName =
  struct
    type nonrec t = string
    let context_ = "ServiceName"
    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:"ServiceName" j
    let to_json = simple_to_json to_value
  end
module DatesWithoutSupportList =
  struct
    type nonrec t = DateInterval.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:DateInterval.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:DateInterval.of_xml)
    let of_json j =
      list_of_json ~kind:"DatesWithoutSupportList"
        ~of_json:DateInterval.of_json j
    let to_json v = composed_to_json to_value v
  end
module SupportedHoursList =
  struct
    type nonrec t = SupportedHour.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:SupportedHour.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:SupportedHour.of_xml)
    let of_json j =
      list_of_json ~kind:"SupportedHoursList" ~of_json:SupportedHour.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Type =
  struct
    type nonrec t = string
    let context_ = "Type"
    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:"Type" j
    let to_json = simple_to_json to_value
  end
module CcEmailAddressList =
  struct
    type nonrec t = CcEmailAddress.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CcEmailAddress.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:CcEmailAddress.of_xml)
    let of_json j =
      list_of_json ~kind:"CcEmailAddressList" ~of_json:CcEmailAddress.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module DisplayId =
  struct
    type nonrec t = string
    let context_ = "DisplayId"
    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:"DisplayId" j
    let to_json = simple_to_json to_value
  end
module RecentCaseCommunications =
  struct
    type nonrec t =
      {
      communications: CommunicationList.t option
        [@ocaml.doc
          "The five most recent communications associated with the case."];
      nextToken: NextToken.t option
        [@ocaml.doc "A resumption point for pagination."]}
    let make ?communications =
      fun ?nextToken -> fun () -> { communications; nextToken }
    let to_value x =
      structure_to_value
        [("communications",
           (Option.map x.communications ~f:CommunicationList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let communications =
        (Option.map ~f:CommunicationList.of_xml)
          (Xml.child xml_arg0 "communications") in
      make ?nextToken ?communications ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let communications =
        field_map json__ "communications" CommunicationList.of_json in
      make ?nextToken ?communications ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The five most recent communications associated with the case."]
module SeverityCode =
  struct
    type nonrec t = string
    let context_ = "SeverityCode"
    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:"SeverityCode" j
    let to_json = simple_to_json to_value
  end
module Status =
  struct
    type nonrec t = string
    let context_ = "Status"
    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:"Status" j
    let to_json = simple_to_json to_value
  end
module Subject =
  struct
    type nonrec t = string
    let context_ = "Subject"
    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:"Subject" j
    let to_json = simple_to_json to_value
  end
module Data =
  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 ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    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:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module AvailabilityErrorMessage =
  struct
    type nonrec t = string
    let context_ = "AvailabilityErrorMessage"
    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:"AvailabilityErrorMessage" j
    let to_json = simple_to_json to_value
  end
module TrustedAdvisorCheckDescription =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc "The unique identifier for the Trusted Advisor check."];
      name: String_.t option
        [@ocaml.doc "The display name for the Trusted Advisor check."];
      description: String_.t option
        [@ocaml.doc
          "The description of the Trusted Advisor check, which includes the alert criteria and recommended operations (contains HTML markup)."];
      category: String_.t option
        [@ocaml.doc "The category of the Trusted Advisor check."];
      metadata: StringList.t option
        [@ocaml.doc
          "The column headings for the data returned by the Trusted Advisor check. The order of the headings corresponds to the order of the data in the Metadata element of the TrustedAdvisorResourceDetail for the check. Metadata contains all the data that is shown in the Excel download, even in those cases where the UI shows just summary data."]}
    let make ?id =
      fun ?name ->
        fun ?description ->
          fun ?category ->
            fun ?metadata ->
              fun () -> { id; name; description; category; metadata }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:String_.to_value));
        ("name", (Option.map x.name ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("category", (Option.map x.category ~f:String_.to_value));
        ("metadata", (Option.map x.metadata ~f:StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "metadata") in
      let category =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "category") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      make ?metadata ?category ?description ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map json__ "metadata" StringList.of_json in
      let category = field_map json__ "category" String_.of_json in
      let description = field_map json__ "description" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      make ?metadata ?category ?description ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The description and metadata for a Trusted Advisor check."]
module TrustedAdvisorCheckSummary =
  struct
    type nonrec t =
      {
      checkId: String_.t option
        [@ocaml.doc "The unique identifier for the Trusted Advisor check."];
      timestamp: String_.t option
        [@ocaml.doc "The time of the last refresh of the check."];
      status: String_.t option
        [@ocaml.doc
          "The alert status of the check: \"ok\" (green), \"warning\" (yellow), \"error\" (red), or \"not_available\"."];
      hasFlaggedResources: Boolean.t option
        [@ocaml.doc
          "Specifies whether the Trusted Advisor check has flagged resources."];
      resourcesSummary: TrustedAdvisorResourcesSummary.t option ;
      categorySpecificSummary: TrustedAdvisorCategorySpecificSummary.t option
        [@ocaml.doc
          "Summary information that relates to the category of the check. Cost Optimizing is the only category that is currently supported."]}
    let make ?checkId =
      fun ?timestamp ->
        fun ?status ->
          fun ?hasFlaggedResources ->
            fun ?resourcesSummary ->
              fun ?categorySpecificSummary ->
                fun () ->
                  {
                    checkId;
                    timestamp;
                    status;
                    hasFlaggedResources;
                    resourcesSummary;
                    categorySpecificSummary
                  }
    let to_value x =
      structure_to_value
        [("checkId", (Option.map x.checkId ~f:String_.to_value));
        ("timestamp", (Option.map x.timestamp ~f:String_.to_value));
        ("status", (Option.map x.status ~f:String_.to_value));
        ("hasFlaggedResources",
          (Option.map x.hasFlaggedResources ~f:Boolean.to_value));
        ("resourcesSummary",
          (Option.map x.resourcesSummary
             ~f:TrustedAdvisorResourcesSummary.to_value));
        ("categorySpecificSummary",
          (Option.map x.categorySpecificSummary
             ~f:TrustedAdvisorCategorySpecificSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let categorySpecificSummary =
        (Option.map ~f:TrustedAdvisorCategorySpecificSummary.of_xml)
          (Xml.child xml_arg0 "categorySpecificSummary") in
      let resourcesSummary =
        (Option.map ~f:TrustedAdvisorResourcesSummary.of_xml)
          (Xml.child xml_arg0 "resourcesSummary") in
      let hasFlaggedResources =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "hasFlaggedResources") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let timestamp =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "timestamp") in
      let checkId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "checkId") in
      make ?categorySpecificSummary ?resourcesSummary ?hasFlaggedResources
        ?status ?timestamp ?checkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let categorySpecificSummary =
        field_map json__ "categorySpecificSummary"
          TrustedAdvisorCategorySpecificSummary.of_json in
      let resourcesSummary =
        field_map json__ "resourcesSummary"
          TrustedAdvisorResourcesSummary.of_json in
      let hasFlaggedResources =
        field_map json__ "hasFlaggedResources" Boolean.of_json in
      let status = field_map json__ "status" String_.of_json in
      let timestamp = field_map json__ "timestamp" String_.of_json in
      let checkId = field_map json__ "checkId" String_.of_json in
      make ?categorySpecificSummary ?resourcesSummary ?hasFlaggedResources
        ?status ?timestamp ?checkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary of a Trusted Advisor check result, including the alert status, last refresh, and number of resources examined."]
module TrustedAdvisorResourceDetailList =
  struct
    type nonrec t = TrustedAdvisorResourceDetail.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:TrustedAdvisorResourceDetail.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:TrustedAdvisorResourceDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"TrustedAdvisorResourceDetailList"
        ~of_json:TrustedAdvisorResourceDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module TrustedAdvisorCheckRefreshStatus =
  struct
    type nonrec t =
      {
      checkId: String_.t option
        [@ocaml.doc "The unique identifier for the Trusted Advisor check."];
      status: String_.t option
        [@ocaml.doc
          "The status of the Trusted Advisor check for which a refresh has been requested: none - The check is not refreshed or the non-success status exceeds the timeout enqueued - The check refresh requests has entered the refresh queue processing - The check refresh request is picked up by the rule processing engine success - The check is successfully refreshed abandoned - The check refresh has failed"];
      millisUntilNextRefreshable: Long.t option
        [@ocaml.doc
          "The amount of time, in milliseconds, until the Trusted Advisor check is eligible for refresh."]}
    let make ?checkId =
      fun ?status ->
        fun ?millisUntilNextRefreshable ->
          fun () -> { checkId; status; millisUntilNextRefreshable }
    let to_value x =
      structure_to_value
        [("checkId", (Option.map x.checkId ~f:String_.to_value));
        ("status", (Option.map x.status ~f:String_.to_value));
        ("millisUntilNextRefreshable",
          (Option.map x.millisUntilNextRefreshable ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let millisUntilNextRefreshable =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "millisUntilNextRefreshable") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let checkId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "checkId") in
      make ?millisUntilNextRefreshable ?status ?checkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let millisUntilNextRefreshable =
        field_map json__ "millisUntilNextRefreshable" Long.of_json in
      let status = field_map json__ "status" String_.of_json in
      let checkId = field_map json__ "checkId" String_.of_json in
      make ?millisUntilNextRefreshable ?status ?checkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The refresh status of a Trusted Advisor check."]
module SupportedLanguage =
  struct
    type nonrec t =
      {
      code: Code.t option [@ocaml.doc "2 digit ISO 639-1 code. e.g. en"];
      language: Language.t option
        [@ocaml.doc "Full language description e.g. ENGLISH"];
      display: Display.t option
        [@ocaml.doc "Language display value e.g. ENGLISH"]}
    let make ?code =
      fun ?language -> fun ?display -> fun () -> { code; language; display }
    let to_value x =
      structure_to_value
        [("code", (Option.map x.code ~f:Code.to_value));
        ("language", (Option.map x.language ~f:Language.to_value));
        ("display", (Option.map x.display ~f:Display.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let display =
        (Option.map ~f:Display.of_xml) (Xml.child xml_arg0 "display") in
      let language =
        (Option.map ~f:Language.of_xml) (Xml.child xml_arg0 "language") in
      let code = (Option.map ~f:Code.of_xml) (Xml.child xml_arg0 "code") in
      make ?display ?language ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let display = field_map json__ "display" Display.of_json in
      let language = field_map json__ "language" Language.of_json in
      let code = field_map json__ "code" Code.of_json in
      make ?display ?language ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON-formatted object that contains the available ISO 639-1 language code, language name and langauge display value. The language code is what should be used in the CreateCase call."]
module SeverityLevel =
  struct
    type nonrec t =
      {
      code: SeverityLevelCode.t option
        [@ocaml.doc
          "The code for case severity level. Valid values: low | normal | high | urgent | critical"];
      name: SeverityLevelName.t option
        [@ocaml.doc
          "The name of the severity level that corresponds to the severity level code. The values returned by the API are different from the values that appear in the Amazon Web Services Support Center. For example, the API uses the code low, but the name appears as General guidance in Support Center. The following are the API code names and how they appear in the console: low - General guidance normal - System impaired high - Production system impaired urgent - Production system down critical - Business-critical system down For more information, see Choosing a severity in the Amazon Web Services Support User Guide."]}
    let make ?code = fun ?name -> fun () -> { code; name }
    let to_value x =
      structure_to_value
        [("code", (Option.map x.code ~f:SeverityLevelCode.to_value));
        ("name", (Option.map x.name ~f:SeverityLevelName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:SeverityLevelName.of_xml) (Xml.child xml_arg0 "name") in
      let code =
        (Option.map ~f:SeverityLevelCode.of_xml) (Xml.child xml_arg0 "code") in
      make ?name ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" SeverityLevelName.of_json in
      let code = field_map json__ "code" SeverityLevelCode.of_json in
      make ?name ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A code and name pair that represents the severity level of a support case. The available values depend on the support plan for the account. For more information, see Choosing a severity in the Amazon Web Services Support User Guide."]
module Service =
  struct
    type nonrec t =
      {
      code: ServiceCode.t option
        [@ocaml.doc
          "The code for an Amazon Web Services service returned by the DescribeServices response. The name element contains the corresponding friendly name."];
      name: ServiceName.t option
        [@ocaml.doc
          "The friendly name for an Amazon Web Services service. The code element contains the corresponding code."];
      categories: CategoryList.t option
        [@ocaml.doc
          "A list of categories that describe the type of support issue a case describes. Categories consist of a category name and a category code. Category names and codes are passed to Amazon Web Services Support when you call CreateCase."]}
    let make ?code =
      fun ?name -> fun ?categories -> fun () -> { code; name; categories }
    let to_value x =
      structure_to_value
        [("code", (Option.map x.code ~f:ServiceCode.to_value));
        ("name", (Option.map x.name ~f:ServiceName.to_value));
        ("categories", (Option.map x.categories ~f:CategoryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let categories =
        (Option.map ~f:CategoryList.of_xml) (Xml.child xml_arg0 "categories") in
      let name =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "name") in
      let code =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "code") in
      make ?categories ?name ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let categories = field_map json__ "categories" CategoryList.of_json in
      let name = field_map json__ "name" ServiceName.of_json in
      let code = field_map json__ "code" ServiceCode.of_json in
      make ?categories ?name ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about an Amazon Web Services service returned by the DescribeServices operation."]
module CommunicationTypeOptions =
  struct
    type nonrec t =
      {
      type_: Type.t option
        [@ocaml.doc
          "A string value indicating the communication type. At the moment the type value can assume one of 3 values at the moment chat, web and call."];
      supportedHours: SupportedHoursList.t option
        [@ocaml.doc
          "A JSON-formatted list containing time ranges when support is available."];
      datesWithoutSupport: DatesWithoutSupportList.t option
        [@ocaml.doc
          "A JSON-formatted list containing date and time ranges for periods without support"]}
    let make ?type_ =
      fun ?supportedHours ->
        fun ?datesWithoutSupport ->
          fun () -> { type_; supportedHours; datesWithoutSupport }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:Type.to_value));
        ("supportedHours",
          (Option.map x.supportedHours ~f:SupportedHoursList.to_value));
        ("datesWithoutSupport",
          (Option.map x.datesWithoutSupport
             ~f:DatesWithoutSupportList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datesWithoutSupport =
        (Option.map ~f:DatesWithoutSupportList.of_xml)
          (Xml.child xml_arg0 "datesWithoutSupport") in
      let supportedHours =
        (Option.map ~f:SupportedHoursList.of_xml)
          (Xml.child xml_arg0 "supportedHours") in
      let type_ = (Option.map ~f:Type.of_xml) (Xml.child xml_arg0 "type") in
      make ?datesWithoutSupport ?supportedHours ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datesWithoutSupport =
        field_map json__ "datesWithoutSupport"
          DatesWithoutSupportList.of_json in
      let supportedHours =
        field_map json__ "supportedHours" SupportedHoursList.of_json in
      let type_ = field_map json__ "type" Type.of_json in
      make ?datesWithoutSupport ?supportedHours ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON-formatted object that contains the CommunicationTypeOptions for creating a case for a certain communication channel. It is contained in the response from a DescribeCreateCaseOptions request. CommunicationTypeOptions contains the following fields: datesWithoutSupport - A JSON-formatted list containing date and time ranges for periods without support in UTC time. Date and time format is RFC 3339 : 'yyyy-MM-dd'T'HH:mm:ss.SSSZZ'. supportedHours - A JSON-formatted list containing time ranges when support are available. Time format is RFC 3339 : 'HH:mm:ss.SSS'. type - A string value indicating the communication type that the aforementioned rules apply to. At the moment the type value can assume one of 3 values at the moment chat, web and call."]
module CaseDetails =
  struct
    type nonrec t =
      {
      caseId: CaseId.t option
        [@ocaml.doc
          "The support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-12345678910-2013-c4c1d2bf33c5cf47"];
      displayId: DisplayId.t option
        [@ocaml.doc
          "The ID displayed for the case in the Amazon Web Services Support Center. This is a numeric string."];
      subject: Subject.t option
        [@ocaml.doc
          "The subject line for the case in the Amazon Web Services Support Center."];
      status: Status.t option
        [@ocaml.doc
          "The status of the case. Valid values: all-open customer-action-completed opened pending-customer-action reopened resolved unassigned work-in-progress"];
      serviceCode: ServiceCode.t option
        [@ocaml.doc
          "The code for the Amazon Web Services service. You can get a list of codes and the corresponding service names by calling DescribeServices."];
      categoryCode: CategoryCode.t option
        [@ocaml.doc "The category of problem for the support case."];
      severityCode: SeverityCode.t option
        [@ocaml.doc
          "The code for the severity level returned by the call to DescribeSeverityLevels."];
      submittedBy: SubmittedBy.t option
        [@ocaml.doc
          "The email address of the account that submitted the case."];
      timeCreated: TimeCreated.t option
        [@ocaml.doc
          "The time that the case was created in the Amazon Web Services Support Center."];
      recentCommunications: RecentCaseCommunications.t option
        [@ocaml.doc
          "The five most recent communications between you and Amazon Web Services Support Center, including the IDs of any attachments to the communications. Also includes a nextToken that you can use to retrieve earlier communications."];
      ccEmailAddresses: CcEmailAddressList.t option
        [@ocaml.doc
          "The email addresses that receive copies of communication about the case."];
      language: Language.t option
        [@ocaml.doc
          "The language in which Amazon Web Services Support handles the case. Amazon Web Services Support currently supports Chinese (\226\128\156zh\226\128\157), English (\"en\"), Japanese (\"ja\") and Korean (\226\128\156ko\226\128\157). You must specify the ISO 639-1 code for the language parameter if you want support in that language."]}
    let make ?caseId =
      fun ?displayId ->
        fun ?subject ->
          fun ?status ->
            fun ?serviceCode ->
              fun ?categoryCode ->
                fun ?severityCode ->
                  fun ?submittedBy ->
                    fun ?timeCreated ->
                      fun ?recentCommunications ->
                        fun ?ccEmailAddresses ->
                          fun ?language ->
                            fun () ->
                              {
                                caseId;
                                displayId;
                                subject;
                                status;
                                serviceCode;
                                categoryCode;
                                severityCode;
                                submittedBy;
                                timeCreated;
                                recentCommunications;
                                ccEmailAddresses;
                                language
                              }
    let to_value x =
      structure_to_value
        [("caseId", (Option.map x.caseId ~f:CaseId.to_value));
        ("displayId", (Option.map x.displayId ~f:DisplayId.to_value));
        ("subject", (Option.map x.subject ~f:Subject.to_value));
        ("status", (Option.map x.status ~f:Status.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:ServiceCode.to_value));
        ("categoryCode",
          (Option.map x.categoryCode ~f:CategoryCode.to_value));
        ("severityCode",
          (Option.map x.severityCode ~f:SeverityCode.to_value));
        ("submittedBy", (Option.map x.submittedBy ~f:SubmittedBy.to_value));
        ("timeCreated", (Option.map x.timeCreated ~f:TimeCreated.to_value));
        ("recentCommunications",
          (Option.map x.recentCommunications
             ~f:RecentCaseCommunications.to_value));
        ("ccEmailAddresses",
          (Option.map x.ccEmailAddresses ~f:CcEmailAddressList.to_value));
        ("language", (Option.map x.language ~f:Language.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let language =
        (Option.map ~f:Language.of_xml) (Xml.child xml_arg0 "language") in
      let ccEmailAddresses =
        (Option.map ~f:CcEmailAddressList.of_xml)
          (Xml.child xml_arg0 "ccEmailAddresses") in
      let recentCommunications =
        (Option.map ~f:RecentCaseCommunications.of_xml)
          (Xml.child xml_arg0 "recentCommunications") in
      let timeCreated =
        (Option.map ~f:TimeCreated.of_xml) (Xml.child xml_arg0 "timeCreated") in
      let submittedBy =
        (Option.map ~f:SubmittedBy.of_xml) (Xml.child xml_arg0 "submittedBy") in
      let severityCode =
        (Option.map ~f:SeverityCode.of_xml)
          (Xml.child xml_arg0 "severityCode") in
      let categoryCode =
        (Option.map ~f:CategoryCode.of_xml)
          (Xml.child xml_arg0 "categoryCode") in
      let serviceCode =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "status") in
      let subject =
        (Option.map ~f:Subject.of_xml) (Xml.child xml_arg0 "subject") in
      let displayId =
        (Option.map ~f:DisplayId.of_xml) (Xml.child xml_arg0 "displayId") in
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "caseId") in
      make ?language ?ccEmailAddresses ?recentCommunications ?timeCreated
        ?submittedBy ?severityCode ?categoryCode ?serviceCode ?status
        ?subject ?displayId ?caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let language = field_map json__ "language" Language.of_json in
      let ccEmailAddresses =
        field_map json__ "ccEmailAddresses" CcEmailAddressList.of_json in
      let recentCommunications =
        field_map json__ "recentCommunications"
          RecentCaseCommunications.of_json in
      let timeCreated = field_map json__ "timeCreated" TimeCreated.of_json in
      let submittedBy = field_map json__ "submittedBy" SubmittedBy.of_json in
      let severityCode = field_map json__ "severityCode" SeverityCode.of_json in
      let categoryCode = field_map json__ "categoryCode" CategoryCode.of_json in
      let serviceCode = field_map json__ "serviceCode" ServiceCode.of_json in
      let status = field_map json__ "status" Status.of_json in
      let subject = field_map json__ "subject" Subject.of_json in
      let displayId = field_map json__ "displayId" DisplayId.of_json in
      let caseId = field_map json__ "caseId" CaseId.of_json in
      make ?language ?ccEmailAddresses ?recentCommunications ?timeCreated
        ?submittedBy ?severityCode ?categoryCode ?serviceCode ?status
        ?subject ?displayId ?caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON-formatted object that contains the metadata for a support case. It is contained in the response from a DescribeCases request. CaseDetails contains the following fields: caseId - The support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-12345678910-2013-c4c1d2bf33c5cf47. categoryCode - The category of problem for the support case. Corresponds to the CategoryCode values returned by a call to DescribeServices. displayId - The identifier for the case on pages in the Amazon Web Services Support Center. language - The language in which Amazon Web Services Support handles the case. Amazon Web Services Support currently supports Chinese (\226\128\156zh\226\128\157), English (\"en\"), Japanese (\"ja\") and Korean (\226\128\156ko\226\128\157). You must specify the ISO 639-1 code for the language parameter if you want support in that language. nextToken - A resumption point for pagination. recentCommunications - One or more Communication objects. Fields of these objects are attachments, body, caseId, submittedBy, and timeCreated. serviceCode - The identifier for the Amazon Web Services service that corresponds to the service code defined in the call to DescribeServices. severityCode - The severity code assigned to the case. Contains one of the values returned by the call to DescribeSeverityLevels. The possible values are: low, normal, high, urgent, and critical. status - The status of the case in the Amazon Web Services Support Center. Valid values: all-open customer-action-completed opened pending-customer-action reopened resolved unassigned work-in-progress subject - The subject line of the case. submittedBy - The email address of the account that submitted the case. timeCreated - The time the case was created, in ISO-8601 format."]
module Attachment =
  struct
    type nonrec t =
      {
      fileName: FileName.t option
        [@ocaml.doc "The name of the attachment file."];
      data: Data.t option [@ocaml.doc "The content of the attachment file."]}
    let make ?fileName = fun ?data -> fun () -> { fileName; data }
    let to_value x =
      structure_to_value
        [("fileName", (Option.map x.fileName ~f:FileName.to_value));
        ("data", (Option.map x.data ~f:Data.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let data = (Option.map ~f:Data.of_xml) (Xml.child xml_arg0 "data") in
      let fileName =
        (Option.map ~f:FileName.of_xml) (Xml.child xml_arg0 "fileName") in
      make ?data ?fileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let data = field_map json__ "data" Data.of_json in
      let fileName = field_map json__ "fileName" FileName.of_json in
      make ?data ?fileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An attachment to a case communication. The attachment consists of the file name and the content of the file. Each attachment file size should not exceed 5 MB. File types that are supported include the following: pdf, jpeg,.doc, .log, .text"]
module CaseIdNotFound =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc "The requested CaseId could not be located."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The requested caseId couldn't be located."]
module CaseStatus =
  struct
    type nonrec t = string
    let context_ = "CaseStatus"
    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:"CaseStatus" j
    let to_json = simple_to_json to_value
  end
module InternalServerError =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc "An internal server error occurred."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An internal server error occurred."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: AvailabilityErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message",
           (Option.map x.message ~f:AvailabilityErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:AvailabilityErrorMessage.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" AvailabilityErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You have exceeded the maximum allowed TPS (Transactions Per Second) for the operations."]
module TrustedAdvisorCheckList =
  struct
    type nonrec t = TrustedAdvisorCheckDescription.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:TrustedAdvisorCheckDescription.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:TrustedAdvisorCheckDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"TrustedAdvisorCheckList"
        ~of_json:TrustedAdvisorCheckDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module TrustedAdvisorCheckSummaryList =
  struct
    type nonrec t = TrustedAdvisorCheckSummary.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:TrustedAdvisorCheckSummary.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:TrustedAdvisorCheckSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"TrustedAdvisorCheckSummaryList"
        ~of_json:TrustedAdvisorCheckSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module TrustedAdvisorCheckResult =
  struct
    type nonrec t =
      {
      checkId: String_.t option
        [@ocaml.doc "The unique identifier for the Trusted Advisor check."];
      timestamp: String_.t option
        [@ocaml.doc "The time of the last refresh of the check."];
      status: String_.t option
        [@ocaml.doc
          "The alert status of the check: \"ok\" (green), \"warning\" (yellow), \"error\" (red), or \"not_available\"."];
      resourcesSummary: TrustedAdvisorResourcesSummary.t option ;
      categorySpecificSummary: TrustedAdvisorCategorySpecificSummary.t option
        [@ocaml.doc
          "Summary information that relates to the category of the check. Cost Optimizing is the only category that is currently supported."];
      flaggedResources: TrustedAdvisorResourceDetailList.t option
        [@ocaml.doc
          "The details about each resource listed in the check result."]}
    let make ?checkId =
      fun ?timestamp ->
        fun ?status ->
          fun ?resourcesSummary ->
            fun ?categorySpecificSummary ->
              fun ?flaggedResources ->
                fun () ->
                  {
                    checkId;
                    timestamp;
                    status;
                    resourcesSummary;
                    categorySpecificSummary;
                    flaggedResources
                  }
    let to_value x =
      structure_to_value
        [("checkId", (Option.map x.checkId ~f:String_.to_value));
        ("timestamp", (Option.map x.timestamp ~f:String_.to_value));
        ("status", (Option.map x.status ~f:String_.to_value));
        ("resourcesSummary",
          (Option.map x.resourcesSummary
             ~f:TrustedAdvisorResourcesSummary.to_value));
        ("categorySpecificSummary",
          (Option.map x.categorySpecificSummary
             ~f:TrustedAdvisorCategorySpecificSummary.to_value));
        ("flaggedResources",
          (Option.map x.flaggedResources
             ~f:TrustedAdvisorResourceDetailList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let flaggedResources =
        (Option.map ~f:TrustedAdvisorResourceDetailList.of_xml)
          (Xml.child xml_arg0 "flaggedResources") in
      let categorySpecificSummary =
        (Option.map ~f:TrustedAdvisorCategorySpecificSummary.of_xml)
          (Xml.child xml_arg0 "categorySpecificSummary") in
      let resourcesSummary =
        (Option.map ~f:TrustedAdvisorResourcesSummary.of_xml)
          (Xml.child xml_arg0 "resourcesSummary") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let timestamp =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "timestamp") in
      let checkId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "checkId") in
      make ?flaggedResources ?categorySpecificSummary ?resourcesSummary
        ?status ?timestamp ?checkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let flaggedResources =
        field_map json__ "flaggedResources"
          TrustedAdvisorResourceDetailList.of_json in
      let categorySpecificSummary =
        field_map json__ "categorySpecificSummary"
          TrustedAdvisorCategorySpecificSummary.of_json in
      let resourcesSummary =
        field_map json__ "resourcesSummary"
          TrustedAdvisorResourcesSummary.of_json in
      let status = field_map json__ "status" String_.of_json in
      let timestamp = field_map json__ "timestamp" String_.of_json in
      let checkId = field_map json__ "checkId" String_.of_json in
      make ?flaggedResources ?categorySpecificSummary ?resourcesSummary
        ?status ?timestamp ?checkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The results of a Trusted Advisor check returned by DescribeTrustedAdvisorCheckResult."]
module TrustedAdvisorCheckRefreshStatusList =
  struct
    type nonrec t = TrustedAdvisorCheckRefreshStatus.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:TrustedAdvisorCheckRefreshStatus.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:TrustedAdvisorCheckRefreshStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"TrustedAdvisorCheckRefreshStatusList"
        ~of_json:TrustedAdvisorCheckRefreshStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module SupportedLanguagesList =
  struct
    type nonrec t = SupportedLanguage.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SupportedLanguage.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:SupportedLanguage.of_xml)
    let of_json j =
      list_of_json ~kind:"SupportedLanguagesList"
        ~of_json:SupportedLanguage.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidatedCategoryCode =
  struct
    type nonrec t = string
    let context_ = "ValidatedCategoryCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ValidatedCategoryCode" j
    let to_json = simple_to_json to_value
  end
module ValidatedIssueTypeString =
  struct
    type nonrec t = string
    let context_ = "ValidatedIssueTypeString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:22) >>=
             (fun () -> check_string_min i ~min:9));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ValidatedIssueTypeString" j
    let to_json = simple_to_json to_value
  end
module ValidatedServiceCode =
  struct
    type nonrec t = string
    let context_ = "ValidatedServiceCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ValidatedServiceCode" j
    let to_json = simple_to_json to_value
  end
module SeverityLevelsList =
  struct
    type nonrec t = SeverityLevel.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:SeverityLevel.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:SeverityLevel.of_xml)
    let of_json j =
      list_of_json ~kind:"SeverityLevelsList" ~of_json:SeverityLevel.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ServiceList =
  struct
    type nonrec t = Service.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:Service.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:Service.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceList" ~of_json:Service.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceCodeList =
  struct
    type nonrec t = ServiceCode.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ServiceCode.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:ServiceCode.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceCodeList" ~of_json:ServiceCode.of_json j
    let to_json v = composed_to_json to_value v
  end
module CommunicationTypeOptionsList =
  struct
    type nonrec t = CommunicationTypeOptions.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CommunicationTypeOptions.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:CommunicationTypeOptions.of_xml)
    let of_json j =
      list_of_json ~kind:"CommunicationTypeOptionsList"
        ~of_json:CommunicationTypeOptions.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidatedLanguageAvailability =
  struct
    type nonrec t = string
    let context_ = "ValidatedLanguageAvailability"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ValidatedLanguageAvailability" j
    let to_json = simple_to_json to_value
  end
module IssueType =
  struct
    type nonrec t = string
    let context_ = "IssueType"
    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:"IssueType" j
    let to_json = simple_to_json to_value
  end
module AfterTime =
  struct
    type nonrec t = string
    let context_ = "AfterTime"
    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:"AfterTime" j
    let to_json = simple_to_json to_value
  end
module BeforeTime =
  struct
    type nonrec t = string
    let context_ = "BeforeTime"
    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:"BeforeTime" j
    let to_json = simple_to_json to_value
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:10));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module CaseList =
  struct
    type nonrec t = CaseDetails.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:CaseDetails.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:CaseDetails.of_xml)
    let of_json j =
      list_of_json ~kind:"CaseList" ~of_json:CaseDetails.of_json j
    let to_json v = composed_to_json to_value v
  end
module CaseIdList =
  struct
    type nonrec t = CaseId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CaseId.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:CaseId.of_xml)
    let of_json j = list_of_json ~kind:"CaseIdList" ~of_json:CaseId.of_json j
    let to_json v = composed_to_json to_value v
  end
module IncludeCommunications =
  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 IncludeResolvedCases =
  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 AttachmentIdNotFound =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc
          "An attachment with the specified ID could not be found."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An attachment with the specified ID could not be found."]
module DescribeAttachmentLimitExceeded =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc
          "The limit for the number of DescribeAttachment requests in a short period of time has been exceeded."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The limit for the number of DescribeAttachment requests in a short period of time has been exceeded."]
module AttachmentSetExpired =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc
          "The expiration time of the attachment set has passed. The set expires one hour after it is created."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The expiration time of the attachment set has passed. The set expires 1 hour after it is created."]
module AttachmentSetIdNotFound =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc
          "An attachment set with the specified ID could not be found."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An attachment set with the specified ID could not be found."]
module CaseCreationLimitExceeded =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc
          "An error message that indicates that you have exceeded the number of cases you can have open."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The case creation limit for the account has been exceeded."]
module AttachmentSetId =
  struct
    type nonrec t = string
    let context_ = "AttachmentSetId"
    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:"AttachmentSetId" j
    let to_json = simple_to_json to_value
  end
module CommunicationBody =
  struct
    type nonrec t = string
    let context_ = "CommunicationBody"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:8000) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CommunicationBody" j
    let to_json = simple_to_json to_value
  end
module Result_ =
  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 AttachmentLimitExceeded =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc
          "The limit for the number of attachment sets created in a short period of time has been exceeded."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The limit for the number of attachment sets created in a short period of time has been exceeded."]
module AttachmentSetSizeLimitExceeded =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc
          "A limit for the size of an attachment set has been exceeded. The limits are three attachments and 5 MB per attachment."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A limit for the size of an attachment set has been exceeded. The limits are three attachments and 5 MB per attachment."]
module ExpiryTime =
  struct
    type nonrec t = string
    let context_ = "ExpiryTime"
    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:"ExpiryTime" j
    let to_json = simple_to_json to_value
  end
module Attachments =
  struct
    type nonrec t = Attachment.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:Attachment.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:Attachment.of_xml)
    let of_json j =
      list_of_json ~kind:"Attachments" ~of_json:Attachment.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResolveCaseResponse =
  struct
    type nonrec t =
      {
      initialCaseStatus: CaseStatus.t option
        [@ocaml.doc
          "The status of the case when the ResolveCase request was sent."];
      finalCaseStatus: CaseStatus.t option
        [@ocaml.doc
          "The status of the case after the ResolveCase request was processed."]}
    type nonrec error =
      [ `CaseIdNotFound of CaseIdNotFound.t 
      | `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?initialCaseStatus =
      fun ?finalCaseStatus ->
        fun () -> { initialCaseStatus; finalCaseStatus }
    let error_of_json name json =
      match name with
      | "CaseIdNotFound" -> `CaseIdNotFound (CaseIdNotFound.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CaseIdNotFound" -> `CaseIdNotFound (CaseIdNotFound.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CaseIdNotFound e ->
          `Assoc
            [("error", (`String "CaseIdNotFound"));
            ("details", (CaseIdNotFound.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("initialCaseStatus",
           (Option.map x.initialCaseStatus ~f:CaseStatus.to_value));
        ("finalCaseStatus",
          (Option.map x.finalCaseStatus ~f:CaseStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let finalCaseStatus =
        (Option.map ~f:CaseStatus.of_xml)
          (Xml.child xml_arg0 "finalCaseStatus") in
      let initialCaseStatus =
        (Option.map ~f:CaseStatus.of_xml)
          (Xml.child xml_arg0 "initialCaseStatus") in
      make ?finalCaseStatus ?initialCaseStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let finalCaseStatus =
        field_map json__ "finalCaseStatus" CaseStatus.of_json in
      let initialCaseStatus =
        field_map json__ "initialCaseStatus" CaseStatus.of_json in
      make ?finalCaseStatus ?initialCaseStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The status of the case returned by the ResolveCase operation."]
module ResolveCaseRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t option
        [@ocaml.doc
          "The support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-12345678910-2013-c4c1d2bf33c5cf47"]}
    let make ?caseId = fun () -> { caseId }
    let to_value x =
      structure_to_value
        [("caseId", (Option.map x.caseId ~f:CaseId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "caseId") in
      make ?caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseId = field_map json__ "caseId" CaseId.of_json in
      make ?caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Resolves a support case. This operation takes a caseId and returns the initial and final state of the case. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support."]
module RefreshTrustedAdvisorCheckResponse =
  struct
    type nonrec t =
      {
      status: TrustedAdvisorCheckRefreshStatus.t option
        [@ocaml.doc
          "The current refresh status for a check, including the amount of time until the check is eligible for refresh."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("status",
           (Option.map x.status ~f:TrustedAdvisorCheckRefreshStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:TrustedAdvisorCheckRefreshStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "status" TrustedAdvisorCheckRefreshStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The current refresh status of a Trusted Advisor check."]
module RefreshTrustedAdvisorCheckRequest =
  struct
    type nonrec t =
      {
      checkId: String_.t
        [@ocaml.doc
          "The unique identifier for the Trusted Advisor check to refresh. Specifying the check ID of a check that is automatically refreshed causes an InvalidParameterValue error."]}
    let context_ = "RefreshTrustedAdvisorCheckRequest"
    let make ~checkId = fun () -> { checkId }
    let to_value x =
      structure_to_value [("checkId", (Some (String_.to_value x.checkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let checkId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "checkId") in
      make ~checkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let checkId = field_map_exn json__ "checkId" String_.of_json in
      make ~checkId ()
    let to_json v = composed_to_json to_value v
  end
module DescribeTrustedAdvisorChecksResponse =
  struct
    type nonrec t =
      {
      checks: TrustedAdvisorCheckList.t option
        [@ocaml.doc
          "Information about all available Trusted Advisor checks."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?checks = fun () -> { checks }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("checks",
           (Option.map x.checks ~f:TrustedAdvisorCheckList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let checks =
        (Option.map ~f:TrustedAdvisorCheckList.of_xml)
          (Xml.child xml_arg0 "checks") in
      make ?checks ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let checks = field_map json__ "checks" TrustedAdvisorCheckList.of_json in
      make ?checks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the Trusted Advisor checks returned by the DescribeTrustedAdvisorChecks operation."]
module DescribeTrustedAdvisorChecksRequest =
  struct
    type nonrec t =
      {
      language: String_.t
        [@ocaml.doc
          "The ISO 639-1 code for the language that you want your checks to appear in. The Amazon Web Services Support API currently supports the following languages for Trusted Advisor: Chinese, Simplified - zh Chinese, Traditional - zh_TW English - en French - fr German - de Indonesian - id Italian - it Japanese - ja Korean - ko Portuguese, Brazilian - pt_BR Spanish - es"]}
    let context_ = "DescribeTrustedAdvisorChecksRequest"
    let make ~language = fun () -> { language }
    let to_value x =
      structure_to_value [("language", (Some (String_.to_value x.language)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let language =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "language") in
      make ~language ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let language = field_map_exn json__ "language" String_.of_json in
      make ~language ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about all available Trusted Advisor checks, including the name, ID, category, description, and metadata. You must specify a language code. The response contains a TrustedAdvisorCheckDescription object for each check. You must set the Amazon Web Services Region to us-east-1. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support. The names and descriptions for Trusted Advisor checks are subject to change. We recommend that you specify the check ID in your code to uniquely identify a check. To call the Trusted Advisor operations in the Amazon Web Services Support API, you must use the US East (N. Virginia) endpoint. Currently, the US West (Oregon) and Europe (Ireland) endpoints don't support the Trusted Advisor operations. For more information, see About the Amazon Web Services Support API in the Amazon Web Services Support User Guide."]
module DescribeTrustedAdvisorCheckSummariesResponse =
  struct
    type nonrec t =
      {
      summaries: TrustedAdvisorCheckSummaryList.t option
        [@ocaml.doc
          "The summary information for the requested Trusted Advisor checks."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?summaries = fun () -> { summaries }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("summaries",
           (Option.map x.summaries ~f:TrustedAdvisorCheckSummaryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let summaries =
        (Option.map ~f:TrustedAdvisorCheckSummaryList.of_xml)
          (Xml.child xml_arg0 "summaries") in
      make ?summaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let summaries =
        field_map json__ "summaries" TrustedAdvisorCheckSummaryList.of_json in
      make ?summaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The summaries of the Trusted Advisor checks returned by the DescribeTrustedAdvisorCheckSummaries operation."]
module DescribeTrustedAdvisorCheckSummariesRequest =
  struct
    type nonrec t =
      {
      checkIds: StringList.t
        [@ocaml.doc "The IDs of the Trusted Advisor checks."]}
    let context_ = "DescribeTrustedAdvisorCheckSummariesRequest"
    let make ~checkIds = fun () -> { checkIds }
    let to_value x =
      structure_to_value
        [("checkIds", (Some (StringList.to_value x.checkIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let checkIds =
        StringList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "checkIds") in
      make ~checkIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let checkIds = field_map_exn json__ "checkIds" StringList.of_json in
      make ~checkIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the results for the Trusted Advisor check summaries for the check IDs that you specified. You can get the check IDs by calling the DescribeTrustedAdvisorChecks operation. The response contains an array of TrustedAdvisorCheckSummary objects. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support. To call the Trusted Advisor operations in the Amazon Web Services Support API, you must use the US East (N. Virginia) endpoint. Currently, the US West (Oregon) and Europe (Ireland) endpoints don't support the Trusted Advisor operations. For more information, see About the Amazon Web Services Support API in the Amazon Web Services Support User Guide."]
module DescribeTrustedAdvisorCheckResultResponse =
  struct
    type nonrec t =
      {
      result: TrustedAdvisorCheckResult.t option
        [@ocaml.doc "The detailed results of the Trusted Advisor check."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?result = fun () -> { result }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("result",
           (Option.map x.result ~f:TrustedAdvisorCheckResult.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let result =
        (Option.map ~f:TrustedAdvisorCheckResult.of_xml)
          (Xml.child xml_arg0 "result") in
      make ?result ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let result =
        field_map json__ "result" TrustedAdvisorCheckResult.of_json in
      make ?result ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result of the Trusted Advisor check returned by the DescribeTrustedAdvisorCheckResult operation."]
module DescribeTrustedAdvisorCheckResultRequest =
  struct
    type nonrec t =
      {
      checkId: String_.t
        [@ocaml.doc "The unique identifier for the Trusted Advisor check."];
      language: String_.t option
        [@ocaml.doc
          "The ISO 639-1 code for the language that you want your check results to appear in. The Amazon Web Services Support API currently supports the following languages for Trusted Advisor: Chinese, Simplified - zh Chinese, Traditional - zh_TW English - en French - fr German - de Indonesian - id Italian - it Japanese - ja Korean - ko Portuguese, Brazilian - pt_BR Spanish - es"]}
    let context_ = "DescribeTrustedAdvisorCheckResultRequest"
    let make ?language = fun ~checkId -> fun () -> { language; checkId }
    let to_value x =
      structure_to_value
        [("checkId", (Some (String_.to_value x.checkId)));
        ("language", (Option.map x.language ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let language =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "language") in
      let checkId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "checkId") in
      make ?language ~checkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let language = field_map json__ "language" String_.of_json in
      let checkId = field_map_exn json__ "checkId" String_.of_json in
      make ?language ~checkId ()
    let to_json v = composed_to_json to_value v
  end
module DescribeTrustedAdvisorCheckRefreshStatusesResponse =
  struct
    type nonrec t =
      {
      statuses: TrustedAdvisorCheckRefreshStatusList.t option
        [@ocaml.doc
          "The refresh status of the specified Trusted Advisor checks."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?statuses = fun () -> { statuses }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("statuses",
           (Option.map x.statuses
              ~f:TrustedAdvisorCheckRefreshStatusList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statuses =
        (Option.map ~f:TrustedAdvisorCheckRefreshStatusList.of_xml)
          (Xml.child xml_arg0 "statuses") in
      make ?statuses ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statuses =
        field_map json__ "statuses"
          TrustedAdvisorCheckRefreshStatusList.of_json in
      make ?statuses ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The statuses of the Trusted Advisor checks returned by the DescribeTrustedAdvisorCheckRefreshStatuses operation."]
module DescribeTrustedAdvisorCheckRefreshStatusesRequest =
  struct
    type nonrec t =
      {
      checkIds: StringList.t
        [@ocaml.doc
          "The IDs of the Trusted Advisor checks to get the status. If you specify the check ID of a check that is automatically refreshed, you might see an InvalidParameterValue error."]}
    let context_ = "DescribeTrustedAdvisorCheckRefreshStatusesRequest"
    let make ~checkIds = fun () -> { checkIds }
    let to_value x =
      structure_to_value
        [("checkIds", (Some (StringList.to_value x.checkIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let checkIds =
        StringList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "checkIds") in
      make ~checkIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let checkIds = field_map_exn json__ "checkIds" StringList.of_json in
      make ~checkIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the refresh status of the Trusted Advisor checks that have the specified check IDs. You can get the check IDs by calling the DescribeTrustedAdvisorChecks operation. Some checks are refreshed automatically, and you can't return their refresh statuses by using the DescribeTrustedAdvisorCheckRefreshStatuses operation. If you call this operation for these checks, you might see an InvalidParameterValue error. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support. To call the Trusted Advisor operations in the Amazon Web Services Support API, you must use the US East (N. Virginia) endpoint. Currently, the US West (Oregon) and Europe (Ireland) endpoints don't support the Trusted Advisor operations. For more information, see About the Amazon Web Services Support API in the Amazon Web Services Support User Guide."]
module DescribeSupportedLanguagesResponse =
  struct
    type nonrec t =
      {
      supportedLanguages: SupportedLanguagesList.t option
        [@ocaml.doc
          "A JSON-formatted array that contains the available ISO 639-1 language codes."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?supportedLanguages = fun () -> { supportedLanguages }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("supportedLanguages",
           (Option.map x.supportedLanguages
              ~f:SupportedLanguagesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedLanguages =
        (Option.map ~f:SupportedLanguagesList.of_xml)
          (Xml.child xml_arg0 "supportedLanguages") in
      make ?supportedLanguages ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedLanguages =
        field_map json__ "supportedLanguages" SupportedLanguagesList.of_json in
      make ?supportedLanguages ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of supported languages for a specified categoryCode, issueType and serviceCode. The returned supported languages will include a ISO 639-1 code for the language, and the language display name. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support."]
module DescribeSupportedLanguagesRequest =
  struct
    type nonrec t =
      {
      issueType: ValidatedIssueTypeString.t
        [@ocaml.doc
          "The type of issue for the case. You can specify customer-service or technical."];
      serviceCode: ValidatedServiceCode.t
        [@ocaml.doc
          "The code for the Amazon Web Services service. You can use the DescribeServices operation to get the possible serviceCode values."];
      categoryCode: ValidatedCategoryCode.t
        [@ocaml.doc
          "The category of problem for the support case. You also use the DescribeServices operation to get the category code for a service. Each Amazon Web Services service defines its own set of category codes."]}
    let context_ = "DescribeSupportedLanguagesRequest"
    let make ~issueType =
      fun ~serviceCode ->
        fun ~categoryCode ->
          fun () -> { issueType; serviceCode; categoryCode }
    let to_value x =
      structure_to_value
        [("issueType",
           (Some (ValidatedIssueTypeString.to_value x.issueType)));
        ("serviceCode", (Some (ValidatedServiceCode.to_value x.serviceCode)));
        ("categoryCode",
          (Some (ValidatedCategoryCode.to_value x.categoryCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let categoryCode =
        ValidatedCategoryCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "categoryCode") in
      let serviceCode =
        ValidatedServiceCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceCode") in
      let issueType =
        ValidatedIssueTypeString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "issueType") in
      make ~categoryCode ~serviceCode ~issueType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let categoryCode =
        field_map_exn json__ "categoryCode" ValidatedCategoryCode.of_json in
      let serviceCode =
        field_map_exn json__ "serviceCode" ValidatedServiceCode.of_json in
      let issueType =
        field_map_exn json__ "issueType" ValidatedIssueTypeString.of_json in
      make ~categoryCode ~serviceCode ~issueType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of supported languages for a specified categoryCode, issueType and serviceCode. The returned supported languages will include a ISO 639-1 code for the language, and the language display name. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support."]
module DescribeSeverityLevelsResponse =
  struct
    type nonrec t =
      {
      severityLevels: SeverityLevelsList.t option
        [@ocaml.doc
          "The available severity levels for the support case. Available severity levels are defined by your service level agreement with Amazon Web Services."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?severityLevels = fun () -> { severityLevels }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("severityLevels",
           (Option.map x.severityLevels ~f:SeverityLevelsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let severityLevels =
        (Option.map ~f:SeverityLevelsList.of_xml)
          (Xml.child xml_arg0 "severityLevels") in
      make ?severityLevels ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let severityLevels =
        field_map json__ "severityLevels" SeverityLevelsList.of_json in
      make ?severityLevels ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The list of severity levels returned by the DescribeSeverityLevels operation."]
module DescribeSeverityLevelsRequest =
  struct
    type nonrec t =
      {
      language: Language.t option
        [@ocaml.doc
          "The language in which Amazon Web Services Support handles the case. Amazon Web Services Support currently supports Chinese (\226\128\156zh\226\128\157), English (\"en\"), Japanese (\"ja\") and Korean (\226\128\156ko\226\128\157). You must specify the ISO 639-1 code for the language parameter if you want support in that language."]}
    let make ?language = fun () -> { language }
    let to_value x =
      structure_to_value
        [("language", (Option.map x.language ~f:Language.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let language =
        (Option.map ~f:Language.of_xml) (Xml.child xml_arg0 "language") in
      make ?language ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let language = field_map json__ "language" Language.of_json in
      make ?language ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the list of severity levels that you can assign to a support case. The severity level for a case is also a field in the CaseDetails data type that you include for a CreateCase request. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support."]
module DescribeServicesResponse =
  struct
    type nonrec t =
      {
      services: ServiceList.t option
        [@ocaml.doc "A JSON-formatted list of Amazon Web Services services."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?services = fun () -> { services }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("services", (Option.map x.services ~f:ServiceList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let services =
        (Option.map ~f:ServiceList.of_xml) (Xml.child xml_arg0 "services") in
      make ?services ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let services = field_map json__ "services" ServiceList.of_json in
      make ?services ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The list of Amazon Web Services services returned by the DescribeServices operation."]
module DescribeServicesRequest =
  struct
    type nonrec t =
      {
      serviceCodeList: ServiceCodeList.t option
        [@ocaml.doc
          "A JSON-formatted list of service codes available for Amazon Web Services services."];
      language: Language.t option
        [@ocaml.doc
          "The language in which Amazon Web Services Support handles the case. Amazon Web Services Support currently supports Chinese (\226\128\156zh\226\128\157), English (\"en\"), Japanese (\"ja\") and Korean (\226\128\156ko\226\128\157). You must specify the ISO 639-1 code for the language parameter if you want support in that language."]}
    let make ?serviceCodeList =
      fun ?language -> fun () -> { serviceCodeList; language }
    let to_value x =
      structure_to_value
        [("serviceCodeList",
           (Option.map x.serviceCodeList ~f:ServiceCodeList.to_value));
        ("language", (Option.map x.language ~f:Language.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let language =
        (Option.map ~f:Language.of_xml) (Xml.child xml_arg0 "language") in
      let serviceCodeList =
        (Option.map ~f:ServiceCodeList.of_xml)
          (Xml.child xml_arg0 "serviceCodeList") in
      make ?language ?serviceCodeList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let language = field_map json__ "language" Language.of_json in
      let serviceCodeList =
        field_map json__ "serviceCodeList" ServiceCodeList.of_json in
      make ?language ?serviceCodeList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the current list of Amazon Web Services services and a list of service categories for each service. You then use service names and categories in your CreateCase requests. Each Amazon Web Services service has its own set of categories. The service codes and category codes correspond to the values that appear in the Service and Category lists on the Amazon Web Services Support Center Create Case page. The values in those fields don't necessarily match the service codes and categories returned by the DescribeServices operation. Always use the service codes and categories that the DescribeServices operation returns, so that you have the most recent set of service and category codes. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support."]
module DescribeCreateCaseOptionsResponse =
  struct
    type nonrec t =
      {
      languageAvailability: ValidatedLanguageAvailability.t option
        [@ocaml.doc
          "Language availability can be any of the following: available best_effort unavailable"];
      communicationTypes: CommunicationTypeOptionsList.t option
        [@ocaml.doc
          "A JSON-formatted array that contains the available communication type options, along with the available support timeframes for the given inputs."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?languageAvailability =
      fun ?communicationTypes ->
        fun () -> { languageAvailability; communicationTypes }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("languageAvailability",
           (Option.map x.languageAvailability
              ~f:ValidatedLanguageAvailability.to_value));
        ("communicationTypes",
          (Option.map x.communicationTypes
             ~f:CommunicationTypeOptionsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let communicationTypes =
        (Option.map ~f:CommunicationTypeOptionsList.of_xml)
          (Xml.child xml_arg0 "communicationTypes") in
      let languageAvailability =
        (Option.map ~f:ValidatedLanguageAvailability.of_xml)
          (Xml.child xml_arg0 "languageAvailability") in
      make ?communicationTypes ?languageAvailability ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let communicationTypes =
        field_map json__ "communicationTypes"
          CommunicationTypeOptionsList.of_json in
      let languageAvailability =
        field_map json__ "languageAvailability"
          ValidatedLanguageAvailability.of_json in
      make ?communicationTypes ?languageAvailability ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of CreateCaseOption types along with the corresponding supported hours and language availability. You can specify the language categoryCode, issueType and serviceCode used to retrieve the CreateCaseOptions. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support."]
module DescribeCreateCaseOptionsRequest =
  struct
    type nonrec t =
      {
      issueType: IssueType.t
        [@ocaml.doc
          "The type of issue for the case. You can specify customer-service or technical. If you don't specify a value, the default is technical."];
      serviceCode: ServiceCode.t
        [@ocaml.doc
          "The code for the Amazon Web Services service. You can use the DescribeServices operation to get the possible serviceCode values."];
      language: Language.t
        [@ocaml.doc
          "The language in which Amazon Web Services Support handles the case. Amazon Web Services Support currently supports Chinese (\226\128\156zh\226\128\157), English (\"en\"), Japanese (\"ja\") and Korean (\226\128\156ko\226\128\157). You must specify the ISO 639-1 code for the language parameter if you want support in that language."];
      categoryCode: CategoryCode.t
        [@ocaml.doc
          "The category of problem for the support case. You also use the DescribeServices operation to get the category code for a service. Each Amazon Web Services service defines its own set of category codes."]}
    let context_ = "DescribeCreateCaseOptionsRequest"
    let make ~issueType =
      fun ~serviceCode ->
        fun ~language ->
          fun ~categoryCode ->
            fun () -> { issueType; serviceCode; language; categoryCode }
    let to_value x =
      structure_to_value
        [("issueType", (Some (IssueType.to_value x.issueType)));
        ("serviceCode", (Some (ServiceCode.to_value x.serviceCode)));
        ("language", (Some (Language.to_value x.language)));
        ("categoryCode", (Some (CategoryCode.to_value x.categoryCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let categoryCode =
        CategoryCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "categoryCode") in
      let language =
        Language.of_xml (Xml.child_exn ~context:context_ xml_arg0 "language") in
      let serviceCode =
        ServiceCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceCode") in
      let issueType =
        IssueType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "issueType") in
      make ~categoryCode ~language ~serviceCode ~issueType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let categoryCode =
        field_map_exn json__ "categoryCode" CategoryCode.of_json in
      let language = field_map_exn json__ "language" Language.of_json in
      let serviceCode =
        field_map_exn json__ "serviceCode" ServiceCode.of_json in
      let issueType = field_map_exn json__ "issueType" IssueType.of_json in
      make ~categoryCode ~language ~serviceCode ~issueType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of CreateCaseOption types along with the corresponding supported hours and language availability. You can specify the language categoryCode, issueType and serviceCode used to retrieve the CreateCaseOptions. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support."]
module DescribeCommunicationsResponse =
  struct
    type nonrec t =
      {
      communications: CommunicationList.t option
        [@ocaml.doc "The communications for the case."];
      nextToken: NextToken.t option
        [@ocaml.doc "A resumption point for pagination."]}
    type nonrec error =
      [ `CaseIdNotFound of CaseIdNotFound.t 
      | `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?communications =
      fun ?nextToken -> fun () -> { communications; nextToken }
    let error_of_json name json =
      match name with
      | "CaseIdNotFound" -> `CaseIdNotFound (CaseIdNotFound.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CaseIdNotFound" -> `CaseIdNotFound (CaseIdNotFound.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CaseIdNotFound e ->
          `Assoc
            [("error", (`String "CaseIdNotFound"));
            ("details", (CaseIdNotFound.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("communications",
           (Option.map x.communications ~f:CommunicationList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let communications =
        (Option.map ~f:CommunicationList.of_xml)
          (Xml.child xml_arg0 "communications") in
      make ?nextToken ?communications ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let communications =
        field_map json__ "communications" CommunicationList.of_json in
      make ?nextToken ?communications ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The communications returned by the DescribeCommunications operation."]
module DescribeCommunicationsRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t
        [@ocaml.doc
          "The support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-12345678910-2013-c4c1d2bf33c5cf47"];
      beforeTime: BeforeTime.t option
        [@ocaml.doc
          "The end date for a filtered date search on support case communications. Case communications are available for 12 months after creation."];
      afterTime: AfterTime.t option
        [@ocaml.doc
          "The start date for a filtered date search on support case communications. Case communications are available for 12 months after creation."];
      nextToken: NextToken.t option
        [@ocaml.doc "A resumption point for pagination."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return before paginating."]}
    let context_ = "DescribeCommunicationsRequest"
    let make ?beforeTime =
      fun ?afterTime ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~caseId ->
              fun () ->
                { beforeTime; afterTime; nextToken; maxResults; caseId }
    let to_value x =
      structure_to_value
        [("caseId", (Some (CaseId.to_value x.caseId)));
        ("beforeTime", (Option.map x.beforeTime ~f:BeforeTime.to_value));
        ("afterTime", (Option.map x.afterTime ~f:AfterTime.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let afterTime =
        (Option.map ~f:AfterTime.of_xml) (Xml.child xml_arg0 "afterTime") in
      let beforeTime =
        (Option.map ~f:BeforeTime.of_xml) (Xml.child xml_arg0 "beforeTime") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      make ?maxResults ?nextToken ?afterTime ?beforeTime ~caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let afterTime = field_map json__ "afterTime" AfterTime.of_json in
      let beforeTime = field_map json__ "beforeTime" BeforeTime.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      make ?maxResults ?nextToken ?afterTime ?beforeTime ~caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns communications and attachments for one or more support cases. Use the afterTime and beforeTime parameters to filter by date. You can use the caseId parameter to restrict the results to a specific case. Case data is available for 12 months after creation. If a case was created more than 12 months ago, a request for data might cause an error. You can use the maxResults and nextToken parameters to control the pagination of the results. Set maxResults to the number of cases that you want to display on each page, and use nextToken to specify the resumption of pagination. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support."]
module DescribeCasesResponse =
  struct
    type nonrec t =
      {
      cases: CaseList.t option
        [@ocaml.doc "The details for the cases that match the request."];
      nextToken: NextToken.t option
        [@ocaml.doc "A resumption point for pagination."]}
    type nonrec error =
      [ `CaseIdNotFound of CaseIdNotFound.t 
      | `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cases = fun ?nextToken -> fun () -> { cases; nextToken }
    let error_of_json name json =
      match name with
      | "CaseIdNotFound" -> `CaseIdNotFound (CaseIdNotFound.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CaseIdNotFound" -> `CaseIdNotFound (CaseIdNotFound.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CaseIdNotFound e ->
          `Assoc
            [("error", (`String "CaseIdNotFound"));
            ("details", (CaseIdNotFound.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("cases", (Option.map x.cases ~f:CaseList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let cases =
        (Option.map ~f:CaseList.of_xml) (Xml.child xml_arg0 "cases") in
      make ?nextToken ?cases ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let cases = field_map json__ "cases" CaseList.of_json in
      make ?nextToken ?cases ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an array of CaseDetails objects and a nextToken that defines a point for pagination in the result set."]
module DescribeCasesRequest =
  struct
    type nonrec t =
      {
      caseIdList: CaseIdList.t option
        [@ocaml.doc
          "A list of ID numbers of the support cases you want returned. The maximum number of cases is 100."];
      displayId: DisplayId.t option
        [@ocaml.doc
          "The ID displayed for a case in the Amazon Web Services Support Center user interface."];
      afterTime: AfterTime.t option
        [@ocaml.doc
          "The start date for a filtered date search on support case communications. Case communications are available for 12 months after creation."];
      beforeTime: BeforeTime.t option
        [@ocaml.doc
          "The end date for a filtered date search on support case communications. Case communications are available for 12 months after creation."];
      includeResolvedCases: IncludeResolvedCases.t option
        [@ocaml.doc
          "Specifies whether to include resolved support cases in the DescribeCases response. By default, resolved cases aren't included."];
      nextToken: NextToken.t option
        [@ocaml.doc "A resumption point for pagination."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return before paginating."];
      language: Language.t option
        [@ocaml.doc
          "The language in which Amazon Web Services Support handles the case. Amazon Web Services Support currently supports Chinese (\226\128\156zh\226\128\157), English (\"en\"), Japanese (\"ja\") and Korean (\226\128\156ko\226\128\157). You must specify the ISO 639-1 code for the language parameter if you want support in that language."];
      includeCommunications: IncludeCommunications.t option
        [@ocaml.doc
          "Specifies whether to include communications in the DescribeCases response. By default, communications are included."]}
    let make ?caseIdList =
      fun ?displayId ->
        fun ?afterTime ->
          fun ?beforeTime ->
            fun ?includeResolvedCases ->
              fun ?nextToken ->
                fun ?maxResults ->
                  fun ?language ->
                    fun ?includeCommunications ->
                      fun () ->
                        {
                          caseIdList;
                          displayId;
                          afterTime;
                          beforeTime;
                          includeResolvedCases;
                          nextToken;
                          maxResults;
                          language;
                          includeCommunications
                        }
    let to_value x =
      structure_to_value
        [("caseIdList", (Option.map x.caseIdList ~f:CaseIdList.to_value));
        ("displayId", (Option.map x.displayId ~f:DisplayId.to_value));
        ("afterTime", (Option.map x.afterTime ~f:AfterTime.to_value));
        ("beforeTime", (Option.map x.beforeTime ~f:BeforeTime.to_value));
        ("includeResolvedCases",
          (Option.map x.includeResolvedCases ~f:IncludeResolvedCases.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("language", (Option.map x.language ~f:Language.to_value));
        ("includeCommunications",
          (Option.map x.includeCommunications
             ~f:IncludeCommunications.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let includeCommunications =
        (Option.map ~f:IncludeCommunications.of_xml)
          (Xml.child xml_arg0 "includeCommunications") in
      let language =
        (Option.map ~f:Language.of_xml) (Xml.child xml_arg0 "language") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let includeResolvedCases =
        (Option.map ~f:IncludeResolvedCases.of_xml)
          (Xml.child xml_arg0 "includeResolvedCases") in
      let beforeTime =
        (Option.map ~f:BeforeTime.of_xml) (Xml.child xml_arg0 "beforeTime") in
      let afterTime =
        (Option.map ~f:AfterTime.of_xml) (Xml.child xml_arg0 "afterTime") in
      let displayId =
        (Option.map ~f:DisplayId.of_xml) (Xml.child xml_arg0 "displayId") in
      let caseIdList =
        (Option.map ~f:CaseIdList.of_xml) (Xml.child xml_arg0 "caseIdList") in
      make ?includeCommunications ?language ?maxResults ?nextToken
        ?includeResolvedCases ?beforeTime ?afterTime ?displayId ?caseIdList
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let includeCommunications =
        field_map json__ "includeCommunications"
          IncludeCommunications.of_json in
      let language = field_map json__ "language" Language.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let includeResolvedCases =
        field_map json__ "includeResolvedCases" IncludeResolvedCases.of_json in
      let beforeTime = field_map json__ "beforeTime" BeforeTime.of_json in
      let afterTime = field_map json__ "afterTime" AfterTime.of_json in
      let displayId = field_map json__ "displayId" DisplayId.of_json in
      let caseIdList = field_map json__ "caseIdList" CaseIdList.of_json in
      make ?includeCommunications ?language ?maxResults ?nextToken
        ?includeResolvedCases ?beforeTime ?afterTime ?displayId ?caseIdList
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of cases that you specify by passing one or more case IDs. You can use the afterTime and beforeTime parameters to filter the cases by date. You can set values for the includeResolvedCases and includeCommunications parameters to specify how much information to return. The response returns the following in JSON format: One or more CaseDetails data types. One or more nextToken values, which specify where to paginate the returned records represented by the CaseDetails objects. Case data is available for 12 months after creation. If a case was created more than 12 months ago, a request might return an error. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support."]
module DescribeAttachmentResponse =
  struct
    type nonrec t =
      {
      attachment: Attachment.t option
        [@ocaml.doc
          "This object includes the attachment content and file name. In the previous response syntax, the value for the data parameter appears as blob, which is represented as a base64-encoded string. The value for fileName is the name of the attachment, such as troubleshoot-screenshot.png."]}
    type nonrec error =
      [ `AttachmentIdNotFound of AttachmentIdNotFound.t 
      | `DescribeAttachmentLimitExceeded of DescribeAttachmentLimitExceeded.t 
      | `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attachment = fun () -> { attachment }
    let error_of_json name json =
      match name with
      | "AttachmentIdNotFound" ->
          `AttachmentIdNotFound (AttachmentIdNotFound.of_json json)
      | "DescribeAttachmentLimitExceeded" ->
          `DescribeAttachmentLimitExceeded
            (DescribeAttachmentLimitExceeded.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AttachmentIdNotFound" ->
          `AttachmentIdNotFound (AttachmentIdNotFound.of_xml xml)
      | "DescribeAttachmentLimitExceeded" ->
          `DescribeAttachmentLimitExceeded
            (DescribeAttachmentLimitExceeded.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AttachmentIdNotFound e ->
          `Assoc
            [("error", (`String "AttachmentIdNotFound"));
            ("details", (AttachmentIdNotFound.to_json e))]
      | `DescribeAttachmentLimitExceeded e ->
          `Assoc
            [("error", (`String "DescribeAttachmentLimitExceeded"));
            ("details", (DescribeAttachmentLimitExceeded.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("attachment", (Option.map x.attachment ~f:Attachment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachment =
        (Option.map ~f:Attachment.of_xml) (Xml.child xml_arg0 "attachment") in
      make ?attachment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachment = field_map json__ "attachment" Attachment.of_json in
      make ?attachment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The content and file name of the attachment returned by the DescribeAttachment operation."]
module DescribeAttachmentRequest =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t
        [@ocaml.doc
          "The ID of the attachment to return. Attachment IDs are returned by the DescribeCommunications operation."]}
    let context_ = "DescribeAttachmentRequest"
    let make ~attachmentId = fun () -> { attachmentId }
    let to_value x =
      structure_to_value
        [("attachmentId", (Some (AttachmentId.to_value x.attachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachmentId") in
      make ~attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentId =
        field_map_exn json__ "attachmentId" AttachmentId.of_json in
      make ~attachmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the attachment that has the specified ID. Attachments can include screenshots, error logs, or other files that describe your issue. Attachment IDs are generated by the case management system when you add an attachment to a case or case communication. Attachment IDs are returned in the AttachmentDetails objects that are returned by the DescribeCommunications operation. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support."]
module CreateCaseResponse =
  struct
    type nonrec t =
      {
      caseId: CaseId.t option
        [@ocaml.doc
          "The support case ID requested or returned in the call. The case ID is an alphanumeric string in the following format: case-12345678910-2013-c4c1d2bf33c5cf47"]}
    type nonrec error =
      [ `AttachmentSetExpired of AttachmentSetExpired.t 
      | `AttachmentSetIdNotFound of AttachmentSetIdNotFound.t 
      | `CaseCreationLimitExceeded of CaseCreationLimitExceeded.t 
      | `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?caseId = fun () -> { caseId }
    let error_of_json name json =
      match name with
      | "AttachmentSetExpired" ->
          `AttachmentSetExpired (AttachmentSetExpired.of_json json)
      | "AttachmentSetIdNotFound" ->
          `AttachmentSetIdNotFound (AttachmentSetIdNotFound.of_json json)
      | "CaseCreationLimitExceeded" ->
          `CaseCreationLimitExceeded (CaseCreationLimitExceeded.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AttachmentSetExpired" ->
          `AttachmentSetExpired (AttachmentSetExpired.of_xml xml)
      | "AttachmentSetIdNotFound" ->
          `AttachmentSetIdNotFound (AttachmentSetIdNotFound.of_xml xml)
      | "CaseCreationLimitExceeded" ->
          `CaseCreationLimitExceeded (CaseCreationLimitExceeded.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AttachmentSetExpired e ->
          `Assoc
            [("error", (`String "AttachmentSetExpired"));
            ("details", (AttachmentSetExpired.to_json e))]
      | `AttachmentSetIdNotFound e ->
          `Assoc
            [("error", (`String "AttachmentSetIdNotFound"));
            ("details", (AttachmentSetIdNotFound.to_json e))]
      | `CaseCreationLimitExceeded e ->
          `Assoc
            [("error", (`String "CaseCreationLimitExceeded"));
            ("details", (CaseCreationLimitExceeded.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("caseId", (Option.map x.caseId ~f:CaseId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "caseId") in
      make ?caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseId = field_map json__ "caseId" CaseId.of_json in
      make ?caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The support case ID returned by a successful completion of the CreateCase operation."]
module CreateCaseRequest =
  struct
    type nonrec t =
      {
      subject: Subject.t
        [@ocaml.doc
          "The title of the support case. The title appears in the Subject field on the Amazon Web Services Support Center Create Case page."];
      serviceCode: ServiceCode.t option
        [@ocaml.doc
          "The code for the Amazon Web Services service. You can use the DescribeServices operation to get the possible serviceCode values."];
      severityCode: SeverityCode.t option
        [@ocaml.doc
          "A value that indicates the urgency of the case. This value determines the response time according to your service level agreement with Amazon Web Services Support. You can use the DescribeSeverityLevels operation to get the possible values for severityCode. For more information, see SeverityLevel and Choosing a Severity in the Amazon Web Services Support User Guide. The availability of severity levels depends on the support plan for the Amazon Web Services account."];
      categoryCode: CategoryCode.t option
        [@ocaml.doc
          "The category of problem for the support case. You also use the DescribeServices operation to get the category code for a service. Each Amazon Web Services service defines its own set of category codes."];
      communicationBody: CommunicationBody.t
        [@ocaml.doc
          "The communication body text that describes the issue. This text appears in the Description field on the Amazon Web Services Support Center Create Case page."];
      ccEmailAddresses: CcEmailAddressList.t option
        [@ocaml.doc
          "A list of email addresses that Amazon Web Services Support copies on case correspondence. Amazon Web Services Support identifies the account that creates the case when you specify your Amazon Web Services credentials in an HTTP POST method or use the Amazon Web Services SDKs."];
      language: Language.t option
        [@ocaml.doc
          "The language in which Amazon Web Services Support handles the case. Amazon Web Services Support currently supports Chinese (\226\128\156zh\226\128\157), English (\"en\"), Japanese (\"ja\") and Korean (\226\128\156ko\226\128\157). You must specify the ISO 639-1 code for the language parameter if you want support in that language."];
      issueType: IssueType.t option
        [@ocaml.doc
          "The type of issue for the case. You can specify customer-service or technical. If you don't specify a value, the default is technical."];
      attachmentSetId: AttachmentSetId.t option
        [@ocaml.doc
          "The ID of a set of one or more attachments for the case. Create the set by using the AddAttachmentsToSet operation."]}
    let context_ = "CreateCaseRequest"
    let make ?serviceCode =
      fun ?severityCode ->
        fun ?categoryCode ->
          fun ?ccEmailAddresses ->
            fun ?language ->
              fun ?issueType ->
                fun ?attachmentSetId ->
                  fun ~subject ->
                    fun ~communicationBody ->
                      fun () ->
                        {
                          serviceCode;
                          severityCode;
                          categoryCode;
                          ccEmailAddresses;
                          language;
                          issueType;
                          attachmentSetId;
                          subject;
                          communicationBody
                        }
    let to_value x =
      structure_to_value
        [("subject", (Some (Subject.to_value x.subject)));
        ("serviceCode", (Option.map x.serviceCode ~f:ServiceCode.to_value));
        ("severityCode",
          (Option.map x.severityCode ~f:SeverityCode.to_value));
        ("categoryCode",
          (Option.map x.categoryCode ~f:CategoryCode.to_value));
        ("communicationBody",
          (Some (CommunicationBody.to_value x.communicationBody)));
        ("ccEmailAddresses",
          (Option.map x.ccEmailAddresses ~f:CcEmailAddressList.to_value));
        ("language", (Option.map x.language ~f:Language.to_value));
        ("issueType", (Option.map x.issueType ~f:IssueType.to_value));
        ("attachmentSetId",
          (Option.map x.attachmentSetId ~f:AttachmentSetId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentSetId =
        (Option.map ~f:AttachmentSetId.of_xml)
          (Xml.child xml_arg0 "attachmentSetId") in
      let issueType =
        (Option.map ~f:IssueType.of_xml) (Xml.child xml_arg0 "issueType") in
      let language =
        (Option.map ~f:Language.of_xml) (Xml.child xml_arg0 "language") in
      let ccEmailAddresses =
        (Option.map ~f:CcEmailAddressList.of_xml)
          (Xml.child xml_arg0 "ccEmailAddresses") in
      let communicationBody =
        CommunicationBody.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "communicationBody") in
      let categoryCode =
        (Option.map ~f:CategoryCode.of_xml)
          (Xml.child xml_arg0 "categoryCode") in
      let severityCode =
        (Option.map ~f:SeverityCode.of_xml)
          (Xml.child xml_arg0 "severityCode") in
      let serviceCode =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let subject =
        Subject.of_xml (Xml.child_exn ~context:context_ xml_arg0 "subject") in
      make ?attachmentSetId ?issueType ?language ?ccEmailAddresses
        ~communicationBody ?categoryCode ?severityCode ?serviceCode ~subject
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentSetId =
        field_map json__ "attachmentSetId" AttachmentSetId.of_json in
      let issueType = field_map json__ "issueType" IssueType.of_json in
      let language = field_map json__ "language" Language.of_json in
      let ccEmailAddresses =
        field_map json__ "ccEmailAddresses" CcEmailAddressList.of_json in
      let communicationBody =
        field_map_exn json__ "communicationBody" CommunicationBody.of_json in
      let categoryCode = field_map json__ "categoryCode" CategoryCode.of_json in
      let severityCode = field_map json__ "severityCode" SeverityCode.of_json in
      let serviceCode = field_map json__ "serviceCode" ServiceCode.of_json in
      let subject = field_map_exn json__ "subject" Subject.of_json in
      make ?attachmentSetId ?issueType ?language ?ccEmailAddresses
        ~communicationBody ?categoryCode ?severityCode ?serviceCode ~subject
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a case in the Amazon Web Services Support Center. This operation is similar to how you create a case in the Amazon Web Services Support Center Create Case page. The Amazon Web Services Support API doesn't support requesting service limit increases. You can submit a service limit increase in the following ways: Submit a request from the Amazon Web Services Support Center Create Case page. Use the Service Quotas RequestServiceQuotaIncrease operation. A successful CreateCase request returns an Amazon Web Services Support case number. You can use the DescribeCases operation and specify the case number to get existing Amazon Web Services Support cases. After you create a case, use the AddCommunicationToCase operation to add additional communication or attachments to an existing case. The caseId is separate from the displayId that appears in the Amazon Web Services Support Center. Use the DescribeCases operation to get the displayId. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support."]
module AddCommunicationToCaseResponse =
  struct
    type nonrec t =
      {
      result: Result_.t option
        [@ocaml.doc
          "True if AddCommunicationToCase succeeds. Otherwise, returns an error."]}
    type nonrec error =
      [ `AttachmentSetExpired of AttachmentSetExpired.t 
      | `AttachmentSetIdNotFound of AttachmentSetIdNotFound.t 
      | `CaseIdNotFound of CaseIdNotFound.t 
      | `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?result = fun () -> { result }
    let error_of_json name json =
      match name with
      | "AttachmentSetExpired" ->
          `AttachmentSetExpired (AttachmentSetExpired.of_json json)
      | "AttachmentSetIdNotFound" ->
          `AttachmentSetIdNotFound (AttachmentSetIdNotFound.of_json json)
      | "CaseIdNotFound" -> `CaseIdNotFound (CaseIdNotFound.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AttachmentSetExpired" ->
          `AttachmentSetExpired (AttachmentSetExpired.of_xml xml)
      | "AttachmentSetIdNotFound" ->
          `AttachmentSetIdNotFound (AttachmentSetIdNotFound.of_xml xml)
      | "CaseIdNotFound" -> `CaseIdNotFound (CaseIdNotFound.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AttachmentSetExpired e ->
          `Assoc
            [("error", (`String "AttachmentSetExpired"));
            ("details", (AttachmentSetExpired.to_json e))]
      | `AttachmentSetIdNotFound e ->
          `Assoc
            [("error", (`String "AttachmentSetIdNotFound"));
            ("details", (AttachmentSetIdNotFound.to_json e))]
      | `CaseIdNotFound e ->
          `Assoc
            [("error", (`String "CaseIdNotFound"));
            ("details", (CaseIdNotFound.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("result", (Option.map x.result ~f:Result_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let result =
        (Option.map ~f:Result_.of_xml) (Xml.child xml_arg0 "result") in
      make ?result ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let result = field_map json__ "result" Result_.of_json in
      make ?result ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result of the AddCommunicationToCase operation."]
module AddCommunicationToCaseRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t option
        [@ocaml.doc
          "The support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-12345678910-2013-c4c1d2bf33c5cf47"];
      communicationBody: CommunicationBody.t
        [@ocaml.doc
          "The body of an email communication to add to the support case."];
      ccEmailAddresses: CcEmailAddressList.t option
        [@ocaml.doc
          "The email addresses in the CC line of an email to be added to the support case."];
      attachmentSetId: AttachmentSetId.t option
        [@ocaml.doc
          "The ID of a set of one or more attachments for the communication to add to the case. Create the set by calling AddAttachmentsToSet"]}
    let context_ = "AddCommunicationToCaseRequest"
    let make ?caseId =
      fun ?ccEmailAddresses ->
        fun ?attachmentSetId ->
          fun ~communicationBody ->
            fun () ->
              { caseId; ccEmailAddresses; attachmentSetId; communicationBody
              }
    let to_value x =
      structure_to_value
        [("caseId", (Option.map x.caseId ~f:CaseId.to_value));
        ("communicationBody",
          (Some (CommunicationBody.to_value x.communicationBody)));
        ("ccEmailAddresses",
          (Option.map x.ccEmailAddresses ~f:CcEmailAddressList.to_value));
        ("attachmentSetId",
          (Option.map x.attachmentSetId ~f:AttachmentSetId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentSetId =
        (Option.map ~f:AttachmentSetId.of_xml)
          (Xml.child xml_arg0 "attachmentSetId") in
      let ccEmailAddresses =
        (Option.map ~f:CcEmailAddressList.of_xml)
          (Xml.child xml_arg0 "ccEmailAddresses") in
      let communicationBody =
        CommunicationBody.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "communicationBody") in
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "caseId") in
      make ?attachmentSetId ?ccEmailAddresses ~communicationBody ?caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentSetId =
        field_map json__ "attachmentSetId" AttachmentSetId.of_json in
      let ccEmailAddresses =
        field_map json__ "ccEmailAddresses" CcEmailAddressList.of_json in
      let communicationBody =
        field_map_exn json__ "communicationBody" CommunicationBody.of_json in
      let caseId = field_map json__ "caseId" CaseId.of_json in
      make ?attachmentSetId ?ccEmailAddresses ~communicationBody ?caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds additional customer communication to an Amazon Web Services Support case. Use the caseId parameter to identify the case to which to add communication. You can list a set of email addresses to copy on the communication by using the ccEmailAddresses parameter. The communicationBody value contains the text of the communication. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support."]
module AddAttachmentsToSetResponse =
  struct
    type nonrec t =
      {
      attachmentSetId: AttachmentSetId.t option
        [@ocaml.doc
          "The ID of the attachment set. If an attachmentSetId was not specified, a new attachment set is created, and the ID of the set is returned in the response. If an attachmentSetId was specified, the attachments are added to the specified set, if it exists."];
      expiryTime: ExpiryTime.t option
        [@ocaml.doc "The time and date when the attachment set expires."]}
    type nonrec error =
      [ `AttachmentLimitExceeded of AttachmentLimitExceeded.t 
      | `AttachmentSetExpired of AttachmentSetExpired.t 
      | `AttachmentSetIdNotFound of AttachmentSetIdNotFound.t 
      | `AttachmentSetSizeLimitExceeded of AttachmentSetSizeLimitExceeded.t 
      | `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attachmentSetId =
      fun ?expiryTime -> fun () -> { attachmentSetId; expiryTime }
    let error_of_json name json =
      match name with
      | "AttachmentLimitExceeded" ->
          `AttachmentLimitExceeded (AttachmentLimitExceeded.of_json json)
      | "AttachmentSetExpired" ->
          `AttachmentSetExpired (AttachmentSetExpired.of_json json)
      | "AttachmentSetIdNotFound" ->
          `AttachmentSetIdNotFound (AttachmentSetIdNotFound.of_json json)
      | "AttachmentSetSizeLimitExceeded" ->
          `AttachmentSetSizeLimitExceeded
            (AttachmentSetSizeLimitExceeded.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AttachmentLimitExceeded" ->
          `AttachmentLimitExceeded (AttachmentLimitExceeded.of_xml xml)
      | "AttachmentSetExpired" ->
          `AttachmentSetExpired (AttachmentSetExpired.of_xml xml)
      | "AttachmentSetIdNotFound" ->
          `AttachmentSetIdNotFound (AttachmentSetIdNotFound.of_xml xml)
      | "AttachmentSetSizeLimitExceeded" ->
          `AttachmentSetSizeLimitExceeded
            (AttachmentSetSizeLimitExceeded.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AttachmentLimitExceeded e ->
          `Assoc
            [("error", (`String "AttachmentLimitExceeded"));
            ("details", (AttachmentLimitExceeded.to_json e))]
      | `AttachmentSetExpired e ->
          `Assoc
            [("error", (`String "AttachmentSetExpired"));
            ("details", (AttachmentSetExpired.to_json e))]
      | `AttachmentSetIdNotFound e ->
          `Assoc
            [("error", (`String "AttachmentSetIdNotFound"));
            ("details", (AttachmentSetIdNotFound.to_json e))]
      | `AttachmentSetSizeLimitExceeded e ->
          `Assoc
            [("error", (`String "AttachmentSetSizeLimitExceeded"));
            ("details", (AttachmentSetSizeLimitExceeded.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("attachmentSetId",
           (Option.map x.attachmentSetId ~f:AttachmentSetId.to_value));
        ("expiryTime", (Option.map x.expiryTime ~f:ExpiryTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expiryTime =
        (Option.map ~f:ExpiryTime.of_xml) (Xml.child xml_arg0 "expiryTime") in
      let attachmentSetId =
        (Option.map ~f:AttachmentSetId.of_xml)
          (Xml.child xml_arg0 "attachmentSetId") in
      make ?expiryTime ?attachmentSetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expiryTime = field_map json__ "expiryTime" ExpiryTime.of_json in
      let attachmentSetId =
        field_map json__ "attachmentSetId" AttachmentSetId.of_json in
      make ?expiryTime ?attachmentSetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ID and expiry time of the attachment set returned by the AddAttachmentsToSet operation."]
module AddAttachmentsToSetRequest =
  struct
    type nonrec t =
      {
      attachmentSetId: AttachmentSetId.t option
        [@ocaml.doc
          "The ID of the attachment set. If an attachmentSetId is not specified, a new attachment set is created, and the ID of the set is returned in the response. If an attachmentSetId is specified, the attachments are added to the specified set, if it exists."];
      attachments: Attachments.t
        [@ocaml.doc
          "One or more attachments to add to the set. You can add up to three attachments per set. The size limit is 5 MB per attachment. In the Attachment object, use the data parameter to specify the contents of the attachment file. In the previous request syntax, the value for data appear as blob, which is represented as a base64-encoded string. The value for fileName is the name of the attachment, such as troubleshoot-screenshot.png."]}
    let context_ = "AddAttachmentsToSetRequest"
    let make ?attachmentSetId =
      fun ~attachments -> fun () -> { attachmentSetId; attachments }
    let to_value x =
      structure_to_value
        [("attachmentSetId",
           (Option.map x.attachmentSetId ~f:AttachmentSetId.to_value));
        ("attachments", (Some (Attachments.to_value x.attachments)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachments =
        Attachments.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachments") in
      let attachmentSetId =
        (Option.map ~f:AttachmentSetId.of_xml)
          (Xml.child xml_arg0 "attachmentSetId") in
      make ~attachments ?attachmentSetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachments =
        field_map_exn json__ "attachments" Attachments.of_json in
      let attachmentSetId =
        field_map json__ "attachmentSetId" AttachmentSetId.of_json in
      make ~attachments ?attachmentSetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds one or more attachments to an attachment set. An attachment set is a temporary container for attachments that you add to a case or case communication. The set is available for 1 hour after it's created. The expiryTime returned in the response is when the set expires. You must have a Business, Enterprise On-Ramp, or Enterprise Support plan to use the Amazon Web Services Support API. If you call the Amazon Web Services Support API from an account that doesn't have a Business, Enterprise On-Ramp, or Enterprise Support plan, the SubscriptionRequiredException error message appears. For information about changing your support plan, see Amazon Web Services Support."]