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.freetier
let apiVersion = "2023-09-07"
let endpointPrefix = "freetier"
let serviceFullName = "AWS Free Tier"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "AWSFreeTierService"
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 GenericString =
  struct
    type nonrec t = string
    let context_ = "GenericString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S\\s]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GenericString" j
    let to_json = simple_to_json to_value
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: GenericString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:GenericString.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" GenericString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "You don't have sufficient access to perform this action."]
module 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 AccountPlanStatus =
  struct
    type nonrec t =
      | NOT_STARTED 
      | ACTIVE 
      | EXPIRED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_STARTED -> "NOT_STARTED"
      | ACTIVE -> "ACTIVE"
      | EXPIRED -> "EXPIRED"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_STARTED" -> NOT_STARTED
      | "ACTIVE" -> ACTIVE
      | "EXPIRED" -> EXPIRED
      | 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 AccountPlanStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccountPlanStatus" j)
    let to_json = simple_to_json to_value
  end
module AccountPlanType =
  struct
    type nonrec t =
      | FREE 
      | PAID 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | FREE -> "FREE" | PAID -> "PAID" | Non_static_id s -> s
    let of_string =
      function | "FREE" -> FREE | "PAID" -> PAID | 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 AccountPlanType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccountPlanType" j)
    let to_json = simple_to_json to_value
  end
module ActivityStatus =
  struct
    type nonrec t =
      | NOT_STARTED 
      | IN_PROGRESS 
      | COMPLETED 
      | EXPIRING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_STARTED -> "NOT_STARTED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | COMPLETED -> "COMPLETED"
      | EXPIRING -> "EXPIRING"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_STARTED" -> NOT_STARTED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "COMPLETED" -> COMPLETED
      | "EXPIRING" -> EXPIRING
      | 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 ActivityStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ActivityStatus" j)
    let to_json = simple_to_json to_value
  end
