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.cur
let apiVersion = "2017-01-06"
let endpointPrefix = "cur"
let serviceFullName = "AWS Cost and Usage Report Service"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "AWSOrigamiServiceGatewayService"
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 AdditionalArtifact =
  struct
    type nonrec t =
      | REDSHIFT 
      | QUICKSIGHT 
      | ATHENA 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REDSHIFT -> "REDSHIFT"
      | QUICKSIGHT -> "QUICKSIGHT"
      | ATHENA -> "ATHENA"
      | Non_static_id s -> s
    let of_string =
      function
      | "REDSHIFT" -> REDSHIFT
      | "QUICKSIGHT" -> QUICKSIGHT
      | "ATHENA" -> ATHENA
      | 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 AdditionalArtifact" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AdditionalArtifact" j)
    let to_json = simple_to_json to_value
  end
module LastDelivery =
  struct
    type nonrec t = string
    let context_ = "LastDelivery"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:16) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[0-9]{8}[T][0-9]{6}([Z]|[+-][0-9]{4})")));
        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:"LastDelivery" j
    let to_json = simple_to_json to_value
  end
module LastStatus =
  struct
    type nonrec t =
      | SUCCESS 
      | ERROR_PERMISSIONS 
      | ERROR_NO_BUCKET 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUCCESS -> "SUCCESS"
      | ERROR_PERMISSIONS -> "ERROR_PERMISSIONS"
      | ERROR_NO_BUCKET -> "ERROR_NO_BUCKET"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUCCESS" -> SUCCESS
      | "ERROR_PERMISSIONS" -> ERROR_PERMISSIONS
      | "ERROR_NO_BUCKET" -> ERROR_NO_BUCKET
      | 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 LastStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LastStatus" j)
    let to_json = simple_to_json to_value
  end
