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.billing
let apiVersion = "2023-09-07"
let endpointPrefix = "billing"
let serviceFullName = "AWS Billing"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "AWSBilling"
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 BillingViewStatusReason =
  struct
    type nonrec t =
      | SOURCE_VIEW_UNHEALTHY 
      | SOURCE_VIEW_UPDATING 
      | SOURCE_VIEW_ACCESS_DENIED 
      | SOURCE_VIEW_NOT_FOUND 
      | CYCLIC_DEPENDENCY 
      | SOURCE_VIEW_DEPTH_EXCEEDED 
      | AGGREGATE_SOURCE 
      | VIEW_OWNER_NOT_MANAGEMENT_ACCOUNT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SOURCE_VIEW_UNHEALTHY -> "SOURCE_VIEW_UNHEALTHY"
      | SOURCE_VIEW_UPDATING -> "SOURCE_VIEW_UPDATING"
      | SOURCE_VIEW_ACCESS_DENIED -> "SOURCE_VIEW_ACCESS_DENIED"
      | SOURCE_VIEW_NOT_FOUND -> "SOURCE_VIEW_NOT_FOUND"
      | CYCLIC_DEPENDENCY -> "CYCLIC_DEPENDENCY"
      | SOURCE_VIEW_DEPTH_EXCEEDED -> "SOURCE_VIEW_DEPTH_EXCEEDED"
      | AGGREGATE_SOURCE -> "AGGREGATE_SOURCE"
      | VIEW_OWNER_NOT_MANAGEMENT_ACCOUNT ->
          "VIEW_OWNER_NOT_MANAGEMENT_ACCOUNT"
      | Non_static_id s -> s
    let of_string =
      function
      | "SOURCE_VIEW_UNHEALTHY" -> SOURCE_VIEW_UNHEALTHY
      | "SOURCE_VIEW_UPDATING" -> SOURCE_VIEW_UPDATING
      | "SOURCE_VIEW_ACCESS_DENIED" -> SOURCE_VIEW_ACCESS_DENIED
      | "SOURCE_VIEW_NOT_FOUND" -> SOURCE_VIEW_NOT_FOUND
      | "CYCLIC_DEPENDENCY" -> CYCLIC_DEPENDENCY
      | "SOURCE_VIEW_DEPTH_EXCEEDED" -> SOURCE_VIEW_DEPTH_EXCEEDED
      | "AGGREGATE_SOURCE" -> AGGREGATE_SOURCE
      | "VIEW_OWNER_NOT_MANAGEMENT_ACCOUNT" ->
          VIEW_OWNER_NOT_MANAGEMENT_ACCOUNT
      | 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 BillingViewStatusReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BillingViewStatusReason" j)
    let to_json = simple_to_json to_value
  end
module Value =
  struct
    type nonrec t = string
    let context_ = "Value"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S\\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:"Value" j
    let to_json = simple_to_json to_value
  end
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module FieldName =
  struct
    type nonrec t = string
    let context_ = "FieldName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FieldName" j
    let to_json = simple_to_json to_value
  end
module BillingViewStatus =
  struct
    type nonrec t =
      | HEALTHY 
      | UNHEALTHY 
      | CREATING 
      | UPDATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | HEALTHY -> "HEALTHY"
      | UNHEALTHY -> "UNHEALTHY"
      | CREATING -> "CREATING"
      | UPDATING -> "UPDATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "HEALTHY" -> HEALTHY
      | "UNHEALTHY" -> UNHEALTHY
      | "CREATING" -> CREATING
      | "UPDATING" -> UPDATING
      | 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 BillingViewStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BillingViewStatus" j)
    let to_json = simple_to_json to_value
  end
module BillingViewStatusReasons =
  struct
    type nonrec t = BillingViewStatusReason.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:BillingViewStatusReason.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:BillingViewStatusReason.of_xml)
    let of_json j =
      list_of_json ~kind:"BillingViewStatusReasons"
        ~of_json:BillingViewStatusReason.of_json j
    let to_json v = composed_to_json to_value v
  end
module CostCategoryName =
  struct
    type nonrec t = string
    let context_ = "CostCategoryName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?! )[\\p{L}\\p{N}\\p{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:"CostCategoryName" j
    let to_json = simple_to_json to_value
  end
module Values =
  struct
    type nonrec t = Value.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Value.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:Value.of_xml)
    let of_json j = list_of_json ~kind:"Values" ~of_json:Value.of_json j
    let to_json v = composed_to_json to_value v
  end
module Dimension =
  struct
    type nonrec t =
      | LINKED_ACCOUNT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | LINKED_ACCOUNT -> "LINKED_ACCOUNT" | Non_static_id s -> s
    let of_string =
      function | "LINKED_ACCOUNT" -> LINKED_ACCOUNT | 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 Dimension" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Dimension" 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:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S\\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:"TagKey" j
    let to_json = simple_to_json to_value
  end