module GenericDouble =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module CurrencyCode =
  struct
    type nonrec t =
      | USD 
      | Non_static_id of string 
    let make i = i
    let to_string = function | USD -> "USD" | Non_static_id s -> s
    let of_string = function | "USD" -> USD | 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 MonetaryAmount =
  struct
    type nonrec t =
      {
      amount: GenericDouble.t option
        [@ocaml.doc "The aggregated monetary amount of credits earned."];
      unit: CurrencyCode.t option
        [@ocaml.doc "The unit that the monetary amount is given in."]}
    let make ?amount = fun ?unit -> fun () -> { amount; unit }
    let to_value x =
      structure_to_value
        [("amount", (Option.map x.amount ~f:GenericDouble.to_value));
        ("unit", (Option.map x.unit ~f:CurrencyCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unit =
        (Option.map ~f:CurrencyCode.of_xml) (Xml.child xml_arg0 "unit") in
      let amount =
        (Option.map ~f:GenericDouble.of_xml) (Xml.child xml_arg0 "amount") in
      make ?unit ?amount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unit = field_map json__ "unit" CurrencyCode.of_json in
      let amount = field_map json__ "amount" GenericDouble.of_json in
      make ?unit ?amount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The monetary amount of the credit."]
module ActivityReward =
  struct
    type nonrec t =
      {
      credit: MonetaryAmount.t option
        [@ocaml.doc "The credits gained by activity rewards."]}
    let make ?credit = fun () -> { credit }
    let to_value x =
      structure_to_value
        [("credit", (Option.map x.credit ~f:MonetaryAmount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let credit =
        (Option.map ~f:MonetaryAmount.of_xml) (Xml.child xml_arg0 "credit") in
      make ?credit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let credit = field_map json__ "credit" MonetaryAmount.of_json in
      make ?credit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The summary of the rewards granted as a result of activities completed."]
module ActivityId =
  struct
    type nonrec t = string
    let context_ = "ActivityId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:32) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (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:"ActivityId" j
    let to_json = simple_to_json to_value
  end
module ActivitySummary =
  struct
    type nonrec t =
      {
      activityId: ActivityId.t option
        [@ocaml.doc "A unique identifier that identifies the activity."];
      title: GenericString.t option [@ocaml.doc "The title of the activity."];
      reward: ActivityReward.t option
        [@ocaml.doc "The reward for the activity."];
      status: ActivityStatus.t option
        [@ocaml.doc "The current status of the activity."]}
    let make ?activityId =
      fun ?title ->
        fun ?reward ->
          fun ?status -> fun () -> { activityId; title; reward; status }
    let to_value x =
      structure_to_value
        [("activityId", (Option.map x.activityId ~f:ActivityId.to_value));
        ("title", (Option.map x.title ~f:GenericString.to_value));
        ("reward", (Option.map x.reward ~f:ActivityReward.to_value));
        ("status", (Option.map x.status ~f:ActivityStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ActivityStatus.of_xml) (Xml.child xml_arg0 "status") in
      let reward =
        (Option.map ~f:ActivityReward.of_xml) (Xml.child xml_arg0 "reward") in
      let title =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "title") in
      let activityId =
        (Option.map ~f:ActivityId.of_xml) (Xml.child xml_arg0 "activityId") in
      make ?status ?reward ?title ?activityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" ActivityStatus.of_json in
      let reward = field_map json__ "reward" ActivityReward.of_json in
      let title = field_map json__ "title" GenericString.of_json in
      let activityId = field_map json__ "activityId" ActivityId.of_json in
      make ?status ?reward ?title ?activityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The summary of activities."]
module Activities =
  struct
    type nonrec t = ActivitySummary.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:ActivitySummary.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:ActivitySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"Activities" ~of_json:ActivitySummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Dimension =
  struct
    type nonrec t =
      | SERVICE 
      | OPERATION 
      | USAGE_TYPE 
      | REGION 
      | FREE_TIER_TYPE 
      | DESCRIPTION 
      | USAGE_PERCENTAGE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SERVICE -> "SERVICE"
      | OPERATION -> "OPERATION"
      | USAGE_TYPE -> "USAGE_TYPE"
      | REGION -> "REGION"
      | FREE_TIER_TYPE -> "FREE_TIER_TYPE"
      | DESCRIPTION -> "DESCRIPTION"
      | USAGE_PERCENTAGE -> "USAGE_PERCENTAGE"
      | Non_static_id s -> s
    let of_string =
      function
      | "SERVICE" -> SERVICE
      | "OPERATION" -> OPERATION
      | "USAGE_TYPE" -> USAGE_TYPE
      | "REGION" -> REGION
      | "FREE_TIER_TYPE" -> FREE_TIER_TYPE
      | "DESCRIPTION" -> DESCRIPTION
      | "USAGE_PERCENTAGE" -> USAGE_PERCENTAGE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Dimension" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Dimension" j)
    let to_json = simple_to_json to_value
  end
module Value =
  struct
    type nonrec t = string
    let context_ = "Value"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (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:"Value" j
    let to_json = simple_to_json to_value
  end
module Values =
  struct
    type nonrec t = Value.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Value.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Value.of_xml)
    let of_json j = list_of_json ~kind:"Values" ~of_json:Value.of_json j
    let to_json v = composed_to_json to_value v
  end
module MatchOption =
  struct
    type nonrec t =
      | EQUALS 
      | STARTS_WITH 
      | ENDS_WITH 
      | CONTAINS 
      | GREATER_THAN_OR_EQUAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EQUALS -> "EQUALS"
      | STARTS_WITH -> "STARTS_WITH"
      | ENDS_WITH -> "ENDS_WITH"
      | CONTAINS -> "CONTAINS"
      | GREATER_THAN_OR_EQUAL -> "GREATER_THAN_OR_EQUAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "EQUALS" -> EQUALS
      | "STARTS_WITH" -> STARTS_WITH
      | "ENDS_WITH" -> ENDS_WITH
      | "CONTAINS" -> CONTAINS
      | "GREATER_THAN_OR_EQUAL" -> GREATER_THAN_OR_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 MatchOptions =
  struct
    type nonrec t = MatchOption.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:MatchOption.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:MatchOption.of_xml)
    let of_json j =
      list_of_json ~kind:"MatchOptions" ~of_json:MatchOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module DimensionValues =
  struct
    type nonrec t =
      {
      key: Dimension.t
        [@ocaml.doc "The name of the dimension that you want to filter on."];
      values: Values.t
        [@ocaml.doc
          "The metadata values you can specify to filter upon, so that the results all match at least one of the specified values."];
      matchOptions: MatchOptions.t
        [@ocaml.doc
          "The match options that you can use to filter your results. You can specify only one of these values in the array."]}
    let context_ = "DimensionValues"
    let make ~key =
      fun ~values ->
        fun ~matchOptions -> fun () -> { key; values; matchOptions }
    let to_value x =
      structure_to_value
        [("Key", (Some (Dimension.to_value x.key)));
        ("Values", (Some (Values.to_value x.values)));
        ("MatchOptions", (Some (MatchOptions.to_value x.matchOptions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let matchOptions =
        MatchOptions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MatchOptions") in
      let values =
        Values.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let key =
        Dimension.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~matchOptions ~values ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let matchOptions =
        field_map_exn json__ "MatchOptions" MatchOptions.of_json in
      let values = field_map_exn json__ "Values" Values.of_json in
      let key = field_map_exn json__ "Key" Dimension.of_json in
      make ~matchOptions ~values ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the specifications for the filters to use for your request."]
module rec
  Expression:sig
               type nonrec t =
                 {
                 or_: Expressions.t option
                   [@ocaml.doc
                     "Return results that match any of the Expressions that you specified. in the array."];
                 and_: Expressions.t option
                   [@ocaml.doc
                     "Return results that match all Expressions that you specified in the array."];
                 not: Expression.t option
                   [@ocaml.doc
                     "Return results that don\226\128\153t match the Expression that you specified."];
                 dimensions: DimensionValues.t option
                   [@ocaml.doc
                     "The specific dimension, values, and match type to filter objects with."]}
               val make :
                 ?or_:Expressions.t ->
                   ?and_:Expressions.t ->
                     ?not:Expression.t ->
                       ?dimensions:DimensionValues.t -> unit -> t
               val to_value : t -> Botodata.value
               val to_query : t -> Client.Query.t
               val of_xml : Xml.t -> t
               val of_json : Yojson.Safe.t -> t
               val to_json : t -> Yojson.Safe.t
             end =
  struct
    type nonrec t =
      {
      or_: Expressions.t option
        [@ocaml.doc
          "Return results that match any of the Expressions that you specified. in the array."];
      and_: Expressions.t option
        [@ocaml.doc
          "Return results that match all Expressions that you specified in the array."];
      not: Expression.t option
        [@ocaml.doc
          "Return results that don\226\128\153t match the Expression that you specified."];
      dimensions: DimensionValues.t option
        [@ocaml.doc
          "The specific dimension, values, and match type to filter objects with."]}
    let make ?or_ =
      fun ?and_ ->
        fun ?not ->
          fun ?dimensions -> fun () -> { or_; and_; not; dimensions }
    let to_value x =
      structure_to_value
        [("Or", (Option.map x.or_ ~f:Expressions.to_value));
        ("And", (Option.map x.and_ ~f:Expressions.to_value));
        ("Not", (Option.map x.not ~f:Expression.to_value));
        ("Dimensions", (Option.map x.dimensions ~f:DimensionValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dimensions =
        (Option.map ~f:DimensionValues.of_xml)
          (Xml.child xml_arg0 "Dimensions") in
      let not = (Option.map ~f:Expression.of_xml) (Xml.child xml_arg0 "Not") in
      let and_ =
        (Option.map ~f:Expressions.of_xml) (Xml.child xml_arg0 "And") in
      let or_ = (Option.map ~f:Expressions.of_xml) (Xml.child xml_arg0 "Or") in
      make ?dimensions ?not ?and_ ?or_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dimensions = field_map json__ "Dimensions" DimensionValues.of_json in
      let not = field_map json__ "Not" Expression.of_json in
      let and_ = field_map json__ "And" Expressions.of_json in
      let or_ = field_map json__ "Or" Expressions.of_json in
      make ?dimensions ?not ?and_ ?or_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use Expression to filter in the GetFreeTierUsage API operation. You can use the following patterns: Simple dimension values (Dimensions root operator) Complex expressions with logical operators (AND, NOT, and OR root operators). For simple dimension values, you can set the dimension name, values, and match type for the filters that you plan to use. Example for simple dimension values You can filter to match exactly for REGION==us-east-1 OR REGION==us-west-1. The corresponding Expression appears like the following: \\{ \"Dimensions\": \\{ \"Key\": \"REGION\", \"Values\": \\[ \"us-east-1\", \"us-west-1\" \\], \"MatchOptions\": \\[\"EQUALS\"\\] \\} \\} As shown in the previous example, lists of dimension values are combined with OR when you apply the filter. For complex expressions with logical operators, you can have nested expressions to use the logical operators and specify advanced filtering. Example for complex expressions with logical operators You can filter by ((REGION == us-east-1 OR REGION == us-west-1) OR (SERVICE CONTAINS AWSLambda)) AND (USAGE_TYPE !CONTAINS DataTransfer). The corresponding Expression appears like the following: \\{ \"And\": \\[ \\{\"Or\": \\[ \\{\"Dimensions\": \\{ \"Key\": \"REGION\", \"Values\": \\[ \"us-east-1\", \"us-west-1\" \\], \"MatchOptions\": \\[\"EQUALS\"\\] \\}\\}, \\{\"Dimensions\": \\{ \"Key\": \"SERVICE\", \"Values\": \\[\"AWSLambda\"\\], \"MatchOptions\": \\[\"CONTAINS\"\\] \\} \\} \\]\\}, \\{\"Not\": \\{\"Dimensions\": \\{ \"Key\": \"USAGE_TYPE\", \"Values\": \\[\"DataTransfer\"\\], \"MatchOptions\": \\[\"CONTAINS\"\\] \\}\\}\\} \\] \\} In the following Contents, you must specify exactly one of the following root operators."]
 and
  Expressions:sig
                type nonrec t = Expression.t list
                val make : Expression.t list -> t
                val to_value : t -> Botodata.value
                val to_query : t -> Client.Query.t
                val of_xml : Xml.t -> Expression.t list
                val of_json : Yojson.Safe.t -> t
                val to_json : t -> Yojson.Safe.t
                val to_header : t -> string
              end =
  struct
    type nonrec t = Expression.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:Expression.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:Expression.of_xml)
    let of_json j =
      list_of_json ~kind:"Expressions" ~of_json:Expression.of_json j
    let to_json v = composed_to_json to_value v
  end
module FilterActivityStatuses =
  struct
    type nonrec t = ActivityStatus.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:ActivityStatus.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:ActivityStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"FilterActivityStatuses"
        ~of_json:ActivityStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module FreeTierUsage =
  struct
    type nonrec t =
      {
      service: GenericString.t option
        [@ocaml.doc
          "The name of the Amazon Web Services service providing the Free Tier offer. For example, this can be Amazon Elastic Compute Cloud."];
      operation: GenericString.t option
        [@ocaml.doc
          "Describes usageType more granularly with the specific Amazon Web Services service API operation. For example, this can be the RunInstances API operation for Amazon Elastic Compute Cloud."];
      usageType: GenericString.t option
        [@ocaml.doc
          "Describes the usage details of the offer. For example, this might be Global-BoxUsage:freetrial."];
      region: GenericString.t option
        [@ocaml.doc
          "Describes the Amazon Web Services Region for which this offer is applicable"];
      actualUsageAmount: GenericDouble.t option
        [@ocaml.doc
          "Describes the actual usage accrued month-to-day (MTD) that you've used so far."];
      forecastedUsageAmount: GenericDouble.t option
        [@ocaml.doc
          "Describes the forecasted usage by the month that you're expected to use."];
      limit: GenericDouble.t option
        [@ocaml.doc "Describes the maximum usage allowed in Free Tier."];
      unit: GenericString.t option
        [@ocaml.doc "Describes the unit of the usageType, such as Hrs."];
      description: GenericString.t option
        [@ocaml.doc "The description of the Free Tier offer."];
      freeTierType: GenericString.t option
        [@ocaml.doc
          "Describes the type of the Free Tier offer. For example, the offer can be \"12 Months Free\", \"Always Free\", and \"Free Trial\"."]}
    let make ?service =
      fun ?operation ->
        fun ?usageType ->
          fun ?region ->
            fun ?actualUsageAmount ->
              fun ?forecastedUsageAmount ->
                fun ?limit ->
                  fun ?unit ->
                    fun ?description ->
                      fun ?freeTierType ->
                        fun () ->
                          {
                            service;
                            operation;
                            usageType;
                            region;
                            actualUsageAmount;
                            forecastedUsageAmount;
                            limit;
                            unit;
                            description;
                            freeTierType
                          }
    let to_value x =
      structure_to_value
        [("service", (Option.map x.service ~f:GenericString.to_value));
        ("operation", (Option.map x.operation ~f:GenericString.to_value));
        ("usageType", (Option.map x.usageType ~f:GenericString.to_value));
        ("region", (Option.map x.region ~f:GenericString.to_value));
        ("actualUsageAmount",
          (Option.map x.actualUsageAmount ~f:GenericDouble.to_value));
        ("forecastedUsageAmount",
          (Option.map x.forecastedUsageAmount ~f:GenericDouble.to_value));
        ("limit", (Option.map x.limit ~f:GenericDouble.to_value));
        ("unit", (Option.map x.unit ~f:GenericString.to_value));
        ("description", (Option.map x.description ~f:GenericString.to_value));
        ("freeTierType",
          (Option.map x.freeTierType ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let freeTierType =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "freeTierType") in
      let description =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "description") in
      let unit =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "unit") in
      let limit =
        (Option.map ~f:GenericDouble.of_xml) (Xml.child xml_arg0 "limit") in
      let forecastedUsageAmount =
        (Option.map ~f:GenericDouble.of_xml)
          (Xml.child xml_arg0 "forecastedUsageAmount") in
      let actualUsageAmount =
        (Option.map ~f:GenericDouble.of_xml)
          (Xml.child xml_arg0 "actualUsageAmount") in
      let region =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "region") in
      let usageType =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "usageType") in
      let operation =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "operation") in
      let service =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "service") in
      make ?freeTierType ?description ?unit ?limit ?forecastedUsageAmount
        ?actualUsageAmount ?region ?usageType ?operation ?service ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let freeTierType =
        field_map json__ "freeTierType" GenericString.of_json in
      let description = field_map json__ "description" GenericString.of_json in
      let unit = field_map json__ "unit" GenericString.of_json in
      let limit = field_map json__ "limit" GenericDouble.of_json in
      let forecastedUsageAmount =
        field_map json__ "forecastedUsageAmount" GenericDouble.of_json in
      let actualUsageAmount =
        field_map json__ "actualUsageAmount" GenericDouble.of_json in
      let region = field_map json__ "region" GenericString.of_json in
      let usageType = field_map json__ "usageType" GenericString.of_json in
      let operation = field_map json__ "operation" GenericString.of_json in
      let service = field_map json__ "service" GenericString.of_json in
      make ?freeTierType ?description ?unit ?limit ?forecastedUsageAmount
        ?actualUsageAmount ?region ?usageType ?operation ?service ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Consists of a Amazon Web Services Free Tier offer\226\128\153s metadata and your data usage for the offer."]
module FreeTierUsages =
  struct
    type nonrec t = FreeTierUsage.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:FreeTierUsage.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:FreeTierUsage.of_xml)
    let of_json j =
      list_of_json ~kind:"FreeTierUsages" ~of_json:FreeTierUsage.of_json j
    let to_json v = composed_to_json to_value v
  end
module LanguageCode =
  struct
    type nonrec t =
      | En_US 
      | En_GB 
      | Id_ID 
      | De_DE 
      | Es_ES 
      | Fr_FR 
      | Ja_JP 
      | It_IT 
      | Pt_PT 
      | Ko_KR 
      | Zh_CN 
      | Zh_TW 
      | Tr_TR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | En_US -> "en-US"
      | En_GB -> "en-GB"
      | Id_ID -> "id-ID"
      | De_DE -> "de-DE"
      | Es_ES -> "es-ES"
      | Fr_FR -> "fr-FR"
      | Ja_JP -> "ja-JP"
      | It_IT -> "it-IT"
      | Pt_PT -> "pt-PT"
      | Ko_KR -> "ko-KR"
      | Zh_CN -> "zh-CN"
      | Zh_TW -> "zh-TW"
      | Tr_TR -> "tr-TR"
      | Non_static_id s -> s
    let of_string =
      function
      | "en-US" -> En_US
      | "en-GB" -> En_GB
      | "id-ID" -> Id_ID
      | "de-DE" -> De_DE
      | "es-ES" -> Es_ES
      | "fr-FR" -> Fr_FR
      | "ja-JP" -> Ja_JP
      | "it-IT" -> It_IT
      | "pt-PT" -> Pt_PT
      | "ko-KR" -> Ko_KR
      | "zh-CN" -> Zh_CN
      | "zh-TW" -> Zh_TW
      | "tr-TR" -> Tr_TR
      | 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 LanguageCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LanguageCode" j)
    let to_json = simple_to_json to_value
  end
module GetAccountActivityRequest =
  struct
    type nonrec t =
      {
      activityId: ActivityId.t
        [@ocaml.doc "A unique identifier that identifies the activity."];
      languageCode: LanguageCode.t option
        [@ocaml.doc
          "The language code used to return translated title and description fields."]}
    let context_ = "GetAccountActivityRequest"
    let make ?languageCode =
      fun ~activityId -> fun () -> { languageCode; activityId }
    let to_value x =
      structure_to_value
        [("activityId", (Some (ActivityId.to_value x.activityId)));
        ("languageCode",
          (Option.map x.languageCode ~f:LanguageCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let languageCode =
        (Option.map ~f:LanguageCode.of_xml)
          (Xml.child xml_arg0 "languageCode") in
      let activityId =
        ActivityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "activityId") in
      make ?languageCode ~activityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let languageCode = field_map json__ "languageCode" LanguageCode.of_json in
      let activityId = field_map_exn json__ "activityId" ActivityId.of_json in
      make ?languageCode ~activityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a specific activity record that is available to the customer."]
module ValidationException =
  struct
    type nonrec t = {
      message: GenericString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:GenericString.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" GenericString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input fails to satisfy the constraints specified by an Amazon Web Services service."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: GenericString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:GenericString.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" GenericString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module SyntheticTimestamp_date_time =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: GenericString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:GenericString.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" GenericString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This exception is thrown when the requested resource cannot be found."]
module InternalServerException =
  struct
    type nonrec t = {
      message: GenericString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:GenericString.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" GenericString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An unexpected error occurred during the processing of your request."]
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module GetAccountActivityResponse =
  struct
    type nonrec t =
      {
      activityId: ActivityId.t option
        [@ocaml.doc "A unique identifier that identifies the activity."];
      title: GenericString.t option [@ocaml.doc "A short activity title."];
      description: GenericString.t option
        [@ocaml.doc
          "Provides detailed information about the activity and its expected outcomes."];
      status: ActivityStatus.t option
        [@ocaml.doc "The current activity status."];
      instructionsUrl: GenericString.t option
        [@ocaml.doc
          "The URL resource that provides guidance on activity requirements and completion."];
      reward: ActivityReward.t option
        [@ocaml.doc "A reward granted upon activity completion."];
      estimatedTimeToCompleteInMinutes: Integer.t option
        [@ocaml.doc
          "The estimated time to complete the activity. This is the duration in minutes."];
      expiresAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The time by which the activity must be completed to receive a reward."];
      startedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The timestamp when the activity started. This field appears only for activities in the IN_PROGRESS or COMPLETED states."];
      completedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The timestamp when the activity is completed. This field appears only for activities in the COMPLETED state."]}
    type nonrec error =
      [ `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 ?activityId =
      fun ?title ->
        fun ?description ->
          fun ?status ->
            fun ?instructionsUrl ->
              fun ?reward ->
                fun ?estimatedTimeToCompleteInMinutes ->
                  fun ?expiresAt ->
                    fun ?startedAt ->
                      fun ?completedAt ->
                        fun () ->
                          {
                            activityId;
                            title;
                            description;
                            status;
                            instructionsUrl;
                            reward;
                            estimatedTimeToCompleteInMinutes;
                            expiresAt;
                            startedAt;
                            completedAt
                          }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("activityId", (Option.map x.activityId ~f:ActivityId.to_value));
        ("title", (Option.map x.title ~f:GenericString.to_value));
        ("description", (Option.map x.description ~f:GenericString.to_value));
        ("status", (Option.map x.status ~f:ActivityStatus.to_value));
        ("instructionsUrl",
          (Option.map x.instructionsUrl ~f:GenericString.to_value));
        ("reward", (Option.map x.reward ~f:ActivityReward.to_value));
        ("estimatedTimeToCompleteInMinutes",
          (Option.map x.estimatedTimeToCompleteInMinutes ~f:Integer.to_value));
        ("expiresAt",
          (Option.map x.expiresAt ~f:SyntheticTimestamp_date_time.to_value));
        ("startedAt",
          (Option.map x.startedAt ~f:SyntheticTimestamp_date_time.to_value));
        ("completedAt",
          (Option.map x.completedAt ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let completedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "completedAt") in
      let startedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "startedAt") in
      let expiresAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "expiresAt") in
      let estimatedTimeToCompleteInMinutes =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "estimatedTimeToCompleteInMinutes") in
      let reward =
        (Option.map ~f:ActivityReward.of_xml) (Xml.child xml_arg0 "reward") in
      let instructionsUrl =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "instructionsUrl") in
      let status =
        (Option.map ~f:ActivityStatus.of_xml) (Xml.child xml_arg0 "status") in
      let description =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "description") in
      let title =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "title") in
      let activityId =
        (Option.map ~f:ActivityId.of_xml) (Xml.child xml_arg0 "activityId") in
      make ?completedAt ?startedAt ?expiresAt
        ?estimatedTimeToCompleteInMinutes ?reward ?instructionsUrl ?status
        ?description ?title ?activityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let completedAt =
        field_map json__ "completedAt" SyntheticTimestamp_date_time.of_json in
      let startedAt =
        field_map json__ "startedAt" SyntheticTimestamp_date_time.of_json in
      let expiresAt =
        field_map json__ "expiresAt" SyntheticTimestamp_date_time.of_json in
      let estimatedTimeToCompleteInMinutes =
        field_map json__ "estimatedTimeToCompleteInMinutes" Integer.of_json in
      let reward = field_map json__ "reward" ActivityReward.of_json in
      let instructionsUrl =
        field_map json__ "instructionsUrl" GenericString.of_json in
      let status = field_map json__ "status" ActivityStatus.of_json in
      let description = field_map json__ "description" GenericString.of_json in
      let title = field_map json__ "title" GenericString.of_json in
      let activityId = field_map json__ "activityId" ActivityId.of_json in
      make ?completedAt ?startedAt ?expiresAt
        ?estimatedTimeToCompleteInMinutes ?reward ?instructionsUrl ?status
        ?description ?title ?activityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a specific activity record that is available to the customer."]
module GetAccountPlanStateRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This returns all of the information related to the state of the account plan related to Free Tier."]
module GetAccountPlanStateResponse =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc "A unique identifier that identifies the account."];
      accountPlanType: AccountPlanType.t option
        [@ocaml.doc "The plan type for the account."];
      accountPlanStatus: AccountPlanStatus.t option
        [@ocaml.doc "The current status for the account plan."];
      accountPlanRemainingCredits: MonetaryAmount.t option
        [@ocaml.doc "The amount of credits remaining for the account."];
      accountPlanExpirationDate: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The timestamp for when the current account plan expires."]}
    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 ?accountId =
      fun ?accountPlanType ->
        fun ?accountPlanStatus ->
          fun ?accountPlanRemainingCredits ->
            fun ?accountPlanExpirationDate ->
              fun () ->
                {
                  accountId;
                  accountPlanType;
                  accountPlanStatus;
                  accountPlanRemainingCredits;
                  accountPlanExpirationDate
                }
    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
        [("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("accountPlanType",
          (Option.map x.accountPlanType ~f:AccountPlanType.to_value));
        ("accountPlanStatus",
          (Option.map x.accountPlanStatus ~f:AccountPlanStatus.to_value));
        ("accountPlanRemainingCredits",
          (Option.map x.accountPlanRemainingCredits
             ~f:MonetaryAmount.to_value));
        ("accountPlanExpirationDate",
          (Option.map x.accountPlanExpirationDate
             ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountPlanExpirationDate =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "accountPlanExpirationDate") in
      let accountPlanRemainingCredits =
        (Option.map ~f:MonetaryAmount.of_xml)
          (Xml.child xml_arg0 "accountPlanRemainingCredits") in
      let accountPlanStatus =
        (Option.map ~f:AccountPlanStatus.of_xml)
          (Xml.child xml_arg0 "accountPlanStatus") in
      let accountPlanType =
        (Option.map ~f:AccountPlanType.of_xml)
          (Xml.child xml_arg0 "accountPlanType") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      make ?accountPlanExpirationDate ?accountPlanRemainingCredits
        ?accountPlanStatus ?accountPlanType ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountPlanExpirationDate =
        field_map json__ "accountPlanExpirationDate"
          SyntheticTimestamp_date_time.of_json in
      let accountPlanRemainingCredits =
        field_map json__ "accountPlanRemainingCredits" MonetaryAmount.of_json in
      let accountPlanStatus =
        field_map json__ "accountPlanStatus" AccountPlanStatus.of_json in
      let accountPlanType =
        field_map json__ "accountPlanType" AccountPlanType.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      make ?accountPlanExpirationDate ?accountPlanRemainingCredits
        ?accountPlanStatus ?accountPlanType ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This returns all of the information related to the state of the account plan related to Free Tier."]
module NextPageToken =
  struct
    type nonrec t = string
    let context_ = "NextPageToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:8192) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S\\s]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextPageToken" j
    let to_json = simple_to_json to_value
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (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 MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module GetFreeTierUsageRequest =
  struct
    type nonrec t =
      {
      filter: Expression.t option
        [@ocaml.doc
          "An expression that specifies the conditions that you want each FreeTierUsage object to meet."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in the response. MaxResults means that there can be up to the specified number of values, but there might be fewer results based on your filters."];
      nextToken: NextPageToken.t option
        [@ocaml.doc
          "The pagination token that indicates the next set of results to retrieve."]}
    let make ?filter =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { filter; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("filter", (Option.map x.filter ~f:Expression.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextPageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextPageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let filter =
        (Option.map ~f:Expression.of_xml) (Xml.child xml_arg0 "filter") in
      make ?nextToken ?maxResults ?filter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextPageToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let filter = field_map json__ "filter" Expression.of_json in
      make ?nextToken ?maxResults ?filter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all Free Tier usage objects that match your filters."]
module GetFreeTierUsageResponse =
  struct
    type nonrec t =
      {
      freeTierUsages: FreeTierUsages.t option
        [@ocaml.doc
          "The list of Free Tier usage objects that meet your filter expression."];
      nextToken: NextPageToken.t option
        [@ocaml.doc
          "The pagination token that indicates the next set of results to retrieve."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?freeTierUsages =
      fun ?nextToken -> fun () -> { freeTierUsages; nextToken }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("freeTierUsages",
           (Option.map x.freeTierUsages ~f:FreeTierUsages.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextPageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextPageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let freeTierUsages =
        (Option.map ~f:FreeTierUsages.of_xml)
          (Xml.child xml_arg0 "freeTierUsages") in
      make ?nextToken ?freeTierUsages ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextPageToken.of_json in
      let freeTierUsages =
        field_map json__ "freeTierUsages" FreeTierUsages.of_json in
      make ?nextToken ?freeTierUsages ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all Free Tier usage objects that match your filters."]
module ListAccountActivitiesRequest =
  struct
    type nonrec t =
      {
      filterActivityStatuses: FilterActivityStatuses.t option
        [@ocaml.doc
          "The activity status filter. This field can be used to filter the response by activities status."];
      nextToken: NextPageToken.t option
        [@ocaml.doc
          "A token from a previous paginated response. If this is specified, the response includes records beginning from this token (inclusive), up to the number specified by maxResults."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of items to return for this request. To get the next page of items, make another request with the token returned in the output."];
      languageCode: LanguageCode.t option
        [@ocaml.doc "The language code used to return translated titles."]}
    let make ?filterActivityStatuses =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ?languageCode ->
            fun () ->
              { filterActivityStatuses; nextToken; maxResults; languageCode }
    let to_value x =
      structure_to_value
        [("filterActivityStatuses",
           (Option.map x.filterActivityStatuses
              ~f:FilterActivityStatuses.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextPageToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("languageCode",
          (Option.map x.languageCode ~f:LanguageCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let languageCode =
        (Option.map ~f:LanguageCode.of_xml)
          (Xml.child xml_arg0 "languageCode") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextPageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let filterActivityStatuses =
        (Option.map ~f:FilterActivityStatuses.of_xml)
          (Xml.child xml_arg0 "filterActivityStatuses") in
      make ?languageCode ?maxResults ?nextToken ?filterActivityStatuses ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let languageCode = field_map json__ "languageCode" LanguageCode.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextPageToken.of_json in
      let filterActivityStatuses =
        field_map json__ "filterActivityStatuses"
          FilterActivityStatuses.of_json in
      make ?languageCode ?maxResults ?nextToken ?filterActivityStatuses ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of activities that are available. This operation supports pagination and filtering by status."]
module ListAccountActivitiesResponse =
  struct
    type nonrec t =
      {
      activities: Activities.t option
        [@ocaml.doc "A brief information about the activities."];
      nextToken: NextPageToken.t option
        [@ocaml.doc
          "The token to include in another request to get the next page of items. This value is null when there are no more items to return."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?activities =
      fun ?nextToken -> fun () -> { activities; nextToken }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("activities", (Option.map x.activities ~f:Activities.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextPageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextPageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let activities =
        (Option.map ~f:Activities.of_xml) (Xml.child xml_arg0 "activities") in
      make ?nextToken ?activities ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextPageToken.of_json in
      let activities = field_map json__ "activities" Activities.of_json in
      make ?nextToken ?activities ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of activities that are available. This operation supports pagination and filtering by status."]
module UpgradeAccountPlanRequest =
  struct
    type nonrec t =
      {
      accountPlanType: AccountPlanType.t
        [@ocaml.doc
          "The target account plan type. This makes it explicit about the change and latest value of the accountPlanType."]}
    let context_ = "UpgradeAccountPlanRequest"
    let make ~accountPlanType = fun () -> { accountPlanType }
    let to_value x =
      structure_to_value
        [("accountPlanType",
           (Some (AccountPlanType.to_value x.accountPlanType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountPlanType =
        AccountPlanType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountPlanType") in
      make ~accountPlanType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountPlanType =
        field_map_exn json__ "accountPlanType" AccountPlanType.of_json in
      make ~accountPlanType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The account plan type for the Amazon Web Services account."]
module UpgradeAccountPlanResponse =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc "A unique identifier that identifies the account."];
      accountPlanType: AccountPlanType.t option
        [@ocaml.doc "The type of plan for the account."];
      accountPlanStatus: AccountPlanStatus.t option
        [@ocaml.doc
          "This indicates the latest state of the account plan within its lifecycle."]}
    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 ?accountId =
      fun ?accountPlanType ->
        fun ?accountPlanStatus ->
          fun () -> { accountId; accountPlanType; accountPlanStatus }
    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
        [("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("accountPlanType",
          (Option.map x.accountPlanType ~f:AccountPlanType.to_value));
        ("accountPlanStatus",
          (Option.map x.accountPlanStatus ~f:AccountPlanStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountPlanStatus =
        (Option.map ~f:AccountPlanStatus.of_xml)
          (Xml.child xml_arg0 "accountPlanStatus") in
      let accountPlanType =
        (Option.map ~f:AccountPlanType.of_xml)
          (Xml.child xml_arg0 "accountPlanType") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      make ?accountPlanStatus ?accountPlanType ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountPlanStatus =
        field_map json__ "accountPlanStatus" AccountPlanStatus.of_json in
      let accountPlanType =
        field_map json__ "accountPlanType" AccountPlanType.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      make ?accountPlanStatus ?accountPlanType ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The account plan type for the Amazon Web Services account."]