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.billingconductor
let apiVersion = "2021-07-30"
let endpointPrefix = "billingconductor"
let serviceFullName = "AWSBillingConductor"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module AttributeValue =
  struct
    type nonrec t = string
    let context_ = "AttributeValue"
    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:"AttributeValue" j
    let to_json = simple_to_json to_value
  end
module LineItemFilterValue =
  struct
    type nonrec t =
      | SAVINGS_PLAN_NEGATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SAVINGS_PLAN_NEGATION -> "SAVINGS_PLAN_NEGATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "SAVINGS_PLAN_NEGATION" -> SAVINGS_PLAN_NEGATION
      | 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 LineItemFilterValue" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LineItemFilterValue" j)
    let to_json = simple_to_json to_value
  end
module AttributeValueList =
  struct
    type nonrec t = AttributeValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:AttributeValue.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:AttributeValue.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeValueList" ~of_json:AttributeValue.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module LineItemFilterAttributeName =
  struct
    type nonrec t =
      | LINE_ITEM_TYPE 
      | SERVICE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LINE_ITEM_TYPE -> "LINE_ITEM_TYPE"
      | SERVICE -> "SERVICE"
      | Non_static_id s -> s
    let of_string =
      function
      | "LINE_ITEM_TYPE" -> LINE_ITEM_TYPE
      | "SERVICE" -> SERVICE
      | 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 LineItemFilterAttributeName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LineItemFilterAttributeName" j)
    let to_json = simple_to_json to_value
  end
module LineItemFilterValuesList =
  struct
    type nonrec t = LineItemFilterValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:LineItemFilterValue.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:LineItemFilterValue.of_xml)
    let of_json j =
      list_of_json ~kind:"LineItemFilterValuesList"
        ~of_json:LineItemFilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module MatchOption =
  struct
    type nonrec t =
      | NOT_EQUAL 
      | EQUAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_EQUAL -> "NOT_EQUAL"
      | EQUAL -> "EQUAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_EQUAL" -> NOT_EQUAL
      | "EQUAL" -> EQUAL
      | 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 MatchOption" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MatchOption" j)
    let to_json = simple_to_json to_value
  end
