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.artifact
let apiVersion = "2018-05-10"
let endpointPrefix = "artifact"
let serviceFullName = "AWS Artifact"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module 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 LongStringAttribute =
  struct
    type nonrec t = string
    let context_ = "LongStringAttribute"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[^<>]*")));
        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:"LongStringAttribute" j
    let to_json = simple_to_json to_value
  end
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "Name of validation exception."];
      message: String_.t option
        [@ocaml.doc "Message describing why the field failed validation."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Validation exception message and name."]
module AcceptanceType =
  struct
    type nonrec t =
      | PASSTHROUGH 
      | EXPLICIT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PASSTHROUGH -> "PASSTHROUGH"
      | EXPLICIT -> "EXPLICIT"
      | Non_static_id s -> s
    let of_string =
      function
      | "PASSTHROUGH" -> PASSTHROUGH
      | "EXPLICIT" -> EXPLICIT
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration AcceptanceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AcceptanceType" j)
    let to_json = simple_to_json to_value
  end
module PublishedState =
  struct
    type nonrec t =
      | PUBLISHED 
      | UNPUBLISHED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PUBLISHED -> "PUBLISHED"
      | UNPUBLISHED -> "UNPUBLISHED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PUBLISHED" -> PUBLISHED
      | "UNPUBLISHED" -> UNPUBLISHED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration PublishedState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PublishedState" j)
    let to_json = simple_to_json to_value
  end
module ReportId =
  struct
    type nonrec t = string
    let context_ = "ReportId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"report-[a-zA-Z0-9]{16}"); 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:"ReportId" j
    let to_json = simple_to_json to_value
  end
module ShortStringAttribute =
  struct
    type nonrec t = string
    let context_ = "ShortStringAttribute"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_\\-\\s]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ShortStringAttribute" j
    let to_json = simple_to_json to_value
  end
module StatusMessage =
  struct
    type nonrec t = string
    let context_ = "StatusMessage"
    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:"StatusMessage" j
    let to_json = simple_to_json to_value
  end
module TimestampAttribute =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module UploadState =
  struct
    type nonrec t =
      | PROCESSING 
      | COMPLETE 
      | FAILED 
      | FAULT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PROCESSING -> "PROCESSING"
      | COMPLETE -> "COMPLETE"
      | FAILED -> "FAILED"
      | FAULT -> "FAULT"
      | Non_static_id s -> s
    let of_string =
      function
      | "PROCESSING" -> PROCESSING
      | "COMPLETE" -> COMPLETE
      | "FAILED" -> FAILED
      | "FAULT" -> FAULT
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration UploadState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UploadState" j)
    let to_json = simple_to_json to_value
  end
module VersionAttribute =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:1L); 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 AgreementTerms =
  struct
    type nonrec t = LongStringAttribute.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:LongStringAttribute.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:LongStringAttribute.of_xml)
    let of_json j =
      list_of_json ~kind:"AgreementTerms"
        ~of_json:LongStringAttribute.of_json j
    let to_json v = composed_to_json to_value v
  end
module AgreementType =
  struct
    type nonrec t =
      | CUSTOM 
      | DEFAULT 
      | MODIFIED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CUSTOM -> "CUSTOM"
      | DEFAULT -> "DEFAULT"
      | MODIFIED -> "MODIFIED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CUSTOM" -> CUSTOM
      | "DEFAULT" -> DEFAULT
      | "MODIFIED" -> MODIFIED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration AgreementType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AgreementType" j)
    let to_json = simple_to_json to_value
  end
module CustomerAgreementIdAttribute =
  struct
    type nonrec t = string
    let context_ = "CustomerAgreementIdAttribute"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"customer-agreement-[a-zA-Z0-9]{16}");
        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:"CustomerAgreementIdAttribute" j
    let to_json = simple_to_json to_value
  end
module CustomerAgreementState =
  struct
    type nonrec t =
      | ACTIVE 
      | CUSTOMER_TERMINATED 
      | AWS_TERMINATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | CUSTOMER_TERMINATED -> "CUSTOMER_TERMINATED"
      | AWS_TERMINATED -> "AWS_TERMINATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "CUSTOMER_TERMINATED" -> CUSTOMER_TERMINATED
      | "AWS_TERMINATED" -> AWS_TERMINATED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration CustomerAgreementState" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CustomerAgreementState" j)
    let to_json = simple_to_json to_value
  end