module SchemaElement =
  struct
    type nonrec t =
      | RESOURCES 
      | SPLIT_COST_ALLOCATION_DATA 
      | MANUAL_DISCOUNT_COMPATIBILITY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RESOURCES -> "RESOURCES"
      | SPLIT_COST_ALLOCATION_DATA -> "SPLIT_COST_ALLOCATION_DATA"
      | MANUAL_DISCOUNT_COMPATIBILITY -> "MANUAL_DISCOUNT_COMPATIBILITY"
      | Non_static_id s -> s
    let of_string =
      function
      | "RESOURCES" -> RESOURCES
      | "SPLIT_COST_ALLOCATION_DATA" -> SPLIT_COST_ALLOCATION_DATA
      | "MANUAL_DISCOUNT_COMPATIBILITY" -> MANUAL_DISCOUNT_COMPATIBILITY
      | 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 SchemaElement" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SchemaElement" j)
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (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:"TagValue" j
    let to_json = simple_to_json to_value
  end
module AWSRegion =
  struct
    type nonrec t =
      | Af_south_1 
      | Ap_east_1 
      | Ap_south_1 
      | Ap_south_2 
      | Ap_southeast_1 
      | Ap_southeast_2 
      | Ap_southeast_3 
      | Ap_northeast_1 
      | Ap_northeast_2 
      | Ap_northeast_3 
      | Ca_central_1 
      | Eu_central_1 
      | Eu_central_2 
      | Eu_west_1 
      | Eu_west_2 
      | Eu_west_3 
      | Eu_north_1 
      | Eu_south_1 
      | Eu_south_2 
      | Me_central_1 
      | Me_south_1 
      | Sa_east_1 
      | Us_east_1 
      | Us_east_2 
      | Us_west_1 
      | Us_west_2 
      | Cn_north_1 
      | Cn_northwest_1 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Af_south_1 -> "af-south-1"
      | Ap_east_1 -> "ap-east-1"
      | Ap_south_1 -> "ap-south-1"
      | Ap_south_2 -> "ap-south-2"
      | Ap_southeast_1 -> "ap-southeast-1"
      | Ap_southeast_2 -> "ap-southeast-2"
      | Ap_southeast_3 -> "ap-southeast-3"
      | Ap_northeast_1 -> "ap-northeast-1"
      | Ap_northeast_2 -> "ap-northeast-2"
      | Ap_northeast_3 -> "ap-northeast-3"
      | Ca_central_1 -> "ca-central-1"
      | Eu_central_1 -> "eu-central-1"
      | Eu_central_2 -> "eu-central-2"
      | Eu_west_1 -> "eu-west-1"
      | Eu_west_2 -> "eu-west-2"
      | Eu_west_3 -> "eu-west-3"
      | Eu_north_1 -> "eu-north-1"
      | Eu_south_1 -> "eu-south-1"
      | Eu_south_2 -> "eu-south-2"
      | Me_central_1 -> "me-central-1"
      | Me_south_1 -> "me-south-1"
      | Sa_east_1 -> "sa-east-1"
      | Us_east_1 -> "us-east-1"
      | Us_east_2 -> "us-east-2"
      | Us_west_1 -> "us-west-1"
      | Us_west_2 -> "us-west-2"
      | Cn_north_1 -> "cn-north-1"
      | Cn_northwest_1 -> "cn-northwest-1"
      | Non_static_id s -> s
    let of_string =
      function
      | "af-south-1" -> Af_south_1
      | "ap-east-1" -> Ap_east_1
      | "ap-south-1" -> Ap_south_1
      | "ap-south-2" -> Ap_south_2
      | "ap-southeast-1" -> Ap_southeast_1
      | "ap-southeast-2" -> Ap_southeast_2
      | "ap-southeast-3" -> Ap_southeast_3
      | "ap-northeast-1" -> Ap_northeast_1
      | "ap-northeast-2" -> Ap_northeast_2
      | "ap-northeast-3" -> Ap_northeast_3
      | "ca-central-1" -> Ca_central_1
      | "eu-central-1" -> Eu_central_1
      | "eu-central-2" -> Eu_central_2
      | "eu-west-1" -> Eu_west_1
      | "eu-west-2" -> Eu_west_2
      | "eu-west-3" -> Eu_west_3
      | "eu-north-1" -> Eu_north_1
      | "eu-south-1" -> Eu_south_1
      | "eu-south-2" -> Eu_south_2
      | "me-central-1" -> Me_central_1
      | "me-south-1" -> Me_south_1
      | "sa-east-1" -> Sa_east_1
      | "us-east-1" -> Us_east_1
      | "us-east-2" -> Us_east_2
      | "us-west-1" -> Us_west_1
      | "us-west-2" -> Us_west_2
      | "cn-north-1" -> Cn_north_1
      | "cn-northwest-1" -> Cn_northwest_1
      | 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 AWSRegion" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AWSRegion" j)
    let to_json = simple_to_json to_value
  end
module AdditionalArtifactList =
  struct
    type nonrec t = AdditionalArtifact.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:AdditionalArtifact.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:AdditionalArtifact.of_xml)
    let of_json j =
      list_of_json ~kind:"AdditionalArtifactList"
        ~of_json:AdditionalArtifact.of_json j
    let to_json v = composed_to_json to_value v
  end
module BillingViewArn =
  struct
    type nonrec t = string
    let context_ = "BillingViewArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"(arn:aws(-cn)?:billing::[0-9]{12}:billingview/)?[a-zA-Z0-9_\\+=\\.\\-@].{1,30}"));
        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:"BillingViewArn" j
    let to_json = simple_to_json to_value
  end
module CompressionFormat =
  struct
    type nonrec t =
      | ZIP 
      | GZIP 
      | Parquet 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ZIP -> "ZIP"
      | GZIP -> "GZIP"
      | Parquet -> "Parquet"
      | Non_static_id s -> s
    let of_string =
      function
      | "ZIP" -> ZIP
      | "GZIP" -> GZIP
      | "Parquet" -> Parquet
      | 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 CompressionFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CompressionFormat" j)
    let to_json = simple_to_json to_value
  end