module TieringActivated =
  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 LineItemFilter =
  struct
    type nonrec t =
      {
      attribute: LineItemFilterAttributeName.t
        [@ocaml.doc
          "The attribute of the line item filter. This specifies what attribute that you can filter on."];
      matchOption: MatchOption.t
        [@ocaml.doc
          "The match criteria of the line item filter. This parameter specifies whether not to include the resource value from the billing group total cost."];
      values: LineItemFilterValuesList.t option
        [@ocaml.doc
          "The values of the line item filter. This specifies the values to filter on. Currently, you can only exclude Savings Plans discounts."];
      attributeValues: AttributeValueList.t option
        [@ocaml.doc
          "The values of the line item filter. This specifies the values to filter on."]}
    let context_ = "LineItemFilter"
    let make ?values =
      fun ?attributeValues ->
        fun ~attribute ->
          fun ~matchOption ->
            fun () -> { values; attributeValues; attribute; matchOption }
    let to_value x =
      structure_to_value
        [("Attribute",
           (Some (LineItemFilterAttributeName.to_value x.attribute)));
        ("MatchOption", (Some (MatchOption.to_value x.matchOption)));
        ("Values",
          (Option.map x.values ~f:LineItemFilterValuesList.to_value));
        ("AttributeValues",
          (Option.map x.attributeValues ~f:AttributeValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeValues =
        (Option.map ~f:AttributeValueList.of_xml)
          (Xml.child xml_arg0 "AttributeValues") in
      let values =
        (Option.map ~f:LineItemFilterValuesList.of_xml)
          (Xml.child xml_arg0 "Values") in
      let matchOption =
        MatchOption.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MatchOption") in
      let attribute =
        LineItemFilterAttributeName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Attribute") in
      make ?attributeValues ?values ~matchOption ~attribute ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeValues =
        field_map json__ "AttributeValues" AttributeValueList.of_json in
      let values = field_map json__ "Values" LineItemFilterValuesList.of_json in
      let matchOption =
        field_map_exn json__ "MatchOption" MatchOption.of_json in
      let attribute =
        field_map_exn json__ "Attribute" LineItemFilterAttributeName.of_json in
      make ?attributeValues ?values ~matchOption ~attribute ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A representation of the line item filter for your custom line item. You can use line item filters to include or exclude specific resource values from the billing group's total cost. For example, if you create a custom line item and you want to filter out a value, such as Savings Plans discounts, you can update LineItemFilter to exclude it."]
module CustomLineItemChargeValue =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:1000000.) >>=
             (fun () -> check_float_min i ~min:0.));
        i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module CustomLineItemPercentageChargeValue =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:10000.) >>=
             (fun () -> check_float_min i ~min:0.));
        i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module FreeTierConfig =
  struct
    type nonrec t =
      {
      activated: TieringActivated.t option
        [@ocaml.doc
          "Activate or deactivate Amazon Web Services Free Tier application."]}
    let make ?activated = fun () -> { activated }
    let to_value x =
      structure_to_value
        [("Activated", (Option.map x.activated ~f:TieringActivated.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let activated =
        (Option.map ~f:TieringActivated.of_xml)
          (Xml.child xml_arg0 "Activated") in
      make ?activated ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let activated = field_map json__ "Activated" TieringActivated.of_json in
      make ?activated ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The possible Amazon Web Services Free Tier configurations."]
module CustomLineItemType =
  struct
    type nonrec t =
      | CREDIT 
      | FEE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | CREDIT -> "CREDIT" | FEE -> "FEE" | Non_static_id s -> s
    let of_string =
      function | "CREDIT" -> CREDIT | "FEE" -> FEE | 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 CustomLineItemType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CustomLineItemType" j)
    let to_json = simple_to_json to_value
  end
module LineItemFiltersList =
  struct
    type nonrec t = LineItemFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:LineItemFilter.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:LineItemFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"LineItemFiltersList"
        ~of_json:LineItemFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListCustomLineItemFlatChargeDetails =
  struct
    type nonrec t =
      {
      chargeValue: CustomLineItemChargeValue.t option
        [@ocaml.doc "The custom line item's fixed charge value in USD."]}
    let make ?chargeValue = fun () -> { chargeValue }
    let to_value x =
      structure_to_value
        [("ChargeValue",
           (Option.map x.chargeValue ~f:CustomLineItemChargeValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chargeValue =
        (Option.map ~f:CustomLineItemChargeValue.of_xml)
          (Xml.child xml_arg0 "ChargeValue") in
      make ?chargeValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chargeValue =
        field_map json__ "ChargeValue" CustomLineItemChargeValue.of_json in
      make ?chargeValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A representation of the charge details that are associated with a flat custom line item."]
module ListCustomLineItemPercentageChargeDetails =
  struct
    type nonrec t =
      {
      percentageValue: CustomLineItemPercentageChargeValue.t option
        [@ocaml.doc
          "The custom line item's percentage value. This will be multiplied against the combined value of its associated resources to determine its charge value."]}
    let make ?percentageValue = fun () -> { percentageValue }
    let to_value x =
      structure_to_value
        [("PercentageValue",
           (Option.map x.percentageValue
              ~f:CustomLineItemPercentageChargeValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let percentageValue =
        (Option.map ~f:CustomLineItemPercentageChargeValue.of_xml)
          (Xml.child xml_arg0 "PercentageValue") in
      make ?percentageValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let percentageValue =
        field_map json__ "PercentageValue"
          CustomLineItemPercentageChargeValue.of_json in
      make ?percentageValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A representation of the charge details that are associated with a percentage custom line item."]
module Service =
  struct
    type nonrec t = string
    let context_ = "Service"
    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:"Service" j
    let to_json = simple_to_json to_value
  end
module PricingPlanFullArn =
  struct
    type nonrec t = string
    let context_ = "PricingPlanFullArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws(-cn)?:billingconductor::(aws|[0-9]{12}):pricingplan/(BasicPricingPlan|Passthrough|[a-zA-Z0-9]{10})");
        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:"PricingPlanFullArn" j
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module ResponsibilityTransferArn =
  struct
    type nonrec t = string
    let context_ = "ResponsibilityTransferArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:[a-z0-9][a-z0-9-.]{0,62}:organizations::\\d{12}:transfer/o-[a-z0-9]{10,32}/(billing)/(inbound|outbound)/rt-[0-9a-z]{8,32}");
        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:"ResponsibilityTransferArn" 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 Attribute =
  struct
    type nonrec t =
      {
      key: String_.t option
        [@ocaml.doc
          "The key in a key-value pair that describes the margin summary."];
      value: String_.t option
        [@ocaml.doc
          "The value in a key-value pair that describes the margin summary."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:String_.to_value));
        ("Value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:String_.of_xml) (Xml.child 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" String_.of_json in
      let key = field_map json__ "Key" String_.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The key-value pair that represents the attribute by which the BillingGroupCostReportResults are grouped. For example, if you want a service-level breakdown for Amazon Simple Storage Service (Amazon S3) of the billing group, the attribute will be a key-value pair of \"PRODUCT_NAME\" and \"S3\"."]
module CustomLineItemAssociationElement =
  struct
    type nonrec t = string
    let context_ = "CustomLineItemAssociationElement"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(arn:aws(-cn)?:billingconductor::[0-9]{12}:(customlineitem|billinggroup)/)?[a-zA-Z0-9]{10,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:"CustomLineItemAssociationElement" j
    let to_json = simple_to_json to_value
  end
module AssociateResourceErrorReason =
  struct
    type nonrec t =
      | INVALID_ARN 
      | SERVICE_LIMIT_EXCEEDED 
      | ILLEGAL_CUSTOMLINEITEM 
      | INTERNAL_SERVER_EXCEPTION 
      | INVALID_BILLING_PERIOD_RANGE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INVALID_ARN -> "INVALID_ARN"
      | SERVICE_LIMIT_EXCEEDED -> "SERVICE_LIMIT_EXCEEDED"
      | ILLEGAL_CUSTOMLINEITEM -> "ILLEGAL_CUSTOMLINEITEM"
      | INTERNAL_SERVER_EXCEPTION -> "INTERNAL_SERVER_EXCEPTION"
      | INVALID_BILLING_PERIOD_RANGE -> "INVALID_BILLING_PERIOD_RANGE"
      | Non_static_id s -> s
    let of_string =
      function
      | "INVALID_ARN" -> INVALID_ARN
      | "SERVICE_LIMIT_EXCEEDED" -> SERVICE_LIMIT_EXCEEDED
      | "ILLEGAL_CUSTOMLINEITEM" -> ILLEGAL_CUSTOMLINEITEM
      | "INTERNAL_SERVER_EXCEPTION" -> INTERNAL_SERVER_EXCEPTION
      | "INVALID_BILLING_PERIOD_RANGE" -> INVALID_BILLING_PERIOD_RANGE
      | 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 AssociateResourceErrorReason"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AssociateResourceErrorReason" j)
    let to_json = simple_to_json to_value
  end
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The field name."];
      message: String_.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:String_.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The field's information of a request that resulted in an exception."]
module BillingPeriod =
  struct
    type nonrec t = string
    let context_ = "BillingPeriod"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"\\d{4}-(0?[1-9]|1[012])");
        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:"BillingPeriod" j
    let to_json = simple_to_json to_value
  end
module CustomLineItemRelationship =
  struct
    type nonrec t =
      | PARENT 
      | CHILD 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | PARENT -> "PARENT" | CHILD -> "CHILD" | Non_static_id s -> s
    let of_string =
      function | "PARENT" -> PARENT | "CHILD" -> CHILD | 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 CustomLineItemRelationship"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CustomLineItemRelationship" j)
    let to_json = simple_to_json to_value
  end
module BillingEntity =
  struct
    type nonrec t = string
    let context_ = "BillingEntity"
    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:"BillingEntity" j
    let to_json = simple_to_json to_value
  end
module Instant =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module ModifierPercentage =
  struct
    type nonrec t = float
    let make i =
      let open Result in ok_or_failwith (check_float_min i ~min:0.); i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module NumberOfPricingPlansAssociatedWith =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:0L); i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module Operation =
  struct
    type nonrec t = string
    let context_ = "Operation"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"\\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:"Operation" j
    let to_json = simple_to_json to_value
  end
module PricingRuleArn =
  struct
    type nonrec t = string
    let context_ = "PricingRuleArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(arn:aws(-cn)?:billingconductor::[0-9]{12}:pricingrule/)?[a-zA-Z0-9]{10}");
        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:"PricingRuleArn" j
    let to_json = simple_to_json to_value
  end
module PricingRuleDescription =
  struct
    type nonrec t = string
    let context_ = "PricingRuleDescription"
    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:"PricingRuleDescription" j
    let to_json = simple_to_json to_value
  end
module PricingRuleName =
  struct
    type nonrec t = string
    let context_ = "PricingRuleName"
    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:"PricingRuleName" j
    let to_json = simple_to_json to_value
  end
module PricingRuleScope =
  struct
    type nonrec t =
      | GLOBAL 
      | SERVICE 
      | BILLING_ENTITY 
      | SKU 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GLOBAL -> "GLOBAL"
      | SERVICE -> "SERVICE"
      | BILLING_ENTITY -> "BILLING_ENTITY"
      | SKU -> "SKU"
      | Non_static_id s -> s
    let of_string =
      function
      | "GLOBAL" -> GLOBAL
      | "SERVICE" -> SERVICE
      | "BILLING_ENTITY" -> BILLING_ENTITY
      | "SKU" -> SKU
      | 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 PricingRuleScope" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PricingRuleScope" j)
    let to_json = simple_to_json to_value
  end
module PricingRuleType =
  struct
    type nonrec t =
      | MARKUP 
      | DISCOUNT 
      | TIERING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MARKUP -> "MARKUP"
      | DISCOUNT -> "DISCOUNT"
      | TIERING -> "TIERING"
      | Non_static_id s -> s
    let of_string =
      function
      | "MARKUP" -> MARKUP
      | "DISCOUNT" -> DISCOUNT
      | "TIERING" -> TIERING
      | 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 PricingRuleType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PricingRuleType" j)
    let to_json = simple_to_json to_value
  end
module Tiering =
  struct
    type nonrec t =
      {
      freeTier: FreeTierConfig.t option
        [@ocaml.doc
          "The possible Amazon Web Services Free Tier configurations."]}
    let make ?freeTier = fun () -> { freeTier }
    let to_value x =
      structure_to_value
        [("FreeTier", (Option.map x.freeTier ~f:FreeTierConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let freeTier =
        (Option.map ~f:FreeTierConfig.of_xml) (Xml.child xml_arg0 "FreeTier") in
      make ?freeTier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let freeTier = field_map json__ "FreeTier" FreeTierConfig.of_json in
      make ?freeTier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The set of tiering configurations for the pricing rule."]
module UsageType =
  struct
    type nonrec t = string
    let context_ = "UsageType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"\\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:"UsageType" j
    let to_json = simple_to_json to_value
  end
module NumberOfAssociatedPricingRules =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:1L); i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module PricingPlanArn =
  struct
    type nonrec t = string
    let context_ = "PricingPlanArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(arn:aws(-cn)?:billingconductor::(aws|[0-9]{12}):pricingplan/)?(BasicPricingPlan|Passthrough|[a-zA-Z0-9]{10})");
        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:"PricingPlanArn" j
    let to_json = simple_to_json to_value
  end
module PricingPlanDescription =
  struct
    type nonrec t = string
    let context_ = "PricingPlanDescription"
    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:"PricingPlanDescription" j
    let to_json = simple_to_json to_value
  end
module PricingPlanName =
  struct
    type nonrec t = string
    let context_ = "PricingPlanName"
    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:"PricingPlanName" 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 BillingGroupArn =
  struct
    type nonrec t = string
    let context_ = "BillingGroupArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(arn:aws(-cn)?:billingconductor::[0-9]{12}:billinggroup/)?[a-zA-Z0-9]{10,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:"BillingGroupArn" j
    let to_json = simple_to_json to_value
  end
module ComputationRuleEnum =
  struct
    type nonrec t =
      | ITEMIZED 
      | CONSOLIDATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ITEMIZED -> "ITEMIZED"
      | CONSOLIDATED -> "CONSOLIDATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ITEMIZED" -> ITEMIZED
      | "CONSOLIDATED" -> CONSOLIDATED
      | 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 ComputationRuleEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ComputationRuleEnum" j)
    let to_json = simple_to_json to_value
  end
module CurrencyCode =
  struct
    type nonrec t =
      | USD 
      | CNY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | USD -> "USD" | CNY -> "CNY" | Non_static_id s -> s
    let of_string =
      function | "USD" -> USD | "CNY" -> CNY | 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 CurrencyCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CurrencyCode" j)
    let to_json = simple_to_json to_value
  end
module CustomLineItemArn =
  struct
    type nonrec t = string
    let context_ = "CustomLineItemArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(arn:aws(-cn)?:billingconductor::[0-9]{12}:customlineitem/)?[a-zA-Z0-9]{10}");
        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:"CustomLineItemArn" j
    let to_json = simple_to_json to_value
  end
module CustomLineItemDescription =
  struct
    type nonrec t = string
    let context_ = "CustomLineItemDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (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:"CustomLineItemDescription" j
    let to_json = simple_to_json to_value
  end
module CustomLineItemName =
  struct
    type nonrec t = string
    let context_ = "CustomLineItemName"
    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:"CustomLineItemName" j
    let to_json = simple_to_json to_value
  end
module CustomLineItemProductCode =
  struct
    type nonrec t = string
    let context_ = "CustomLineItemProductCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:29) >>=
             (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:"CustomLineItemProductCode" j
    let to_json = simple_to_json to_value
  end
module ListCustomLineItemChargeDetails =
  struct
    type nonrec t =
      {
      flat: ListCustomLineItemFlatChargeDetails.t option
        [@ocaml.doc
          "A ListCustomLineItemFlatChargeDetails that describes the charge details of a flat custom line item."];
      percentage: ListCustomLineItemPercentageChargeDetails.t option
        [@ocaml.doc
          "A ListCustomLineItemPercentageChargeDetails that describes the charge details of a percentage custom line item."];
      type_: CustomLineItemType.t option
        [@ocaml.doc
          "The type of the custom line item that indicates whether the charge is a fee or credit."];
      lineItemFilters: LineItemFiltersList.t option
        [@ocaml.doc "A representation of the line item filter."]}
    let make ?flat =
      fun ?percentage ->
        fun ?type_ ->
          fun ?lineItemFilters ->
            fun () -> { flat; percentage; type_; lineItemFilters }
    let to_value x =
      structure_to_value
        [("Flat",
           (Option.map x.flat ~f:ListCustomLineItemFlatChargeDetails.to_value));
        ("Percentage",
          (Option.map x.percentage
             ~f:ListCustomLineItemPercentageChargeDetails.to_value));
        ("Type", (Option.map x.type_ ~f:CustomLineItemType.to_value));
        ("LineItemFilters",
          (Option.map x.lineItemFilters ~f:LineItemFiltersList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lineItemFilters =
        (Option.map ~f:LineItemFiltersList.of_xml)
          (Xml.child xml_arg0 "LineItemFilters") in
      let type_ =
        (Option.map ~f:CustomLineItemType.of_xml) (Xml.child xml_arg0 "Type") in
      let percentage =
        (Option.map ~f:ListCustomLineItemPercentageChargeDetails.of_xml)
          (Xml.child xml_arg0 "Percentage") in
      let flat =
        (Option.map ~f:ListCustomLineItemFlatChargeDetails.of_xml)
          (Xml.child xml_arg0 "Flat") in
      make ?lineItemFilters ?type_ ?percentage ?flat ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lineItemFilters =
        field_map json__ "LineItemFilters" LineItemFiltersList.of_json in
      let type_ = field_map json__ "Type" CustomLineItemType.of_json in
      let percentage =
        field_map json__ "Percentage"
          ListCustomLineItemPercentageChargeDetails.of_json in
      let flat =
        field_map json__ "Flat" ListCustomLineItemFlatChargeDetails.of_json in
      make ?lineItemFilters ?type_ ?percentage ?flat ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A representation of the charge details of a custom line item."]
module NumberOfAssociations =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:0L); i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module PresentationObject =
  struct
    type nonrec t =
      {
      service: Service.t
        [@ocaml.doc
          "The service under which the custom line item charges will be presented. Must be a string between 1 and 128 characters matching the pattern \"^\\[a-zA-Z0-9\\]+$\"."]}
    let context_ = "PresentationObject"
    let make ~service = fun () -> { service }
    let to_value x =
      structure_to_value [("Service", (Some (Service.to_value x.service)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let service =
        Service.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Service") in
      make ~service ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let service = field_map_exn json__ "Service" Service.of_json in
      make ~service ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that defines how custom line item charges are presented in the bill, containing specifications for service presentation."]
module BillingGroupDescription =
  struct
    type nonrec t = string
    let context_ = "BillingGroupDescription"
    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:"BillingGroupDescription" j
    let to_json = simple_to_json to_value
  end
module BillingGroupName =
  struct
    type nonrec t = string
    let context_ = "BillingGroupName"
    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:"BillingGroupName" j
    let to_json = simple_to_json to_value
  end
module BillingGroupStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | PRIMARY_ACCOUNT_MISSING 
      | PENDING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | PRIMARY_ACCOUNT_MISSING -> "PRIMARY_ACCOUNT_MISSING"
      | PENDING -> "PENDING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "PRIMARY_ACCOUNT_MISSING" -> PRIMARY_ACCOUNT_MISSING
      | "PENDING" -> PENDING
      | 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 BillingGroupStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BillingGroupStatus" j)
    let to_json = simple_to_json to_value
  end
module BillingGroupStatusReason =
  struct
    type nonrec t = string
    let context_ = "BillingGroupStatusReason"
    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:"BillingGroupStatusReason" j
    let to_json = simple_to_json to_value
  end
module BillingGroupType =
  struct
    type nonrec t =
      | STANDARD 
      | TRANSFER_BILLING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD -> "STANDARD"
      | TRANSFER_BILLING -> "TRANSFER_BILLING"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD" -> STANDARD
      | "TRANSFER_BILLING" -> TRANSFER_BILLING
      | 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 BillingGroupType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BillingGroupType" j)
    let to_json = simple_to_json to_value
  end
module ComputationPreference =
  struct
    type nonrec t =
      {
      pricingPlanArn: PricingPlanFullArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the pricing plan that's used to compute the Amazon Web Services charges for a billing group."]}
    let context_ = "ComputationPreference"
    let make ~pricingPlanArn = fun () -> { pricingPlanArn }
    let to_value x =
      structure_to_value
        [("PricingPlanArn",
           (Some (PricingPlanFullArn.to_value x.pricingPlanArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pricingPlanArn =
        PricingPlanFullArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PricingPlanArn") in
      make ~pricingPlanArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pricingPlanArn =
        field_map_exn json__ "PricingPlanArn" PricingPlanFullArn.of_json in
      make ~pricingPlanArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The preferences and settings that will be used to compute the Amazon Web Services charges for a billing group."]
module ListBillingGroupAccountGrouping =
  struct
    type nonrec t =
      {
      autoAssociate: Boolean.t option
        [@ocaml.doc
          "Specifies if this billing group will automatically associate newly added Amazon Web Services accounts that join your consolidated billing family."];
      responsibilityTransferArn: ResponsibilityTransferArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that identifies the transfer relationship for the billing group."]}
    let make ?autoAssociate =
      fun ?responsibilityTransferArn ->
        fun () -> { autoAssociate; responsibilityTransferArn }
    let to_value x =
      structure_to_value
        [("AutoAssociate", (Option.map x.autoAssociate ~f:Boolean.to_value));
        ("ResponsibilityTransferArn",
          (Option.map x.responsibilityTransferArn
             ~f:ResponsibilityTransferArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let responsibilityTransferArn =
        (Option.map ~f:ResponsibilityTransferArn.of_xml)
          (Xml.child xml_arg0 "ResponsibilityTransferArn") in
      let autoAssociate =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "AutoAssociate") in
      make ?responsibilityTransferArn ?autoAssociate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let responsibilityTransferArn =
        field_map json__ "ResponsibilityTransferArn"
          ResponsibilityTransferArn.of_json in
      let autoAssociate = field_map json__ "AutoAssociate" Boolean.of_json in
      make ?responsibilityTransferArn ?autoAssociate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies if the billing group has the following features enabled."]
module NumberOfAccounts =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:0L); i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module StringSearch =
  struct
    type nonrec t =
      {
      searchOption: SearchOption.t
        [@ocaml.doc
          "The search option to be applied when performing the string search."];
      searchValue: SearchValue.t
        [@ocaml.doc
          "The value to search for within the specified string field."]}
    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 string search parameters."]
module AWSCost =
  struct
    type nonrec t = string
    let context_ = "AWSCost"
    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:"AWSCost" j
    let to_json = simple_to_json to_value
  end
module Currency =
  struct
    type nonrec t = string
    let context_ = "Currency"
    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:"Currency" j
    let to_json = simple_to_json to_value
  end
module Margin =
  struct
    type nonrec t = string
    let context_ = "Margin"
    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:"Margin" j
    let to_json = simple_to_json to_value
  end
module MarginPercentage =
  struct
    type nonrec t = string
    let context_ = "MarginPercentage"
    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:"MarginPercentage" j
    let to_json = simple_to_json to_value
  end
module ProformaCost =
  struct
    type nonrec t = string
    let context_ = "ProformaCost"
    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:"ProformaCost" j
    let to_json = simple_to_json to_value
  end
module AccountEmail =
  struct
    type nonrec t = string
    let context_ = "AccountEmail"
    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:"AccountEmail" j
    let to_json = simple_to_json to_value
  end
module AccountName =
  struct
    type nonrec t = string
    let context_ = "AccountName"
    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:"AccountName" j
    let to_json = simple_to_json to_value
  end
module AttributesList =
  struct
    type nonrec t = Attribute.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:Attribute.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:Attribute.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributesList" ~of_json:Attribute.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomLineItemAssociationsList =
  struct
    type nonrec t = CustomLineItemAssociationElement.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:CustomLineItemAssociationElement.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:CustomLineItemAssociationElement.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomLineItemAssociationsList"
        ~of_json:CustomLineItemAssociationElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssociateResourceError =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "The reason why the resource association failed."];
      reason: AssociateResourceErrorReason.t option
        [@ocaml.doc
          "A static error code that's used to classify the type of failure."]}
    let make ?message = fun ?reason -> fun () -> { message; reason }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Reason",
          (Option.map x.reason ~f:AssociateResourceErrorReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:AssociateResourceErrorReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "Reason" AssociateResourceErrorReason.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A representation of a resource association error."]
module ConflictExceptionReason =
  struct
    type nonrec t =
      | RESOURCE_NAME_CONFLICT 
      | PRICING_RULE_IN_PRICING_PLAN_CONFLICT 
      | PRICING_PLAN_ATTACHED_TO_BILLING_GROUP_DELETE_CONFLICT 
      | PRICING_RULE_ATTACHED_TO_PRICING_PLAN_DELETE_CONFLICT 
      | WRITE_CONFLICT_RETRY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RESOURCE_NAME_CONFLICT -> "RESOURCE_NAME_CONFLICT"
      | PRICING_RULE_IN_PRICING_PLAN_CONFLICT ->
          "PRICING_RULE_IN_PRICING_PLAN_CONFLICT"
      | PRICING_PLAN_ATTACHED_TO_BILLING_GROUP_DELETE_CONFLICT ->
          "PRICING_PLAN_ATTACHED_TO_BILLING_GROUP_DELETE_CONFLICT"
      | PRICING_RULE_ATTACHED_TO_PRICING_PLAN_DELETE_CONFLICT ->
          "PRICING_RULE_ATTACHED_TO_PRICING_PLAN_DELETE_CONFLICT"
      | WRITE_CONFLICT_RETRY -> "WRITE_CONFLICT_RETRY"
      | Non_static_id s -> s
    let of_string =
      function
      | "RESOURCE_NAME_CONFLICT" -> RESOURCE_NAME_CONFLICT
      | "PRICING_RULE_IN_PRICING_PLAN_CONFLICT" ->
          PRICING_RULE_IN_PRICING_PLAN_CONFLICT
      | "PRICING_PLAN_ATTACHED_TO_BILLING_GROUP_DELETE_CONFLICT" ->
          PRICING_PLAN_ATTACHED_TO_BILLING_GROUP_DELETE_CONFLICT
      | "PRICING_RULE_ATTACHED_TO_PRICING_PLAN_DELETE_CONFLICT" ->
          PRICING_RULE_ATTACHED_TO_PRICING_PLAN_DELETE_CONFLICT
      | "WRITE_CONFLICT_RETRY" -> WRITE_CONFLICT_RETRY
      | 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 ConflictExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConflictExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module RetryAfterSeconds =
  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 RetryAfterSeconds" 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 UpdateFreeTierConfig =
  struct
    type nonrec t =
      {
      activated: TieringActivated.t
        [@ocaml.doc
          "Activate or deactivate application of Amazon Web Services Free Tier."]}
    let context_ = "UpdateFreeTierConfig"
    let make ~activated = fun () -> { activated }
    let to_value x =
      structure_to_value
        [("Activated", (Some (TieringActivated.to_value x.activated)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let activated =
        TieringActivated.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Activated") in
      make ~activated ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let activated =
        field_map_exn json__ "Activated" TieringActivated.of_json in
      make ~activated ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The possible Amazon Web Services Free Tier configurations."]
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 =
      | UNKNOWN_OPERATION 
      | CANNOT_PARSE 
      | FIELD_VALIDATION_FAILED 
      | OTHER 
      | PRIMARY_NOT_ASSOCIATED 
      | PRIMARY_CANNOT_DISASSOCIATE 
      | ACCOUNTS_NOT_ASSOCIATED 
      | ACCOUNTS_ALREADY_ASSOCIATED 
      | ILLEGAL_PRIMARY_ACCOUNT 
      | ILLEGAL_ACCOUNTS 
      | MISMATCHED_BILLINGGROUP_ARN 
      | MISSING_BILLINGGROUP 
      | MISMATCHED_CUSTOMLINEITEM_ARN 
      | ILLEGAL_BILLING_PERIOD 
      | ILLEGAL_BILLING_PERIOD_RANGE 
      | TOO_MANY_ACCOUNTS_IN_REQUEST 
      | DUPLICATE_ACCOUNT 
      | INVALID_BILLING_GROUP_STATUS 
      | MISMATCHED_PRICINGPLAN_ARN 
      | MISSING_PRICINGPLAN 
      | MISMATCHED_PRICINGRULE_ARN 
      | DUPLICATE_PRICINGRULE_ARNS 
      | MISSING_COSTCATEGORY 
      | ILLEGAL_EXPRESSION 
      | ILLEGAL_SCOPE 
      | ILLEGAL_SERVICE 
      | PRICINGRULES_NOT_EXIST 
      | PRICINGRULES_ALREADY_ASSOCIATED 
      | PRICINGRULES_NOT_ASSOCIATED 
      | INVALID_TIME_RANGE 
      | INVALID_BILLINGVIEW_ARN 
      | MISMATCHED_BILLINGVIEW_ARN 
      | ILLEGAL_CUSTOMLINEITEM 
      | MISSING_CUSTOMLINEITEM 
      | ILLEGAL_CUSTOMLINEITEM_UPDATE 
      | TOO_MANY_CUSTOMLINEITEMS_IN_REQUEST 
      | ILLEGAL_CHARGE_DETAILS 
      | ILLEGAL_UPDATE_CHARGE_DETAILS 
      | INVALID_ARN 
      | ILLEGAL_RESOURCE_ARNS 
      | ILLEGAL_CUSTOMLINEITEM_MODIFICATION 
      | MISSING_LINKED_ACCOUNT_IDS 
      | MULTIPLE_LINKED_ACCOUNT_IDS 
      | MISSING_PRICING_PLAN_ARN 
      | MULTIPLE_PRICING_PLAN_ARN 
      | ILLEGAL_CHILD_ASSOCIATE_RESOURCE 
      | CUSTOM_LINE_ITEM_ASSOCIATION_EXISTS 
      | INVALID_BILLING_GROUP 
      | INVALID_BILLING_PERIOD_FOR_OPERATION 
      | ILLEGAL_BILLING_ENTITY 
      | ILLEGAL_MODIFIER_PERCENTAGE 
      | ILLEGAL_TYPE 
      | ILLEGAL_BILLING_GROUP_TYPE 
      | ILLEGAL_BILLING_GROUP_PRICING_PLAN 
      | ILLEGAL_ENDED_BILLINGGROUP 
      | ILLEGAL_TIERING_INPUT 
      | ILLEGAL_OPERATION 
      | ILLEGAL_USAGE_TYPE 
      | INVALID_SKU_COMBO 
      | INVALID_FILTER 
      | TOO_MANY_AUTO_ASSOCIATE_BILLING_GROUPS 
      | CANNOT_DELETE_AUTO_ASSOCIATE_BILLING_GROUP 
      | ILLEGAL_ACCOUNT_ID 
      | BILLING_GROUP_ALREADY_EXIST_IN_CURRENT_BILLING_PERIOD 
      | ILLEGAL_COMPUTATION_RULE 
      | ILLEGAL_LINE_ITEM_FILTER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNKNOWN_OPERATION -> "UNKNOWN_OPERATION"
      | CANNOT_PARSE -> "CANNOT_PARSE"
      | FIELD_VALIDATION_FAILED -> "FIELD_VALIDATION_FAILED"
      | OTHER -> "OTHER"
      | PRIMARY_NOT_ASSOCIATED -> "PRIMARY_NOT_ASSOCIATED"
      | PRIMARY_CANNOT_DISASSOCIATE -> "PRIMARY_CANNOT_DISASSOCIATE"
      | ACCOUNTS_NOT_ASSOCIATED -> "ACCOUNTS_NOT_ASSOCIATED"
      | ACCOUNTS_ALREADY_ASSOCIATED -> "ACCOUNTS_ALREADY_ASSOCIATED"
      | ILLEGAL_PRIMARY_ACCOUNT -> "ILLEGAL_PRIMARY_ACCOUNT"
      | ILLEGAL_ACCOUNTS -> "ILLEGAL_ACCOUNTS"
      | MISMATCHED_BILLINGGROUP_ARN -> "MISMATCHED_BILLINGGROUP_ARN"
      | MISSING_BILLINGGROUP -> "MISSING_BILLINGGROUP"
      | MISMATCHED_CUSTOMLINEITEM_ARN -> "MISMATCHED_CUSTOMLINEITEM_ARN"
      | ILLEGAL_BILLING_PERIOD -> "ILLEGAL_BILLING_PERIOD"
      | ILLEGAL_BILLING_PERIOD_RANGE -> "ILLEGAL_BILLING_PERIOD_RANGE"
      | TOO_MANY_ACCOUNTS_IN_REQUEST -> "TOO_MANY_ACCOUNTS_IN_REQUEST"
      | DUPLICATE_ACCOUNT -> "DUPLICATE_ACCOUNT"
      | INVALID_BILLING_GROUP_STATUS -> "INVALID_BILLING_GROUP_STATUS"
      | MISMATCHED_PRICINGPLAN_ARN -> "MISMATCHED_PRICINGPLAN_ARN"
      | MISSING_PRICINGPLAN -> "MISSING_PRICINGPLAN"
      | MISMATCHED_PRICINGRULE_ARN -> "MISMATCHED_PRICINGRULE_ARN"
      | DUPLICATE_PRICINGRULE_ARNS -> "DUPLICATE_PRICINGRULE_ARNS"
      | MISSING_COSTCATEGORY -> "MISSING_COSTCATEGORY"
      | ILLEGAL_EXPRESSION -> "ILLEGAL_EXPRESSION"
      | ILLEGAL_SCOPE -> "ILLEGAL_SCOPE"
      | ILLEGAL_SERVICE -> "ILLEGAL_SERVICE"
      | PRICINGRULES_NOT_EXIST -> "PRICINGRULES_NOT_EXIST"
      | PRICINGRULES_ALREADY_ASSOCIATED -> "PRICINGRULES_ALREADY_ASSOCIATED"
      | PRICINGRULES_NOT_ASSOCIATED -> "PRICINGRULES_NOT_ASSOCIATED"
      | INVALID_TIME_RANGE -> "INVALID_TIME_RANGE"
      | INVALID_BILLINGVIEW_ARN -> "INVALID_BILLINGVIEW_ARN"
      | MISMATCHED_BILLINGVIEW_ARN -> "MISMATCHED_BILLINGVIEW_ARN"
      | ILLEGAL_CUSTOMLINEITEM -> "ILLEGAL_CUSTOMLINEITEM"
      | MISSING_CUSTOMLINEITEM -> "MISSING_CUSTOMLINEITEM"
      | ILLEGAL_CUSTOMLINEITEM_UPDATE -> "ILLEGAL_CUSTOMLINEITEM_UPDATE"
      | TOO_MANY_CUSTOMLINEITEMS_IN_REQUEST ->
          "TOO_MANY_CUSTOMLINEITEMS_IN_REQUEST"
      | ILLEGAL_CHARGE_DETAILS -> "ILLEGAL_CHARGE_DETAILS"
      | ILLEGAL_UPDATE_CHARGE_DETAILS -> "ILLEGAL_UPDATE_CHARGE_DETAILS"
      | INVALID_ARN -> "INVALID_ARN"
      | ILLEGAL_RESOURCE_ARNS -> "ILLEGAL_RESOURCE_ARNS"
      | ILLEGAL_CUSTOMLINEITEM_MODIFICATION ->
          "ILLEGAL_CUSTOMLINEITEM_MODIFICATION"
      | MISSING_LINKED_ACCOUNT_IDS -> "MISSING_LINKED_ACCOUNT_IDS"
      | MULTIPLE_LINKED_ACCOUNT_IDS -> "MULTIPLE_LINKED_ACCOUNT_IDS"
      | MISSING_PRICING_PLAN_ARN -> "MISSING_PRICING_PLAN_ARN"
      | MULTIPLE_PRICING_PLAN_ARN -> "MULTIPLE_PRICING_PLAN_ARN"
      | ILLEGAL_CHILD_ASSOCIATE_RESOURCE ->
          "ILLEGAL_CHILD_ASSOCIATE_RESOURCE"
      | CUSTOM_LINE_ITEM_ASSOCIATION_EXISTS ->
          "CUSTOM_LINE_ITEM_ASSOCIATION_EXISTS"
      | INVALID_BILLING_GROUP -> "INVALID_BILLING_GROUP"
      | INVALID_BILLING_PERIOD_FOR_OPERATION ->
          "INVALID_BILLING_PERIOD_FOR_OPERATION"
      | ILLEGAL_BILLING_ENTITY -> "ILLEGAL_BILLING_ENTITY"
      | ILLEGAL_MODIFIER_PERCENTAGE -> "ILLEGAL_MODIFIER_PERCENTAGE"
      | ILLEGAL_TYPE -> "ILLEGAL_TYPE"
      | ILLEGAL_BILLING_GROUP_TYPE -> "ILLEGAL_BILLING_GROUP_TYPE"
      | ILLEGAL_BILLING_GROUP_PRICING_PLAN ->
          "ILLEGAL_BILLING_GROUP_PRICING_PLAN"
      | ILLEGAL_ENDED_BILLINGGROUP -> "ILLEGAL_ENDED_BILLINGGROUP"
      | ILLEGAL_TIERING_INPUT -> "ILLEGAL_TIERING_INPUT"
      | ILLEGAL_OPERATION -> "ILLEGAL_OPERATION"
      | ILLEGAL_USAGE_TYPE -> "ILLEGAL_USAGE_TYPE"
      | INVALID_SKU_COMBO -> "INVALID_SKU_COMBO"
      | INVALID_FILTER -> "INVALID_FILTER"
      | TOO_MANY_AUTO_ASSOCIATE_BILLING_GROUPS ->
          "TOO_MANY_AUTO_ASSOCIATE_BILLING_GROUPS"
      | CANNOT_DELETE_AUTO_ASSOCIATE_BILLING_GROUP ->
          "CANNOT_DELETE_AUTO_ASSOCIATE_BILLING_GROUP"
      | ILLEGAL_ACCOUNT_ID -> "ILLEGAL_ACCOUNT_ID"
      | BILLING_GROUP_ALREADY_EXIST_IN_CURRENT_BILLING_PERIOD ->
          "BILLING_GROUP_ALREADY_EXIST_IN_CURRENT_BILLING_PERIOD"
      | ILLEGAL_COMPUTATION_RULE -> "ILLEGAL_COMPUTATION_RULE"
      | ILLEGAL_LINE_ITEM_FILTER -> "ILLEGAL_LINE_ITEM_FILTER"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNKNOWN_OPERATION" -> UNKNOWN_OPERATION
      | "CANNOT_PARSE" -> CANNOT_PARSE
      | "FIELD_VALIDATION_FAILED" -> FIELD_VALIDATION_FAILED
      | "OTHER" -> OTHER
      | "PRIMARY_NOT_ASSOCIATED" -> PRIMARY_NOT_ASSOCIATED
      | "PRIMARY_CANNOT_DISASSOCIATE" -> PRIMARY_CANNOT_DISASSOCIATE
      | "ACCOUNTS_NOT_ASSOCIATED" -> ACCOUNTS_NOT_ASSOCIATED
      | "ACCOUNTS_ALREADY_ASSOCIATED" -> ACCOUNTS_ALREADY_ASSOCIATED
      | "ILLEGAL_PRIMARY_ACCOUNT" -> ILLEGAL_PRIMARY_ACCOUNT
      | "ILLEGAL_ACCOUNTS" -> ILLEGAL_ACCOUNTS
      | "MISMATCHED_BILLINGGROUP_ARN" -> MISMATCHED_BILLINGGROUP_ARN
      | "MISSING_BILLINGGROUP" -> MISSING_BILLINGGROUP
      | "MISMATCHED_CUSTOMLINEITEM_ARN" -> MISMATCHED_CUSTOMLINEITEM_ARN
      | "ILLEGAL_BILLING_PERIOD" -> ILLEGAL_BILLING_PERIOD
      | "ILLEGAL_BILLING_PERIOD_RANGE" -> ILLEGAL_BILLING_PERIOD_RANGE
      | "TOO_MANY_ACCOUNTS_IN_REQUEST" -> TOO_MANY_ACCOUNTS_IN_REQUEST
      | "DUPLICATE_ACCOUNT" -> DUPLICATE_ACCOUNT
      | "INVALID_BILLING_GROUP_STATUS" -> INVALID_BILLING_GROUP_STATUS
      | "MISMATCHED_PRICINGPLAN_ARN" -> MISMATCHED_PRICINGPLAN_ARN
      | "MISSING_PRICINGPLAN" -> MISSING_PRICINGPLAN
      | "MISMATCHED_PRICINGRULE_ARN" -> MISMATCHED_PRICINGRULE_ARN
      | "DUPLICATE_PRICINGRULE_ARNS" -> DUPLICATE_PRICINGRULE_ARNS
      | "MISSING_COSTCATEGORY" -> MISSING_COSTCATEGORY
      | "ILLEGAL_EXPRESSION" -> ILLEGAL_EXPRESSION
      | "ILLEGAL_SCOPE" -> ILLEGAL_SCOPE
      | "ILLEGAL_SERVICE" -> ILLEGAL_SERVICE
      | "PRICINGRULES_NOT_EXIST" -> PRICINGRULES_NOT_EXIST
      | "PRICINGRULES_ALREADY_ASSOCIATED" -> PRICINGRULES_ALREADY_ASSOCIATED
      | "PRICINGRULES_NOT_ASSOCIATED" -> PRICINGRULES_NOT_ASSOCIATED
      | "INVALID_TIME_RANGE" -> INVALID_TIME_RANGE
      | "INVALID_BILLINGVIEW_ARN" -> INVALID_BILLINGVIEW_ARN
      | "MISMATCHED_BILLINGVIEW_ARN" -> MISMATCHED_BILLINGVIEW_ARN
      | "ILLEGAL_CUSTOMLINEITEM" -> ILLEGAL_CUSTOMLINEITEM
      | "MISSING_CUSTOMLINEITEM" -> MISSING_CUSTOMLINEITEM
      | "ILLEGAL_CUSTOMLINEITEM_UPDATE" -> ILLEGAL_CUSTOMLINEITEM_UPDATE
      | "TOO_MANY_CUSTOMLINEITEMS_IN_REQUEST" ->
          TOO_MANY_CUSTOMLINEITEMS_IN_REQUEST
      | "ILLEGAL_CHARGE_DETAILS" -> ILLEGAL_CHARGE_DETAILS
      | "ILLEGAL_UPDATE_CHARGE_DETAILS" -> ILLEGAL_UPDATE_CHARGE_DETAILS
      | "INVALID_ARN" -> INVALID_ARN
      | "ILLEGAL_RESOURCE_ARNS" -> ILLEGAL_RESOURCE_ARNS
      | "ILLEGAL_CUSTOMLINEITEM_MODIFICATION" ->
          ILLEGAL_CUSTOMLINEITEM_MODIFICATION
      | "MISSING_LINKED_ACCOUNT_IDS" -> MISSING_LINKED_ACCOUNT_IDS
      | "MULTIPLE_LINKED_ACCOUNT_IDS" -> MULTIPLE_LINKED_ACCOUNT_IDS
      | "MISSING_PRICING_PLAN_ARN" -> MISSING_PRICING_PLAN_ARN
      | "MULTIPLE_PRICING_PLAN_ARN" -> MULTIPLE_PRICING_PLAN_ARN
      | "ILLEGAL_CHILD_ASSOCIATE_RESOURCE" ->
          ILLEGAL_CHILD_ASSOCIATE_RESOURCE
      | "CUSTOM_LINE_ITEM_ASSOCIATION_EXISTS" ->
          CUSTOM_LINE_ITEM_ASSOCIATION_EXISTS
      | "INVALID_BILLING_GROUP" -> INVALID_BILLING_GROUP
      | "INVALID_BILLING_PERIOD_FOR_OPERATION" ->
          INVALID_BILLING_PERIOD_FOR_OPERATION
      | "ILLEGAL_BILLING_ENTITY" -> ILLEGAL_BILLING_ENTITY
      | "ILLEGAL_MODIFIER_PERCENTAGE" -> ILLEGAL_MODIFIER_PERCENTAGE
      | "ILLEGAL_TYPE" -> ILLEGAL_TYPE
      | "ILLEGAL_BILLING_GROUP_TYPE" -> ILLEGAL_BILLING_GROUP_TYPE
      | "ILLEGAL_BILLING_GROUP_PRICING_PLAN" ->
          ILLEGAL_BILLING_GROUP_PRICING_PLAN
      | "ILLEGAL_ENDED_BILLINGGROUP" -> ILLEGAL_ENDED_BILLINGGROUP
      | "ILLEGAL_TIERING_INPUT" -> ILLEGAL_TIERING_INPUT
      | "ILLEGAL_OPERATION" -> ILLEGAL_OPERATION
      | "ILLEGAL_USAGE_TYPE" -> ILLEGAL_USAGE_TYPE
      | "INVALID_SKU_COMBO" -> INVALID_SKU_COMBO
      | "INVALID_FILTER" -> INVALID_FILTER
      | "TOO_MANY_AUTO_ASSOCIATE_BILLING_GROUPS" ->
          TOO_MANY_AUTO_ASSOCIATE_BILLING_GROUPS
      | "CANNOT_DELETE_AUTO_ASSOCIATE_BILLING_GROUP" ->
          CANNOT_DELETE_AUTO_ASSOCIATE_BILLING_GROUP
      | "ILLEGAL_ACCOUNT_ID" -> ILLEGAL_ACCOUNT_ID
      | "BILLING_GROUP_ALREADY_EXIST_IN_CURRENT_BILLING_PERIOD" ->
          BILLING_GROUP_ALREADY_EXIST_IN_CURRENT_BILLING_PERIOD
      | "ILLEGAL_COMPUTATION_RULE" -> ILLEGAL_COMPUTATION_RULE
      | "ILLEGAL_LINE_ITEM_FILTER" -> ILLEGAL_LINE_ITEM_FILTER
      | 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 UpdateCustomLineItemFlatChargeDetails =
  struct
    type nonrec t =
      {
      chargeValue: CustomLineItemChargeValue.t
        [@ocaml.doc "The custom line item's new fixed charge value in USD."]}
    let context_ = "UpdateCustomLineItemFlatChargeDetails"
    let make ~chargeValue = fun () -> { chargeValue }
    let to_value x =
      structure_to_value
        [("ChargeValue",
           (Some (CustomLineItemChargeValue.to_value x.chargeValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chargeValue =
        CustomLineItemChargeValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChargeValue") in
      make ~chargeValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chargeValue =
        field_map_exn json__ "ChargeValue" CustomLineItemChargeValue.of_json in
      make ~chargeValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A representation of the new charge details that are associated with a flat custom line item."]
module UpdateCustomLineItemPercentageChargeDetails =
  struct
    type nonrec t =
      {
      percentageValue: CustomLineItemPercentageChargeValue.t
        [@ocaml.doc
          "The custom line item's new percentage value. This will be multiplied against the combined value of its associated resources to determine its charge value."]}
    let context_ = "UpdateCustomLineItemPercentageChargeDetails"
    let make ~percentageValue = fun () -> { percentageValue }
    let to_value x =
      structure_to_value
        [("PercentageValue",
           (Some
              (CustomLineItemPercentageChargeValue.to_value x.percentageValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let percentageValue =
        CustomLineItemPercentageChargeValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PercentageValue") in
      make ~percentageValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let percentageValue =
        field_map_exn json__ "PercentageValue"
          CustomLineItemPercentageChargeValue.of_json in
      make ~percentageValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A representation of the new charge details that are associated with a percentage custom line item."]
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    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:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_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:"TagValue" j
    let to_json = simple_to_json to_value
  end
module ListResourcesAssociatedToCustomLineItemResponseElement =
  struct
    type nonrec t =
      {
      arn: CustomLineItemAssociationElement.t option
        [@ocaml.doc "The ARN of the associated resource."];
      relationship: CustomLineItemRelationship.t option
        [@ocaml.doc
          "The type of relationship between the custom line item and the associated resource."];
      endBillingPeriod: BillingPeriod.t option
        [@ocaml.doc "The end billing period of the associated resource."]}
    let make ?arn =
      fun ?relationship ->
        fun ?endBillingPeriod ->
          fun () -> { arn; relationship; endBillingPeriod }
    let to_value x =
      structure_to_value
        [("Arn",
           (Option.map x.arn ~f:CustomLineItemAssociationElement.to_value));
        ("Relationship",
          (Option.map x.relationship ~f:CustomLineItemRelationship.to_value));
        ("EndBillingPeriod",
          (Option.map x.endBillingPeriod ~f:BillingPeriod.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endBillingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "EndBillingPeriod") in
      let relationship =
        (Option.map ~f:CustomLineItemRelationship.of_xml)
          (Xml.child xml_arg0 "Relationship") in
      let arn =
        (Option.map ~f:CustomLineItemAssociationElement.of_xml)
          (Xml.child xml_arg0 "Arn") in
      make ?endBillingPeriod ?relationship ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endBillingPeriod =
        field_map json__ "EndBillingPeriod" BillingPeriod.of_json in
      let relationship =
        field_map json__ "Relationship" CustomLineItemRelationship.of_json in
      let arn =
        field_map json__ "Arn" CustomLineItemAssociationElement.of_json in
      make ?endBillingPeriod ?relationship ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A representation of a resource association for a custom line item."]
module PricingRuleListElement =
  struct
    type nonrec t =
      {
      name: PricingRuleName.t option
        [@ocaml.doc "The name of a pricing rule."];
      arn: PricingRuleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) used to uniquely identify a pricing rule."];
      description: PricingRuleDescription.t option
        [@ocaml.doc "The pricing rule description."];
      scope: PricingRuleScope.t option
        [@ocaml.doc
          "The scope of pricing rule that indicates if it is globally applicable, or if it is service-specific."];
      type_: PricingRuleType.t option
        [@ocaml.doc "The type of pricing rule."];
      modifierPercentage: ModifierPercentage.t option
        [@ocaml.doc
          "A percentage modifier applied on the public pricing rates."];
      service: Service.t option
        [@ocaml.doc
          "If the Scope attribute is SERVICE, this attribute indicates which service the PricingRule is applicable for."];
      associatedPricingPlanCount: NumberOfPricingPlansAssociatedWith.t option
        [@ocaml.doc
          "The pricing plans count that this pricing rule is associated with."];
      creationTime: Instant.t option
        [@ocaml.doc "The time when the pricing rule was created."];
      lastModifiedTime: Instant.t option
        [@ocaml.doc
          "The most recent time when the pricing rule was modified."];
      billingEntity: BillingEntity.t option
        [@ocaml.doc
          "The seller of services provided by Amazon Web Services, their affiliates, or third-party providers selling services via Amazon Web Services Marketplace."];
      tiering: Tiering.t option
        [@ocaml.doc
          "The set of tiering configurations for the pricing rule."];
      usageType: UsageType.t option
        [@ocaml.doc
          "Usage type is the unit that each service uses to measure the usage of a specific type of resource. If the Scope attribute is set to SKU, this attribute indicates which usage type the PricingRule is modifying. For example, USW2-BoxUsage:m2.2xlarge describes an M2 High Memory Double Extra Large instance in the US West (Oregon) Region."];
      operation: Operation.t option
        [@ocaml.doc
          "Operation is the specific Amazon Web Services action covered by this line item. This describes the specific usage of the line item. If the Scope attribute is set to SKU, this attribute indicates which operation the PricingRule is modifying. For example, a value of RunInstances:0202 indicates the operation of running an Amazon EC2 instance."]}
    let make ?name =
      fun ?arn ->
        fun ?description ->
          fun ?scope ->
            fun ?type_ ->
              fun ?modifierPercentage ->
                fun ?service ->
                  fun ?associatedPricingPlanCount ->
                    fun ?creationTime ->
                      fun ?lastModifiedTime ->
                        fun ?billingEntity ->
                          fun ?tiering ->
                            fun ?usageType ->
                              fun ?operation ->
                                fun () ->
                                  {
                                    name;
                                    arn;
                                    description;
                                    scope;
                                    type_;
                                    modifierPercentage;
                                    service;
                                    associatedPricingPlanCount;
                                    creationTime;
                                    lastModifiedTime;
                                    billingEntity;
                                    tiering;
                                    usageType;
                                    operation
                                  }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:PricingRuleName.to_value));
        ("Arn", (Option.map x.arn ~f:PricingRuleArn.to_value));
        ("Description",
          (Option.map x.description ~f:PricingRuleDescription.to_value));
        ("Scope", (Option.map x.scope ~f:PricingRuleScope.to_value));
        ("Type", (Option.map x.type_ ~f:PricingRuleType.to_value));
        ("ModifierPercentage",
          (Option.map x.modifierPercentage ~f:ModifierPercentage.to_value));
        ("Service", (Option.map x.service ~f:Service.to_value));
        ("AssociatedPricingPlanCount",
          (Option.map x.associatedPricingPlanCount
             ~f:NumberOfPricingPlansAssociatedWith.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Instant.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Instant.to_value));
        ("BillingEntity",
          (Option.map x.billingEntity ~f:BillingEntity.to_value));
        ("Tiering", (Option.map x.tiering ~f:Tiering.to_value));
        ("UsageType", (Option.map x.usageType ~f:UsageType.to_value));
        ("Operation", (Option.map x.operation ~f:Operation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operation =
        (Option.map ~f:Operation.of_xml) (Xml.child xml_arg0 "Operation") in
      let usageType =
        (Option.map ~f:UsageType.of_xml) (Xml.child xml_arg0 "UsageType") in
      let tiering =
        (Option.map ~f:Tiering.of_xml) (Xml.child xml_arg0 "Tiering") in
      let billingEntity =
        (Option.map ~f:BillingEntity.of_xml)
          (Xml.child xml_arg0 "BillingEntity") in
      let lastModifiedTime =
        (Option.map ~f:Instant.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Instant.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let associatedPricingPlanCount =
        (Option.map ~f:NumberOfPricingPlansAssociatedWith.of_xml)
          (Xml.child xml_arg0 "AssociatedPricingPlanCount") in
      let service =
        (Option.map ~f:Service.of_xml) (Xml.child xml_arg0 "Service") in
      let modifierPercentage =
        (Option.map ~f:ModifierPercentage.of_xml)
          (Xml.child xml_arg0 "ModifierPercentage") in
      let type_ =
        (Option.map ~f:PricingRuleType.of_xml) (Xml.child xml_arg0 "Type") in
      let scope =
        (Option.map ~f:PricingRuleScope.of_xml) (Xml.child xml_arg0 "Scope") in
      let description =
        (Option.map ~f:PricingRuleDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let arn =
        (Option.map ~f:PricingRuleArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let name =
        (Option.map ~f:PricingRuleName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?operation ?usageType ?tiering ?billingEntity ?lastModifiedTime
        ?creationTime ?associatedPricingPlanCount ?service
        ?modifierPercentage ?type_ ?scope ?description ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operation = field_map json__ "Operation" Operation.of_json in
      let usageType = field_map json__ "UsageType" UsageType.of_json in
      let tiering = field_map json__ "Tiering" Tiering.of_json in
      let billingEntity =
        field_map json__ "BillingEntity" BillingEntity.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Instant.of_json in
      let creationTime = field_map json__ "CreationTime" Instant.of_json in
      let associatedPricingPlanCount =
        field_map json__ "AssociatedPricingPlanCount"
          NumberOfPricingPlansAssociatedWith.of_json in
      let service = field_map json__ "Service" Service.of_json in
      let modifierPercentage =
        field_map json__ "ModifierPercentage" ModifierPercentage.of_json in
      let type_ = field_map json__ "Type" PricingRuleType.of_json in
      let scope = field_map json__ "Scope" PricingRuleScope.of_json in
      let description =
        field_map json__ "Description" PricingRuleDescription.of_json in
      let arn = field_map json__ "Arn" PricingRuleArn.of_json in
      let name = field_map json__ "Name" PricingRuleName.of_json in
      make ?operation ?usageType ?tiering ?billingEntity ?lastModifiedTime
        ?creationTime ?associatedPricingPlanCount ?service
        ?modifierPercentage ?type_ ?scope ?description ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A representation of a pricing rule."]
module PricingRuleArns =
  struct
    type nonrec t = PricingRuleArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PricingRuleArn.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:PricingRuleArn.of_xml)
    let of_json j =
      list_of_json ~kind:"PricingRuleArns" ~of_json:PricingRuleArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module PricingPlanListElement =
  struct
    type nonrec t =
      {
      name: PricingPlanName.t option
        [@ocaml.doc "The name of a pricing plan."];
      arn: PricingPlanArn.t option
        [@ocaml.doc
          "The pricing plan Amazon Resource Names (ARN). This can be used to uniquely identify a pricing plan."];
      description: PricingPlanDescription.t option
        [@ocaml.doc "The pricing plan description."];
      size: NumberOfAssociatedPricingRules.t option
        [@ocaml.doc
          "The pricing rules count that's currently associated with this pricing plan list element."];
      creationTime: Instant.t option
        [@ocaml.doc "The time when the pricing plan was created."];
      lastModifiedTime: Instant.t option
        [@ocaml.doc
          "The most recent time when the pricing plan was modified."]}
    let make ?name =
      fun ?arn ->
        fun ?description ->
          fun ?size ->
            fun ?creationTime ->
              fun ?lastModifiedTime ->
                fun () ->
                  {
                    name;
                    arn;
                    description;
                    size;
                    creationTime;
                    lastModifiedTime
                  }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:PricingPlanName.to_value));
        ("Arn", (Option.map x.arn ~f:PricingPlanArn.to_value));
        ("Description",
          (Option.map x.description ~f:PricingPlanDescription.to_value));
        ("Size",
          (Option.map x.size ~f:NumberOfAssociatedPricingRules.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Instant.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Instant.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:Instant.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Instant.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let size =
        (Option.map ~f:NumberOfAssociatedPricingRules.of_xml)
          (Xml.child xml_arg0 "Size") in
      let description =
        (Option.map ~f:PricingPlanDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let arn =
        (Option.map ~f:PricingPlanArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let name =
        (Option.map ~f:PricingPlanName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?lastModifiedTime ?creationTime ?size ?description ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Instant.of_json in
      let creationTime = field_map json__ "CreationTime" Instant.of_json in
      let size =
        field_map json__ "Size" NumberOfAssociatedPricingRules.of_json in
      let description =
        field_map json__ "Description" PricingPlanDescription.of_json in
      let arn = field_map json__ "Arn" PricingPlanArn.of_json in
      let name = field_map json__ "Name" PricingPlanName.of_json in
      make ?lastModifiedTime ?creationTime ?size ?description ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A representation of a pricing plan."]
module PricingPlanArns =
  struct
    type nonrec t = PricingPlanArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PricingPlanArn.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:PricingPlanArn.of_xml)
    let of_json j =
      list_of_json ~kind:"PricingPlanArns" ~of_json:PricingPlanArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomLineItemListElement =
  struct
    type nonrec t =
      {
      arn: CustomLineItemArn.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) for custom line items."];
      name: CustomLineItemName.t option
        [@ocaml.doc "The custom line item's name."];
      chargeDetails: ListCustomLineItemChargeDetails.t option
        [@ocaml.doc
          "A ListCustomLineItemChargeDetails that describes the charge details of a custom line item."];
      currencyCode: CurrencyCode.t option
        [@ocaml.doc
          "The custom line item's charge value currency. Only one of the valid values can be used."];
      description: CustomLineItemDescription.t option
        [@ocaml.doc
          "The custom line item's description. This is shown on the Bills page in association with the charge value."];
      productCode: CustomLineItemProductCode.t option
        [@ocaml.doc
          "The product code that's associated with the custom line item."];
      billingGroupArn: BillingGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that references the billing group where the custom line item applies to."];
      creationTime: Instant.t option [@ocaml.doc "The time created."];
      lastModifiedTime: Instant.t option
        [@ocaml.doc
          "The most recent time when the custom line item was modified."];
      associationSize: NumberOfAssociations.t option
        [@ocaml.doc
          "The number of resources that are associated to the custom line item."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account in which this custom line item will be applied to."];
      computationRule: ComputationRuleEnum.t option
        [@ocaml.doc
          "The computation rule that determines how the custom line item charges are computed and reflected in the bill."];
      presentationDetails: PresentationObject.t option
        [@ocaml.doc
          "Configuration details specifying how the custom line item charges are presented, including which service the charges are shown under."]}
    let make ?arn =
      fun ?name ->
        fun ?chargeDetails ->
          fun ?currencyCode ->
            fun ?description ->
              fun ?productCode ->
                fun ?billingGroupArn ->
                  fun ?creationTime ->
                    fun ?lastModifiedTime ->
                      fun ?associationSize ->
                        fun ?accountId ->
                          fun ?computationRule ->
                            fun ?presentationDetails ->
                              fun () ->
                                {
                                  arn;
                                  name;
                                  chargeDetails;
                                  currencyCode;
                                  description;
                                  productCode;
                                  billingGroupArn;
                                  creationTime;
                                  lastModifiedTime;
                                  associationSize;
                                  accountId;
                                  computationRule;
                                  presentationDetails
                                }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:CustomLineItemArn.to_value));
        ("Name", (Option.map x.name ~f:CustomLineItemName.to_value));
        ("ChargeDetails",
          (Option.map x.chargeDetails
             ~f:ListCustomLineItemChargeDetails.to_value));
        ("CurrencyCode",
          (Option.map x.currencyCode ~f:CurrencyCode.to_value));
        ("Description",
          (Option.map x.description ~f:CustomLineItemDescription.to_value));
        ("ProductCode",
          (Option.map x.productCode ~f:CustomLineItemProductCode.to_value));
        ("BillingGroupArn",
          (Option.map x.billingGroupArn ~f:BillingGroupArn.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Instant.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Instant.to_value));
        ("AssociationSize",
          (Option.map x.associationSize ~f:NumberOfAssociations.to_value));
        ("AccountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("ComputationRule",
          (Option.map x.computationRule ~f:ComputationRuleEnum.to_value));
        ("PresentationDetails",
          (Option.map x.presentationDetails ~f:PresentationObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let presentationDetails =
        (Option.map ~f:PresentationObject.of_xml)
          (Xml.child xml_arg0 "PresentationDetails") in
      let computationRule =
        (Option.map ~f:ComputationRuleEnum.of_xml)
          (Xml.child xml_arg0 "ComputationRule") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let associationSize =
        (Option.map ~f:NumberOfAssociations.of_xml)
          (Xml.child xml_arg0 "AssociationSize") in
      let lastModifiedTime =
        (Option.map ~f:Instant.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Instant.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let billingGroupArn =
        (Option.map ~f:BillingGroupArn.of_xml)
          (Xml.child xml_arg0 "BillingGroupArn") in
      let productCode =
        (Option.map ~f:CustomLineItemProductCode.of_xml)
          (Xml.child xml_arg0 "ProductCode") in
      let description =
        (Option.map ~f:CustomLineItemDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let currencyCode =
        (Option.map ~f:CurrencyCode.of_xml)
          (Xml.child xml_arg0 "CurrencyCode") in
      let chargeDetails =
        (Option.map ~f:ListCustomLineItemChargeDetails.of_xml)
          (Xml.child xml_arg0 "ChargeDetails") in
      let name =
        (Option.map ~f:CustomLineItemName.of_xml) (Xml.child xml_arg0 "Name") in
      let arn =
        (Option.map ~f:CustomLineItemArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?presentationDetails ?computationRule ?accountId ?associationSize
        ?lastModifiedTime ?creationTime ?billingGroupArn ?productCode
        ?description ?currencyCode ?chargeDetails ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let presentationDetails =
        field_map json__ "PresentationDetails" PresentationObject.of_json in
      let computationRule =
        field_map json__ "ComputationRule" ComputationRuleEnum.of_json in
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      let associationSize =
        field_map json__ "AssociationSize" NumberOfAssociations.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Instant.of_json in
      let creationTime = field_map json__ "CreationTime" Instant.of_json in
      let billingGroupArn =
        field_map json__ "BillingGroupArn" BillingGroupArn.of_json in
      let productCode =
        field_map json__ "ProductCode" CustomLineItemProductCode.of_json in
      let description =
        field_map json__ "Description" CustomLineItemDescription.of_json in
      let currencyCode = field_map json__ "CurrencyCode" CurrencyCode.of_json in
      let chargeDetails =
        field_map json__ "ChargeDetails"
          ListCustomLineItemChargeDetails.of_json in
      let name = field_map json__ "Name" CustomLineItemName.of_json in
      let arn = field_map json__ "Arn" CustomLineItemArn.of_json in
      make ?presentationDetails ?computationRule ?accountId ?associationSize
        ?lastModifiedTime ?creationTime ?billingGroupArn ?productCode
        ?description ?currencyCode ?chargeDetails ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A representation of a custom line item."]
module AccountIdList =
  struct
    type nonrec t = AccountId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (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:AccountId.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:AccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountIdList" ~of_json:AccountId.of_json j
    let to_json v = composed_to_json to_value v
  end
module BillingGroupArnList =
  struct
    type nonrec t = BillingGroupArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:BillingGroupArn.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:BillingGroupArn.of_xml)
    let of_json j =
      list_of_json ~kind:"BillingGroupArnList"
        ~of_json:BillingGroupArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomLineItemArns =
  struct
    type nonrec t = CustomLineItemArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CustomLineItemArn.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:CustomLineItemArn.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomLineItemArns"
        ~of_json:CustomLineItemArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomLineItemNameList =
  struct
    type nonrec t = CustomLineItemName.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CustomLineItemName.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:CustomLineItemName.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomLineItemNameList"
        ~of_json:CustomLineItemName.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomLineItemVersionListElement =
  struct
    type nonrec t =
      {
      name: CustomLineItemName.t option
        [@ocaml.doc "The name of the custom line item."];
      chargeDetails: ListCustomLineItemChargeDetails.t option ;
      currencyCode: CurrencyCode.t option
        [@ocaml.doc "The charge value currency of the custom line item."];
      description: CustomLineItemDescription.t option
        [@ocaml.doc "The description of the custom line item."];
      productCode: CustomLineItemProductCode.t option
        [@ocaml.doc
          "The product code that\226\128\153s associated with the custom line item."];
      billingGroupArn: BillingGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the billing group that the custom line item applies to."];
      creationTime: Instant.t option
        [@ocaml.doc
          "The time when the custom line item version was created."];
      lastModifiedTime: Instant.t option
        [@ocaml.doc
          "The most recent time that the custom line item version was modified."];
      associationSize: NumberOfAssociations.t option
        [@ocaml.doc
          "The number of resources that are associated with the custom line item."];
      startBillingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The start billing period of the custom line item version."];
      endBillingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The end billing period of the custom line item version."];
      arn: CustomLineItemArn.t option
        [@ocaml.doc
          "A list of custom line item Amazon Resource Names (ARNs) to retrieve information."];
      startTime: Instant.t option [@ocaml.doc "The inclusive start time."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account in which this custom line item will be applied to."];
      computationRule: ComputationRuleEnum.t option
        [@ocaml.doc
          "The computation rule for a specific version of a custom line item, determining how charges are computed and reflected in the bill."];
      presentationDetails: PresentationObject.t option
        [@ocaml.doc
          "Presentation configuration for a specific version of a custom line item, specifying how charges are displayed in the bill."]}
    let make ?name =
      fun ?chargeDetails ->
        fun ?currencyCode ->
          fun ?description ->
            fun ?productCode ->
              fun ?billingGroupArn ->
                fun ?creationTime ->
                  fun ?lastModifiedTime ->
                    fun ?associationSize ->
                      fun ?startBillingPeriod ->
                        fun ?endBillingPeriod ->
                          fun ?arn ->
                            fun ?startTime ->
                              fun ?accountId ->
                                fun ?computationRule ->
                                  fun ?presentationDetails ->
                                    fun () ->
                                      {
                                        name;
                                        chargeDetails;
                                        currencyCode;
                                        description;
                                        productCode;
                                        billingGroupArn;
                                        creationTime;
                                        lastModifiedTime;
                                        associationSize;
                                        startBillingPeriod;
                                        endBillingPeriod;
                                        arn;
                                        startTime;
                                        accountId;
                                        computationRule;
                                        presentationDetails
                                      }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:CustomLineItemName.to_value));
        ("ChargeDetails",
          (Option.map x.chargeDetails
             ~f:ListCustomLineItemChargeDetails.to_value));
        ("CurrencyCode",
          (Option.map x.currencyCode ~f:CurrencyCode.to_value));
        ("Description",
          (Option.map x.description ~f:CustomLineItemDescription.to_value));
        ("ProductCode",
          (Option.map x.productCode ~f:CustomLineItemProductCode.to_value));
        ("BillingGroupArn",
          (Option.map x.billingGroupArn ~f:BillingGroupArn.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Instant.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Instant.to_value));
        ("AssociationSize",
          (Option.map x.associationSize ~f:NumberOfAssociations.to_value));
        ("StartBillingPeriod",
          (Option.map x.startBillingPeriod ~f:BillingPeriod.to_value));
        ("EndBillingPeriod",
          (Option.map x.endBillingPeriod ~f:BillingPeriod.to_value));
        ("Arn", (Option.map x.arn ~f:CustomLineItemArn.to_value));
        ("StartTime", (Option.map x.startTime ~f:Instant.to_value));
        ("AccountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("ComputationRule",
          (Option.map x.computationRule ~f:ComputationRuleEnum.to_value));
        ("PresentationDetails",
          (Option.map x.presentationDetails ~f:PresentationObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let presentationDetails =
        (Option.map ~f:PresentationObject.of_xml)
          (Xml.child xml_arg0 "PresentationDetails") in
      let computationRule =
        (Option.map ~f:ComputationRuleEnum.of_xml)
          (Xml.child xml_arg0 "ComputationRule") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let startTime =
        (Option.map ~f:Instant.of_xml) (Xml.child xml_arg0 "StartTime") in
      let arn =
        (Option.map ~f:CustomLineItemArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let endBillingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "EndBillingPeriod") in
      let startBillingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "StartBillingPeriod") in
      let associationSize =
        (Option.map ~f:NumberOfAssociations.of_xml)
          (Xml.child xml_arg0 "AssociationSize") in
      let lastModifiedTime =
        (Option.map ~f:Instant.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Instant.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let billingGroupArn =
        (Option.map ~f:BillingGroupArn.of_xml)
          (Xml.child xml_arg0 "BillingGroupArn") in
      let productCode =
        (Option.map ~f:CustomLineItemProductCode.of_xml)
          (Xml.child xml_arg0 "ProductCode") in
      let description =
        (Option.map ~f:CustomLineItemDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let currencyCode =
        (Option.map ~f:CurrencyCode.of_xml)
          (Xml.child xml_arg0 "CurrencyCode") in
      let chargeDetails =
        (Option.map ~f:ListCustomLineItemChargeDetails.of_xml)
          (Xml.child xml_arg0 "ChargeDetails") in
      let name =
        (Option.map ~f:CustomLineItemName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?presentationDetails ?computationRule ?accountId ?startTime ?arn
        ?endBillingPeriod ?startBillingPeriod ?associationSize
        ?lastModifiedTime ?creationTime ?billingGroupArn ?productCode
        ?description ?currencyCode ?chargeDetails ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let presentationDetails =
        field_map json__ "PresentationDetails" PresentationObject.of_json in
      let computationRule =
        field_map json__ "ComputationRule" ComputationRuleEnum.of_json in
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      let startTime = field_map json__ "StartTime" Instant.of_json in
      let arn = field_map json__ "Arn" CustomLineItemArn.of_json in
      let endBillingPeriod =
        field_map json__ "EndBillingPeriod" BillingPeriod.of_json in
      let startBillingPeriod =
        field_map json__ "StartBillingPeriod" BillingPeriod.of_json in
      let associationSize =
        field_map json__ "AssociationSize" NumberOfAssociations.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Instant.of_json in
      let creationTime = field_map json__ "CreationTime" Instant.of_json in
      let billingGroupArn =
        field_map json__ "BillingGroupArn" BillingGroupArn.of_json in
      let productCode =
        field_map json__ "ProductCode" CustomLineItemProductCode.of_json in
      let description =
        field_map json__ "Description" CustomLineItemDescription.of_json in
      let currencyCode = field_map json__ "CurrencyCode" CurrencyCode.of_json in
      let chargeDetails =
        field_map json__ "ChargeDetails"
          ListCustomLineItemChargeDetails.of_json in
      let name = field_map json__ "Name" CustomLineItemName.of_json in
      make ?presentationDetails ?computationRule ?accountId ?startTime ?arn
        ?endBillingPeriod ?startBillingPeriod ?associationSize
        ?lastModifiedTime ?creationTime ?billingGroupArn ?productCode
        ?description ?currencyCode ?chargeDetails ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A representation of a custom line item version."]
module ListCustomLineItemVersionsBillingPeriodRangeFilter =
  struct
    type nonrec t =
      {
      startBillingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The inclusive start billing period that defines a billing period range where a custom line item version is applied."];
      endBillingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The exclusive end billing period that defines a billing period range where a custom line item version is applied."]}
    let make ?startBillingPeriod =
      fun ?endBillingPeriod ->
        fun () -> { startBillingPeriod; endBillingPeriod }
    let to_value x =
      structure_to_value
        [("StartBillingPeriod",
           (Option.map x.startBillingPeriod ~f:BillingPeriod.to_value));
        ("EndBillingPeriod",
          (Option.map x.endBillingPeriod ~f:BillingPeriod.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endBillingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "EndBillingPeriod") in
      let startBillingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "StartBillingPeriod") in
      make ?endBillingPeriod ?startBillingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endBillingPeriod =
        field_map json__ "EndBillingPeriod" BillingPeriod.of_json in
      let startBillingPeriod =
        field_map json__ "StartBillingPeriod" BillingPeriod.of_json in
      make ?endBillingPeriod ?startBillingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A billing period filter that specifies the custom line item versions to retrieve."]
module BillingGroupListElement =
  struct
    type nonrec t =
      {
      name: BillingGroupName.t option
        [@ocaml.doc "The name of the billing group."];
      arn: BillingGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Number (ARN) that can be used to uniquely identify the billing group."];
      description: BillingGroupDescription.t option
        [@ocaml.doc "The description of the billing group."];
      primaryAccountId: AccountId.t option
        [@ocaml.doc
          "The account ID that serves as the main account in a billing group."];
      computationPreference: ComputationPreference.t option ;
      size: NumberOfAccounts.t option
        [@ocaml.doc
          "The number of accounts in the particular billing group."];
      creationTime: Instant.t option
        [@ocaml.doc "The time when the billing group was created."];
      lastModifiedTime: Instant.t option
        [@ocaml.doc
          "The most recent time when the billing group was modified."];
      status: BillingGroupStatus.t option
        [@ocaml.doc
          "The billing group status. Only one of the valid values can be used."];
      statusReason: BillingGroupStatusReason.t option
        [@ocaml.doc
          "The reason why the billing group is in its current status."];
      accountGrouping: ListBillingGroupAccountGrouping.t option
        [@ocaml.doc
          "Specifies if the billing group has automatic account association (AutoAssociate) enabled."];
      billingGroupType: BillingGroupType.t option
        [@ocaml.doc "The type of billing group."]}
    let make ?name =
      fun ?arn ->
        fun ?description ->
          fun ?primaryAccountId ->
            fun ?computationPreference ->
              fun ?size ->
                fun ?creationTime ->
                  fun ?lastModifiedTime ->
                    fun ?status ->
                      fun ?statusReason ->
                        fun ?accountGrouping ->
                          fun ?billingGroupType ->
                            fun () ->
                              {
                                name;
                                arn;
                                description;
                                primaryAccountId;
                                computationPreference;
                                size;
                                creationTime;
                                lastModifiedTime;
                                status;
                                statusReason;
                                accountGrouping;
                                billingGroupType
                              }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:BillingGroupName.to_value));
        ("Arn", (Option.map x.arn ~f:BillingGroupArn.to_value));
        ("Description",
          (Option.map x.description ~f:BillingGroupDescription.to_value));
        ("PrimaryAccountId",
          (Option.map x.primaryAccountId ~f:AccountId.to_value));
        ("ComputationPreference",
          (Option.map x.computationPreference
             ~f:ComputationPreference.to_value));
        ("Size", (Option.map x.size ~f:NumberOfAccounts.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Instant.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Instant.to_value));
        ("Status", (Option.map x.status ~f:BillingGroupStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:BillingGroupStatusReason.to_value));
        ("AccountGrouping",
          (Option.map x.accountGrouping
             ~f:ListBillingGroupAccountGrouping.to_value));
        ("BillingGroupType",
          (Option.map x.billingGroupType ~f:BillingGroupType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingGroupType =
        (Option.map ~f:BillingGroupType.of_xml)
          (Xml.child xml_arg0 "BillingGroupType") in
      let accountGrouping =
        (Option.map ~f:ListBillingGroupAccountGrouping.of_xml)
          (Xml.child xml_arg0 "AccountGrouping") in
      let statusReason =
        (Option.map ~f:BillingGroupStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:BillingGroupStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let lastModifiedTime =
        (Option.map ~f:Instant.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let creationTime =
        (Option.map ~f:Instant.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let size =
        (Option.map ~f:NumberOfAccounts.of_xml) (Xml.child xml_arg0 "Size") in
      let computationPreference =
        (Option.map ~f:ComputationPreference.of_xml)
          (Xml.child xml_arg0 "ComputationPreference") in
      let primaryAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "PrimaryAccountId") in
      let description =
        (Option.map ~f:BillingGroupDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let arn =
        (Option.map ~f:BillingGroupArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let name =
        (Option.map ~f:BillingGroupName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?billingGroupType ?accountGrouping ?statusReason ?status
        ?lastModifiedTime ?creationTime ?size ?computationPreference
        ?primaryAccountId ?description ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingGroupType =
        field_map json__ "BillingGroupType" BillingGroupType.of_json in
      let accountGrouping =
        field_map json__ "AccountGrouping"
          ListBillingGroupAccountGrouping.of_json in
      let statusReason =
        field_map json__ "StatusReason" BillingGroupStatusReason.of_json in
      let status = field_map json__ "Status" BillingGroupStatus.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Instant.of_json in
      let creationTime = field_map json__ "CreationTime" Instant.of_json in
      let size = field_map json__ "Size" NumberOfAccounts.of_json in
      let computationPreference =
        field_map json__ "ComputationPreference"
          ComputationPreference.of_json in
      let primaryAccountId =
        field_map json__ "PrimaryAccountId" AccountId.of_json in
      let description =
        field_map json__ "Description" BillingGroupDescription.of_json in
      let arn = field_map json__ "Arn" BillingGroupArn.of_json in
      let name = field_map json__ "Name" BillingGroupName.of_json in
      make ?billingGroupType ?accountGrouping ?statusReason ?status
        ?lastModifiedTime ?creationTime ?size ?computationPreference
        ?primaryAccountId ?description ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A representation of a billing group."]
module BillingGroupStatusList =
  struct
    type nonrec t = BillingGroupStatus.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (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:BillingGroupStatus.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:BillingGroupStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"BillingGroupStatusList"
        ~of_json:BillingGroupStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module BillingGroupTypeList =
  struct
    type nonrec t = BillingGroupType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (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:BillingGroupType.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:BillingGroupType.of_xml)
    let of_json j =
      list_of_json ~kind:"BillingGroupTypeList"
        ~of_json:BillingGroupType.of_json j
    let to_json v = composed_to_json to_value v
  end
module PrimaryAccountIdList =
  struct
    type nonrec t = AccountId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AccountId.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:AccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"PrimaryAccountIdList" ~of_json:AccountId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResponsibilityTransferArnsList =
  struct
    type nonrec t = ResponsibilityTransferArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (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:ResponsibilityTransferArn.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:ResponsibilityTransferArn.of_xml)
    let of_json j =
      list_of_json ~kind:"ResponsibilityTransferArnsList"
        ~of_json:ResponsibilityTransferArn.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 BillingGroupCostReportElement =
  struct
    type nonrec t =
      {
      arn: BillingGroupArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a billing group."];
      aWSCost: AWSCost.t option
        [@ocaml.doc
          "The actual Amazon Web Services charges for the billing group."];
      proformaCost: ProformaCost.t option
        [@ocaml.doc
          "The hypothetical Amazon Web Services charges based on the associated pricing plan of a billing group."];
      margin: Margin.t option [@ocaml.doc "The billing group margin."];
      marginPercentage: MarginPercentage.t option
        [@ocaml.doc "The percentage of billing group margin."];
      currency: Currency.t option [@ocaml.doc "The displayed currency."]}
    let make ?arn =
      fun ?aWSCost ->
        fun ?proformaCost ->
          fun ?margin ->
            fun ?marginPercentage ->
              fun ?currency ->
                fun () ->
                  {
                    arn;
                    aWSCost;
                    proformaCost;
                    margin;
                    marginPercentage;
                    currency
                  }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:BillingGroupArn.to_value));
        ("AWSCost", (Option.map x.aWSCost ~f:AWSCost.to_value));
        ("ProformaCost",
          (Option.map x.proformaCost ~f:ProformaCost.to_value));
        ("Margin", (Option.map x.margin ~f:Margin.to_value));
        ("MarginPercentage",
          (Option.map x.marginPercentage ~f:MarginPercentage.to_value));
        ("Currency", (Option.map x.currency ~f:Currency.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let currency =
        (Option.map ~f:Currency.of_xml) (Xml.child xml_arg0 "Currency") in
      let marginPercentage =
        (Option.map ~f:MarginPercentage.of_xml)
          (Xml.child xml_arg0 "MarginPercentage") in
      let margin =
        (Option.map ~f:Margin.of_xml) (Xml.child xml_arg0 "Margin") in
      let proformaCost =
        (Option.map ~f:ProformaCost.of_xml)
          (Xml.child xml_arg0 "ProformaCost") in
      let aWSCost =
        (Option.map ~f:AWSCost.of_xml) (Xml.child xml_arg0 "AWSCost") in
      let arn =
        (Option.map ~f:BillingGroupArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?currency ?marginPercentage ?margin ?proformaCost ?aWSCost ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let currency = field_map json__ "Currency" Currency.of_json in
      let marginPercentage =
        field_map json__ "MarginPercentage" MarginPercentage.of_json in
      let margin = field_map json__ "Margin" Margin.of_json in
      let proformaCost = field_map json__ "ProformaCost" ProformaCost.of_json in
      let aWSCost = field_map json__ "AWSCost" AWSCost.of_json in
      let arn = field_map json__ "Arn" BillingGroupArn.of_json in
      make ?currency ?marginPercentage ?margin ?proformaCost ?aWSCost ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary report of actual Amazon Web Services charges and calculated Amazon Web Services charges, based on the associated pricing plan of a billing group."]
module AccountAssociationsListElement =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc "The associating array of account IDs."];
      billingGroupArn: BillingGroupArn.t option
        [@ocaml.doc
          "The Billing Group Arn that the linked account is associated to."];
      accountName: AccountName.t option
        [@ocaml.doc "The Amazon Web Services account name."];
      accountEmail: AccountEmail.t option
        [@ocaml.doc "The Amazon Web Services account email."]}
    let make ?accountId =
      fun ?billingGroupArn ->
        fun ?accountName ->
          fun ?accountEmail ->
            fun () ->
              { accountId; billingGroupArn; accountName; accountEmail }
    let to_value x =
      structure_to_value
        [("AccountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("BillingGroupArn",
          (Option.map x.billingGroupArn ~f:BillingGroupArn.to_value));
        ("AccountName", (Option.map x.accountName ~f:AccountName.to_value));
        ("AccountEmail",
          (Option.map x.accountEmail ~f:AccountEmail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountEmail =
        (Option.map ~f:AccountEmail.of_xml)
          (Xml.child xml_arg0 "AccountEmail") in
      let accountName =
        (Option.map ~f:AccountName.of_xml) (Xml.child xml_arg0 "AccountName") in
      let billingGroupArn =
        (Option.map ~f:BillingGroupArn.of_xml)
          (Xml.child xml_arg0 "BillingGroupArn") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      make ?accountEmail ?accountName ?billingGroupArn ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountEmail = field_map json__ "AccountEmail" AccountEmail.of_json in
      let accountName = field_map json__ "AccountName" AccountName.of_json in
      let billingGroupArn =
        field_map json__ "BillingGroupArn" BillingGroupArn.of_json in
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      make ?accountEmail ?accountName ?billingGroupArn ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A representation of a linked account."]
module AccountIdFilterList =
  struct
    type nonrec t = AccountId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (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:AccountId.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:AccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountIdFilterList" ~of_json:AccountId.of_json j
    let to_json v = composed_to_json to_value v
  end
module Association =
  struct
    type nonrec t = string
    let context_ = "Association"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"((arn:aws(-cn)?:billingconductor::[0-9]{12}:billinggroup/)?[a-zA-Z0-9]{10,12}|MONITORED|UNMONITORED)");
        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:"Association" j
    let to_json = simple_to_json to_value
  end
module BillingGroupCostReportResultElement =
  struct
    type nonrec t =
      {
      arn: BillingGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Number (ARN) that uniquely identifies the billing group."];
      aWSCost: AWSCost.t option
        [@ocaml.doc
          "The actual Amazon Web Services charges for the billing group."];
      proformaCost: ProformaCost.t option
        [@ocaml.doc
          "The hypothetical Amazon Web Services charges based on the associated pricing plan of a billing group."];
      margin: Margin.t option [@ocaml.doc "The billing group margin."];
      marginPercentage: MarginPercentage.t option
        [@ocaml.doc "The percentage of the billing group margin."];
      currency: Currency.t option [@ocaml.doc "The displayed currency."];
      attributes: AttributesList.t option
        [@ocaml.doc
          "The list of key-value pairs that represent the attributes by which the BillingGroupCostReportResults are grouped. For example, if you want the Amazon S3 service-level breakdown of a billing group for November 2023, the attributes list will contain a key-value pair of \"PRODUCT_NAME\" and \"S3\" and a key-value pair of \"BILLING_PERIOD\" and \"Nov 2023\"."]}
    let make ?arn =
      fun ?aWSCost ->
        fun ?proformaCost ->
          fun ?margin ->
            fun ?marginPercentage ->
              fun ?currency ->
                fun ?attributes ->
                  fun () ->
                    {
                      arn;
                      aWSCost;
                      proformaCost;
                      margin;
                      marginPercentage;
                      currency;
                      attributes
                    }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:BillingGroupArn.to_value));
        ("AWSCost", (Option.map x.aWSCost ~f:AWSCost.to_value));
        ("ProformaCost",
          (Option.map x.proformaCost ~f:ProformaCost.to_value));
        ("Margin", (Option.map x.margin ~f:Margin.to_value));
        ("MarginPercentage",
          (Option.map x.marginPercentage ~f:MarginPercentage.to_value));
        ("Currency", (Option.map x.currency ~f:Currency.to_value));
        ("Attributes", (Option.map x.attributes ~f:AttributesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:AttributesList.of_xml)
          (Xml.child xml_arg0 "Attributes") in
      let currency =
        (Option.map ~f:Currency.of_xml) (Xml.child xml_arg0 "Currency") in
      let marginPercentage =
        (Option.map ~f:MarginPercentage.of_xml)
          (Xml.child xml_arg0 "MarginPercentage") in
      let margin =
        (Option.map ~f:Margin.of_xml) (Xml.child xml_arg0 "Margin") in
      let proformaCost =
        (Option.map ~f:ProformaCost.of_xml)
          (Xml.child xml_arg0 "ProformaCost") in
      let aWSCost =
        (Option.map ~f:AWSCost.of_xml) (Xml.child xml_arg0 "AWSCost") in
      let arn =
        (Option.map ~f:BillingGroupArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?attributes ?currency ?marginPercentage ?margin ?proformaCost
        ?aWSCost ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes = field_map json__ "Attributes" AttributesList.of_json in
      let currency = field_map json__ "Currency" Currency.of_json in
      let marginPercentage =
        field_map json__ "MarginPercentage" MarginPercentage.of_json in
      let margin = field_map json__ "Margin" Margin.of_json in
      let proformaCost = field_map json__ "ProformaCost" ProformaCost.of_json in
      let aWSCost = field_map json__ "AWSCost" AWSCost.of_json in
      let arn = field_map json__ "Arn" BillingGroupArn.of_json in
      make ?attributes ?currency ?marginPercentage ?margin ?proformaCost
        ?aWSCost ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A paginated call to retrieve a list of summary reports of actual Amazon Web Services charges and the calculated Amazon Web Services charges, broken down by attributes."]
module GroupByAttributeName =
  struct
    type nonrec t =
      | PRODUCT_NAME 
      | BILLING_PERIOD 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRODUCT_NAME -> "PRODUCT_NAME"
      | BILLING_PERIOD -> "BILLING_PERIOD"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRODUCT_NAME" -> PRODUCT_NAME
      | "BILLING_PERIOD" -> BILLING_PERIOD
      | 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 GroupByAttributeName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GroupByAttributeName" j)
    let to_json = simple_to_json to_value
  end
module CreateFreeTierConfig =
  struct
    type nonrec t =
      {
      activated: TieringActivated.t
        [@ocaml.doc "Activate or deactivate Amazon Web Services Free Tier."]}
    let context_ = "CreateFreeTierConfig"
    let make ~activated = fun () -> { activated }
    let to_value x =
      structure_to_value
        [("Activated", (Some (TieringActivated.to_value x.activated)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let activated =
        TieringActivated.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Activated") in
      make ~activated ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let activated =
        field_map_exn json__ "Activated" TieringActivated.of_json in
      make ~activated ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The possible Amazon Web Services Free Tier configurations."]
module CustomLineItemFlatChargeDetails =
  struct
    type nonrec t =
      {
      chargeValue: CustomLineItemChargeValue.t
        [@ocaml.doc "The custom line item's fixed charge value in USD."]}
    let context_ = "CustomLineItemFlatChargeDetails"
    let make ~chargeValue = fun () -> { chargeValue }
    let to_value x =
      structure_to_value
        [("ChargeValue",
           (Some (CustomLineItemChargeValue.to_value x.chargeValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chargeValue =
        CustomLineItemChargeValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChargeValue") in
      make ~chargeValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chargeValue =
        field_map_exn json__ "ChargeValue" CustomLineItemChargeValue.of_json in
      make ~chargeValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A representation of the charge details that are associated with a flat custom line item."]
module CustomLineItemPercentageChargeDetails =
  struct
    type nonrec t =
      {
      percentageValue: CustomLineItemPercentageChargeValue.t
        [@ocaml.doc
          "The custom line item's percentage value. This will be multiplied against the combined value of its associated resources to determine its charge value."];
      associatedValues: CustomLineItemAssociationsList.t option
        [@ocaml.doc
          "A list of resource ARNs to associate to the percentage custom line item."]}
    let context_ = "CustomLineItemPercentageChargeDetails"
    let make ?associatedValues =
      fun ~percentageValue -> fun () -> { associatedValues; percentageValue }
    let to_value x =
      structure_to_value
        [("PercentageValue",
           (Some
              (CustomLineItemPercentageChargeValue.to_value x.percentageValue)));
        ("AssociatedValues",
          (Option.map x.associatedValues
             ~f:CustomLineItemAssociationsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associatedValues =
        (Option.map ~f:CustomLineItemAssociationsList.of_xml)
          (Xml.child xml_arg0 "AssociatedValues") in
      let percentageValue =
        CustomLineItemPercentageChargeValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PercentageValue") in
      make ?associatedValues ~percentageValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associatedValues =
        field_map json__ "AssociatedValues"
          CustomLineItemAssociationsList.of_json in
      let percentageValue =
        field_map_exn json__ "PercentageValue"
          CustomLineItemPercentageChargeValue.of_json in
      make ?associatedValues ~percentageValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A representation of the charge details that are associated with a percentage custom line item."]
module DisassociateResourceResponseElement =
  struct
    type nonrec t =
      {
      arn: CustomLineItemAssociationElement.t option
        [@ocaml.doc
          "The resource ARN that was disassociated from the custom line item."];
      error: AssociateResourceError.t option
        [@ocaml.doc
          "An AssociateResourceError that's shown if the resource disassociation fails."]}
    let make ?arn = fun ?error -> fun () -> { arn; error }
    let to_value x =
      structure_to_value
        [("Arn",
           (Option.map x.arn ~f:CustomLineItemAssociationElement.to_value));
        ("Error", (Option.map x.error ~f:AssociateResourceError.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let error =
        (Option.map ~f:AssociateResourceError.of_xml)
          (Xml.child xml_arg0 "Error") in
      let arn =
        (Option.map ~f:CustomLineItemAssociationElement.of_xml)
          (Xml.child xml_arg0 "Arn") in
      make ?error ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let error = field_map json__ "Error" AssociateResourceError.of_json in
      let arn =
        field_map json__ "Arn" CustomLineItemAssociationElement.of_json in
      make ?error ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A resource disassociation result for a percentage custom line item."]
module AssociateResourceResponseElement =
  struct
    type nonrec t =
      {
      arn: CustomLineItemAssociationElement.t option
        [@ocaml.doc
          "The resource ARN that was associated to the custom line item."];
      error: AssociateResourceError.t option
        [@ocaml.doc
          "An AssociateResourceError that will populate if the resource association fails."]}
    let make ?arn = fun ?error -> fun () -> { arn; error }
    let to_value x =
      structure_to_value
        [("Arn",
           (Option.map x.arn ~f:CustomLineItemAssociationElement.to_value));
        ("Error", (Option.map x.error ~f:AssociateResourceError.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let error =
        (Option.map ~f:AssociateResourceError.of_xml)
          (Xml.child xml_arg0 "Error") in
      let arn =
        (Option.map ~f:CustomLineItemAssociationElement.of_xml)
          (Xml.child xml_arg0 "Arn") in
      make ?error ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let error = field_map json__ "Error" AssociateResourceError.of_json in
      let arn =
        field_map json__ "Arn" CustomLineItemAssociationElement.of_json in
      make ?error ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A resource association result for a percentage custom line item."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient access to perform this action."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "Identifier of the resource in use."];
      resourceType: String_.t option
        [@ocaml.doc "Type of the resource in use."];
      reason: ConflictExceptionReason.t option
        [@ocaml.doc "Reason for the inconsistent state."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?reason ->
            fun () -> { message; resourceId; resourceType; reason }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("Reason", (Option.map x.reason ~f:ConflictExceptionReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:ConflictExceptionReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?reason ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map json__ "Reason" ConflictExceptionReason.of_json in
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?reason ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can cause an inconsistent state by updating or deleting a resource."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      retryAfterSeconds: RetryAfterSeconds.t option
        [@ocaml.doc "Number of seconds you can retry after the call."]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Retry-After",
          (Option.map x.retryAfterSeconds ~f:RetryAfterSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:RetryAfterSeconds.of_xml)
          (Xml.child xml_arg0 "Retry-After") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "RetryAfterSeconds" RetryAfterSeconds.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An unexpected error occurred while processing a request."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "Resource identifier that was not found."];
      resourceType: String_.t option
        [@ocaml.doc "Resource type 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:String_.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request references a resource that doesn't exist."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      retryAfterSeconds: RetryAfterSeconds.t option
        [@ocaml.doc "Number of seconds you can safely retry after the call."]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Retry-After",
          (Option.map x.retryAfterSeconds ~f:RetryAfterSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:RetryAfterSeconds.of_xml)
          (Xml.child xml_arg0 "Retry-After") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "RetryAfterSeconds" RetryAfterSeconds.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module UpdateTieringInput =
  struct
    type nonrec t =
      {
      freeTier: UpdateFreeTierConfig.t
        [@ocaml.doc
          "The possible Amazon Web Services Free Tier configurations."]}
    let context_ = "UpdateTieringInput"
    let make ~freeTier = fun () -> { freeTier }
    let to_value x =
      structure_to_value
        [("FreeTier", (Some (UpdateFreeTierConfig.to_value x.freeTier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let freeTier =
        UpdateFreeTierConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FreeTier") in
      make ~freeTier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let freeTier =
        field_map_exn json__ "FreeTier" UpdateFreeTierConfig.of_json in
      make ~freeTier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The set of tiering configurations for the pricing rule."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The reason the request's validation failed."];
      fields: ValidationExceptionFieldList.t option
        [@ocaml.doc "The fields that caused the error, if applicable."]}
    let make ?message =
      fun ?reason -> fun ?fields -> fun () -> { message; reason; fields }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("Fields",
          (Option.map x.fields ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "Fields") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?fields ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields =
        field_map json__ "Fields" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "Reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?fields ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input doesn't match with the constraints specified by Amazon Web Services services."]
module BillingGroupFullArn =
  struct
    type nonrec t = string
    let context_ = "BillingGroupFullArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws(-cn)?:billingconductor::[0-9]{12}:billinggroup/[a-zA-Z0-9]{10,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:"BillingGroupFullArn" j
    let to_json = simple_to_json to_value
  end
module CustomLineItemBillingPeriodRange =
  struct
    type nonrec t =
      {
      inclusiveStartBillingPeriod: BillingPeriod.t
        [@ocaml.doc
          "The inclusive start billing period that defines a billing period range where a custom line is applied."];
      exclusiveEndBillingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The inclusive end billing period that defines a billing period range where a custom line is applied."]}
    let context_ = "CustomLineItemBillingPeriodRange"
    let make ?exclusiveEndBillingPeriod =
      fun ~inclusiveStartBillingPeriod ->
        fun () -> { exclusiveEndBillingPeriod; inclusiveStartBillingPeriod }
    let to_value x =
      structure_to_value
        [("InclusiveStartBillingPeriod",
           (Some (BillingPeriod.to_value x.inclusiveStartBillingPeriod)));
        ("ExclusiveEndBillingPeriod",
          (Option.map x.exclusiveEndBillingPeriod ~f:BillingPeriod.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exclusiveEndBillingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "ExclusiveEndBillingPeriod") in
      let inclusiveStartBillingPeriod =
        BillingPeriod.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "InclusiveStartBillingPeriod") in
      make ?exclusiveEndBillingPeriod ~inclusiveStartBillingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exclusiveEndBillingPeriod =
        field_map json__ "ExclusiveEndBillingPeriod" BillingPeriod.of_json in
      let inclusiveStartBillingPeriod =
        field_map_exn json__ "InclusiveStartBillingPeriod"
          BillingPeriod.of_json in
      make ?exclusiveEndBillingPeriod ~inclusiveStartBillingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The billing period range in which the custom line item request will be applied."]
module UpdateCustomLineItemChargeDetails =
  struct
    type nonrec t =
      {
      flat: UpdateCustomLineItemFlatChargeDetails.t option
        [@ocaml.doc
          "An UpdateCustomLineItemFlatChargeDetails that describes the new charge details of a flat custom line item."];
      percentage: UpdateCustomLineItemPercentageChargeDetails.t option
        [@ocaml.doc
          "An UpdateCustomLineItemPercentageChargeDetails that describes the new charge details of a percentage custom line item."];
      lineItemFilters: LineItemFiltersList.t option
        [@ocaml.doc "A representation of the line item filter."]}
    let make ?flat =
      fun ?percentage ->
        fun ?lineItemFilters ->
          fun () -> { flat; percentage; lineItemFilters }
    let to_value x =
      structure_to_value
        [("Flat",
           (Option.map x.flat
              ~f:UpdateCustomLineItemFlatChargeDetails.to_value));
        ("Percentage",
          (Option.map x.percentage
             ~f:UpdateCustomLineItemPercentageChargeDetails.to_value));
        ("LineItemFilters",
          (Option.map x.lineItemFilters ~f:LineItemFiltersList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lineItemFilters =
        (Option.map ~f:LineItemFiltersList.of_xml)
          (Xml.child xml_arg0 "LineItemFilters") in
      let percentage =
        (Option.map ~f:UpdateCustomLineItemPercentageChargeDetails.of_xml)
          (Xml.child xml_arg0 "Percentage") in
      let flat =
        (Option.map ~f:UpdateCustomLineItemFlatChargeDetails.of_xml)
          (Xml.child xml_arg0 "Flat") in
      make ?lineItemFilters ?percentage ?flat ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lineItemFilters =
        field_map json__ "LineItemFilters" LineItemFiltersList.of_json in
      let percentage =
        field_map json__ "Percentage"
          UpdateCustomLineItemPercentageChargeDetails.of_json in
      let flat =
        field_map json__ "Flat" UpdateCustomLineItemFlatChargeDetails.of_json in
      make ?lineItemFilters ?percentage ?flat ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A representation of the new charge details of a custom line item. This should contain only one of Flat or Percentage."]
module UpdateBillingGroupAccountGrouping =
  struct
    type nonrec t =
      {
      autoAssociate: Boolean.t option
        [@ocaml.doc
          "Specifies if this billing group will automatically associate newly added Amazon Web Services accounts that join your consolidated billing family."];
      responsibilityTransferArn: ResponsibilityTransferArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that identifies the transfer relationship. Note: Modifications to the ResponsibilityTransferArn are not permitted for existing billing groups."]}
    let make ?autoAssociate =
      fun ?responsibilityTransferArn ->
        fun () -> { autoAssociate; responsibilityTransferArn }
    let to_value x =
      structure_to_value
        [("AutoAssociate", (Option.map x.autoAssociate ~f:Boolean.to_value));
        ("ResponsibilityTransferArn",
          (Option.map x.responsibilityTransferArn
             ~f:ResponsibilityTransferArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let responsibilityTransferArn =
        (Option.map ~f:ResponsibilityTransferArn.of_xml)
          (Xml.child xml_arg0 "ResponsibilityTransferArn") in
      let autoAssociate =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "AutoAssociate") in
      make ?responsibilityTransferArn ?autoAssociate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let responsibilityTransferArn =
        field_map json__ "ResponsibilityTransferArn"
          ResponsibilityTransferArn.of_json in
      let autoAssociate = field_map json__ "AutoAssociate" Boolean.of_json in
      make ?responsibilityTransferArn ?autoAssociate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies if the billing group has the following features enabled."]
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(-cn)?:billingconductor::[0-9]{12}:billinggroup/?[0-9]{12}$|^arn:aws(-cn)?:billingconductor::[0-9]{12}:pricingplan/[a-zA-Z0-9]{10}$|^arn:aws(-cn)?:billingconductor::[0-9]{12}:pricingrule/[a-zA-Z0-9]{10}$|^(arn:aws(-cn)?:billingconductor::[0-9]{12}:customlineitem/)?[a-zA-Z0-9]{10}")));
        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:"Arn" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min: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:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.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_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListResourcesAssociatedToCustomLineItemResponseList =
  struct
    type nonrec t =
      ListResourcesAssociatedToCustomLineItemResponseElement.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:ListResourcesAssociatedToCustomLineItemResponseElement.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:ListResourcesAssociatedToCustomLineItemResponseElement.of_xml)
    let of_json j =
      list_of_json
        ~kind:"ListResourcesAssociatedToCustomLineItemResponseList"
        ~of_json:ListResourcesAssociatedToCustomLineItemResponseElement.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Token =
  struct
    type nonrec t = string
    let context_ = "Token"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Token" j
    let to_json = simple_to_json to_value
  end
module ListResourcesAssociatedToCustomLineItemFilter =
  struct
    type nonrec t =
      {
      relationship: CustomLineItemRelationship.t option
        [@ocaml.doc
          "The type of relationship between the custom line item and the associated resource."]}
    let make ?relationship = fun () -> { relationship }
    let to_value x =
      structure_to_value
        [("Relationship",
           (Option.map x.relationship ~f:CustomLineItemRelationship.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relationship =
        (Option.map ~f:CustomLineItemRelationship.of_xml)
          (Xml.child xml_arg0 "Relationship") in
      make ?relationship ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relationship =
        field_map json__ "Relationship" CustomLineItemRelationship.of_json in
      make ?relationship ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter that specifies the type of resource associations that should be retrieved for a custom line item."]
module MaxCustomLineItemResults =
  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 MaxCustomLineItemResults"
           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 PricingRuleList =
  struct
    type nonrec t = PricingRuleListElement.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:PricingRuleListElement.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:PricingRuleListElement.of_xml)
    let of_json j =
      list_of_json ~kind:"PricingRuleList"
        ~of_json:PricingRuleListElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListPricingRulesFilter =
  struct
    type nonrec t =
      {
      arns: PricingRuleArns.t option
        [@ocaml.doc
          "A list containing the pricing rule Amazon Resource Names (ARNs) to include in the API response."]}
    let make ?arns = fun () -> { arns }
    let to_value x =
      structure_to_value
        [("Arns", (Option.map x.arns ~f:PricingRuleArns.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arns =
        (Option.map ~f:PricingRuleArns.of_xml) (Xml.child xml_arg0 "Arns") in
      make ?arns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arns = field_map json__ "Arns" PricingRuleArns.of_json in
      make ?arns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter that specifies criteria that the pricing rules returned by the ListPricingRules API will adhere to."]
module MaxPricingRuleResults =
  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 MaxPricingRuleResults" 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 MaxPricingPlanResults =
  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 MaxPricingPlanResults" 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 PricingPlanList =
  struct
    type nonrec t = PricingPlanListElement.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:PricingPlanListElement.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:PricingPlanListElement.of_xml)
    let of_json j =
      list_of_json ~kind:"PricingPlanList"
        ~of_json:PricingPlanListElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListPricingPlansFilter =
  struct
    type nonrec t =
      {
      arns: PricingPlanArns.t option
        [@ocaml.doc
          "A list of pricing plan Amazon Resource Names (ARNs) to retrieve information."]}
    let make ?arns = fun () -> { arns }
    let to_value x =
      structure_to_value
        [("Arns", (Option.map x.arns ~f:PricingPlanArns.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arns =
        (Option.map ~f:PricingPlanArns.of_xml) (Xml.child xml_arg0 "Arns") in
      make ?arns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arns = field_map json__ "Arns" PricingPlanArns.of_json in
      make ?arns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter that specifies the Amazon Resource Names (ARNs) of pricing plans, to retrieve pricing plan information."]
module CustomLineItemList =
  struct
    type nonrec t = CustomLineItemListElement.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:CustomLineItemListElement.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:CustomLineItemListElement.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomLineItemList"
        ~of_json:CustomLineItemListElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListCustomLineItemsFilter =
  struct
    type nonrec t =
      {
      names: CustomLineItemNameList.t option
        [@ocaml.doc "A list of custom line items to retrieve information."];
      billingGroups: BillingGroupArnList.t option
        [@ocaml.doc
          "The billing group Amazon Resource Names (ARNs) to retrieve information."];
      arns: CustomLineItemArns.t option
        [@ocaml.doc
          "A list of custom line item ARNs to retrieve information."];
      accountIds: AccountIdList.t option
        [@ocaml.doc
          "The Amazon Web Services accounts in which this custom line item will be applied to."]}
    let make ?names =
      fun ?billingGroups ->
        fun ?arns ->
          fun ?accountIds ->
            fun () -> { names; billingGroups; arns; accountIds }
    let to_value x =
      structure_to_value
        [("Names", (Option.map x.names ~f:CustomLineItemNameList.to_value));
        ("BillingGroups",
          (Option.map x.billingGroups ~f:BillingGroupArnList.to_value));
        ("Arns", (Option.map x.arns ~f:CustomLineItemArns.to_value));
        ("AccountIds", (Option.map x.accountIds ~f:AccountIdList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountIds =
        (Option.map ~f:AccountIdList.of_xml)
          (Xml.child xml_arg0 "AccountIds") in
      let arns =
        (Option.map ~f:CustomLineItemArns.of_xml) (Xml.child xml_arg0 "Arns") in
      let billingGroups =
        (Option.map ~f:BillingGroupArnList.of_xml)
          (Xml.child xml_arg0 "BillingGroups") in
      let names =
        (Option.map ~f:CustomLineItemNameList.of_xml)
          (Xml.child xml_arg0 "Names") in
      make ?accountIds ?arns ?billingGroups ?names ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountIds = field_map json__ "AccountIds" AccountIdList.of_json in
      let arns = field_map json__ "Arns" CustomLineItemArns.of_json in
      let billingGroups =
        field_map json__ "BillingGroups" BillingGroupArnList.of_json in
      let names = field_map json__ "Names" CustomLineItemNameList.of_json in
      make ?accountIds ?arns ?billingGroups ?names ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter that specifies the custom line items and billing groups to retrieve FFLI information."]
module CustomLineItemVersionList =
  struct
    type nonrec t = CustomLineItemVersionListElement.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:CustomLineItemVersionListElement.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:CustomLineItemVersionListElement.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomLineItemVersionList"
        ~of_json:CustomLineItemVersionListElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListCustomLineItemVersionsFilter =
  struct
    type nonrec t =
      {
      billingPeriodRange:
        ListCustomLineItemVersionsBillingPeriodRangeFilter.t option
        [@ocaml.doc
          "The billing period range in which the custom line item version is applied."]}
    let make ?billingPeriodRange = fun () -> { billingPeriodRange }
    let to_value x =
      structure_to_value
        [("BillingPeriodRange",
           (Option.map x.billingPeriodRange
              ~f:ListCustomLineItemVersionsBillingPeriodRangeFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingPeriodRange =
        (Option.map
           ~f:ListCustomLineItemVersionsBillingPeriodRangeFilter.of_xml)
          (Xml.child xml_arg0 "BillingPeriodRange") in
      make ?billingPeriodRange ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingPeriodRange =
        field_map json__ "BillingPeriodRange"
          ListCustomLineItemVersionsBillingPeriodRangeFilter.of_json in
      make ?billingPeriodRange ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter that specifies the billing period range where the custom line item versions reside."]
module BillingGroupList =
  struct
    type nonrec t = BillingGroupListElement.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:BillingGroupListElement.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:BillingGroupListElement.of_xml)
    let of_json j =
      list_of_json ~kind:"BillingGroupList"
        ~of_json:BillingGroupListElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListBillingGroupsFilter =
  struct
    type nonrec t =
      {
      arns: BillingGroupArnList.t option
        [@ocaml.doc
          "The list of billing group Amazon Resource Names (ARNs) to retrieve information."];
      pricingPlan: PricingPlanFullArn.t option
        [@ocaml.doc
          "The pricing plan Amazon Resource Names (ARNs) to retrieve information."];
      statuses: BillingGroupStatusList.t option
        [@ocaml.doc
          "A list of billing groups to retrieve their current status for a specific time range"];
      autoAssociate: Boolean.t option
        [@ocaml.doc
          "Specifies if this billing group will automatically associate newly added Amazon Web Services accounts that join your consolidated billing family."];
      primaryAccountIds: PrimaryAccountIdList.t option
        [@ocaml.doc
          "A list of primary account IDs to filter the billing groups."];
      billingGroupTypes: BillingGroupTypeList.t option
        [@ocaml.doc "Filter billing groups by their type."];
      names: StringSearches.t option
        [@ocaml.doc "Filter billing groups by their names."];
      responsibilityTransferArns: ResponsibilityTransferArnsList.t option
        [@ocaml.doc
          "Filter billing groups by their responsibility transfer ARNs."]}
    let make ?arns =
      fun ?pricingPlan ->
        fun ?statuses ->
          fun ?autoAssociate ->
            fun ?primaryAccountIds ->
              fun ?billingGroupTypes ->
                fun ?names ->
                  fun ?responsibilityTransferArns ->
                    fun () ->
                      {
                        arns;
                        pricingPlan;
                        statuses;
                        autoAssociate;
                        primaryAccountIds;
                        billingGroupTypes;
                        names;
                        responsibilityTransferArns
                      }
    let to_value x =
      structure_to_value
        [("Arns", (Option.map x.arns ~f:BillingGroupArnList.to_value));
        ("PricingPlan",
          (Option.map x.pricingPlan ~f:PricingPlanFullArn.to_value));
        ("Statuses",
          (Option.map x.statuses ~f:BillingGroupStatusList.to_value));
        ("AutoAssociate", (Option.map x.autoAssociate ~f:Boolean.to_value));
        ("PrimaryAccountIds",
          (Option.map x.primaryAccountIds ~f:PrimaryAccountIdList.to_value));
        ("BillingGroupTypes",
          (Option.map x.billingGroupTypes ~f:BillingGroupTypeList.to_value));
        ("Names", (Option.map x.names ~f:StringSearches.to_value));
        ("ResponsibilityTransferArns",
          (Option.map x.responsibilityTransferArns
             ~f:ResponsibilityTransferArnsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let responsibilityTransferArns =
        (Option.map ~f:ResponsibilityTransferArnsList.of_xml)
          (Xml.child xml_arg0 "ResponsibilityTransferArns") in
      let names =
        (Option.map ~f:StringSearches.of_xml) (Xml.child xml_arg0 "Names") in
      let billingGroupTypes =
        (Option.map ~f:BillingGroupTypeList.of_xml)
          (Xml.child xml_arg0 "BillingGroupTypes") in
      let primaryAccountIds =
        (Option.map ~f:PrimaryAccountIdList.of_xml)
          (Xml.child xml_arg0 "PrimaryAccountIds") in
      let autoAssociate =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "AutoAssociate") in
      let statuses =
        (Option.map ~f:BillingGroupStatusList.of_xml)
          (Xml.child xml_arg0 "Statuses") in
      let pricingPlan =
        (Option.map ~f:PricingPlanFullArn.of_xml)
          (Xml.child xml_arg0 "PricingPlan") in
      let arns =
        (Option.map ~f:BillingGroupArnList.of_xml)
          (Xml.child xml_arg0 "Arns") in
      make ?responsibilityTransferArns ?names ?billingGroupTypes
        ?primaryAccountIds ?autoAssociate ?statuses ?pricingPlan ?arns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let responsibilityTransferArns =
        field_map json__ "ResponsibilityTransferArns"
          ResponsibilityTransferArnsList.of_json in
      let names = field_map json__ "Names" StringSearches.of_json in
      let billingGroupTypes =
        field_map json__ "BillingGroupTypes" BillingGroupTypeList.of_json in
      let primaryAccountIds =
        field_map json__ "PrimaryAccountIds" PrimaryAccountIdList.of_json in
      let autoAssociate = field_map json__ "AutoAssociate" Boolean.of_json in
      let statuses =
        field_map json__ "Statuses" BillingGroupStatusList.of_json in
      let pricingPlan =
        field_map json__ "PricingPlan" PricingPlanFullArn.of_json in
      let arns = field_map json__ "Arns" BillingGroupArnList.of_json in
      make ?responsibilityTransferArns ?names ?billingGroupTypes
        ?primaryAccountIds ?autoAssociate ?statuses ?pricingPlan ?arns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter that specifies the billing groups and pricing plans to retrieve billing group information."]
module MaxBillingGroupResults =
  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 MaxBillingGroupResults" 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 BillingGroupCostReportList =
  struct
    type nonrec t = BillingGroupCostReportElement.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:BillingGroupCostReportElement.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:BillingGroupCostReportElement.of_xml)
    let of_json j =
      list_of_json ~kind:"BillingGroupCostReportList"
        ~of_json:BillingGroupCostReportElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListBillingGroupCostReportsFilter =
  struct
    type nonrec t =
      {
      billingGroupArns: BillingGroupArnList.t option
        [@ocaml.doc
          "The list of Amazon Resource Names (ARNs) used to filter billing groups to retrieve reports."]}
    let make ?billingGroupArns = fun () -> { billingGroupArns }
    let to_value x =
      structure_to_value
        [("BillingGroupArns",
           (Option.map x.billingGroupArns ~f:BillingGroupArnList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingGroupArns =
        (Option.map ~f:BillingGroupArnList.of_xml)
          (Xml.child xml_arg0 "BillingGroupArns") in
      make ?billingGroupArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingGroupArns =
        field_map json__ "BillingGroupArns" BillingGroupArnList.of_json in
      make ?billingGroupArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter used to retrieve specific BillingGroupCostReportElements."]
module AccountAssociationsList =
  struct
    type nonrec t = AccountAssociationsListElement.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:AccountAssociationsListElement.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:AccountAssociationsListElement.of_xml)
    let of_json j =
      list_of_json ~kind:"AccountAssociationsList"
        ~of_json:AccountAssociationsListElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListAccountAssociationsFilter =
  struct
    type nonrec t =
      {
      association: Association.t option
        [@ocaml.doc
          "MONITORED: linked accounts that are associated to billing groups. UNMONITORED: linked accounts that are not associated to billing groups. Billing Group Arn: linked accounts that are associated to the provided Billing Group Arn."];
      accountId: AccountId.t option
        [@ocaml.doc "The Amazon Web Services account ID to filter on."];
      accountIds: AccountIdFilterList.t option
        [@ocaml.doc
          "The list of Amazon Web Services IDs to retrieve their associated billing group for a given time range."]}
    let make ?association =
      fun ?accountId ->
        fun ?accountIds -> fun () -> { association; accountId; accountIds }
    let to_value x =
      structure_to_value
        [("Association", (Option.map x.association ~f:Association.to_value));
        ("AccountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("AccountIds",
          (Option.map x.accountIds ~f:AccountIdFilterList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountIds =
        (Option.map ~f:AccountIdFilterList.of_xml)
          (Xml.child xml_arg0 "AccountIds") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let association =
        (Option.map ~f:Association.of_xml) (Xml.child xml_arg0 "Association") in
      make ?accountIds ?accountId ?association ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountIds =
        field_map json__ "AccountIds" AccountIdFilterList.of_json in
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      let association = field_map json__ "Association" Association.of_json in
      make ?accountIds ?accountId ?association ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter on the account ID of the linked account, or any of the following: MONITORED: linked accounts that are associated to billing groups. UNMONITORED: linked accounts that are not associated to billing groups. Billing Group Arn: linked accounts that are associated to the provided Billing Group Arn."]
module BillingGroupCostReportResultsList =
  struct
    type nonrec t = BillingGroupCostReportResultElement.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:BillingGroupCostReportResultElement.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:BillingGroupCostReportResultElement.of_xml)
    let of_json j =
      list_of_json ~kind:"BillingGroupCostReportResultsList"
        ~of_json:BillingGroupCostReportResultElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module BillingPeriodRange =
  struct
    type nonrec t =
      {
      inclusiveStartBillingPeriod: BillingPeriod.t
        [@ocaml.doc
          "The inclusive start billing period that defines a billing period range for the margin summary."];
      exclusiveEndBillingPeriod: BillingPeriod.t
        [@ocaml.doc
          "The exclusive end billing period that defines a billing period range for the margin summary. For example, if you choose a billing period that starts in October 2023 and ends in December 2023, the margin summary will only include data from October 2023 and November 2023."]}
    let context_ = "BillingPeriodRange"
    let make ~inclusiveStartBillingPeriod =
      fun ~exclusiveEndBillingPeriod ->
        fun () -> { inclusiveStartBillingPeriod; exclusiveEndBillingPeriod }
    let to_value x =
      structure_to_value
        [("InclusiveStartBillingPeriod",
           (Some (BillingPeriod.to_value x.inclusiveStartBillingPeriod)));
        ("ExclusiveEndBillingPeriod",
          (Some (BillingPeriod.to_value x.exclusiveEndBillingPeriod)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exclusiveEndBillingPeriod =
        BillingPeriod.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ExclusiveEndBillingPeriod") in
      let inclusiveStartBillingPeriod =
        BillingPeriod.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "InclusiveStartBillingPeriod") in
      make ~exclusiveEndBillingPeriod ~inclusiveStartBillingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exclusiveEndBillingPeriod =
        field_map_exn json__ "ExclusiveEndBillingPeriod"
          BillingPeriod.of_json in
      let inclusiveStartBillingPeriod =
        field_map_exn json__ "InclusiveStartBillingPeriod"
          BillingPeriod.of_json in
      make ~exclusiveEndBillingPeriod ~inclusiveStartBillingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A time range for which the margin summary is effective. The time range can be up to 12 months."]
module GroupByAttributesList =
  struct
    type nonrec t = GroupByAttributeName.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:GroupByAttributeName.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:GroupByAttributeName.of_xml)
    let of_json j =
      list_of_json ~kind:"GroupByAttributesList"
        ~of_json:GroupByAttributeName.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxBillingGroupCostReportResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:300) >>=
             (fun () -> check_int_min i ~min:200));
        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 MaxBillingGroupCostReportResults" 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 PricingRuleArnsNonEmptyInput =
  struct
    type nonrec t = PricingRuleArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (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:PricingRuleArn.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:PricingRuleArn.of_xml)
    let of_json j =
      list_of_json ~kind:"PricingRuleArnsNonEmptyInput"
        ~of_json:PricingRuleArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceLimitExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "Identifier of the resource affected."];
      resourceType: String_.t option
        [@ocaml.doc "Type of the resource affected."];
      limitCode: String_.t option
        [@ocaml.doc
          "The unique code identifier of the service limit that is being exceeded."];
      serviceCode: String_.t option
        [@ocaml.doc
          "The unique code for the service of the limit that is being exceeded."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?limitCode ->
            fun ?serviceCode ->
              fun () ->
                { message; resourceId; resourceType; limitCode; serviceCode }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("LimitCode", (Option.map x.limitCode ~f:String_.to_value));
        ("ServiceCode", (Option.map x.serviceCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ServiceCode") in
      let limitCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LimitCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?serviceCode ?limitCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceCode = field_map json__ "ServiceCode" String_.of_json in
      let limitCode = field_map json__ "LimitCode" String_.of_json in
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?serviceCode ?limitCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request would cause a service limit to exceed."]
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (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:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module CreateTieringInput =
  struct
    type nonrec t =
      {
      freeTier: CreateFreeTierConfig.t
        [@ocaml.doc
          "The possible Amazon Web Services Free Tier configurations."]}
    let context_ = "CreateTieringInput"
    let make ~freeTier = fun () -> { freeTier }
    let to_value x =
      structure_to_value
        [("FreeTier", (Some (CreateFreeTierConfig.to_value x.freeTier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let freeTier =
        CreateFreeTierConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FreeTier") in
      make ~freeTier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let freeTier =
        field_map_exn json__ "FreeTier" CreateFreeTierConfig.of_json in
      make ~freeTier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The set of tiering configurations for the pricing rule."]
module PricingRuleArnsInput =
  struct
    type nonrec t = PricingRuleArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (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:PricingRuleArn.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:PricingRuleArn.of_xml)
    let of_json j =
      list_of_json ~kind:"PricingRuleArnsInput"
        ~of_json:PricingRuleArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomLineItemChargeDetails =
  struct
    type nonrec t =
      {
      flat: CustomLineItemFlatChargeDetails.t option
        [@ocaml.doc
          "A CustomLineItemFlatChargeDetails that describes the charge details of a flat custom line item."];
      percentage: CustomLineItemPercentageChargeDetails.t option
        [@ocaml.doc
          "A CustomLineItemPercentageChargeDetails that describes the charge details of a percentage custom line item."];
      type_: CustomLineItemType.t
        [@ocaml.doc
          "The type of the custom line item that indicates whether the charge is a fee or credit."];
      lineItemFilters: LineItemFiltersList.t option
        [@ocaml.doc "A representation of the line item filter."]}
    let context_ = "CustomLineItemChargeDetails"
    let make ?flat =
      fun ?percentage ->
        fun ?lineItemFilters ->
          fun ~type_ ->
            fun () -> { flat; percentage; lineItemFilters; type_ }
    let to_value x =
      structure_to_value
        [("Flat",
           (Option.map x.flat ~f:CustomLineItemFlatChargeDetails.to_value));
        ("Percentage",
          (Option.map x.percentage
             ~f:CustomLineItemPercentageChargeDetails.to_value));
        ("Type", (Some (CustomLineItemType.to_value x.type_)));
        ("LineItemFilters",
          (Option.map x.lineItemFilters ~f:LineItemFiltersList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lineItemFilters =
        (Option.map ~f:LineItemFiltersList.of_xml)
          (Xml.child xml_arg0 "LineItemFilters") in
      let type_ =
        CustomLineItemType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let percentage =
        (Option.map ~f:CustomLineItemPercentageChargeDetails.of_xml)
          (Xml.child xml_arg0 "Percentage") in
      let flat =
        (Option.map ~f:CustomLineItemFlatChargeDetails.of_xml)
          (Xml.child xml_arg0 "Flat") in
      make ?lineItemFilters ~type_ ?percentage ?flat ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lineItemFilters =
        field_map json__ "LineItemFilters" LineItemFiltersList.of_json in
      let type_ = field_map_exn json__ "Type" CustomLineItemType.of_json in
      let percentage =
        field_map json__ "Percentage"
          CustomLineItemPercentageChargeDetails.of_json in
      let flat =
        field_map json__ "Flat" CustomLineItemFlatChargeDetails.of_json in
      make ?lineItemFilters ~type_ ?percentage ?flat ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The charge details of a custom line item. It should contain only one of Flat or Percentage."]
module AccountGrouping =
  struct
    type nonrec t =
      {
      linkedAccountIds: AccountIdList.t option
        [@ocaml.doc
          "The account IDs that make up the billing group. Account IDs must be a part of the consolidated billing family, and not associated with another billing group."];
      autoAssociate: Boolean.t option
        [@ocaml.doc
          "Specifies if this billing group will automatically associate newly added Amazon Web Services accounts that join your consolidated billing family."];
      responsibilityTransferArn: ResponsibilityTransferArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that identifies the transfer relationship owned by the Bill Transfer account (caller account). When specified, the PrimaryAccountId is no longer required."]}
    let make ?linkedAccountIds =
      fun ?autoAssociate ->
        fun ?responsibilityTransferArn ->
          fun () ->
            { linkedAccountIds; autoAssociate; responsibilityTransferArn }
    let to_value x =
      structure_to_value
        [("LinkedAccountIds",
           (Option.map x.linkedAccountIds ~f:AccountIdList.to_value));
        ("AutoAssociate", (Option.map x.autoAssociate ~f:Boolean.to_value));
        ("ResponsibilityTransferArn",
          (Option.map x.responsibilityTransferArn
             ~f:ResponsibilityTransferArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let responsibilityTransferArn =
        (Option.map ~f:ResponsibilityTransferArn.of_xml)
          (Xml.child xml_arg0 "ResponsibilityTransferArn") in
      let autoAssociate =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "AutoAssociate") in
      let linkedAccountIds =
        (Option.map ~f:AccountIdList.of_xml)
          (Xml.child xml_arg0 "LinkedAccountIds") in
      make ?responsibilityTransferArn ?autoAssociate ?linkedAccountIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let responsibilityTransferArn =
        field_map json__ "ResponsibilityTransferArn"
          ResponsibilityTransferArn.of_json in
      let autoAssociate = field_map json__ "AutoAssociate" Boolean.of_json in
      let linkedAccountIds =
        field_map json__ "LinkedAccountIds" AccountIdList.of_json in
      make ?responsibilityTransferArn ?autoAssociate ?linkedAccountIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The set of accounts that will be under the billing group. The set of accounts resemble the linked accounts in a consolidated billing family."]
module DisassociateResourcesResponseList =
  struct
    type nonrec t = DisassociateResourceResponseElement.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:DisassociateResourceResponseElement.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:DisassociateResourceResponseElement.of_xml)
    let of_json j =
      list_of_json ~kind:"DisassociateResourcesResponseList"
        ~of_json:DisassociateResourceResponseElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomLineItemBatchDisassociationsList =
  struct
    type nonrec t = CustomLineItemAssociationElement.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (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:CustomLineItemAssociationElement.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:CustomLineItemAssociationElement.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomLineItemBatchDisassociationsList"
        ~of_json:CustomLineItemAssociationElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssociateResourcesResponseList =
  struct
    type nonrec t = AssociateResourceResponseElement.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:AssociateResourceResponseElement.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:AssociateResourceResponseElement.of_xml)
    let of_json j =
      list_of_json ~kind:"AssociateResourcesResponseList"
        ~of_json:AssociateResourceResponseElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomLineItemBatchAssociationsList =
  struct
    type nonrec t = CustomLineItemAssociationElement.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (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:CustomLineItemAssociationElement.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:CustomLineItemAssociationElement.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomLineItemBatchAssociationsList"
        ~of_json:CustomLineItemAssociationElement.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdatePricingRuleOutput =
  struct
    type nonrec t =
      {
      arn: PricingRuleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the successfully updated pricing rule."];
      name: PricingRuleName.t option
        [@ocaml.doc
          "The new name of the pricing rule. The name must be unique to each pricing rule."];
      description: PricingRuleDescription.t option
        [@ocaml.doc "The new description for the pricing rule."];
      scope: PricingRuleScope.t option
        [@ocaml.doc
          "The scope of pricing rule that indicates if it's globally applicable, or it's service-specific."];
      type_: PricingRuleType.t option
        [@ocaml.doc "The new pricing rule type."];
      modifierPercentage: ModifierPercentage.t option
        [@ocaml.doc
          "The new modifier to show pricing plan rates as a percentage."];
      service: Service.t option
        [@ocaml.doc
          "If the Scope attribute is set to SERVICE, the attribute indicates which service the PricingRule is applicable for."];
      associatedPricingPlanCount: NumberOfPricingPlansAssociatedWith.t option
        [@ocaml.doc
          "The pricing plans count that this pricing rule is associated with."];
      lastModifiedTime: Instant.t option
        [@ocaml.doc "The most recent time the pricing rule was modified."];
      billingEntity: BillingEntity.t option
        [@ocaml.doc
          "The seller of services provided by Amazon Web Services, their affiliates, or third-party providers selling services via Amazon Web Services Marketplace."];
      tiering: UpdateTieringInput.t option
        [@ocaml.doc
          "The set of tiering configurations for the pricing rule."];
      usageType: UsageType.t option
        [@ocaml.doc
          "Usage type is the unit that each service uses to measure the usage of a specific type of resource. If the Scope attribute is set to SKU, this attribute indicates which usage type the PricingRule is modifying. For example, USW2-BoxUsage:m2.2xlarge describes an M2 High Memory Double Extra Large instance in the US West (Oregon) Region."];
      operation: Operation.t option
        [@ocaml.doc
          "Operation refers to the specific Amazon Web Services covered by this line item. This describes the specific usage of the line item. If the Scope attribute is set to SKU, this attribute indicates which operation the PricingRule is modifying. For example, a value of RunInstances:0202 indicates the operation of running an Amazon EC2 instance."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?name ->
        fun ?description ->
          fun ?scope ->
            fun ?type_ ->
              fun ?modifierPercentage ->
                fun ?service ->
                  fun ?associatedPricingPlanCount ->
                    fun ?lastModifiedTime ->
                      fun ?billingEntity ->
                        fun ?tiering ->
                          fun ?usageType ->
                            fun ?operation ->
                              fun () ->
                                {
                                  arn;
                                  name;
                                  description;
                                  scope;
                                  type_;
                                  modifierPercentage;
                                  service;
                                  associatedPricingPlanCount;
                                  lastModifiedTime;
                                  billingEntity;
                                  tiering;
                                  usageType;
                                  operation
                                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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:PricingRuleArn.to_value));
        ("Name", (Option.map x.name ~f:PricingRuleName.to_value));
        ("Description",
          (Option.map x.description ~f:PricingRuleDescription.to_value));
        ("Scope", (Option.map x.scope ~f:PricingRuleScope.to_value));
        ("Type", (Option.map x.type_ ~f:PricingRuleType.to_value));
        ("ModifierPercentage",
          (Option.map x.modifierPercentage ~f:ModifierPercentage.to_value));
        ("Service", (Option.map x.service ~f:Service.to_value));
        ("AssociatedPricingPlanCount",
          (Option.map x.associatedPricingPlanCount
             ~f:NumberOfPricingPlansAssociatedWith.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Instant.to_value));
        ("BillingEntity",
          (Option.map x.billingEntity ~f:BillingEntity.to_value));
        ("Tiering", (Option.map x.tiering ~f:UpdateTieringInput.to_value));
        ("UsageType", (Option.map x.usageType ~f:UsageType.to_value));
        ("Operation", (Option.map x.operation ~f:Operation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operation =
        (Option.map ~f:Operation.of_xml) (Xml.child xml_arg0 "Operation") in
      let usageType =
        (Option.map ~f:UsageType.of_xml) (Xml.child xml_arg0 "UsageType") in
      let tiering =
        (Option.map ~f:UpdateTieringInput.of_xml)
          (Xml.child xml_arg0 "Tiering") in
      let billingEntity =
        (Option.map ~f:BillingEntity.of_xml)
          (Xml.child xml_arg0 "BillingEntity") in
      let lastModifiedTime =
        (Option.map ~f:Instant.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let associatedPricingPlanCount =
        (Option.map ~f:NumberOfPricingPlansAssociatedWith.of_xml)
          (Xml.child xml_arg0 "AssociatedPricingPlanCount") in
      let service =
        (Option.map ~f:Service.of_xml) (Xml.child xml_arg0 "Service") in
      let modifierPercentage =
        (Option.map ~f:ModifierPercentage.of_xml)
          (Xml.child xml_arg0 "ModifierPercentage") in
      let type_ =
        (Option.map ~f:PricingRuleType.of_xml) (Xml.child xml_arg0 "Type") in
      let scope =
        (Option.map ~f:PricingRuleScope.of_xml) (Xml.child xml_arg0 "Scope") in
      let description =
        (Option.map ~f:PricingRuleDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:PricingRuleName.of_xml) (Xml.child xml_arg0 "Name") in
      let arn =
        (Option.map ~f:PricingRuleArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?operation ?usageType ?tiering ?billingEntity ?lastModifiedTime
        ?associatedPricingPlanCount ?service ?modifierPercentage ?type_
        ?scope ?description ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operation = field_map json__ "Operation" Operation.of_json in
      let usageType = field_map json__ "UsageType" UsageType.of_json in
      let tiering = field_map json__ "Tiering" UpdateTieringInput.of_json in
      let billingEntity =
        field_map json__ "BillingEntity" BillingEntity.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Instant.of_json in
      let associatedPricingPlanCount =
        field_map json__ "AssociatedPricingPlanCount"
          NumberOfPricingPlansAssociatedWith.of_json in
      let service = field_map json__ "Service" Service.of_json in
      let modifierPercentage =
        field_map json__ "ModifierPercentage" ModifierPercentage.of_json in
      let type_ = field_map json__ "Type" PricingRuleType.of_json in
      let scope = field_map json__ "Scope" PricingRuleScope.of_json in
      let description =
        field_map json__ "Description" PricingRuleDescription.of_json in
      let name = field_map json__ "Name" PricingRuleName.of_json in
      let arn = field_map json__ "Arn" PricingRuleArn.of_json in
      make ?operation ?usageType ?tiering ?billingEntity ?lastModifiedTime
        ?associatedPricingPlanCount ?service ?modifierPercentage ?type_
        ?scope ?description ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing pricing rule."]
module UpdatePricingRuleInput =
  struct
    type nonrec t =
      {
      arn: PricingRuleArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the pricing rule to update."];
      name: PricingRuleName.t option
        [@ocaml.doc
          "The new name of the pricing rule. The name must be unique to each pricing rule."];
      description: PricingRuleDescription.t option
        [@ocaml.doc "The new description for the pricing rule."];
      type_: PricingRuleType.t option
        [@ocaml.doc "The new pricing rule type."];
      modifierPercentage: ModifierPercentage.t option
        [@ocaml.doc
          "The new modifier to show pricing plan rates as a percentage. Your entry will be rounded to the nearest 2 decimal places."];
      tiering: UpdateTieringInput.t option
        [@ocaml.doc
          "The set of tiering configurations for the pricing rule."]}
    let context_ = "UpdatePricingRuleInput"
    let make ?name =
      fun ?description ->
        fun ?type_ ->
          fun ?modifierPercentage ->
            fun ?tiering ->
              fun ~arn ->
                fun () ->
                  {
                    name;
                    description;
                    type_;
                    modifierPercentage;
                    tiering;
                    arn
                  }
    let to_value x =
      structure_to_value
        [("Arn", (Some (PricingRuleArn.to_value x.arn)));
        ("Name", (Option.map x.name ~f:PricingRuleName.to_value));
        ("Description",
          (Option.map x.description ~f:PricingRuleDescription.to_value));
        ("Type", (Option.map x.type_ ~f:PricingRuleType.to_value));
        ("ModifierPercentage",
          (Option.map x.modifierPercentage ~f:ModifierPercentage.to_value));
        ("Tiering", (Option.map x.tiering ~f:UpdateTieringInput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tiering =
        (Option.map ~f:UpdateTieringInput.of_xml)
          (Xml.child xml_arg0 "Tiering") in
      let modifierPercentage =
        (Option.map ~f:ModifierPercentage.of_xml)
          (Xml.child xml_arg0 "ModifierPercentage") in
      let type_ =
        (Option.map ~f:PricingRuleType.of_xml) (Xml.child xml_arg0 "Type") in
      let description =
        (Option.map ~f:PricingRuleDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:PricingRuleName.of_xml) (Xml.child xml_arg0 "Name") in
      let arn =
        PricingRuleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ?tiering ?modifierPercentage ?type_ ?description ?name ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tiering = field_map json__ "Tiering" UpdateTieringInput.of_json in
      let modifierPercentage =
        field_map json__ "ModifierPercentage" ModifierPercentage.of_json in
      let type_ = field_map json__ "Type" PricingRuleType.of_json in
      let description =
        field_map json__ "Description" PricingRuleDescription.of_json in
      let name = field_map json__ "Name" PricingRuleName.of_json in
      let arn = field_map_exn json__ "Arn" PricingRuleArn.of_json in
      make ?tiering ?modifierPercentage ?type_ ?description ?name ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing pricing rule."]
module UpdatePricingPlanOutput =
  struct
    type nonrec t =
      {
      arn: PricingPlanArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the updated pricing plan."];
      name: PricingPlanName.t option
        [@ocaml.doc
          "The name of the pricing plan. The name must be unique to each pricing plan."];
      description: PricingPlanDescription.t option
        [@ocaml.doc "The new description for the pricing rule."];
      size: NumberOfAssociatedPricingRules.t option
        [@ocaml.doc
          "The pricing rules count that's currently associated with this pricing plan list."];
      lastModifiedTime: Instant.t option
        [@ocaml.doc
          "The most recent time when the pricing plan was modified."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?name ->
        fun ?description ->
          fun ?size ->
            fun ?lastModifiedTime ->
              fun () -> { arn; name; description; size; lastModifiedTime }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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:PricingPlanArn.to_value));
        ("Name", (Option.map x.name ~f:PricingPlanName.to_value));
        ("Description",
          (Option.map x.description ~f:PricingPlanDescription.to_value));
        ("Size",
          (Option.map x.size ~f:NumberOfAssociatedPricingRules.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Instant.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:Instant.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let size =
        (Option.map ~f:NumberOfAssociatedPricingRules.of_xml)
          (Xml.child xml_arg0 "Size") in
      let description =
        (Option.map ~f:PricingPlanDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:PricingPlanName.of_xml) (Xml.child xml_arg0 "Name") in
      let arn =
        (Option.map ~f:PricingPlanArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?lastModifiedTime ?size ?description ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Instant.of_json in
      let size =
        field_map json__ "Size" NumberOfAssociatedPricingRules.of_json in
      let description =
        field_map json__ "Description" PricingPlanDescription.of_json in
      let name = field_map json__ "Name" PricingPlanName.of_json in
      let arn = field_map json__ "Arn" PricingPlanArn.of_json in
      make ?lastModifiedTime ?size ?description ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "This updates an existing pricing plan."]
module UpdatePricingPlanInput =
  struct
    type nonrec t =
      {
      arn: PricingPlanArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the pricing plan that you're updating."];
      name: PricingPlanName.t option
        [@ocaml.doc
          "The name of the pricing plan. The name must be unique to each pricing plan."];
      description: PricingPlanDescription.t option
        [@ocaml.doc "The description of the pricing plan."]}
    let context_ = "UpdatePricingPlanInput"
    let make ?name =
      fun ?description -> fun ~arn -> fun () -> { name; description; arn }
    let to_value x =
      structure_to_value
        [("Arn", (Some (PricingPlanArn.to_value x.arn)));
        ("Name", (Option.map x.name ~f:PricingPlanName.to_value));
        ("Description",
          (Option.map x.description ~f:PricingPlanDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:PricingPlanDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:PricingPlanName.of_xml) (Xml.child xml_arg0 "Name") in
      let arn =
        PricingPlanArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ?description ?name ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "Description" PricingPlanDescription.of_json in
      let name = field_map json__ "Name" PricingPlanName.of_json in
      let arn = field_map_exn json__ "Arn" PricingPlanArn.of_json in
      make ?description ?name ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "This updates an existing pricing plan."]
module UpdateCustomLineItemOutput =
  struct
    type nonrec t =
      {
      arn: CustomLineItemArn.t option
        [@ocaml.doc "The ARN of the successfully updated custom line item."];
      billingGroupArn: BillingGroupFullArn.t option
        [@ocaml.doc
          "The ARN of the billing group that the custom line item is applied to."];
      name: CustomLineItemName.t option
        [@ocaml.doc "The name of the successfully updated custom line item."];
      description: CustomLineItemDescription.t option
        [@ocaml.doc
          "The description of the successfully updated custom line item."];
      chargeDetails: ListCustomLineItemChargeDetails.t option
        [@ocaml.doc
          "A ListCustomLineItemChargeDetails containing the charge details of the successfully updated custom line item."];
      lastModifiedTime: Instant.t option
        [@ocaml.doc
          "The most recent time when the custom line item was modified."];
      associationSize: NumberOfAssociations.t option
        [@ocaml.doc
          "The number of resources that are associated to the custom line item."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?billingGroupArn ->
        fun ?name ->
          fun ?description ->
            fun ?chargeDetails ->
              fun ?lastModifiedTime ->
                fun ?associationSize ->
                  fun () ->
                    {
                      arn;
                      billingGroupArn;
                      name;
                      description;
                      chargeDetails;
                      lastModifiedTime;
                      associationSize
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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:CustomLineItemArn.to_value));
        ("BillingGroupArn",
          (Option.map x.billingGroupArn ~f:BillingGroupFullArn.to_value));
        ("Name", (Option.map x.name ~f:CustomLineItemName.to_value));
        ("Description",
          (Option.map x.description ~f:CustomLineItemDescription.to_value));
        ("ChargeDetails",
          (Option.map x.chargeDetails
             ~f:ListCustomLineItemChargeDetails.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Instant.to_value));
        ("AssociationSize",
          (Option.map x.associationSize ~f:NumberOfAssociations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associationSize =
        (Option.map ~f:NumberOfAssociations.of_xml)
          (Xml.child xml_arg0 "AssociationSize") in
      let lastModifiedTime =
        (Option.map ~f:Instant.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let chargeDetails =
        (Option.map ~f:ListCustomLineItemChargeDetails.of_xml)
          (Xml.child xml_arg0 "ChargeDetails") in
      let description =
        (Option.map ~f:CustomLineItemDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:CustomLineItemName.of_xml) (Xml.child xml_arg0 "Name") in
      let billingGroupArn =
        (Option.map ~f:BillingGroupFullArn.of_xml)
          (Xml.child xml_arg0 "BillingGroupArn") in
      let arn =
        (Option.map ~f:CustomLineItemArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?associationSize ?lastModifiedTime ?chargeDetails ?description
        ?name ?billingGroupArn ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associationSize =
        field_map json__ "AssociationSize" NumberOfAssociations.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Instant.of_json in
      let chargeDetails =
        field_map json__ "ChargeDetails"
          ListCustomLineItemChargeDetails.of_json in
      let description =
        field_map json__ "Description" CustomLineItemDescription.of_json in
      let name = field_map json__ "Name" CustomLineItemName.of_json in
      let billingGroupArn =
        field_map json__ "BillingGroupArn" BillingGroupFullArn.of_json in
      let arn = field_map json__ "Arn" CustomLineItemArn.of_json in
      make ?associationSize ?lastModifiedTime ?chargeDetails ?description
        ?name ?billingGroupArn ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Update an existing custom line item in the current or previous billing period."]
module UpdateCustomLineItemInput =
  struct
    type nonrec t =
      {
      arn: CustomLineItemArn.t
        [@ocaml.doc "The ARN of the custom line item to be updated."];
      name: CustomLineItemName.t option
        [@ocaml.doc "The new name for the custom line item."];
      description: CustomLineItemDescription.t option
        [@ocaml.doc "The new line item description of the custom line item."];
      chargeDetails: UpdateCustomLineItemChargeDetails.t option
        [@ocaml.doc
          "A ListCustomLineItemChargeDetails containing the new charge details for the custom line item."];
      billingPeriodRange: CustomLineItemBillingPeriodRange.t option }
    let context_ = "UpdateCustomLineItemInput"
    let make ?name =
      fun ?description ->
        fun ?chargeDetails ->
          fun ?billingPeriodRange ->
            fun ~arn ->
              fun () ->
                { name; description; chargeDetails; billingPeriodRange; arn }
    let to_value x =
      structure_to_value
        [("Arn", (Some (CustomLineItemArn.to_value x.arn)));
        ("Name", (Option.map x.name ~f:CustomLineItemName.to_value));
        ("Description",
          (Option.map x.description ~f:CustomLineItemDescription.to_value));
        ("ChargeDetails",
          (Option.map x.chargeDetails
             ~f:UpdateCustomLineItemChargeDetails.to_value));
        ("BillingPeriodRange",
          (Option.map x.billingPeriodRange
             ~f:CustomLineItemBillingPeriodRange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingPeriodRange =
        (Option.map ~f:CustomLineItemBillingPeriodRange.of_xml)
          (Xml.child xml_arg0 "BillingPeriodRange") in
      let chargeDetails =
        (Option.map ~f:UpdateCustomLineItemChargeDetails.of_xml)
          (Xml.child xml_arg0 "ChargeDetails") in
      let description =
        (Option.map ~f:CustomLineItemDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:CustomLineItemName.of_xml) (Xml.child xml_arg0 "Name") in
      let arn =
        CustomLineItemArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ?billingPeriodRange ?chargeDetails ?description ?name ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingPeriodRange =
        field_map json__ "BillingPeriodRange"
          CustomLineItemBillingPeriodRange.of_json in
      let chargeDetails =
        field_map json__ "ChargeDetails"
          UpdateCustomLineItemChargeDetails.of_json in
      let description =
        field_map json__ "Description" CustomLineItemDescription.of_json in
      let name = field_map json__ "Name" CustomLineItemName.of_json in
      let arn = field_map_exn json__ "Arn" CustomLineItemArn.of_json in
      make ?billingPeriodRange ?chargeDetails ?description ?name ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Update an existing custom line item in the current or previous billing period."]
module UpdateBillingGroupOutput =
  struct
    type nonrec t =
      {
      arn: BillingGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the billing group that was updated."];
      name: BillingGroupName.t option
        [@ocaml.doc
          "The name of the billing group. The names must be unique to each billing group."];
      description: BillingGroupDescription.t option
        [@ocaml.doc "A description of the billing group."];
      primaryAccountId: AccountId.t option
        [@ocaml.doc
          "The account ID that serves as the main account in a billing group."];
      pricingPlanArn: PricingPlanArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the pricing plan to compute Amazon Web Services charges for the billing group."];
      size: NumberOfAccounts.t option
        [@ocaml.doc
          "The number of accounts in the particular billing group."];
      lastModifiedTime: Instant.t option
        [@ocaml.doc
          "The most recent time when the billing group was modified."];
      status: BillingGroupStatus.t option
        [@ocaml.doc
          "The status of the billing group. Only one of the valid values can be used."];
      statusReason: BillingGroupStatusReason.t option
        [@ocaml.doc
          "The reason why the billing group is in its current status."];
      accountGrouping: UpdateBillingGroupAccountGrouping.t option
        [@ocaml.doc
          "Specifies if the billing group has automatic account association (AutoAssociate) enabled."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?name ->
        fun ?description ->
          fun ?primaryAccountId ->
            fun ?pricingPlanArn ->
              fun ?size ->
                fun ?lastModifiedTime ->
                  fun ?status ->
                    fun ?statusReason ->
                      fun ?accountGrouping ->
                        fun () ->
                          {
                            arn;
                            name;
                            description;
                            primaryAccountId;
                            pricingPlanArn;
                            size;
                            lastModifiedTime;
                            status;
                            statusReason;
                            accountGrouping
                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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:BillingGroupArn.to_value));
        ("Name", (Option.map x.name ~f:BillingGroupName.to_value));
        ("Description",
          (Option.map x.description ~f:BillingGroupDescription.to_value));
        ("PrimaryAccountId",
          (Option.map x.primaryAccountId ~f:AccountId.to_value));
        ("PricingPlanArn",
          (Option.map x.pricingPlanArn ~f:PricingPlanArn.to_value));
        ("Size", (Option.map x.size ~f:NumberOfAccounts.to_value));
        ("LastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Instant.to_value));
        ("Status", (Option.map x.status ~f:BillingGroupStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:BillingGroupStatusReason.to_value));
        ("AccountGrouping",
          (Option.map x.accountGrouping
             ~f:UpdateBillingGroupAccountGrouping.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountGrouping =
        (Option.map ~f:UpdateBillingGroupAccountGrouping.of_xml)
          (Xml.child xml_arg0 "AccountGrouping") in
      let statusReason =
        (Option.map ~f:BillingGroupStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:BillingGroupStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let lastModifiedTime =
        (Option.map ~f:Instant.of_xml)
          (Xml.child xml_arg0 "LastModifiedTime") in
      let size =
        (Option.map ~f:NumberOfAccounts.of_xml) (Xml.child xml_arg0 "Size") in
      let pricingPlanArn =
        (Option.map ~f:PricingPlanArn.of_xml)
          (Xml.child xml_arg0 "PricingPlanArn") in
      let primaryAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "PrimaryAccountId") in
      let description =
        (Option.map ~f:BillingGroupDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:BillingGroupName.of_xml) (Xml.child xml_arg0 "Name") in
      let arn =
        (Option.map ~f:BillingGroupArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?accountGrouping ?statusReason ?status ?lastModifiedTime ?size
        ?pricingPlanArn ?primaryAccountId ?description ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountGrouping =
        field_map json__ "AccountGrouping"
          UpdateBillingGroupAccountGrouping.of_json in
      let statusReason =
        field_map json__ "StatusReason" BillingGroupStatusReason.of_json in
      let status = field_map json__ "Status" BillingGroupStatus.of_json in
      let lastModifiedTime =
        field_map json__ "LastModifiedTime" Instant.of_json in
      let size = field_map json__ "Size" NumberOfAccounts.of_json in
      let pricingPlanArn =
        field_map json__ "PricingPlanArn" PricingPlanArn.of_json in
      let primaryAccountId =
        field_map json__ "PrimaryAccountId" AccountId.of_json in
      let description =
        field_map json__ "Description" BillingGroupDescription.of_json in
      let name = field_map json__ "Name" BillingGroupName.of_json in
      let arn = field_map json__ "Arn" BillingGroupArn.of_json in
      make ?accountGrouping ?statusReason ?status ?lastModifiedTime ?size
        ?pricingPlanArn ?primaryAccountId ?description ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "This updates an existing billing group."]
module UpdateBillingGroupInput =
  struct
    type nonrec t =
      {
      arn: BillingGroupArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the billing group being updated."];
      name: BillingGroupName.t option
        [@ocaml.doc
          "The name of the billing group. The names must be unique to each billing group."];
      status: BillingGroupStatus.t option
        [@ocaml.doc
          "The status of the billing group. Only one of the valid values can be used."];
      computationPreference: ComputationPreference.t option
        [@ocaml.doc
          "The preferences and settings that will be used to compute the Amazon Web Services charges for a billing group."];
      description: BillingGroupDescription.t option
        [@ocaml.doc "A description of the billing group."];
      accountGrouping: UpdateBillingGroupAccountGrouping.t option
        [@ocaml.doc
          "Specifies if the billing group has automatic account association (AutoAssociate) enabled."]}
    let context_ = "UpdateBillingGroupInput"
    let make ?name =
      fun ?status ->
        fun ?computationPreference ->
          fun ?description ->
            fun ?accountGrouping ->
              fun ~arn ->
                fun () ->
                  {
                    name;
                    status;
                    computationPreference;
                    description;
                    accountGrouping;
                    arn
                  }
    let to_value x =
      structure_to_value
        [("Arn", (Some (BillingGroupArn.to_value x.arn)));
        ("Name", (Option.map x.name ~f:BillingGroupName.to_value));
        ("Status", (Option.map x.status ~f:BillingGroupStatus.to_value));
        ("ComputationPreference",
          (Option.map x.computationPreference
             ~f:ComputationPreference.to_value));
        ("Description",
          (Option.map x.description ~f:BillingGroupDescription.to_value));
        ("AccountGrouping",
          (Option.map x.accountGrouping
             ~f:UpdateBillingGroupAccountGrouping.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountGrouping =
        (Option.map ~f:UpdateBillingGroupAccountGrouping.of_xml)
          (Xml.child xml_arg0 "AccountGrouping") in
      let description =
        (Option.map ~f:BillingGroupDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let computationPreference =
        (Option.map ~f:ComputationPreference.of_xml)
          (Xml.child xml_arg0 "ComputationPreference") in
      let status =
        (Option.map ~f:BillingGroupStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let name =
        (Option.map ~f:BillingGroupName.of_xml) (Xml.child xml_arg0 "Name") in
      let arn =
        BillingGroupArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ?accountGrouping ?description ?computationPreference ?status ?name
        ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountGrouping =
        field_map json__ "AccountGrouping"
          UpdateBillingGroupAccountGrouping.of_json in
      let description =
        field_map json__ "Description" BillingGroupDescription.of_json in
      let computationPreference =
        field_map json__ "ComputationPreference"
          ComputationPreference.of_json in
      let status = field_map json__ "Status" BillingGroupStatus.of_json in
      let name = field_map json__ "Name" BillingGroupName.of_json in
      let arn = field_map_exn json__ "Arn" BillingGroupArn.of_json in
      make ?accountGrouping ?description ?computationPreference ?status ?name
        ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "This updates an existing billing group."]
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 "Deletes specified tags from a resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to which to delete tags."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The tags to delete from the resource as a list of key-value pairs."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeyList.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Arn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes specified tags from a resource."]
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
       "Associates the specified tags to a resource with the specified resourceArn. If existing tags on a resource are not specified in the request parameters, they are not changed."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to which to add tags."];
      tags: TagMap.t
        [@ocaml.doc
          "The tags to add to the resource as a list of key-value pairs."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Arn.to_value x.resourceArn)));
        ("Tags", (Some (TagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagMap.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Arn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified tags to a resource with the specified resourceArn. If existing tags on a resource are not specified in the request parameters, they are not changed."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagMap.t option [@ocaml.doc "The tags for 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 ?tags = fun () -> { tags }
    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 [("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list the tags for a resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that identifies the resource to list the tags."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Arn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Arn.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" Arn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list the tags for a resource."]
module ListResourcesAssociatedToCustomLineItemOutput =
  struct
    type nonrec t =
      {
      arn: CustomLineItemArn.t option
        [@ocaml.doc
          "The custom line item ARN for which the resource associations are listed."];
      associatedResources:
        ListResourcesAssociatedToCustomLineItemResponseList.t option
        [@ocaml.doc
          "A list of ListResourcesAssociatedToCustomLineItemResponseElement for each resource association retrieved."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token to be used in subsequent requests to retrieve additional results."]}
    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 ?arn =
      fun ?associatedResources ->
        fun ?nextToken -> fun () -> { arn; associatedResources; 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
        [("Arn", (Option.map x.arn ~f:CustomLineItemArn.to_value));
        ("AssociatedResources",
          (Option.map x.associatedResources
             ~f:ListResourcesAssociatedToCustomLineItemResponseList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let associatedResources =
        (Option.map
           ~f:ListResourcesAssociatedToCustomLineItemResponseList.of_xml)
          (Xml.child xml_arg0 "AssociatedResources") in
      let arn =
        (Option.map ~f:CustomLineItemArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?nextToken ?associatedResources ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let associatedResources =
        field_map json__ "AssociatedResources"
          ListResourcesAssociatedToCustomLineItemResponseList.of_json in
      let arn = field_map json__ "Arn" CustomLineItemArn.of_json in
      make ?nextToken ?associatedResources ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List the resources that are associated to a custom line item."]
module ListResourcesAssociatedToCustomLineItemInput =
  struct
    type nonrec t =
      {
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The billing period for which the resource associations will be listed."];
      arn: CustomLineItemArn.t
        [@ocaml.doc
          "The ARN of the custom line item for which the resource associations will be listed."];
      maxResults: MaxCustomLineItemResults.t option
        [@ocaml.doc
          "(Optional) The maximum number of resource associations to be retrieved."];
      nextToken: Token.t option
        [@ocaml.doc
          "(Optional) The pagination token that's returned by a previous request."];
      filters: ListResourcesAssociatedToCustomLineItemFilter.t option
        [@ocaml.doc
          "(Optional) A ListResourcesAssociatedToCustomLineItemFilter that can specify the types of resources that should be retrieved."]}
    let context_ = "ListResourcesAssociatedToCustomLineItemInput"
    let make ?billingPeriod =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ?filters ->
            fun ~arn ->
              fun () ->
                { billingPeriod; maxResults; nextToken; filters; arn }
    let to_value x =
      structure_to_value
        [("BillingPeriod",
           (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("Arn", (Some (CustomLineItemArn.to_value x.arn)));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxCustomLineItemResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("Filters",
          (Option.map x.filters
             ~f:ListResourcesAssociatedToCustomLineItemFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:ListResourcesAssociatedToCustomLineItemFilter.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxCustomLineItemResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let arn =
        CustomLineItemArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      make ?filters ?nextToken ?maxResults ~arn ?billingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters =
        field_map json__ "Filters"
          ListResourcesAssociatedToCustomLineItemFilter.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults =
        field_map json__ "MaxResults" MaxCustomLineItemResults.of_json in
      let arn = field_map_exn json__ "Arn" CustomLineItemArn.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      make ?filters ?nextToken ?maxResults ~arn ?billingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List the resources that are associated to a custom line item."]
module ListPricingRulesOutput =
  struct
    type nonrec t =
      {
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The billing period for which the described pricing rules are applicable."];
      pricingRules: PricingRuleList.t option
        [@ocaml.doc "A list containing the described pricing rules."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used on subsequent calls to get pricing rules."]}
    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 ?billingPeriod =
      fun ?pricingRules ->
        fun ?nextToken ->
          fun () -> { billingPeriod; pricingRules; 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
        [("BillingPeriod",
           (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("PricingRules",
          (Option.map x.pricingRules ~f:PricingRuleList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let pricingRules =
        (Option.map ~f:PricingRuleList.of_xml)
          (Xml.child xml_arg0 "PricingRules") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      make ?nextToken ?pricingRules ?billingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let pricingRules =
        field_map json__ "PricingRules" PricingRuleList.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      make ?nextToken ?pricingRules ?billingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a pricing rule that can be associated to a pricing plan, or set of pricing plans."]
module ListPricingRulesInput =
  struct
    type nonrec t =
      {
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc "The preferred billing period to get the pricing plan."];
      filters: ListPricingRulesFilter.t option
        [@ocaml.doc
          "A DescribePricingRuleFilter that specifies the Amazon Resource Name (ARNs) of pricing rules to retrieve pricing rules information."];
      maxResults: MaxPricingRuleResults.t option
        [@ocaml.doc "The maximum number of pricing rules to retrieve."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used on subsequent call to get pricing rules."]}
    let make ?billingPeriod =
      fun ?filters ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun () -> { billingPeriod; filters; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("BillingPeriod",
           (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("Filters",
          (Option.map x.filters ~f:ListPricingRulesFilter.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxPricingRuleResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxPricingRuleResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let filters =
        (Option.map ~f:ListPricingRulesFilter.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      make ?nextToken ?maxResults ?filters ?billingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults =
        field_map json__ "MaxResults" MaxPricingRuleResults.of_json in
      let filters = field_map json__ "Filters" ListPricingRulesFilter.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      make ?nextToken ?maxResults ?filters ?billingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a pricing rule that can be associated to a pricing plan, or set of pricing plans."]
module ListPricingRulesAssociatedToPricingPlanOutput =
  struct
    type nonrec t =
      {
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The billing period for which the pricing rule associations are listed."];
      pricingPlanArn: PricingPlanArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the pricing plan for which associations are listed."];
      pricingRuleArns: PricingRuleArns.t option
        [@ocaml.doc
          "A list containing pricing rules that are associated with the requested pricing plan."];
      nextToken: Token.t option
        [@ocaml.doc "The pagination token to be used on subsequent calls."]}
    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 ?billingPeriod =
      fun ?pricingPlanArn ->
        fun ?pricingRuleArns ->
          fun ?nextToken ->
            fun () ->
              { billingPeriod; pricingPlanArn; pricingRuleArns; 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
        [("BillingPeriod",
           (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("PricingPlanArn",
          (Option.map x.pricingPlanArn ~f:PricingPlanArn.to_value));
        ("PricingRuleArns",
          (Option.map x.pricingRuleArns ~f:PricingRuleArns.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let pricingRuleArns =
        (Option.map ~f:PricingRuleArns.of_xml)
          (Xml.child xml_arg0 "PricingRuleArns") in
      let pricingPlanArn =
        (Option.map ~f:PricingPlanArn.of_xml)
          (Xml.child xml_arg0 "PricingPlanArn") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      make ?nextToken ?pricingRuleArns ?pricingPlanArn ?billingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let pricingRuleArns =
        field_map json__ "PricingRuleArns" PricingRuleArns.of_json in
      let pricingPlanArn =
        field_map json__ "PricingPlanArn" PricingPlanArn.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      make ?nextToken ?pricingRuleArns ?pricingPlanArn ?billingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the pricing rules that are associated with a pricing plan."]
module ListPricingRulesAssociatedToPricingPlanInput =
  struct
    type nonrec t =
      {
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The billing period for which the pricing rule associations are to be listed."];
      pricingPlanArn: PricingPlanArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the pricing plan for which associations are to be listed."];
      maxResults: MaxPricingPlanResults.t option
        [@ocaml.doc
          "The optional maximum number of pricing rule associations to retrieve."];
      nextToken: Token.t option
        [@ocaml.doc
          "The optional pagination token returned by a previous call."]}
    let context_ = "ListPricingRulesAssociatedToPricingPlanInput"
    let make ?billingPeriod =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~pricingPlanArn ->
            fun () ->
              { billingPeriod; maxResults; nextToken; pricingPlanArn }
    let to_value x =
      structure_to_value
        [("BillingPeriod",
           (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("PricingPlanArn", (Some (PricingPlanArn.to_value x.pricingPlanArn)));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxPricingPlanResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxPricingPlanResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let pricingPlanArn =
        PricingPlanArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PricingPlanArn") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      make ?nextToken ?maxResults ~pricingPlanArn ?billingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults =
        field_map json__ "MaxResults" MaxPricingPlanResults.of_json in
      let pricingPlanArn =
        field_map_exn json__ "PricingPlanArn" PricingPlanArn.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      make ?nextToken ?maxResults ~pricingPlanArn ?billingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the pricing rules that are associated with a pricing plan."]
module ListPricingPlansOutput =
  struct
    type nonrec t =
      {
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The billing period for which the described pricing plans are applicable."];
      pricingPlans: PricingPlanList.t option
        [@ocaml.doc "A list of PricingPlanListElement retrieved."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used on subsequent calls to get pricing plans."]}
    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 ?billingPeriod =
      fun ?pricingPlans ->
        fun ?nextToken ->
          fun () -> { billingPeriod; pricingPlans; 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
        [("BillingPeriod",
           (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("PricingPlans",
          (Option.map x.pricingPlans ~f:PricingPlanList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let pricingPlans =
        (Option.map ~f:PricingPlanList.of_xml)
          (Xml.child xml_arg0 "PricingPlans") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      make ?nextToken ?pricingPlans ?billingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let pricingPlans =
        field_map json__ "PricingPlans" PricingPlanList.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      make ?nextToken ?pricingPlans ?billingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A paginated call to get pricing plans for the given billing period. If you don't provide a billing period, the current billing period is used."]
module ListPricingPlansInput =
  struct
    type nonrec t =
      {
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc "The preferred billing period to get pricing plan."];
      filters: ListPricingPlansFilter.t option
        [@ocaml.doc
          "A ListPricingPlansFilter that specifies the Amazon Resource Name (ARNs) of pricing plans to retrieve pricing plans information."];
      maxResults: MaxPricingPlanResults.t option
        [@ocaml.doc "The maximum number of pricing plans to retrieve."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used on subsequent call to get pricing plans."]}
    let make ?billingPeriod =
      fun ?filters ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun () -> { billingPeriod; filters; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("BillingPeriod",
           (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("Filters",
          (Option.map x.filters ~f:ListPricingPlansFilter.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxPricingPlanResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxPricingPlanResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let filters =
        (Option.map ~f:ListPricingPlansFilter.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      make ?nextToken ?maxResults ?filters ?billingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults =
        field_map json__ "MaxResults" MaxPricingPlanResults.of_json in
      let filters = field_map json__ "Filters" ListPricingPlansFilter.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      make ?nextToken ?maxResults ?filters ?billingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A paginated call to get pricing plans for the given billing period. If you don't provide a billing period, the current billing period is used."]
module ListPricingPlansAssociatedWithPricingRuleOutput =
  struct
    type nonrec t =
      {
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The pricing plan billing period for which associations will be listed."];
      pricingRuleArn: PricingRuleArn.t option
        [@ocaml.doc
          "The pricing rule Amazon Resource Name (ARN) for which associations will be listed."];
      pricingPlanArns: PricingPlanArns.t option
        [@ocaml.doc
          "The list containing pricing plans that are associated with the requested pricing rule."];
      nextToken: Token.t option
        [@ocaml.doc "The pagination token to be used on subsequent calls."]}
    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 ?billingPeriod =
      fun ?pricingRuleArn ->
        fun ?pricingPlanArns ->
          fun ?nextToken ->
            fun () ->
              { billingPeriod; pricingRuleArn; pricingPlanArns; 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
        [("BillingPeriod",
           (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("PricingRuleArn",
          (Option.map x.pricingRuleArn ~f:PricingRuleArn.to_value));
        ("PricingPlanArns",
          (Option.map x.pricingPlanArns ~f:PricingPlanArns.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let pricingPlanArns =
        (Option.map ~f:PricingPlanArns.of_xml)
          (Xml.child xml_arg0 "PricingPlanArns") in
      let pricingRuleArn =
        (Option.map ~f:PricingRuleArn.of_xml)
          (Xml.child xml_arg0 "PricingRuleArn") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      make ?nextToken ?pricingPlanArns ?pricingRuleArn ?billingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let pricingPlanArns =
        field_map json__ "PricingPlanArns" PricingPlanArns.of_json in
      let pricingRuleArn =
        field_map json__ "PricingRuleArn" PricingRuleArn.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      make ?nextToken ?pricingPlanArns ?pricingRuleArn ?billingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of the pricing plans that are associated with a pricing rule."]
module ListPricingPlansAssociatedWithPricingRuleInput =
  struct
    type nonrec t =
      {
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The pricing plan billing period for which associations will be listed."];
      pricingRuleArn: PricingRuleArn.t
        [@ocaml.doc
          "The pricing rule Amazon Resource Name (ARN) for which associations will be listed."];
      maxResults: MaxPricingRuleResults.t option
        [@ocaml.doc
          "The optional maximum number of pricing rule associations to retrieve."];
      nextToken: Token.t option
        [@ocaml.doc
          "The optional pagination token returned by a previous call."]}
    let context_ = "ListPricingPlansAssociatedWithPricingRuleInput"
    let make ?billingPeriod =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~pricingRuleArn ->
            fun () ->
              { billingPeriod; maxResults; nextToken; pricingRuleArn }
    let to_value x =
      structure_to_value
        [("BillingPeriod",
           (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("PricingRuleArn", (Some (PricingRuleArn.to_value x.pricingRuleArn)));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxPricingRuleResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxPricingRuleResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let pricingRuleArn =
        PricingRuleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PricingRuleArn") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      make ?nextToken ?maxResults ~pricingRuleArn ?billingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults =
        field_map json__ "MaxResults" MaxPricingRuleResults.of_json in
      let pricingRuleArn =
        field_map_exn json__ "PricingRuleArn" PricingRuleArn.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      make ?nextToken ?maxResults ~pricingRuleArn ?billingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of the pricing plans that are associated with a pricing rule."]
module ListCustomLineItemsOutput =
  struct
    type nonrec t =
      {
      customLineItems: CustomLineItemList.t option
        [@ocaml.doc "A list of FreeFormLineItemListElements received."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used on subsequent calls to get custom line items (FFLIs)."]}
    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 ?customLineItems =
      fun ?nextToken -> fun () -> { customLineItems; 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
        [("CustomLineItems",
           (Option.map x.customLineItems ~f:CustomLineItemList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let customLineItems =
        (Option.map ~f:CustomLineItemList.of_xml)
          (Xml.child xml_arg0 "CustomLineItems") in
      make ?nextToken ?customLineItems ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let customLineItems =
        field_map json__ "CustomLineItems" CustomLineItemList.of_json in
      make ?nextToken ?customLineItems ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A paginated call to get a list of all custom line items (FFLIs) for the given billing period. If you don't provide a billing period, the current billing period is used."]
module ListCustomLineItemsInput =
  struct
    type nonrec t =
      {
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The preferred billing period to get custom line items (FFLIs)."];
      maxResults: MaxCustomLineItemResults.t option
        [@ocaml.doc "The maximum number of billing groups to retrieve."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used on subsequent calls to get custom line items (FFLIs)."];
      filters: ListCustomLineItemsFilter.t option
        [@ocaml.doc
          "A ListCustomLineItemsFilter that specifies the custom line item names and/or billing group Amazon Resource Names (ARNs) to retrieve FFLI information."]}
    let make ?billingPeriod =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ?filters ->
            fun () -> { billingPeriod; maxResults; nextToken; filters }
    let to_value x =
      structure_to_value
        [("BillingPeriod",
           (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxCustomLineItemResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("Filters",
          (Option.map x.filters ~f:ListCustomLineItemsFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:ListCustomLineItemsFilter.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxCustomLineItemResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      make ?filters ?nextToken ?maxResults ?billingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters =
        field_map json__ "Filters" ListCustomLineItemsFilter.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults =
        field_map json__ "MaxResults" MaxCustomLineItemResults.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      make ?filters ?nextToken ?maxResults ?billingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A paginated call to get a list of all custom line items (FFLIs) for the given billing period. If you don't provide a billing period, the current billing period is used."]
module ListCustomLineItemVersionsOutput =
  struct
    type nonrec t =
      {
      customLineItemVersions: CustomLineItemVersionList.t option
        [@ocaml.doc
          "A list of CustomLineItemVersionListElements that are received."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used on subsequent calls to retrieve custom line item versions."]}
    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 ?customLineItemVersions =
      fun ?nextToken -> fun () -> { customLineItemVersions; 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
        [("CustomLineItemVersions",
           (Option.map x.customLineItemVersions
              ~f:CustomLineItemVersionList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let customLineItemVersions =
        (Option.map ~f:CustomLineItemVersionList.of_xml)
          (Xml.child xml_arg0 "CustomLineItemVersions") in
      make ?nextToken ?customLineItemVersions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let customLineItemVersions =
        field_map json__ "CustomLineItemVersions"
          CustomLineItemVersionList.of_json in
      make ?nextToken ?customLineItemVersions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A paginated call to get a list of all custom line item versions."]
module ListCustomLineItemVersionsInput =
  struct
    type nonrec t =
      {
      arn: CustomLineItemArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the custom line item."];
      maxResults: MaxCustomLineItemResults.t option
        [@ocaml.doc
          "The maximum number of custom line item versions to retrieve."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used on subsequent calls to retrieve custom line item versions."];
      filters: ListCustomLineItemVersionsFilter.t option
        [@ocaml.doc
          "A ListCustomLineItemVersionsFilter that specifies the billing period range in which the custom line item versions are applied."]}
    let context_ = "ListCustomLineItemVersionsInput"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filters ->
          fun ~arn -> fun () -> { maxResults; nextToken; filters; arn }
    let to_value x =
      structure_to_value
        [("Arn", (Some (CustomLineItemArn.to_value x.arn)));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxCustomLineItemResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("Filters",
          (Option.map x.filters ~f:ListCustomLineItemVersionsFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:ListCustomLineItemVersionsFilter.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxCustomLineItemResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let arn =
        CustomLineItemArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ?filters ?nextToken ?maxResults ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters =
        field_map json__ "Filters" ListCustomLineItemVersionsFilter.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults =
        field_map json__ "MaxResults" MaxCustomLineItemResults.of_json in
      let arn = field_map_exn json__ "Arn" CustomLineItemArn.of_json in
      make ?filters ?nextToken ?maxResults ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A paginated call to get a list of all custom line item versions."]
module ListBillingGroupsOutput =
  struct
    type nonrec t =
      {
      billingGroups: BillingGroupList.t option
        [@ocaml.doc "A list of BillingGroupListElement retrieved."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used on subsequent calls to get billing groups."]}
    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 ?billingGroups =
      fun ?nextToken -> fun () -> { billingGroups; 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
        [("BillingGroups",
           (Option.map x.billingGroups ~f:BillingGroupList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let billingGroups =
        (Option.map ~f:BillingGroupList.of_xml)
          (Xml.child xml_arg0 "BillingGroups") in
      make ?nextToken ?billingGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let billingGroups =
        field_map json__ "BillingGroups" BillingGroupList.of_json in
      make ?nextToken ?billingGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A paginated call to retrieve a list of billing groups for the given billing period. If you don't provide a billing group, the current billing period is used."]
module ListBillingGroupsInput =
  struct
    type nonrec t =
      {
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc "The preferred billing period to get billing groups."];
      maxResults: MaxBillingGroupResults.t option
        [@ocaml.doc "The maximum number of billing groups to retrieve."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used on subsequent calls to get billing groups."];
      filters: ListBillingGroupsFilter.t option
        [@ocaml.doc
          "A ListBillingGroupsFilter that specifies the billing group and pricing plan to retrieve billing group information."]}
    let make ?billingPeriod =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ?filters ->
            fun () -> { billingPeriod; maxResults; nextToken; filters }
    let to_value x =
      structure_to_value
        [("BillingPeriod",
           (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxBillingGroupResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("Filters",
          (Option.map x.filters ~f:ListBillingGroupsFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:ListBillingGroupsFilter.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxBillingGroupResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      make ?filters ?nextToken ?maxResults ?billingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters =
        field_map json__ "Filters" ListBillingGroupsFilter.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults =
        field_map json__ "MaxResults" MaxBillingGroupResults.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      make ?filters ?nextToken ?maxResults ?billingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A paginated call to retrieve a list of billing groups for the given billing period. If you don't provide a billing group, the current billing period is used."]
module ListBillingGroupCostReportsOutput =
  struct
    type nonrec t =
      {
      billingGroupCostReports: BillingGroupCostReportList.t option
        [@ocaml.doc "A list of BillingGroupCostReportElement retrieved."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used on subsequent calls to get reports."]}
    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 ?billingGroupCostReports =
      fun ?nextToken -> fun () -> { billingGroupCostReports; 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
        [("BillingGroupCostReports",
           (Option.map x.billingGroupCostReports
              ~f:BillingGroupCostReportList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let billingGroupCostReports =
        (Option.map ~f:BillingGroupCostReportList.of_xml)
          (Xml.child xml_arg0 "BillingGroupCostReports") in
      make ?nextToken ?billingGroupCostReports ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let billingGroupCostReports =
        field_map json__ "BillingGroupCostReports"
          BillingGroupCostReportList.of_json in
      make ?nextToken ?billingGroupCostReports ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A paginated call to retrieve a summary report of actual Amazon Web Services charges and the calculated Amazon Web Services charges based on the associated pricing plan of a billing group."]
module ListBillingGroupCostReportsInput =
  struct
    type nonrec t =
      {
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc "The preferred billing period for your report."];
      maxResults: MaxBillingGroupResults.t option
        [@ocaml.doc "The maximum number of reports to retrieve."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used on subsequent calls to get reports."];
      filters: ListBillingGroupCostReportsFilter.t option
        [@ocaml.doc
          "A ListBillingGroupCostReportsFilter to specify billing groups to retrieve reports from."]}
    let make ?billingPeriod =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ?filters ->
            fun () -> { billingPeriod; maxResults; nextToken; filters }
    let to_value x =
      structure_to_value
        [("BillingPeriod",
           (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxBillingGroupResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("Filters",
          (Option.map x.filters ~f:ListBillingGroupCostReportsFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:ListBillingGroupCostReportsFilter.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxBillingGroupResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      make ?filters ?nextToken ?maxResults ?billingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters =
        field_map json__ "Filters" ListBillingGroupCostReportsFilter.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults =
        field_map json__ "MaxResults" MaxBillingGroupResults.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      make ?filters ?nextToken ?maxResults ?billingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A paginated call to retrieve a summary report of actual Amazon Web Services charges and the calculated Amazon Web Services charges based on the associated pricing plan of a billing group."]
module ListAccountAssociationsOutput =
  struct
    type nonrec t =
      {
      linkedAccounts: AccountAssociationsList.t option
        [@ocaml.doc "The list of linked accounts in the payer account."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used on subsequent calls to get accounts."]}
    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 ?linkedAccounts =
      fun ?nextToken -> fun () -> { linkedAccounts; 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
        [("LinkedAccounts",
           (Option.map x.linkedAccounts ~f:AccountAssociationsList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let linkedAccounts =
        (Option.map ~f:AccountAssociationsList.of_xml)
          (Xml.child xml_arg0 "LinkedAccounts") in
      make ?nextToken ?linkedAccounts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let linkedAccounts =
        field_map json__ "LinkedAccounts" AccountAssociationsList.of_json in
      make ?nextToken ?linkedAccounts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is a paginated call to list linked accounts that are linked to the payer account for the specified time period. If no information is provided, the current billing period is used. The response will optionally include the billing group that's associated with the linked account."]
module ListAccountAssociationsInput =
  struct
    type nonrec t =
      {
      billingPeriod: BillingPeriod.t option
        [@ocaml.doc
          "The preferred billing period to get account associations."];
      filters: ListAccountAssociationsFilter.t option
        [@ocaml.doc
          "The filter on the account ID of the linked account, or any of the following: MONITORED: linked accounts that are associated to billing groups. UNMONITORED: linked accounts that aren't associated to billing groups. Billing Group Arn: linked accounts that are associated to the provided billing group Arn."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used on subsequent calls to retrieve accounts."]}
    let make ?billingPeriod =
      fun ?filters ->
        fun ?nextToken -> fun () -> { billingPeriod; filters; nextToken }
    let to_value x =
      structure_to_value
        [("BillingPeriod",
           (Option.map x.billingPeriod ~f:BillingPeriod.to_value));
        ("Filters",
          (Option.map x.filters ~f:ListAccountAssociationsFilter.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:ListAccountAssociationsFilter.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let billingPeriod =
        (Option.map ~f:BillingPeriod.of_xml)
          (Xml.child xml_arg0 "BillingPeriod") in
      make ?nextToken ?filters ?billingPeriod ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let filters =
        field_map json__ "Filters" ListAccountAssociationsFilter.of_json in
      let billingPeriod =
        field_map json__ "BillingPeriod" BillingPeriod.of_json in
      make ?nextToken ?filters ?billingPeriod ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is a paginated call to list linked accounts that are linked to the payer account for the specified time period. If no information is provided, the current billing period is used. The response will optionally include the billing group that's associated with the linked account."]
module GetBillingGroupCostReportOutput =
  struct
    type nonrec t =
      {
      billingGroupCostReportResults:
        BillingGroupCostReportResultsList.t option
        [@ocaml.doc "The list of margin summary reports."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token used on subsequent calls to get reports."]}
    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 ?billingGroupCostReportResults =
      fun ?nextToken ->
        fun () -> { billingGroupCostReportResults; 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
        [("BillingGroupCostReportResults",
           (Option.map x.billingGroupCostReportResults
              ~f:BillingGroupCostReportResultsList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let billingGroupCostReportResults =
        (Option.map ~f:BillingGroupCostReportResultsList.of_xml)
          (Xml.child xml_arg0 "BillingGroupCostReportResults") in
      make ?nextToken ?billingGroupCostReportResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let billingGroupCostReportResults =
        field_map json__ "BillingGroupCostReportResults"
          BillingGroupCostReportResultsList.of_json in
      make ?nextToken ?billingGroupCostReportResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the margin summary report, which includes the Amazon Web Services cost and charged amount (pro forma cost) by Amazon Web Services service for a specific billing group."]
module GetBillingGroupCostReportInput =
  struct
    type nonrec t =
      {
      arn: BillingGroupArn.t
        [@ocaml.doc
          "The Amazon Resource Number (ARN) that uniquely identifies the billing group."];
      billingPeriodRange: BillingPeriodRange.t option
        [@ocaml.doc
          "A time range for which the margin summary is effective. You can specify up to 12 months."];
      groupBy: GroupByAttributesList.t option
        [@ocaml.doc
          "A list of strings that specify the attributes that are used to break down costs in the margin summary reports for the billing group. For example, you can view your costs by the Amazon Web Services service name or the billing period."];
      maxResults: MaxBillingGroupCostReportResults.t option
        [@ocaml.doc
          "The maximum number of margin summary reports to retrieve."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token used on subsequent calls to get reports."]}
    let context_ = "GetBillingGroupCostReportInput"
    let make ?billingPeriodRange =
      fun ?groupBy ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ~arn ->
              fun () ->
                { billingPeriodRange; groupBy; maxResults; nextToken; arn }
    let to_value x =
      structure_to_value
        [("Arn", (Some (BillingGroupArn.to_value x.arn)));
        ("BillingPeriodRange",
          (Option.map x.billingPeriodRange ~f:BillingPeriodRange.to_value));
        ("GroupBy", (Option.map x.groupBy ~f:GroupByAttributesList.to_value));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:MaxBillingGroupCostReportResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxBillingGroupCostReportResults.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let groupBy =
        (Option.map ~f:GroupByAttributesList.of_xml)
          (Xml.child xml_arg0 "GroupBy") in
      let billingPeriodRange =
        (Option.map ~f:BillingPeriodRange.of_xml)
          (Xml.child xml_arg0 "BillingPeriodRange") in
      let arn =
        BillingGroupArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ?nextToken ?maxResults ?groupBy ?billingPeriodRange ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults =
        field_map json__ "MaxResults"
          MaxBillingGroupCostReportResults.of_json in
      let groupBy = field_map json__ "GroupBy" GroupByAttributesList.of_json in
      let billingPeriodRange =
        field_map json__ "BillingPeriodRange" BillingPeriodRange.of_json in
      let arn = field_map_exn json__ "Arn" BillingGroupArn.of_json in
      make ?nextToken ?maxResults ?groupBy ?billingPeriodRange ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the margin summary report, which includes the Amazon Web Services cost and charged amount (pro forma cost) by Amazon Web Services service for a specific billing group."]
module DisassociatePricingRulesOutput =
  struct
    type nonrec t =
      {
      arn: PricingPlanArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the pricing plan that the pricing rules successfully disassociated from."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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)
      | "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)
      | "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))]
      | `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:PricingPlanArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:PricingPlanArn.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" PricingPlanArn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a list of pricing rules from a pricing plan."]
module DisassociatePricingRulesInput =
  struct
    type nonrec t =
      {
      arn: PricingPlanArn.t
        [@ocaml.doc
          "The pricing plan Amazon Resource Name (ARN) to disassociate pricing rules from."];
      pricingRuleArns: PricingRuleArnsNonEmptyInput.t
        [@ocaml.doc
          "A list containing the Amazon Resource Name (ARN) of the pricing rules that will be disassociated."]}
    let context_ = "DisassociatePricingRulesInput"
    let make ~arn =
      fun ~pricingRuleArns -> fun () -> { arn; pricingRuleArns }
    let to_value x =
      structure_to_value
        [("Arn", (Some (PricingPlanArn.to_value x.arn)));
        ("PricingRuleArns",
          (Some (PricingRuleArnsNonEmptyInput.to_value x.pricingRuleArns)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pricingRuleArns =
        PricingRuleArnsNonEmptyInput.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PricingRuleArns") in
      let arn =
        PricingPlanArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~pricingRuleArns ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pricingRuleArns =
        field_map_exn json__ "PricingRuleArns"
          PricingRuleArnsNonEmptyInput.of_json in
      let arn = field_map_exn json__ "Arn" PricingPlanArn.of_json in
      make ~pricingRuleArns ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a list of pricing rules from a pricing plan."]
module DisassociateAccountsOutput =
  struct
    type nonrec t =
      {
      arn: BillingGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the billing group that the array of account IDs is disassociated from."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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)
      | "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)
      | "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))]
      | `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:BillingGroupArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:BillingGroupArn.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" BillingGroupArn.of_json in
      make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified list of account IDs from the given billing group."]
module DisassociateAccountsInput =
  struct
    type nonrec t =
      {
      arn: BillingGroupArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the billing group that the array of account IDs will disassociate from."];
      accountIds: AccountIdList.t
        [@ocaml.doc "The array of account IDs to disassociate."]}
    let context_ = "DisassociateAccountsInput"
    let make ~arn = fun ~accountIds -> fun () -> { arn; accountIds }
    let to_value x =
      structure_to_value
        [("Arn", (Some (BillingGroupArn.to_value x.arn)));
        ("AccountIds", (Some (AccountIdList.to_value x.accountIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountIds =
        AccountIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AccountIds") in
      let arn =
        BillingGroupArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~accountIds ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountIds =
        field_map_exn json__ "AccountIds" AccountIdList.of_json in
      let arn = field_map_exn json__ "Arn" BillingGroupArn.of_json in
      make ~accountIds ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified list of account IDs from the given billing group."]
module DeletePricingRuleOutput =
  struct
    type nonrec t =
      {
      arn: PricingRuleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the deleted pricing rule."]}
    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:PricingRuleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:PricingRuleArn.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" PricingRuleArn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the pricing rule that's identified by the input Amazon Resource Name (ARN)."]
module DeletePricingRuleInput =
  struct
    type nonrec t =
      {
      arn: PricingRuleArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the pricing rule that you are deleting."]}
    let context_ = "DeletePricingRuleInput"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("Arn", (Some (PricingRuleArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        PricingRuleArn.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" PricingRuleArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the pricing rule that's identified by the input Amazon Resource Name (ARN)."]
module DeletePricingPlanOutput =
  struct
    type nonrec t =
      {
      arn: PricingPlanArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the deleted pricing plan."]}
    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:PricingPlanArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:PricingPlanArn.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" PricingPlanArn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a pricing plan. The pricing plan must not be associated with any billing groups to delete successfully."]
module DeletePricingPlanInput =
  struct
    type nonrec t =
      {
      arn: PricingPlanArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the pricing plan that you're deleting."]}
    let context_ = "DeletePricingPlanInput"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("Arn", (Some (PricingPlanArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        PricingPlanArn.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" PricingPlanArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a pricing plan. The pricing plan must not be associated with any billing groups to delete successfully."]
module DeleteCustomLineItemOutput =
  struct
    type nonrec t =
      {
      arn: CustomLineItemArn.t option
        [@ocaml.doc "The ARN of the deleted custom line item."]}
    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:CustomLineItemArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:CustomLineItemArn.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" CustomLineItemArn.of_json in
      make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the custom line item identified by the given ARN in the current, or previous billing period."]
module DeleteCustomLineItemInput =
  struct
    type nonrec t =
      {
      arn: CustomLineItemArn.t
        [@ocaml.doc "The ARN of the custom line item to be deleted."];
      billingPeriodRange: CustomLineItemBillingPeriodRange.t option }
    let context_ = "DeleteCustomLineItemInput"
    let make ?billingPeriodRange =
      fun ~arn -> fun () -> { billingPeriodRange; arn }
    let to_value x =
      structure_to_value
        [("Arn", (Some (CustomLineItemArn.to_value x.arn)));
        ("BillingPeriodRange",
          (Option.map x.billingPeriodRange
             ~f:CustomLineItemBillingPeriodRange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingPeriodRange =
        (Option.map ~f:CustomLineItemBillingPeriodRange.of_xml)
          (Xml.child xml_arg0 "BillingPeriodRange") in
      let arn =
        CustomLineItemArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ?billingPeriodRange ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingPeriodRange =
        field_map json__ "BillingPeriodRange"
          CustomLineItemBillingPeriodRange.of_json in
      let arn = field_map_exn json__ "Arn" CustomLineItemArn.of_json in
      make ?billingPeriodRange ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the custom line item identified by the given ARN in the current, or previous billing period."]
module DeleteBillingGroupOutput =
  struct
    type nonrec t =
      {
      arn: BillingGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the deleted billing group."]}
    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 ?arn = fun () -> { arn }
    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
        [("Arn", (Option.map x.arn ~f:BillingGroupArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:BillingGroupArn.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" BillingGroupArn.of_json in
      make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a billing group."]
module DeleteBillingGroupInput =
  struct
    type nonrec t =
      {
      arn: BillingGroupArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the billing group that you're deleting."]}
    let context_ = "DeleteBillingGroupInput"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("Arn", (Some (BillingGroupArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        BillingGroupArn.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" BillingGroupArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a billing group."]
module CreatePricingRuleOutput =
  struct
    type nonrec t =
      {
      arn: PricingRuleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the created pricing rule."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceLimitExceededException of ServiceLimitExceededException.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)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.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)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.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))]
      | `ServiceLimitExceededException e ->
          `Assoc
            [("error", (`String "ServiceLimitExceededException"));
            ("details", (ServiceLimitExceededException.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:PricingRuleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:PricingRuleArn.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" PricingRuleArn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a pricing rule can be associated to a pricing plan, or a set of pricing plans."]
module CreatePricingRuleInput =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you specify to ensure idempotency of the request. Idempotency ensures that an API request completes no more than one time. With an idempotent request, if the original request completes successfully, any subsequent retries complete successfully without performing any further actions."];
      name: PricingRuleName.t
        [@ocaml.doc
          "The pricing rule name. The names must be unique to each pricing rule."];
      description: PricingRuleDescription.t option
        [@ocaml.doc "The pricing rule description."];
      scope: PricingRuleScope.t
        [@ocaml.doc
          "The scope of pricing rule that indicates if it's globally applicable, or it's service-specific."];
      type_: PricingRuleType.t [@ocaml.doc "The type of pricing rule."];
      modifierPercentage: ModifierPercentage.t option
        [@ocaml.doc
          "A percentage modifier that's applied on the public pricing rates. Your entry will be rounded to the nearest 2 decimal places."];
      service: Service.t option
        [@ocaml.doc
          "If the Scope attribute is set to SERVICE or SKU, the attribute indicates which service the PricingRule is applicable for."];
      tags: TagMap.t option
        [@ocaml.doc
          "A map that contains tag keys and tag values that are attached to a pricing rule."];
      billingEntity: BillingEntity.t option
        [@ocaml.doc
          "The seller of services provided by Amazon Web Services, their affiliates, or third-party providers selling services via Amazon Web Services Marketplace."];
      tiering: CreateTieringInput.t option
        [@ocaml.doc
          "The set of tiering configurations for the pricing rule."];
      usageType: UsageType.t option
        [@ocaml.doc
          "Usage type is the unit that each service uses to measure the usage of a specific type of resource. If the Scope attribute is set to SKU, this attribute indicates which usage type the PricingRule is modifying. For example, USW2-BoxUsage:m2.2xlarge describes an M2 High Memory Double Extra Large instance in the US West (Oregon) Region."];
      operation: Operation.t option
        [@ocaml.doc
          "Operation is the specific Amazon Web Services action covered by this line item. This describes the specific usage of the line item. If the Scope attribute is set to SKU, this attribute indicates which operation the PricingRule is modifying. For example, a value of RunInstances:0202 indicates the operation of running an Amazon EC2 instance."]}
    let context_ = "CreatePricingRuleInput"
    let make ?clientToken =
      fun ?description ->
        fun ?modifierPercentage ->
          fun ?service ->
            fun ?tags ->
              fun ?billingEntity ->
                fun ?tiering ->
                  fun ?usageType ->
                    fun ?operation ->
                      fun ~name ->
                        fun ~scope ->
                          fun ~type_ ->
                            fun () ->
                              {
                                clientToken;
                                description;
                                modifierPercentage;
                                service;
                                tags;
                                billingEntity;
                                tiering;
                                usageType;
                                operation;
                                name;
                                scope;
                                type_
                              }
    let to_value x =
      structure_to_value
        [("X-Amzn-Client-Token",
           (Option.map x.clientToken ~f:ClientToken.to_value));
        ("Name", (Some (PricingRuleName.to_value x.name)));
        ("Description",
          (Option.map x.description ~f:PricingRuleDescription.to_value));
        ("Scope", (Some (PricingRuleScope.to_value x.scope)));
        ("Type", (Some (PricingRuleType.to_value x.type_)));
        ("ModifierPercentage",
          (Option.map x.modifierPercentage ~f:ModifierPercentage.to_value));
        ("Service", (Option.map x.service ~f:Service.to_value));
        ("Tags", (Option.map x.tags ~f:TagMap.to_value));
        ("BillingEntity",
          (Option.map x.billingEntity ~f:BillingEntity.to_value));
        ("Tiering", (Option.map x.tiering ~f:CreateTieringInput.to_value));
        ("UsageType", (Option.map x.usageType ~f:UsageType.to_value));
        ("Operation", (Option.map x.operation ~f:Operation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operation =
        (Option.map ~f:Operation.of_xml) (Xml.child xml_arg0 "Operation") in
      let usageType =
        (Option.map ~f:UsageType.of_xml) (Xml.child xml_arg0 "UsageType") in
      let tiering =
        (Option.map ~f:CreateTieringInput.of_xml)
          (Xml.child xml_arg0 "Tiering") in
      let billingEntity =
        (Option.map ~f:BillingEntity.of_xml)
          (Xml.child xml_arg0 "BillingEntity") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      let service =
        (Option.map ~f:Service.of_xml) (Xml.child xml_arg0 "Service") in
      let modifierPercentage =
        (Option.map ~f:ModifierPercentage.of_xml)
          (Xml.child xml_arg0 "ModifierPercentage") in
      let type_ =
        PricingRuleType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let scope =
        PricingRuleScope.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Scope") in
      let description =
        (Option.map ~f:PricingRuleDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        PricingRuleName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml)
          (Xml.child xml_arg0 "X-Amzn-Client-Token") in
      make ?operation ?usageType ?tiering ?billingEntity ?tags ?service
        ?modifierPercentage ~type_ ~scope ?description ~name ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operation = field_map json__ "Operation" Operation.of_json in
      let usageType = field_map json__ "UsageType" UsageType.of_json in
      let tiering = field_map json__ "Tiering" CreateTieringInput.of_json in
      let billingEntity =
        field_map json__ "BillingEntity" BillingEntity.of_json in
      let tags = field_map json__ "Tags" TagMap.of_json in
      let service = field_map json__ "Service" Service.of_json in
      let modifierPercentage =
        field_map json__ "ModifierPercentage" ModifierPercentage.of_json in
      let type_ = field_map_exn json__ "Type" PricingRuleType.of_json in
      let scope = field_map_exn json__ "Scope" PricingRuleScope.of_json in
      let description =
        field_map json__ "Description" PricingRuleDescription.of_json in
      let name = field_map_exn json__ "Name" PricingRuleName.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      make ?operation ?usageType ?tiering ?billingEntity ?tags ?service
        ?modifierPercentage ~type_ ~scope ?description ~name ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a pricing rule can be associated to a pricing plan, or a set of pricing plans."]
module CreatePricingPlanOutput =
  struct
    type nonrec t =
      {
      arn: PricingPlanArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the created pricing plan."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceLimitExceededException of ServiceLimitExceededException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceLimitExceededException e ->
          `Assoc
            [("error", (`String "ServiceLimitExceededException"));
            ("details", (ServiceLimitExceededException.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:PricingPlanArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:PricingPlanArn.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" PricingPlanArn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a pricing plan that is used for computing Amazon Web Services charges for billing groups."]
module CreatePricingPlanInput =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you specify to ensure idempotency of the request. Idempotency ensures that an API request completes no more than one time. With an idempotent request, if the original request completes successfully, any subsequent retries complete successfully without performing any further actions."];
      name: PricingPlanName.t
        [@ocaml.doc
          "The name of the pricing plan. The names must be unique to each pricing plan."];
      description: PricingPlanDescription.t option
        [@ocaml.doc "The description of the pricing plan."];
      pricingRuleArns: PricingRuleArnsInput.t option
        [@ocaml.doc
          "A list of Amazon Resource Names (ARNs) that define the pricing plan parameters."];
      tags: TagMap.t option
        [@ocaml.doc
          "A map that contains tag keys and tag values that are attached to a pricing plan."]}
    let context_ = "CreatePricingPlanInput"
    let make ?clientToken =
      fun ?description ->
        fun ?pricingRuleArns ->
          fun ?tags ->
            fun ~name ->
              fun () ->
                { clientToken; description; pricingRuleArns; tags; name }
    let to_value x =
      structure_to_value
        [("X-Amzn-Client-Token",
           (Option.map x.clientToken ~f:ClientToken.to_value));
        ("Name", (Some (PricingPlanName.to_value x.name)));
        ("Description",
          (Option.map x.description ~f:PricingPlanDescription.to_value));
        ("PricingRuleArns",
          (Option.map x.pricingRuleArns ~f:PricingRuleArnsInput.to_value));
        ("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      let pricingRuleArns =
        (Option.map ~f:PricingRuleArnsInput.of_xml)
          (Xml.child xml_arg0 "PricingRuleArns") in
      let description =
        (Option.map ~f:PricingPlanDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        PricingPlanName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml)
          (Xml.child xml_arg0 "X-Amzn-Client-Token") in
      make ?tags ?pricingRuleArns ?description ~name ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagMap.of_json in
      let pricingRuleArns =
        field_map json__ "PricingRuleArns" PricingRuleArnsInput.of_json in
      let description =
        field_map json__ "Description" PricingPlanDescription.of_json in
      let name = field_map_exn json__ "Name" PricingPlanName.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      make ?tags ?pricingRuleArns ?description ~name ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a pricing plan that is used for computing Amazon Web Services charges for billing groups."]
module CreateCustomLineItemOutput =
  struct
    type nonrec t =
      {
      arn: CustomLineItemArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the created custom line item."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceLimitExceededException of ServiceLimitExceededException.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)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.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)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.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))]
      | `ServiceLimitExceededException e ->
          `Assoc
            [("error", (`String "ServiceLimitExceededException"));
            ("details", (ServiceLimitExceededException.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:CustomLineItemArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:CustomLineItemArn.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" CustomLineItemArn.of_json in
      make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a custom line item that can be used to create a one-time fixed charge that can be applied to a single billing group for the current or previous billing period. The one-time fixed charge is either a fee or discount."]
module CreateCustomLineItemInput =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you specify to ensure idempotency of the request. Idempotency ensures that an API request completes no more than one time. With an idempotent request, if the original request completes successfully, any subsequent retries complete successfully without performing any further actions."];
      name: CustomLineItemName.t
        [@ocaml.doc "The name of the custom line item."];
      description: CustomLineItemDescription.t
        [@ocaml.doc
          "The description of the custom line item. This is shown on the Bills page in association with the charge value."];
      billingGroupArn: BillingGroupArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that references the billing group where the custom line item applies to."];
      billingPeriodRange: CustomLineItemBillingPeriodRange.t option
        [@ocaml.doc
          "A time range for which the custom line item is effective."];
      tags: TagMap.t option
        [@ocaml.doc
          "A map that contains tag keys and tag values that are attached to a custom line item."];
      chargeDetails: CustomLineItemChargeDetails.t
        [@ocaml.doc
          "A CustomLineItemChargeDetails that describes the charge details for a custom line item."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account in which this custom line item will be applied to."];
      computationRule: ComputationRuleEnum.t option
        [@ocaml.doc
          "Specifies how the custom line item charges are computed."];
      presentationDetails: PresentationObject.t option
        [@ocaml.doc
          "Details controlling how the custom line item charges are presented in the bill. Contains specifications for which service the charges will be shown under."]}
    let context_ = "CreateCustomLineItemInput"
    let make ?clientToken =
      fun ?billingPeriodRange ->
        fun ?tags ->
          fun ?accountId ->
            fun ?computationRule ->
              fun ?presentationDetails ->
                fun ~name ->
                  fun ~description ->
                    fun ~billingGroupArn ->
                      fun ~chargeDetails ->
                        fun () ->
                          {
                            clientToken;
                            billingPeriodRange;
                            tags;
                            accountId;
                            computationRule;
                            presentationDetails;
                            name;
                            description;
                            billingGroupArn;
                            chargeDetails
                          }
    let to_value x =
      structure_to_value
        [("X-Amzn-Client-Token",
           (Option.map x.clientToken ~f:ClientToken.to_value));
        ("Name", (Some (CustomLineItemName.to_value x.name)));
        ("Description",
          (Some (CustomLineItemDescription.to_value x.description)));
        ("BillingGroupArn",
          (Some (BillingGroupArn.to_value x.billingGroupArn)));
        ("BillingPeriodRange",
          (Option.map x.billingPeriodRange
             ~f:CustomLineItemBillingPeriodRange.to_value));
        ("Tags", (Option.map x.tags ~f:TagMap.to_value));
        ("ChargeDetails",
          (Some (CustomLineItemChargeDetails.to_value x.chargeDetails)));
        ("AccountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("ComputationRule",
          (Option.map x.computationRule ~f:ComputationRuleEnum.to_value));
        ("PresentationDetails",
          (Option.map x.presentationDetails ~f:PresentationObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let presentationDetails =
        (Option.map ~f:PresentationObject.of_xml)
          (Xml.child xml_arg0 "PresentationDetails") in
      let computationRule =
        (Option.map ~f:ComputationRuleEnum.of_xml)
          (Xml.child xml_arg0 "ComputationRule") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let chargeDetails =
        CustomLineItemChargeDetails.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ChargeDetails") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      let billingPeriodRange =
        (Option.map ~f:CustomLineItemBillingPeriodRange.of_xml)
          (Xml.child xml_arg0 "BillingPeriodRange") in
      let billingGroupArn =
        BillingGroupArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BillingGroupArn") in
      let description =
        CustomLineItemDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Description") in
      let name =
        CustomLineItemName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml)
          (Xml.child xml_arg0 "X-Amzn-Client-Token") in
      make ?presentationDetails ?computationRule ?accountId ~chargeDetails
        ?tags ?billingPeriodRange ~billingGroupArn ~description ~name
        ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let presentationDetails =
        field_map json__ "PresentationDetails" PresentationObject.of_json in
      let computationRule =
        field_map json__ "ComputationRule" ComputationRuleEnum.of_json in
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      let chargeDetails =
        field_map_exn json__ "ChargeDetails"
          CustomLineItemChargeDetails.of_json in
      let tags = field_map json__ "Tags" TagMap.of_json in
      let billingPeriodRange =
        field_map json__ "BillingPeriodRange"
          CustomLineItemBillingPeriodRange.of_json in
      let billingGroupArn =
        field_map_exn json__ "BillingGroupArn" BillingGroupArn.of_json in
      let description =
        field_map_exn json__ "Description" CustomLineItemDescription.of_json in
      let name = field_map_exn json__ "Name" CustomLineItemName.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      make ?presentationDetails ?computationRule ?accountId ~chargeDetails
        ?tags ?billingPeriodRange ~billingGroupArn ~description ~name
        ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a custom line item that can be used to create a one-time fixed charge that can be applied to a single billing group for the current or previous billing period. The one-time fixed charge is either a fee or discount."]
module CreateBillingGroupOutput =
  struct
    type nonrec t =
      {
      arn: BillingGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the created billing group."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceLimitExceededException of ServiceLimitExceededException.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)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.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)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.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))]
      | `ServiceLimitExceededException e ->
          `Assoc
            [("error", (`String "ServiceLimitExceededException"));
            ("details", (ServiceLimitExceededException.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:BillingGroupArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:BillingGroupArn.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" BillingGroupArn.of_json in
      make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a billing group that resembles a consolidated billing family that Amazon Web Services charges, based off of the predefined pricing plan computation."]
module CreateBillingGroupInput =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you specify to ensure idempotency of the request. Idempotency ensures that an API request completes no more than one time. With an idempotent request, if the original request completes successfully, any subsequent retries complete successfully without performing any further actions."];
      name: BillingGroupName.t
        [@ocaml.doc "The billing group name. The names must be unique."];
      accountGrouping: AccountGrouping.t
        [@ocaml.doc
          "The set of accounts that will be under the billing group. The set of accounts resemble the linked accounts in a consolidated billing family."];
      computationPreference: ComputationPreference.t
        [@ocaml.doc
          "The preferences and settings that will be used to compute the Amazon Web Services charges for a billing group."];
      primaryAccountId: AccountId.t option
        [@ocaml.doc
          "The account ID that serves as the main account in a billing group."];
      description: BillingGroupDescription.t option
        [@ocaml.doc "The description of the billing group."];
      tags: TagMap.t option
        [@ocaml.doc
          "A map that contains tag keys and tag values that are attached to a billing group. This feature isn't available during the beta."]}
    let context_ = "CreateBillingGroupInput"
    let make ?clientToken =
      fun ?primaryAccountId ->
        fun ?description ->
          fun ?tags ->
            fun ~name ->
              fun ~accountGrouping ->
                fun ~computationPreference ->
                  fun () ->
                    {
                      clientToken;
                      primaryAccountId;
                      description;
                      tags;
                      name;
                      accountGrouping;
                      computationPreference
                    }
    let to_value x =
      structure_to_value
        [("X-Amzn-Client-Token",
           (Option.map x.clientToken ~f:ClientToken.to_value));
        ("Name", (Some (BillingGroupName.to_value x.name)));
        ("AccountGrouping",
          (Some (AccountGrouping.to_value x.accountGrouping)));
        ("ComputationPreference",
          (Some (ComputationPreference.to_value x.computationPreference)));
        ("PrimaryAccountId",
          (Option.map x.primaryAccountId ~f:AccountId.to_value));
        ("Description",
          (Option.map x.description ~f:BillingGroupDescription.to_value));
        ("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      let description =
        (Option.map ~f:BillingGroupDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let primaryAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "PrimaryAccountId") in
      let computationPreference =
        ComputationPreference.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComputationPreference") in
      let accountGrouping =
        AccountGrouping.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AccountGrouping") in
      let name =
        BillingGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml)
          (Xml.child xml_arg0 "X-Amzn-Client-Token") in
      make ?tags ?description ?primaryAccountId ~computationPreference
        ~accountGrouping ~name ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagMap.of_json in
      let description =
        field_map json__ "Description" BillingGroupDescription.of_json in
      let primaryAccountId =
        field_map json__ "PrimaryAccountId" AccountId.of_json in
      let computationPreference =
        field_map_exn json__ "ComputationPreference"
          ComputationPreference.of_json in
      let accountGrouping =
        field_map_exn json__ "AccountGrouping" AccountGrouping.of_json in
      let name = field_map_exn json__ "Name" BillingGroupName.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      make ?tags ?description ?primaryAccountId ~computationPreference
        ~accountGrouping ~name ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a billing group that resembles a consolidated billing family that Amazon Web Services charges, based off of the predefined pricing plan computation."]
module BatchDisassociateResourcesFromCustomLineItemOutput =
  struct
    type nonrec t =
      {
      successfullyDisassociatedResources:
        DisassociateResourcesResponseList.t option
        [@ocaml.doc
          "A list of DisassociateResourceResponseElement for each resource that's been disassociated from a percentage custom line item successfully."];
      failedDisassociatedResources:
        DisassociateResourcesResponseList.t option
        [@ocaml.doc
          "A list of DisassociateResourceResponseElement for each resource that failed disassociation from a percentage custom line item."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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 ?successfullyDisassociatedResources =
      fun ?failedDisassociatedResources ->
        fun () ->
          { successfullyDisassociatedResources; failedDisassociatedResources
          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("SuccessfullyDisassociatedResources",
           (Option.map x.successfullyDisassociatedResources
              ~f:DisassociateResourcesResponseList.to_value));
        ("FailedDisassociatedResources",
          (Option.map x.failedDisassociatedResources
             ~f:DisassociateResourcesResponseList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedDisassociatedResources =
        (Option.map ~f:DisassociateResourcesResponseList.of_xml)
          (Xml.child xml_arg0 "FailedDisassociatedResources") in
      let successfullyDisassociatedResources =
        (Option.map ~f:DisassociateResourcesResponseList.of_xml)
          (Xml.child xml_arg0 "SuccessfullyDisassociatedResources") in
      make ?failedDisassociatedResources ?successfullyDisassociatedResources
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedDisassociatedResources =
        field_map json__ "FailedDisassociatedResources"
          DisassociateResourcesResponseList.of_json in
      let successfullyDisassociatedResources =
        field_map json__ "SuccessfullyDisassociatedResources"
          DisassociateResourcesResponseList.of_json in
      make ?failedDisassociatedResources ?successfullyDisassociatedResources
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a batch of resources from a percentage custom line item."]
module BatchDisassociateResourcesFromCustomLineItemInput =
  struct
    type nonrec t =
      {
      targetArn: CustomLineItemArn.t
        [@ocaml.doc
          "A percentage custom line item ARN to disassociate the resources from."];
      resourceArns: CustomLineItemBatchDisassociationsList.t
        [@ocaml.doc
          "A list containing the ARNs of resources to be disassociated."];
      billingPeriodRange: CustomLineItemBillingPeriodRange.t option }
    let context_ = "BatchDisassociateResourcesFromCustomLineItemInput"
    let make ?billingPeriodRange =
      fun ~targetArn ->
        fun ~resourceArns ->
          fun () -> { billingPeriodRange; targetArn; resourceArns }
    let to_value x =
      structure_to_value
        [("TargetArn", (Some (CustomLineItemArn.to_value x.targetArn)));
        ("ResourceArns",
          (Some
             (CustomLineItemBatchDisassociationsList.to_value x.resourceArns)));
        ("BillingPeriodRange",
          (Option.map x.billingPeriodRange
             ~f:CustomLineItemBillingPeriodRange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingPeriodRange =
        (Option.map ~f:CustomLineItemBillingPeriodRange.of_xml)
          (Xml.child xml_arg0 "BillingPeriodRange") in
      let resourceArns =
        CustomLineItemBatchDisassociationsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArns") in
      let targetArn =
        CustomLineItemArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetArn") in
      make ?billingPeriodRange ~resourceArns ~targetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingPeriodRange =
        field_map json__ "BillingPeriodRange"
          CustomLineItemBillingPeriodRange.of_json in
      let resourceArns =
        field_map_exn json__ "ResourceArns"
          CustomLineItemBatchDisassociationsList.of_json in
      let targetArn =
        field_map_exn json__ "TargetArn" CustomLineItemArn.of_json in
      make ?billingPeriodRange ~resourceArns ~targetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a batch of resources from a percentage custom line item."]
module BatchAssociateResourcesToCustomLineItemOutput =
  struct
    type nonrec t =
      {
      successfullyAssociatedResources:
        AssociateResourcesResponseList.t option
        [@ocaml.doc
          "A list of AssociateResourceResponseElement for each resource that's been associated to a percentage custom line item successfully."];
      failedAssociatedResources: AssociateResourcesResponseList.t option
        [@ocaml.doc
          "A list of AssociateResourceResponseElement for each resource that failed association to a percentage custom line item."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceLimitExceededException of ServiceLimitExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?successfullyAssociatedResources =
      fun ?failedAssociatedResources ->
        fun () ->
          { successfullyAssociatedResources; failedAssociatedResources }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceLimitExceededException e ->
          `Assoc
            [("error", (`String "ServiceLimitExceededException"));
            ("details", (ServiceLimitExceededException.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
        [("SuccessfullyAssociatedResources",
           (Option.map x.successfullyAssociatedResources
              ~f:AssociateResourcesResponseList.to_value));
        ("FailedAssociatedResources",
          (Option.map x.failedAssociatedResources
             ~f:AssociateResourcesResponseList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedAssociatedResources =
        (Option.map ~f:AssociateResourcesResponseList.of_xml)
          (Xml.child xml_arg0 "FailedAssociatedResources") in
      let successfullyAssociatedResources =
        (Option.map ~f:AssociateResourcesResponseList.of_xml)
          (Xml.child xml_arg0 "SuccessfullyAssociatedResources") in
      make ?failedAssociatedResources ?successfullyAssociatedResources ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedAssociatedResources =
        field_map json__ "FailedAssociatedResources"
          AssociateResourcesResponseList.of_json in
      let successfullyAssociatedResources =
        field_map json__ "SuccessfullyAssociatedResources"
          AssociateResourcesResponseList.of_json in
      make ?failedAssociatedResources ?successfullyAssociatedResources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a batch of resources to a percentage custom line item."]
module BatchAssociateResourcesToCustomLineItemInput =
  struct
    type nonrec t =
      {
      targetArn: CustomLineItemArn.t
        [@ocaml.doc
          "A percentage custom line item ARN to associate the resources to."];
      resourceArns: CustomLineItemBatchAssociationsList.t
        [@ocaml.doc
          "A list containing the ARNs of the resources to be associated."];
      billingPeriodRange: CustomLineItemBillingPeriodRange.t option }
    let context_ = "BatchAssociateResourcesToCustomLineItemInput"
    let make ?billingPeriodRange =
      fun ~targetArn ->
        fun ~resourceArns ->
          fun () -> { billingPeriodRange; targetArn; resourceArns }
    let to_value x =
      structure_to_value
        [("TargetArn", (Some (CustomLineItemArn.to_value x.targetArn)));
        ("ResourceArns",
          (Some (CustomLineItemBatchAssociationsList.to_value x.resourceArns)));
        ("BillingPeriodRange",
          (Option.map x.billingPeriodRange
             ~f:CustomLineItemBillingPeriodRange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let billingPeriodRange =
        (Option.map ~f:CustomLineItemBillingPeriodRange.of_xml)
          (Xml.child xml_arg0 "BillingPeriodRange") in
      let resourceArns =
        CustomLineItemBatchAssociationsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArns") in
      let targetArn =
        CustomLineItemArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetArn") in
      make ?billingPeriodRange ~resourceArns ~targetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let billingPeriodRange =
        field_map json__ "BillingPeriodRange"
          CustomLineItemBillingPeriodRange.of_json in
      let resourceArns =
        field_map_exn json__ "ResourceArns"
          CustomLineItemBatchAssociationsList.of_json in
      let targetArn =
        field_map_exn json__ "TargetArn" CustomLineItemArn.of_json in
      make ?billingPeriodRange ~resourceArns ~targetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a batch of resources to a percentage custom line item."]
module AssociatePricingRulesOutput =
  struct
    type nonrec t =
      {
      arn: PricingPlanArn.t option
        [@ocaml.doc
          "The PricingPlanArn that the PricingRuleArns are associated with."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceLimitExceededException of ServiceLimitExceededException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceLimitExceededException e ->
          `Assoc
            [("error", (`String "ServiceLimitExceededException"));
            ("details", (ServiceLimitExceededException.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:PricingPlanArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:PricingPlanArn.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" PricingPlanArn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Connects an array of PricingRuleArns to a defined PricingPlan. The maximum number PricingRuleArn that can be associated in one call is 30."]
module AssociatePricingRulesInput =
  struct
    type nonrec t =
      {
      arn: PricingPlanArn.t
        [@ocaml.doc
          "The PricingPlanArn that the PricingRuleArns are associated with."];
      pricingRuleArns: PricingRuleArnsNonEmptyInput.t
        [@ocaml.doc
          "The PricingRuleArns that are associated with the Pricing Plan."]}
    let context_ = "AssociatePricingRulesInput"
    let make ~arn =
      fun ~pricingRuleArns -> fun () -> { arn; pricingRuleArns }
    let to_value x =
      structure_to_value
        [("Arn", (Some (PricingPlanArn.to_value x.arn)));
        ("PricingRuleArns",
          (Some (PricingRuleArnsNonEmptyInput.to_value x.pricingRuleArns)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pricingRuleArns =
        PricingRuleArnsNonEmptyInput.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PricingRuleArns") in
      let arn =
        PricingPlanArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~pricingRuleArns ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pricingRuleArns =
        field_map_exn json__ "PricingRuleArns"
          PricingRuleArnsNonEmptyInput.of_json in
      let arn = field_map_exn json__ "Arn" PricingPlanArn.of_json in
      make ~pricingRuleArns ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Connects an array of PricingRuleArns to a defined PricingPlan. The maximum number PricingRuleArn that can be associated in one call is 30."]
module AssociateAccountsOutput =
  struct
    type nonrec t =
      {
      arn: BillingGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the billing group that associates the array of account IDs."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceLimitExceededException of ServiceLimitExceededException.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)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceLimitExceededException e ->
          `Assoc
            [("error", (`String "ServiceLimitExceededException"));
            ("details", (ServiceLimitExceededException.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:BillingGroupArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:BillingGroupArn.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" BillingGroupArn.of_json in
      make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Connects an array of account IDs in a consolidated billing family to a predefined billing group. The account IDs must be a part of the consolidated billing family during the current month, and not already associated with another billing group. The maximum number of accounts that can be associated in one call is 30."]
module AssociateAccountsInput =
  struct
    type nonrec t =
      {
      arn: BillingGroupArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the billing group that associates the array of account IDs."];
      accountIds: AccountIdList.t
        [@ocaml.doc "The associating array of account IDs."]}
    let context_ = "AssociateAccountsInput"
    let make ~arn = fun ~accountIds -> fun () -> { arn; accountIds }
    let to_value x =
      structure_to_value
        [("Arn", (Some (BillingGroupArn.to_value x.arn)));
        ("AccountIds", (Some (AccountIdList.to_value x.accountIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountIds =
        AccountIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AccountIds") in
      let arn =
        BillingGroupArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~accountIds ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountIds =
        field_map_exn json__ "AccountIds" AccountIdList.of_json in
      let arn = field_map_exn json__ "Arn" BillingGroupArn.of_json in
      make ~accountIds ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Connects an array of account IDs in a consolidated billing family to a predefined billing group. The account IDs must be a part of the consolidated billing family during the current month, and not already associated with another billing group. The maximum number of accounts that can be associated in one call is 30."]