module Timestamp =
  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 ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: FieldName.t option [@ocaml.doc "The name of the field."];
      message: ErrorMessage.t option
        [@ocaml.doc
          "The 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:FieldName.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
      let name = (Option.map ~f:FieldName.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" ErrorMessage.of_json in
      let name = field_map json__ "name" FieldName.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The field's information of a request that resulted in an exception."]
module ResourceTagKey =
  struct
    type nonrec t = string
    let context_ = "ResourceTagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (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:"ResourceTagKey" j
    let to_json = simple_to_json to_value
  end
module ResourceTagValue =
  struct
    type nonrec t = string
    let context_ = "ResourceTagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceTagValue" j
    let to_json = simple_to_json to_value
  end
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[0-9]{12}"); 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:"AccountId" j
    let to_json = simple_to_json to_value
  end
module BillingViewArn =
  struct
    type nonrec t = string
    let context_ = "BillingViewArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws[a-z-]*:(billing)::[0-9]{12}:billingview/[a-zA-Z0-9/:_\\+=\\.\\-@]{0,75}[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:"BillingViewArn" j
    let to_json = simple_to_json to_value
  end
module BillingViewDescription =
  struct
    type nonrec t = string
    let context_ = "BillingViewDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (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:"BillingViewDescription" j
    let to_json = simple_to_json to_value
  end
module BillingViewHealthStatus =
  struct
    type nonrec t =
      {
      statusCode: BillingViewStatus.t option
        [@ocaml.doc "The current health status code of the billing view."];
      statusReasons: BillingViewStatusReasons.t option
        [@ocaml.doc
          "A list of reasons explaining the current health status, if applicable."]}
    let make ?statusCode =
      fun ?statusReasons -> fun () -> { statusCode; statusReasons }
    let to_value x =
      structure_to_value
        [("statusCode",
           (Option.map x.statusCode ~f:BillingViewStatus.to_value));
        ("statusReasons",
          (Option.map x.statusReasons ~f:BillingViewStatusReasons.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusReasons =
        (Option.map ~f:BillingViewStatusReasons.of_xml)
          (Xml.child xml_arg0 "statusReasons") in
      let statusCode =
        (Option.map ~f:BillingViewStatus.of_xml)
          (Xml.child xml_arg0 "statusCode") in
      make ?statusReasons ?statusCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusReasons =
        field_map json__ "statusReasons" BillingViewStatusReasons.of_json in
      let statusCode =
        field_map json__ "statusCode" BillingViewStatus.of_json in
      make ?statusReasons ?statusCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the health status of a billing view, including a status code and optional reasons for the status."]
module BillingViewName =
  struct
    type nonrec t = string
    let context_ = "BillingViewName"
    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:"[ 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:"BillingViewName" j
    let to_json = simple_to_json to_value
  end
module BillingViewType =
  struct
    type nonrec t =
      | PRIMARY 
      | BILLING_GROUP 
      | CUSTOM 
      | BILLING_TRANSFER 
      | BILLING_TRANSFER_SHOWBACK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRIMARY -> "PRIMARY"
      | BILLING_GROUP -> "BILLING_GROUP"
      | CUSTOM -> "CUSTOM"
      | BILLING_TRANSFER -> "BILLING_TRANSFER"
      | BILLING_TRANSFER_SHOWBACK -> "BILLING_TRANSFER_SHOWBACK"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRIMARY" -> PRIMARY
      | "BILLING_GROUP" -> BILLING_GROUP
      | "CUSTOM" -> CUSTOM
      | "BILLING_TRANSFER" -> BILLING_TRANSFER
      | "BILLING_TRANSFER_SHOWBACK" -> BILLING_TRANSFER_SHOWBACK
      | 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 BillingViewType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BillingViewType" j)
    let to_json = simple_to_json to_value
  end
module SearchOption =
  struct
    type nonrec t =
      | STARTS_WITH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | STARTS_WITH -> "STARTS_WITH" | Non_static_id s -> s
    let of_string =
      function | "STARTS_WITH" -> STARTS_WITH | 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 SearchOption" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SearchOption" j)
    let to_json = simple_to_json to_value
  end
module SearchValue =
  struct
    type nonrec t = string
    let context_ = "SearchValue"
    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:"[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:"SearchValue" j
    let to_json = simple_to_json to_value
  end
module CostCategoryValues =
  struct
    type nonrec t =
      {
      key: CostCategoryName.t
        [@ocaml.doc "The unique name of the Cost Category."];
      values: Values.t
        [@ocaml.doc "The specific value of the Cost Category."]}
    let context_ = "CostCategoryValues"
    let make ~key = fun ~values -> fun () -> { key; values }
    let to_value x =
      structure_to_value
        [("key", (Some (CostCategoryName.to_value x.key)));
        ("values", (Some (Values.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        Values.of_xml (Xml.child_exn ~context:context_ xml_arg0 "values") in
      let key =
        CostCategoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ~values ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "values" Values.of_json in
      let key = field_map_exn json__ "key" CostCategoryName.of_json in
      make ~values ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The Cost Categories values used for filtering the costs."]
module DimensionValues =
  struct
    type nonrec t =
      {
      key: Dimension.t
        [@ocaml.doc
          "The names of the metadata types that you can use to filter and group your results."];
      values: Values.t
        [@ocaml.doc
          "The metadata values that you can use to filter and group your results."]}
    let context_ = "DimensionValues"
    let make ~key = fun ~values -> fun () -> { key; values }
    let to_value x =
      structure_to_value
        [("key", (Some (Dimension.to_value x.key)));
        ("values", (Some (Values.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        Values.of_xml (Xml.child_exn ~context:context_ xml_arg0 "values") in
      let key =
        Dimension.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ~values ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "values" Values.of_json in
      let key = field_map_exn json__ "key" Dimension.of_json in
      make ~values ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The metadata that you can use to filter and group your results."]
module TagValues =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "The key for the tag."];
      values: Values.t [@ocaml.doc "The specific value of the tag."]}
    let context_ = "TagValues"
    let make ~key = fun ~values -> fun () -> { key; values }
    let to_value x =
      structure_to_value
        [("key", (Some (TagKey.to_value x.key)));
        ("values", (Some (Values.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        Values.of_xml (Xml.child_exn ~context:context_ xml_arg0 "values") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ~values ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map_exn json__ "values" Values.of_json in
      let key = field_map_exn json__ "key" TagKey.of_json in
      make ~values ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The values that are available for a tag."]
module TimeRange =
  struct
    type nonrec t =
      {
      beginDateInclusive: Timestamp.t option
        [@ocaml.doc "The inclusive start date of the time range."];
      endDateInclusive: Timestamp.t option
        [@ocaml.doc "The inclusive end date of the time range."]}
    let make ?beginDateInclusive =
      fun ?endDateInclusive ->
        fun () -> { beginDateInclusive; endDateInclusive }
    let to_value x =
      structure_to_value
        [("beginDateInclusive",
           (Option.map x.beginDateInclusive ~f:Timestamp.to_value));
        ("endDateInclusive",
          (Option.map x.endDateInclusive ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endDateInclusive =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "endDateInclusive") in
      let beginDateInclusive =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "beginDateInclusive") in
      make ?endDateInclusive ?beginDateInclusive ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endDateInclusive =
        field_map json__ "endDateInclusive" Timestamp.of_json in
      let beginDateInclusive =
        field_map json__ "beginDateInclusive" Timestamp.of_json in
      make ?endDateInclusive ?beginDateInclusive ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies a time range with inclusive begin and end dates."]
module ResourceId =
  struct
    type nonrec t = string
    let context_ = "ResourceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (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:"ResourceId" j
    let to_json = simple_to_json to_value
  end
module ResourceType =
  struct
    type nonrec t = string
    let context_ = "ResourceType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (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:"ResourceType" j
    let to_json = simple_to_json to_value
  end
module QuotaCode =
  struct
    type nonrec t = string
    let context_ = "QuotaCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (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:"QuotaCode" j
    let to_json = simple_to_json to_value
  end
module ServiceCode =
  struct
    type nonrec t = string
    let context_ = "ServiceCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (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:"ServiceCode" 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 
      | Other 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UnknownOperation -> "unknownOperation"
      | CannotParse -> "cannotParse"
      | FieldValidationFailed -> "fieldValidationFailed"
      | Other -> "other"
      | Non_static_id s -> s
    let of_string =
      function
      | "unknownOperation" -> UnknownOperation
      | "cannotParse" -> CannotParse
      | "fieldValidationFailed" -> FieldValidationFailed
      | "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 ResourceTag =
  struct
    type nonrec t =
      {
      key: ResourceTagKey.t
        [@ocaml.doc "The key that's associated with the tag."];
      value: ResourceTagValue.t option
        [@ocaml.doc "The value that's associated with the tag."]}
    let context_ = "ResourceTag"
    let make ?value = fun ~key -> fun () -> { value; key }
    let to_value x =
      structure_to_value
        [("key", (Some (ResourceTagKey.to_value x.key)));
        ("value", (Option.map x.value ~f:ResourceTagValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:ResourceTagValue.of_xml) (Xml.child xml_arg0 "value") in
      let key =
        ResourceTagKey.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 json__ "value" ResourceTagValue.of_json in
      let key = field_map_exn json__ "key" ResourceTagKey.of_json in
      make ?value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The tag structure that contains a tag key and value."]
module BillingViewListElement =
  struct
    type nonrec t =
      {
      arn: BillingViewArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that can be used to uniquely identify the billing view."];
      name: BillingViewName.t option
        [@ocaml.doc "A list of names of the Billing view."];
      description: BillingViewDescription.t option
        [@ocaml.doc "The description of the billing view."];
      ownerAccountId: AccountId.t option
        [@ocaml.doc "The list of owners of the Billing view."];
      sourceAccountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the source billing view, if this is a derived billing view."];
      billingViewType: BillingViewType.t option
        [@ocaml.doc "The type of billing view."];
      healthStatus: BillingViewHealthStatus.t option
        [@ocaml.doc "The current health status of the billing view."]}
    let make ?arn =
      fun ?name ->
        fun ?description ->
          fun ?ownerAccountId ->
            fun ?sourceAccountId ->
              fun ?billingViewType ->
                fun ?healthStatus ->
                  fun () ->
                    {
                      arn;
                      name;
                      description;
                      ownerAccountId;
                      sourceAccountId;
                      billingViewType;
                      healthStatus
                    }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:BillingViewArn.to_value));
        ("name", (Option.map x.name ~f:BillingViewName.to_value));
        ("description",
          (Option.map x.description ~f:BillingViewDescription.to_value));
        ("ownerAccountId",
          (Option.map x.ownerAccountId ~f:AccountId.to_value));
        ("sourceAccountId",
          (Option.map x.sourceAccountId ~f:AccountId.to_value));
        ("billingViewType",
          (Option.map x.billingViewType ~f:BillingViewType.to_value));
        ("healthStatus",
          (Option.map x.healthStatus ~f:BillingViewHealthStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let healthStatus =
        (Option.map ~f:BillingViewHealthStatus.of_xml)
          (Xml.child xml_arg0 "healthStatus") in
      let billingViewType =
        (Option.map ~f:BillingViewType.of_xml)
          (Xml.child xml_arg0 "billingViewType") in
      let sourceAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "sourceAccountId") in
      let ownerAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "ownerAccountId") in
      let description =
        (Option.map ~f:BillingViewDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:BillingViewName.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:BillingViewArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?healthStatus ?billingViewType ?sourceAccountId ?ownerAccountId
        ?description ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let healthStatus =
        field_map json__ "healthStatus" BillingViewHealthStatus.of_json in
      let billingViewType =
        field_map json__ "billingViewType" BillingViewType.of_json in
      let sourceAccountId =
        field_map json__ "sourceAccountId" AccountId.of_json in
      let ownerAccountId =
        field_map json__ "ownerAccountId" AccountId.of_json in
      let description =
        field_map json__ "description" BillingViewDescription.of_json in
      let name = field_map json__ "name" BillingViewName.of_json in
      let arn = field_map json__ "arn" BillingViewArn.of_json in
      make ?healthStatus ?billingViewType ?sourceAccountId ?ownerAccountId
        ?description ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A representation of a billing view."]
module StringSearch =
  struct
    type nonrec t =
      {
      searchOption: SearchOption.t
        [@ocaml.doc
          "The type of search operation to perform on the string value. Determines how the search value is matched against the target field."];
      searchValue: SearchValue.t
        [@ocaml.doc
          "The string value to use in the search operation. This value is compared against the target field using the specified search option."]}
    let context_ = "StringSearch"
    let make ~searchOption =
      fun ~searchValue -> fun () -> { searchOption; searchValue }
    let to_value x =
      structure_to_value
        [("searchOption", (Some (SearchOption.to_value x.searchOption)));
        ("searchValue", (Some (SearchValue.to_value x.searchValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let searchValue =
        SearchValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "searchValue") in
      let searchOption =
        SearchOption.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "searchOption") in
      make ~searchValue ~searchOption ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let searchValue =
        field_map_exn json__ "searchValue" SearchValue.of_json in
      let searchOption =
        field_map_exn json__ "searchOption" SearchOption.of_json in
      make ~searchValue ~searchOption ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that defines how to search for string values. You can specify a search option and the value to search for."]
module Expression =
  struct
    type nonrec t =
      {
      dimensions: DimensionValues.t option
        [@ocaml.doc "The specific Dimension to use for Expression."];
      tags: TagValues.t option
        [@ocaml.doc "The specific Tag to use for Expression."];
      costCategories: CostCategoryValues.t option
        [@ocaml.doc "The filter that's based on CostCategory values."];
      timeRange: TimeRange.t option
        [@ocaml.doc
          "Specifies a time range filter for the billing view data."]}
    let make ?dimensions =
      fun ?tags ->
        fun ?costCategories ->
          fun ?timeRange ->
            fun () -> { dimensions; tags; costCategories; timeRange }
    let to_value x =
      structure_to_value
        [("dimensions",
           (Option.map x.dimensions ~f:DimensionValues.to_value));
        ("tags", (Option.map x.tags ~f:TagValues.to_value));
        ("costCategories",
          (Option.map x.costCategories ~f:CostCategoryValues.to_value));
        ("timeRange", (Option.map x.timeRange ~f:TimeRange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timeRange =
        (Option.map ~f:TimeRange.of_xml) (Xml.child xml_arg0 "timeRange") in
      let costCategories =
        (Option.map ~f:CostCategoryValues.of_xml)
          (Xml.child xml_arg0 "costCategories") in
      let tags = (Option.map ~f:TagValues.of_xml) (Xml.child xml_arg0 "tags") in
      let dimensions =
        (Option.map ~f:DimensionValues.of_xml)
          (Xml.child xml_arg0 "dimensions") in
      make ?timeRange ?costCategories ?tags ?dimensions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timeRange = field_map json__ "timeRange" TimeRange.of_json in
      let costCategories =
        field_map json__ "costCategories" CostCategoryValues.of_json in
      let tags = field_map json__ "tags" TagValues.of_json in
      let dimensions = field_map json__ "dimensions" DimensionValues.of_json in
      make ?timeRange ?costCategories ?tags ?dimensions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "See Expression. Billing view only supports LINKED_ACCOUNT, Tags, and CostCategories."]
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 AccessDeniedException =
  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 "You don't have sufficient access to perform this action."]
module BillingViewHealthStatusException =
  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
       "Exception thrown when a billing view's health status prevents an operation from being performed. This may occur if the billing view is in a state other than HEALTHY."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      resourceId: ResourceId.t option
        [@ocaml.doc
          "The identifier for the service resource associated with the request."];
      resourceType: ResourceType.t option
        [@ocaml.doc "The type of resource associated with the request."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:ErrorMessage.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" ResourceType.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation would cause a conflict with the current state of a service resource associated with the request. Resolve the conflict before retrying this request."]
module InternalServerException =
  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 request processing failed because of an unknown error, exception, or failure."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      resourceId: ResourceId.t option
        [@ocaml.doc "Value is a list of resource IDs that were not found."];
      resourceType: ResourceType.t option
        [@ocaml.doc "Value is the type of resource that was not found."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:ErrorMessage.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" ResourceType.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified ARN in the request doesn't exist."]
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      resourceId: ResourceId.t option [@ocaml.doc "The ID of the resource."];
      resourceType: ResourceType.t option
        [@ocaml.doc "The type of Amazon Web Services resource."];
      serviceCode: ServiceCode.t option
        [@ocaml.doc "The container for the serviceCode."];
      quotaCode: QuotaCode.t option
        [@ocaml.doc "The container for the quotaCode."]}
    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:ErrorMessage.to_value));
        ("resourceId", (Option.map x.resourceId ~f:ResourceId.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:ServiceCode.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:QuotaCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:QuotaCode.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:ErrorMessage.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" QuotaCode.of_json in
      let serviceCode = field_map json__ "serviceCode" ServiceCode.of_json in
      let resourceType = field_map json__ "resourceType" ResourceType.of_json in
      let resourceId = field_map json__ "resourceId" ResourceId.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You've reached the limit of resources you can create, or exceeded the size of an individual resource."]
module ThrottlingException =
  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 request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      reason: ValidationExceptionReason.t option
        [@ocaml.doc
          "The input fails to satisfy the constraints specified by an Amazon Web Services service."];
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc
          "The input fails to satisfy the constraints specified by an Amazon Web Services service."]}
    let make ?message =
      fun ?reason ->
        fun ?fieldList -> fun () -> { message; reason; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.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:ErrorMessage.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" ErrorMessage.of_json in
      make ?fieldList ?reason ?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 ResourceArn =
  struct
    type nonrec t = string
    let context_ = "ResourceArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws[a-z-]*:(billing)::[0-9]{12}:[a-zA-Z0-9/:_\\+=\\.\\@-]{0,70}[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:"ResourceArn" j
    let to_json = simple_to_json to_value
  end
module ResourceTagKeyList =
  struct
    type nonrec t = ResourceTagKey.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:ResourceTagKey.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:ResourceTagKey.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceTagKeyList" ~of_json:ResourceTagKey.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ResourceTagList =
  struct
    type nonrec t = ResourceTag.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:ResourceTag.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:ResourceTag.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceTagList" ~of_json:ResourceTag.of_json j
    let to_json v = composed_to_json to_value v
  end
module BillingViewSourceViewsList =
  struct
    type nonrec t = BillingViewArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:BillingViewArn.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:BillingViewArn.of_xml)
    let of_json j =
      list_of_json ~kind:"BillingViewSourceViewsList"
        ~of_json:BillingViewArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module PageToken =
  struct
    type nonrec t = string
    let context_ = "PageToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2047) >>=
             (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:"PageToken" j
    let to_json = simple_to_json to_value
  end
module BillingViewsMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min: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 BillingViewsMaxResults" 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 BillingViewList =
  struct
    type nonrec t = BillingViewListElement.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:BillingViewListElement.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:BillingViewListElement.of_xml)
    let of_json j =
      list_of_json ~kind:"BillingViewList"
        ~of_json:BillingViewListElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActiveTimeRange =
  struct
    type nonrec t =
      {
      activeAfterInclusive: Timestamp.t
        [@ocaml.doc "The inclusive time range start date."];
      activeBeforeInclusive: Timestamp.t
        [@ocaml.doc "The inclusive time range end date."]}
    let context_ = "ActiveTimeRange"
    let make ~activeAfterInclusive =
      fun ~activeBeforeInclusive ->
        fun () -> { activeAfterInclusive; activeBeforeInclusive }
    let to_value x =
      structure_to_value
        [("activeAfterInclusive",
           (Some (Timestamp.to_value x.activeAfterInclusive)));
        ("activeBeforeInclusive",
          (Some (Timestamp.to_value x.activeBeforeInclusive)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let activeBeforeInclusive =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "activeBeforeInclusive") in
      let activeAfterInclusive =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "activeAfterInclusive") in
      make ~activeBeforeInclusive ~activeAfterInclusive ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let activeBeforeInclusive =
        field_map_exn json__ "activeBeforeInclusive" Timestamp.of_json in
      let activeAfterInclusive =
        field_map_exn json__ "activeAfterInclusive" Timestamp.of_json in
      make ~activeBeforeInclusive ~activeAfterInclusive ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A time range with a start and end time."]
module BillingViewArnList =
  struct
    type nonrec t = BillingViewArn.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:BillingViewArn.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:BillingViewArn.of_xml)
    let of_json j =
      list_of_json ~kind:"BillingViewArnList" ~of_json:BillingViewArn.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module BillingViewTypeList =
  struct
    type nonrec t = BillingViewType.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:BillingViewType.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:BillingViewType.of_xml)
    let of_json j =
      list_of_json ~kind:"BillingViewTypeList"
        ~of_json:BillingViewType.of_json j
    let to_json v = composed_to_json to_value v
  end
module StringSearches =
  struct
    type nonrec t = StringSearch.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:StringSearch.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:StringSearch.of_xml)
    let of_json j =
      list_of_json ~kind:"StringSearches" ~of_json:StringSearch.of_json j
    let to_json v = composed_to_json to_value v
  end
module PolicyDocument =
  struct
    type nonrec t = string
    let context_ = "PolicyDocument"
    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:"PolicyDocument" j
    let to_json = simple_to_json to_value
  end
module BillingViewElement =
  struct
    type nonrec t =
      {
      arn: BillingViewArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that can be used to uniquely identify the billing view."];
      name: BillingViewName.t option
        [@ocaml.doc "The account name of the billing view."];
      description: BillingViewDescription.t option
        [@ocaml.doc "The description of the billing view."];
      billingViewType: BillingViewType.t option
        [@ocaml.doc "The type of billing group."];
      ownerAccountId: AccountId.t option
        [@ocaml.doc "The account owner of the billing view."];
      sourceAccountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the source billing view, if this is a derived billing view."];
      dataFilterExpression: Expression.t option
        [@ocaml.doc
          "See Expression. Billing view only supports LINKED_ACCOUNT, Tags, and CostCategories."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The time when the billing view was created."];
      updatedAt: Timestamp.t option
        [@ocaml.doc "The time when the billing view was last updated."];
      derivedViewCount: Integer.t option
        [@ocaml.doc
          "The number of billing views that use this billing view as a source."];
      sourceViewCount: Integer.t option
        [@ocaml.doc
          "The number of source views associated with this billing view."];
      viewDefinitionLastUpdatedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp of when the billing view definition was last updated."];
      healthStatus: BillingViewHealthStatus.t option
        [@ocaml.doc "The current health status of the billing view."]}
    let make ?arn =
      fun ?name ->
        fun ?description ->
          fun ?billingViewType ->
            fun ?ownerAccountId ->
              fun ?sourceAccountId ->
                fun ?dataFilterExpression ->
                  fun ?createdAt ->
                    fun ?updatedAt ->
                      fun ?derivedViewCount ->
                        fun ?sourceViewCount ->
                          fun ?viewDefinitionLastUpdatedAt ->
                            fun ?healthStatus ->
                              fun () ->
                                {
                                  arn;
                                  name;
                                  description;
                                  billingViewType;
                                  ownerAccountId;
                                  sourceAccountId;
                                  dataFilterExpression;
                                  createdAt;
                                  updatedAt;
                                  derivedViewCount;
                                  sourceViewCount;
                                  viewDefinitionLastUpdatedAt;
                                  healthStatus
                                }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:BillingViewArn.to_value));
        ("name", (Option.map x.name ~f:BillingViewName.to_value));
        ("description",
          (Option.map x.description ~f:BillingViewDescription.to_value));
        ("billingViewType",
          (Option.map x.billingViewType ~f:BillingViewType.to_value));
        ("ownerAccountId",
          (Option.map x.ownerAccountId ~f:AccountId.to_value));
        ("sourceAccountId",
          (Option.map x.sourceAccountId ~f:AccountId.to_value));
        ("dataFilterExpression",
          (Option.map x.dataFilterExpression ~f:Expression.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("derivedViewCount",
          (Option.map x.derivedViewCount ~f:Integer.to_value));
        ("sourceViewCount",
          (Option.map x.sourceViewCount ~f:Integer.to_value));
        ("viewDefinitionLastUpdatedAt",
          (Option.map x.viewDefinitionLastUpdatedAt ~f:Timestamp.to_value));
        ("healthStatus",
          (Option.map x.healthStatus ~f:BillingViewHealthStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let healthStatus =
        (Option.map ~f:BillingViewHealthStatus.of_xml)
          (Xml.child xml_arg0 "healthStatus") in
      let viewDefinitionLastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "viewDefinitionLastUpdatedAt") in
      let sourceViewCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "sourceViewCount") in
      let derivedViewCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "derivedViewCount") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let dataFilterExpression =
        (Option.map ~f:Expression.of_xml)
          (Xml.child xml_arg0 "dataFilterExpression") in
      let sourceAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "sourceAccountId") in
      let ownerAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "ownerAccountId") in
      let billingViewType =
        (Option.map ~f:BillingViewType.of_xml)
          (Xml.child xml_arg0 "billingViewType") in
      let description =
        (Option.map ~f:BillingViewDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:BillingViewName.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:BillingViewArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?healthStatus ?viewDefinitionLastUpdatedAt ?sourceViewCount
        ?derivedViewCount ?updatedAt ?createdAt ?dataFilterExpression
        ?sourceAccountId ?ownerAccountId ?billingViewType ?description ?name
        ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let healthStatus =
        field_map json__ "healthStatus" BillingViewHealthStatus.of_json in
      let viewDefinitionLastUpdatedAt =
        field_map json__ "viewDefinitionLastUpdatedAt" Timestamp.of_json in
      let sourceViewCount =
        field_map json__ "sourceViewCount" Integer.of_json in
      let derivedViewCount =
        field_map json__ "derivedViewCount" Integer.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let dataFilterExpression =
        field_map json__ "dataFilterExpression" Expression.of_json in
      let sourceAccountId =
        field_map json__ "sourceAccountId" AccountId.of_json in
      let ownerAccountId =
        field_map json__ "ownerAccountId" AccountId.of_json in
      let billingViewType =
        field_map json__ "billingViewType" BillingViewType.of_json in
      let description =
        field_map json__ "description" BillingViewDescription.of_json in
      let name = field_map json__ "name" BillingViewName.of_json in
      let arn = field_map json__ "arn" BillingViewArn.of_json in
      make ?healthStatus ?viewDefinitionLastUpdatedAt ?sourceViewCount
        ?derivedViewCount ?updatedAt ?createdAt ?dataFilterExpression
        ?sourceAccountId ?ownerAccountId ?billingViewType ?description ?name
        ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The metadata associated to the billing view."]
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9-]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module UpdateBillingViewResponse =
  struct
    type nonrec t =
      {
      arn: BillingViewArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that can be used to uniquely identify the billing view."];
      updatedAt: Timestamp.t option
        [@ocaml.doc "The time when the billing view was last updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BillingViewHealthStatusException of
          BillingViewHealthStatusException.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 ?arn = fun ?updatedAt -> fun () -> { arn; updatedAt }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BillingViewHealthStatusException" ->
          `BillingViewHealthStatusException
            (BillingViewHealthStatusException.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)
      | "BillingViewHealthStatusException" ->
          `BillingViewHealthStatusException
            (BillingViewHealthStatusException.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))]
      | `BillingViewHealthStatusException e ->
          `Assoc
            [("error", (`String "BillingViewHealthStatusException"));
            ("details", (BillingViewHealthStatusException.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
        [("arn", (Option.map x.arn ~f:BillingViewArn.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let arn =
        (Option.map ~f:BillingViewArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?updatedAt ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let arn = field_map json__ "arn" BillingViewArn.of_json in
      make ?updatedAt ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An API to update the attributes of the billing view."]
module UpdateBillingViewRequest =
  struct
    type nonrec t =
      {
      arn: BillingViewArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that can be used to uniquely identify the billing view."];
      name: BillingViewName.t option
        [@ocaml.doc "The name of the billing view."];
      description: BillingViewDescription.t option
        [@ocaml.doc "The description of the billing view."];
      dataFilterExpression: Expression.t option
        [@ocaml.doc
          "See Expression. Billing view only supports LINKED_ACCOUNT, Tags, and CostCategories."]}
    let context_ = "UpdateBillingViewRequest"
    let make ?name =
      fun ?description ->
        fun ?dataFilterExpression ->
          fun ~arn ->
            fun () -> { name; description; dataFilterExpression; arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (BillingViewArn.to_value x.arn)));
        ("name", (Option.map x.name ~f:BillingViewName.to_value));
        ("description",
          (Option.map x.description ~f:BillingViewDescription.to_value));
        ("dataFilterExpression",
          (Option.map x.dataFilterExpression ~f:Expression.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataFilterExpression =
        (Option.map ~f:Expression.of_xml)
          (Xml.child xml_arg0 "dataFilterExpression") in
      let description =
        (Option.map ~f:BillingViewDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:BillingViewName.of_xml) (Xml.child xml_arg0 "name") in
      let arn =
        BillingViewArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ?dataFilterExpression ?description ?name ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataFilterExpression =
        field_map json__ "dataFilterExpression" Expression.of_json in
      let description =
        field_map json__ "description" BillingViewDescription.of_json in
      let name = field_map json__ "name" BillingViewName.of_json in
      let arn = field_map_exn json__ "arn" BillingViewArn.of_json in
      make ?dataFilterExpression ?description ?name ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An API to update the attributes of the billing view."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "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))]
      | `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 of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes one or more tags from a resource. Specify only tag keys in your request. Don't specify the value."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      resourceTagKeys: ResourceTagKeyList.t
        [@ocaml.doc
          "A list of tag key value pairs that are associated with the resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~resourceTagKeys -> fun () -> { resourceArn; resourceTagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("resourceTagKeys",
          (Some (ResourceTagKeyList.to_value x.resourceTagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTagKeys =
        ResourceTagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceTagKeys") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceTagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTagKeys =
        field_map_exn json__ "resourceTagKeys" ResourceTagKeyList.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ~resourceTagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes one or more tags from a resource. Specify only tag keys in your request. Don't specify the value."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "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))]
      | `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 of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An API operation for adding one or more tags (key-value pairs) to a resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      resourceTags: ResourceTagList.t
        [@ocaml.doc
          "A list of tag key value pairs that are associated with the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn =
      fun ~resourceTags -> fun () -> { resourceArn; resourceTags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("resourceTags", (Some (ResourceTagList.to_value x.resourceTags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTags =
        ResourceTagList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceTags") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceTags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTags =
        field_map_exn json__ "resourceTags" ResourceTagList.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ~resourceTags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An API operation for adding one or more tags (key-value pairs) to a resource."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      resourceTags: ResourceTagList.t option
        [@ocaml.doc
          "A list of tag key value pairs that are associated with the resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceTags = fun () -> { resourceTags }
    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)
      | "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)
      | "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))]
      | `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
        [("resourceTags",
           (Option.map x.resourceTags ~f:ResourceTagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTags =
        (Option.map ~f:ResourceTagList.of_xml)
          (Xml.child xml_arg0 "resourceTags") in
      make ?resourceTags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTags =
        field_map json__ "resourceTags" ResourceTagList.of_json in
      make ?resourceTags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists tags associated with the billing view resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists tags associated with the billing view resource."]
module ListSourceViewsForBillingViewResponse =
  struct
    type nonrec t =
      {
      sourceViews: BillingViewSourceViewsList.t option
        [@ocaml.doc
          "A list of billing views used as the data source for the custom billing view."];
      nextToken: PageToken.t option
        [@ocaml.doc
          "The pagination token that is used on subsequent calls to list billing views."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sourceViews =
      fun ?nextToken -> fun () -> { sourceViews; 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)
      | "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)
      | "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))]
      | `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
        [("sourceViews",
           (Option.map x.sourceViews ~f:BillingViewSourceViewsList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let sourceViews =
        (Option.map ~f:BillingViewSourceViewsList.of_xml)
          (Xml.child xml_arg0 "sourceViews") in
      make ?nextToken ?sourceViews ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PageToken.of_json in
      let sourceViews =
        field_map json__ "sourceViews" BillingViewSourceViewsList.of_json in
      make ?nextToken ?sourceViews ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the source views (managed Amazon Web Services billing views) associated with the billing view."]
module ListSourceViewsForBillingViewRequest =
  struct
    type nonrec t =
      {
      arn: BillingViewArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that can be used to uniquely identify the billing view."];
      maxResults: BillingViewsMaxResults.t option
        [@ocaml.doc "The number of entries a paginated response contains."];
      nextToken: PageToken.t option
        [@ocaml.doc
          "The pagination token that is used on subsequent calls to list billing views."]}
    let context_ = "ListSourceViewsForBillingViewRequest"
    let make ?maxResults =
      fun ?nextToken -> fun ~arn -> fun () -> { maxResults; nextToken; arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (BillingViewArn.to_value x.arn)));
        ("maxResults",
          (Option.map x.maxResults ~f:BillingViewsMaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:BillingViewsMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let arn =
        BillingViewArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ?nextToken ?maxResults ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PageToken.of_json in
      let maxResults =
        field_map json__ "maxResults" BillingViewsMaxResults.of_json in
      let arn = field_map_exn json__ "arn" BillingViewArn.of_json in
      make ?nextToken ?maxResults ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the source views (managed Amazon Web Services billing views) associated with the billing view."]
module ListBillingViewsResponse =
  struct
    type nonrec t =
      {
      billingViews: BillingViewList.t option
        [@ocaml.doc "A list of BillingViewListElement retrieved."];
      nextToken: PageToken.t option
        [@ocaml.doc
          "The pagination token to use on subsequent calls to list billing views."]}
    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 ?billingViews =
      fun ?nextToken -> fun () -> { billingViews; 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
        [("billingViews",
           (Option.map x.billingViews ~f:BillingViewList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let billingViews =
        (Option.map ~f:BillingViewList.of_xml)
          (Xml.child xml_arg0 "billingViews") in
      make ?nextToken ?billingViews ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PageToken.of_json in
      let billingViews =
        field_map json__ "billingViews" BillingViewList.of_json in
      make ?nextToken ?billingViews ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the billing views available for a given time period. Every Amazon Web Services account has a unique PRIMARY billing view that represents the billing data available by default. Accounts that use Billing Conductor also have BILLING_GROUP billing views representing pro forma costs associated with each created billing group."]
module ListBillingViewsRequest =
  struct
    type nonrec t =
      {
      activeTimeRange: ActiveTimeRange.t option
        [@ocaml.doc
          "The time range for the billing views listed. PRIMARY billing view is always listed. BILLING_GROUP billing views are listed for time ranges when the associated billing group resource in Billing Conductor is active. The time range must be within one calendar month."];
      arns: BillingViewArnList.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that can be used to uniquely identify the billing view."];
      billingViewTypes: BillingViewTypeList.t option
        [@ocaml.doc "The type of billing view."];
      names: StringSearches.t option
        [@ocaml.doc
          "Filters the list of billing views by name. You can specify search criteria to match billing view names based on the search option provided."];
      ownerAccountId: AccountId.t option
        [@ocaml.doc "The list of owners of the billing view."];
      sourceAccountId: AccountId.t option
        [@ocaml.doc
          "Filters the results to include only billing views that use the specified account as a source."];
      maxResults: BillingViewsMaxResults.t option
        [@ocaml.doc
          "The maximum number of billing views to retrieve. Default is 100."];
      nextToken: PageToken.t option
        [@ocaml.doc
          "The pagination token that is used on subsequent calls to list billing views."]}
    let make ?activeTimeRange =
      fun ?arns ->
        fun ?billingViewTypes ->
          fun ?names ->
            fun ?ownerAccountId ->
              fun ?sourceAccountId ->
                fun ?maxResults ->
                  fun ?nextToken ->
                    fun () ->
                      {
                        activeTimeRange;
                        arns;
                        billingViewTypes;
                        names;
                        ownerAccountId;
                        sourceAccountId;
                        maxResults;
                        nextToken
                      }
    let to_value x =
      structure_to_value
        [("activeTimeRange",
           (Option.map x.activeTimeRange ~f:ActiveTimeRange.to_value));
        ("arns", (Option.map x.arns ~f:BillingViewArnList.to_value));
        ("billingViewTypes",
          (Option.map x.billingViewTypes ~f:BillingViewTypeList.to_value));
        ("names", (Option.map x.names ~f:StringSearches.to_value));
        ("ownerAccountId",
          (Option.map x.ownerAccountId ~f:AccountId.to_value));
        ("sourceAccountId",
          (Option.map x.sourceAccountId ~f:AccountId.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:BillingViewsMaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:BillingViewsMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let sourceAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "sourceAccountId") in
      let ownerAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "ownerAccountId") in
      let names =
        (Option.map ~f:StringSearches.of_xml) (Xml.child xml_arg0 "names") in
      let billingViewTypes =
        (Option.map ~f:BillingViewTypeList.of_xml)
          (Xml.child xml_arg0 "billingViewTypes") in
      let arns =
        (Option.map ~f:BillingViewArnList.of_xml) (Xml.child xml_arg0 "arns") in
      let activeTimeRange =
        (Option.map ~f:ActiveTimeRange.of_xml)
          (Xml.child xml_arg0 "activeTimeRange") in
      make ?nextToken ?maxResults ?sourceAccountId ?ownerAccountId ?names
        ?billingViewTypes ?arns ?activeTimeRange ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PageToken.of_json in
      let maxResults =
        field_map json__ "maxResults" BillingViewsMaxResults.of_json in
      let sourceAccountId =
        field_map json__ "sourceAccountId" AccountId.of_json in
      let ownerAccountId =
        field_map json__ "ownerAccountId" AccountId.of_json in
      let names = field_map json__ "names" StringSearches.of_json in
      let billingViewTypes =
        field_map json__ "billingViewTypes" BillingViewTypeList.of_json in
      let arns = field_map json__ "arns" BillingViewArnList.of_json in
      let activeTimeRange =
        field_map json__ "activeTimeRange" ActiveTimeRange.of_json in
      make ?nextToken ?maxResults ?sourceAccountId ?ownerAccountId ?names
        ?billingViewTypes ?arns ?activeTimeRange ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the billing views available for a given time period. Every Amazon Web Services account has a unique PRIMARY billing view that represents the billing data available by default. Accounts that use Billing Conductor also have BILLING_GROUP billing views representing pro forma costs associated with each created billing group."]
module GetResourcePolicyResponse =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the billing view resource to which the policy is attached to."];
      policy: PolicyDocument.t option
        [@ocaml.doc
          "The resource-based policy document attached to the resource in JSON format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceArn = fun ?policy -> fun () -> { resourceArn; policy }
    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)
      | "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)
      | "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))]
      | `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
        [("resourceArn", (Option.map x.resourceArn ~f:ResourceArn.to_value));
        ("policy", (Option.map x.policy ~f:PolicyDocument.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:PolicyDocument.of_xml) (Xml.child xml_arg0 "policy") in
      let resourceArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "resourceArn") in
      make ?policy ?resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "policy" PolicyDocument.of_json in
      let resourceArn = field_map json__ "resourceArn" ResourceArn.of_json in
      make ?policy ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the resource-based policy document attached to the resource in JSON format."]
module GetResourcePolicyRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the billing view resource to which the policy is attached to."]}
    let context_ = "GetResourcePolicyRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the resource-based policy document attached to the resource in JSON format."]
module GetBillingViewResponse =
  struct
    type nonrec t =
      {
      billingView: BillingViewElement.t option
        [@ocaml.doc
          "The billing view element associated with the specified ARN."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?billingView = fun () -> { billingView }
    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)
      | "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)
      | "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))]
      | `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
        [("billingView",
           (Option.map x.billingView ~f:BillingViewElement.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingView =
        (Option.map ~f:BillingViewElement.of_xml)
          (Xml.child xml_arg0 "billingView") in
      make ?billingView ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingView =
        field_map json__ "billingView" BillingViewElement.of_json in
      make ?billingView ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the metadata associated to the specified billing view ARN."]
module GetBillingViewRequest =
  struct
    type nonrec t =
      {
      arn: BillingViewArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that can be used to uniquely identify the billing view."]}
    let context_ = "GetBillingViewRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Some (BillingViewArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        BillingViewArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" BillingViewArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the metadata associated to the specified billing view ARN."]
module DisassociateSourceViewsResponse =
  struct
    type nonrec t =
      {
      arn: BillingViewArn.t option
        [@ocaml.doc
          "The ARN of the billing view that the source views were disassociated from."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BillingViewHealthStatusException of
          BillingViewHealthStatusException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn = fun () -> { arn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BillingViewHealthStatusException" ->
          `BillingViewHealthStatusException
            (BillingViewHealthStatusException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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)
      | "BillingViewHealthStatusException" ->
          `BillingViewHealthStatusException
            (BillingViewHealthStatusException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.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))]
      | `BillingViewHealthStatusException e ->
          `Assoc
            [("error", (`String "BillingViewHealthStatusException"));
            ("details", (BillingViewHealthStatusException.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))]
      | `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
        [("arn", (Option.map x.arn ~f:BillingViewArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:BillingViewArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" BillingViewArn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association between one or more source billing views and an existing billing view. This allows modifying the composition of aggregate billing views."]
module DisassociateSourceViewsRequest =
  struct
    type nonrec t =
      {
      arn: BillingViewArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the billing view to disassociate source views from."];
      sourceViews: BillingViewSourceViewsList.t
        [@ocaml.doc
          "A list of ARNs of the source billing views to disassociate."]}
    let context_ = "DisassociateSourceViewsRequest"
    let make ~arn = fun ~sourceViews -> fun () -> { arn; sourceViews }
    let to_value x =
      structure_to_value
        [("arn", (Some (BillingViewArn.to_value x.arn)));
        ("sourceViews",
          (Some (BillingViewSourceViewsList.to_value x.sourceViews)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceViews =
        BillingViewSourceViewsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceViews") in
      let arn =
        BillingViewArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~sourceViews ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceViews =
        field_map_exn json__ "sourceViews" BillingViewSourceViewsList.of_json in
      let arn = field_map_exn json__ "arn" BillingViewArn.of_json in
      make ~sourceViews ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association between one or more source billing views and an existing billing view. This allows modifying the composition of aggregate billing views."]
module DeleteBillingViewResponse =
  struct
    type nonrec t =
      {
      arn: BillingViewArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that can be used to uniquely identify the billing view."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn = fun () -> { arn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.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))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.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
        [("arn", (Option.map x.arn ~f:BillingViewArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:BillingViewArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" BillingViewArn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified billing view."]
module DeleteBillingViewRequest =
  struct
    type nonrec t =
      {
      arn: BillingViewArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that can be used to uniquely identify the billing view."];
      force: Boolean.t option
        [@ocaml.doc
          "If set to true, forces deletion of the billing view even if it has derived resources (e.g. other billing views or budgets). Use with caution as this may break dependent resources."]}
    let context_ = "DeleteBillingViewRequest"
    let make ?force = fun ~arn -> fun () -> { force; arn }
    let to_value x =
      structure_to_value
        [("arn", (Some (BillingViewArn.to_value x.arn)));
        ("force", (Option.map x.force ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let force = (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "force") in
      let arn =
        BillingViewArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ?force ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let force = field_map json__ "force" Boolean.of_json in
      let arn = field_map_exn json__ "arn" BillingViewArn.of_json in
      make ?force ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified billing view."]
module CreateBillingViewResponse =
  struct
    type nonrec t =
      {
      arn: BillingViewArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that can be used to uniquely identify the billing view."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The time when the billing view was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BillingViewHealthStatusException of
          BillingViewHealthStatusException.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 ?arn = fun ?createdAt -> fun () -> { arn; createdAt }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BillingViewHealthStatusException" ->
          `BillingViewHealthStatusException
            (BillingViewHealthStatusException.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)
      | "BillingViewHealthStatusException" ->
          `BillingViewHealthStatusException
            (BillingViewHealthStatusException.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))]
      | `BillingViewHealthStatusException e ->
          `Assoc
            [("error", (`String "BillingViewHealthStatusException"));
            ("details", (BillingViewHealthStatusException.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
        [("arn", (Option.map x.arn ~f:BillingViewArn.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let arn =
        (Option.map ~f:BillingViewArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?createdAt ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let arn = field_map json__ "arn" BillingViewArn.of_json in
      make ?createdAt ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a billing view with the specified billing view attributes."]
module CreateBillingViewRequest =
  struct
    type nonrec t =
      {
      name: BillingViewName.t [@ocaml.doc "The name of the billing view."];
      description: BillingViewDescription.t option
        [@ocaml.doc "The description of the billing view."];
      sourceViews: BillingViewSourceViewsList.t
        [@ocaml.doc
          "A list of billing views used as the data source for the custom billing view."];
      dataFilterExpression: Expression.t option
        [@ocaml.doc
          "See Expression. Billing view only supports LINKED_ACCOUNT, Tags, and CostCategories."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier you specify to ensure idempotency of the request. Idempotency ensures that an API request completes no more than one time. If the original request completes successfully, any subsequent retries complete successfully without performing any further actions with an idempotent request."];
      resourceTags: ResourceTagList.t option
        [@ocaml.doc
          "A list of key value map specifying tags associated to the billing view being created."]}
    let context_ = "CreateBillingViewRequest"
    let make ?description =
      fun ?dataFilterExpression ->
        fun ?clientToken ->
          fun ?resourceTags ->
            fun ~name ->
              fun ~sourceViews ->
                fun () ->
                  {
                    description;
                    dataFilterExpression;
                    clientToken;
                    resourceTags;
                    name;
                    sourceViews
                  }
    let to_value x =
      structure_to_value
        [("name", (Some (BillingViewName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:BillingViewDescription.to_value));
        ("sourceViews",
          (Some (BillingViewSourceViewsList.to_value x.sourceViews)));
        ("dataFilterExpression",
          (Option.map x.dataFilterExpression ~f:Expression.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("resourceTags",
          (Option.map x.resourceTags ~f:ResourceTagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTags =
        (Option.map ~f:ResourceTagList.of_xml)
          (Xml.child xml_arg0 "resourceTags") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let dataFilterExpression =
        (Option.map ~f:Expression.of_xml)
          (Xml.child xml_arg0 "dataFilterExpression") in
      let sourceViews =
        BillingViewSourceViewsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceViews") in
      let description =
        (Option.map ~f:BillingViewDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        BillingViewName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?resourceTags ?clientToken ?dataFilterExpression ~sourceViews
        ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTags =
        field_map json__ "resourceTags" ResourceTagList.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let dataFilterExpression =
        field_map json__ "dataFilterExpression" Expression.of_json in
      let sourceViews =
        field_map_exn json__ "sourceViews" BillingViewSourceViewsList.of_json in
      let description =
        field_map json__ "description" BillingViewDescription.of_json in
      let name = field_map_exn json__ "name" BillingViewName.of_json in
      make ?resourceTags ?clientToken ?dataFilterExpression ~sourceViews
        ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a billing view with the specified billing view attributes."]
module AssociateSourceViewsResponse =
  struct
    type nonrec t =
      {
      arn: BillingViewArn.t option
        [@ocaml.doc
          "The ARN of the billing view that the source views were associated with."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BillingViewHealthStatusException of
          BillingViewHealthStatusException.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 ?arn = fun () -> { arn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BillingViewHealthStatusException" ->
          `BillingViewHealthStatusException
            (BillingViewHealthStatusException.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)
      | "BillingViewHealthStatusException" ->
          `BillingViewHealthStatusException
            (BillingViewHealthStatusException.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))]
      | `BillingViewHealthStatusException e ->
          `Assoc
            [("error", (`String "BillingViewHealthStatusException"));
            ("details", (BillingViewHealthStatusException.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
        [("arn", (Option.map x.arn ~f:BillingViewArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:BillingViewArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" BillingViewArn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates one or more source billing views with an existing billing view. This allows creating aggregate billing views that combine data from multiple sources."]
module AssociateSourceViewsRequest =
  struct
    type nonrec t =
      {
      arn: BillingViewArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the billing view to associate source views with."];
      sourceViews: BillingViewSourceViewsList.t
        [@ocaml.doc
          "A list of ARNs of the source billing views to associate."]}
    let context_ = "AssociateSourceViewsRequest"
    let make ~arn = fun ~sourceViews -> fun () -> { arn; sourceViews }
    let to_value x =
      structure_to_value
        [("arn", (Some (BillingViewArn.to_value x.arn)));
        ("sourceViews",
          (Some (BillingViewSourceViewsList.to_value x.sourceViews)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceViews =
        BillingViewSourceViewsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceViews") in
      let arn =
        BillingViewArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~sourceViews ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceViews =
        field_map_exn json__ "sourceViews" BillingViewSourceViewsList.of_json in
      let arn = field_map_exn json__ "arn" BillingViewArn.of_json in
      make ~sourceViews ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates one or more source billing views with an existing billing view. This allows creating aggregate billing views that combine data from multiple sources."]