module RefreshClosedReports =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module ReportFormat =
  struct
    type nonrec t =
      | TextORcsv 
      | Parquet 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TextORcsv -> "textORcsv"
      | Parquet -> "Parquet"
      | Non_static_id s -> s
    let of_string =
      function
      | "textORcsv" -> TextORcsv
      | "Parquet" -> Parquet
      | 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 ReportFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReportFormat" j)
    let to_json = simple_to_json to_value
  end
module ReportName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The name of the report that you want to create. The name must be unique, is case sensitive, and can't include spaces."]
    let context_ = "ReportName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_pattern i ~pattern:"[0-9A-Za-z!\\-_.*\\'()]+"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ReportName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The name of the report that you want to create. The name must be unique, is case sensitive, and can't include spaces."]
module ReportStatus =
  struct
    type nonrec t =
      {
      lastDelivery: LastDelivery.t option
        [@ocaml.doc "A timestamp that gives the date of a report delivery."];
      lastStatus: LastStatus.t option
        [@ocaml.doc "An enum that gives the status of a report delivery."]}
    let make ?lastDelivery =
      fun ?lastStatus -> fun () -> { lastDelivery; lastStatus }
    let to_value x =
      structure_to_value
        [("lastDelivery",
           (Option.map x.lastDelivery ~f:LastDelivery.to_value));
        ("lastStatus", (Option.map x.lastStatus ~f:LastStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastStatus =
        (Option.map ~f:LastStatus.of_xml) (Xml.child xml_arg0 "lastStatus") in
      let lastDelivery =
        (Option.map ~f:LastDelivery.of_xml)
          (Xml.child xml_arg0 "lastDelivery") in
      make ?lastStatus ?lastDelivery ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastStatus = field_map json__ "lastStatus" LastStatus.of_json in
      let lastDelivery = field_map json__ "lastDelivery" LastDelivery.of_json in
      make ?lastStatus ?lastDelivery ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A two element dictionary with a lastDelivery and lastStatus key whose values describe the date and status of the last delivered report for a particular report definition."]
module ReportVersioning =
  struct
    type nonrec t =
      | CREATE_NEW_REPORT 
      | OVERWRITE_REPORT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_NEW_REPORT -> "CREATE_NEW_REPORT"
      | OVERWRITE_REPORT -> "OVERWRITE_REPORT"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_NEW_REPORT" -> CREATE_NEW_REPORT
      | "OVERWRITE_REPORT" -> OVERWRITE_REPORT
      | 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 ReportVersioning" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReportVersioning" j)
    let to_json = simple_to_json to_value
  end
module S3Bucket =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The S3 bucket where Amazon Web Services delivers the report."]
    let context_ = "S3Bucket"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_\\.\\-]+"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3Bucket" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The S3 bucket where Amazon Web Services delivers the report."]
module S3Prefix =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The prefix that Amazon Web Services adds to the report name when Amazon Web Services delivers the report. Your prefix can't include spaces."]
    let context_ = "S3Prefix"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_pattern i ~pattern:"[0-9A-Za-z!\\-_.*\\'()/]*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3Prefix" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The prefix that Amazon Web Services adds to the report name when Amazon Web Services delivers the report. Your prefix can't include spaces."]
module SchemaElementList =
  struct
    type nonrec t = SchemaElement.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:SchemaElement.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:SchemaElement.of_xml)
    let of_json j =
      list_of_json ~kind:"SchemaElementList" ~of_json:SchemaElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module TimeUnit =
  struct
    type nonrec t =
      | HOURLY 
      | DAILY 
      | MONTHLY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | HOURLY -> "HOURLY"
      | DAILY -> "DAILY"
      | MONTHLY -> "MONTHLY"
      | Non_static_id s -> s
    let of_string =
      function
      | "HOURLY" -> HOURLY
      | "DAILY" -> DAILY
      | "MONTHLY" -> MONTHLY
      | 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 TimeUnit" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TimeUnit" j)
    let to_json = simple_to_json to_value
  end