module NotificationSubscriptionStatus =
  struct
    type nonrec t =
      | SUBSCRIBED 
      | NOT_SUBSCRIBED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUBSCRIBED -> "SUBSCRIBED"
      | NOT_SUBSCRIBED -> "NOT_SUBSCRIBED"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUBSCRIBED" -> SUBSCRIBED
      | "NOT_SUBSCRIBED" -> NOT_SUBSCRIBED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration NotificationSubscriptionStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NotificationSubscriptionStatus" j)
    let to_json = simple_to_json to_value
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.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:ValidationExceptionField.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:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | UnknownOperation 
      | CannotParse 
      | FieldValidationFailed 
      | InvalidToken 
      | Other 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UnknownOperation -> "unknownOperation"
      | CannotParse -> "cannotParse"
      | FieldValidationFailed -> "fieldValidationFailed"
      | InvalidToken -> "invalidToken"
      | Other -> "other"
      | Non_static_id s -> s
    let of_string =
      function
      | "unknownOperation" -> UnknownOperation
      | "cannotParse" -> CannotParse
      | "fieldValidationFailed" -> FieldValidationFailed
      | "invalidToken" -> InvalidToken
      | "other" -> Other
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module ReportSummary =
  struct
    type nonrec t =
      {
      id: ReportId.t option
        [@ocaml.doc "Unique resource ID for the report resource."];
      name: ShortStringAttribute.t option
        [@ocaml.doc "Name for the report resource."];
      state: PublishedState.t option
        [@ocaml.doc "Current state of the report resource."];
      arn: LongStringAttribute.t option
        [@ocaml.doc "ARN for the report resource."];
      version: VersionAttribute.t option
        [@ocaml.doc "Version for the report resource."];
      uploadState: UploadState.t option
        [@ocaml.doc "The current state of the document upload."];
      description: LongStringAttribute.t option
        [@ocaml.doc "Description for the report resource."];
      periodStart: TimestampAttribute.t option
        [@ocaml.doc
          "Timestamp indicating the report resource effective start."];
      periodEnd: TimestampAttribute.t option
        [@ocaml.doc
          "Timestamp indicating the report resource effective end."];
      series: ShortStringAttribute.t option
        [@ocaml.doc "Series for the report resource."];
      category: ShortStringAttribute.t option
        [@ocaml.doc "Category for the report resource."];
      companyName: ShortStringAttribute.t option
        [@ocaml.doc "Associated company name for the report resource."];
      productName: ShortStringAttribute.t option
        [@ocaml.doc "Associated product name for the report resource."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc "The message associated with the current upload state."];
      acceptanceType: AcceptanceType.t option
        [@ocaml.doc "Acceptance type for report."]}
    let make ?id =
      fun ?name ->
        fun ?state ->
          fun ?arn ->
            fun ?version ->
              fun ?uploadState ->
                fun ?description ->
                  fun ?periodStart ->
                    fun ?periodEnd ->
                      fun ?series ->
                        fun ?category ->
                          fun ?companyName ->
                            fun ?productName ->
                              fun ?statusMessage ->
                                fun ?acceptanceType ->
                                  fun () ->
                                    {
                                      id;
                                      name;
                                      state;
                                      arn;
                                      version;
                                      uploadState;
                                      description;
                                      periodStart;
                                      periodEnd;
                                      series;
                                      category;
                                      companyName;
                                      productName;
                                      statusMessage;
                                      acceptanceType
                                    }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ReportId.to_value));
        ("name", (Option.map x.name ~f:ShortStringAttribute.to_value));
        ("state", (Option.map x.state ~f:PublishedState.to_value));
        ("arn", (Option.map x.arn ~f:LongStringAttribute.to_value));
        ("version", (Option.map x.version ~f:VersionAttribute.to_value));
        ("uploadState", (Option.map x.uploadState ~f:UploadState.to_value));
        ("description",
          (Option.map x.description ~f:LongStringAttribute.to_value));
        ("periodStart",
          (Option.map x.periodStart ~f:TimestampAttribute.to_value));
        ("periodEnd",
          (Option.map x.periodEnd ~f:TimestampAttribute.to_value));
        ("series", (Option.map x.series ~f:ShortStringAttribute.to_value));
        ("category",
          (Option.map x.category ~f:ShortStringAttribute.to_value));
        ("companyName",
          (Option.map x.companyName ~f:ShortStringAttribute.to_value));
        ("productName",
          (Option.map x.productName ~f:ShortStringAttribute.to_value));
        ("statusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value));
        ("acceptanceType",
          (Option.map x.acceptanceType ~f:AcceptanceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let acceptanceType =
        (Option.map ~f:AcceptanceType.of_xml)
          (Xml.child xml_arg0 "acceptanceType") in
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "statusMessage") in
      let productName =
        (Option.map ~f:ShortStringAttribute.of_xml)
          (Xml.child xml_arg0 "productName") in
      let companyName =
        (Option.map ~f:ShortStringAttribute.of_xml)
          (Xml.child xml_arg0 "companyName") in
      let category =
        (Option.map ~f:ShortStringAttribute.of_xml)
          (Xml.child xml_arg0 "category") in
      let series =
        (Option.map ~f:ShortStringAttribute.of_xml)
          (Xml.child xml_arg0 "series") in
      let periodEnd =
        (Option.map ~f:TimestampAttribute.of_xml)
          (Xml.child xml_arg0 "periodEnd") in
      let periodStart =
        (Option.map ~f:TimestampAttribute.of_xml)
          (Xml.child xml_arg0 "periodStart") in
      let description =
        (Option.map ~f:LongStringAttribute.of_xml)
          (Xml.child xml_arg0 "description") in
      let uploadState =
        (Option.map ~f:UploadState.of_xml) (Xml.child xml_arg0 "uploadState") in
      let version =
        (Option.map ~f:VersionAttribute.of_xml)
          (Xml.child xml_arg0 "version") in
      let arn =
        (Option.map ~f:LongStringAttribute.of_xml) (Xml.child xml_arg0 "arn") in
      let state =
        (Option.map ~f:PublishedState.of_xml) (Xml.child xml_arg0 "state") in
      let name =
        (Option.map ~f:ShortStringAttribute.of_xml)
          (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:ReportId.of_xml) (Xml.child xml_arg0 "id") in
      make ?acceptanceType ?statusMessage ?productName ?companyName ?category
        ?series ?periodEnd ?periodStart ?description ?uploadState ?version
        ?arn ?state ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let acceptanceType =
        field_map json__ "acceptanceType" AcceptanceType.of_json in
      let statusMessage =
        field_map json__ "statusMessage" StatusMessage.of_json in
      let productName =
        field_map json__ "productName" ShortStringAttribute.of_json in
      let companyName =
        field_map json__ "companyName" ShortStringAttribute.of_json in
      let category = field_map json__ "category" ShortStringAttribute.of_json in
      let series = field_map json__ "series" ShortStringAttribute.of_json in
      let periodEnd = field_map json__ "periodEnd" TimestampAttribute.of_json in
      let periodStart =
        field_map json__ "periodStart" TimestampAttribute.of_json in
      let description =
        field_map json__ "description" LongStringAttribute.of_json in
      let uploadState = field_map json__ "uploadState" UploadState.of_json in
      let version = field_map json__ "version" VersionAttribute.of_json in
      let arn = field_map json__ "arn" LongStringAttribute.of_json in
      let state = field_map json__ "state" PublishedState.of_json in
      let name = field_map json__ "name" ShortStringAttribute.of_json in
      let id = field_map json__ "id" ReportId.of_json in
      make ?acceptanceType ?statusMessage ?productName ?companyName ?category
        ?series ?periodEnd ?periodStart ?description ?uploadState ?version
        ?arn ?state ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary for report resource."]
module CustomerAgreementSummary =
  struct
    type nonrec t =
      {
      name: LongStringAttribute.t option
        [@ocaml.doc "Name of the customer-agreement resource."];
      arn: LongStringAttribute.t option
        [@ocaml.doc "ARN of the customer-agreement resource."];
      id: CustomerAgreementIdAttribute.t option
        [@ocaml.doc "Identifier of the customer-agreement resource."];
      agreementArn: LongStringAttribute.t option
        [@ocaml.doc
          "ARN of the agreement resource the customer-agreement resource represents."];
      awsAccountId: ShortStringAttribute.t option
        [@ocaml.doc "AWS account Id that owns the resource."];
      organizationArn: LongStringAttribute.t option
        [@ocaml.doc "ARN of the organization that owns the resource."];
      effectiveStart: TimestampAttribute.t option
        [@ocaml.doc
          "Timestamp indicating when the agreement became effective."];
      effectiveEnd: TimestampAttribute.t option
        [@ocaml.doc
          "Timestamp indicating when the agreement was terminated."];
      state: CustomerAgreementState.t option
        [@ocaml.doc "State of the resource."];
      description: LongStringAttribute.t option
        [@ocaml.doc "Description of the resource."];
      acceptanceTerms: AgreementTerms.t option
        [@ocaml.doc "Terms required to accept the agreement resource."];
      terminateTerms: AgreementTerms.t option
        [@ocaml.doc
          "Terms required to terminate the customer-agreement resource."];
      type_: AgreementType.t option
        [@ocaml.doc "Type of the customer-agreement resource."]}
    let make ?name =
      fun ?arn ->
        fun ?id ->
          fun ?agreementArn ->
            fun ?awsAccountId ->
              fun ?organizationArn ->
                fun ?effectiveStart ->
                  fun ?effectiveEnd ->
                    fun ?state ->
                      fun ?description ->
                        fun ?acceptanceTerms ->
                          fun ?terminateTerms ->
                            fun ?type_ ->
                              fun () ->
                                {
                                  name;
                                  arn;
                                  id;
                                  agreementArn;
                                  awsAccountId;
                                  organizationArn;
                                  effectiveStart;
                                  effectiveEnd;
                                  state;
                                  description;
                                  acceptanceTerms;
                                  terminateTerms;
                                  type_
                                }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:LongStringAttribute.to_value));
        ("arn", (Option.map x.arn ~f:LongStringAttribute.to_value));
        ("id", (Option.map x.id ~f:CustomerAgreementIdAttribute.to_value));
        ("agreementArn",
          (Option.map x.agreementArn ~f:LongStringAttribute.to_value));
        ("awsAccountId",
          (Option.map x.awsAccountId ~f:ShortStringAttribute.to_value));
        ("organizationArn",
          (Option.map x.organizationArn ~f:LongStringAttribute.to_value));
        ("effectiveStart",
          (Option.map x.effectiveStart ~f:TimestampAttribute.to_value));
        ("effectiveEnd",
          (Option.map x.effectiveEnd ~f:TimestampAttribute.to_value));
        ("state", (Option.map x.state ~f:CustomerAgreementState.to_value));
        ("description",
          (Option.map x.description ~f:LongStringAttribute.to_value));
        ("acceptanceTerms",
          (Option.map x.acceptanceTerms ~f:AgreementTerms.to_value));
        ("terminateTerms",
          (Option.map x.terminateTerms ~f:AgreementTerms.to_value));
        ("type", (Option.map x.type_ ~f:AgreementType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:AgreementType.of_xml) (Xml.child xml_arg0 "type") in
      let terminateTerms =
        (Option.map ~f:AgreementTerms.of_xml)
          (Xml.child xml_arg0 "terminateTerms") in
      let acceptanceTerms =
        (Option.map ~f:AgreementTerms.of_xml)
          (Xml.child xml_arg0 "acceptanceTerms") in
      let description =
        (Option.map ~f:LongStringAttribute.of_xml)
          (Xml.child xml_arg0 "description") in
      let state =
        (Option.map ~f:CustomerAgreementState.of_xml)
          (Xml.child xml_arg0 "state") in
      let effectiveEnd =
        (Option.map ~f:TimestampAttribute.of_xml)
          (Xml.child xml_arg0 "effectiveEnd") in
      let effectiveStart =
        (Option.map ~f:TimestampAttribute.of_xml)
          (Xml.child xml_arg0 "effectiveStart") in
      let organizationArn =
        (Option.map ~f:LongStringAttribute.of_xml)
          (Xml.child xml_arg0 "organizationArn") in
      let awsAccountId =
        (Option.map ~f:ShortStringAttribute.of_xml)
          (Xml.child xml_arg0 "awsAccountId") in
      let agreementArn =
        (Option.map ~f:LongStringAttribute.of_xml)
          (Xml.child xml_arg0 "agreementArn") in
      let id =
        (Option.map ~f:CustomerAgreementIdAttribute.of_xml)
          (Xml.child xml_arg0 "id") in
      let arn =
        (Option.map ~f:LongStringAttribute.of_xml) (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:LongStringAttribute.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?type_ ?terminateTerms ?acceptanceTerms ?description ?state
        ?effectiveEnd ?effectiveStart ?organizationArn ?awsAccountId
        ?agreementArn ?id ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "type" AgreementType.of_json in
      let terminateTerms =
        field_map json__ "terminateTerms" AgreementTerms.of_json in
      let acceptanceTerms =
        field_map json__ "acceptanceTerms" AgreementTerms.of_json in
      let description =
        field_map json__ "description" LongStringAttribute.of_json in
      let state = field_map json__ "state" CustomerAgreementState.of_json in
      let effectiveEnd =
        field_map json__ "effectiveEnd" TimestampAttribute.of_json in
      let effectiveStart =
        field_map json__ "effectiveStart" TimestampAttribute.of_json in
      let organizationArn =
        field_map json__ "organizationArn" LongStringAttribute.of_json in
      let awsAccountId =
        field_map json__ "awsAccountId" ShortStringAttribute.of_json in
      let agreementArn =
        field_map json__ "agreementArn" LongStringAttribute.of_json in
      let id = field_map json__ "id" CustomerAgreementIdAttribute.of_json in
      let arn = field_map json__ "arn" LongStringAttribute.of_json in
      let name = field_map json__ "name" LongStringAttribute.of_json in
      make ?type_ ?terminateTerms ?acceptanceTerms ?description ?state
        ?effectiveEnd ?effectiveStart ?organizationArn ?awsAccountId
        ?agreementArn ?id ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary for customer-agreement resource."]
module SequenceNumberAttribute =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:1L); 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 AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "User does not have sufficient access to perform this action."]
module AccountSettings =
  struct
    type nonrec t =
      {
      notificationSubscriptionStatus: NotificationSubscriptionStatus.t option
        [@ocaml.doc "Notification subscription status of the customer."]}
    let make ?notificationSubscriptionStatus =
      fun () -> { notificationSubscriptionStatus }
    let to_value x =
      structure_to_value
        [("notificationSubscriptionStatus",
           (Option.map x.notificationSubscriptionStatus
              ~f:NotificationSubscriptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationSubscriptionStatus =
        (Option.map ~f:NotificationSubscriptionStatus.of_xml)
          (Xml.child xml_arg0 "notificationSubscriptionStatus") in
      make ?notificationSubscriptionStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationSubscriptionStatus =
        field_map json__ "notificationSubscriptionStatus"
          NotificationSubscriptionStatus.of_json in
      make ?notificationSubscriptionStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Account settings for the customer."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "Identifier of the affected resource."];
      resourceType: String_.t option
        [@ocaml.doc "Type of the affected resource."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request to create/modify content would result in a conflict."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "Number of seconds in which the caller can retry the request."]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An unknown server exception has occurred."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "Identifier of the affected resource."];
      resourceType: String_.t option
        [@ocaml.doc "Type of the affected resource."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request references a resource which does not exist."]
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "Identifier of the affected resource."];
      resourceType: String_.t option
        [@ocaml.doc "Type of the affected resource."];
      serviceCode: String_.t option
        [@ocaml.doc "Code for the affected service."];
      quotaCode: String_.t option [@ocaml.doc "Code for the affected quota."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?serviceCode ->
            fun ?quotaCode ->
              fun () ->
                { message; resourceId; resourceType; serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request would cause a service quota to be exceeded."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      serviceCode: String_.t option
        [@ocaml.doc "Code for the affected service."];
      quotaCode: String_.t option [@ocaml.doc "Code for the affected quota."];
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "Number of seconds in which the caller can retry the request."]}
    let make ?message =
      fun ?serviceCode ->
        fun ?quotaCode ->
          fun ?retryAfterSeconds ->
            fun () -> { message; serviceCode; quotaCode; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "Reason the request failed validation."];
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc "The field that caused the error, if applicable."]}
    let make ?message =
      fun ?reason ->
        fun ?fieldList -> fun () -> { message; reason; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("fieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fieldList") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?fieldList ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldList =
        field_map json__ "fieldList" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?fieldList ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request fails to satisfy the constraints specified by an AWS service."]
module NextTokenAttribute =
  struct
    type nonrec t = string
    let context_ = "NextTokenAttribute"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"NextTokenAttribute" j
    let to_json = simple_to_json to_value
  end
module ReportsList =
  struct
    type nonrec t = ReportSummary.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:ReportSummary.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:ReportSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ReportsList" ~of_json:ReportSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResultsAttribute =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:300) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResultsAttribute" 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 CustomerAgreementList =
  struct
    type nonrec t = CustomerAgreementSummary.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:CustomerAgreementSummary.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:CustomerAgreementSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomerAgreementList"
        ~of_json:CustomerAgreementSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module GetTermForReportResponseDocumentPresignedUrlString =
  struct
    type nonrec t = string
    let context_ = "GetTermForReportResponseDocumentPresignedUrlString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10240) >>=
             (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:"GetTermForReportResponseDocumentPresignedUrlString" j
    let to_json = simple_to_json to_value
  end
module GetReportResponseDocumentPresignedUrlString =
  struct
    type nonrec t = string
    let context_ = "GetReportResponseDocumentPresignedUrlString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10240) >>=
             (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:"GetReportResponseDocumentPresignedUrlString" j
    let to_json = simple_to_json to_value
  end
module ReportDetail =
  struct
    type nonrec t =
      {
      id: ReportId.t option
        [@ocaml.doc "Unique resource ID for the report resource."];
      name: ShortStringAttribute.t option
        [@ocaml.doc "Name for the report resource."];
      description: LongStringAttribute.t option
        [@ocaml.doc "Description for the report resource."];
      periodStart: TimestampAttribute.t option
        [@ocaml.doc
          "Timestamp indicating the report resource effective start."];
      periodEnd: TimestampAttribute.t option
        [@ocaml.doc
          "Timestamp indicating the report resource effective end."];
      createdAt: TimestampAttribute.t option
        [@ocaml.doc
          "Timestamp indicating when the report resource was created."];
      lastModifiedAt: TimestampAttribute.t option
        [@ocaml.doc
          "Timestamp indicating when the report resource was last modified."];
      deletedAt: TimestampAttribute.t option
        [@ocaml.doc
          "Timestamp indicating when the report resource was deleted."];
      state: PublishedState.t option
        [@ocaml.doc "Current state of the report resource"];
      arn: LongStringAttribute.t option
        [@ocaml.doc "ARN for the report resource."];
      series: ShortStringAttribute.t option
        [@ocaml.doc "Series for the report resource."];
      category: ShortStringAttribute.t option
        [@ocaml.doc "Category for the report resource."];
      companyName: ShortStringAttribute.t option
        [@ocaml.doc "Associated company name for the report resource."];
      productName: ShortStringAttribute.t option
        [@ocaml.doc "Associated product name for the report resource."];
      termArn: LongStringAttribute.t option
        [@ocaml.doc "Unique resource ARN for term resource."];
      version: VersionAttribute.t option
        [@ocaml.doc "Version for the report resource."];
      acceptanceType: AcceptanceType.t option
        [@ocaml.doc "Acceptance type for report."];
      sequenceNumber: SequenceNumberAttribute.t option
        [@ocaml.doc "Sequence number to enforce optimistic locking."];
      uploadState: UploadState.t option
        [@ocaml.doc "The current state of the document upload."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc "The message associated with the current upload state."]}
    let make ?id =
      fun ?name ->
        fun ?description ->
          fun ?periodStart ->
            fun ?periodEnd ->
              fun ?createdAt ->
                fun ?lastModifiedAt ->
                  fun ?deletedAt ->
                    fun ?state ->
                      fun ?arn ->
                        fun ?series ->
                          fun ?category ->
                            fun ?companyName ->
                              fun ?productName ->
                                fun ?termArn ->
                                  fun ?version ->
                                    fun ?acceptanceType ->
                                      fun ?sequenceNumber ->
                                        fun ?uploadState ->
                                          fun ?statusMessage ->
                                            fun () ->
                                              {
                                                id;
                                                name;
                                                description;
                                                periodStart;
                                                periodEnd;
                                                createdAt;
                                                lastModifiedAt;
                                                deletedAt;
                                                state;
                                                arn;
                                                series;
                                                category;
                                                companyName;
                                                productName;
                                                termArn;
                                                version;
                                                acceptanceType;
                                                sequenceNumber;
                                                uploadState;
                                                statusMessage
                                              }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ReportId.to_value));
        ("name", (Option.map x.name ~f:ShortStringAttribute.to_value));
        ("description",
          (Option.map x.description ~f:LongStringAttribute.to_value));
        ("periodStart",
          (Option.map x.periodStart ~f:TimestampAttribute.to_value));
        ("periodEnd",
          (Option.map x.periodEnd ~f:TimestampAttribute.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:TimestampAttribute.to_value));
        ("lastModifiedAt",
          (Option.map x.lastModifiedAt ~f:TimestampAttribute.to_value));
        ("deletedAt",
          (Option.map x.deletedAt ~f:TimestampAttribute.to_value));
        ("state", (Option.map x.state ~f:PublishedState.to_value));
        ("arn", (Option.map x.arn ~f:LongStringAttribute.to_value));
        ("series", (Option.map x.series ~f:ShortStringAttribute.to_value));
        ("category",
          (Option.map x.category ~f:ShortStringAttribute.to_value));
        ("companyName",
          (Option.map x.companyName ~f:ShortStringAttribute.to_value));
        ("productName",
          (Option.map x.productName ~f:ShortStringAttribute.to_value));
        ("termArn", (Option.map x.termArn ~f:LongStringAttribute.to_value));
        ("version", (Option.map x.version ~f:VersionAttribute.to_value));
        ("acceptanceType",
          (Option.map x.acceptanceType ~f:AcceptanceType.to_value));
        ("sequenceNumber",
          (Option.map x.sequenceNumber ~f:SequenceNumberAttribute.to_value));
        ("uploadState", (Option.map x.uploadState ~f:UploadState.to_value));
        ("statusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "statusMessage") in
      let uploadState =
        (Option.map ~f:UploadState.of_xml) (Xml.child xml_arg0 "uploadState") in
      let sequenceNumber =
        (Option.map ~f:SequenceNumberAttribute.of_xml)
          (Xml.child xml_arg0 "sequenceNumber") in
      let acceptanceType =
        (Option.map ~f:AcceptanceType.of_xml)
          (Xml.child xml_arg0 "acceptanceType") in
      let version =
        (Option.map ~f:VersionAttribute.of_xml)
          (Xml.child xml_arg0 "version") in
      let termArn =
        (Option.map ~f:LongStringAttribute.of_xml)
          (Xml.child xml_arg0 "termArn") in
      let productName =
        (Option.map ~f:ShortStringAttribute.of_xml)
          (Xml.child xml_arg0 "productName") in
      let companyName =
        (Option.map ~f:ShortStringAttribute.of_xml)
          (Xml.child xml_arg0 "companyName") in
      let category =
        (Option.map ~f:ShortStringAttribute.of_xml)
          (Xml.child xml_arg0 "category") in
      let series =
        (Option.map ~f:ShortStringAttribute.of_xml)
          (Xml.child xml_arg0 "series") in
      let arn =
        (Option.map ~f:LongStringAttribute.of_xml) (Xml.child xml_arg0 "arn") in
      let state =
        (Option.map ~f:PublishedState.of_xml) (Xml.child xml_arg0 "state") in
      let deletedAt =
        (Option.map ~f:TimestampAttribute.of_xml)
          (Xml.child xml_arg0 "deletedAt") in
      let lastModifiedAt =
        (Option.map ~f:TimestampAttribute.of_xml)
          (Xml.child xml_arg0 "lastModifiedAt") in
      let createdAt =
        (Option.map ~f:TimestampAttribute.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let periodEnd =
        (Option.map ~f:TimestampAttribute.of_xml)
          (Xml.child xml_arg0 "periodEnd") in
      let periodStart =
        (Option.map ~f:TimestampAttribute.of_xml)
          (Xml.child xml_arg0 "periodStart") in
      let description =
        (Option.map ~f:LongStringAttribute.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:ShortStringAttribute.of_xml)
          (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:ReportId.of_xml) (Xml.child xml_arg0 "id") in
      make ?statusMessage ?uploadState ?sequenceNumber ?acceptanceType
        ?version ?termArn ?productName ?companyName ?category ?series ?arn
        ?state ?deletedAt ?lastModifiedAt ?createdAt ?periodEnd ?periodStart
        ?description ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage =
        field_map json__ "statusMessage" StatusMessage.of_json in
      let uploadState = field_map json__ "uploadState" UploadState.of_json in
      let sequenceNumber =
        field_map json__ "sequenceNumber" SequenceNumberAttribute.of_json in
      let acceptanceType =
        field_map json__ "acceptanceType" AcceptanceType.of_json in
      let version = field_map json__ "version" VersionAttribute.of_json in
      let termArn = field_map json__ "termArn" LongStringAttribute.of_json in
      let productName =
        field_map json__ "productName" ShortStringAttribute.of_json in
      let companyName =
        field_map json__ "companyName" ShortStringAttribute.of_json in
      let category = field_map json__ "category" ShortStringAttribute.of_json in
      let series = field_map json__ "series" ShortStringAttribute.of_json in
      let arn = field_map json__ "arn" LongStringAttribute.of_json in
      let state = field_map json__ "state" PublishedState.of_json in
      let deletedAt = field_map json__ "deletedAt" TimestampAttribute.of_json in
      let lastModifiedAt =
        field_map json__ "lastModifiedAt" TimestampAttribute.of_json in
      let createdAt = field_map json__ "createdAt" TimestampAttribute.of_json in
      let periodEnd = field_map json__ "periodEnd" TimestampAttribute.of_json in
      let periodStart =
        field_map json__ "periodStart" TimestampAttribute.of_json in
      let description =
        field_map json__ "description" LongStringAttribute.of_json in
      let name = field_map json__ "name" ShortStringAttribute.of_json in
      let id = field_map json__ "id" ReportId.of_json in
      make ?statusMessage ?uploadState ?sequenceNumber ?acceptanceType
        ?version ?termArn ?productName ?companyName ?category ?series ?arn
        ?state ?deletedAt ?lastModifiedAt ?createdAt ?periodEnd ?periodStart
        ?description ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Full detail for report resource metadata."]
module PutAccountSettingsResponse =
  struct
    type nonrec t = {
      accountSettings: AccountSettings.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountSettings = fun () -> { accountSettings }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("accountSettings",
           (Option.map x.accountSettings ~f:AccountSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountSettings =
        (Option.map ~f:AccountSettings.of_xml)
          (Xml.child xml_arg0 "accountSettings") in
      make ?accountSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountSettings =
        field_map json__ "accountSettings" AccountSettings.of_json in
      make ?accountSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Put the account settings for Artifact."]
module PutAccountSettingsRequest =
  struct
    type nonrec t =
      {
      notificationSubscriptionStatus: NotificationSubscriptionStatus.t option
        [@ocaml.doc "Desired notification subscription status."]}
    let make ?notificationSubscriptionStatus =
      fun () -> { notificationSubscriptionStatus }
    let to_value x =
      structure_to_value
        [("notificationSubscriptionStatus",
           (Option.map x.notificationSubscriptionStatus
              ~f:NotificationSubscriptionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationSubscriptionStatus =
        (Option.map ~f:NotificationSubscriptionStatus.of_xml)
          (Xml.child xml_arg0 "notificationSubscriptionStatus") in
      make ?notificationSubscriptionStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationSubscriptionStatus =
        field_map json__ "notificationSubscriptionStatus"
          NotificationSubscriptionStatus.of_json in
      make ?notificationSubscriptionStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Put the account settings for Artifact."]
module ListReportsResponse =
  struct
    type nonrec t =
      {
      reports: ReportsList.t option [@ocaml.doc "List of report resources."];
      nextToken: NextTokenAttribute.t option
        [@ocaml.doc
          "Pagination token to request the next page of resources."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reports = fun ?nextToken -> fun () -> { reports; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("reports", (Option.map x.reports ~f:ReportsList.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:NextTokenAttribute.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenAttribute.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let reports =
        (Option.map ~f:ReportsList.of_xml) (Xml.child xml_arg0 "reports") in
      make ?nextToken ?reports ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextTokenAttribute.of_json in
      let reports = field_map json__ "reports" ReportsList.of_json in
      make ?nextToken ?reports ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List available reports."]
module ListReportsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResultsAttribute.t option
        [@ocaml.doc
          "Maximum number of resources to return in the paginated response."];
      nextToken: NextTokenAttribute.t option
        [@ocaml.doc
          "Pagination token to request the next page of resources."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults",
           (Option.map x.maxResults ~f:MaxResultsAttribute.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:NextTokenAttribute.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenAttribute.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResultsAttribute.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextTokenAttribute.of_json in
      let maxResults =
        field_map json__ "maxResults" MaxResultsAttribute.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List available reports."]
module ListReportVersionsResponse =
  struct
    type nonrec t =
      {
      reports: ReportsList.t option [@ocaml.doc "List of report resources."];
      nextToken: NextTokenAttribute.t option
        [@ocaml.doc
          "Pagination token to request the next page of resources."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reports = fun ?nextToken -> fun () -> { reports; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("reports", (Option.map x.reports ~f:ReportsList.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:NextTokenAttribute.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenAttribute.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let reports =
        (Option.map ~f:ReportsList.of_xml) (Xml.child xml_arg0 "reports") in
      make ?nextToken ?reports ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextTokenAttribute.of_json in
      let reports = field_map json__ "reports" ReportsList.of_json in
      make ?nextToken ?reports ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List available report versions for a given report."]
module ListReportVersionsRequest =
  struct
    type nonrec t =
      {
      reportId: ReportId.t
        [@ocaml.doc "Unique resource ID for the report resource."];
      maxResults: MaxResultsAttribute.t option
        [@ocaml.doc
          "Maximum number of resources to return in the paginated response."];
      nextToken: NextTokenAttribute.t option
        [@ocaml.doc
          "Pagination token to request the next page of resources."]}
    let context_ = "ListReportVersionsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~reportId -> fun () -> { maxResults; nextToken; reportId }
    let to_value x =
      structure_to_value
        [("reportId", (Some (ReportId.to_value x.reportId)));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxResultsAttribute.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:NextTokenAttribute.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenAttribute.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResultsAttribute.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let reportId =
        ReportId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "reportId") in
      make ?nextToken ?maxResults ~reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextTokenAttribute.of_json in
      let maxResults =
        field_map json__ "maxResults" MaxResultsAttribute.of_json in
      let reportId = field_map_exn json__ "reportId" ReportId.of_json in
      make ?nextToken ?maxResults ~reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List available report versions for a given report."]
module ListCustomerAgreementsResponse =
  struct
    type nonrec t =
      {
      customerAgreements: CustomerAgreementList.t option
        [@ocaml.doc "List of customer-agreement resources."];
      nextToken: NextTokenAttribute.t option
        [@ocaml.doc
          "Pagination token to request the next page of resources."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?customerAgreements =
      fun ?nextToken -> fun () -> { customerAgreements; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("customerAgreements",
           (Option.map x.customerAgreements ~f:CustomerAgreementList.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:NextTokenAttribute.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenAttribute.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let customerAgreements =
        (Option.map ~f:CustomerAgreementList.of_xml)
          (Xml.child xml_arg0 "customerAgreements") in
      make ?nextToken ?customerAgreements ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextTokenAttribute.of_json in
      let customerAgreements =
        field_map json__ "customerAgreements" CustomerAgreementList.of_json in
      make ?nextToken ?customerAgreements ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List active customer-agreements applicable to calling identity."]
module ListCustomerAgreementsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResultsAttribute.t option
        [@ocaml.doc
          "Maximum number of resources to return in the paginated response."];
      nextToken: NextTokenAttribute.t option
        [@ocaml.doc
          "Pagination token to request the next page of resources."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults",
           (Option.map x.maxResults ~f:MaxResultsAttribute.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:NextTokenAttribute.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenAttribute.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResultsAttribute.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextTokenAttribute.of_json in
      let maxResults =
        field_map json__ "maxResults" MaxResultsAttribute.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List active customer-agreements applicable to calling identity."]
module GetTermForReportResponse =
  struct
    type nonrec t =
      {
      documentPresignedUrl:
        GetTermForReportResponseDocumentPresignedUrlString.t option
        [@ocaml.doc "Presigned S3 url to access the term content."];
      termToken: String_.t option
        [@ocaml.doc "Unique token representing this request event."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?documentPresignedUrl =
      fun ?termToken -> fun () -> { documentPresignedUrl; termToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("documentPresignedUrl",
           (Option.map x.documentPresignedUrl
              ~f:GetTermForReportResponseDocumentPresignedUrlString.to_value));
        ("termToken", (Option.map x.termToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let termToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "termToken") in
      let documentPresignedUrl =
        (Option.map
           ~f:GetTermForReportResponseDocumentPresignedUrlString.of_xml)
          (Xml.child xml_arg0 "documentPresignedUrl") in
      make ?termToken ?documentPresignedUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let termToken = field_map json__ "termToken" String_.of_json in
      let documentPresignedUrl =
        field_map json__ "documentPresignedUrl"
          GetTermForReportResponseDocumentPresignedUrlString.of_json in
      make ?termToken ?documentPresignedUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get the Term content associated with a single report."]
module GetTermForReportRequest =
  struct
    type nonrec t =
      {
      reportId: ReportId.t
        [@ocaml.doc "Unique resource ID for the report resource."];
      reportVersion: VersionAttribute.t option
        [@ocaml.doc "Version for the report resource."]}
    let context_ = "GetTermForReportRequest"
    let make ?reportVersion =
      fun ~reportId -> fun () -> { reportVersion; reportId }
    let to_value x =
      structure_to_value
        [("reportId", (Some (ReportId.to_value x.reportId)));
        ("reportVersion",
          (Option.map x.reportVersion ~f:VersionAttribute.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportVersion =
        (Option.map ~f:VersionAttribute.of_xml)
          (Xml.child xml_arg0 "reportVersion") in
      let reportId =
        ReportId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "reportId") in
      make ?reportVersion ~reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportVersion =
        field_map json__ "reportVersion" VersionAttribute.of_json in
      let reportId = field_map_exn json__ "reportId" ReportId.of_json in
      make ?reportVersion ~reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get the Term content associated with a single report."]
module GetReportResponse =
  struct
    type nonrec t =
      {
      documentPresignedUrl:
        GetReportResponseDocumentPresignedUrlString.t option
        [@ocaml.doc "Presigned S3 url to access the report content."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?documentPresignedUrl = fun () -> { documentPresignedUrl }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("documentPresignedUrl",
           (Option.map x.documentPresignedUrl
              ~f:GetReportResponseDocumentPresignedUrlString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let documentPresignedUrl =
        (Option.map ~f:GetReportResponseDocumentPresignedUrlString.of_xml)
          (Xml.child xml_arg0 "documentPresignedUrl") in
      make ?documentPresignedUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let documentPresignedUrl =
        field_map json__ "documentPresignedUrl"
          GetReportResponseDocumentPresignedUrlString.of_json in
      make ?documentPresignedUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get the content for a single report."]
module GetReportRequest =
  struct
    type nonrec t =
      {
      reportId: ReportId.t
        [@ocaml.doc "Unique resource ID for the report resource."];
      reportVersion: VersionAttribute.t option
        [@ocaml.doc "Version for the report resource."];
      termToken: ShortStringAttribute.t
        [@ocaml.doc
          "Unique download token provided by GetTermForReport API."]}
    let context_ = "GetReportRequest"
    let make ?reportVersion =
      fun ~reportId ->
        fun ~termToken -> fun () -> { reportVersion; reportId; termToken }
    let to_value x =
      structure_to_value
        [("reportId", (Some (ReportId.to_value x.reportId)));
        ("reportVersion",
          (Option.map x.reportVersion ~f:VersionAttribute.to_value));
        ("termToken", (Some (ShortStringAttribute.to_value x.termToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let termToken =
        ShortStringAttribute.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "termToken") in
      let reportVersion =
        (Option.map ~f:VersionAttribute.of_xml)
          (Xml.child xml_arg0 "reportVersion") in
      let reportId =
        ReportId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "reportId") in
      make ~termToken ?reportVersion ~reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let termToken =
        field_map_exn json__ "termToken" ShortStringAttribute.of_json in
      let reportVersion =
        field_map json__ "reportVersion" VersionAttribute.of_json in
      let reportId = field_map_exn json__ "reportId" ReportId.of_json in
      make ~termToken ?reportVersion ~reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get the content for a single report."]
module GetReportMetadataResponse =
  struct
    type nonrec t =
      {
      reportDetails: ReportDetail.t option
        [@ocaml.doc "Report resource detail."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reportDetails = fun () -> { reportDetails }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("reportDetails",
           (Option.map x.reportDetails ~f:ReportDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportDetails =
        (Option.map ~f:ReportDetail.of_xml)
          (Xml.child xml_arg0 "reportDetails") in
      make ?reportDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportDetails =
        field_map json__ "reportDetails" ReportDetail.of_json in
      make ?reportDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get the metadata for a single report."]
module GetReportMetadataRequest =
  struct
    type nonrec t =
      {
      reportId: ReportId.t
        [@ocaml.doc "Unique resource ID for the report resource."];
      reportVersion: VersionAttribute.t option
        [@ocaml.doc "Version for the report resource."]}
    let context_ = "GetReportMetadataRequest"
    let make ?reportVersion =
      fun ~reportId -> fun () -> { reportVersion; reportId }
    let to_value x =
      structure_to_value
        [("reportId", (Some (ReportId.to_value x.reportId)));
        ("reportVersion",
          (Option.map x.reportVersion ~f:VersionAttribute.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportVersion =
        (Option.map ~f:VersionAttribute.of_xml)
          (Xml.child xml_arg0 "reportVersion") in
      let reportId =
        ReportId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "reportId") in
      make ?reportVersion ~reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportVersion =
        field_map json__ "reportVersion" VersionAttribute.of_json in
      let reportId = field_map_exn json__ "reportId" ReportId.of_json in
      make ?reportVersion ~reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get the metadata for a single report."]
module GetAccountSettingsResponse =
  struct
    type nonrec t = {
      accountSettings: AccountSettings.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accountSettings = fun () -> { accountSettings }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("accountSettings",
           (Option.map x.accountSettings ~f:AccountSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountSettings =
        (Option.map ~f:AccountSettings.of_xml)
          (Xml.child xml_arg0 "accountSettings") in
      make ?accountSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountSettings =
        field_map json__ "accountSettings" AccountSettings.of_json in
      make ?accountSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get the account settings for Artifact."]
module GetAccountSettingsRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get the account settings for Artifact."]