module ErrorMessage =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A message to show the detail of the exception."]
    let context_ = "ErrorMessage"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "A message to show the detail of the exception."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc
          "The key of the tag. Tag keys are case sensitive. Each report definition can only have up to one tag with the same key. If you try to add an existing tag with the same key, the existing tag value will be updated to the new value."];
      value: TagValue.t
        [@ocaml.doc
          "The value of the tag. Tag values are case-sensitive. This can be an empty string."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a tag. A tag is a key-value pair. You can add up to 50 tags to a report definition."]
module ReportDefinition =
  struct
    type nonrec t =
      {
      reportName: ReportName.t ;
      timeUnit: TimeUnit.t ;
      format: ReportFormat.t ;
      compression: CompressionFormat.t ;
      additionalSchemaElements: SchemaElementList.t
        [@ocaml.doc
          "A list of strings that indicate additional content that Amazon Web Services includes in the report, such as individual resource IDs."];
      s3Bucket: S3Bucket.t ;
      s3Prefix: S3Prefix.t ;
      s3Region: AWSRegion.t ;
      additionalArtifacts: AdditionalArtifactList.t option
        [@ocaml.doc
          "A list of manifests that you want Amazon Web Services to create for this report."];
      refreshClosedReports: RefreshClosedReports.t option
        [@ocaml.doc
          "Whether you want Amazon Web Services to update your reports after they have been finalized if Amazon Web Services detects charges related to previous months. These charges can include refunds, credits, or support fees."];
      reportVersioning: ReportVersioning.t option
        [@ocaml.doc
          "Whether you want Amazon Web Services to overwrite the previous version of each report or to deliver the report in addition to the previous versions."];
      billingViewArn: BillingViewArn.t option
        [@ocaml.doc
          "The Amazon resource name of the billing view. The BillingViewArn is needed to create Amazon Web Services Cost and Usage Report for each billing group maintained in the Amazon Web Services Billing Conductor service. The BillingViewArn for a billing group can be constructed as: arn:aws:billing::payer-account-id:billingview/billing-group-primary-account-id"];
      reportStatus: ReportStatus.t option
        [@ocaml.doc "The status of the report."]}
    let context_ = "ReportDefinition"
    let make ?additionalArtifacts =
      fun ?refreshClosedReports ->
        fun ?reportVersioning ->
          fun ?billingViewArn ->
            fun ?reportStatus ->
              fun ~reportName ->
                fun ~timeUnit ->
                  fun ~format ->
                    fun ~compression ->
                      fun ~additionalSchemaElements ->
                        fun ~s3Bucket ->
                          fun ~s3Prefix ->
                            fun ~s3Region ->
                              fun () ->
                                {
                                  additionalArtifacts;
                                  refreshClosedReports;
                                  reportVersioning;
                                  billingViewArn;
                                  reportStatus;
                                  reportName;
                                  timeUnit;
                                  format;
                                  compression;
                                  additionalSchemaElements;
                                  s3Bucket;
                                  s3Prefix;
                                  s3Region
                                }
    let to_value x =
      structure_to_value
        [("ReportName", (Some (ReportName.to_value x.reportName)));
        ("TimeUnit", (Some (TimeUnit.to_value x.timeUnit)));
        ("Format", (Some (ReportFormat.to_value x.format)));
        ("Compression", (Some (CompressionFormat.to_value x.compression)));
        ("AdditionalSchemaElements",
          (Some (SchemaElementList.to_value x.additionalSchemaElements)));
        ("S3Bucket", (Some (S3Bucket.to_value x.s3Bucket)));
        ("S3Prefix", (Some (S3Prefix.to_value x.s3Prefix)));
        ("S3Region", (Some (AWSRegion.to_value x.s3Region)));
        ("AdditionalArtifacts",
          (Option.map x.additionalArtifacts
             ~f:AdditionalArtifactList.to_value));
        ("RefreshClosedReports",
          (Option.map x.refreshClosedReports ~f:RefreshClosedReports.to_value));
        ("ReportVersioning",
          (Option.map x.reportVersioning ~f:ReportVersioning.to_value));
        ("BillingViewArn",
          (Option.map x.billingViewArn ~f:BillingViewArn.to_value));
        ("ReportStatus",
          (Option.map x.reportStatus ~f:ReportStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportStatus =
        (Option.map ~f:ReportStatus.of_xml)
          (Xml.child xml_arg0 "ReportStatus") in
      let billingViewArn =
        (Option.map ~f:BillingViewArn.of_xml)
          (Xml.child xml_arg0 "BillingViewArn") in
      let reportVersioning =
        (Option.map ~f:ReportVersioning.of_xml)
          (Xml.child xml_arg0 "ReportVersioning") in
      let refreshClosedReports =
        (Option.map ~f:RefreshClosedReports.of_xml)
          (Xml.child xml_arg0 "RefreshClosedReports") in
      let additionalArtifacts =
        (Option.map ~f:AdditionalArtifactList.of_xml)
          (Xml.child xml_arg0 "AdditionalArtifacts") in
      let s3Region =
        AWSRegion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "S3Region") in
      let s3Prefix =
        S3Prefix.of_xml (Xml.child_exn ~context:context_ xml_arg0 "S3Prefix") in
      let s3Bucket =
        S3Bucket.of_xml (Xml.child_exn ~context:context_ xml_arg0 "S3Bucket") in
      let additionalSchemaElements =
        SchemaElementList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "AdditionalSchemaElements") in
      let compression =
        CompressionFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Compression") in
      let format =
        ReportFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Format") in
      let timeUnit =
        TimeUnit.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TimeUnit") in
      let reportName =
        ReportName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReportName") in
      make ?reportStatus ?billingViewArn ?reportVersioning
        ?refreshClosedReports ?additionalArtifacts ~s3Region ~s3Prefix
        ~s3Bucket ~additionalSchemaElements ~compression ~format ~timeUnit
        ~reportName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportStatus = field_map json__ "ReportStatus" ReportStatus.of_json in
      let billingViewArn =
        field_map json__ "BillingViewArn" BillingViewArn.of_json in
      let reportVersioning =
        field_map json__ "ReportVersioning" ReportVersioning.of_json in
      let refreshClosedReports =
        field_map json__ "RefreshClosedReports" RefreshClosedReports.of_json in
      let additionalArtifacts =
        field_map json__ "AdditionalArtifacts" AdditionalArtifactList.of_json in
      let s3Region = field_map_exn json__ "S3Region" AWSRegion.of_json in
      let s3Prefix = field_map_exn json__ "S3Prefix" S3Prefix.of_json in
      let s3Bucket = field_map_exn json__ "S3Bucket" S3Bucket.of_json in
      let additionalSchemaElements =
        field_map_exn json__ "AdditionalSchemaElements"
          SchemaElementList.of_json in
      let compression =
        field_map_exn json__ "Compression" CompressionFormat.of_json in
      let format = field_map_exn json__ "Format" ReportFormat.of_json in
      let timeUnit = field_map_exn json__ "TimeUnit" TimeUnit.of_json in
      let reportName = field_map_exn json__ "ReportName" ReportName.of_json in
      make ?reportStatus ?billingViewArn ?reportVersioning
        ?refreshClosedReports ?additionalArtifacts ~s3Region ~s3Prefix
        ~s3Bucket ~additionalSchemaElements ~compression ~format ~timeUnit
        ~reportName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The definition of Amazon Web Services Cost and Usage Report. You can specify the report name, time unit, report format, compression format, S3 bucket, additional artifacts, and schema elements in the definition."]
module InternalErrorException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An error on the server occurred during the processing of your request. Try again later."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified report (ReportName) in the request doesn't exist."]
module ValidationException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input fails to satisfy the constraints specified by an Amazon Web Services service."]
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (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:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module DuplicateReportNameException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A report with the specified name already exists in the account. Specify a different report name."]
module ReportLimitReachedException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This account already has five reports defined. To define a new report, you must delete an existing report."]
module GenericString =
  struct
    type nonrec t = string[@@ocaml.doc "A generic string."]
    let context_ = "GenericString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_\\.\\-=]*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GenericString" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "A generic string."]
module ReportDefinitionList =
  struct
    type nonrec t = ReportDefinition.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:ReportDefinition.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:ReportDefinition.of_xml)
    let of_json j =
      list_of_json ~kind:"ReportDefinitionList"
        ~of_json:ReportDefinition.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int[@@ocaml.doc
                         "The maximum number of results that Amazon Web Services returns for the operation."]
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:5) >>= (fun () -> check_int_min i ~min:5));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The maximum number of results that Amazon Web Services returns for the operation."]
module DeleteResponseMessage =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Whether the deletion was successful or not."]
    let context_ = "DeleteResponseMessage"
    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:"DeleteResponseMessage" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Whether the deletion was successful or not."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 "Disassociates a set of tags from a report definition."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      reportName: ReportName.t
        [@ocaml.doc
          "The report name of the report definition that tags are to be disassociated from."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The tags to be disassociated from the report definition resource."]}
    let context_ = "UntagResourceRequest"
    let make ~reportName = fun ~tagKeys -> fun () -> { reportName; tagKeys }
    let to_value x =
      structure_to_value
        [("ReportName", (Some (ReportName.to_value x.reportName)));
        ("TagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let reportName =
        ReportName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReportName") in
      make ~tagKeys ~reportName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeyList.of_json in
      let reportName = field_map_exn json__ "ReportName" ReportName.of_json in
      make ~tagKeys ~reportName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Disassociates a set of tags from a report definition."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 "Associates a set of tags with a report definition."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      reportName: ReportName.t
        [@ocaml.doc
          "The report name of the report definition that tags are to be associated with."];
      tags: TagList.t
        [@ocaml.doc
          "The tags to be assigned to the report definition resource."]}
    let context_ = "TagResourceRequest"
    let make ~reportName = fun ~tags -> fun () -> { reportName; tags }
    let to_value x =
      structure_to_value
        [("ReportName", (Some (ReportName.to_value x.reportName)));
        ("Tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let reportName =
        ReportName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReportName") in
      make ~tags ~reportName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagList.of_json in
      let reportName = field_map_exn json__ "ReportName" ReportName.of_json in
      make ~tags ~reportName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Associates a set of tags with a report definition."]
module PutReportDefinitionResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `DuplicateReportNameException of DuplicateReportNameException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `ReportLimitReachedException of ReportLimitReachedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "DuplicateReportNameException" ->
          `DuplicateReportNameException
            (DuplicateReportNameException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "ReportLimitReachedException" ->
          `ReportLimitReachedException
            (ReportLimitReachedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DuplicateReportNameException" ->
          `DuplicateReportNameException
            (DuplicateReportNameException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "ReportLimitReachedException" ->
          `ReportLimitReachedException
            (ReportLimitReachedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DuplicateReportNameException e ->
          `Assoc
            [("error", (`String "DuplicateReportNameException"));
            ("details", (DuplicateReportNameException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `ReportLimitReachedException e ->
          `Assoc
            [("error", (`String "ReportLimitReachedException"));
            ("details", (ReportLimitReachedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module PutReportDefinitionRequest =
  struct
    type nonrec t =
      {
      reportDefinition: ReportDefinition.t
        [@ocaml.doc
          "Represents the output of the PutReportDefinition operation. The content consists of the detailed metadata and data file information."];
      tags: TagList.t option
        [@ocaml.doc
          "The tags to be assigned to the report definition resource."]}
    let context_ = "PutReportDefinitionRequest"
    let make ?tags =
      fun ~reportDefinition -> fun () -> { tags; reportDefinition }
    let to_value x =
      structure_to_value
        [("ReportDefinition",
           (Some (ReportDefinition.to_value x.reportDefinition)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let reportDefinition =
        ReportDefinition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReportDefinition") in
      make ?tags ~reportDefinition ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let reportDefinition =
        field_map_exn json__ "ReportDefinition" ReportDefinition.of_json in
      make ?tags ~reportDefinition ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a Cost and Usage Report."]
module ModifyReportDefinitionResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.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
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.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
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Allows you to programmatically update your report preferences."]
module ModifyReportDefinitionRequest =
  struct
    type nonrec t =
      {
      reportName: ReportName.t ;
      reportDefinition: ReportDefinition.t }
    let context_ = "ModifyReportDefinitionRequest"
    let make ~reportName =
      fun ~reportDefinition -> fun () -> { reportName; reportDefinition }
    let to_value x =
      structure_to_value
        [("ReportName", (Some (ReportName.to_value x.reportName)));
        ("ReportDefinition",
          (Some (ReportDefinition.to_value x.reportDefinition)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportDefinition =
        ReportDefinition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReportDefinition") in
      let reportName =
        ReportName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReportName") in
      make ~reportDefinition ~reportName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportDefinition =
        field_map_exn json__ "ReportDefinition" ReportDefinition.of_json in
      let reportName = field_map_exn json__ "ReportName" ReportName.of_json in
      make ~reportDefinition ~reportName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Allows you to programmatically update your report preferences."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc "The tags assigned to the report definition resource."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags associated with the specified report definition."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      reportName: ReportName.t
        [@ocaml.doc
          "The report name of the report definition that tags are to be returned for."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~reportName = fun () -> { reportName }
    let to_value x =
      structure_to_value
        [("ReportName", (Some (ReportName.to_value x.reportName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportName =
        ReportName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReportName") in
      make ~reportName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportName = field_map_exn json__ "ReportName" ReportName.of_json in
      make ~reportName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags associated with the specified report definition."]
module DescribeReportDefinitionsResponse =
  struct
    type nonrec t =
      {
      reportDefinitions: ReportDefinitionList.t option
        [@ocaml.doc
          "An Amazon Web Services Cost and Usage Report list owned by the account."];
      nextToken: GenericString.t option }
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reportDefinitions =
      fun ?nextToken -> fun () -> { reportDefinitions; nextToken }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.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
        [("ReportDefinitions",
           (Option.map x.reportDefinitions ~f:ReportDefinitionList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "NextToken") in
      let reportDefinitions =
        (Option.map ~f:ReportDefinitionList.of_xml)
          (Xml.child xml_arg0 "ReportDefinitions") in
      make ?nextToken ?reportDefinitions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" GenericString.of_json in
      let reportDefinitions =
        field_map json__ "ReportDefinitions" ReportDefinitionList.of_json in
      make ?nextToken ?reportDefinitions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If the action is successful, the service sends back an HTTP 200 response."]
module DescribeReportDefinitionsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option ;
      nextToken: GenericString.t option }
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.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" GenericString.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Requests a Amazon Web Services Cost and Usage Report list owned by the account."]
module DeleteReportDefinitionResponse =
  struct
    type nonrec t = {
      responseMessage: DeleteResponseMessage.t option }
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?responseMessage = fun () -> { responseMessage }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.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
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.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
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.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
        [("ResponseMessage",
           (Option.map x.responseMessage ~f:DeleteResponseMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let responseMessage =
        (Option.map ~f:DeleteResponseMessage.of_xml)
          (Xml.child xml_arg0 "ResponseMessage") in
      make ?responseMessage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let responseMessage =
        field_map json__ "ResponseMessage" DeleteResponseMessage.of_json in
      make ?responseMessage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If the action is successful, the service sends back an HTTP 200 response."]
module DeleteReportDefinitionRequest =
  struct
    type nonrec t =
      {
      reportName: ReportName.t
        [@ocaml.doc
          "The name of the report that you want to delete. The name must be unique, is case sensitive, and can't include spaces."]}
    let context_ = "DeleteReportDefinitionRequest"
    let make ~reportName = fun () -> { reportName }
    let to_value x =
      structure_to_value
        [("ReportName", (Some (ReportName.to_value x.reportName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportName =
        ReportName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReportName") in
      make ~reportName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportName = field_map_exn json__ "ReportName" ReportName.of_json in
      make ~reportName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified report."]