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.license_manager
let apiVersion = "2018-08-01"
let endpointPrefix = "license-manager"
let serviceFullName = "AWS License Manager"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "AWSLicenseManager"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module StringList =
  struct
    type nonrec t = String_.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:String_.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:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"StringList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module MatchingRuleStatement =
  struct
    type nonrec t =
      {
      keyToMatch: String_.t
        [@ocaml.doc
          "Key to match. The following keys and are supported when the RuleStatement type is Instance: Platform - The name of the platform. Logical operators are EQUALS and NOT_EQUALS. EC2BillingProduct - The billing product code. Logical operators are EQUALS and NOT_EQUALS. Possible values are: windows-server-enterprise | windows-byol | rhel | rhel-byol | rhel-high-availability | ubuntu-pro | suse-linux | sql-server-standard | sql-server-enterprise. MarketPlaceProductCode - The Marketplace product code. Logical operators are EQUALS and NOT_EQUALS. AMIId - The ID of the AMI. Logical operators are EQUALS and NOT_EQUALS. InstanceType - The instance type. Logical operators are EQUALS and NOT_EQUALS. InstanceId - The ID of the instance. Logical operators are EQUALS and NOT_EQUALS. HostId - The ID of the host. Logical operators are EQUALS and NOT_EQUALS. AccountId - The ID of the account. Logical operators are EQUALS and NOT_EQUALS. The following keys and are supported when the RuleStatement type is License: LicenseArn - The ARN of a Managed Entitlement License. Logical operators are EQUALS and NOT_EQUALS. ProductSKU - The productSKU of the license. Logical operators are EQUALS and NOT_EQUALS. Issuer - The issuer of the license. Logical operators are EQUALS and NOT_EQUALS. Beneficiary - The beneficiary of the license. Logical operators are EQUALS and NOT_EQUALS. LicenseStatus - The status of the license. Logical operators are EQUALS and NOT_EQUALS. HomeRegion - The home region of the license. Logical operators are EQUALS and NOT_EQUALS. The following keys and are supported when the RuleStatement type is License Configuration: LicenseConfigurationArn - The ARN of a self-managed license configuration. Logical operators are EQUALS and NOT_EQUALS. AccountId - The account of the license configuration. Logical operators are EQUALS and NOT_EQUALS."];
      constraint_: String_.t [@ocaml.doc "Constraint."];
      valueToMatch: StringList.t [@ocaml.doc "Value to match."]}
    let context_ = "MatchingRuleStatement"
    let make ~keyToMatch =
      fun ~constraint_ ->
        fun ~valueToMatch ->
          fun () -> { keyToMatch; constraint_; valueToMatch }
    let to_value x =
      structure_to_value
        [("KeyToMatch", (Some (String_.to_value x.keyToMatch)));
        ("Constraint", (Some (String_.to_value x.constraint_)));
        ("ValueToMatch", (Some (StringList.to_value x.valueToMatch)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let valueToMatch =
        StringList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ValueToMatch") in
      let constraint_ =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Constraint") in
      let keyToMatch =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyToMatch") in
      make ~valueToMatch ~constraint_ ~keyToMatch ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let valueToMatch =
        field_map_exn json__ "ValueToMatch" StringList.of_json in
      let constraint_ = field_map_exn json__ "Constraint" String_.of_json in
      let keyToMatch = field_map_exn json__ "KeyToMatch" String_.of_json in
      make ~valueToMatch ~constraint_ ~keyToMatch ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Matching rule statement."]
module ScriptRuleStatement =
  struct
    type nonrec t =
      {
      keyToMatch: String_.t
        [@ocaml.doc
          "Key name to match against in the script rule evaluation."];
      script: String_.t
        [@ocaml.doc "Script code used to evaluate the rule condition."]}
    let context_ = "ScriptRuleStatement"
    let make ~keyToMatch = fun ~script -> fun () -> { keyToMatch; script }
    let to_value x =
      structure_to_value
        [("KeyToMatch", (Some (String_.to_value x.keyToMatch)));
        ("Script", (Some (String_.to_value x.script)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let script =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Script") in
      let keyToMatch =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyToMatch") in
      make ~script ~keyToMatch ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let script = field_map_exn json__ "Script" String_.of_json in
      let keyToMatch = field_map_exn json__ "KeyToMatch" String_.of_json in
      make ~script ~keyToMatch ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Rule statement that uses a script to evaluate license asset conditions."]
module MatchingRuleStatementList =
  struct
    type nonrec t = MatchingRuleStatement.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:MatchingRuleStatement.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:MatchingRuleStatement.of_xml)
    let of_json j =
      list_of_json ~kind:"MatchingRuleStatementList"
        ~of_json:MatchingRuleStatement.of_json j
    let to_json v = composed_to_json to_value v
  end
module ScriptRuleStatementList =
  struct
    type nonrec t = ScriptRuleStatement.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:ScriptRuleStatement.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:ScriptRuleStatement.of_xml)
    let of_json j =
      list_of_json ~kind:"ScriptRuleStatementList"
        ~of_json:ScriptRuleStatement.of_json j
    let to_json v = composed_to_json to_value v
  end
module AndRuleStatement =
  struct
    type nonrec t =
      {
      matchingRuleStatements: MatchingRuleStatementList.t option
        [@ocaml.doc "Matching rule statements."];
      scriptRuleStatements: ScriptRuleStatementList.t option
        [@ocaml.doc "Script rule statements."]}
    let make ?matchingRuleStatements =
      fun ?scriptRuleStatements ->
        fun () -> { matchingRuleStatements; scriptRuleStatements }
    let to_value x =
      structure_to_value
        [("MatchingRuleStatements",
           (Option.map x.matchingRuleStatements
              ~f:MatchingRuleStatementList.to_value));
        ("ScriptRuleStatements",
          (Option.map x.scriptRuleStatements
             ~f:ScriptRuleStatementList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scriptRuleStatements =
        (Option.map ~f:ScriptRuleStatementList.of_xml)
          (Xml.child xml_arg0 "ScriptRuleStatements") in
      let matchingRuleStatements =
        (Option.map ~f:MatchingRuleStatementList.of_xml)
          (Xml.child xml_arg0 "MatchingRuleStatements") in
      make ?scriptRuleStatements ?matchingRuleStatements ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scriptRuleStatements =
        field_map json__ "ScriptRuleStatements"
          ScriptRuleStatementList.of_json in
      let matchingRuleStatements =
        field_map json__ "MatchingRuleStatements"
          MatchingRuleStatementList.of_json in
      make ?scriptRuleStatements ?matchingRuleStatements ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "AND rule statement."]
module OrRuleStatement =
  struct
    type nonrec t =
      {
      matchingRuleStatements: MatchingRuleStatementList.t option
        [@ocaml.doc "Matching rule statements."];
      scriptRuleStatements: ScriptRuleStatementList.t option
        [@ocaml.doc "Script rule statements."]}
    let make ?matchingRuleStatements =
      fun ?scriptRuleStatements ->
        fun () -> { matchingRuleStatements; scriptRuleStatements }
    let to_value x =
      structure_to_value
        [("MatchingRuleStatements",
           (Option.map x.matchingRuleStatements
              ~f:MatchingRuleStatementList.to_value));
        ("ScriptRuleStatements",
          (Option.map x.scriptRuleStatements
             ~f:ScriptRuleStatementList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scriptRuleStatements =
        (Option.map ~f:ScriptRuleStatementList.of_xml)
          (Xml.child xml_arg0 "ScriptRuleStatements") in
      let matchingRuleStatements =
        (Option.map ~f:MatchingRuleStatementList.of_xml)
          (Xml.child xml_arg0 "MatchingRuleStatements") in
      make ?scriptRuleStatements ?matchingRuleStatements ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scriptRuleStatements =
        field_map json__ "ScriptRuleStatements"
          ScriptRuleStatementList.of_json in
      let matchingRuleStatements =
        field_map json__ "MatchingRuleStatements"
          MatchingRuleStatementList.of_json in
      make ?scriptRuleStatements ?matchingRuleStatements ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "OR rule statement."]
module ProductCodeId =
  struct
    type nonrec t = string
    let context_ = "ProductCodeId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[A-Za-z0-9]{1,25}$"); 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:"ProductCodeId" j
    let to_json = simple_to_json to_value
  end
module ProductCodeType =
  struct
    type nonrec t =
      | Marketplace 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Marketplace -> "marketplace" | Non_static_id s -> s
    let of_string =
      function | "marketplace" -> Marketplace | 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 ProductCodeType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ProductCodeType" j)
    let to_json = simple_to_json to_value
  end
module ProductInformationFilter =
  struct
    type nonrec t =
      {
      productInformationFilterName: String_.t [@ocaml.doc "Filter name."];
      productInformationFilterValue: StringList.t option
        [@ocaml.doc "Filter value."];
      productInformationFilterComparator: String_.t
        [@ocaml.doc "Logical operator."]}
    let context_ = "ProductInformationFilter"
    let make ?productInformationFilterValue =
      fun ~productInformationFilterName ->
        fun ~productInformationFilterComparator ->
          fun () ->
            {
              productInformationFilterValue;
              productInformationFilterName;
              productInformationFilterComparator
            }
    let to_value x =
      structure_to_value
        [("ProductInformationFilterName",
           (Some (String_.to_value x.productInformationFilterName)));
        ("ProductInformationFilterValue",
          (Option.map x.productInformationFilterValue ~f:StringList.to_value));
        ("ProductInformationFilterComparator",
          (Some (String_.to_value x.productInformationFilterComparator)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let productInformationFilterComparator =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ProductInformationFilterComparator") in
      let productInformationFilterValue =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "ProductInformationFilterValue") in
      let productInformationFilterName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ProductInformationFilterName") in
      make ~productInformationFilterComparator ?productInformationFilterValue
        ~productInformationFilterName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let productInformationFilterComparator =
        field_map_exn json__ "ProductInformationFilterComparator"
          String_.of_json in
      let productInformationFilterValue =
        field_map json__ "ProductInformationFilterValue" StringList.of_json in
      let productInformationFilterName =
        field_map_exn json__ "ProductInformationFilterName" String_.of_json in
      make ~productInformationFilterComparator ?productInformationFilterValue
        ~productInformationFilterName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes product information filters."]
module InstanceRuleStatement =
  struct
    type nonrec t =
      {
      andRuleStatement: AndRuleStatement.t option
        [@ocaml.doc "AND rule statement."];
      orRuleStatement: OrRuleStatement.t option
        [@ocaml.doc "OR rule statement."];
      matchingRuleStatement: MatchingRuleStatement.t option
        [@ocaml.doc "Matching rule statement."];
      scriptRuleStatement: ScriptRuleStatement.t option
        [@ocaml.doc "Script rule statement."]}
    let make ?andRuleStatement =
      fun ?orRuleStatement ->
        fun ?matchingRuleStatement ->
          fun ?scriptRuleStatement ->
            fun () ->
              {
                andRuleStatement;
                orRuleStatement;
                matchingRuleStatement;
                scriptRuleStatement
              }
    let to_value x =
      structure_to_value
        [("AndRuleStatement",
           (Option.map x.andRuleStatement ~f:AndRuleStatement.to_value));
        ("OrRuleStatement",
          (Option.map x.orRuleStatement ~f:OrRuleStatement.to_value));
        ("MatchingRuleStatement",
          (Option.map x.matchingRuleStatement
             ~f:MatchingRuleStatement.to_value));
        ("ScriptRuleStatement",
          (Option.map x.scriptRuleStatement ~f:ScriptRuleStatement.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scriptRuleStatement =
        (Option.map ~f:ScriptRuleStatement.of_xml)
          (Xml.child xml_arg0 "ScriptRuleStatement") in
      let matchingRuleStatement =
        (Option.map ~f:MatchingRuleStatement.of_xml)
          (Xml.child xml_arg0 "MatchingRuleStatement") in
      let orRuleStatement =
        (Option.map ~f:OrRuleStatement.of_xml)
          (Xml.child xml_arg0 "OrRuleStatement") in
      let andRuleStatement =
        (Option.map ~f:AndRuleStatement.of_xml)
          (Xml.child xml_arg0 "AndRuleStatement") in
      make ?scriptRuleStatement ?matchingRuleStatement ?orRuleStatement
        ?andRuleStatement ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scriptRuleStatement =
        field_map json__ "ScriptRuleStatement" ScriptRuleStatement.of_json in
      let matchingRuleStatement =
        field_map json__ "MatchingRuleStatement"
          MatchingRuleStatement.of_json in
      let orRuleStatement =
        field_map json__ "OrRuleStatement" OrRuleStatement.of_json in
      let andRuleStatement =
        field_map json__ "AndRuleStatement" AndRuleStatement.of_json in
      make ?scriptRuleStatement ?matchingRuleStatement ?orRuleStatement
        ?andRuleStatement ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Instance rule statement."]
module LicenseConfigurationRuleStatement =
  struct
    type nonrec t =
      {
      andRuleStatement: AndRuleStatement.t option
        [@ocaml.doc "AND rule statement."];
      orRuleStatement: OrRuleStatement.t option
        [@ocaml.doc "OR rule statement."];
      matchingRuleStatement: MatchingRuleStatement.t option
        [@ocaml.doc "Matching rule statement."]}
    let make ?andRuleStatement =
      fun ?orRuleStatement ->
        fun ?matchingRuleStatement ->
          fun () ->
            { andRuleStatement; orRuleStatement; matchingRuleStatement }
    let to_value x =
      structure_to_value
        [("AndRuleStatement",
           (Option.map x.andRuleStatement ~f:AndRuleStatement.to_value));
        ("OrRuleStatement",
          (Option.map x.orRuleStatement ~f:OrRuleStatement.to_value));
        ("MatchingRuleStatement",
          (Option.map x.matchingRuleStatement
             ~f:MatchingRuleStatement.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let matchingRuleStatement =
        (Option.map ~f:MatchingRuleStatement.of_xml)
          (Xml.child xml_arg0 "MatchingRuleStatement") in
      let orRuleStatement =
        (Option.map ~f:OrRuleStatement.of_xml)
          (Xml.child xml_arg0 "OrRuleStatement") in
      let andRuleStatement =
        (Option.map ~f:AndRuleStatement.of_xml)
          (Xml.child xml_arg0 "AndRuleStatement") in
      make ?matchingRuleStatement ?orRuleStatement ?andRuleStatement ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let matchingRuleStatement =
        field_map json__ "MatchingRuleStatement"
          MatchingRuleStatement.of_json in
      let orRuleStatement =
        field_map json__ "OrRuleStatement" OrRuleStatement.of_json in
      let andRuleStatement =
        field_map json__ "AndRuleStatement" AndRuleStatement.of_json in
      make ?matchingRuleStatement ?orRuleStatement ?andRuleStatement ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "License configuration rule statement."]
module LicenseRuleStatement =
  struct
    type nonrec t =
      {
      andRuleStatement: AndRuleStatement.t option
        [@ocaml.doc "AND rule statement."];
      orRuleStatement: OrRuleStatement.t option
        [@ocaml.doc "OR rule statement."];
      matchingRuleStatement: MatchingRuleStatement.t option
        [@ocaml.doc "Matching rule statement."]}
    let make ?andRuleStatement =
      fun ?orRuleStatement ->
        fun ?matchingRuleStatement ->
          fun () ->
            { andRuleStatement; orRuleStatement; matchingRuleStatement }
    let to_value x =
      structure_to_value
        [("AndRuleStatement",
           (Option.map x.andRuleStatement ~f:AndRuleStatement.to_value));
        ("OrRuleStatement",
          (Option.map x.orRuleStatement ~f:OrRuleStatement.to_value));
        ("MatchingRuleStatement",
          (Option.map x.matchingRuleStatement
             ~f:MatchingRuleStatement.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let matchingRuleStatement =
        (Option.map ~f:MatchingRuleStatement.of_xml)
          (Xml.child xml_arg0 "MatchingRuleStatement") in
      let orRuleStatement =
        (Option.map ~f:OrRuleStatement.of_xml)
          (Xml.child xml_arg0 "OrRuleStatement") in
      let andRuleStatement =
        (Option.map ~f:AndRuleStatement.of_xml)
          (Xml.child xml_arg0 "AndRuleStatement") in
      make ?matchingRuleStatement ?orRuleStatement ?andRuleStatement ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let matchingRuleStatement =
        field_map json__ "MatchingRuleStatement"
          MatchingRuleStatement.of_json in
      let orRuleStatement =
        field_map json__ "OrRuleStatement" OrRuleStatement.of_json in
      let andRuleStatement =
        field_map json__ "AndRuleStatement" AndRuleStatement.of_json in
      make ?matchingRuleStatement ?orRuleStatement ?andRuleStatement ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "License rule statement."]
module BoxBoolean =
  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 BoxInteger =
  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 BoxInteger" 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 EntitlementUnit =
  struct
    type nonrec t =
      | Count 
      | None 
      | Seconds 
      | Microseconds 
      | Milliseconds 
      | Bytes 
      | Kilobytes 
      | Megabytes 
      | Gigabytes 
      | Terabytes 
      | Bits 
      | Kilobits 
      | Megabits 
      | Gigabits 
      | Terabits 
      | Percent 
      | Bytes_Second 
      | Kilobytes_Second 
      | Megabytes_Second 
      | Gigabytes_Second 
      | Terabytes_Second 
      | Bits_Second 
      | Kilobits_Second 
      | Megabits_Second 
      | Gigabits_Second 
      | Terabits_Second 
      | Count_Second 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Count -> "Count"
      | None -> "None"
      | Seconds -> "Seconds"
      | Microseconds -> "Microseconds"
      | Milliseconds -> "Milliseconds"
      | Bytes -> "Bytes"
      | Kilobytes -> "Kilobytes"
      | Megabytes -> "Megabytes"
      | Gigabytes -> "Gigabytes"
      | Terabytes -> "Terabytes"
      | Bits -> "Bits"
      | Kilobits -> "Kilobits"
      | Megabits -> "Megabits"
      | Gigabits -> "Gigabits"
      | Terabits -> "Terabits"
      | Percent -> "Percent"
      | Bytes_Second -> "Bytes/Second"
      | Kilobytes_Second -> "Kilobytes/Second"
      | Megabytes_Second -> "Megabytes/Second"
      | Gigabytes_Second -> "Gigabytes/Second"
      | Terabytes_Second -> "Terabytes/Second"
      | Bits_Second -> "Bits/Second"
      | Kilobits_Second -> "Kilobits/Second"
      | Megabits_Second -> "Megabits/Second"
      | Gigabits_Second -> "Gigabits/Second"
      | Terabits_Second -> "Terabits/Second"
      | Count_Second -> "Count/Second"
      | Non_static_id s -> s
    let of_string =
      function
      | "Count" -> Count
      | "None" -> None
      | "Seconds" -> Seconds
      | "Microseconds" -> Microseconds
      | "Milliseconds" -> Milliseconds
      | "Bytes" -> Bytes
      | "Kilobytes" -> Kilobytes
      | "Megabytes" -> Megabytes
      | "Gigabytes" -> Gigabytes
      | "Terabytes" -> Terabytes
      | "Bits" -> Bits
      | "Kilobits" -> Kilobits
      | "Megabits" -> Megabits
      | "Gigabits" -> Gigabits
      | "Terabits" -> Terabits
      | "Percent" -> Percent
      | "Bytes/Second" -> Bytes_Second
      | "Kilobytes/Second" -> Kilobytes_Second
      | "Megabytes/Second" -> Megabytes_Second
      | "Gigabytes/Second" -> Gigabytes_Second
      | "Terabytes/Second" -> Terabytes_Second
      | "Bits/Second" -> Bits_Second
      | "Kilobits/Second" -> Kilobits_Second
      | "Megabits/Second" -> Megabits_Second
      | "Gigabits/Second" -> Gigabits_Second
      | "Terabits/Second" -> Terabits_Second
      | "Count/Second" -> Count_Second
      | 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 EntitlementUnit" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EntitlementUnit" j)
    let to_json = simple_to_json to_value
  end
module Long =
  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 AllowedOperation =
  struct
    type nonrec t =
      | CreateGrant 
      | CheckoutLicense 
      | CheckoutBorrowLicense 
      | CheckInLicense 
      | ExtendConsumptionLicense 
      | ListPurchasedLicenses 
      | CreateToken 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CreateGrant -> "CreateGrant"
      | CheckoutLicense -> "CheckoutLicense"
      | CheckoutBorrowLicense -> "CheckoutBorrowLicense"
      | CheckInLicense -> "CheckInLicense"
      | ExtendConsumptionLicense -> "ExtendConsumptionLicense"
      | ListPurchasedLicenses -> "ListPurchasedLicenses"
      | CreateToken -> "CreateToken"
      | Non_static_id s -> s
    let of_string =
      function
      | "CreateGrant" -> CreateGrant
      | "CheckoutLicense" -> CheckoutLicense
      | "CheckoutBorrowLicense" -> CheckoutBorrowLicense
      | "CheckInLicense" -> CheckInLicense
      | "ExtendConsumptionLicense" -> ExtendConsumptionLicense
      | "ListPurchasedLicenses" -> ListPurchasedLicenses
      | "CreateToken" -> CreateToken
      | 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 AllowedOperation" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AllowedOperation" j)
    let to_json = simple_to_json to_value
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^arn:aws[a-zA-Z-]*:[A-Za-z0-9][A-Za-z0-9_/.-]{0,62}:[A-Za-z0-9_/.-]{0,63}:[A-Za-z0-9_/.-]{0,63}:[A-Za-z0-9][A-Za-z0-9:_/+=,@.-]{0,1023}$"));
        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 ProductCodeListItem =
  struct
    type nonrec t =
      {
      productCodeId: ProductCodeId.t [@ocaml.doc "The product code ID"];
      productCodeType: ProductCodeType.t [@ocaml.doc "The product code type"]}
    let context_ = "ProductCodeListItem"
    let make ~productCodeId =
      fun ~productCodeType -> fun () -> { productCodeId; productCodeType }
    let to_value x =
      structure_to_value
        [("ProductCodeId", (Some (ProductCodeId.to_value x.productCodeId)));
        ("ProductCodeType",
          (Some (ProductCodeType.to_value x.productCodeType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let productCodeType =
        ProductCodeType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProductCodeType") in
      let productCodeId =
        ProductCodeId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProductCodeId") in
      make ~productCodeType ~productCodeId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let productCodeType =
        field_map_exn json__ "ProductCodeType" ProductCodeType.of_json in
      let productCodeId =
        field_map_exn json__ "ProductCodeId" ProductCodeId.of_json in
      make ~productCodeType ~productCodeId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list item that contains a product code."]
module BoxLong =
  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 ResourceType =
  struct
    type nonrec t =
      | EC2_INSTANCE 
      | EC2_HOST 
      | EC2_AMI 
      | RDS 
      | SYSTEMS_MANAGER_MANAGED_INSTANCE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EC2_INSTANCE -> "EC2_INSTANCE"
      | EC2_HOST -> "EC2_HOST"
      | EC2_AMI -> "EC2_AMI"
      | RDS -> "RDS"
      | SYSTEMS_MANAGER_MANAGED_INSTANCE ->
          "SYSTEMS_MANAGER_MANAGED_INSTANCE"
      | Non_static_id s -> s
    let of_string =
      function
      | "EC2_INSTANCE" -> EC2_INSTANCE
      | "EC2_HOST" -> EC2_HOST
      | "EC2_AMI" -> EC2_AMI
      | "RDS" -> RDS
      | "SYSTEMS_MANAGER_MANAGED_INSTANCE" ->
          SYSTEMS_MANAGER_MANAGED_INSTANCE
      | 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 ResourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceType" j)
    let to_json = simple_to_json to_value
  end
module ProductInformationFilterList =
  struct
    type nonrec t = ProductInformationFilter.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:ProductInformationFilter.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:ProductInformationFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"ProductInformationFilterList"
        ~of_json:ProductInformationFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleStatement =
  struct
    type nonrec t =
      {
      licenseConfigurationRuleStatement:
        LicenseConfigurationRuleStatement.t option
        [@ocaml.doc "License configuration rule statement."];
      licenseRuleStatement: LicenseRuleStatement.t option
        [@ocaml.doc "License rule statement."];
      instanceRuleStatement: InstanceRuleStatement.t option
        [@ocaml.doc "Instance rule statement."]}
    let make ?licenseConfigurationRuleStatement =
      fun ?licenseRuleStatement ->
        fun ?instanceRuleStatement ->
          fun () ->
            {
              licenseConfigurationRuleStatement;
              licenseRuleStatement;
              instanceRuleStatement
            }
    let to_value x =
      structure_to_value
        [("LicenseConfigurationRuleStatement",
           (Option.map x.licenseConfigurationRuleStatement
              ~f:LicenseConfigurationRuleStatement.to_value));
        ("LicenseRuleStatement",
          (Option.map x.licenseRuleStatement ~f:LicenseRuleStatement.to_value));
        ("InstanceRuleStatement",
          (Option.map x.instanceRuleStatement
             ~f:InstanceRuleStatement.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceRuleStatement =
        (Option.map ~f:InstanceRuleStatement.of_xml)
          (Xml.child xml_arg0 "InstanceRuleStatement") in
      let licenseRuleStatement =
        (Option.map ~f:LicenseRuleStatement.of_xml)
          (Xml.child xml_arg0 "LicenseRuleStatement") in
      let licenseConfigurationRuleStatement =
        (Option.map ~f:LicenseConfigurationRuleStatement.of_xml)
          (Xml.child xml_arg0 "LicenseConfigurationRuleStatement") in
      make ?instanceRuleStatement ?licenseRuleStatement
        ?licenseConfigurationRuleStatement ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceRuleStatement =
        field_map json__ "InstanceRuleStatement"
          InstanceRuleStatement.of_json in
      let licenseRuleStatement =
        field_map json__ "LicenseRuleStatement" LicenseRuleStatement.of_json in
      let licenseConfigurationRuleStatement =
        field_map json__ "LicenseConfigurationRuleStatement"
          LicenseConfigurationRuleStatement.of_json in
      make ?instanceRuleStatement ?licenseRuleStatement
        ?licenseConfigurationRuleStatement ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Rule statement."]
module FilterValue =
  struct
    type nonrec t = string
    let context_ = "FilterValue"
    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:"FilterValue" j
    let to_json = simple_to_json to_value
  end
module BorrowConfiguration =
  struct
    type nonrec t =
      {
      allowEarlyCheckIn: BoxBoolean.t
        [@ocaml.doc "Indicates whether early check-ins are allowed."];
      maxTimeToLiveInMinutes: BoxInteger.t
        [@ocaml.doc "Maximum time for the borrow configuration, in minutes."]}
    let context_ = "BorrowConfiguration"
    let make ~allowEarlyCheckIn =
      fun ~maxTimeToLiveInMinutes ->
        fun () -> { allowEarlyCheckIn; maxTimeToLiveInMinutes }
    let to_value x =
      structure_to_value
        [("AllowEarlyCheckIn",
           (Some (BoxBoolean.to_value x.allowEarlyCheckIn)));
        ("MaxTimeToLiveInMinutes",
          (Some (BoxInteger.to_value x.maxTimeToLiveInMinutes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxTimeToLiveInMinutes =
        BoxInteger.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MaxTimeToLiveInMinutes") in
      let allowEarlyCheckIn =
        BoxBoolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AllowEarlyCheckIn") in
      make ~maxTimeToLiveInMinutes ~allowEarlyCheckIn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxTimeToLiveInMinutes =
        field_map_exn json__ "MaxTimeToLiveInMinutes" BoxInteger.of_json in
      let allowEarlyCheckIn =
        field_map_exn json__ "AllowEarlyCheckIn" BoxBoolean.of_json in
      make ~maxTimeToLiveInMinutes ~allowEarlyCheckIn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about a borrow configuration."]
module ProvisionalConfiguration =
  struct
    type nonrec t =
      {
      maxTimeToLiveInMinutes: BoxInteger.t
        [@ocaml.doc
          "Maximum time for the provisional configuration, in minutes."]}
    let context_ = "ProvisionalConfiguration"
    let make ~maxTimeToLiveInMinutes = fun () -> { maxTimeToLiveInMinutes }
    let to_value x =
      structure_to_value
        [("MaxTimeToLiveInMinutes",
           (Some (BoxInteger.to_value x.maxTimeToLiveInMinutes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxTimeToLiveInMinutes =
        BoxInteger.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MaxTimeToLiveInMinutes") in
      make ~maxTimeToLiveInMinutes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxTimeToLiveInMinutes =
        field_map_exn json__ "MaxTimeToLiveInMinutes" BoxInteger.of_json in
      make ~maxTimeToLiveInMinutes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about a provisional configuration."]
module RenewType =
  struct
    type nonrec t =
      | None 
      | Weekly 
      | Monthly 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | None -> "None"
      | Weekly -> "Weekly"
      | Monthly -> "Monthly"
      | Non_static_id s -> s
    let of_string =
      function
      | "None" -> None
      | "Weekly" -> Weekly
      | "Monthly" -> Monthly
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration RenewType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RenewType" j)
    let to_json = simple_to_json to_value
  end
module ISO8601DateTime =
  struct
    type nonrec t = string
    let context_ = "ISO8601DateTime"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^(-?(?:[1-9][0-9]*)?[0-9]{4})-(1[0-2]|0[1-9])-(3[0-1]|0[1-9]|[1-2][0-9])T(2[0-3]|[0-1][0-9]):([0-5][0-9]):([0-5][0-9])(\\.[0-9]+)?(Z|[+-](?:2[ 0-3]|[0-1][0-9]):[0-5][0-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:"ISO8601DateTime" j
    let to_json = simple_to_json to_value
  end
module Entitlement =
  struct
    type nonrec t =
      {
      name: String_.t [@ocaml.doc "Entitlement name."];
      value: String_.t option
        [@ocaml.doc "Entitlement resource. Use only if the unit is None."];
      maxCount: Long.t option
        [@ocaml.doc
          "Maximum entitlement count. Use if the unit is not None."];
      overage: BoxBoolean.t option
        [@ocaml.doc "Indicates whether overages are allowed."];
      unit: EntitlementUnit.t [@ocaml.doc "Entitlement unit."];
      allowCheckIn: BoxBoolean.t option
        [@ocaml.doc "Indicates whether check-ins are allowed."]}
    let context_ = "Entitlement"
    let make ?value =
      fun ?maxCount ->
        fun ?overage ->
          fun ?allowCheckIn ->
            fun ~name ->
              fun ~unit ->
                fun () ->
                  { value; maxCount; overage; allowCheckIn; name; unit }
    let to_value x =
      structure_to_value
        [("Name", (Some (String_.to_value x.name)));
        ("Value", (Option.map x.value ~f:String_.to_value));
        ("MaxCount", (Option.map x.maxCount ~f:Long.to_value));
        ("Overage", (Option.map x.overage ~f:BoxBoolean.to_value));
        ("Unit", (Some (EntitlementUnit.to_value x.unit)));
        ("AllowCheckIn", (Option.map x.allowCheckIn ~f:BoxBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allowCheckIn =
        (Option.map ~f:BoxBoolean.of_xml) (Xml.child xml_arg0 "AllowCheckIn") in
      let unit =
        EntitlementUnit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Unit") in
      let overage =
        (Option.map ~f:BoxBoolean.of_xml) (Xml.child xml_arg0 "Overage") in
      let maxCount =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "MaxCount") in
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?allowCheckIn ~unit ?overage ?maxCount ?value ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allowCheckIn = field_map json__ "AllowCheckIn" BoxBoolean.of_json in
      let unit = field_map_exn json__ "Unit" EntitlementUnit.of_json in
      let overage = field_map json__ "Overage" BoxBoolean.of_json in
      let maxCount = field_map json__ "MaxCount" Long.of_json in
      let value = field_map json__ "Value" String_.of_json in
      let name = field_map_exn json__ "Name" String_.of_json in
      make ?allowCheckIn ~unit ?overage ?maxCount ?value ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a resource entitled for use with a license."]
module Metadata =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The key name."];
      value: String_.t option [@ocaml.doc "The value."]}
    let make ?name = fun ?value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~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 name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?value ?name ()
    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 name = field_map json__ "Name" String_.of_json in
      make ?value ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes key/value pairs."]
module AllowedOperationList =
  struct
    type nonrec t = AllowedOperation.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:8) >>= (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:AllowedOperation.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:AllowedOperation.of_xml)
    let of_json j =
      list_of_json ~kind:"AllowedOperationList"
        ~of_json:AllowedOperation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReceivedStatus =
  struct
    type nonrec t =
      | PENDING_WORKFLOW 
      | PENDING_ACCEPT 
      | REJECTED 
      | ACTIVE 
      | FAILED_WORKFLOW 
      | DELETED 
      | DISABLED 
      | WORKFLOW_COMPLETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_WORKFLOW -> "PENDING_WORKFLOW"
      | PENDING_ACCEPT -> "PENDING_ACCEPT"
      | REJECTED -> "REJECTED"
      | ACTIVE -> "ACTIVE"
      | FAILED_WORKFLOW -> "FAILED_WORKFLOW"
      | DELETED -> "DELETED"
      | DISABLED -> "DISABLED"
      | WORKFLOW_COMPLETED -> "WORKFLOW_COMPLETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_WORKFLOW" -> PENDING_WORKFLOW
      | "PENDING_ACCEPT" -> PENDING_ACCEPT
      | "REJECTED" -> REJECTED
      | "ACTIVE" -> ACTIVE
      | "FAILED_WORKFLOW" -> FAILED_WORKFLOW
      | "DELETED" -> DELETED
      | "DISABLED" -> DISABLED
      | "WORKFLOW_COMPLETED" -> WORKFLOW_COMPLETED
      | 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 ReceivedStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReceivedStatus" j)
    let to_json = simple_to_json to_value
  end
module StatusReasonMessage =
  struct
    type nonrec t = string
    let context_ = "StatusReasonMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:400) >>=
             (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:"StatusReasonMessage" j
    let to_json = simple_to_json to_value
  end
module ActivationOverrideBehavior =
  struct
    type nonrec t =
      | DISTRIBUTED_GRANTS_ONLY 
      | ALL_GRANTS_PERMITTED_BY_ISSUER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DISTRIBUTED_GRANTS_ONLY -> "DISTRIBUTED_GRANTS_ONLY"
      | ALL_GRANTS_PERMITTED_BY_ISSUER -> "ALL_GRANTS_PERMITTED_BY_ISSUER"
      | Non_static_id s -> s
    let of_string =
      function
      | "DISTRIBUTED_GRANTS_ONLY" -> DISTRIBUTED_GRANTS_ONLY
      | "ALL_GRANTS_PERMITTED_BY_ISSUER" -> ALL_GRANTS_PERMITTED_BY_ISSUER
      | 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 ActivationOverrideBehavior"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ActivationOverrideBehavior" j)
    let to_json = simple_to_json to_value
  end
module ArnList =
  struct
    type nonrec t = Arn.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:Arn.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:Arn.of_xml)
    let of_json j = list_of_json ~kind:"ArnList" ~of_json:Arn.of_json j
    let to_json v = composed_to_json to_value v
  end
module DateTime =
  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 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 ReportFrequencyType =
  struct
    type nonrec t =
      | DAY 
      | WEEK 
      | MONTH 
      | ONE_TIME 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DAY -> "DAY"
      | WEEK -> "WEEK"
      | MONTH -> "MONTH"
      | ONE_TIME -> "ONE_TIME"
      | Non_static_id s -> s
    let of_string =
      function
      | "DAY" -> DAY
      | "WEEK" -> WEEK
      | "MONTH" -> MONTH
      | "ONE_TIME" -> ONE_TIME
      | 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 ReportFrequencyType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReportFrequencyType" j)
    let to_json = simple_to_json to_value
  end
module ReportType =
  struct
    type nonrec t =
      | LicenseConfigurationSummaryReport 
      | LicenseConfigurationUsageReport 
      | LicenseAssetGroupUsageReport 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LicenseConfigurationSummaryReport ->
          "LicenseConfigurationSummaryReport"
      | LicenseConfigurationUsageReport -> "LicenseConfigurationUsageReport"
      | LicenseAssetGroupUsageReport -> "LicenseAssetGroupUsageReport"
      | Non_static_id s -> s
    let of_string =
      function
      | "LicenseConfigurationSummaryReport" ->
          LicenseConfigurationSummaryReport
      | "LicenseConfigurationUsageReport" -> LicenseConfigurationUsageReport
      | "LicenseAssetGroupUsageReport" -> LicenseAssetGroupUsageReport
      | 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 ReportType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReportType" j)
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: String_.t option [@ocaml.doc "The tag key."];
      value: String_.t option [@ocaml.doc "The tag value."]}
    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
       "Details about the tags for a resource. For more information about tagging support in License Manager, see the TagResource operation."]
module ProductCodeList =
  struct
    type nonrec t = ProductCodeListItem.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:ProductCodeListItem.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:ProductCodeListItem.of_xml)
    let of_json j =
      list_of_json ~kind:"ProductCodeList"
        ~of_json:ProductCodeListItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module UsageOperation =
  struct
    type nonrec t = string
    let context_ = "UsageOperation"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:50); 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:"UsageOperation" j
    let to_json = simple_to_json to_value
  end
module ConsumedLicenseSummary =
  struct
    type nonrec t =
      {
      resourceType: ResourceType.t option
        [@ocaml.doc "Resource type of the resource consuming a license."];
      consumedLicenses: BoxLong.t option
        [@ocaml.doc "Number of licenses consumed by the resource."]}
    let make ?resourceType =
      fun ?consumedLicenses -> fun () -> { resourceType; consumedLicenses }
    let to_value x =
      structure_to_value
        [("ResourceType",
           (Option.map x.resourceType ~f:ResourceType.to_value));
        ("ConsumedLicenses",
          (Option.map x.consumedLicenses ~f:BoxLong.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let consumedLicenses =
        (Option.map ~f:BoxLong.of_xml)
          (Xml.child xml_arg0 "ConsumedLicenses") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      make ?consumedLicenses ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let consumedLicenses =
        field_map json__ "ConsumedLicenses" BoxLong.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      make ?consumedLicenses ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about license consumption."]
module ManagedResourceSummary =
  struct
    type nonrec t =
      {
      resourceType: ResourceType.t option
        [@ocaml.doc "Type of resource associated with a license."];
      associationCount: BoxLong.t option
        [@ocaml.doc "Number of resources associated with licenses."]}
    let make ?resourceType =
      fun ?associationCount -> fun () -> { resourceType; associationCount }
    let to_value x =
      structure_to_value
        [("ResourceType",
           (Option.map x.resourceType ~f:ResourceType.to_value));
        ("AssociationCount",
          (Option.map x.associationCount ~f:BoxLong.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associationCount =
        (Option.map ~f:BoxLong.of_xml)
          (Xml.child xml_arg0 "AssociationCount") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      make ?associationCount ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associationCount =
        field_map json__ "AssociationCount" BoxLong.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      make ?associationCount ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a managed resource."]
module ProductInformation =
  struct
    type nonrec t =
      {
      resourceType: String_.t
        [@ocaml.doc
          "Resource type. The possible values are SSM_MANAGED | RDS."];
      productInformationFilterList: ProductInformationFilterList.t
        [@ocaml.doc
          "A Product information filter consists of a ProductInformationFilterComparator which is a logical operator, a ProductInformationFilterName which specifies the type of filter being declared, and a ProductInformationFilterValue that specifies the value to filter on. Accepted values for ProductInformationFilterName are listed here along with descriptions and valid options for ProductInformationFilterComparator. The following filters and are supported when the resource type is SSM_MANAGED: Application Name - The name of the application. Logical operator is EQUALS. Application Publisher - The publisher of the application. Logical operator is EQUALS. Application Version - The version of the application. Logical operator is EQUALS. Platform Name - The name of the platform. Logical operator is EQUALS. Platform Type - The platform type. Logical operator is EQUALS. Tag:key - The key of a tag attached to an Amazon Web Services resource you wish to exclude from automated discovery. Logical operator is NOT_EQUALS. The key for your tag must be appended to Tag: following the example: Tag:name-of-your-key. ProductInformationFilterValue is optional if you are not using values for the key. AccountId - The 12-digit ID of an Amazon Web Services account you wish to exclude from automated discovery. Logical operator is NOT_EQUALS. License Included - The type of license included. Logical operators are EQUALS and NOT_EQUALS. Possible values are: sql-server-enterprise | sql-server-standard | sql-server-web | windows-server-datacenter. The following filters and logical operators are supported when the resource type is RDS: Engine Edition - The edition of the database engine. Logical operator is EQUALS. Possible values are: oracle-ee | oracle-se | oracle-se1 | oracle-se2 | db2-se | db2-ae. License Pack - The license pack. Logical operator is EQUALS. Possible values are: data guard | diagnostic pack sqlt | tuning pack sqlt | ols | olap."]}
    let context_ = "ProductInformation"
    let make ~resourceType =
      fun ~productInformationFilterList ->
        fun () -> { resourceType; productInformationFilterList }
    let to_value x =
      structure_to_value
        [("ResourceType", (Some (String_.to_value x.resourceType)));
        ("ProductInformationFilterList",
          (Some
             (ProductInformationFilterList.to_value
                x.productInformationFilterList)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let productInformationFilterList =
        ProductInformationFilterList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ProductInformationFilterList") in
      let resourceType =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceType") in
      make ~productInformationFilterList ~resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let productInformationFilterList =
        field_map_exn json__ "ProductInformationFilterList"
          ProductInformationFilterList.of_json in
      let resourceType = field_map_exn json__ "ResourceType" String_.of_json in
      make ~productInformationFilterList ~resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes product information for a license configuration."]
module LicenseAssetRule =
  struct
    type nonrec t =
      {
      ruleStatement: RuleStatement.t [@ocaml.doc "Rule statement."]}
    let context_ = "LicenseAssetRule"
    let make ~ruleStatement = fun () -> { ruleStatement }
    let to_value x =
      structure_to_value
        [("RuleStatement", (Some (RuleStatement.to_value x.ruleStatement)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleStatement =
        RuleStatement.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RuleStatement") in
      make ~ruleStatement ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleStatement =
        field_map_exn json__ "RuleStatement" RuleStatement.of_json in
      make ~ruleStatement ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "License asset rule."]
module LicenseAssetGroupConfiguration =
  struct
    type nonrec t =
      {
      usageDimension: String_.t option
        [@ocaml.doc "License Asset Group Configuration Usage dimension."]}
    let make ?usageDimension = fun () -> { usageDimension }
    let to_value x =
      structure_to_value
        [("UsageDimension",
           (Option.map x.usageDimension ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let usageDimension =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "UsageDimension") in
      make ?usageDimension ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let usageDimension = field_map json__ "UsageDimension" String_.of_json in
      make ?usageDimension ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "License asset group configuration."]
module LicenseAssetGroupProperty =
  struct
    type nonrec t =
      {
      key: String_.t [@ocaml.doc "Property key."];
      value: String_.t [@ocaml.doc "Property value."]}
    let context_ = "LicenseAssetGroupProperty"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (String_.to_value x.key)));
        ("Value", (Some (String_.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" String_.of_json in
      let key = field_map_exn json__ "Key" String_.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "License asset group property."]
module RegionStatus =
  struct
    type nonrec t =
      {
      status: String_.t option [@ocaml.doc "Status value for the region."]}
    let make ?status = fun () -> { status }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Status information for a specific region."]
module EntitlementDataUnit =
  struct
    type nonrec t =
      | Count 
      | None 
      | Seconds 
      | Microseconds 
      | Milliseconds 
      | Bytes 
      | Kilobytes 
      | Megabytes 
      | Gigabytes 
      | Terabytes 
      | Bits 
      | Kilobits 
      | Megabits 
      | Gigabits 
      | Terabits 
      | Percent 
      | Bytes_Second 
      | Kilobytes_Second 
      | Megabytes_Second 
      | Gigabytes_Second 
      | Terabytes_Second 
      | Bits_Second 
      | Kilobits_Second 
      | Megabits_Second 
      | Gigabits_Second 
      | Terabits_Second 
      | Count_Second 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Count -> "Count"
      | None -> "None"
      | Seconds -> "Seconds"
      | Microseconds -> "Microseconds"
      | Milliseconds -> "Milliseconds"
      | Bytes -> "Bytes"
      | Kilobytes -> "Kilobytes"
      | Megabytes -> "Megabytes"
      | Gigabytes -> "Gigabytes"
      | Terabytes -> "Terabytes"
      | Bits -> "Bits"
      | Kilobits -> "Kilobits"
      | Megabits -> "Megabits"
      | Gigabits -> "Gigabits"
      | Terabits -> "Terabits"
      | Percent -> "Percent"
      | Bytes_Second -> "Bytes/Second"
      | Kilobytes_Second -> "Kilobytes/Second"
      | Megabytes_Second -> "Megabytes/Second"
      | Gigabytes_Second -> "Gigabytes/Second"
      | Terabytes_Second -> "Terabytes/Second"
      | Bits_Second -> "Bits/Second"
      | Kilobits_Second -> "Kilobits/Second"
      | Megabits_Second -> "Megabits/Second"
      | Gigabits_Second -> "Gigabits/Second"
      | Terabits_Second -> "Terabits/Second"
      | Count_Second -> "Count/Second"
      | Non_static_id s -> s
    let of_string =
      function
      | "Count" -> Count
      | "None" -> None
      | "Seconds" -> Seconds
      | "Microseconds" -> Microseconds
      | "Milliseconds" -> Milliseconds
      | "Bytes" -> Bytes
      | "Kilobytes" -> Kilobytes
      | "Megabytes" -> Megabytes
      | "Gigabytes" -> Gigabytes
      | "Terabytes" -> Terabytes
      | "Bits" -> Bits
      | "Kilobits" -> Kilobits
      | "Megabits" -> Megabits
      | "Gigabits" -> Gigabits
      | "Terabits" -> Terabits
      | "Percent" -> Percent
      | "Bytes/Second" -> Bytes_Second
      | "Kilobytes/Second" -> Kilobytes_Second
      | "Megabytes/Second" -> Megabytes_Second
      | "Gigabytes/Second" -> Gigabytes_Second
      | "Terabytes/Second" -> Terabytes_Second
      | "Bits/Second" -> Bits_Second
      | "Kilobits/Second" -> Kilobits_Second
      | "Megabits/Second" -> Megabits_Second
      | "Gigabits/Second" -> Gigabits_Second
      | "Terabits/Second" -> Terabits_Second
      | "Count/Second" -> Count_Second
      | 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 EntitlementDataUnit" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EntitlementDataUnit" j)
    let to_json = simple_to_json to_value
  end
module FilterName =
  struct
    type nonrec t = string
    let context_ = "FilterName"
    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:"FilterName" j
    let to_json = simple_to_json to_value
  end
module FilterValues =
  struct
    type nonrec t = FilterValue.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:FilterValue.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:FilterValue.of_xml)
    let of_json j =
      list_of_json ~kind:"FilterValues" ~of_json:FilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxSize3StringList =
  struct
    type nonrec t = String_.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:3); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.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:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"MaxSize3StringList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module InventoryFilterCondition =
  struct
    type nonrec t =
      | EQUALS 
      | NOT_EQUALS 
      | BEGINS_WITH 
      | CONTAINS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EQUALS -> "EQUALS"
      | NOT_EQUALS -> "NOT_EQUALS"
      | BEGINS_WITH -> "BEGINS_WITH"
      | CONTAINS -> "CONTAINS"
      | Non_static_id s -> s
    let of_string =
      function
      | "EQUALS" -> EQUALS
      | "NOT_EQUALS" -> NOT_EQUALS
      | "BEGINS_WITH" -> BEGINS_WITH
      | "CONTAINS" -> CONTAINS
      | 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 InventoryFilterCondition" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InventoryFilterCondition" j)
    let to_json = simple_to_json to_value
  end
module ConsumptionConfiguration =
  struct
    type nonrec t =
      {
      renewType: RenewType.t option [@ocaml.doc "Renewal frequency."];
      provisionalConfiguration: ProvisionalConfiguration.t option
        [@ocaml.doc "Details about a provisional configuration."];
      borrowConfiguration: BorrowConfiguration.t option
        [@ocaml.doc "Details about a borrow configuration."]}
    let make ?renewType =
      fun ?provisionalConfiguration ->
        fun ?borrowConfiguration ->
          fun () ->
            { renewType; provisionalConfiguration; borrowConfiguration }
    let to_value x =
      structure_to_value
        [("RenewType", (Option.map x.renewType ~f:RenewType.to_value));
        ("ProvisionalConfiguration",
          (Option.map x.provisionalConfiguration
             ~f:ProvisionalConfiguration.to_value));
        ("BorrowConfiguration",
          (Option.map x.borrowConfiguration ~f:BorrowConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let borrowConfiguration =
        (Option.map ~f:BorrowConfiguration.of_xml)
          (Xml.child xml_arg0 "BorrowConfiguration") in
      let provisionalConfiguration =
        (Option.map ~f:ProvisionalConfiguration.of_xml)
          (Xml.child xml_arg0 "ProvisionalConfiguration") in
      let renewType =
        (Option.map ~f:RenewType.of_xml) (Xml.child xml_arg0 "RenewType") in
      make ?borrowConfiguration ?provisionalConfiguration ?renewType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let borrowConfiguration =
        field_map json__ "BorrowConfiguration" BorrowConfiguration.of_json in
      let provisionalConfiguration =
        field_map json__ "ProvisionalConfiguration"
          ProvisionalConfiguration.of_json in
      let renewType = field_map json__ "RenewType" RenewType.of_json in
      make ?borrowConfiguration ?provisionalConfiguration ?renewType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about a consumption configuration."]
module DatetimeRange =
  struct
    type nonrec t =
      {
      begin_: ISO8601DateTime.t [@ocaml.doc "Start of the time range."];
      end_: ISO8601DateTime.t option [@ocaml.doc "End of the time range."]}
    let context_ = "DatetimeRange"
    let make ?end_ = fun ~begin_ -> fun () -> { end_; begin_ }
    let to_value x =
      structure_to_value
        [("Begin", (Some (ISO8601DateTime.to_value x.begin_)));
        ("End", (Option.map x.end_ ~f:ISO8601DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let end_ =
        (Option.map ~f:ISO8601DateTime.of_xml) (Xml.child xml_arg0 "End") in
      let begin_ =
        ISO8601DateTime.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Begin") in
      make ?end_ ~begin_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let end_ = field_map json__ "End" ISO8601DateTime.of_json in
      let begin_ = field_map_exn json__ "Begin" ISO8601DateTime.of_json in
      make ?end_ ~begin_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a time range, in ISO8601-UTC format."]
module EntitlementList =
  struct
    type nonrec t = Entitlement.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:Entitlement.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:Entitlement.of_xml)
    let of_json j =
      list_of_json ~kind:"EntitlementList" ~of_json:Entitlement.of_json j
    let to_json v = composed_to_json to_value v
  end
module IssuerDetails =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "Issuer name."];
      signKey: String_.t option
        [@ocaml.doc
          "Asymmetric KMS key from Key Management Service. The KMS key must have a key usage of sign and verify, and support the RSASSA-PSS SHA-256 signing algorithm."];
      keyFingerprint: String_.t option [@ocaml.doc "Issuer key fingerprint."]}
    let make ?name =
      fun ?signKey ->
        fun ?keyFingerprint -> fun () -> { name; signKey; keyFingerprint }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("SignKey", (Option.map x.signKey ~f:String_.to_value));
        ("KeyFingerprint", (Option.map x.keyFingerprint ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyFingerprint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "KeyFingerprint") in
      let signKey =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SignKey") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?keyFingerprint ?signKey ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyFingerprint = field_map json__ "KeyFingerprint" String_.of_json in
      let signKey = field_map json__ "SignKey" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?keyFingerprint ?signKey ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details associated with the issuer of a license."]
module LicenseStatus =
  struct
    type nonrec t =
      | AVAILABLE 
      | PENDING_AVAILABLE 
      | DEACTIVATED 
      | SUSPENDED 
      | EXPIRED 
      | PENDING_DELETE 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AVAILABLE -> "AVAILABLE"
      | PENDING_AVAILABLE -> "PENDING_AVAILABLE"
      | DEACTIVATED -> "DEACTIVATED"
      | SUSPENDED -> "SUSPENDED"
      | EXPIRED -> "EXPIRED"
      | PENDING_DELETE -> "PENDING_DELETE"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "AVAILABLE" -> AVAILABLE
      | "PENDING_AVAILABLE" -> PENDING_AVAILABLE
      | "DEACTIVATED" -> DEACTIVATED
      | "SUSPENDED" -> SUSPENDED
      | "EXPIRED" -> EXPIRED
      | "PENDING_DELETE" -> PENDING_DELETE
      | "DELETED" -> DELETED
      | 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 LicenseStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LicenseStatus" j)
    let to_json = simple_to_json to_value
  end
module MetadataList =
  struct
    type nonrec t = Metadata.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:Metadata.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:Metadata.of_xml)
    let of_json j =
      list_of_json ~kind:"MetadataList" ~of_json:Metadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReceivedMetadata =
  struct
    type nonrec t =
      {
      receivedStatus: ReceivedStatus.t option [@ocaml.doc "Received status."];
      receivedStatusReason: StatusReasonMessage.t option
        [@ocaml.doc "Received status reason."];
      allowedOperations: AllowedOperationList.t option
        [@ocaml.doc "Allowed operations."]}
    let make ?receivedStatus =
      fun ?receivedStatusReason ->
        fun ?allowedOperations ->
          fun () ->
            { receivedStatus; receivedStatusReason; allowedOperations }
    let to_value x =
      structure_to_value
        [("ReceivedStatus",
           (Option.map x.receivedStatus ~f:ReceivedStatus.to_value));
        ("ReceivedStatusReason",
          (Option.map x.receivedStatusReason ~f:StatusReasonMessage.to_value));
        ("AllowedOperations",
          (Option.map x.allowedOperations ~f:AllowedOperationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allowedOperations =
        (Option.map ~f:AllowedOperationList.of_xml)
          (Xml.child xml_arg0 "AllowedOperations") in
      let receivedStatusReason =
        (Option.map ~f:StatusReasonMessage.of_xml)
          (Xml.child xml_arg0 "ReceivedStatusReason") in
      let receivedStatus =
        (Option.map ~f:ReceivedStatus.of_xml)
          (Xml.child xml_arg0 "ReceivedStatus") in
      make ?allowedOperations ?receivedStatusReason ?receivedStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allowedOperations =
        field_map json__ "AllowedOperations" AllowedOperationList.of_json in
      let receivedStatusReason =
        field_map json__ "ReceivedStatusReason" StatusReasonMessage.of_json in
      let receivedStatus =
        field_map json__ "ReceivedStatus" ReceivedStatus.of_json in
      make ?allowedOperations ?receivedStatusReason ?receivedStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Metadata associated with received licenses and grants."]
module GrantStatus =
  struct
    type nonrec t =
      | PENDING_WORKFLOW 
      | PENDING_ACCEPT 
      | REJECTED 
      | ACTIVE 
      | FAILED_WORKFLOW 
      | DELETED 
      | PENDING_DELETE 
      | DISABLED 
      | WORKFLOW_COMPLETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_WORKFLOW -> "PENDING_WORKFLOW"
      | PENDING_ACCEPT -> "PENDING_ACCEPT"
      | REJECTED -> "REJECTED"
      | ACTIVE -> "ACTIVE"
      | FAILED_WORKFLOW -> "FAILED_WORKFLOW"
      | DELETED -> "DELETED"
      | PENDING_DELETE -> "PENDING_DELETE"
      | DISABLED -> "DISABLED"
      | WORKFLOW_COMPLETED -> "WORKFLOW_COMPLETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_WORKFLOW" -> PENDING_WORKFLOW
      | "PENDING_ACCEPT" -> PENDING_ACCEPT
      | "REJECTED" -> REJECTED
      | "ACTIVE" -> ACTIVE
      | "FAILED_WORKFLOW" -> FAILED_WORKFLOW
      | "DELETED" -> DELETED
      | "PENDING_DELETE" -> PENDING_DELETE
      | "DISABLED" -> DISABLED
      | "WORKFLOW_COMPLETED" -> WORKFLOW_COMPLETED
      | 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 GrantStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GrantStatus" j)
    let to_json = simple_to_json to_value
  end
module Options =
  struct
    type nonrec t =
      {
      activationOverrideBehavior: ActivationOverrideBehavior.t option
        [@ocaml.doc
          "An activation option for your grant that determines the behavior of activating a grant. Activation options can only be used with granted licenses sourced from the Amazon Web Services Marketplace. Additionally, the operation must specify the value of ACTIVE for the Status parameter. As a license administrator, you can optionally specify an ActivationOverrideBehavior when activating a grant. As a grantor, you can optionally specify an ActivationOverrideBehavior when you activate a grant for a grantee account in your organization. As a grantee, if the grantor creating the distributed grant doesn\226\128\153t specify an ActivationOverrideBehavior, you can optionally specify one when you are activating the grant. DISTRIBUTED_GRANTS_ONLY Use this value to activate a grant without replacing any member account\226\128\153s active grants for the same product. ALL_GRANTS_PERMITTED_BY_ISSUER Use this value to activate a grant and disable other active grants in any member accounts for the same product. This action will also replace their previously activated grants with this activated grant."]}
    let make ?activationOverrideBehavior =
      fun () -> { activationOverrideBehavior }
    let to_value x =
      structure_to_value
        [("ActivationOverrideBehavior",
           (Option.map x.activationOverrideBehavior
              ~f:ActivationOverrideBehavior.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let activationOverrideBehavior =
        (Option.map ~f:ActivationOverrideBehavior.of_xml)
          (Xml.child xml_arg0 "ActivationOverrideBehavior") in
      make ?activationOverrideBehavior ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let activationOverrideBehavior =
        field_map json__ "ActivationOverrideBehavior"
          ActivationOverrideBehavior.of_json in
      make ?activationOverrideBehavior ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The options you can specify when you create a new version of a grant, such as activation override behavior. For more information, see Granted licenses in License Manager in the License Manager User Guide."]
module ReportContext =
  struct
    type nonrec t =
      {
      licenseConfigurationArns: ArnList.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license configuration that this generator reports on."];
      licenseAssetGroupArns: ArnList.t option
        [@ocaml.doc
          "Amazon Resource Names (ARNs) of the license asset groups to include in the report."];
      reportStartDate: DateTime.t option
        [@ocaml.doc "Start date for the report data collection period."];
      reportEndDate: DateTime.t option
        [@ocaml.doc "End date for the report data collection period."]}
    let make ?licenseConfigurationArns =
      fun ?licenseAssetGroupArns ->
        fun ?reportStartDate ->
          fun ?reportEndDate ->
            fun () ->
              {
                licenseConfigurationArns;
                licenseAssetGroupArns;
                reportStartDate;
                reportEndDate
              }
    let to_value x =
      structure_to_value
        [("licenseConfigurationArns",
           (Option.map x.licenseConfigurationArns ~f:ArnList.to_value));
        ("licenseAssetGroupArns",
          (Option.map x.licenseAssetGroupArns ~f:ArnList.to_value));
        ("reportStartDate",
          (Option.map x.reportStartDate ~f:DateTime.to_value));
        ("reportEndDate", (Option.map x.reportEndDate ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportEndDate =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "reportEndDate") in
      let reportStartDate =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "reportStartDate") in
      let licenseAssetGroupArns =
        (Option.map ~f:ArnList.of_xml)
          (Xml.child xml_arg0 "licenseAssetGroupArns") in
      let licenseConfigurationArns =
        (Option.map ~f:ArnList.of_xml)
          (Xml.child xml_arg0 "licenseConfigurationArns") in
      make ?reportEndDate ?reportStartDate ?licenseAssetGroupArns
        ?licenseConfigurationArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportEndDate = field_map json__ "reportEndDate" DateTime.of_json in
      let reportStartDate =
        field_map json__ "reportStartDate" DateTime.of_json in
      let licenseAssetGroupArns =
        field_map json__ "licenseAssetGroupArns" ArnList.of_json in
      let licenseConfigurationArns =
        field_map json__ "licenseConfigurationArns" ArnList.of_json in
      make ?reportEndDate ?reportStartDate ?licenseAssetGroupArns
        ?licenseConfigurationArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details of the license configuration that this generator reports on."]
module ReportFrequency =
  struct
    type nonrec t =
      {
      value: Integer.t option
        [@ocaml.doc
          "Number of times within the frequency period that a report is generated. The only supported value is 1."];
      period: ReportFrequencyType.t option
        [@ocaml.doc
          "Time period between each report. The period can be daily, weekly, or monthly."]}
    let make ?value = fun ?period -> fun () -> { value; period }
    let to_value x =
      structure_to_value
        [("value", (Option.map x.value ~f:Integer.to_value));
        ("period", (Option.map x.period ~f:ReportFrequencyType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let period =
        (Option.map ~f:ReportFrequencyType.of_xml)
          (Xml.child xml_arg0 "period") in
      let value = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "value") in
      make ?period ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let period = field_map json__ "period" ReportFrequencyType.of_json in
      let value = field_map json__ "value" Integer.of_json in
      make ?period ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about how frequently reports are generated."]
module ReportTypeList =
  struct
    type nonrec t = ReportType.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:ReportType.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:ReportType.of_xml)
    let of_json j =
      list_of_json ~kind:"ReportTypeList" ~of_json:ReportType.of_json j
    let to_json v = composed_to_json to_value v
  end
module S3Location =
  struct
    type nonrec t =
      {
      bucket: String_.t option
        [@ocaml.doc "Name of the S3 bucket reports are published to."];
      keyPrefix: String_.t option
        [@ocaml.doc "Prefix of the S3 bucket reports are published to."]}
    let make ?bucket = fun ?keyPrefix -> fun () -> { bucket; keyPrefix }
    let to_value x =
      structure_to_value
        [("bucket", (Option.map x.bucket ~f:String_.to_value));
        ("keyPrefix", (Option.map x.keyPrefix ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keyPrefix =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "keyPrefix") in
      let bucket =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "bucket") in
      make ?keyPrefix ?bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keyPrefix = field_map json__ "keyPrefix" String_.of_json in
      let bucket = field_map json__ "bucket" String_.of_json in
      make ?keyPrefix ?bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details of the S3 bucket that report generator reports are published to."]
module TagList =
  struct
    type nonrec t = Tag.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:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module LicenseConversionContext =
  struct
    type nonrec t =
      {
      usageOperation: UsageOperation.t option
        [@ocaml.doc
          "The Usage operation value that corresponds to the license type you are converting your resource from. For more information about which platforms correspond to which usage operation values see Sample data: usage operation by platform"];
      productCodes: ProductCodeList.t option
        [@ocaml.doc
          "Product codes referred to in the license conversion process."]}
    let make ?usageOperation =
      fun ?productCodes -> fun () -> { usageOperation; productCodes }
    let to_value x =
      structure_to_value
        [("UsageOperation",
           (Option.map x.usageOperation ~f:UsageOperation.to_value));
        ("ProductCodes",
          (Option.map x.productCodes ~f:ProductCodeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let productCodes =
        (Option.map ~f:ProductCodeList.of_xml)
          (Xml.child xml_arg0 "ProductCodes") in
      let usageOperation =
        (Option.map ~f:UsageOperation.of_xml)
          (Xml.child xml_arg0 "UsageOperation") in
      make ?productCodes ?usageOperation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let productCodes =
        field_map json__ "ProductCodes" ProductCodeList.of_json in
      let usageOperation =
        field_map json__ "UsageOperation" UsageOperation.of_json in
      make ?productCodes ?usageOperation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a license type conversion task."]
module LicenseConversionTaskId =
  struct
    type nonrec t = string
    let context_ = "LicenseConversionTaskId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_pattern i ~pattern:"^lct-[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:"LicenseConversionTaskId" j
    let to_json = simple_to_json to_value
  end
module LicenseConversionTaskStatus =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | SUCCEEDED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | 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 LicenseConversionTaskStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LicenseConversionTaskStatus" j)
    let to_json = simple_to_json to_value
  end
module AutomatedDiscoveryInformation =
  struct
    type nonrec t =
      {
      lastRunTime: DateTime.t option
        [@ocaml.doc "Time that automated discovery last ran."]}
    let make ?lastRunTime = fun () -> { lastRunTime }
    let to_value x =
      structure_to_value
        [("LastRunTime", (Option.map x.lastRunTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastRunTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "LastRunTime") in
      make ?lastRunTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastRunTime = field_map json__ "LastRunTime" DateTime.of_json in
      make ?lastRunTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes automated discovery."]
module ConsumedLicenseSummaryList =
  struct
    type nonrec t = ConsumedLicenseSummary.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:ConsumedLicenseSummary.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:ConsumedLicenseSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ConsumedLicenseSummaryList"
        ~of_json:ConsumedLicenseSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module LicenseCountingType =
  struct
    type nonrec t =
      | VCPU 
      | Instance 
      | Core_ 
      | Socket 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VCPU -> "vCPU"
      | Instance -> "Instance"
      | Core_ -> "Core"
      | Socket -> "Socket"
      | Non_static_id s -> s
    let of_string =
      function
      | "vCPU" -> VCPU
      | "Instance" -> Instance
      | "Core" -> Core_
      | "Socket" -> Socket
      | 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 LicenseCountingType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LicenseCountingType" j)
    let to_json = simple_to_json to_value
  end
module ManagedResourceSummaryList =
  struct
    type nonrec t = ManagedResourceSummary.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:ManagedResourceSummary.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:ManagedResourceSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ManagedResourceSummaryList"
        ~of_json:ManagedResourceSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProductInformationList =
  struct
    type nonrec t = ProductInformation.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:ProductInformation.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:ProductInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"ProductInformationList"
        ~of_json:ProductInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module LicenseAssetRuleList =
  struct
    type nonrec t = LicenseAssetRule.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:LicenseAssetRule.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:LicenseAssetRule.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseAssetRuleList"
        ~of_json:LicenseAssetRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module LicenseAssetGroupConfigurationList =
  struct
    type nonrec t = LicenseAssetGroupConfiguration.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:LicenseAssetGroupConfiguration.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:LicenseAssetGroupConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseAssetGroupConfigurationList"
        ~of_json:LicenseAssetGroupConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module LicenseAssetGroupPropertyList =
  struct
    type nonrec t = LicenseAssetGroupProperty.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:LicenseAssetGroupProperty.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:LicenseAssetGroupProperty.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseAssetGroupPropertyList"
        ~of_json:LicenseAssetGroupProperty.of_json j
    let to_json v = composed_to_json to_value v
  end
module LicenseAssetGroupStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | DISABLED 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | DISABLED -> "DISABLED"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "DISABLED" -> DISABLED
      | "DELETED" -> DELETED
      | 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 LicenseAssetGroupStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LicenseAssetGroupStatus" j)
    let to_json = simple_to_json to_value
  end
module LicenseAssetRulesetArnList =
  struct
    type nonrec t = Arn.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:Arn.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:Arn.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseAssetRulesetArnList" ~of_json:Arn.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegionStatusMap =
  struct
    type nonrec t = (String_.t * RegionStatus.t) list
    let make i = 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 ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types String RegionStatus"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (RegionStatus.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:String_.of_string
        ~of_json:RegionStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module EntitlementUsage =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "Entitlement usage name."];
      consumedValue: String_.t option [@ocaml.doc "Resource usage consumed."];
      maxCount: String_.t option
        [@ocaml.doc "Maximum entitlement usage count."];
      unit: EntitlementDataUnit.t option
        [@ocaml.doc "Entitlement usage unit."]}
    let make ?name =
      fun ?consumedValue ->
        fun ?maxCount ->
          fun ?unit -> fun () -> { name; consumedValue; maxCount; unit }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("ConsumedValue", (Option.map x.consumedValue ~f:String_.to_value));
        ("MaxCount", (Option.map x.maxCount ~f:String_.to_value));
        ("Unit", (Option.map x.unit ~f:EntitlementDataUnit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unit =
        (Option.map ~f:EntitlementDataUnit.of_xml)
          (Xml.child xml_arg0 "Unit") in
      let maxCount =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MaxCount") in
      let consumedValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ConsumedValue") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?unit ?maxCount ?consumedValue ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unit = field_map json__ "Unit" EntitlementDataUnit.of_json in
      let maxCount = field_map json__ "MaxCount" String_.of_json in
      let consumedValue = field_map json__ "ConsumedValue" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?unit ?maxCount ?consumedValue ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Usage associated with an entitlement resource."]
module Message =
  struct
    type nonrec t = string
    let context_ = "Message"
    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:"Message" 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 LicenseSpecification =
  struct
    type nonrec t =
      {
      licenseConfigurationArn: String_.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license configuration."];
      amiAssociationScope: String_.t option
        [@ocaml.doc
          "Scope of AMI associations. The possible value is cross-account."]}
    let context_ = "LicenseSpecification"
    let make ?amiAssociationScope =
      fun ~licenseConfigurationArn ->
        fun () -> { amiAssociationScope; licenseConfigurationArn }
    let to_value x =
      structure_to_value
        [("LicenseConfigurationArn",
           (Some (String_.to_value x.licenseConfigurationArn)));
        ("AmiAssociationScope",
          (Option.map x.amiAssociationScope ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let amiAssociationScope =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AmiAssociationScope") in
      let licenseConfigurationArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseConfigurationArn") in
      make ?amiAssociationScope ~licenseConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let amiAssociationScope =
        field_map json__ "AmiAssociationScope" String_.of_json in
      let licenseConfigurationArn =
        field_map_exn json__ "LicenseConfigurationArn" String_.of_json in
      make ?amiAssociationScope ~licenseConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details for associating a license configuration with a resource."]
module LicenseConfigurationUsage =
  struct
    type nonrec t =
      {
      resourceArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the resource."];
      resourceType: ResourceType.t option [@ocaml.doc "Type of resource."];
      resourceStatus: String_.t option [@ocaml.doc "Status of the resource."];
      resourceOwnerId: String_.t option
        [@ocaml.doc "ID of the account that owns the resource."];
      associationTime: DateTime.t option
        [@ocaml.doc
          "Time when the license configuration was initially associated with the resource."];
      consumedLicenses: BoxLong.t option
        [@ocaml.doc "Number of licenses consumed by the resource."]}
    let make ?resourceArn =
      fun ?resourceType ->
        fun ?resourceStatus ->
          fun ?resourceOwnerId ->
            fun ?associationTime ->
              fun ?consumedLicenses ->
                fun () ->
                  {
                    resourceArn;
                    resourceType;
                    resourceStatus;
                    resourceOwnerId;
                    associationTime;
                    consumedLicenses
                  }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Option.map x.resourceArn ~f:String_.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("ResourceStatus", (Option.map x.resourceStatus ~f:String_.to_value));
        ("ResourceOwnerId",
          (Option.map x.resourceOwnerId ~f:String_.to_value));
        ("AssociationTime",
          (Option.map x.associationTime ~f:DateTime.to_value));
        ("ConsumedLicenses",
          (Option.map x.consumedLicenses ~f:BoxLong.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let consumedLicenses =
        (Option.map ~f:BoxLong.of_xml)
          (Xml.child xml_arg0 "ConsumedLicenses") in
      let associationTime =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "AssociationTime") in
      let resourceOwnerId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceOwnerId") in
      let resourceStatus =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceStatus") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let resourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      make ?consumedLicenses ?associationTime ?resourceOwnerId
        ?resourceStatus ?resourceType ?resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let consumedLicenses =
        field_map json__ "ConsumedLicenses" BoxLong.of_json in
      let associationTime =
        field_map json__ "AssociationTime" DateTime.of_json in
      let resourceOwnerId =
        field_map json__ "ResourceOwnerId" String_.of_json in
      let resourceStatus = field_map json__ "ResourceStatus" String_.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let resourceArn = field_map json__ "ResourceArn" String_.of_json in
      make ?consumedLicenses ?associationTime ?resourceOwnerId
        ?resourceStatus ?resourceType ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about the usage of a resource associated with a license configuration."]
module Filter =
  struct
    type nonrec t =
      {
      name: FilterName.t option
        [@ocaml.doc "Name of the filter. Filter names are case-sensitive."];
      values: FilterValues.t option
        [@ocaml.doc
          "The value of the filter, which is case-sensitive. You can only specify one value for the filter."]}
    let make ?name = fun ?values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:FilterName.to_value));
        ("Values", (Option.map x.values ~f:FilterValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:FilterValues.of_xml) (Xml.child xml_arg0 "Values") in
      let name =
        (Option.map ~f:FilterName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?values ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map json__ "Values" FilterValues.of_json in
      let name = field_map json__ "Name" FilterName.of_json in
      make ?values ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter name and value pair that is used to return more specific results from a describe operation. Filters can be used to match a set of resources by specific criteria, such as tags, attributes, or IDs."]
module TokenData =
  struct
    type nonrec t =
      {
      tokenId: String_.t option [@ocaml.doc "Token ID."];
      tokenType: String_.t option
        [@ocaml.doc
          "Type of token generated. The supported value is REFRESH_TOKEN."];
      licenseArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the license."];
      expirationTime: ISO8601DateTime.t option
        [@ocaml.doc "Token expiration time, in ISO8601-UTC format."];
      tokenProperties: MaxSize3StringList.t option
        [@ocaml.doc "Data specified by the caller."];
      roleArns: ArnList.t option
        [@ocaml.doc
          "Amazon Resource Names (ARN) of the roles included in the token."];
      status: String_.t option
        [@ocaml.doc
          "Token status. The possible values are AVAILABLE and DELETED."]}
    let make ?tokenId =
      fun ?tokenType ->
        fun ?licenseArn ->
          fun ?expirationTime ->
            fun ?tokenProperties ->
              fun ?roleArns ->
                fun ?status ->
                  fun () ->
                    {
                      tokenId;
                      tokenType;
                      licenseArn;
                      expirationTime;
                      tokenProperties;
                      roleArns;
                      status
                    }
    let to_value x =
      structure_to_value
        [("TokenId", (Option.map x.tokenId ~f:String_.to_value));
        ("TokenType", (Option.map x.tokenType ~f:String_.to_value));
        ("LicenseArn", (Option.map x.licenseArn ~f:String_.to_value));
        ("ExpirationTime",
          (Option.map x.expirationTime ~f:ISO8601DateTime.to_value));
        ("TokenProperties",
          (Option.map x.tokenProperties ~f:MaxSize3StringList.to_value));
        ("RoleArns", (Option.map x.roleArns ~f:ArnList.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let roleArns =
        (Option.map ~f:ArnList.of_xml) (Xml.child xml_arg0 "RoleArns") in
      let tokenProperties =
        (Option.map ~f:MaxSize3StringList.of_xml)
          (Xml.child xml_arg0 "TokenProperties") in
      let expirationTime =
        (Option.map ~f:ISO8601DateTime.of_xml)
          (Xml.child xml_arg0 "ExpirationTime") in
      let licenseArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LicenseArn") in
      let tokenType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TokenType") in
      let tokenId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TokenId") in
      make ?status ?roleArns ?tokenProperties ?expirationTime ?licenseArn
        ?tokenType ?tokenId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      let roleArns = field_map json__ "RoleArns" ArnList.of_json in
      let tokenProperties =
        field_map json__ "TokenProperties" MaxSize3StringList.of_json in
      let expirationTime =
        field_map json__ "ExpirationTime" ISO8601DateTime.of_json in
      let licenseArn = field_map json__ "LicenseArn" String_.of_json in
      let tokenType = field_map json__ "TokenType" String_.of_json in
      let tokenId = field_map json__ "TokenId" String_.of_json in
      make ?status ?roleArns ?tokenProperties ?expirationTime ?licenseArn
        ?tokenType ?tokenId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a token."]
module ResourceInventory =
  struct
    type nonrec t =
      {
      resourceId: String_.t option [@ocaml.doc "ID of the resource."];
      resourceType: ResourceType.t option [@ocaml.doc "Type of resource."];
      resourceArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the resource."];
      platform: String_.t option [@ocaml.doc "Platform of the resource."];
      platformVersion: String_.t option
        [@ocaml.doc "Platform version of the resource in the inventory."];
      resourceOwningAccountId: String_.t option
        [@ocaml.doc "ID of the account that owns the resource."];
      marketplaceProductCodes: StringList.t option
        [@ocaml.doc
          "List of Marketplace product codes associated with the resource."];
      usageOperation: String_.t option
        [@ocaml.doc
          "Usage operation value that corresponds to the license type for billing purposes."];
      amiId: String_.t option
        [@ocaml.doc
          "Amazon Machine Image (AMI) ID associated with the resource."];
      hostId: String_.t option
        [@ocaml.doc "Dedicated Host ID where the resource is running."];
      region: String_.t option
        [@ocaml.doc "Region where the resource is located."];
      instanceType: String_.t option
        [@ocaml.doc "EC2 instance type of the resource."]}
    let make ?resourceId =
      fun ?resourceType ->
        fun ?resourceArn ->
          fun ?platform ->
            fun ?platformVersion ->
              fun ?resourceOwningAccountId ->
                fun ?marketplaceProductCodes ->
                  fun ?usageOperation ->
                    fun ?amiId ->
                      fun ?hostId ->
                        fun ?region ->
                          fun ?instanceType ->
                            fun () ->
                              {
                                resourceId;
                                resourceType;
                                resourceArn;
                                platform;
                                platformVersion;
                                resourceOwningAccountId;
                                marketplaceProductCodes;
                                usageOperation;
                                amiId;
                                hostId;
                                region;
                                instanceType
                              }
    let to_value x =
      structure_to_value
        [("ResourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:String_.to_value));
        ("Platform", (Option.map x.platform ~f:String_.to_value));
        ("PlatformVersion",
          (Option.map x.platformVersion ~f:String_.to_value));
        ("ResourceOwningAccountId",
          (Option.map x.resourceOwningAccountId ~f:String_.to_value));
        ("MarketplaceProductCodes",
          (Option.map x.marketplaceProductCodes ~f:StringList.to_value));
        ("UsageOperation", (Option.map x.usageOperation ~f:String_.to_value));
        ("AmiId", (Option.map x.amiId ~f:String_.to_value));
        ("HostId", (Option.map x.hostId ~f:String_.to_value));
        ("Region", (Option.map x.region ~f:String_.to_value));
        ("InstanceType", (Option.map x.instanceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "InstanceType") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Region") in
      let hostId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "HostId") in
      let amiId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AmiId") in
      let usageOperation =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "UsageOperation") in
      let marketplaceProductCodes =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "MarketplaceProductCodes") in
      let resourceOwningAccountId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ResourceOwningAccountId") in
      let platformVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PlatformVersion") in
      let platform =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Platform") in
      let resourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceId") in
      make ?instanceType ?region ?hostId ?amiId ?usageOperation
        ?marketplaceProductCodes ?resourceOwningAccountId ?platformVersion
        ?platform ?resourceArn ?resourceType ?resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceType = field_map json__ "InstanceType" String_.of_json in
      let region = field_map json__ "Region" String_.of_json in
      let hostId = field_map json__ "HostId" String_.of_json in
      let amiId = field_map json__ "AmiId" String_.of_json in
      let usageOperation = field_map json__ "UsageOperation" String_.of_json in
      let marketplaceProductCodes =
        field_map json__ "MarketplaceProductCodes" StringList.of_json in
      let resourceOwningAccountId =
        field_map json__ "ResourceOwningAccountId" String_.of_json in
      let platformVersion =
        field_map json__ "PlatformVersion" String_.of_json in
      let platform = field_map json__ "Platform" String_.of_json in
      let resourceArn = field_map json__ "ResourceArn" String_.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      make ?instanceType ?region ?hostId ?amiId ?usageOperation
        ?marketplaceProductCodes ?resourceOwningAccountId ?platformVersion
        ?platform ?resourceArn ?resourceType ?resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about a resource."]
module InventoryFilter =
  struct
    type nonrec t =
      {
      name: String_.t [@ocaml.doc "Name of the filter."];
      condition: InventoryFilterCondition.t
        [@ocaml.doc "Condition of the filter."];
      value: String_.t option [@ocaml.doc "Value of the filter."]}
    let context_ = "InventoryFilter"
    let make ?value =
      fun ~name -> fun ~condition -> fun () -> { value; name; condition }
    let to_value x =
      structure_to_value
        [("Name", (Some (String_.to_value x.name)));
        ("Condition", (Some (InventoryFilterCondition.to_value x.condition)));
        ("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 condition =
        InventoryFilterCondition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Condition") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?value ~condition ~name ()
    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 condition =
        field_map_exn json__ "Condition" InventoryFilterCondition.of_json in
      let name = field_map_exn json__ "Name" String_.of_json in
      make ?value ~condition ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An inventory filter."]
module GrantedLicense =
  struct
    type nonrec t =
      {
      licenseArn: Arn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the license."];
      licenseName: String_.t option [@ocaml.doc "License name."];
      productName: String_.t option [@ocaml.doc "Product name."];
      productSKU: String_.t option [@ocaml.doc "Product SKU."];
      issuer: IssuerDetails.t option [@ocaml.doc "Granted license issuer."];
      homeRegion: String_.t option
        [@ocaml.doc "Home Region of the granted license."];
      status: LicenseStatus.t option [@ocaml.doc "Granted license status."];
      validity: DatetimeRange.t option
        [@ocaml.doc
          "Date and time range during which the granted license is valid, in ISO8601-UTC format."];
      beneficiary: String_.t option
        [@ocaml.doc "Granted license beneficiary."];
      entitlements: EntitlementList.t option
        [@ocaml.doc "License entitlements."];
      consumptionConfiguration: ConsumptionConfiguration.t option
        [@ocaml.doc "Configuration for consumption of the license."];
      licenseMetadata: MetadataList.t option
        [@ocaml.doc "Granted license metadata."];
      createTime: ISO8601DateTime.t option
        [@ocaml.doc "Creation time of the granted license."];
      version: String_.t option
        [@ocaml.doc "Version of the granted license."];
      receivedMetadata: ReceivedMetadata.t option
        [@ocaml.doc "Granted license received metadata."]}
    let make ?licenseArn =
      fun ?licenseName ->
        fun ?productName ->
          fun ?productSKU ->
            fun ?issuer ->
              fun ?homeRegion ->
                fun ?status ->
                  fun ?validity ->
                    fun ?beneficiary ->
                      fun ?entitlements ->
                        fun ?consumptionConfiguration ->
                          fun ?licenseMetadata ->
                            fun ?createTime ->
                              fun ?version ->
                                fun ?receivedMetadata ->
                                  fun () ->
                                    {
                                      licenseArn;
                                      licenseName;
                                      productName;
                                      productSKU;
                                      issuer;
                                      homeRegion;
                                      status;
                                      validity;
                                      beneficiary;
                                      entitlements;
                                      consumptionConfiguration;
                                      licenseMetadata;
                                      createTime;
                                      version;
                                      receivedMetadata
                                    }
    let to_value x =
      structure_to_value
        [("LicenseArn", (Option.map x.licenseArn ~f:Arn.to_value));
        ("LicenseName", (Option.map x.licenseName ~f:String_.to_value));
        ("ProductName", (Option.map x.productName ~f:String_.to_value));
        ("ProductSKU", (Option.map x.productSKU ~f:String_.to_value));
        ("Issuer", (Option.map x.issuer ~f:IssuerDetails.to_value));
        ("HomeRegion", (Option.map x.homeRegion ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:LicenseStatus.to_value));
        ("Validity", (Option.map x.validity ~f:DatetimeRange.to_value));
        ("Beneficiary", (Option.map x.beneficiary ~f:String_.to_value));
        ("Entitlements",
          (Option.map x.entitlements ~f:EntitlementList.to_value));
        ("ConsumptionConfiguration",
          (Option.map x.consumptionConfiguration
             ~f:ConsumptionConfiguration.to_value));
        ("LicenseMetadata",
          (Option.map x.licenseMetadata ~f:MetadataList.to_value));
        ("CreateTime", (Option.map x.createTime ~f:ISO8601DateTime.to_value));
        ("Version", (Option.map x.version ~f:String_.to_value));
        ("ReceivedMetadata",
          (Option.map x.receivedMetadata ~f:ReceivedMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let receivedMetadata =
        (Option.map ~f:ReceivedMetadata.of_xml)
          (Xml.child xml_arg0 "ReceivedMetadata") in
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Version") in
      let createTime =
        (Option.map ~f:ISO8601DateTime.of_xml)
          (Xml.child xml_arg0 "CreateTime") in
      let licenseMetadata =
        (Option.map ~f:MetadataList.of_xml)
          (Xml.child xml_arg0 "LicenseMetadata") in
      let consumptionConfiguration =
        (Option.map ~f:ConsumptionConfiguration.of_xml)
          (Xml.child xml_arg0 "ConsumptionConfiguration") in
      let entitlements =
        (Option.map ~f:EntitlementList.of_xml)
          (Xml.child xml_arg0 "Entitlements") in
      let beneficiary =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Beneficiary") in
      let validity =
        (Option.map ~f:DatetimeRange.of_xml) (Xml.child xml_arg0 "Validity") in
      let status =
        (Option.map ~f:LicenseStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let homeRegion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "HomeRegion") in
      let issuer =
        (Option.map ~f:IssuerDetails.of_xml) (Xml.child xml_arg0 "Issuer") in
      let productSKU =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ProductSKU") in
      let productName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ProductName") in
      let licenseName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LicenseName") in
      let licenseArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "LicenseArn") in
      make ?receivedMetadata ?version ?createTime ?licenseMetadata
        ?consumptionConfiguration ?entitlements ?beneficiary ?validity
        ?status ?homeRegion ?issuer ?productSKU ?productName ?licenseName
        ?licenseArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let receivedMetadata =
        field_map json__ "ReceivedMetadata" ReceivedMetadata.of_json in
      let version = field_map json__ "Version" String_.of_json in
      let createTime = field_map json__ "CreateTime" ISO8601DateTime.of_json in
      let licenseMetadata =
        field_map json__ "LicenseMetadata" MetadataList.of_json in
      let consumptionConfiguration =
        field_map json__ "ConsumptionConfiguration"
          ConsumptionConfiguration.of_json in
      let entitlements =
        field_map json__ "Entitlements" EntitlementList.of_json in
      let beneficiary = field_map json__ "Beneficiary" String_.of_json in
      let validity = field_map json__ "Validity" DatetimeRange.of_json in
      let status = field_map json__ "Status" LicenseStatus.of_json in
      let homeRegion = field_map json__ "HomeRegion" String_.of_json in
      let issuer = field_map json__ "Issuer" IssuerDetails.of_json in
      let productSKU = field_map json__ "ProductSKU" String_.of_json in
      let productName = field_map json__ "ProductName" String_.of_json in
      let licenseName = field_map json__ "LicenseName" String_.of_json in
      let licenseArn = field_map json__ "LicenseArn" Arn.of_json in
      make ?receivedMetadata ?version ?createTime ?licenseMetadata
        ?consumptionConfiguration ?entitlements ?beneficiary ?validity
        ?status ?homeRegion ?issuer ?productSKU ?productName ?licenseName
        ?licenseArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a license that is granted to a grantee."]
module Grant =
  struct
    type nonrec t =
      {
      grantArn: Arn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the grant."];
      grantName: String_.t option [@ocaml.doc "Grant name."];
      parentArn: Arn.t option [@ocaml.doc "Parent ARN."];
      licenseArn: Arn.t option [@ocaml.doc "License ARN."];
      granteePrincipalArn: Arn.t option
        [@ocaml.doc "The grantee principal ARN."];
      homeRegion: String_.t option [@ocaml.doc "Home Region of the grant."];
      grantStatus: GrantStatus.t option [@ocaml.doc "Grant status."];
      statusReason: StatusReasonMessage.t option
        [@ocaml.doc "Grant status reason."];
      version: String_.t option [@ocaml.doc "Grant version."];
      grantedOperations: AllowedOperationList.t option
        [@ocaml.doc "Granted operations."];
      options: Options.t option
        [@ocaml.doc "The options specified for the grant."]}
    let make ?grantArn =
      fun ?grantName ->
        fun ?parentArn ->
          fun ?licenseArn ->
            fun ?granteePrincipalArn ->
              fun ?homeRegion ->
                fun ?grantStatus ->
                  fun ?statusReason ->
                    fun ?version ->
                      fun ?grantedOperations ->
                        fun ?options ->
                          fun () ->
                            {
                              grantArn;
                              grantName;
                              parentArn;
                              licenseArn;
                              granteePrincipalArn;
                              homeRegion;
                              grantStatus;
                              statusReason;
                              version;
                              grantedOperations;
                              options
                            }
    let to_value x =
      structure_to_value
        [("GrantArn", (Option.map x.grantArn ~f:Arn.to_value));
        ("GrantName", (Option.map x.grantName ~f:String_.to_value));
        ("ParentArn", (Option.map x.parentArn ~f:Arn.to_value));
        ("LicenseArn", (Option.map x.licenseArn ~f:Arn.to_value));
        ("GranteePrincipalArn",
          (Option.map x.granteePrincipalArn ~f:Arn.to_value));
        ("HomeRegion", (Option.map x.homeRegion ~f:String_.to_value));
        ("GrantStatus", (Option.map x.grantStatus ~f:GrantStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:StatusReasonMessage.to_value));
        ("Version", (Option.map x.version ~f:String_.to_value));
        ("GrantedOperations",
          (Option.map x.grantedOperations ~f:AllowedOperationList.to_value));
        ("Options", (Option.map x.options ~f:Options.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        (Option.map ~f:Options.of_xml) (Xml.child xml_arg0 "Options") in
      let grantedOperations =
        (Option.map ~f:AllowedOperationList.of_xml)
          (Xml.child xml_arg0 "GrantedOperations") in
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Version") in
      let statusReason =
        (Option.map ~f:StatusReasonMessage.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let grantStatus =
        (Option.map ~f:GrantStatus.of_xml) (Xml.child xml_arg0 "GrantStatus") in
      let homeRegion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "HomeRegion") in
      let granteePrincipalArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "GranteePrincipalArn") in
      let licenseArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "LicenseArn") in
      let parentArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "ParentArn") in
      let grantName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "GrantName") in
      let grantArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "GrantArn") in
      make ?options ?grantedOperations ?version ?statusReason ?grantStatus
        ?homeRegion ?granteePrincipalArn ?licenseArn ?parentArn ?grantName
        ?grantArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options = field_map json__ "Options" Options.of_json in
      let grantedOperations =
        field_map json__ "GrantedOperations" AllowedOperationList.of_json in
      let version = field_map json__ "Version" String_.of_json in
      let statusReason =
        field_map json__ "StatusReason" StatusReasonMessage.of_json in
      let grantStatus = field_map json__ "GrantStatus" GrantStatus.of_json in
      let homeRegion = field_map json__ "HomeRegion" String_.of_json in
      let granteePrincipalArn =
        field_map json__ "GranteePrincipalArn" Arn.of_json in
      let licenseArn = field_map json__ "LicenseArn" Arn.of_json in
      let parentArn = field_map json__ "ParentArn" Arn.of_json in
      let grantName = field_map json__ "GrantName" String_.of_json in
      let grantArn = field_map json__ "GrantArn" Arn.of_json in
      make ?options ?grantedOperations ?version ?statusReason ?grantStatus
        ?homeRegion ?granteePrincipalArn ?licenseArn ?parentArn ?grantName
        ?grantArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a grant."]
module License =
  struct
    type nonrec t =
      {
      licenseArn: Arn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the license."];
      licenseName: String_.t option [@ocaml.doc "License name."];
      productName: String_.t option [@ocaml.doc "Product name."];
      productSKU: String_.t option [@ocaml.doc "Product SKU."];
      issuer: IssuerDetails.t option [@ocaml.doc "License issuer."];
      homeRegion: String_.t option [@ocaml.doc "Home Region of the license."];
      status: LicenseStatus.t option [@ocaml.doc "License status."];
      validity: DatetimeRange.t option
        [@ocaml.doc
          "Date and time range during which the license is valid, in ISO8601-UTC format."];
      beneficiary: String_.t option [@ocaml.doc "License beneficiary."];
      entitlements: EntitlementList.t option
        [@ocaml.doc "License entitlements."];
      consumptionConfiguration: ConsumptionConfiguration.t option
        [@ocaml.doc "Configuration for consumption of the license."];
      licenseMetadata: MetadataList.t option [@ocaml.doc "License metadata."];
      createTime: ISO8601DateTime.t option
        [@ocaml.doc "License creation time."];
      version: String_.t option [@ocaml.doc "License version."]}
    let make ?licenseArn =
      fun ?licenseName ->
        fun ?productName ->
          fun ?productSKU ->
            fun ?issuer ->
              fun ?homeRegion ->
                fun ?status ->
                  fun ?validity ->
                    fun ?beneficiary ->
                      fun ?entitlements ->
                        fun ?consumptionConfiguration ->
                          fun ?licenseMetadata ->
                            fun ?createTime ->
                              fun ?version ->
                                fun () ->
                                  {
                                    licenseArn;
                                    licenseName;
                                    productName;
                                    productSKU;
                                    issuer;
                                    homeRegion;
                                    status;
                                    validity;
                                    beneficiary;
                                    entitlements;
                                    consumptionConfiguration;
                                    licenseMetadata;
                                    createTime;
                                    version
                                  }
    let to_value x =
      structure_to_value
        [("LicenseArn", (Option.map x.licenseArn ~f:Arn.to_value));
        ("LicenseName", (Option.map x.licenseName ~f:String_.to_value));
        ("ProductName", (Option.map x.productName ~f:String_.to_value));
        ("ProductSKU", (Option.map x.productSKU ~f:String_.to_value));
        ("Issuer", (Option.map x.issuer ~f:IssuerDetails.to_value));
        ("HomeRegion", (Option.map x.homeRegion ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:LicenseStatus.to_value));
        ("Validity", (Option.map x.validity ~f:DatetimeRange.to_value));
        ("Beneficiary", (Option.map x.beneficiary ~f:String_.to_value));
        ("Entitlements",
          (Option.map x.entitlements ~f:EntitlementList.to_value));
        ("ConsumptionConfiguration",
          (Option.map x.consumptionConfiguration
             ~f:ConsumptionConfiguration.to_value));
        ("LicenseMetadata",
          (Option.map x.licenseMetadata ~f:MetadataList.to_value));
        ("CreateTime", (Option.map x.createTime ~f:ISO8601DateTime.to_value));
        ("Version", (Option.map x.version ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Version") in
      let createTime =
        (Option.map ~f:ISO8601DateTime.of_xml)
          (Xml.child xml_arg0 "CreateTime") in
      let licenseMetadata =
        (Option.map ~f:MetadataList.of_xml)
          (Xml.child xml_arg0 "LicenseMetadata") in
      let consumptionConfiguration =
        (Option.map ~f:ConsumptionConfiguration.of_xml)
          (Xml.child xml_arg0 "ConsumptionConfiguration") in
      let entitlements =
        (Option.map ~f:EntitlementList.of_xml)
          (Xml.child xml_arg0 "Entitlements") in
      let beneficiary =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Beneficiary") in
      let validity =
        (Option.map ~f:DatetimeRange.of_xml) (Xml.child xml_arg0 "Validity") in
      let status =
        (Option.map ~f:LicenseStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let homeRegion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "HomeRegion") in
      let issuer =
        (Option.map ~f:IssuerDetails.of_xml) (Xml.child xml_arg0 "Issuer") in
      let productSKU =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ProductSKU") in
      let productName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ProductName") in
      let licenseName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LicenseName") in
      let licenseArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "LicenseArn") in
      make ?version ?createTime ?licenseMetadata ?consumptionConfiguration
        ?entitlements ?beneficiary ?validity ?status ?homeRegion ?issuer
        ?productSKU ?productName ?licenseName ?licenseArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "Version" String_.of_json in
      let createTime = field_map json__ "CreateTime" ISO8601DateTime.of_json in
      let licenseMetadata =
        field_map json__ "LicenseMetadata" MetadataList.of_json in
      let consumptionConfiguration =
        field_map json__ "ConsumptionConfiguration"
          ConsumptionConfiguration.of_json in
      let entitlements =
        field_map json__ "Entitlements" EntitlementList.of_json in
      let beneficiary = field_map json__ "Beneficiary" String_.of_json in
      let validity = field_map json__ "Validity" DatetimeRange.of_json in
      let status = field_map json__ "Status" LicenseStatus.of_json in
      let homeRegion = field_map json__ "HomeRegion" String_.of_json in
      let issuer = field_map json__ "Issuer" IssuerDetails.of_json in
      let productSKU = field_map json__ "ProductSKU" String_.of_json in
      let productName = field_map json__ "ProductName" String_.of_json in
      let licenseName = field_map json__ "LicenseName" String_.of_json in
      let licenseArn = field_map json__ "LicenseArn" Arn.of_json in
      make ?version ?createTime ?licenseMetadata ?consumptionConfiguration
        ?entitlements ?beneficiary ?validity ?status ?homeRegion ?issuer
        ?productSKU ?productName ?licenseName ?licenseArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Software license that is managed in License Manager."]
module ReportGenerator =
  struct
    type nonrec t =
      {
      reportGeneratorName: String_.t option
        [@ocaml.doc "Name of the report generator."];
      reportType: ReportTypeList.t option
        [@ocaml.doc "Type of reports that are generated."];
      reportContext: ReportContext.t option
        [@ocaml.doc "License configuration type for this generator."];
      reportFrequency: ReportFrequency.t option
        [@ocaml.doc "Details about how frequently reports are generated."];
      licenseManagerReportGeneratorArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the report generator."];
      lastRunStatus: String_.t option
        [@ocaml.doc "Status of the last report generation attempt."];
      lastRunFailureReason: String_.t option
        [@ocaml.doc
          "Failure message for the last report generation attempt."];
      lastReportGenerationTime: String_.t option
        [@ocaml.doc "Time the last report was generated at."];
      reportCreatorAccount: String_.t option
        [@ocaml.doc
          "The Amazon Web Services account ID used to create the report generator."];
      description: String_.t option
        [@ocaml.doc "Description of the report generator."];
      s3Location: S3Location.t option
        [@ocaml.doc
          "Details of the S3 bucket that report generator reports are published to."];
      createTime: String_.t option
        [@ocaml.doc "Time the report was created."];
      tags: TagList.t option
        [@ocaml.doc "Tags associated with the report generator."]}
    let make ?reportGeneratorName =
      fun ?reportType ->
        fun ?reportContext ->
          fun ?reportFrequency ->
            fun ?licenseManagerReportGeneratorArn ->
              fun ?lastRunStatus ->
                fun ?lastRunFailureReason ->
                  fun ?lastReportGenerationTime ->
                    fun ?reportCreatorAccount ->
                      fun ?description ->
                        fun ?s3Location ->
                          fun ?createTime ->
                            fun ?tags ->
                              fun () ->
                                {
                                  reportGeneratorName;
                                  reportType;
                                  reportContext;
                                  reportFrequency;
                                  licenseManagerReportGeneratorArn;
                                  lastRunStatus;
                                  lastRunFailureReason;
                                  lastReportGenerationTime;
                                  reportCreatorAccount;
                                  description;
                                  s3Location;
                                  createTime;
                                  tags
                                }
    let to_value x =
      structure_to_value
        [("ReportGeneratorName",
           (Option.map x.reportGeneratorName ~f:String_.to_value));
        ("ReportType", (Option.map x.reportType ~f:ReportTypeList.to_value));
        ("ReportContext",
          (Option.map x.reportContext ~f:ReportContext.to_value));
        ("ReportFrequency",
          (Option.map x.reportFrequency ~f:ReportFrequency.to_value));
        ("LicenseManagerReportGeneratorArn",
          (Option.map x.licenseManagerReportGeneratorArn ~f:String_.to_value));
        ("LastRunStatus", (Option.map x.lastRunStatus ~f:String_.to_value));
        ("LastRunFailureReason",
          (Option.map x.lastRunFailureReason ~f:String_.to_value));
        ("LastReportGenerationTime",
          (Option.map x.lastReportGenerationTime ~f:String_.to_value));
        ("ReportCreatorAccount",
          (Option.map x.reportCreatorAccount ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("S3Location", (Option.map x.s3Location ~f:S3Location.to_value));
        ("CreateTime", (Option.map x.createTime ~f:String_.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let createTime =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CreateTime") in
      let s3Location =
        (Option.map ~f:S3Location.of_xml) (Xml.child xml_arg0 "S3Location") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let reportCreatorAccount =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ReportCreatorAccount") in
      let lastReportGenerationTime =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LastReportGenerationTime") in
      let lastRunFailureReason =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LastRunFailureReason") in
      let lastRunStatus =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LastRunStatus") in
      let licenseManagerReportGeneratorArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseManagerReportGeneratorArn") in
      let reportFrequency =
        (Option.map ~f:ReportFrequency.of_xml)
          (Xml.child xml_arg0 "ReportFrequency") in
      let reportContext =
        (Option.map ~f:ReportContext.of_xml)
          (Xml.child xml_arg0 "ReportContext") in
      let reportType =
        (Option.map ~f:ReportTypeList.of_xml)
          (Xml.child xml_arg0 "ReportType") in
      let reportGeneratorName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ReportGeneratorName") in
      make ?tags ?createTime ?s3Location ?description ?reportCreatorAccount
        ?lastReportGenerationTime ?lastRunFailureReason ?lastRunStatus
        ?licenseManagerReportGeneratorArn ?reportFrequency ?reportContext
        ?reportType ?reportGeneratorName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let createTime = field_map json__ "CreateTime" String_.of_json in
      let s3Location = field_map json__ "S3Location" S3Location.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let reportCreatorAccount =
        field_map json__ "ReportCreatorAccount" String_.of_json in
      let lastReportGenerationTime =
        field_map json__ "LastReportGenerationTime" String_.of_json in
      let lastRunFailureReason =
        field_map json__ "LastRunFailureReason" String_.of_json in
      let lastRunStatus = field_map json__ "LastRunStatus" String_.of_json in
      let licenseManagerReportGeneratorArn =
        field_map json__ "LicenseManagerReportGeneratorArn" String_.of_json in
      let reportFrequency =
        field_map json__ "ReportFrequency" ReportFrequency.of_json in
      let reportContext =
        field_map json__ "ReportContext" ReportContext.of_json in
      let reportType = field_map json__ "ReportType" ReportTypeList.of_json in
      let reportGeneratorName =
        field_map json__ "ReportGeneratorName" String_.of_json in
      make ?tags ?createTime ?s3Location ?description ?reportCreatorAccount
        ?lastReportGenerationTime ?lastRunFailureReason ?lastRunStatus
        ?licenseManagerReportGeneratorArn ?reportFrequency ?reportContext
        ?reportType ?reportGeneratorName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describe the details of a report generator."]
module LicenseConversionTask =
  struct
    type nonrec t =
      {
      licenseConversionTaskId: LicenseConversionTaskId.t option
        [@ocaml.doc "The ID of the license type conversion task."];
      resourceArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource associated with the license type conversion task."];
      sourceLicenseContext: LicenseConversionContext.t option
        [@ocaml.doc
          "Information about the license type this conversion task converted from."];
      destinationLicenseContext: LicenseConversionContext.t option
        [@ocaml.doc
          "Information about the license type this conversion task converted to."];
      status: LicenseConversionTaskStatus.t option
        [@ocaml.doc "The status of the conversion task."];
      statusMessage: String_.t option
        [@ocaml.doc "The status message for the conversion task."];
      startTime: DateTime.t option
        [@ocaml.doc "The time the conversion task was started at."];
      licenseConversionTime: DateTime.t option
        [@ocaml.doc
          "The time the usage operation value of the resource was changed."];
      endTime: DateTime.t option
        [@ocaml.doc "The time the conversion task was completed."]}
    let make ?licenseConversionTaskId =
      fun ?resourceArn ->
        fun ?sourceLicenseContext ->
          fun ?destinationLicenseContext ->
            fun ?status ->
              fun ?statusMessage ->
                fun ?startTime ->
                  fun ?licenseConversionTime ->
                    fun ?endTime ->
                      fun () ->
                        {
                          licenseConversionTaskId;
                          resourceArn;
                          sourceLicenseContext;
                          destinationLicenseContext;
                          status;
                          statusMessage;
                          startTime;
                          licenseConversionTime;
                          endTime
                        }
    let to_value x =
      structure_to_value
        [("LicenseConversionTaskId",
           (Option.map x.licenseConversionTaskId
              ~f:LicenseConversionTaskId.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:String_.to_value));
        ("SourceLicenseContext",
          (Option.map x.sourceLicenseContext
             ~f:LicenseConversionContext.to_value));
        ("DestinationLicenseContext",
          (Option.map x.destinationLicenseContext
             ~f:LicenseConversionContext.to_value));
        ("Status",
          (Option.map x.status ~f:LicenseConversionTaskStatus.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:String_.to_value));
        ("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("LicenseConversionTime",
          (Option.map x.licenseConversionTime ~f:DateTime.to_value));
        ("EndTime", (Option.map x.endTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "EndTime") in
      let licenseConversionTime =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "LicenseConversionTime") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:LicenseConversionTaskStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let destinationLicenseContext =
        (Option.map ~f:LicenseConversionContext.of_xml)
          (Xml.child xml_arg0 "DestinationLicenseContext") in
      let sourceLicenseContext =
        (Option.map ~f:LicenseConversionContext.of_xml)
          (Xml.child xml_arg0 "SourceLicenseContext") in
      let resourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let licenseConversionTaskId =
        (Option.map ~f:LicenseConversionTaskId.of_xml)
          (Xml.child xml_arg0 "LicenseConversionTaskId") in
      make ?endTime ?licenseConversionTime ?startTime ?statusMessage ?status
        ?destinationLicenseContext ?sourceLicenseContext ?resourceArn
        ?licenseConversionTaskId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTime = field_map json__ "EndTime" DateTime.of_json in
      let licenseConversionTime =
        field_map json__ "LicenseConversionTime" DateTime.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let status =
        field_map json__ "Status" LicenseConversionTaskStatus.of_json in
      let destinationLicenseContext =
        field_map json__ "DestinationLicenseContext"
          LicenseConversionContext.of_json in
      let sourceLicenseContext =
        field_map json__ "SourceLicenseContext"
          LicenseConversionContext.of_json in
      let resourceArn = field_map json__ "ResourceArn" String_.of_json in
      let licenseConversionTaskId =
        field_map json__ "LicenseConversionTaskId"
          LicenseConversionTaskId.of_json in
      make ?endTime ?licenseConversionTime ?startTime ?statusMessage ?status
        ?destinationLicenseContext ?sourceLicenseContext ?resourceArn
        ?licenseConversionTaskId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a license type conversion task."]
module LicenseConfiguration =
  struct
    type nonrec t =
      {
      licenseConfigurationId: String_.t option
        [@ocaml.doc "Unique ID of the license configuration."];
      licenseConfigurationArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license configuration."];
      name: String_.t option
        [@ocaml.doc "Name of the license configuration."];
      description: String_.t option
        [@ocaml.doc "Description of the license configuration."];
      licenseCountingType: LicenseCountingType.t option
        [@ocaml.doc "Dimension to use to track the license inventory."];
      licenseRules: StringList.t option [@ocaml.doc "License rules."];
      licenseCount: BoxLong.t option
        [@ocaml.doc
          "Number of licenses managed by the license configuration."];
      licenseCountHardLimit: BoxBoolean.t option
        [@ocaml.doc "Number of available licenses as a hard limit."];
      disassociateWhenNotFound: BoxBoolean.t option
        [@ocaml.doc
          "When true, disassociates a resource when software is uninstalled."];
      consumedLicenses: BoxLong.t option
        [@ocaml.doc "Number of licenses consumed."];
      status: String_.t option
        [@ocaml.doc "Status of the license configuration."];
      ownerAccountId: String_.t option
        [@ocaml.doc "Account ID of the license configuration's owner."];
      consumedLicenseSummaryList: ConsumedLicenseSummaryList.t option
        [@ocaml.doc "Summaries for licenses consumed by various resources."];
      managedResourceSummaryList: ManagedResourceSummaryList.t option
        [@ocaml.doc "Summaries for managed resources."];
      productInformationList: ProductInformationList.t option
        [@ocaml.doc "Product information."];
      automatedDiscoveryInformation: AutomatedDiscoveryInformation.t option
        [@ocaml.doc "Automated discovery information."];
      licenseExpiry: BoxLong.t option
        [@ocaml.doc
          "License configuration expiry time in Unix timestamp format."]}
    let make ?licenseConfigurationId =
      fun ?licenseConfigurationArn ->
        fun ?name ->
          fun ?description ->
            fun ?licenseCountingType ->
              fun ?licenseRules ->
                fun ?licenseCount ->
                  fun ?licenseCountHardLimit ->
                    fun ?disassociateWhenNotFound ->
                      fun ?consumedLicenses ->
                        fun ?status ->
                          fun ?ownerAccountId ->
                            fun ?consumedLicenseSummaryList ->
                              fun ?managedResourceSummaryList ->
                                fun ?productInformationList ->
                                  fun ?automatedDiscoveryInformation ->
                                    fun ?licenseExpiry ->
                                      fun () ->
                                        {
                                          licenseConfigurationId;
                                          licenseConfigurationArn;
                                          name;
                                          description;
                                          licenseCountingType;
                                          licenseRules;
                                          licenseCount;
                                          licenseCountHardLimit;
                                          disassociateWhenNotFound;
                                          consumedLicenses;
                                          status;
                                          ownerAccountId;
                                          consumedLicenseSummaryList;
                                          managedResourceSummaryList;
                                          productInformationList;
                                          automatedDiscoveryInformation;
                                          licenseExpiry
                                        }
    let to_value x =
      structure_to_value
        [("LicenseConfigurationId",
           (Option.map x.licenseConfigurationId ~f:String_.to_value));
        ("LicenseConfigurationArn",
          (Option.map x.licenseConfigurationArn ~f:String_.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("LicenseCountingType",
          (Option.map x.licenseCountingType ~f:LicenseCountingType.to_value));
        ("LicenseRules", (Option.map x.licenseRules ~f:StringList.to_value));
        ("LicenseCount", (Option.map x.licenseCount ~f:BoxLong.to_value));
        ("LicenseCountHardLimit",
          (Option.map x.licenseCountHardLimit ~f:BoxBoolean.to_value));
        ("DisassociateWhenNotFound",
          (Option.map x.disassociateWhenNotFound ~f:BoxBoolean.to_value));
        ("ConsumedLicenses",
          (Option.map x.consumedLicenses ~f:BoxLong.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("OwnerAccountId", (Option.map x.ownerAccountId ~f:String_.to_value));
        ("ConsumedLicenseSummaryList",
          (Option.map x.consumedLicenseSummaryList
             ~f:ConsumedLicenseSummaryList.to_value));
        ("ManagedResourceSummaryList",
          (Option.map x.managedResourceSummaryList
             ~f:ManagedResourceSummaryList.to_value));
        ("ProductInformationList",
          (Option.map x.productInformationList
             ~f:ProductInformationList.to_value));
        ("AutomatedDiscoveryInformation",
          (Option.map x.automatedDiscoveryInformation
             ~f:AutomatedDiscoveryInformation.to_value));
        ("LicenseExpiry", (Option.map x.licenseExpiry ~f:BoxLong.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseExpiry =
        (Option.map ~f:BoxLong.of_xml) (Xml.child xml_arg0 "LicenseExpiry") in
      let automatedDiscoveryInformation =
        (Option.map ~f:AutomatedDiscoveryInformation.of_xml)
          (Xml.child xml_arg0 "AutomatedDiscoveryInformation") in
      let productInformationList =
        (Option.map ~f:ProductInformationList.of_xml)
          (Xml.child xml_arg0 "ProductInformationList") in
      let managedResourceSummaryList =
        (Option.map ~f:ManagedResourceSummaryList.of_xml)
          (Xml.child xml_arg0 "ManagedResourceSummaryList") in
      let consumedLicenseSummaryList =
        (Option.map ~f:ConsumedLicenseSummaryList.of_xml)
          (Xml.child xml_arg0 "ConsumedLicenseSummaryList") in
      let ownerAccountId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OwnerAccountId") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let consumedLicenses =
        (Option.map ~f:BoxLong.of_xml)
          (Xml.child xml_arg0 "ConsumedLicenses") in
      let disassociateWhenNotFound =
        (Option.map ~f:BoxBoolean.of_xml)
          (Xml.child xml_arg0 "DisassociateWhenNotFound") in
      let licenseCountHardLimit =
        (Option.map ~f:BoxBoolean.of_xml)
          (Xml.child xml_arg0 "LicenseCountHardLimit") in
      let licenseCount =
        (Option.map ~f:BoxLong.of_xml) (Xml.child xml_arg0 "LicenseCount") in
      let licenseRules =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "LicenseRules") in
      let licenseCountingType =
        (Option.map ~f:LicenseCountingType.of_xml)
          (Xml.child xml_arg0 "LicenseCountingType") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let licenseConfigurationArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseConfigurationArn") in
      let licenseConfigurationId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseConfigurationId") in
      make ?licenseExpiry ?automatedDiscoveryInformation
        ?productInformationList ?managedResourceSummaryList
        ?consumedLicenseSummaryList ?ownerAccountId ?status ?consumedLicenses
        ?disassociateWhenNotFound ?licenseCountHardLimit ?licenseCount
        ?licenseRules ?licenseCountingType ?description ?name
        ?licenseConfigurationArn ?licenseConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseExpiry = field_map json__ "LicenseExpiry" BoxLong.of_json in
      let automatedDiscoveryInformation =
        field_map json__ "AutomatedDiscoveryInformation"
          AutomatedDiscoveryInformation.of_json in
      let productInformationList =
        field_map json__ "ProductInformationList"
          ProductInformationList.of_json in
      let managedResourceSummaryList =
        field_map json__ "ManagedResourceSummaryList"
          ManagedResourceSummaryList.of_json in
      let consumedLicenseSummaryList =
        field_map json__ "ConsumedLicenseSummaryList"
          ConsumedLicenseSummaryList.of_json in
      let ownerAccountId = field_map json__ "OwnerAccountId" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let consumedLicenses =
        field_map json__ "ConsumedLicenses" BoxLong.of_json in
      let disassociateWhenNotFound =
        field_map json__ "DisassociateWhenNotFound" BoxBoolean.of_json in
      let licenseCountHardLimit =
        field_map json__ "LicenseCountHardLimit" BoxBoolean.of_json in
      let licenseCount = field_map json__ "LicenseCount" BoxLong.of_json in
      let licenseRules = field_map json__ "LicenseRules" StringList.of_json in
      let licenseCountingType =
        field_map json__ "LicenseCountingType" LicenseCountingType.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      let licenseConfigurationArn =
        field_map json__ "LicenseConfigurationArn" String_.of_json in
      let licenseConfigurationId =
        field_map json__ "LicenseConfigurationId" String_.of_json in
      make ?licenseExpiry ?automatedDiscoveryInformation
        ?productInformationList ?managedResourceSummaryList
        ?consumedLicenseSummaryList ?ownerAccountId ?status ?consumedLicenses
        ?disassociateWhenNotFound ?licenseCountHardLimit ?licenseCount
        ?licenseRules ?licenseCountingType ?description ?name
        ?licenseConfigurationArn ?licenseConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A license configuration is an abstraction of a customer license agreement that can be consumed and enforced by License Manager. Components include specifications for the license type (licensing by instance, socket, CPU, or vCPU), allowed tenancy (shared tenancy, Dedicated Instance, Dedicated Host, or all of these), host affinity (how long a VM must be associated with a host), and the number of licenses purchased and used."]
module LicenseAssetRuleset =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "License asset ruleset name."];
      description: String_.t option
        [@ocaml.doc "License asset ruleset description."];
      rules: LicenseAssetRuleList.t option
        [@ocaml.doc "License asset rules."];
      licenseAssetRulesetArn: Arn.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license asset ruleset."]}
    let make ?name =
      fun ?description ->
        fun ?rules ->
          fun ?licenseAssetRulesetArn ->
            fun () -> { name; description; rules; licenseAssetRulesetArn }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("Rules", (Option.map x.rules ~f:LicenseAssetRuleList.to_value));
        ("LicenseAssetRulesetArn",
          (Option.map x.licenseAssetRulesetArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseAssetRulesetArn =
        (Option.map ~f:Arn.of_xml)
          (Xml.child xml_arg0 "LicenseAssetRulesetArn") in
      let rules =
        (Option.map ~f:LicenseAssetRuleList.of_xml)
          (Xml.child xml_arg0 "Rules") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?licenseAssetRulesetArn ?rules ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseAssetRulesetArn =
        field_map json__ "LicenseAssetRulesetArn" Arn.of_json in
      let rules = field_map json__ "Rules" LicenseAssetRuleList.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?licenseAssetRulesetArn ?rules ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "License asset ruleset."]
module LicenseAssetGroup =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "License asset group name."];
      description: String_.t option
        [@ocaml.doc "License asset group description."];
      licenseAssetGroupConfigurations:
        LicenseAssetGroupConfigurationList.t option
        [@ocaml.doc "License asset group configurations."];
      associatedLicenseAssetRulesetARNs: LicenseAssetRulesetArnList.t option
        [@ocaml.doc "ARNs of associated license asset rulesets."];
      properties: LicenseAssetGroupPropertyList.t option
        [@ocaml.doc "License asset group properties."];
      licenseAssetGroupArn: Arn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the license asset group."];
      status: LicenseAssetGroupStatus.t option
        [@ocaml.doc "License asset group status."];
      statusMessage: String_.t option
        [@ocaml.doc "License asset group status message."];
      latestUsageAnalysisTime: DateTime.t option
        [@ocaml.doc "Latest usage analysis time."];
      latestResourceDiscoveryTime: DateTime.t option
        [@ocaml.doc "Latest resource discovery time."]}
    let make ?name =
      fun ?description ->
        fun ?licenseAssetGroupConfigurations ->
          fun ?associatedLicenseAssetRulesetARNs ->
            fun ?properties ->
              fun ?licenseAssetGroupArn ->
                fun ?status ->
                  fun ?statusMessage ->
                    fun ?latestUsageAnalysisTime ->
                      fun ?latestResourceDiscoveryTime ->
                        fun () ->
                          {
                            name;
                            description;
                            licenseAssetGroupConfigurations;
                            associatedLicenseAssetRulesetARNs;
                            properties;
                            licenseAssetGroupArn;
                            status;
                            statusMessage;
                            latestUsageAnalysisTime;
                            latestResourceDiscoveryTime
                          }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("LicenseAssetGroupConfigurations",
          (Option.map x.licenseAssetGroupConfigurations
             ~f:LicenseAssetGroupConfigurationList.to_value));
        ("AssociatedLicenseAssetRulesetARNs",
          (Option.map x.associatedLicenseAssetRulesetARNs
             ~f:LicenseAssetRulesetArnList.to_value));
        ("Properties",
          (Option.map x.properties ~f:LicenseAssetGroupPropertyList.to_value));
        ("LicenseAssetGroupArn",
          (Option.map x.licenseAssetGroupArn ~f:Arn.to_value));
        ("Status", (Option.map x.status ~f:LicenseAssetGroupStatus.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:String_.to_value));
        ("LatestUsageAnalysisTime",
          (Option.map x.latestUsageAnalysisTime ~f:DateTime.to_value));
        ("LatestResourceDiscoveryTime",
          (Option.map x.latestResourceDiscoveryTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let latestResourceDiscoveryTime =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "LatestResourceDiscoveryTime") in
      let latestUsageAnalysisTime =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "LatestUsageAnalysisTime") in
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let status =
        (Option.map ~f:LicenseAssetGroupStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let licenseAssetGroupArn =
        (Option.map ~f:Arn.of_xml)
          (Xml.child xml_arg0 "LicenseAssetGroupArn") in
      let properties =
        (Option.map ~f:LicenseAssetGroupPropertyList.of_xml)
          (Xml.child xml_arg0 "Properties") in
      let associatedLicenseAssetRulesetARNs =
        (Option.map ~f:LicenseAssetRulesetArnList.of_xml)
          (Xml.child xml_arg0 "AssociatedLicenseAssetRulesetARNs") in
      let licenseAssetGroupConfigurations =
        (Option.map ~f:LicenseAssetGroupConfigurationList.of_xml)
          (Xml.child xml_arg0 "LicenseAssetGroupConfigurations") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?latestResourceDiscoveryTime ?latestUsageAnalysisTime
        ?statusMessage ?status ?licenseAssetGroupArn ?properties
        ?associatedLicenseAssetRulesetARNs ?licenseAssetGroupConfigurations
        ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let latestResourceDiscoveryTime =
        field_map json__ "LatestResourceDiscoveryTime" DateTime.of_json in
      let latestUsageAnalysisTime =
        field_map json__ "LatestUsageAnalysisTime" DateTime.of_json in
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let status = field_map json__ "Status" LicenseAssetGroupStatus.of_json in
      let licenseAssetGroupArn =
        field_map json__ "LicenseAssetGroupArn" Arn.of_json in
      let properties =
        field_map json__ "Properties" LicenseAssetGroupPropertyList.of_json in
      let associatedLicenseAssetRulesetARNs =
        field_map json__ "AssociatedLicenseAssetRulesetARNs"
          LicenseAssetRulesetArnList.of_json in
      let licenseAssetGroupConfigurations =
        field_map json__ "LicenseAssetGroupConfigurations"
          LicenseAssetGroupConfigurationList.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?latestResourceDiscoveryTime ?latestUsageAnalysisTime
        ?statusMessage ?status ?licenseAssetGroupArn ?properties
        ?associatedLicenseAssetRulesetARNs ?licenseAssetGroupConfigurations
        ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "License asset group."]
module LicenseOperationFailure =
  struct
    type nonrec t =
      {
      resourceArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the resource."];
      resourceType: ResourceType.t option [@ocaml.doc "Resource type."];
      errorMessage: String_.t option [@ocaml.doc "Error message."];
      failureTime: DateTime.t option [@ocaml.doc "Failure time."];
      operationName: String_.t option [@ocaml.doc "Name of the operation."];
      resourceOwnerId: String_.t option
        [@ocaml.doc
          "ID of the Amazon Web Services account that owns the resource."];
      operationRequestedBy: String_.t option
        [@ocaml.doc
          "The requester is \"License Manager Automated Discovery\"."];
      metadataList: MetadataList.t option [@ocaml.doc "Reserved."]}
    let make ?resourceArn =
      fun ?resourceType ->
        fun ?errorMessage ->
          fun ?failureTime ->
            fun ?operationName ->
              fun ?resourceOwnerId ->
                fun ?operationRequestedBy ->
                  fun ?metadataList ->
                    fun () ->
                      {
                        resourceArn;
                        resourceType;
                        errorMessage;
                        failureTime;
                        operationName;
                        resourceOwnerId;
                        operationRequestedBy;
                        metadataList
                      }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Option.map x.resourceArn ~f:String_.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:String_.to_value));
        ("FailureTime", (Option.map x.failureTime ~f:DateTime.to_value));
        ("OperationName", (Option.map x.operationName ~f:String_.to_value));
        ("ResourceOwnerId",
          (Option.map x.resourceOwnerId ~f:String_.to_value));
        ("OperationRequestedBy",
          (Option.map x.operationRequestedBy ~f:String_.to_value));
        ("MetadataList",
          (Option.map x.metadataList ~f:MetadataList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadataList =
        (Option.map ~f:MetadataList.of_xml)
          (Xml.child xml_arg0 "MetadataList") in
      let operationRequestedBy =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OperationRequestedBy") in
      let resourceOwnerId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceOwnerId") in
      let operationName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OperationName") in
      let failureTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "FailureTime") in
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ErrorMessage") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let resourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      make ?metadataList ?operationRequestedBy ?resourceOwnerId
        ?operationName ?failureTime ?errorMessage ?resourceType ?resourceArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadataList = field_map json__ "MetadataList" MetadataList.of_json in
      let operationRequestedBy =
        field_map json__ "OperationRequestedBy" String_.of_json in
      let resourceOwnerId =
        field_map json__ "ResourceOwnerId" String_.of_json in
      let operationName = field_map json__ "OperationName" String_.of_json in
      let failureTime = field_map json__ "FailureTime" DateTime.of_json in
      let errorMessage = field_map json__ "ErrorMessage" String_.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let resourceArn = field_map json__ "ResourceArn" String_.of_json in
      make ?metadataList ?operationRequestedBy ?resourceOwnerId
        ?operationName ?failureTime ?errorMessage ?resourceType ?resourceArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the failure of a license operation."]
module LicenseConfigurationAssociation =
  struct
    type nonrec t =
      {
      resourceArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the resource."];
      resourceType: ResourceType.t option
        [@ocaml.doc "Type of server resource."];
      resourceOwnerId: String_.t option
        [@ocaml.doc
          "ID of the Amazon Web Services account that owns the resource consuming licenses."];
      associationTime: DateTime.t option
        [@ocaml.doc
          "Time when the license configuration was associated with the resource."];
      amiAssociationScope: String_.t option
        [@ocaml.doc
          "Scope of AMI associations. The possible value is cross-account."]}
    let make ?resourceArn =
      fun ?resourceType ->
        fun ?resourceOwnerId ->
          fun ?associationTime ->
            fun ?amiAssociationScope ->
              fun () ->
                {
                  resourceArn;
                  resourceType;
                  resourceOwnerId;
                  associationTime;
                  amiAssociationScope
                }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Option.map x.resourceArn ~f:String_.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:ResourceType.to_value));
        ("ResourceOwnerId",
          (Option.map x.resourceOwnerId ~f:String_.to_value));
        ("AssociationTime",
          (Option.map x.associationTime ~f:DateTime.to_value));
        ("AmiAssociationScope",
          (Option.map x.amiAssociationScope ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let amiAssociationScope =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AmiAssociationScope") in
      let associationTime =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "AssociationTime") in
      let resourceOwnerId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceOwnerId") in
      let resourceType =
        (Option.map ~f:ResourceType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let resourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      make ?amiAssociationScope ?associationTime ?resourceOwnerId
        ?resourceType ?resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let amiAssociationScope =
        field_map json__ "AmiAssociationScope" String_.of_json in
      let associationTime =
        field_map json__ "AssociationTime" DateTime.of_json in
      let resourceOwnerId =
        field_map json__ "ResourceOwnerId" String_.of_json in
      let resourceType = field_map json__ "ResourceType" ResourceType.of_json in
      let resourceArn = field_map json__ "ResourceArn" String_.of_json in
      make ?amiAssociationScope ?associationTime ?resourceOwnerId
        ?resourceType ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an association with a license configuration."]
module Asset =
  struct
    type nonrec t =
      {
      assetArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the asset."];
      latestAssetDiscoveryTime: DateTime.t option
        [@ocaml.doc "Latest asset discovery time."]}
    let make ?assetArn =
      fun ?latestAssetDiscoveryTime ->
        fun () -> { assetArn; latestAssetDiscoveryTime }
    let to_value x =
      structure_to_value
        [("AssetArn", (Option.map x.assetArn ~f:String_.to_value));
        ("LatestAssetDiscoveryTime",
          (Option.map x.latestAssetDiscoveryTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let latestAssetDiscoveryTime =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "LatestAssetDiscoveryTime") in
      let assetArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AssetArn") in
      make ?latestAssetDiscoveryTime ?assetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let latestAssetDiscoveryTime =
        field_map json__ "LatestAssetDiscoveryTime" DateTime.of_json in
      let assetArn = field_map json__ "AssetArn" String_.of_json in
      make ?latestAssetDiscoveryTime ?assetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Asset."]
module CrossAccountDiscoveryServiceStatus =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Status message for cross-account discovery service."]}
    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 "Status information for cross-account discovery service."]
module CrossRegionDiscoveryStatus =
  struct
    type nonrec t =
      {
      message: RegionStatusMap.t option
        [@ocaml.doc
          "Map of region status messages for cross-region discovery."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:RegionStatusMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:RegionStatusMap.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" RegionStatusMap.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Status information for cross-region discovery."]
module EntitlementUsageList =
  struct
    type nonrec t = EntitlementUsage.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:EntitlementUsage.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:EntitlementUsage.of_xml)
    let of_json j =
      list_of_json ~kind:"EntitlementUsageList"
        ~of_json:EntitlementUsage.of_json j
    let to_json v = composed_to_json to_value v
  end
module Location =
  struct
    type nonrec t = string
    let context_ = "Location"
    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:"Location" j
    let to_json = simple_to_json to_value
  end
module EntitlementData =
  struct
    type nonrec t =
      {
      name: String_.t [@ocaml.doc "Entitlement data name."];
      value: String_.t option [@ocaml.doc "Entitlement data value."];
      unit: EntitlementDataUnit.t [@ocaml.doc "Entitlement data unit."]}
    let context_ = "EntitlementData"
    let make ?value =
      fun ~name -> fun ~unit -> fun () -> { value; name; unit }
    let to_value x =
      structure_to_value
        [("Name", (Some (String_.to_value x.name)));
        ("Value", (Option.map x.value ~f:String_.to_value));
        ("Unit", (Some (EntitlementDataUnit.to_value x.unit)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unit =
        EntitlementDataUnit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Unit") in
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~unit ?value ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unit = field_map_exn json__ "Unit" EntitlementDataUnit.of_json in
      let value = field_map json__ "Value" String_.of_json in
      let name = field_map_exn json__ "Name" String_.of_json in
      make ~unit ?value ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Data associated with an entitlement resource."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Access to resource denied."]
module AuthorizationException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Web Services user account does not have permission to perform the action. Check the IAM policy associated with this account."]
module ConflictException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "There was a conflict processing the request. Try your request again."]
module InvalidParameterValueException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "One or more parameter values are not valid."]
module RateLimitExceededException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Too many requests have been submitted. Try again after a brief wait."]
module ServerInternalException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The server experienced an internal error. Try again."]
module ValidationException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The provided input is not valid. Try your request again."]
module OrganizationConfiguration =
  struct
    type nonrec t =
      {
      enableIntegration: Boolean.t
        [@ocaml.doc "Enables Organizations integration."]}
    let context_ = "OrganizationConfiguration"
    let make ~enableIntegration = fun () -> { enableIntegration }
    let to_value x =
      structure_to_value
        [("EnableIntegration", (Some (Boolean.to_value x.enableIntegration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enableIntegration =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EnableIntegration") in
      make ~enableIntegration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enableIntegration =
        field_map_exn json__ "EnableIntegration" Boolean.of_json in
      make ~enableIntegration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration information for Organizations."]
module InvalidResourceStateException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "License Manager cannot allocate a license to a resource because of its state. For example, you cannot allocate a license to an instance in the process of shutting down."]
module LicenseUsageException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have enough licenses available to support a new resource launch."]
module LicenseSpecifications =
  struct
    type nonrec t = LicenseSpecification.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:LicenseSpecification.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:LicenseSpecification.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseSpecifications"
        ~of_json:LicenseSpecification.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceLimitExceededException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Your resource limits have been exceeded."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource cannot be found."]
module ClientRequestToken =
  struct
    type nonrec t = string
    let context_ = "ClientRequestToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:36) >>=
             (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:"ClientRequestToken" j
    let to_json = simple_to_json to_value
  end
module ReportGeneratorName =
  struct
    type nonrec t = string
    let context_ = "ReportGeneratorName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"ReportGeneratorName" j
    let to_json = simple_to_json to_value
  end
module LicenseConfigurationStatus =
  struct
    type nonrec t =
      | AVAILABLE 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AVAILABLE -> "AVAILABLE"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "AVAILABLE" -> AVAILABLE
      | "DISABLED" -> DISABLED
      | 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 LicenseConfigurationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LicenseConfigurationStatus" j)
    let to_json = simple_to_json to_value
  end
module LicenseAssetResourceDescription =
  struct
    type nonrec t = string
    let context_ = "LicenseAssetResourceDescription"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1024); 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:"LicenseAssetResourceDescription" j
    let to_json = simple_to_json to_value
  end
module LicenseAssetResourceName =
  struct
    type nonrec t = string
    let context_ = "LicenseAssetResourceName"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:128); 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:"LicenseAssetResourceName" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = String_.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:String_.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:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"TagKeyList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module FilterLimitExceededException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request uses too many filters or too many filter values."]
module LicenseConfigurationUsageList =
  struct
    type nonrec t = LicenseConfigurationUsage.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:LicenseConfigurationUsage.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:LicenseConfigurationUsage.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseConfigurationUsageList"
        ~of_json:LicenseConfigurationUsage.of_json j
    let to_json v = composed_to_json to_value v
  end
module Filters =
  struct
    type nonrec t = Filter.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:Filter.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:Filter.of_xml)
    let of_json j = list_of_json ~kind:"Filters" ~of_json:Filter.of_json j
    let to_json v = composed_to_json to_value v
  end
module TokenList =
  struct
    type nonrec t = TokenData.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:TokenData.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:TokenData.of_xml)
    let of_json j =
      list_of_json ~kind:"TokenList" ~of_json:TokenData.of_json j
    let to_json v = composed_to_json to_value v
  end
module FilterList =
  struct
    type nonrec t = Filter.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:Filter.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:Filter.of_xml)
    let of_json j = list_of_json ~kind:"FilterList" ~of_json:Filter.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxSize100 =
  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 MaxSize100" 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 FailedDependencyException =
  struct
    type nonrec t = {
      message: Message.t option ;
      errorCode: String_.t option }
    let make ?message = fun ?errorCode -> fun () -> { message; errorCode }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      make ?errorCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorCode = field_map json__ "ErrorCode" String_.of_json in
      let message = field_map json__ "Message" Message.of_json in
      make ?errorCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A dependency required to run the API is missing."]
module ResourceInventoryList =
  struct
    type nonrec t = ResourceInventory.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:ResourceInventory.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:ResourceInventory.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceInventoryList"
        ~of_json:ResourceInventory.of_json j
    let to_json v = composed_to_json to_value v
  end
module InventoryFilterList =
  struct
    type nonrec t = InventoryFilter.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:InventoryFilter.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:InventoryFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"InventoryFilterList"
        ~of_json:InventoryFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module GrantedLicenseList =
  struct
    type nonrec t = GrantedLicense.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:GrantedLicense.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:GrantedLicense.of_xml)
    let of_json j =
      list_of_json ~kind:"GrantedLicenseList" ~of_json:GrantedLicense.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module GrantList =
  struct
    type nonrec t = Grant.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:Grant.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:Grant.of_xml)
    let of_json j = list_of_json ~kind:"GrantList" ~of_json:Grant.of_json j
    let to_json v = composed_to_json to_value v
  end
module LicenseList =
  struct
    type nonrec t = License.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:License.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:License.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseList" ~of_json:License.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReportGeneratorList =
  struct
    type nonrec t = ReportGenerator.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:ReportGenerator.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:ReportGenerator.of_xml)
    let of_json j =
      list_of_json ~kind:"ReportGeneratorList"
        ~of_json:ReportGenerator.of_json j
    let to_json v = composed_to_json to_value v
  end
module LicenseConversionTasks =
  struct
    type nonrec t = LicenseConversionTask.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:LicenseConversionTask.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:LicenseConversionTask.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseConversionTasks"
        ~of_json:LicenseConversionTask.of_json j
    let to_json v = composed_to_json to_value v
  end
module LicenseConfigurations =
  struct
    type nonrec t = LicenseConfiguration.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:LicenseConfiguration.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:LicenseConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseConfigurations"
        ~of_json:LicenseConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module LicenseAssetRulesetList =
  struct
    type nonrec t = LicenseAssetRuleset.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:LicenseAssetRuleset.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:LicenseAssetRuleset.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseAssetRulesetList"
        ~of_json:LicenseAssetRuleset.of_json j
    let to_json v = composed_to_json to_value v
  end
module LicenseAssetGroupList =
  struct
    type nonrec t = LicenseAssetGroup.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:LicenseAssetGroup.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:LicenseAssetGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseAssetGroupList"
        ~of_json:LicenseAssetGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module LicenseOperationFailureList =
  struct
    type nonrec t = LicenseOperationFailure.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:LicenseOperationFailure.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:LicenseOperationFailure.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseOperationFailureList"
        ~of_json:LicenseOperationFailure.of_json j
    let to_json v = composed_to_json to_value v
  end
module LicenseConfigurationAssociations =
  struct
    type nonrec t = LicenseConfigurationAssociation.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:LicenseConfigurationAssociation.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:LicenseConfigurationAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"LicenseConfigurationAssociations"
        ~of_json:LicenseConfigurationAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssetList =
  struct
    type nonrec t = Asset.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:Asset.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:Asset.of_xml)
    let of_json j = list_of_json ~kind:"AssetList" ~of_json:Asset.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceStatus =
  struct
    type nonrec t =
      {
      crossAccountDiscovery: CrossAccountDiscoveryServiceStatus.t option
        [@ocaml.doc "Status of cross-account discovery service."];
      crossRegionDiscovery: CrossRegionDiscoveryStatus.t option
        [@ocaml.doc "Status of cross-region discovery service."]}
    let make ?crossAccountDiscovery =
      fun ?crossRegionDiscovery ->
        fun () -> { crossAccountDiscovery; crossRegionDiscovery }
    let to_value x =
      structure_to_value
        [("CrossAccountDiscovery",
           (Option.map x.crossAccountDiscovery
              ~f:CrossAccountDiscoveryServiceStatus.to_value));
        ("CrossRegionDiscovery",
          (Option.map x.crossRegionDiscovery
             ~f:CrossRegionDiscoveryStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossRegionDiscovery =
        (Option.map ~f:CrossRegionDiscoveryStatus.of_xml)
          (Xml.child xml_arg0 "CrossRegionDiscovery") in
      let crossAccountDiscovery =
        (Option.map ~f:CrossAccountDiscoveryServiceStatus.of_xml)
          (Xml.child xml_arg0 "CrossAccountDiscovery") in
      make ?crossRegionDiscovery ?crossAccountDiscovery ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossRegionDiscovery =
        field_map json__ "CrossRegionDiscovery"
          CrossRegionDiscoveryStatus.of_json in
      let crossAccountDiscovery =
        field_map json__ "CrossAccountDiscovery"
          CrossAccountDiscoveryServiceStatus.of_json in
      make ?crossRegionDiscovery ?crossAccountDiscovery ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Overall service status information for License Manager."]
module LicenseUsage =
  struct
    type nonrec t =
      {
      entitlementUsages: EntitlementUsageList.t option
        [@ocaml.doc "License entitlement usages."]}
    let make ?entitlementUsages = fun () -> { entitlementUsages }
    let to_value x =
      structure_to_value
        [("EntitlementUsages",
           (Option.map x.entitlementUsages ~f:EntitlementUsageList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entitlementUsages =
        (Option.map ~f:EntitlementUsageList.of_xml)
          (Xml.child xml_arg0 "EntitlementUsages") in
      make ?entitlementUsages ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entitlementUsages =
        field_map json__ "EntitlementUsages" EntitlementUsageList.of_json in
      make ?entitlementUsages ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the entitlement usage associated with a license."]
module TokenString =
  struct
    type nonrec t = string
    let context_ = "TokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:4096) >>=
             (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:"TokenString" j
    let to_json = simple_to_json to_value
  end
module RedirectException =
  struct
    type nonrec t = {
      location: Location.t option ;
      message: Message.t option }
    let make ?location = fun ?message -> fun () -> { location; message }
    let to_value x =
      structure_to_value
        [("Location", (Option.map x.location ~f:Location.to_value));
        ("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "Location") in
      make ?message ?location ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Message.of_json in
      let location = field_map json__ "Location" Location.of_json in
      make ?message ?location ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is not the correct Region for the resource. Try again."]
module LicenseDeletionStatus =
  struct
    type nonrec t =
      | PENDING_DELETE 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_DELETE -> "PENDING_DELETE"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_DELETE" -> PENDING_DELETE
      | "DELETED" -> DELETED
      | 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 LicenseDeletionStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LicenseDeletionStatus" j)
    let to_json = simple_to_json to_value
  end
module TokenType =
  struct
    type nonrec t =
      | REFRESH_TOKEN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | REFRESH_TOKEN -> "REFRESH_TOKEN" | Non_static_id s -> s
    let of_string =
      function | "REFRESH_TOKEN" -> REFRESH_TOKEN | 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 TokenType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TokenType" j)
    let to_json = simple_to_json to_value
  end
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module Issuer =
  struct
    type nonrec t =
      {
      name: String_.t [@ocaml.doc "Issuer name."];
      signKey: String_.t option
        [@ocaml.doc
          "Asymmetric KMS key from Key Management Service. The KMS key must have a key usage of sign and verify, and support the RSASSA-PSS SHA-256 signing algorithm."]}
    let context_ = "Issuer"
    let make ?signKey = fun ~name -> fun () -> { signKey; name }
    let to_value x =
      structure_to_value
        [("Name", (Some (String_.to_value x.name)));
        ("SignKey", (Option.map x.signKey ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let signKey =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SignKey") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?signKey ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let signKey = field_map json__ "SignKey" String_.of_json in
      let name = field_map_exn json__ "Name" String_.of_json in
      make ?signKey ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details about the issuer of a license."]
module PrincipalArnList =
  struct
    type nonrec t = Arn.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:Arn.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:Arn.of_xml)
    let of_json j =
      list_of_json ~kind:"PrincipalArnList" ~of_json:Arn.of_json j
    let to_json v = composed_to_json to_value v
  end
module CheckoutType =
  struct
    type nonrec t =
      | PROVISIONAL 
      | PERPETUAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PROVISIONAL -> "PROVISIONAL"
      | PERPETUAL -> "PERPETUAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "PROVISIONAL" -> PROVISIONAL
      | "PERPETUAL" -> PERPETUAL
      | 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 CheckoutType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CheckoutType" j)
    let to_json = simple_to_json to_value
  end
module EntitlementDataList =
  struct
    type nonrec t = EntitlementData.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:EntitlementData.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:EntitlementData.of_xml)
    let of_json j =
      list_of_json ~kind:"EntitlementDataList"
        ~of_json:EntitlementData.of_json j
    let to_json v = composed_to_json to_value v
  end
module NoEntitlementsAllowedException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "There are no entitlements found for this license, or the entitlement maximum count is reached."]
module SignedToken =
  struct
    type nonrec t = string
    let context_ = "SignedToken"
    let make i =
      let open Result in ok_or_failwith (check_string_min i ~min:4096); 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:"SignedToken" j
    let to_json = simple_to_json to_value
  end
module UnsupportedDigitalSignatureMethodException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The digital signature method is unsupported. Try your request again."]
module EntitlementNotAllowedException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The entitlement is not allowed."]
module DigitalSignatureMethod =
  struct
    type nonrec t =
      | JWT_PS384 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | JWT_PS384 -> "JWT_PS384" | Non_static_id s -> s
    let of_string =
      function | "JWT_PS384" -> JWT_PS384 | 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 DigitalSignatureMethod" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DigitalSignatureMethod" j)
    let to_json = simple_to_json to_value
  end
module UpdateServiceSettingsResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `ConflictException of ConflictException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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 "Updates License Manager settings for the current Region."]
module UpdateServiceSettingsRequest =
  struct
    type nonrec t =
      {
      s3BucketArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the Amazon S3 bucket where the License Manager information is stored."];
      snsTopicArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the Amazon SNS topic used for License Manager alerts."];
      organizationConfiguration: OrganizationConfiguration.t option
        [@ocaml.doc
          "Enables integration with Organizations for cross-account discovery."];
      enableCrossAccountsDiscovery: BoxBoolean.t option
        [@ocaml.doc "Activates cross-account discovery."];
      enabledDiscoverySourceRegions: StringList.t option
        [@ocaml.doc "Cross region discovery enabled source regions."]}
    let make ?s3BucketArn =
      fun ?snsTopicArn ->
        fun ?organizationConfiguration ->
          fun ?enableCrossAccountsDiscovery ->
            fun ?enabledDiscoverySourceRegions ->
              fun () ->
                {
                  s3BucketArn;
                  snsTopicArn;
                  organizationConfiguration;
                  enableCrossAccountsDiscovery;
                  enabledDiscoverySourceRegions
                }
    let to_value x =
      structure_to_value
        [("S3BucketArn", (Option.map x.s3BucketArn ~f:String_.to_value));
        ("SnsTopicArn", (Option.map x.snsTopicArn ~f:String_.to_value));
        ("OrganizationConfiguration",
          (Option.map x.organizationConfiguration
             ~f:OrganizationConfiguration.to_value));
        ("EnableCrossAccountsDiscovery",
          (Option.map x.enableCrossAccountsDiscovery ~f:BoxBoolean.to_value));
        ("EnabledDiscoverySourceRegions",
          (Option.map x.enabledDiscoverySourceRegions ~f:StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enabledDiscoverySourceRegions =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "EnabledDiscoverySourceRegions") in
      let enableCrossAccountsDiscovery =
        (Option.map ~f:BoxBoolean.of_xml)
          (Xml.child xml_arg0 "EnableCrossAccountsDiscovery") in
      let organizationConfiguration =
        (Option.map ~f:OrganizationConfiguration.of_xml)
          (Xml.child xml_arg0 "OrganizationConfiguration") in
      let snsTopicArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SnsTopicArn") in
      let s3BucketArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "S3BucketArn") in
      make ?enabledDiscoverySourceRegions ?enableCrossAccountsDiscovery
        ?organizationConfiguration ?snsTopicArn ?s3BucketArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enabledDiscoverySourceRegions =
        field_map json__ "EnabledDiscoverySourceRegions" StringList.of_json in
      let enableCrossAccountsDiscovery =
        field_map json__ "EnableCrossAccountsDiscovery" BoxBoolean.of_json in
      let organizationConfiguration =
        field_map json__ "OrganizationConfiguration"
          OrganizationConfiguration.of_json in
      let snsTopicArn = field_map json__ "SnsTopicArn" String_.of_json in
      let s3BucketArn = field_map json__ "S3BucketArn" String_.of_json in
      make ?enabledDiscoverySourceRegions ?enableCrossAccountsDiscovery
        ?organizationConfiguration ?snsTopicArn ?s3BucketArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates License Manager settings for the current Region."]
module UpdateLicenseSpecificationsForResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `ConflictException of ConflictException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `LicenseUsageException of LicenseUsageException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "LicenseUsageException" ->
          `LicenseUsageException (LicenseUsageException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "LicenseUsageException" ->
          `LicenseUsageException (LicenseUsageException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `LicenseUsageException e ->
          `Assoc
            [("error", (`String "LicenseUsageException"));
            ("details", (LicenseUsageException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
       "Adds or removes the specified license configurations for the specified Amazon Web Services resource. You can update the license specifications of AMIs, instances, and hosts. You cannot update the license specifications for launch templates and CloudFormation templates, as they send license configurations to the operation that creates the resource."]
module UpdateLicenseSpecificationsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the Amazon Web Services resource."];
      addLicenseSpecifications: LicenseSpecifications.t option
        [@ocaml.doc "ARNs of the license configurations to add."];
      removeLicenseSpecifications: LicenseSpecifications.t option
        [@ocaml.doc "ARNs of the license configurations to remove."]}
    let context_ = "UpdateLicenseSpecificationsForResourceRequest"
    let make ?addLicenseSpecifications =
      fun ?removeLicenseSpecifications ->
        fun ~resourceArn ->
          fun () ->
            {
              addLicenseSpecifications;
              removeLicenseSpecifications;
              resourceArn
            }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)));
        ("AddLicenseSpecifications",
          (Option.map x.addLicenseSpecifications
             ~f:LicenseSpecifications.to_value));
        ("RemoveLicenseSpecifications",
          (Option.map x.removeLicenseSpecifications
             ~f:LicenseSpecifications.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let removeLicenseSpecifications =
        (Option.map ~f:LicenseSpecifications.of_xml)
          (Xml.child xml_arg0 "RemoveLicenseSpecifications") in
      let addLicenseSpecifications =
        (Option.map ~f:LicenseSpecifications.of_xml)
          (Xml.child xml_arg0 "AddLicenseSpecifications") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ?removeLicenseSpecifications ?addLicenseSpecifications
        ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let removeLicenseSpecifications =
        field_map json__ "RemoveLicenseSpecifications"
          LicenseSpecifications.of_json in
      let addLicenseSpecifications =
        field_map json__ "AddLicenseSpecifications"
          LicenseSpecifications.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" String_.of_json in
      make ?removeLicenseSpecifications ?addLicenseSpecifications
        ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or removes the specified license configurations for the specified Amazon Web Services resource. You can update the license specifications of AMIs, instances, and hosts. You cannot update the license specifications for launch templates and CloudFormation templates, as they send license configurations to the operation that creates the resource."]
module UpdateLicenseManagerReportGeneratorResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServerInternalException of ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
       "Updates a report generator. After you make changes to a report generator, it starts generating new reports within 60 minutes of being updated."]
module UpdateLicenseManagerReportGeneratorRequest =
  struct
    type nonrec t =
      {
      licenseManagerReportGeneratorArn: String_.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the report generator to update."];
      reportGeneratorName: ReportGeneratorName.t
        [@ocaml.doc "Name of the report generator."];
      type_: ReportTypeList.t
        [@ocaml.doc
          "Type of reports to generate. The following report types are supported: License configuration report - Reports the number and details of consumed licenses for a license configuration. Resource report - Reports the tracked licenses and resource consumption for a license configuration."];
      reportContext: ReportContext.t [@ocaml.doc "The report context."];
      reportFrequency: ReportFrequency.t
        [@ocaml.doc "Frequency by which reports are generated."];
      clientToken: ClientRequestToken.t
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      description: String_.t option
        [@ocaml.doc "Description of the report generator."]}
    let context_ = "UpdateLicenseManagerReportGeneratorRequest"
    let make ?description =
      fun ~licenseManagerReportGeneratorArn ->
        fun ~reportGeneratorName ->
          fun ~type_ ->
            fun ~reportContext ->
              fun ~reportFrequency ->
                fun ~clientToken ->
                  fun () ->
                    {
                      description;
                      licenseManagerReportGeneratorArn;
                      reportGeneratorName;
                      type_;
                      reportContext;
                      reportFrequency;
                      clientToken
                    }
    let to_value x =
      structure_to_value
        [("LicenseManagerReportGeneratorArn",
           (Some (String_.to_value x.licenseManagerReportGeneratorArn)));
        ("ReportGeneratorName",
          (Some (ReportGeneratorName.to_value x.reportGeneratorName)));
        ("Type", (Some (ReportTypeList.to_value x.type_)));
        ("ReportContext", (Some (ReportContext.to_value x.reportContext)));
        ("ReportFrequency",
          (Some (ReportFrequency.to_value x.reportFrequency)));
        ("ClientToken", (Some (ClientRequestToken.to_value x.clientToken)));
        ("Description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let clientToken =
        ClientRequestToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let reportFrequency =
        ReportFrequency.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReportFrequency") in
      let reportContext =
        ReportContext.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReportContext") in
      let type_ =
        ReportTypeList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let reportGeneratorName =
        ReportGeneratorName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReportGeneratorName") in
      let licenseManagerReportGeneratorArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "LicenseManagerReportGeneratorArn") in
      make ?description ~clientToken ~reportFrequency ~reportContext ~type_
        ~reportGeneratorName ~licenseManagerReportGeneratorArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "Description" String_.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientRequestToken.of_json in
      let reportFrequency =
        field_map_exn json__ "ReportFrequency" ReportFrequency.of_json in
      let reportContext =
        field_map_exn json__ "ReportContext" ReportContext.of_json in
      let type_ = field_map_exn json__ "Type" ReportTypeList.of_json in
      let reportGeneratorName =
        field_map_exn json__ "ReportGeneratorName"
          ReportGeneratorName.of_json in
      let licenseManagerReportGeneratorArn =
        field_map_exn json__ "LicenseManagerReportGeneratorArn"
          String_.of_json in
      make ?description ~clientToken ~reportFrequency ~reportContext ~type_
        ~reportGeneratorName ~licenseManagerReportGeneratorArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a report generator. After you make changes to a report generator, it starts generating new reports within 60 minutes of being updated."]
module UpdateLicenseConfigurationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `ConflictException of ConflictException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
       "Modifies the attributes of an existing license configuration."]
module UpdateLicenseConfigurationRequest =
  struct
    type nonrec t =
      {
      licenseConfigurationArn: String_.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license configuration."];
      licenseConfigurationStatus: LicenseConfigurationStatus.t option
        [@ocaml.doc "New status of the license configuration."];
      licenseRules: StringList.t option
        [@ocaml.doc
          "New license rule. The only rule that you can add after you create a license configuration is licenseAffinityToHost."];
      licenseCount: BoxLong.t option
        [@ocaml.doc
          "New number of licenses managed by the license configuration."];
      licenseCountHardLimit: BoxBoolean.t option
        [@ocaml.doc "New hard limit of the number of available licenses."];
      name: String_.t option
        [@ocaml.doc "New name of the license configuration."];
      description: String_.t option
        [@ocaml.doc "New description of the license configuration."];
      productInformationList: ProductInformationList.t option
        [@ocaml.doc "New product information."];
      disassociateWhenNotFound: BoxBoolean.t option
        [@ocaml.doc
          "When true, disassociates a resource when software is uninstalled."];
      licenseExpiry: BoxLong.t option
        [@ocaml.doc "License configuration expiry time."]}
    let context_ = "UpdateLicenseConfigurationRequest"
    let make ?licenseConfigurationStatus =
      fun ?licenseRules ->
        fun ?licenseCount ->
          fun ?licenseCountHardLimit ->
            fun ?name ->
              fun ?description ->
                fun ?productInformationList ->
                  fun ?disassociateWhenNotFound ->
                    fun ?licenseExpiry ->
                      fun ~licenseConfigurationArn ->
                        fun () ->
                          {
                            licenseConfigurationStatus;
                            licenseRules;
                            licenseCount;
                            licenseCountHardLimit;
                            name;
                            description;
                            productInformationList;
                            disassociateWhenNotFound;
                            licenseExpiry;
                            licenseConfigurationArn
                          }
    let to_value x =
      structure_to_value
        [("LicenseConfigurationArn",
           (Some (String_.to_value x.licenseConfigurationArn)));
        ("LicenseConfigurationStatus",
          (Option.map x.licenseConfigurationStatus
             ~f:LicenseConfigurationStatus.to_value));
        ("LicenseRules", (Option.map x.licenseRules ~f:StringList.to_value));
        ("LicenseCount", (Option.map x.licenseCount ~f:BoxLong.to_value));
        ("LicenseCountHardLimit",
          (Option.map x.licenseCountHardLimit ~f:BoxBoolean.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("ProductInformationList",
          (Option.map x.productInformationList
             ~f:ProductInformationList.to_value));
        ("DisassociateWhenNotFound",
          (Option.map x.disassociateWhenNotFound ~f:BoxBoolean.to_value));
        ("LicenseExpiry", (Option.map x.licenseExpiry ~f:BoxLong.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseExpiry =
        (Option.map ~f:BoxLong.of_xml) (Xml.child xml_arg0 "LicenseExpiry") in
      let disassociateWhenNotFound =
        (Option.map ~f:BoxBoolean.of_xml)
          (Xml.child xml_arg0 "DisassociateWhenNotFound") in
      let productInformationList =
        (Option.map ~f:ProductInformationList.of_xml)
          (Xml.child xml_arg0 "ProductInformationList") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let licenseCountHardLimit =
        (Option.map ~f:BoxBoolean.of_xml)
          (Xml.child xml_arg0 "LicenseCountHardLimit") in
      let licenseCount =
        (Option.map ~f:BoxLong.of_xml) (Xml.child xml_arg0 "LicenseCount") in
      let licenseRules =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "LicenseRules") in
      let licenseConfigurationStatus =
        (Option.map ~f:LicenseConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "LicenseConfigurationStatus") in
      let licenseConfigurationArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseConfigurationArn") in
      make ?licenseExpiry ?disassociateWhenNotFound ?productInformationList
        ?description ?name ?licenseCountHardLimit ?licenseCount ?licenseRules
        ?licenseConfigurationStatus ~licenseConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseExpiry = field_map json__ "LicenseExpiry" BoxLong.of_json in
      let disassociateWhenNotFound =
        field_map json__ "DisassociateWhenNotFound" BoxBoolean.of_json in
      let productInformationList =
        field_map json__ "ProductInformationList"
          ProductInformationList.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      let licenseCountHardLimit =
        field_map json__ "LicenseCountHardLimit" BoxBoolean.of_json in
      let licenseCount = field_map json__ "LicenseCount" BoxLong.of_json in
      let licenseRules = field_map json__ "LicenseRules" StringList.of_json in
      let licenseConfigurationStatus =
        field_map json__ "LicenseConfigurationStatus"
          LicenseConfigurationStatus.of_json in
      let licenseConfigurationArn =
        field_map_exn json__ "LicenseConfigurationArn" String_.of_json in
      make ?licenseExpiry ?disassociateWhenNotFound ?productInformationList
        ?description ?name ?licenseCountHardLimit ?licenseCount ?licenseRules
        ?licenseConfigurationStatus ~licenseConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the attributes of an existing license configuration."]
module UpdateLicenseAssetRulesetResponse =
  struct
    type nonrec t =
      {
      licenseAssetRulesetArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license asset ruleset."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseAssetRulesetArn = fun () -> { licenseAssetRulesetArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseAssetRulesetArn",
           (Option.map x.licenseAssetRulesetArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseAssetRulesetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseAssetRulesetArn") in
      make ?licenseAssetRulesetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseAssetRulesetArn =
        field_map json__ "LicenseAssetRulesetArn" String_.of_json in
      make ?licenseAssetRulesetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a license asset ruleset."]
module UpdateLicenseAssetRulesetRequest =
  struct
    type nonrec t =
      {
      name: LicenseAssetResourceName.t option
        [@ocaml.doc "License asset ruleset name."];
      description: LicenseAssetResourceDescription.t option
        [@ocaml.doc "License asset ruleset description."];
      rules: LicenseAssetRuleList.t [@ocaml.doc "License asset rules."];
      licenseAssetRulesetArn: Arn.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license asset ruleset."];
      clientToken: String_.t
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]}
    let context_ = "UpdateLicenseAssetRulesetRequest"
    let make ?name =
      fun ?description ->
        fun ~rules ->
          fun ~licenseAssetRulesetArn ->
            fun ~clientToken ->
              fun () ->
                {
                  name;
                  description;
                  rules;
                  licenseAssetRulesetArn;
                  clientToken
                }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:LicenseAssetResourceName.to_value));
        ("Description",
          (Option.map x.description
             ~f:LicenseAssetResourceDescription.to_value));
        ("Rules", (Some (LicenseAssetRuleList.to_value x.rules)));
        ("LicenseAssetRulesetArn",
          (Some (Arn.to_value x.licenseAssetRulesetArn)));
        ("ClientToken", (Some (String_.to_value x.clientToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let licenseAssetRulesetArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseAssetRulesetArn") in
      let rules =
        LicenseAssetRuleList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Rules") in
      let description =
        (Option.map ~f:LicenseAssetResourceDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:LicenseAssetResourceName.of_xml)
          (Xml.child xml_arg0 "Name") in
      make ~clientToken ~licenseAssetRulesetArn ~rules ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map_exn json__ "ClientToken" String_.of_json in
      let licenseAssetRulesetArn =
        field_map_exn json__ "LicenseAssetRulesetArn" Arn.of_json in
      let rules = field_map_exn json__ "Rules" LicenseAssetRuleList.of_json in
      let description =
        field_map json__ "Description"
          LicenseAssetResourceDescription.of_json in
      let name = field_map json__ "Name" LicenseAssetResourceName.of_json in
      make ~clientToken ~licenseAssetRulesetArn ~rules ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a license asset ruleset."]
module UpdateLicenseAssetGroupResponse =
  struct
    type nonrec t =
      {
      licenseAssetGroupArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the license asset group."];
      status: String_.t option [@ocaml.doc "License asset group status."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseAssetGroupArn =
      fun ?status -> fun () -> { licenseAssetGroupArn; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseAssetGroupArn",
           (Option.map x.licenseAssetGroupArn ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let licenseAssetGroupArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseAssetGroupArn") in
      make ?status ?licenseAssetGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      let licenseAssetGroupArn =
        field_map json__ "LicenseAssetGroupArn" String_.of_json in
      make ?status ?licenseAssetGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a license asset group."]
module UpdateLicenseAssetGroupRequest =
  struct
    type nonrec t =
      {
      name: LicenseAssetResourceName.t option
        [@ocaml.doc "License asset group name."];
      description: LicenseAssetResourceDescription.t option
        [@ocaml.doc "License asset group description."];
      licenseAssetGroupConfigurations:
        LicenseAssetGroupConfigurationList.t option
        [@ocaml.doc "License asset group configurations."];
      associatedLicenseAssetRulesetARNs: LicenseAssetRulesetArnList.t
        [@ocaml.doc "ARNs of associated license asset rulesets."];
      properties: LicenseAssetGroupPropertyList.t option
        [@ocaml.doc "License asset group properties."];
      licenseAssetGroupArn: Arn.t
        [@ocaml.doc "Amazon Resource Name (ARN) of the license asset group."];
      status: LicenseAssetGroupStatus.t option
        [@ocaml.doc
          "License asset group status. The possible values are ACTIVE | DISABLED."];
      clientToken: String_.t
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]}
    let context_ = "UpdateLicenseAssetGroupRequest"
    let make ?name =
      fun ?description ->
        fun ?licenseAssetGroupConfigurations ->
          fun ?properties ->
            fun ?status ->
              fun ~associatedLicenseAssetRulesetARNs ->
                fun ~licenseAssetGroupArn ->
                  fun ~clientToken ->
                    fun () ->
                      {
                        name;
                        description;
                        licenseAssetGroupConfigurations;
                        properties;
                        status;
                        associatedLicenseAssetRulesetARNs;
                        licenseAssetGroupArn;
                        clientToken
                      }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:LicenseAssetResourceName.to_value));
        ("Description",
          (Option.map x.description
             ~f:LicenseAssetResourceDescription.to_value));
        ("LicenseAssetGroupConfigurations",
          (Option.map x.licenseAssetGroupConfigurations
             ~f:LicenseAssetGroupConfigurationList.to_value));
        ("AssociatedLicenseAssetRulesetARNs",
          (Some
             (LicenseAssetRulesetArnList.to_value
                x.associatedLicenseAssetRulesetARNs)));
        ("Properties",
          (Option.map x.properties ~f:LicenseAssetGroupPropertyList.to_value));
        ("LicenseAssetGroupArn",
          (Some (Arn.to_value x.licenseAssetGroupArn)));
        ("Status", (Option.map x.status ~f:LicenseAssetGroupStatus.to_value));
        ("ClientToken", (Some (String_.to_value x.clientToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let status =
        (Option.map ~f:LicenseAssetGroupStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let licenseAssetGroupArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseAssetGroupArn") in
      let properties =
        (Option.map ~f:LicenseAssetGroupPropertyList.of_xml)
          (Xml.child xml_arg0 "Properties") in
      let associatedLicenseAssetRulesetARNs =
        LicenseAssetRulesetArnList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "AssociatedLicenseAssetRulesetARNs") in
      let licenseAssetGroupConfigurations =
        (Option.map ~f:LicenseAssetGroupConfigurationList.of_xml)
          (Xml.child xml_arg0 "LicenseAssetGroupConfigurations") in
      let description =
        (Option.map ~f:LicenseAssetResourceDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:LicenseAssetResourceName.of_xml)
          (Xml.child xml_arg0 "Name") in
      make ~clientToken ?status ~licenseAssetGroupArn ?properties
        ~associatedLicenseAssetRulesetARNs ?licenseAssetGroupConfigurations
        ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map_exn json__ "ClientToken" String_.of_json in
      let status = field_map json__ "Status" LicenseAssetGroupStatus.of_json in
      let licenseAssetGroupArn =
        field_map_exn json__ "LicenseAssetGroupArn" Arn.of_json in
      let properties =
        field_map json__ "Properties" LicenseAssetGroupPropertyList.of_json in
      let associatedLicenseAssetRulesetARNs =
        field_map_exn json__ "AssociatedLicenseAssetRulesetARNs"
          LicenseAssetRulesetArnList.of_json in
      let licenseAssetGroupConfigurations =
        field_map json__ "LicenseAssetGroupConfigurations"
          LicenseAssetGroupConfigurationList.of_json in
      let description =
        field_map json__ "Description"
          LicenseAssetResourceDescription.of_json in
      let name = field_map json__ "Name" LicenseAssetResourceName.of_json in
      make ~clientToken ?status ~licenseAssetGroupArn ?properties
        ~associatedLicenseAssetRulesetARNs ?licenseAssetGroupConfigurations
        ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a license asset group."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes the specified tags from the specified resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc "Amazon Resource Name (ARN) of the resource."];
      tagKeys: TagKeyList.t
        [@ocaml.doc "Keys identifying the tags to remove."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.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 =
        String_.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" String_.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes the specified tags from the specified resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
       "Adds the specified tags to the specified resource. The following resources support tagging in License Manager: Licenses Grants License configurations Report generators"]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the resource. The following examples provide an example ARN for each supported resource in License Manager: Licenses - arn:aws:license-manager::111122223333:license:l-EXAMPLE2da7646d6861033667f20e895 Grants - arn:aws:license-manager::111122223333:grant:g-EXAMPLE7b19f4a0ab73679b0beb52707 License configurations - arn:aws:license-manager:us-east-1:111122223333:license-configuration:lic-EXAMPLE6a788d4c8acd4264ff0ecf2ed2d Report generators - arn:aws:license-manager:us-east-1:111122223333:report-generator:r-EXAMPLE825b4a4f8fe5a3e0c88824e5fc6"];
      tags: TagList.t [@ocaml.doc "One or more tags."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)));
        ("Tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceArn =
        String_.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" TagList.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" String_.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds the specified tags to the specified resource. The following resources support tagging in License Manager: Licenses Grants License configurations Report generators"]
module RejectGrantResponse =
  struct
    type nonrec t =
      {
      grantArn: Arn.t option [@ocaml.doc "Grant ARN."];
      status: GrantStatus.t option [@ocaml.doc "Grant status."];
      version: String_.t option [@ocaml.doc "Grant version."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?grantArn =
      fun ?status -> fun ?version -> fun () -> { grantArn; status; version }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("GrantArn", (Option.map x.grantArn ~f:Arn.to_value));
        ("Status", (Option.map x.status ~f:GrantStatus.to_value));
        ("Version", (Option.map x.version ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Version") in
      let status =
        (Option.map ~f:GrantStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let grantArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "GrantArn") in
      make ?version ?status ?grantArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "Version" String_.of_json in
      let status = field_map json__ "Status" GrantStatus.of_json in
      let grantArn = field_map json__ "GrantArn" Arn.of_json in
      make ?version ?status ?grantArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Rejects the specified grant."]
module RejectGrantRequest =
  struct
    type nonrec t =
      {
      grantArn: Arn.t [@ocaml.doc "Amazon Resource Name (ARN) of the grant."]}
    let context_ = "RejectGrantRequest"
    let make ~grantArn = fun () -> { grantArn }
    let to_value x =
      structure_to_value [("GrantArn", (Some (Arn.to_value x.grantArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let grantArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "GrantArn") in
      make ~grantArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let grantArn = field_map_exn json__ "GrantArn" Arn.of_json in
      make ~grantArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Rejects the specified grant."]
module ListUsageForLicenseConfigurationResponse =
  struct
    type nonrec t =
      {
      licenseConfigurationUsageList: LicenseConfigurationUsageList.t option
        [@ocaml.doc "Information about the license configurations."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `FilterLimitExceededException of FilterLimitExceededException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseConfigurationUsageList =
      fun ?nextToken ->
        fun () -> { licenseConfigurationUsageList; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "FilterLimitExceededException" ->
          `FilterLimitExceededException
            (FilterLimitExceededException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "FilterLimitExceededException" ->
          `FilterLimitExceededException
            (FilterLimitExceededException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `FilterLimitExceededException e ->
          `Assoc
            [("error", (`String "FilterLimitExceededException"));
            ("details", (FilterLimitExceededException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseConfigurationUsageList",
           (Option.map x.licenseConfigurationUsageList
              ~f:LicenseConfigurationUsageList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let licenseConfigurationUsageList =
        (Option.map ~f:LicenseConfigurationUsageList.of_xml)
          (Xml.child xml_arg0 "LicenseConfigurationUsageList") in
      make ?nextToken ?licenseConfigurationUsageList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let licenseConfigurationUsageList =
        field_map json__ "LicenseConfigurationUsageList"
          LicenseConfigurationUsageList.of_json in
      make ?nextToken ?licenseConfigurationUsageList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all license usage records for a license configuration, displaying license consumption details by resource at a selected point in time. Use this action to audit the current license consumption for any license inventory and configuration."]
module ListUsageForLicenseConfigurationRequest =
  struct
    type nonrec t =
      {
      licenseConfigurationArn: String_.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license configuration."];
      maxResults: BoxInteger.t option
        [@ocaml.doc "Maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."];
      filters: Filters.t option
        [@ocaml.doc
          "Filters to scope the results. The following filters and logical operators are supported: resourceArn - The ARN of the license configuration resource. resourceType - The resource type (EC2_INSTANCE | EC2_HOST | EC2_AMI | SYSTEMS_MANAGER_MANAGED_INSTANCE). resourceAccount - The ID of the account that owns the resource."]}
    let context_ = "ListUsageForLicenseConfigurationRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filters ->
          fun ~licenseConfigurationArn ->
            fun () ->
              { maxResults; nextToken; filters; licenseConfigurationArn }
    let to_value x =
      structure_to_value
        [("LicenseConfigurationArn",
           (Some (String_.to_value x.licenseConfigurationArn)));
        ("MaxResults", (Option.map x.maxResults ~f:BoxInteger.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("Filters", (Option.map x.filters ~f:Filters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:BoxInteger.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let licenseConfigurationArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseConfigurationArn") in
      make ?filters ?nextToken ?maxResults ~licenseConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "Filters" Filters.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" BoxInteger.of_json in
      let licenseConfigurationArn =
        field_map_exn json__ "LicenseConfigurationArn" String_.of_json in
      make ?filters ?nextToken ?maxResults ~licenseConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all license usage records for a license configuration, displaying license consumption details by resource at a selected point in time. Use this action to audit the current license consumption for any license inventory and configuration."]
module ListTokensResponse =
  struct
    type nonrec t =
      {
      tokens: TokenList.t option [@ocaml.doc "Received token details."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tokens = fun ?nextToken -> fun () -> { tokens; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("Tokens", (Option.map x.tokens ~f:TokenList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let tokens =
        (Option.map ~f:TokenList.of_xml) (Xml.child xml_arg0 "Tokens") in
      make ?nextToken ?tokens ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let tokens = field_map json__ "Tokens" TokenList.of_json in
      make ?nextToken ?tokens ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists your tokens."]
module ListTokensRequest =
  struct
    type nonrec t =
      {
      tokenIds: StringList.t option [@ocaml.doc "Token IDs."];
      filters: FilterList.t option
        [@ocaml.doc
          "Filters to scope the results. The following filter is supported: LicenseArns"];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."];
      maxResults: MaxSize100.t option
        [@ocaml.doc "Maximum number of results to return in a single call."]}
    let make ?tokenIds =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { tokenIds; filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("TokenIds", (Option.map x.tokenIds ~f:StringList.to_value));
        ("Filters", (Option.map x.filters ~f:FilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxSize100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxSize100.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:FilterList.of_xml) (Xml.child xml_arg0 "Filters") in
      let tokenIds =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "TokenIds") in
      make ?maxResults ?nextToken ?filters ?tokenIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxSize100.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let filters = field_map json__ "Filters" FilterList.of_json in
      let tokenIds = field_map json__ "TokenIds" StringList.of_json in
      make ?maxResults ?nextToken ?filters ?tokenIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists your tokens."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option [@ocaml.doc "Information about the tags."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags for the specified resource. For more information about tagging support in License Manager, see the TagResource operation."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc "Amazon Resource Name (ARN) of the resource."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        String_.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" String_.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags for the specified resource. For more information about tagging support in License Manager, see the TagResource operation."]
module ListResourceInventoryResponse =
  struct
    type nonrec t =
      {
      resourceInventoryList: ResourceInventoryList.t option
        [@ocaml.doc "Information about the resources."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `FilterLimitExceededException of FilterLimitExceededException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceInventoryList =
      fun ?nextToken -> fun () -> { resourceInventoryList; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "FilterLimitExceededException" ->
          `FilterLimitExceededException
            (FilterLimitExceededException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "FilterLimitExceededException" ->
          `FilterLimitExceededException
            (FilterLimitExceededException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `FilterLimitExceededException e ->
          `Assoc
            [("error", (`String "FilterLimitExceededException"));
            ("details", (FilterLimitExceededException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("ResourceInventoryList",
           (Option.map x.resourceInventoryList
              ~f:ResourceInventoryList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let resourceInventoryList =
        (Option.map ~f:ResourceInventoryList.of_xml)
          (Xml.child xml_arg0 "ResourceInventoryList") in
      make ?nextToken ?resourceInventoryList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let resourceInventoryList =
        field_map json__ "ResourceInventoryList"
          ResourceInventoryList.of_json in
      make ?nextToken ?resourceInventoryList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists resources managed using Systems Manager inventory."]
module ListResourceInventoryRequest =
  struct
    type nonrec t =
      {
      maxResults: BoxInteger.t option
        [@ocaml.doc "Maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."];
      filters: InventoryFilterList.t option
        [@ocaml.doc
          "Filters to scope the results. The following filters and logical operators are supported: account_id - The ID of the Amazon Web Services account that owns the resource. Logical operators are EQUALS | NOT_EQUALS. application_name - The name of the application. Logical operators are EQUALS | BEGINS_WITH. license_included - The type of license included. Logical operators are EQUALS | NOT_EQUALS. Possible values are sql-server-enterprise | sql-server-standard | sql-server-web | windows-server-datacenter. platform - The platform of the resource. Logical operators are EQUALS | BEGINS_WITH. resource_id - The ID of the resource. Logical operators are EQUALS | NOT_EQUALS. tag:<key> - The key/value combination of a tag assigned to the resource. Logical operators are EQUALS (single account) or EQUALS | NOT_EQUALS (cross account)."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filters -> fun () -> { maxResults; nextToken; filters }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:BoxInteger.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("Filters", (Option.map x.filters ~f:InventoryFilterList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:InventoryFilterList.of_xml)
          (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:BoxInteger.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?filters ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "Filters" InventoryFilterList.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" BoxInteger.of_json in
      make ?filters ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists resources managed using Systems Manager inventory."]
module ListReceivedLicensesResponse =
  struct
    type nonrec t =
      {
      licenses: GrantedLicenseList.t option
        [@ocaml.doc "Received license details."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenses = fun ?nextToken -> fun () -> { licenses; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("Licenses", (Option.map x.licenses ~f:GrantedLicenseList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let licenses =
        (Option.map ~f:GrantedLicenseList.of_xml)
          (Xml.child xml_arg0 "Licenses") in
      make ?nextToken ?licenses ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let licenses = field_map json__ "Licenses" GrantedLicenseList.of_json in
      make ?nextToken ?licenses ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists received licenses."]
module ListReceivedLicensesRequest =
  struct
    type nonrec t =
      {
      licenseArns: ArnList.t option
        [@ocaml.doc "Amazon Resource Names (ARNs) of the licenses."];
      filters: FilterList.t option
        [@ocaml.doc
          "Filters to scope the results. The following filters are supported: ProductSKU Status Fingerprint IssuerName Beneficiary"];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."];
      maxResults: MaxSize100.t option
        [@ocaml.doc "Maximum number of results to return in a single call."]}
    let make ?licenseArns =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { licenseArns; filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("LicenseArns", (Option.map x.licenseArns ~f:ArnList.to_value));
        ("Filters", (Option.map x.filters ~f:FilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxSize100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxSize100.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:FilterList.of_xml) (Xml.child xml_arg0 "Filters") in
      let licenseArns =
        (Option.map ~f:ArnList.of_xml) (Xml.child xml_arg0 "LicenseArns") in
      make ?maxResults ?nextToken ?filters ?licenseArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxSize100.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let filters = field_map json__ "Filters" FilterList.of_json in
      let licenseArns = field_map json__ "LicenseArns" ArnList.of_json in
      make ?maxResults ?nextToken ?filters ?licenseArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists received licenses."]
module ListReceivedLicensesForOrganizationResponse =
  struct
    type nonrec t =
      {
      licenses: GrantedLicenseList.t option
        [@ocaml.doc "Lists the licenses the organization has received."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenses = fun ?nextToken -> fun () -> { licenses; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("Licenses", (Option.map x.licenses ~f:GrantedLicenseList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let licenses =
        (Option.map ~f:GrantedLicenseList.of_xml)
          (Xml.child xml_arg0 "Licenses") in
      make ?nextToken ?licenses ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let licenses = field_map json__ "Licenses" GrantedLicenseList.of_json in
      make ?nextToken ?licenses ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the licenses received for all accounts in the organization."]
module ListReceivedLicensesForOrganizationRequest =
  struct
    type nonrec t =
      {
      filters: FilterList.t option
        [@ocaml.doc
          "Filters to scope the results. The following filters are supported: Beneficiary ProductSKU"];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."];
      maxResults: MaxSize100.t option
        [@ocaml.doc "Maximum number of results to return in a single call."]}
    let make ?filters =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("Filters", (Option.map x.filters ~f:FilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxSize100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxSize100.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:FilterList.of_xml) (Xml.child xml_arg0 "Filters") in
      make ?maxResults ?nextToken ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxSize100.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let filters = field_map json__ "Filters" FilterList.of_json in
      make ?maxResults ?nextToken ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the licenses received for all accounts in the organization."]
module ListReceivedGrantsResponse =
  struct
    type nonrec t =
      {
      grants: GrantList.t option [@ocaml.doc "Received grant details."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?grants = fun ?nextToken -> fun () -> { grants; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("Grants", (Option.map x.grants ~f:GrantList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let grants =
        (Option.map ~f:GrantList.of_xml) (Xml.child xml_arg0 "Grants") in
      make ?nextToken ?grants ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let grants = field_map json__ "Grants" GrantList.of_json in
      make ?nextToken ?grants ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists grants that are received. Received grants are grants created while specifying the recipient as this Amazon Web Services account, your organization, or an organizational unit (OU) to which this member account belongs."]
module ListReceivedGrantsRequest =
  struct
    type nonrec t =
      {
      grantArns: ArnList.t option
        [@ocaml.doc "Amazon Resource Names (ARNs) of the grants."];
      filters: FilterList.t option
        [@ocaml.doc
          "Filters to scope the results. The following filters are supported: ProductSKU LicenseIssuerName LicenseArn GrantStatus GranterAccountId"];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."];
      maxResults: MaxSize100.t option
        [@ocaml.doc "Maximum number of results to return in a single call."]}
    let make ?grantArns =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { grantArns; filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("GrantArns", (Option.map x.grantArns ~f:ArnList.to_value));
        ("Filters", (Option.map x.filters ~f:FilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxSize100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxSize100.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:FilterList.of_xml) (Xml.child xml_arg0 "Filters") in
      let grantArns =
        (Option.map ~f:ArnList.of_xml) (Xml.child xml_arg0 "GrantArns") in
      make ?maxResults ?nextToken ?filters ?grantArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxSize100.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let filters = field_map json__ "Filters" FilterList.of_json in
      let grantArns = field_map json__ "GrantArns" ArnList.of_json in
      make ?maxResults ?nextToken ?filters ?grantArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists grants that are received. Received grants are grants created while specifying the recipient as this Amazon Web Services account, your organization, or an organizational unit (OU) to which this member account belongs."]
module ListReceivedGrantsForOrganizationResponse =
  struct
    type nonrec t =
      {
      grants: GrantList.t option
        [@ocaml.doc "Lists the grants the organization has received."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?grants = fun ?nextToken -> fun () -> { grants; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("Grants", (Option.map x.grants ~f:GrantList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let grants =
        (Option.map ~f:GrantList.of_xml) (Xml.child xml_arg0 "Grants") in
      make ?nextToken ?grants ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let grants = field_map json__ "Grants" GrantList.of_json in
      make ?nextToken ?grants ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the grants received for all accounts in the organization."]
module ListReceivedGrantsForOrganizationRequest =
  struct
    type nonrec t =
      {
      licenseArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the received license."];
      filters: FilterList.t option
        [@ocaml.doc
          "Filters to scope the results. The following filters are supported: ParentArn GranteePrincipalArn"];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."];
      maxResults: MaxSize100.t option
        [@ocaml.doc "Maximum number of results to return in a single call."]}
    let context_ = "ListReceivedGrantsForOrganizationRequest"
    let make ?filters =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~licenseArn ->
            fun () -> { filters; nextToken; maxResults; licenseArn }
    let to_value x =
      structure_to_value
        [("LicenseArn", (Some (Arn.to_value x.licenseArn)));
        ("Filters", (Option.map x.filters ~f:FilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxSize100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxSize100.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:FilterList.of_xml) (Xml.child xml_arg0 "Filters") in
      let licenseArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LicenseArn") in
      make ?maxResults ?nextToken ?filters ~licenseArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxSize100.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let filters = field_map json__ "Filters" FilterList.of_json in
      let licenseArn = field_map_exn json__ "LicenseArn" Arn.of_json in
      make ?maxResults ?nextToken ?filters ~licenseArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the grants received for all accounts in the organization."]
module ListLicensesResponse =
  struct
    type nonrec t =
      {
      licenses: LicenseList.t option [@ocaml.doc "License details."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenses = fun ?nextToken -> fun () -> { licenses; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("Licenses", (Option.map x.licenses ~f:LicenseList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let licenses =
        (Option.map ~f:LicenseList.of_xml) (Xml.child xml_arg0 "Licenses") in
      make ?nextToken ?licenses ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let licenses = field_map json__ "Licenses" LicenseList.of_json in
      make ?nextToken ?licenses ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the licenses for your account."]
module ListLicensesRequest =
  struct
    type nonrec t =
      {
      licenseArns: ArnList.t option
        [@ocaml.doc "Amazon Resource Names (ARNs) of the licenses."];
      filters: FilterList.t option
        [@ocaml.doc
          "Filters to scope the results. The following filters are supported: Beneficiary ProductSKU Fingerprint Status"];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."];
      maxResults: MaxSize100.t option
        [@ocaml.doc "Maximum number of results to return in a single call."]}
    let make ?licenseArns =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { licenseArns; filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("LicenseArns", (Option.map x.licenseArns ~f:ArnList.to_value));
        ("Filters", (Option.map x.filters ~f:FilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxSize100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxSize100.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:FilterList.of_xml) (Xml.child xml_arg0 "Filters") in
      let licenseArns =
        (Option.map ~f:ArnList.of_xml) (Xml.child xml_arg0 "LicenseArns") in
      make ?maxResults ?nextToken ?filters ?licenseArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxSize100.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let filters = field_map json__ "Filters" FilterList.of_json in
      let licenseArns = field_map json__ "LicenseArns" ArnList.of_json in
      make ?maxResults ?nextToken ?filters ?licenseArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the licenses for your account."]
module ListLicenseVersionsResponse =
  struct
    type nonrec t =
      {
      licenses: LicenseList.t option [@ocaml.doc "License details."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenses = fun ?nextToken -> fun () -> { licenses; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("Licenses", (Option.map x.licenses ~f:LicenseList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let licenses =
        (Option.map ~f:LicenseList.of_xml) (Xml.child xml_arg0 "Licenses") in
      make ?nextToken ?licenses ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let licenses = field_map json__ "Licenses" LicenseList.of_json in
      make ?nextToken ?licenses ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all versions of the specified license."]
module ListLicenseVersionsRequest =
  struct
    type nonrec t =
      {
      licenseArn: Arn.t
        [@ocaml.doc "Amazon Resource Name (ARN) of the license."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."];
      maxResults: MaxSize100.t option
        [@ocaml.doc "Maximum number of results to return in a single call."]}
    let context_ = "ListLicenseVersionsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~licenseArn -> fun () -> { nextToken; maxResults; licenseArn }
    let to_value x =
      structure_to_value
        [("LicenseArn", (Some (Arn.to_value x.licenseArn)));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxSize100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxSize100.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let licenseArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LicenseArn") in
      make ?maxResults ?nextToken ~licenseArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxSize100.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let licenseArn = field_map_exn json__ "LicenseArn" Arn.of_json in
      make ?maxResults ?nextToken ~licenseArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all versions of the specified license."]
module ListLicenseSpecificationsForResourceResponse =
  struct
    type nonrec t =
      {
      licenseSpecifications: LicenseSpecifications.t option
        [@ocaml.doc "License configurations associated with a resource."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseSpecifications =
      fun ?nextToken -> fun () -> { licenseSpecifications; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseSpecifications",
           (Option.map x.licenseSpecifications
              ~f:LicenseSpecifications.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let licenseSpecifications =
        (Option.map ~f:LicenseSpecifications.of_xml)
          (Xml.child xml_arg0 "LicenseSpecifications") in
      make ?nextToken ?licenseSpecifications ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let licenseSpecifications =
        field_map json__ "LicenseSpecifications"
          LicenseSpecifications.of_json in
      make ?nextToken ?licenseSpecifications ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the license configurations for the specified resource."]
module ListLicenseSpecificationsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of a resource that has an associated license configuration."];
      maxResults: BoxInteger.t option
        [@ocaml.doc "Maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    let context_ = "ListLicenseSpecificationsForResourceRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~resourceArn -> fun () -> { maxResults; nextToken; resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)));
        ("MaxResults", (Option.map x.maxResults ~f:BoxInteger.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:BoxInteger.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ?nextToken ?maxResults ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" BoxInteger.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" String_.of_json in
      make ?nextToken ?maxResults ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the license configurations for the specified resource."]
module ListLicenseManagerReportGeneratorsResponse =
  struct
    type nonrec t =
      {
      reportGenerators: ReportGeneratorList.t option
        [@ocaml.doc
          "A report generator that creates periodic reports about your license configurations."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reportGenerators =
      fun ?nextToken -> fun () -> { reportGenerators; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("ReportGenerators",
           (Option.map x.reportGenerators ~f:ReportGeneratorList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let reportGenerators =
        (Option.map ~f:ReportGeneratorList.of_xml)
          (Xml.child xml_arg0 "ReportGenerators") in
      make ?nextToken ?reportGenerators ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let reportGenerators =
        field_map json__ "ReportGenerators" ReportGeneratorList.of_json in
      make ?nextToken ?reportGenerators ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the report generators for your account."]
module ListLicenseManagerReportGeneratorsRequest =
  struct
    type nonrec t =
      {
      filters: FilterList.t option
        [@ocaml.doc
          "Filters to scope the results. The following filters are supported: LicenseConfigurationArn"];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."];
      maxResults: MaxSize100.t option
        [@ocaml.doc "Maximum number of results to return in a single call."]}
    let make ?filters =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("Filters", (Option.map x.filters ~f:FilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxSize100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxSize100.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:FilterList.of_xml) (Xml.child xml_arg0 "Filters") in
      make ?maxResults ?nextToken ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxSize100.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let filters = field_map json__ "Filters" FilterList.of_json in
      make ?maxResults ?nextToken ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the report generators for your account."]
module ListLicenseConversionTasksResponse =
  struct
    type nonrec t =
      {
      licenseConversionTasks: LicenseConversionTasks.t option
        [@ocaml.doc
          "Information about the license configuration tasks for your account."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseConversionTasks =
      fun ?nextToken -> fun () -> { licenseConversionTasks; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseConversionTasks",
           (Option.map x.licenseConversionTasks
              ~f:LicenseConversionTasks.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let licenseConversionTasks =
        (Option.map ~f:LicenseConversionTasks.of_xml)
          (Xml.child xml_arg0 "LicenseConversionTasks") in
      make ?nextToken ?licenseConversionTasks ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let licenseConversionTasks =
        field_map json__ "LicenseConversionTasks"
          LicenseConversionTasks.of_json in
      make ?nextToken ?licenseConversionTasks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the license type conversion tasks for your account."]
module ListLicenseConversionTasksRequest =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."];
      maxResults: BoxInteger.t option
        [@ocaml.doc "Maximum number of results to return in a single call."];
      filters: Filters.t option
        [@ocaml.doc
          "Filters to scope the results. Valid filters are ResourceArns and Status."]}
    let make ?nextToken =
      fun ?maxResults ->
        fun ?filters -> fun () -> { nextToken; maxResults; filters }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:BoxInteger.to_value));
        ("Filters", (Option.map x.filters ~f:Filters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      let maxResults =
        (Option.map ~f:BoxInteger.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?filters ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "Filters" Filters.of_json in
      let maxResults = field_map json__ "MaxResults" BoxInteger.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      make ?filters ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the license type conversion tasks for your account."]
module ListLicenseConfigurationsResponse =
  struct
    type nonrec t =
      {
      licenseConfigurations: LicenseConfigurations.t option
        [@ocaml.doc "Information about the license configurations."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `FilterLimitExceededException of FilterLimitExceededException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseConfigurations =
      fun ?nextToken -> fun () -> { licenseConfigurations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "FilterLimitExceededException" ->
          `FilterLimitExceededException
            (FilterLimitExceededException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "FilterLimitExceededException" ->
          `FilterLimitExceededException
            (FilterLimitExceededException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `FilterLimitExceededException e ->
          `Assoc
            [("error", (`String "FilterLimitExceededException"));
            ("details", (FilterLimitExceededException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseConfigurations",
           (Option.map x.licenseConfigurations
              ~f:LicenseConfigurations.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let licenseConfigurations =
        (Option.map ~f:LicenseConfigurations.of_xml)
          (Xml.child xml_arg0 "LicenseConfigurations") in
      make ?nextToken ?licenseConfigurations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let licenseConfigurations =
        field_map json__ "LicenseConfigurations"
          LicenseConfigurations.of_json in
      make ?nextToken ?licenseConfigurations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the license configurations for your account."]
module ListLicenseConfigurationsRequest =
  struct
    type nonrec t =
      {
      licenseConfigurationArns: StringList.t option
        [@ocaml.doc
          "Amazon Resource Names (ARN) of the license configurations."];
      maxResults: BoxInteger.t option
        [@ocaml.doc "Maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."];
      filters: Filters.t option
        [@ocaml.doc
          "Filters to scope the results. The following filters and logical operators are supported: licenseCountingType - The dimension for which licenses are counted. Possible values are vCPU | Instance | Core | Socket. enforceLicenseCount - A Boolean value that indicates whether hard license enforcement is used. usagelimitExceeded - A Boolean value that indicates whether the available licenses have been exceeded."]}
    let make ?licenseConfigurationArns =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ?filters ->
            fun () ->
              { licenseConfigurationArns; maxResults; nextToken; filters }
    let to_value x =
      structure_to_value
        [("LicenseConfigurationArns",
           (Option.map x.licenseConfigurationArns ~f:StringList.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:BoxInteger.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("Filters", (Option.map x.filters ~f:Filters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:BoxInteger.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let licenseConfigurationArns =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "LicenseConfigurationArns") in
      make ?filters ?nextToken ?maxResults ?licenseConfigurationArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "Filters" Filters.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" BoxInteger.of_json in
      let licenseConfigurationArns =
        field_map json__ "LicenseConfigurationArns" StringList.of_json in
      make ?filters ?nextToken ?maxResults ?licenseConfigurationArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the license configurations for your account."]
module ListLicenseConfigurationsForOrganizationResponse =
  struct
    type nonrec t =
      {
      licenseConfigurations: LicenseConfigurations.t option
        [@ocaml.doc "License configurations."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `FilterLimitExceededException of FilterLimitExceededException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseConfigurations =
      fun ?nextToken -> fun () -> { licenseConfigurations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "FilterLimitExceededException" ->
          `FilterLimitExceededException
            (FilterLimitExceededException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "FilterLimitExceededException" ->
          `FilterLimitExceededException
            (FilterLimitExceededException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `FilterLimitExceededException e ->
          `Assoc
            [("error", (`String "FilterLimitExceededException"));
            ("details", (FilterLimitExceededException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseConfigurations",
           (Option.map x.licenseConfigurations
              ~f:LicenseConfigurations.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let licenseConfigurations =
        (Option.map ~f:LicenseConfigurations.of_xml)
          (Xml.child xml_arg0 "LicenseConfigurations") in
      make ?nextToken ?licenseConfigurations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let licenseConfigurations =
        field_map json__ "LicenseConfigurations"
          LicenseConfigurations.of_json in
      make ?nextToken ?licenseConfigurations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists license configurations for an organization."]
module ListLicenseConfigurationsForOrganizationRequest =
  struct
    type nonrec t =
      {
      licenseConfigurationArns: StringList.t option
        [@ocaml.doc "License configuration ARNs."];
      maxResults: BoxInteger.t option
        [@ocaml.doc "Maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."];
      filters: Filters.t option [@ocaml.doc "Filters to scope the results."]}
    let make ?licenseConfigurationArns =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ?filters ->
            fun () ->
              { licenseConfigurationArns; maxResults; nextToken; filters }
    let to_value x =
      structure_to_value
        [("LicenseConfigurationArns",
           (Option.map x.licenseConfigurationArns ~f:StringList.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:BoxInteger.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("Filters", (Option.map x.filters ~f:Filters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:BoxInteger.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let licenseConfigurationArns =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "LicenseConfigurationArns") in
      make ?filters ?nextToken ?maxResults ?licenseConfigurationArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "Filters" Filters.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" BoxInteger.of_json in
      let licenseConfigurationArns =
        field_map json__ "LicenseConfigurationArns" StringList.of_json in
      make ?filters ?nextToken ?maxResults ?licenseConfigurationArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists license configurations for an organization."]
module ListLicenseAssetRulesetsResponse =
  struct
    type nonrec t =
      {
      licenseAssetRulesets: LicenseAssetRulesetList.t option
        [@ocaml.doc "License asset rulesets."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseAssetRulesets =
      fun ?nextToken -> fun () -> { licenseAssetRulesets; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseAssetRulesets",
           (Option.map x.licenseAssetRulesets
              ~f:LicenseAssetRulesetList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let licenseAssetRulesets =
        (Option.map ~f:LicenseAssetRulesetList.of_xml)
          (Xml.child xml_arg0 "LicenseAssetRulesets") in
      make ?nextToken ?licenseAssetRulesets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let licenseAssetRulesets =
        field_map json__ "LicenseAssetRulesets"
          LicenseAssetRulesetList.of_json in
      make ?nextToken ?licenseAssetRulesets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists license asset rulesets."]
module ListLicenseAssetRulesetsRequest =
  struct
    type nonrec t =
      {
      filters: Filters.t option
        [@ocaml.doc
          "Filters to scope the results. Following filters are supported Name"];
      showAWSManagedLicenseAssetRulesets: Boolean.t option
        [@ocaml.doc
          "Specifies whether to show License Manager managed license asset rulesets."];
      maxResults: BoxInteger.t option
        [@ocaml.doc "Maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    let make ?filters =
      fun ?showAWSManagedLicenseAssetRulesets ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun () ->
              {
                filters;
                showAWSManagedLicenseAssetRulesets;
                maxResults;
                nextToken
              }
    let to_value x =
      structure_to_value
        [("Filters", (Option.map x.filters ~f:Filters.to_value));
        ("ShowAWSManagedLicenseAssetRulesets",
          (Option.map x.showAWSManagedLicenseAssetRulesets
             ~f:Boolean.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:BoxInteger.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:BoxInteger.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let showAWSManagedLicenseAssetRulesets =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "ShowAWSManagedLicenseAssetRulesets") in
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      make ?nextToken ?maxResults ?showAWSManagedLicenseAssetRulesets
        ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" BoxInteger.of_json in
      let showAWSManagedLicenseAssetRulesets =
        field_map json__ "ShowAWSManagedLicenseAssetRulesets" Boolean.of_json in
      let filters = field_map json__ "Filters" Filters.of_json in
      make ?nextToken ?maxResults ?showAWSManagedLicenseAssetRulesets
        ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists license asset rulesets."]
module ListLicenseAssetGroupsResponse =
  struct
    type nonrec t =
      {
      licenseAssetGroups: LicenseAssetGroupList.t option
        [@ocaml.doc "License asset groups."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseAssetGroups =
      fun ?nextToken -> fun () -> { licenseAssetGroups; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseAssetGroups",
           (Option.map x.licenseAssetGroups ~f:LicenseAssetGroupList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let licenseAssetGroups =
        (Option.map ~f:LicenseAssetGroupList.of_xml)
          (Xml.child xml_arg0 "LicenseAssetGroups") in
      make ?nextToken ?licenseAssetGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let licenseAssetGroups =
        field_map json__ "LicenseAssetGroups" LicenseAssetGroupList.of_json in
      make ?nextToken ?licenseAssetGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists license asset groups."]
module ListLicenseAssetGroupsRequest =
  struct
    type nonrec t =
      {
      filters: Filters.t option
        [@ocaml.doc
          "Filters to scope the results. Following filters are supported LicenseAssetRulesetArn"];
      maxResults: BoxInteger.t option
        [@ocaml.doc "Maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    let make ?filters =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { filters; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("Filters", (Option.map x.filters ~f:Filters.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:BoxInteger.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:BoxInteger.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      make ?nextToken ?maxResults ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" BoxInteger.of_json in
      let filters = field_map json__ "Filters" Filters.of_json in
      make ?nextToken ?maxResults ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists license asset groups."]
module ListFailuresForLicenseConfigurationOperationsResponse =
  struct
    type nonrec t =
      {
      licenseOperationFailureList: LicenseOperationFailureList.t option
        [@ocaml.doc "License configuration operations that failed."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseOperationFailureList =
      fun ?nextToken -> fun () -> { licenseOperationFailureList; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseOperationFailureList",
           (Option.map x.licenseOperationFailureList
              ~f:LicenseOperationFailureList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let licenseOperationFailureList =
        (Option.map ~f:LicenseOperationFailureList.of_xml)
          (Xml.child xml_arg0 "LicenseOperationFailureList") in
      make ?nextToken ?licenseOperationFailureList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let licenseOperationFailureList =
        field_map json__ "LicenseOperationFailureList"
          LicenseOperationFailureList.of_json in
      make ?nextToken ?licenseOperationFailureList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the license configuration operations that failed."]
module ListFailuresForLicenseConfigurationOperationsRequest =
  struct
    type nonrec t =
      {
      licenseConfigurationArn: String_.t
        [@ocaml.doc "Amazon Resource Name of the license configuration."];
      maxResults: BoxInteger.t option
        [@ocaml.doc "Maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    let context_ = "ListFailuresForLicenseConfigurationOperationsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~licenseConfigurationArn ->
          fun () -> { maxResults; nextToken; licenseConfigurationArn }
    let to_value x =
      structure_to_value
        [("LicenseConfigurationArn",
           (Some (String_.to_value x.licenseConfigurationArn)));
        ("MaxResults", (Option.map x.maxResults ~f:BoxInteger.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:BoxInteger.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let licenseConfigurationArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseConfigurationArn") in
      make ?nextToken ?maxResults ~licenseConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" BoxInteger.of_json in
      let licenseConfigurationArn =
        field_map_exn json__ "LicenseConfigurationArn" String_.of_json in
      make ?nextToken ?maxResults ~licenseConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the license configuration operations that failed."]
module ListDistributedGrantsResponse =
  struct
    type nonrec t =
      {
      grants: GrantList.t option [@ocaml.doc "Distributed grant details."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?grants = fun ?nextToken -> fun () -> { grants; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("Grants", (Option.map x.grants ~f:GrantList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let grants =
        (Option.map ~f:GrantList.of_xml) (Xml.child xml_arg0 "Grants") in
      make ?nextToken ?grants ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let grants = field_map json__ "Grants" GrantList.of_json in
      make ?nextToken ?grants ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the grants distributed for the specified license."]
module ListDistributedGrantsRequest =
  struct
    type nonrec t =
      {
      grantArns: ArnList.t option
        [@ocaml.doc "Amazon Resource Names (ARNs) of the grants."];
      filters: FilterList.t option
        [@ocaml.doc
          "Filters to scope the results. The following filters are supported: LicenseArn GrantStatus GranteePrincipalARN ProductSKU LicenseIssuerName"];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."];
      maxResults: MaxSize100.t option
        [@ocaml.doc "Maximum number of results to return in a single call."]}
    let make ?grantArns =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { grantArns; filters; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("GrantArns", (Option.map x.grantArns ~f:ArnList.to_value));
        ("Filters", (Option.map x.filters ~f:FilterList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxSize100.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxSize100.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filters =
        (Option.map ~f:FilterList.of_xml) (Xml.child xml_arg0 "Filters") in
      let grantArns =
        (Option.map ~f:ArnList.of_xml) (Xml.child xml_arg0 "GrantArns") in
      make ?maxResults ?nextToken ?filters ?grantArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxSize100.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let filters = field_map json__ "Filters" FilterList.of_json in
      let grantArns = field_map json__ "GrantArns" ArnList.of_json in
      make ?maxResults ?nextToken ?filters ?grantArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the grants distributed for the specified license."]
module ListAssociationsForLicenseConfigurationResponse =
  struct
    type nonrec t =
      {
      licenseConfigurationAssociations:
        LicenseConfigurationAssociations.t option
        [@ocaml.doc
          "Information about the associations for the license configuration."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `FilterLimitExceededException of FilterLimitExceededException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseConfigurationAssociations =
      fun ?nextToken ->
        fun () -> { licenseConfigurationAssociations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "FilterLimitExceededException" ->
          `FilterLimitExceededException
            (FilterLimitExceededException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "FilterLimitExceededException" ->
          `FilterLimitExceededException
            (FilterLimitExceededException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `FilterLimitExceededException e ->
          `Assoc
            [("error", (`String "FilterLimitExceededException"));
            ("details", (FilterLimitExceededException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseConfigurationAssociations",
           (Option.map x.licenseConfigurationAssociations
              ~f:LicenseConfigurationAssociations.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let licenseConfigurationAssociations =
        (Option.map ~f:LicenseConfigurationAssociations.of_xml)
          (Xml.child xml_arg0 "LicenseConfigurationAssociations") in
      make ?nextToken ?licenseConfigurationAssociations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let licenseConfigurationAssociations =
        field_map json__ "LicenseConfigurationAssociations"
          LicenseConfigurationAssociations.of_json in
      make ?nextToken ?licenseConfigurationAssociations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the resource associations for the specified license configuration. Resource associations need not consume licenses from a license configuration. For example, an AMI or a stopped instance might not consume a license (depending on the license rules)."]
module ListAssociationsForLicenseConfigurationRequest =
  struct
    type nonrec t =
      {
      licenseConfigurationArn: String_.t
        [@ocaml.doc "Amazon Resource Name (ARN) of a license configuration."];
      maxResults: BoxInteger.t option
        [@ocaml.doc "Maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    let context_ = "ListAssociationsForLicenseConfigurationRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~licenseConfigurationArn ->
          fun () -> { maxResults; nextToken; licenseConfigurationArn }
    let to_value x =
      structure_to_value
        [("LicenseConfigurationArn",
           (Some (String_.to_value x.licenseConfigurationArn)));
        ("MaxResults", (Option.map x.maxResults ~f:BoxInteger.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:BoxInteger.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let licenseConfigurationArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseConfigurationArn") in
      make ?nextToken ?maxResults ~licenseConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" BoxInteger.of_json in
      let licenseConfigurationArn =
        field_map_exn json__ "LicenseConfigurationArn" String_.of_json in
      make ?nextToken ?maxResults ~licenseConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the resource associations for the specified license configuration. Resource associations need not consume licenses from a license configuration. For example, an AMI or a stopped instance might not consume a license (depending on the license rules)."]
module ListAssetsForLicenseAssetGroupResponse =
  struct
    type nonrec t =
      {
      assets: AssetList.t option [@ocaml.doc "Assets."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assets = fun ?nextToken -> fun () -> { assets; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("Assets", (Option.map x.assets ~f:AssetList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let assets =
        (Option.map ~f:AssetList.of_xml) (Xml.child xml_arg0 "Assets") in
      make ?nextToken ?assets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let assets = field_map json__ "Assets" AssetList.of_json in
      make ?nextToken ?assets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists assets for a license asset group."]
module ListAssetsForLicenseAssetGroupRequest =
  struct
    type nonrec t =
      {
      licenseAssetGroupArn: String_.t
        [@ocaml.doc "Amazon Resource Name (ARN) of the license asset group."];
      assetType: String_.t
        [@ocaml.doc
          "Asset type. The possible values are Instance | License | LicenseConfiguration."];
      maxResults: BoxInteger.t option
        [@ocaml.doc "Maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "Token for the next set of results."]}
    let context_ = "ListAssetsForLicenseAssetGroupRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~licenseAssetGroupArn ->
          fun ~assetType ->
            fun () ->
              { maxResults; nextToken; licenseAssetGroupArn; assetType }
    let to_value x =
      structure_to_value
        [("LicenseAssetGroupArn",
           (Some (String_.to_value x.licenseAssetGroupArn)));
        ("AssetType", (Some (String_.to_value x.assetType)));
        ("MaxResults", (Option.map x.maxResults ~f:BoxInteger.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:BoxInteger.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let assetType =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "AssetType") in
      let licenseAssetGroupArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseAssetGroupArn") in
      make ?nextToken ?maxResults ~assetType ~licenseAssetGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" BoxInteger.of_json in
      let assetType = field_map_exn json__ "AssetType" String_.of_json in
      let licenseAssetGroupArn =
        field_map_exn json__ "LicenseAssetGroupArn" String_.of_json in
      make ?nextToken ?maxResults ~assetType ~licenseAssetGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists assets for a license asset group."]
module GetServiceSettingsResponse =
  struct
    type nonrec t =
      {
      s3BucketArn: String_.t option
        [@ocaml.doc
          "Regional S3 bucket path for storing reports, license trail event data, discovery data, and so on."];
      snsTopicArn: String_.t option
        [@ocaml.doc
          "SNS topic configured to receive notifications from License Manager."];
      organizationConfiguration: OrganizationConfiguration.t option
        [@ocaml.doc
          "Indicates whether Organizations is integrated with License Manager for cross-account discovery."];
      enableCrossAccountsDiscovery: BoxBoolean.t option
        [@ocaml.doc "Indicates whether cross-account discovery is enabled."];
      licenseManagerResourceShareArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the resource share. The License Manager management account provides member accounts with access to this share."];
      crossRegionDiscoveryHomeRegion: String_.t option
        [@ocaml.doc "Cross region discovery home region."];
      crossRegionDiscoverySourceRegions: StringList.t option
        [@ocaml.doc "Cross region discovery source regions."];
      serviceStatus: ServiceStatus.t option [@ocaml.doc "Service status."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?s3BucketArn =
      fun ?snsTopicArn ->
        fun ?organizationConfiguration ->
          fun ?enableCrossAccountsDiscovery ->
            fun ?licenseManagerResourceShareArn ->
              fun ?crossRegionDiscoveryHomeRegion ->
                fun ?crossRegionDiscoverySourceRegions ->
                  fun ?serviceStatus ->
                    fun () ->
                      {
                        s3BucketArn;
                        snsTopicArn;
                        organizationConfiguration;
                        enableCrossAccountsDiscovery;
                        licenseManagerResourceShareArn;
                        crossRegionDiscoveryHomeRegion;
                        crossRegionDiscoverySourceRegions;
                        serviceStatus
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("S3BucketArn", (Option.map x.s3BucketArn ~f:String_.to_value));
        ("SnsTopicArn", (Option.map x.snsTopicArn ~f:String_.to_value));
        ("OrganizationConfiguration",
          (Option.map x.organizationConfiguration
             ~f:OrganizationConfiguration.to_value));
        ("EnableCrossAccountsDiscovery",
          (Option.map x.enableCrossAccountsDiscovery ~f:BoxBoolean.to_value));
        ("LicenseManagerResourceShareArn",
          (Option.map x.licenseManagerResourceShareArn ~f:String_.to_value));
        ("CrossRegionDiscoveryHomeRegion",
          (Option.map x.crossRegionDiscoveryHomeRegion ~f:String_.to_value));
        ("CrossRegionDiscoverySourceRegions",
          (Option.map x.crossRegionDiscoverySourceRegions
             ~f:StringList.to_value));
        ("ServiceStatus",
          (Option.map x.serviceStatus ~f:ServiceStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceStatus =
        (Option.map ~f:ServiceStatus.of_xml)
          (Xml.child xml_arg0 "ServiceStatus") in
      let crossRegionDiscoverySourceRegions =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "CrossRegionDiscoverySourceRegions") in
      let crossRegionDiscoveryHomeRegion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "CrossRegionDiscoveryHomeRegion") in
      let licenseManagerResourceShareArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseManagerResourceShareArn") in
      let enableCrossAccountsDiscovery =
        (Option.map ~f:BoxBoolean.of_xml)
          (Xml.child xml_arg0 "EnableCrossAccountsDiscovery") in
      let organizationConfiguration =
        (Option.map ~f:OrganizationConfiguration.of_xml)
          (Xml.child xml_arg0 "OrganizationConfiguration") in
      let snsTopicArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SnsTopicArn") in
      let s3BucketArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "S3BucketArn") in
      make ?serviceStatus ?crossRegionDiscoverySourceRegions
        ?crossRegionDiscoveryHomeRegion ?licenseManagerResourceShareArn
        ?enableCrossAccountsDiscovery ?organizationConfiguration ?snsTopicArn
        ?s3BucketArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceStatus =
        field_map json__ "ServiceStatus" ServiceStatus.of_json in
      let crossRegionDiscoverySourceRegions =
        field_map json__ "CrossRegionDiscoverySourceRegions"
          StringList.of_json in
      let crossRegionDiscoveryHomeRegion =
        field_map json__ "CrossRegionDiscoveryHomeRegion" String_.of_json in
      let licenseManagerResourceShareArn =
        field_map json__ "LicenseManagerResourceShareArn" String_.of_json in
      let enableCrossAccountsDiscovery =
        field_map json__ "EnableCrossAccountsDiscovery" BoxBoolean.of_json in
      let organizationConfiguration =
        field_map json__ "OrganizationConfiguration"
          OrganizationConfiguration.of_json in
      let snsTopicArn = field_map json__ "SnsTopicArn" String_.of_json in
      let s3BucketArn = field_map json__ "S3BucketArn" String_.of_json in
      make ?serviceStatus ?crossRegionDiscoverySourceRegions
        ?crossRegionDiscoveryHomeRegion ?licenseManagerResourceShareArn
        ?enableCrossAccountsDiscovery ?organizationConfiguration ?snsTopicArn
        ?s3BucketArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the License Manager settings for the current Region."]
module GetServiceSettingsRequest =
  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
       "Gets the License Manager settings for the current Region."]
module GetLicenseUsageResponse =
  struct
    type nonrec t =
      {
      licenseUsage: LicenseUsage.t option
        [@ocaml.doc "License usage details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseUsage = fun () -> { licenseUsage }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseUsage",
           (Option.map x.licenseUsage ~f:LicenseUsage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseUsage =
        (Option.map ~f:LicenseUsage.of_xml)
          (Xml.child xml_arg0 "LicenseUsage") in
      make ?licenseUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseUsage = field_map json__ "LicenseUsage" LicenseUsage.of_json in
      make ?licenseUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets detailed information about the usage of the specified license."]
module GetLicenseUsageRequest =
  struct
    type nonrec t =
      {
      licenseArn: Arn.t
        [@ocaml.doc "Amazon Resource Name (ARN) of the license."]}
    let context_ = "GetLicenseUsageRequest"
    let make ~licenseArn = fun () -> { licenseArn }
    let to_value x =
      structure_to_value [("LicenseArn", (Some (Arn.to_value x.licenseArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LicenseArn") in
      make ~licenseArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseArn = field_map_exn json__ "LicenseArn" Arn.of_json in
      make ~licenseArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets detailed information about the usage of the specified license."]
module GetLicenseResponse =
  struct
    type nonrec t =
      {
      license: License.t option [@ocaml.doc "License details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?license = fun () -> { license }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("License", (Option.map x.license ~f:License.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let license =
        (Option.map ~f:License.of_xml) (Xml.child xml_arg0 "License") in
      make ?license ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let license = field_map json__ "License" License.of_json in
      make ?license ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets detailed information about the specified license."]
module GetLicenseRequest =
  struct
    type nonrec t =
      {
      licenseArn: Arn.t
        [@ocaml.doc "Amazon Resource Name (ARN) of the license."];
      version: String_.t option [@ocaml.doc "License version."]}
    let context_ = "GetLicenseRequest"
    let make ?version = fun ~licenseArn -> fun () -> { version; licenseArn }
    let to_value x =
      structure_to_value
        [("LicenseArn", (Some (Arn.to_value x.licenseArn)));
        ("Version", (Option.map x.version ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Version") in
      let licenseArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LicenseArn") in
      make ?version ~licenseArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "Version" String_.of_json in
      let licenseArn = field_map_exn json__ "LicenseArn" Arn.of_json in
      make ?version ~licenseArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets detailed information about the specified license."]
module GetLicenseManagerReportGeneratorResponse =
  struct
    type nonrec t =
      {
      reportGenerator: ReportGenerator.t option
        [@ocaml.doc
          "A report generator that creates periodic reports about your license configurations."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reportGenerator = fun () -> { reportGenerator }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("ReportGenerator",
           (Option.map x.reportGenerator ~f:ReportGenerator.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportGenerator =
        (Option.map ~f:ReportGenerator.of_xml)
          (Xml.child xml_arg0 "ReportGenerator") in
      make ?reportGenerator ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportGenerator =
        field_map json__ "ReportGenerator" ReportGenerator.of_json in
      make ?reportGenerator ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about the specified report generator."]
module GetLicenseManagerReportGeneratorRequest =
  struct
    type nonrec t =
      {
      licenseManagerReportGeneratorArn: String_.t
        [@ocaml.doc "Amazon Resource Name (ARN) of the report generator."]}
    let context_ = "GetLicenseManagerReportGeneratorRequest"
    let make ~licenseManagerReportGeneratorArn =
      fun () -> { licenseManagerReportGeneratorArn }
    let to_value x =
      structure_to_value
        [("LicenseManagerReportGeneratorArn",
           (Some (String_.to_value x.licenseManagerReportGeneratorArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseManagerReportGeneratorArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "LicenseManagerReportGeneratorArn") in
      make ~licenseManagerReportGeneratorArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseManagerReportGeneratorArn =
        field_map_exn json__ "LicenseManagerReportGeneratorArn"
          String_.of_json in
      make ~licenseManagerReportGeneratorArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about the specified report generator."]
module GetLicenseConversionTaskResponse =
  struct
    type nonrec t =
      {
      licenseConversionTaskId: LicenseConversionTaskId.t option
        [@ocaml.doc "ID of the license type conversion task."];
      resourceArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Names (ARN) of the resources the license conversion task is associated with."];
      sourceLicenseContext: LicenseConversionContext.t option
        [@ocaml.doc "Information about the license type converted from."];
      destinationLicenseContext: LicenseConversionContext.t option
        [@ocaml.doc "Information about the license type converted to."];
      statusMessage: String_.t option
        [@ocaml.doc "The status message for the conversion task."];
      status: LicenseConversionTaskStatus.t option
        [@ocaml.doc "Status of the license type conversion task."];
      startTime: DateTime.t option
        [@ocaml.doc
          "Time at which the license type conversion task was started ."];
      licenseConversionTime: DateTime.t option
        [@ocaml.doc
          "Amount of time to complete the license type conversion."];
      endTime: DateTime.t option
        [@ocaml.doc
          "Time at which the license type conversion task was completed."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseConversionTaskId =
      fun ?resourceArn ->
        fun ?sourceLicenseContext ->
          fun ?destinationLicenseContext ->
            fun ?statusMessage ->
              fun ?status ->
                fun ?startTime ->
                  fun ?licenseConversionTime ->
                    fun ?endTime ->
                      fun () ->
                        {
                          licenseConversionTaskId;
                          resourceArn;
                          sourceLicenseContext;
                          destinationLicenseContext;
                          statusMessage;
                          status;
                          startTime;
                          licenseConversionTime;
                          endTime
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseConversionTaskId",
           (Option.map x.licenseConversionTaskId
              ~f:LicenseConversionTaskId.to_value));
        ("ResourceArn", (Option.map x.resourceArn ~f:String_.to_value));
        ("SourceLicenseContext",
          (Option.map x.sourceLicenseContext
             ~f:LicenseConversionContext.to_value));
        ("DestinationLicenseContext",
          (Option.map x.destinationLicenseContext
             ~f:LicenseConversionContext.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:String_.to_value));
        ("Status",
          (Option.map x.status ~f:LicenseConversionTaskStatus.to_value));
        ("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("LicenseConversionTime",
          (Option.map x.licenseConversionTime ~f:DateTime.to_value));
        ("EndTime", (Option.map x.endTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "EndTime") in
      let licenseConversionTime =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "LicenseConversionTime") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let status =
        (Option.map ~f:LicenseConversionTaskStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let destinationLicenseContext =
        (Option.map ~f:LicenseConversionContext.of_xml)
          (Xml.child xml_arg0 "DestinationLicenseContext") in
      let sourceLicenseContext =
        (Option.map ~f:LicenseConversionContext.of_xml)
          (Xml.child xml_arg0 "SourceLicenseContext") in
      let resourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      let licenseConversionTaskId =
        (Option.map ~f:LicenseConversionTaskId.of_xml)
          (Xml.child xml_arg0 "LicenseConversionTaskId") in
      make ?endTime ?licenseConversionTime ?startTime ?status ?statusMessage
        ?destinationLicenseContext ?sourceLicenseContext ?resourceArn
        ?licenseConversionTaskId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTime = field_map json__ "EndTime" DateTime.of_json in
      let licenseConversionTime =
        field_map json__ "LicenseConversionTime" DateTime.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      let status =
        field_map json__ "Status" LicenseConversionTaskStatus.of_json in
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let destinationLicenseContext =
        field_map json__ "DestinationLicenseContext"
          LicenseConversionContext.of_json in
      let sourceLicenseContext =
        field_map json__ "SourceLicenseContext"
          LicenseConversionContext.of_json in
      let resourceArn = field_map json__ "ResourceArn" String_.of_json in
      let licenseConversionTaskId =
        field_map json__ "LicenseConversionTaskId"
          LicenseConversionTaskId.of_json in
      make ?endTime ?licenseConversionTime ?startTime ?status ?statusMessage
        ?destinationLicenseContext ?sourceLicenseContext ?resourceArn
        ?licenseConversionTaskId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about the specified license type conversion task."]
module GetLicenseConversionTaskRequest =
  struct
    type nonrec t =
      {
      licenseConversionTaskId: LicenseConversionTaskId.t
        [@ocaml.doc
          "ID of the license type conversion task to retrieve information on."]}
    let context_ = "GetLicenseConversionTaskRequest"
    let make ~licenseConversionTaskId = fun () -> { licenseConversionTaskId }
    let to_value x =
      structure_to_value
        [("LicenseConversionTaskId",
           (Some (LicenseConversionTaskId.to_value x.licenseConversionTaskId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseConversionTaskId =
        LicenseConversionTaskId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseConversionTaskId") in
      make ~licenseConversionTaskId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseConversionTaskId =
        field_map_exn json__ "LicenseConversionTaskId"
          LicenseConversionTaskId.of_json in
      make ~licenseConversionTaskId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about the specified license type conversion task."]
module GetLicenseConfigurationResponse =
  struct
    type nonrec t =
      {
      licenseConfigurationId: String_.t option
        [@ocaml.doc "Unique ID for the license configuration."];
      licenseConfigurationArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license configuration."];
      name: String_.t option
        [@ocaml.doc "Name of the license configuration."];
      description: String_.t option
        [@ocaml.doc "Description of the license configuration."];
      licenseCountingType: LicenseCountingType.t option
        [@ocaml.doc "Dimension for which the licenses are counted."];
      licenseRules: StringList.t option [@ocaml.doc "License rules."];
      licenseCount: BoxLong.t option
        [@ocaml.doc "Number of available licenses."];
      licenseCountHardLimit: BoxBoolean.t option
        [@ocaml.doc "Sets the number of available licenses as a hard limit."];
      consumedLicenses: BoxLong.t option
        [@ocaml.doc "Number of licenses assigned to resources."];
      status: String_.t option [@ocaml.doc "License configuration status."];
      ownerAccountId: String_.t option
        [@ocaml.doc "Account ID of the owner of the license configuration."];
      consumedLicenseSummaryList: ConsumedLicenseSummaryList.t option
        [@ocaml.doc "Summaries of the licenses consumed by resources."];
      managedResourceSummaryList: ManagedResourceSummaryList.t option
        [@ocaml.doc "Summaries of the managed resources."];
      tags: TagList.t option
        [@ocaml.doc "Tags for the license configuration."];
      productInformationList: ProductInformationList.t option
        [@ocaml.doc "Product information."];
      automatedDiscoveryInformation: AutomatedDiscoveryInformation.t option
        [@ocaml.doc "Automated discovery information."];
      disassociateWhenNotFound: BoxBoolean.t option
        [@ocaml.doc
          "When true, disassociates a resource when software is uninstalled."];
      licenseExpiry: BoxLong.t option [@ocaml.doc "License Expiry."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseConfigurationId =
      fun ?licenseConfigurationArn ->
        fun ?name ->
          fun ?description ->
            fun ?licenseCountingType ->
              fun ?licenseRules ->
                fun ?licenseCount ->
                  fun ?licenseCountHardLimit ->
                    fun ?consumedLicenses ->
                      fun ?status ->
                        fun ?ownerAccountId ->
                          fun ?consumedLicenseSummaryList ->
                            fun ?managedResourceSummaryList ->
                              fun ?tags ->
                                fun ?productInformationList ->
                                  fun ?automatedDiscoveryInformation ->
                                    fun ?disassociateWhenNotFound ->
                                      fun ?licenseExpiry ->
                                        fun () ->
                                          {
                                            licenseConfigurationId;
                                            licenseConfigurationArn;
                                            name;
                                            description;
                                            licenseCountingType;
                                            licenseRules;
                                            licenseCount;
                                            licenseCountHardLimit;
                                            consumedLicenses;
                                            status;
                                            ownerAccountId;
                                            consumedLicenseSummaryList;
                                            managedResourceSummaryList;
                                            tags;
                                            productInformationList;
                                            automatedDiscoveryInformation;
                                            disassociateWhenNotFound;
                                            licenseExpiry
                                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseConfigurationId",
           (Option.map x.licenseConfigurationId ~f:String_.to_value));
        ("LicenseConfigurationArn",
          (Option.map x.licenseConfigurationArn ~f:String_.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("LicenseCountingType",
          (Option.map x.licenseCountingType ~f:LicenseCountingType.to_value));
        ("LicenseRules", (Option.map x.licenseRules ~f:StringList.to_value));
        ("LicenseCount", (Option.map x.licenseCount ~f:BoxLong.to_value));
        ("LicenseCountHardLimit",
          (Option.map x.licenseCountHardLimit ~f:BoxBoolean.to_value));
        ("ConsumedLicenses",
          (Option.map x.consumedLicenses ~f:BoxLong.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value));
        ("OwnerAccountId", (Option.map x.ownerAccountId ~f:String_.to_value));
        ("ConsumedLicenseSummaryList",
          (Option.map x.consumedLicenseSummaryList
             ~f:ConsumedLicenseSummaryList.to_value));
        ("ManagedResourceSummaryList",
          (Option.map x.managedResourceSummaryList
             ~f:ManagedResourceSummaryList.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ProductInformationList",
          (Option.map x.productInformationList
             ~f:ProductInformationList.to_value));
        ("AutomatedDiscoveryInformation",
          (Option.map x.automatedDiscoveryInformation
             ~f:AutomatedDiscoveryInformation.to_value));
        ("DisassociateWhenNotFound",
          (Option.map x.disassociateWhenNotFound ~f:BoxBoolean.to_value));
        ("LicenseExpiry", (Option.map x.licenseExpiry ~f:BoxLong.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseExpiry =
        (Option.map ~f:BoxLong.of_xml) (Xml.child xml_arg0 "LicenseExpiry") in
      let disassociateWhenNotFound =
        (Option.map ~f:BoxBoolean.of_xml)
          (Xml.child xml_arg0 "DisassociateWhenNotFound") in
      let automatedDiscoveryInformation =
        (Option.map ~f:AutomatedDiscoveryInformation.of_xml)
          (Xml.child xml_arg0 "AutomatedDiscoveryInformation") in
      let productInformationList =
        (Option.map ~f:ProductInformationList.of_xml)
          (Xml.child xml_arg0 "ProductInformationList") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let managedResourceSummaryList =
        (Option.map ~f:ManagedResourceSummaryList.of_xml)
          (Xml.child xml_arg0 "ManagedResourceSummaryList") in
      let consumedLicenseSummaryList =
        (Option.map ~f:ConsumedLicenseSummaryList.of_xml)
          (Xml.child xml_arg0 "ConsumedLicenseSummaryList") in
      let ownerAccountId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OwnerAccountId") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let consumedLicenses =
        (Option.map ~f:BoxLong.of_xml)
          (Xml.child xml_arg0 "ConsumedLicenses") in
      let licenseCountHardLimit =
        (Option.map ~f:BoxBoolean.of_xml)
          (Xml.child xml_arg0 "LicenseCountHardLimit") in
      let licenseCount =
        (Option.map ~f:BoxLong.of_xml) (Xml.child xml_arg0 "LicenseCount") in
      let licenseRules =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "LicenseRules") in
      let licenseCountingType =
        (Option.map ~f:LicenseCountingType.of_xml)
          (Xml.child xml_arg0 "LicenseCountingType") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let licenseConfigurationArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseConfigurationArn") in
      let licenseConfigurationId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseConfigurationId") in
      make ?licenseExpiry ?disassociateWhenNotFound
        ?automatedDiscoveryInformation ?productInformationList ?tags
        ?managedResourceSummaryList ?consumedLicenseSummaryList
        ?ownerAccountId ?status ?consumedLicenses ?licenseCountHardLimit
        ?licenseCount ?licenseRules ?licenseCountingType ?description ?name
        ?licenseConfigurationArn ?licenseConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseExpiry = field_map json__ "LicenseExpiry" BoxLong.of_json in
      let disassociateWhenNotFound =
        field_map json__ "DisassociateWhenNotFound" BoxBoolean.of_json in
      let automatedDiscoveryInformation =
        field_map json__ "AutomatedDiscoveryInformation"
          AutomatedDiscoveryInformation.of_json in
      let productInformationList =
        field_map json__ "ProductInformationList"
          ProductInformationList.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let managedResourceSummaryList =
        field_map json__ "ManagedResourceSummaryList"
          ManagedResourceSummaryList.of_json in
      let consumedLicenseSummaryList =
        field_map json__ "ConsumedLicenseSummaryList"
          ConsumedLicenseSummaryList.of_json in
      let ownerAccountId = field_map json__ "OwnerAccountId" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      let consumedLicenses =
        field_map json__ "ConsumedLicenses" BoxLong.of_json in
      let licenseCountHardLimit =
        field_map json__ "LicenseCountHardLimit" BoxBoolean.of_json in
      let licenseCount = field_map json__ "LicenseCount" BoxLong.of_json in
      let licenseRules = field_map json__ "LicenseRules" StringList.of_json in
      let licenseCountingType =
        field_map json__ "LicenseCountingType" LicenseCountingType.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      let licenseConfigurationArn =
        field_map json__ "LicenseConfigurationArn" String_.of_json in
      let licenseConfigurationId =
        field_map json__ "LicenseConfigurationId" String_.of_json in
      make ?licenseExpiry ?disassociateWhenNotFound
        ?automatedDiscoveryInformation ?productInformationList ?tags
        ?managedResourceSummaryList ?consumedLicenseSummaryList
        ?ownerAccountId ?status ?consumedLicenses ?licenseCountHardLimit
        ?licenseCount ?licenseRules ?licenseCountingType ?description ?name
        ?licenseConfigurationArn ?licenseConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets detailed information about the specified license configuration."]
module GetLicenseConfigurationRequest =
  struct
    type nonrec t =
      {
      licenseConfigurationArn: String_.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license configuration."]}
    let context_ = "GetLicenseConfigurationRequest"
    let make ~licenseConfigurationArn = fun () -> { licenseConfigurationArn }
    let to_value x =
      structure_to_value
        [("LicenseConfigurationArn",
           (Some (String_.to_value x.licenseConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseConfigurationArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseConfigurationArn") in
      make ~licenseConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseConfigurationArn =
        field_map_exn json__ "LicenseConfigurationArn" String_.of_json in
      make ~licenseConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets detailed information about the specified license configuration."]
module GetLicenseAssetRulesetResponse =
  struct
    type nonrec t =
      {
      licenseAssetRuleset: LicenseAssetRuleset.t option
        [@ocaml.doc "License asset ruleset."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseAssetRuleset = fun () -> { licenseAssetRuleset }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseAssetRuleset",
           (Option.map x.licenseAssetRuleset ~f:LicenseAssetRuleset.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseAssetRuleset =
        (Option.map ~f:LicenseAssetRuleset.of_xml)
          (Xml.child xml_arg0 "LicenseAssetRuleset") in
      make ?licenseAssetRuleset ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseAssetRuleset =
        field_map json__ "LicenseAssetRuleset" LicenseAssetRuleset.of_json in
      make ?licenseAssetRuleset ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets a license asset ruleset."]
module GetLicenseAssetRulesetRequest =
  struct
    type nonrec t =
      {
      licenseAssetRulesetArn: Arn.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license asset ruleset."]}
    let context_ = "GetLicenseAssetRulesetRequest"
    let make ~licenseAssetRulesetArn = fun () -> { licenseAssetRulesetArn }
    let to_value x =
      structure_to_value
        [("LicenseAssetRulesetArn",
           (Some (Arn.to_value x.licenseAssetRulesetArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseAssetRulesetArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseAssetRulesetArn") in
      make ~licenseAssetRulesetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseAssetRulesetArn =
        field_map_exn json__ "LicenseAssetRulesetArn" Arn.of_json in
      make ~licenseAssetRulesetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets a license asset ruleset."]
module GetLicenseAssetGroupResponse =
  struct
    type nonrec t =
      {
      licenseAssetGroup: LicenseAssetGroup.t option
        [@ocaml.doc "License asset group."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseAssetGroup = fun () -> { licenseAssetGroup }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseAssetGroup",
           (Option.map x.licenseAssetGroup ~f:LicenseAssetGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseAssetGroup =
        (Option.map ~f:LicenseAssetGroup.of_xml)
          (Xml.child xml_arg0 "LicenseAssetGroup") in
      make ?licenseAssetGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseAssetGroup =
        field_map json__ "LicenseAssetGroup" LicenseAssetGroup.of_json in
      make ?licenseAssetGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets a license asset group."]
module GetLicenseAssetGroupRequest =
  struct
    type nonrec t =
      {
      licenseAssetGroupArn: Arn.t
        [@ocaml.doc "Amazon Resource Name (ARN) of the license asset group."]}
    let context_ = "GetLicenseAssetGroupRequest"
    let make ~licenseAssetGroupArn = fun () -> { licenseAssetGroupArn }
    let to_value x =
      structure_to_value
        [("LicenseAssetGroupArn",
           (Some (Arn.to_value x.licenseAssetGroupArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseAssetGroupArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseAssetGroupArn") in
      make ~licenseAssetGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseAssetGroupArn =
        field_map_exn json__ "LicenseAssetGroupArn" Arn.of_json in
      make ~licenseAssetGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets a license asset group."]
module GetGrantResponse =
  struct
    type nonrec t = {
      grant: Grant.t option [@ocaml.doc "Grant details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?grant = fun () -> { grant }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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 [("Grant", (Option.map x.grant ~f:Grant.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let grant = (Option.map ~f:Grant.of_xml) (Xml.child xml_arg0 "Grant") in
      make ?grant ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let grant = field_map json__ "Grant" Grant.of_json in make ?grant ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets detailed information about the specified grant."]
module GetGrantRequest =
  struct
    type nonrec t =
      {
      grantArn: Arn.t [@ocaml.doc "Amazon Resource Name (ARN) of the grant."];
      version: String_.t option [@ocaml.doc "Grant version."]}
    let context_ = "GetGrantRequest"
    let make ?version = fun ~grantArn -> fun () -> { version; grantArn }
    let to_value x =
      structure_to_value
        [("GrantArn", (Some (Arn.to_value x.grantArn)));
        ("Version", (Option.map x.version ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Version") in
      let grantArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "GrantArn") in
      make ?version ~grantArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "Version" String_.of_json in
      let grantArn = field_map_exn json__ "GrantArn" Arn.of_json in
      make ?version ~grantArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets detailed information about the specified grant."]
module GetAccessTokenResponse =
  struct
    type nonrec t =
      {
      accessToken: TokenString.t option
        [@ocaml.doc "Temporary access token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accessToken = fun () -> { accessToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("AccessToken", (Option.map x.accessToken ~f:TokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessToken =
        (Option.map ~f:TokenString.of_xml) (Xml.child xml_arg0 "AccessToken") in
      make ?accessToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessToken = field_map json__ "AccessToken" TokenString.of_json in
      make ?accessToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a temporary access token to use with AssumeRoleWithWebIdentity. Access tokens are valid for one hour."]
module GetAccessTokenRequest =
  struct
    type nonrec t =
      {
      token: TokenString.t
        [@ocaml.doc "Refresh token, encoded as a JWT token."];
      tokenProperties: MaxSize3StringList.t option
        [@ocaml.doc
          "Token properties to validate against those present in the JWT token."]}
    let context_ = "GetAccessTokenRequest"
    let make ?tokenProperties =
      fun ~token -> fun () -> { tokenProperties; token }
    let to_value x =
      structure_to_value
        [("Token", (Some (TokenString.to_value x.token)));
        ("TokenProperties",
          (Option.map x.tokenProperties ~f:MaxSize3StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tokenProperties =
        (Option.map ~f:MaxSize3StringList.of_xml)
          (Xml.child xml_arg0 "TokenProperties") in
      let token =
        TokenString.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Token") in
      make ?tokenProperties ~token ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tokenProperties =
        field_map json__ "TokenProperties" MaxSize3StringList.of_json in
      let token = field_map_exn json__ "Token" TokenString.of_json in
      make ?tokenProperties ~token ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a temporary access token to use with AssumeRoleWithWebIdentity. Access tokens are valid for one hour."]
module ExtendLicenseConsumptionResponse =
  struct
    type nonrec t =
      {
      licenseConsumptionToken: String_.t option
        [@ocaml.doc "License consumption token."];
      expiration: ISO8601DateTime.t option
        [@ocaml.doc
          "Date and time at which the license consumption expires."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseConsumptionToken =
      fun ?expiration -> fun () -> { licenseConsumptionToken; expiration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseConsumptionToken",
           (Option.map x.licenseConsumptionToken ~f:String_.to_value));
        ("Expiration", (Option.map x.expiration ~f:ISO8601DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expiration =
        (Option.map ~f:ISO8601DateTime.of_xml)
          (Xml.child xml_arg0 "Expiration") in
      let licenseConsumptionToken =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseConsumptionToken") in
      make ?expiration ?licenseConsumptionToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expiration = field_map json__ "Expiration" ISO8601DateTime.of_json in
      let licenseConsumptionToken =
        field_map json__ "LicenseConsumptionToken" String_.of_json in
      make ?expiration ?licenseConsumptionToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Extends the expiration date for license consumption."]
module ExtendLicenseConsumptionRequest =
  struct
    type nonrec t =
      {
      licenseConsumptionToken: String_.t
        [@ocaml.doc "License consumption token."];
      dryRun: Boolean.t option
        [@ocaml.doc
          "Checks whether you have the required permissions for the action, without actually making the request. Provides an error response if you do not have the required permissions."]}
    let context_ = "ExtendLicenseConsumptionRequest"
    let make ?dryRun =
      fun ~licenseConsumptionToken ->
        fun () -> { dryRun; licenseConsumptionToken }
    let to_value x =
      structure_to_value
        [("LicenseConsumptionToken",
           (Some (String_.to_value x.licenseConsumptionToken)));
        ("DryRun", (Option.map x.dryRun ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "DryRun") in
      let licenseConsumptionToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseConsumptionToken") in
      make ?dryRun ~licenseConsumptionToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" Boolean.of_json in
      let licenseConsumptionToken =
        field_map_exn json__ "LicenseConsumptionToken" String_.of_json in
      make ?dryRun ~licenseConsumptionToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Extends the expiration date for license consumption."]
module DeleteTokenResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `RedirectException of RedirectException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServerInternalException of ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "RedirectException" ->
          `RedirectException (RedirectException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "RedirectException" ->
          `RedirectException (RedirectException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `RedirectException e ->
          `Assoc
            [("error", (`String "RedirectException"));
            ("details", (RedirectException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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 the specified token. Must be called in the license home Region."]
module DeleteTokenRequest =
  struct
    type nonrec t = {
      tokenId: String_.t [@ocaml.doc "Token ID."]}
    let context_ = "DeleteTokenRequest"
    let make ~tokenId = fun () -> { tokenId }
    let to_value x =
      structure_to_value [("TokenId", (Some (String_.to_value x.tokenId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tokenId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TokenId") in
      make ~tokenId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tokenId = field_map_exn json__ "TokenId" String_.of_json in
      make ~tokenId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified token. Must be called in the license home Region."]
module DeleteLicenseResponse =
  struct
    type nonrec t =
      {
      status: LicenseDeletionStatus.t option [@ocaml.doc "License status."];
      deletionDate: ISO8601DateTime.t option
        [@ocaml.doc "Date when the license is deleted."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `ConflictException of ConflictException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `RedirectException of RedirectException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status =
      fun ?deletionDate -> fun () -> { status; deletionDate }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "RedirectException" ->
          `RedirectException (RedirectException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "RedirectException" ->
          `RedirectException (RedirectException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `RedirectException e ->
          `Assoc
            [("error", (`String "RedirectException"));
            ("details", (RedirectException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("Status", (Option.map x.status ~f:LicenseDeletionStatus.to_value));
        ("DeletionDate",
          (Option.map x.deletionDate ~f:ISO8601DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionDate =
        (Option.map ~f:ISO8601DateTime.of_xml)
          (Xml.child xml_arg0 "DeletionDate") in
      let status =
        (Option.map ~f:LicenseDeletionStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?deletionDate ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionDate =
        field_map json__ "DeletionDate" ISO8601DateTime.of_json in
      let status = field_map json__ "Status" LicenseDeletionStatus.of_json in
      make ?deletionDate ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified license."]
module DeleteLicenseRequest =
  struct
    type nonrec t =
      {
      licenseArn: Arn.t
        [@ocaml.doc "Amazon Resource Name (ARN) of the license."];
      sourceVersion: String_.t [@ocaml.doc "Current version of the license."]}
    let context_ = "DeleteLicenseRequest"
    let make ~licenseArn =
      fun ~sourceVersion -> fun () -> { licenseArn; sourceVersion }
    let to_value x =
      structure_to_value
        [("LicenseArn", (Some (Arn.to_value x.licenseArn)));
        ("SourceVersion", (Some (String_.to_value x.sourceVersion)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceVersion =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceVersion") in
      let licenseArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LicenseArn") in
      make ~sourceVersion ~licenseArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceVersion =
        field_map_exn json__ "SourceVersion" String_.of_json in
      let licenseArn = field_map_exn json__ "LicenseArn" Arn.of_json in
      make ~sourceVersion ~licenseArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified license."]
module DeleteLicenseManagerReportGeneratorResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServerInternalException of ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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 the specified report generator. This action deletes the report generator, which stops it from generating future reports. The action cannot be reversed. It has no effect on the previous reports from this generator."]
module DeleteLicenseManagerReportGeneratorRequest =
  struct
    type nonrec t =
      {
      licenseManagerReportGeneratorArn: String_.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the report generator to be deleted."]}
    let context_ = "DeleteLicenseManagerReportGeneratorRequest"
    let make ~licenseManagerReportGeneratorArn =
      fun () -> { licenseManagerReportGeneratorArn }
    let to_value x =
      structure_to_value
        [("LicenseManagerReportGeneratorArn",
           (Some (String_.to_value x.licenseManagerReportGeneratorArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseManagerReportGeneratorArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "LicenseManagerReportGeneratorArn") in
      make ~licenseManagerReportGeneratorArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseManagerReportGeneratorArn =
        field_map_exn json__ "LicenseManagerReportGeneratorArn"
          String_.of_json in
      make ~licenseManagerReportGeneratorArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified report generator. This action deletes the report generator, which stops it from generating future reports. The action cannot be reversed. It has no effect on the previous reports from this generator."]
module DeleteLicenseConfigurationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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 the specified license configuration. You cannot delete a license configuration that is in use."]
module DeleteLicenseConfigurationRequest =
  struct
    type nonrec t =
      {
      licenseConfigurationArn: String_.t
        [@ocaml.doc "ID of the license configuration."]}
    let context_ = "DeleteLicenseConfigurationRequest"
    let make ~licenseConfigurationArn = fun () -> { licenseConfigurationArn }
    let to_value x =
      structure_to_value
        [("LicenseConfigurationArn",
           (Some (String_.to_value x.licenseConfigurationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseConfigurationArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseConfigurationArn") in
      make ~licenseConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseConfigurationArn =
        field_map_exn json__ "LicenseConfigurationArn" String_.of_json in
      make ~licenseConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified license configuration. You cannot delete a license configuration that is in use."]
module DeleteLicenseAssetRulesetResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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 a license asset ruleset."]
module DeleteLicenseAssetRulesetRequest =
  struct
    type nonrec t =
      {
      licenseAssetRulesetArn: Arn.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license asset ruleset."]}
    let context_ = "DeleteLicenseAssetRulesetRequest"
    let make ~licenseAssetRulesetArn = fun () -> { licenseAssetRulesetArn }
    let to_value x =
      structure_to_value
        [("LicenseAssetRulesetArn",
           (Some (Arn.to_value x.licenseAssetRulesetArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseAssetRulesetArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseAssetRulesetArn") in
      make ~licenseAssetRulesetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseAssetRulesetArn =
        field_map_exn json__ "LicenseAssetRulesetArn" Arn.of_json in
      make ~licenseAssetRulesetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a license asset ruleset."]
module DeleteLicenseAssetGroupResponse =
  struct
    type nonrec t =
      {
      status: LicenseAssetGroupStatus.t option
        [@ocaml.doc "License asset group status."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("Status",
           (Option.map x.status ~f:LicenseAssetGroupStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:LicenseAssetGroupStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" LicenseAssetGroupStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a license asset group."]
module DeleteLicenseAssetGroupRequest =
  struct
    type nonrec t =
      {
      licenseAssetGroupArn: Arn.t
        [@ocaml.doc "Amazon Resource Name (ARN) of the license asset group."]}
    let context_ = "DeleteLicenseAssetGroupRequest"
    let make ~licenseAssetGroupArn = fun () -> { licenseAssetGroupArn }
    let to_value x =
      structure_to_value
        [("LicenseAssetGroupArn",
           (Some (Arn.to_value x.licenseAssetGroupArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseAssetGroupArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseAssetGroupArn") in
      make ~licenseAssetGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseAssetGroupArn =
        field_map_exn json__ "LicenseAssetGroupArn" Arn.of_json in
      make ~licenseAssetGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a license asset group."]
module DeleteGrantResponse =
  struct
    type nonrec t =
      {
      grantArn: Arn.t option [@ocaml.doc "Grant ARN."];
      status: GrantStatus.t option [@ocaml.doc "Grant status."];
      version: String_.t option [@ocaml.doc "Grant version."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?grantArn =
      fun ?status -> fun ?version -> fun () -> { grantArn; status; version }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("GrantArn", (Option.map x.grantArn ~f:Arn.to_value));
        ("Status", (Option.map x.status ~f:GrantStatus.to_value));
        ("Version", (Option.map x.version ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Version") in
      let status =
        (Option.map ~f:GrantStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let grantArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "GrantArn") in
      make ?version ?status ?grantArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "Version" String_.of_json in
      let status = field_map json__ "Status" GrantStatus.of_json in
      let grantArn = field_map json__ "GrantArn" Arn.of_json in
      make ?version ?status ?grantArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified grant."]
module DeleteGrantRequest =
  struct
    type nonrec t =
      {
      grantArn: Arn.t [@ocaml.doc "Amazon Resource Name (ARN) of the grant."];
      statusReason: StatusReasonMessage.t option
        [@ocaml.doc "The Status reason for the delete request."];
      version: String_.t [@ocaml.doc "Current version of the grant."]}
    let context_ = "DeleteGrantRequest"
    let make ?statusReason =
      fun ~grantArn ->
        fun ~version -> fun () -> { statusReason; grantArn; version }
    let to_value x =
      structure_to_value
        [("GrantArn", (Some (Arn.to_value x.grantArn)));
        ("StatusReason",
          (Option.map x.statusReason ~f:StatusReasonMessage.to_value));
        ("Version", (Some (String_.to_value x.version)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Version") in
      let statusReason =
        (Option.map ~f:StatusReasonMessage.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let grantArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "GrantArn") in
      make ~version ?statusReason ~grantArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map_exn json__ "Version" String_.of_json in
      let statusReason =
        field_map json__ "StatusReason" StatusReasonMessage.of_json in
      let grantArn = field_map_exn json__ "GrantArn" Arn.of_json in
      make ~version ?statusReason ~grantArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified grant."]
module CreateTokenResponse =
  struct
    type nonrec t =
      {
      tokenId: String_.t option [@ocaml.doc "Token ID."];
      tokenType: TokenType.t option [@ocaml.doc "Token type."];
      token: TokenString.t option
        [@ocaml.doc "Refresh token, encoded as a JWT token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `RedirectException of RedirectException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tokenId =
      fun ?tokenType -> fun ?token -> fun () -> { tokenId; tokenType; token }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "RedirectException" ->
          `RedirectException (RedirectException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "RedirectException" ->
          `RedirectException (RedirectException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `RedirectException e ->
          `Assoc
            [("error", (`String "RedirectException"));
            ("details", (RedirectException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("TokenId", (Option.map x.tokenId ~f:String_.to_value));
        ("TokenType", (Option.map x.tokenType ~f:TokenType.to_value));
        ("Token", (Option.map x.token ~f:TokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let token =
        (Option.map ~f:TokenString.of_xml) (Xml.child xml_arg0 "Token") in
      let tokenType =
        (Option.map ~f:TokenType.of_xml) (Xml.child xml_arg0 "TokenType") in
      let tokenId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TokenId") in
      make ?token ?tokenType ?tokenId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let token = field_map json__ "Token" TokenString.of_json in
      let tokenType = field_map json__ "TokenType" TokenType.of_json in
      let tokenId = field_map json__ "TokenId" String_.of_json in
      make ?token ?tokenType ?tokenId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a long-lived token. A refresh token is a JWT token used to get an access token. With an access token, you can call AssumeRoleWithWebIdentity to get role credentials that you can use to call License Manager to manage the specified license."]
module CreateTokenRequest =
  struct
    type nonrec t =
      {
      licenseArn: Arn.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license. The ARN is mapped to the aud claim of the JWT token."];
      roleArns: ArnList.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the IAM roles to embed in the token. License Manager does not check whether the roles are in use."];
      expirationInDays: Integer.t option
        [@ocaml.doc
          "Token expiration, in days, counted from token creation. The default is 365 days."];
      tokenProperties: MaxSize3StringList.t option
        [@ocaml.doc
          "Data specified by the caller to be included in the JWT token. The data is mapped to the amr claim of the JWT token."];
      clientToken: ClientToken.t
        [@ocaml.doc "Idempotency token, valid for 10 minutes."]}
    let context_ = "CreateTokenRequest"
    let make ?roleArns =
      fun ?expirationInDays ->
        fun ?tokenProperties ->
          fun ~licenseArn ->
            fun ~clientToken ->
              fun () ->
                {
                  roleArns;
                  expirationInDays;
                  tokenProperties;
                  licenseArn;
                  clientToken
                }
    let to_value x =
      structure_to_value
        [("LicenseArn", (Some (Arn.to_value x.licenseArn)));
        ("RoleArns", (Option.map x.roleArns ~f:ArnList.to_value));
        ("ExpirationInDays",
          (Option.map x.expirationInDays ~f:Integer.to_value));
        ("TokenProperties",
          (Option.map x.tokenProperties ~f:MaxSize3StringList.to_value));
        ("ClientToken", (Some (ClientToken.to_value x.clientToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let tokenProperties =
        (Option.map ~f:MaxSize3StringList.of_xml)
          (Xml.child xml_arg0 "TokenProperties") in
      let expirationInDays =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "ExpirationInDays") in
      let roleArns =
        (Option.map ~f:ArnList.of_xml) (Xml.child xml_arg0 "RoleArns") in
      let licenseArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LicenseArn") in
      make ~clientToken ?tokenProperties ?expirationInDays ?roleArns
        ~licenseArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      let tokenProperties =
        field_map json__ "TokenProperties" MaxSize3StringList.of_json in
      let expirationInDays =
        field_map json__ "ExpirationInDays" Integer.of_json in
      let roleArns = field_map json__ "RoleArns" ArnList.of_json in
      let licenseArn = field_map_exn json__ "LicenseArn" Arn.of_json in
      make ~clientToken ?tokenProperties ?expirationInDays ?roleArns
        ~licenseArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a long-lived token. A refresh token is a JWT token used to get an access token. With an access token, you can call AssumeRoleWithWebIdentity to get role credentials that you can use to call License Manager to manage the specified license."]
module CreateLicenseVersionResponse =
  struct
    type nonrec t =
      {
      licenseArn: Arn.t option [@ocaml.doc "License ARN."];
      version: String_.t option [@ocaml.doc "New version of the license."];
      status: LicenseStatus.t option [@ocaml.doc "License status."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `ConflictException of ConflictException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `RedirectException of RedirectException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseArn =
      fun ?version ->
        fun ?status -> fun () -> { licenseArn; version; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "RedirectException" ->
          `RedirectException (RedirectException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "RedirectException" ->
          `RedirectException (RedirectException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `RedirectException e ->
          `Assoc
            [("error", (`String "RedirectException"));
            ("details", (RedirectException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseArn", (Option.map x.licenseArn ~f:Arn.to_value));
        ("Version", (Option.map x.version ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:LicenseStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:LicenseStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Version") in
      let licenseArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "LicenseArn") in
      make ?status ?version ?licenseArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" LicenseStatus.of_json in
      let version = field_map json__ "Version" String_.of_json in
      let licenseArn = field_map json__ "LicenseArn" Arn.of_json in
      make ?status ?version ?licenseArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new version of the specified license."]
module CreateLicenseVersionRequest =
  struct
    type nonrec t =
      {
      licenseArn: Arn.t
        [@ocaml.doc "Amazon Resource Name (ARN) of the license."];
      licenseName: String_.t [@ocaml.doc "License name."];
      productName: String_.t [@ocaml.doc "Product name."];
      issuer: Issuer.t [@ocaml.doc "License issuer."];
      homeRegion: String_.t [@ocaml.doc "Home Region of the license."];
      validity: DatetimeRange.t
        [@ocaml.doc
          "Date and time range during which the license is valid, in ISO8601-UTC format."];
      licenseMetadata: MetadataList.t option
        [@ocaml.doc "Information about the license."];
      entitlements: EntitlementList.t [@ocaml.doc "License entitlements."];
      consumptionConfiguration: ConsumptionConfiguration.t
        [@ocaml.doc
          "Configuration for consumption of the license. Choose a provisional configuration for workloads running with continuous connectivity. Choose a borrow configuration for workloads with offline usage."];
      status: LicenseStatus.t [@ocaml.doc "License status."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      sourceVersion: String_.t option
        [@ocaml.doc "Current version of the license."]}
    let context_ = "CreateLicenseVersionRequest"
    let make ?licenseMetadata =
      fun ?sourceVersion ->
        fun ~licenseArn ->
          fun ~licenseName ->
            fun ~productName ->
              fun ~issuer ->
                fun ~homeRegion ->
                  fun ~validity ->
                    fun ~entitlements ->
                      fun ~consumptionConfiguration ->
                        fun ~status ->
                          fun ~clientToken ->
                            fun () ->
                              {
                                licenseMetadata;
                                sourceVersion;
                                licenseArn;
                                licenseName;
                                productName;
                                issuer;
                                homeRegion;
                                validity;
                                entitlements;
                                consumptionConfiguration;
                                status;
                                clientToken
                              }
    let to_value x =
      structure_to_value
        [("LicenseArn", (Some (Arn.to_value x.licenseArn)));
        ("LicenseName", (Some (String_.to_value x.licenseName)));
        ("ProductName", (Some (String_.to_value x.productName)));
        ("Issuer", (Some (Issuer.to_value x.issuer)));
        ("HomeRegion", (Some (String_.to_value x.homeRegion)));
        ("Validity", (Some (DatetimeRange.to_value x.validity)));
        ("LicenseMetadata",
          (Option.map x.licenseMetadata ~f:MetadataList.to_value));
        ("Entitlements", (Some (EntitlementList.to_value x.entitlements)));
        ("ConsumptionConfiguration",
          (Some
             (ConsumptionConfiguration.to_value x.consumptionConfiguration)));
        ("Status", (Some (LicenseStatus.to_value x.status)));
        ("ClientToken", (Some (ClientToken.to_value x.clientToken)));
        ("SourceVersion", (Option.map x.sourceVersion ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SourceVersion") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let status =
        LicenseStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      let consumptionConfiguration =
        ConsumptionConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ConsumptionConfiguration") in
      let entitlements =
        EntitlementList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Entitlements") in
      let licenseMetadata =
        (Option.map ~f:MetadataList.of_xml)
          (Xml.child xml_arg0 "LicenseMetadata") in
      let validity =
        DatetimeRange.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Validity") in
      let homeRegion =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "HomeRegion") in
      let issuer =
        Issuer.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Issuer") in
      let productName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProductName") in
      let licenseName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseName") in
      let licenseArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LicenseArn") in
      make ?sourceVersion ~clientToken ~status ~consumptionConfiguration
        ~entitlements ?licenseMetadata ~validity ~homeRegion ~issuer
        ~productName ~licenseName ~licenseArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceVersion = field_map json__ "SourceVersion" String_.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      let status = field_map_exn json__ "Status" LicenseStatus.of_json in
      let consumptionConfiguration =
        field_map_exn json__ "ConsumptionConfiguration"
          ConsumptionConfiguration.of_json in
      let entitlements =
        field_map_exn json__ "Entitlements" EntitlementList.of_json in
      let licenseMetadata =
        field_map json__ "LicenseMetadata" MetadataList.of_json in
      let validity = field_map_exn json__ "Validity" DatetimeRange.of_json in
      let homeRegion = field_map_exn json__ "HomeRegion" String_.of_json in
      let issuer = field_map_exn json__ "Issuer" Issuer.of_json in
      let productName = field_map_exn json__ "ProductName" String_.of_json in
      let licenseName = field_map_exn json__ "LicenseName" String_.of_json in
      let licenseArn = field_map_exn json__ "LicenseArn" Arn.of_json in
      make ?sourceVersion ~clientToken ~status ~consumptionConfiguration
        ~entitlements ?licenseMetadata ~validity ~homeRegion ~issuer
        ~productName ~licenseName ~licenseArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new version of the specified license."]
module CreateLicenseResponse =
  struct
    type nonrec t =
      {
      licenseArn: Arn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the license."];
      status: LicenseStatus.t option [@ocaml.doc "License status."];
      version: String_.t option [@ocaml.doc "License version."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `RedirectException of RedirectException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseArn =
      fun ?status ->
        fun ?version -> fun () -> { licenseArn; status; version }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "RedirectException" ->
          `RedirectException (RedirectException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "RedirectException" ->
          `RedirectException (RedirectException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `RedirectException e ->
          `Assoc
            [("error", (`String "RedirectException"));
            ("details", (RedirectException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseArn", (Option.map x.licenseArn ~f:Arn.to_value));
        ("Status", (Option.map x.status ~f:LicenseStatus.to_value));
        ("Version", (Option.map x.version ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Version") in
      let status =
        (Option.map ~f:LicenseStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let licenseArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "LicenseArn") in
      make ?version ?status ?licenseArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "Version" String_.of_json in
      let status = field_map json__ "Status" LicenseStatus.of_json in
      let licenseArn = field_map json__ "LicenseArn" Arn.of_json in
      make ?version ?status ?licenseArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a license."]
module CreateLicenseRequest =
  struct
    type nonrec t =
      {
      licenseName: String_.t [@ocaml.doc "License name."];
      productName: String_.t [@ocaml.doc "Product name."];
      productSKU: String_.t [@ocaml.doc "Product SKU."];
      issuer: Issuer.t [@ocaml.doc "License issuer."];
      homeRegion: String_.t [@ocaml.doc "Home Region for the license."];
      validity: DatetimeRange.t
        [@ocaml.doc
          "Date and time range during which the license is valid, in ISO8601-UTC format."];
      entitlements: EntitlementList.t [@ocaml.doc "License entitlements."];
      beneficiary: String_.t [@ocaml.doc "License beneficiary."];
      consumptionConfiguration: ConsumptionConfiguration.t
        [@ocaml.doc
          "Configuration for consumption of the license. Choose a provisional configuration for workloads running with continuous connectivity. Choose a borrow configuration for workloads with offline usage."];
      licenseMetadata: MetadataList.t option
        [@ocaml.doc "Information about the license."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      tags: TagList.t option
        [@ocaml.doc
          "Tags to add to the license. For more information about tagging support in License Manager, see the TagResource operation."]}
    let context_ = "CreateLicenseRequest"
    let make ?licenseMetadata =
      fun ?tags ->
        fun ~licenseName ->
          fun ~productName ->
            fun ~productSKU ->
              fun ~issuer ->
                fun ~homeRegion ->
                  fun ~validity ->
                    fun ~entitlements ->
                      fun ~beneficiary ->
                        fun ~consumptionConfiguration ->
                          fun ~clientToken ->
                            fun () ->
                              {
                                licenseMetadata;
                                tags;
                                licenseName;
                                productName;
                                productSKU;
                                issuer;
                                homeRegion;
                                validity;
                                entitlements;
                                beneficiary;
                                consumptionConfiguration;
                                clientToken
                              }
    let to_value x =
      structure_to_value
        [("LicenseName", (Some (String_.to_value x.licenseName)));
        ("ProductName", (Some (String_.to_value x.productName)));
        ("ProductSKU", (Some (String_.to_value x.productSKU)));
        ("Issuer", (Some (Issuer.to_value x.issuer)));
        ("HomeRegion", (Some (String_.to_value x.homeRegion)));
        ("Validity", (Some (DatetimeRange.to_value x.validity)));
        ("Entitlements", (Some (EntitlementList.to_value x.entitlements)));
        ("Beneficiary", (Some (String_.to_value x.beneficiary)));
        ("ConsumptionConfiguration",
          (Some
             (ConsumptionConfiguration.to_value x.consumptionConfiguration)));
        ("LicenseMetadata",
          (Option.map x.licenseMetadata ~f:MetadataList.to_value));
        ("ClientToken", (Some (ClientToken.to_value x.clientToken)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let licenseMetadata =
        (Option.map ~f:MetadataList.of_xml)
          (Xml.child xml_arg0 "LicenseMetadata") in
      let consumptionConfiguration =
        ConsumptionConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ConsumptionConfiguration") in
      let beneficiary =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Beneficiary") in
      let entitlements =
        EntitlementList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Entitlements") in
      let validity =
        DatetimeRange.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Validity") in
      let homeRegion =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "HomeRegion") in
      let issuer =
        Issuer.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Issuer") in
      let productSKU =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProductSKU") in
      let productName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProductName") in
      let licenseName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseName") in
      make ?tags ~clientToken ?licenseMetadata ~consumptionConfiguration
        ~beneficiary ~entitlements ~validity ~homeRegion ~issuer ~productSKU
        ~productName ~licenseName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      let licenseMetadata =
        field_map json__ "LicenseMetadata" MetadataList.of_json in
      let consumptionConfiguration =
        field_map_exn json__ "ConsumptionConfiguration"
          ConsumptionConfiguration.of_json in
      let beneficiary = field_map_exn json__ "Beneficiary" String_.of_json in
      let entitlements =
        field_map_exn json__ "Entitlements" EntitlementList.of_json in
      let validity = field_map_exn json__ "Validity" DatetimeRange.of_json in
      let homeRegion = field_map_exn json__ "HomeRegion" String_.of_json in
      let issuer = field_map_exn json__ "Issuer" Issuer.of_json in
      let productSKU = field_map_exn json__ "ProductSKU" String_.of_json in
      let productName = field_map_exn json__ "ProductName" String_.of_json in
      let licenseName = field_map_exn json__ "LicenseName" String_.of_json in
      make ?tags ~clientToken ?licenseMetadata ~consumptionConfiguration
        ~beneficiary ~entitlements ~validity ~homeRegion ~issuer ~productSKU
        ~productName ~licenseName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a license."]
module CreateLicenseManagerReportGeneratorResponse =
  struct
    type nonrec t =
      {
      licenseManagerReportGeneratorArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the new report generator."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseManagerReportGeneratorArn =
      fun () -> { licenseManagerReportGeneratorArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseManagerReportGeneratorArn",
           (Option.map x.licenseManagerReportGeneratorArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseManagerReportGeneratorArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseManagerReportGeneratorArn") in
      make ?licenseManagerReportGeneratorArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseManagerReportGeneratorArn =
        field_map json__ "LicenseManagerReportGeneratorArn" String_.of_json in
      make ?licenseManagerReportGeneratorArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a report generator."]
module CreateLicenseManagerReportGeneratorRequest =
  struct
    type nonrec t =
      {
      reportGeneratorName: ReportGeneratorName.t
        [@ocaml.doc "Name of the report generator."];
      type_: ReportTypeList.t
        [@ocaml.doc
          "Type of reports to generate. The following report types an be generated: License configuration report - Reports the number and details of consumed licenses for a license configuration. Resource report - Reports the tracked licenses and resource consumption for a license configuration."];
      reportContext: ReportContext.t
        [@ocaml.doc
          "Defines the type of license configuration the report generator tracks."];
      reportFrequency: ReportFrequency.t
        [@ocaml.doc
          "Frequency by which reports are generated. Reports can be generated daily, monthly, or weekly."];
      clientToken: ClientRequestToken.t
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      description: String_.t option
        [@ocaml.doc "Description of the report generator."];
      tags: TagList.t option
        [@ocaml.doc "Tags to add to the report generator."]}
    let context_ = "CreateLicenseManagerReportGeneratorRequest"
    let make ?description =
      fun ?tags ->
        fun ~reportGeneratorName ->
          fun ~type_ ->
            fun ~reportContext ->
              fun ~reportFrequency ->
                fun ~clientToken ->
                  fun () ->
                    {
                      description;
                      tags;
                      reportGeneratorName;
                      type_;
                      reportContext;
                      reportFrequency;
                      clientToken
                    }
    let to_value x =
      structure_to_value
        [("ReportGeneratorName",
           (Some (ReportGeneratorName.to_value x.reportGeneratorName)));
        ("Type", (Some (ReportTypeList.to_value x.type_)));
        ("ReportContext", (Some (ReportContext.to_value x.reportContext)));
        ("ReportFrequency",
          (Some (ReportFrequency.to_value x.reportFrequency)));
        ("ClientToken", (Some (ClientRequestToken.to_value x.clientToken)));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let clientToken =
        ClientRequestToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let reportFrequency =
        ReportFrequency.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReportFrequency") in
      let reportContext =
        ReportContext.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReportContext") in
      let type_ =
        ReportTypeList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let reportGeneratorName =
        ReportGeneratorName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReportGeneratorName") in
      make ?tags ?description ~clientToken ~reportFrequency ~reportContext
        ~type_ ~reportGeneratorName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientRequestToken.of_json in
      let reportFrequency =
        field_map_exn json__ "ReportFrequency" ReportFrequency.of_json in
      let reportContext =
        field_map_exn json__ "ReportContext" ReportContext.of_json in
      let type_ = field_map_exn json__ "Type" ReportTypeList.of_json in
      let reportGeneratorName =
        field_map_exn json__ "ReportGeneratorName"
          ReportGeneratorName.of_json in
      make ?tags ?description ~clientToken ~reportFrequency ~reportContext
        ~type_ ~reportGeneratorName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a report generator."]
module CreateLicenseConversionTaskForResourceResponse =
  struct
    type nonrec t =
      {
      licenseConversionTaskId: LicenseConversionTaskId.t option
        [@ocaml.doc "The ID of the created license type conversion task."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseConversionTaskId = fun () -> { licenseConversionTaskId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseConversionTaskId",
           (Option.map x.licenseConversionTaskId
              ~f:LicenseConversionTaskId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseConversionTaskId =
        (Option.map ~f:LicenseConversionTaskId.of_xml)
          (Xml.child xml_arg0 "LicenseConversionTaskId") in
      make ?licenseConversionTaskId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseConversionTaskId =
        field_map json__ "LicenseConversionTaskId"
          LicenseConversionTaskId.of_json in
      make ?licenseConversionTaskId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new license conversion task."]
module CreateLicenseConversionTaskForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the resource you are converting the license type for."];
      sourceLicenseContext: LicenseConversionContext.t
        [@ocaml.doc
          "Information that identifies the license type you are converting from. For the structure of the source license, see Convert a license type using the CLI in the License Manager User Guide."];
      destinationLicenseContext: LicenseConversionContext.t
        [@ocaml.doc
          "Information that identifies the license type you are converting to. For the structure of the destination license, see Convert a license type using the CLI in the License Manager User Guide."]}
    let context_ = "CreateLicenseConversionTaskForResourceRequest"
    let make ~resourceArn =
      fun ~sourceLicenseContext ->
        fun ~destinationLicenseContext ->
          fun () ->
            { resourceArn; sourceLicenseContext; destinationLicenseContext }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Arn.to_value x.resourceArn)));
        ("SourceLicenseContext",
          (Some (LicenseConversionContext.to_value x.sourceLicenseContext)));
        ("DestinationLicenseContext",
          (Some
             (LicenseConversionContext.to_value x.destinationLicenseContext)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationLicenseContext =
        LicenseConversionContext.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "DestinationLicenseContext") in
      let sourceLicenseContext =
        LicenseConversionContext.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceLicenseContext") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~destinationLicenseContext ~sourceLicenseContext ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationLicenseContext =
        field_map_exn json__ "DestinationLicenseContext"
          LicenseConversionContext.of_json in
      let sourceLicenseContext =
        field_map_exn json__ "SourceLicenseContext"
          LicenseConversionContext.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Arn.of_json in
      make ~destinationLicenseContext ~sourceLicenseContext ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new license conversion task."]
module CreateLicenseConfigurationResponse =
  struct
    type nonrec t =
      {
      licenseConfigurationArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseConfigurationArn = fun () -> { licenseConfigurationArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseConfigurationArn",
           (Option.map x.licenseConfigurationArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseConfigurationArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseConfigurationArn") in
      make ?licenseConfigurationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseConfigurationArn =
        field_map json__ "LicenseConfigurationArn" String_.of_json in
      make ?licenseConfigurationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a license configuration. A license configuration is an abstraction of a customer license agreement that can be consumed and enforced by License Manager. Components include specifications for the license type (licensing by instance, socket, CPU, or vCPU), allowed tenancy (shared tenancy, Dedicated Instance, Dedicated Host, or all of these), license affinity to host (how long a license must be associated with a host), and the number of licenses purchased and used."]
module CreateLicenseConfigurationRequest =
  struct
    type nonrec t =
      {
      name: String_.t [@ocaml.doc "Name of the license configuration."];
      description: String_.t option
        [@ocaml.doc "Description of the license configuration."];
      licenseCountingType: LicenseCountingType.t
        [@ocaml.doc "Dimension used to track the license inventory."];
      licenseCount: BoxLong.t option
        [@ocaml.doc
          "Number of licenses managed by the license configuration."];
      licenseCountHardLimit: BoxBoolean.t option
        [@ocaml.doc
          "Indicates whether hard or soft license enforcement is used. Exceeding a hard limit blocks the launch of new instances."];
      licenseRules: StringList.t option
        [@ocaml.doc
          "License rules. The syntax is #name=value (for example, #allowedTenancy=EC2-DedicatedHost). The available rules vary by dimension, as follows. Cores dimension: allowedTenancy | licenseAffinityToHost | maximumCores | minimumCores Instances dimension: allowedTenancy | maximumVcpus | minimumVcpus Sockets dimension: allowedTenancy | licenseAffinityToHost | maximumSockets | minimumSockets vCPUs dimension: allowedTenancy | honorVcpuOptimization | maximumVcpus | minimumVcpus The unit for licenseAffinityToHost is days and the range is 1 to 180. The possible values for allowedTenancy are EC2-Default, EC2-DedicatedHost, and EC2-DedicatedInstance. The possible values for honorVcpuOptimization are True and False."];
      tags: TagList.t option
        [@ocaml.doc "Tags to add to the license configuration."];
      disassociateWhenNotFound: BoxBoolean.t option
        [@ocaml.doc
          "When true, disassociates a resource when software is uninstalled."];
      productInformationList: ProductInformationList.t option
        [@ocaml.doc "Product information."];
      licenseExpiry: BoxLong.t option
        [@ocaml.doc "License configuration expiry."]}
    let context_ = "CreateLicenseConfigurationRequest"
    let make ?description =
      fun ?licenseCount ->
        fun ?licenseCountHardLimit ->
          fun ?licenseRules ->
            fun ?tags ->
              fun ?disassociateWhenNotFound ->
                fun ?productInformationList ->
                  fun ?licenseExpiry ->
                    fun ~name ->
                      fun ~licenseCountingType ->
                        fun () ->
                          {
                            description;
                            licenseCount;
                            licenseCountHardLimit;
                            licenseRules;
                            tags;
                            disassociateWhenNotFound;
                            productInformationList;
                            licenseExpiry;
                            name;
                            licenseCountingType
                          }
    let to_value x =
      structure_to_value
        [("Name", (Some (String_.to_value x.name)));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("LicenseCountingType",
          (Some (LicenseCountingType.to_value x.licenseCountingType)));
        ("LicenseCount", (Option.map x.licenseCount ~f:BoxLong.to_value));
        ("LicenseCountHardLimit",
          (Option.map x.licenseCountHardLimit ~f:BoxBoolean.to_value));
        ("LicenseRules", (Option.map x.licenseRules ~f:StringList.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("DisassociateWhenNotFound",
          (Option.map x.disassociateWhenNotFound ~f:BoxBoolean.to_value));
        ("ProductInformationList",
          (Option.map x.productInformationList
             ~f:ProductInformationList.to_value));
        ("LicenseExpiry", (Option.map x.licenseExpiry ~f:BoxLong.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseExpiry =
        (Option.map ~f:BoxLong.of_xml) (Xml.child xml_arg0 "LicenseExpiry") in
      let productInformationList =
        (Option.map ~f:ProductInformationList.of_xml)
          (Xml.child xml_arg0 "ProductInformationList") in
      let disassociateWhenNotFound =
        (Option.map ~f:BoxBoolean.of_xml)
          (Xml.child xml_arg0 "DisassociateWhenNotFound") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let licenseRules =
        (Option.map ~f:StringList.of_xml) (Xml.child xml_arg0 "LicenseRules") in
      let licenseCountHardLimit =
        (Option.map ~f:BoxBoolean.of_xml)
          (Xml.child xml_arg0 "LicenseCountHardLimit") in
      let licenseCount =
        (Option.map ~f:BoxLong.of_xml) (Xml.child xml_arg0 "LicenseCount") in
      let licenseCountingType =
        LicenseCountingType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseCountingType") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?licenseExpiry ?productInformationList ?disassociateWhenNotFound
        ?tags ?licenseRules ?licenseCountHardLimit ?licenseCount
        ~licenseCountingType ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseExpiry = field_map json__ "LicenseExpiry" BoxLong.of_json in
      let productInformationList =
        field_map json__ "ProductInformationList"
          ProductInformationList.of_json in
      let disassociateWhenNotFound =
        field_map json__ "DisassociateWhenNotFound" BoxBoolean.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let licenseRules = field_map json__ "LicenseRules" StringList.of_json in
      let licenseCountHardLimit =
        field_map json__ "LicenseCountHardLimit" BoxBoolean.of_json in
      let licenseCount = field_map json__ "LicenseCount" BoxLong.of_json in
      let licenseCountingType =
        field_map_exn json__ "LicenseCountingType"
          LicenseCountingType.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let name = field_map_exn json__ "Name" String_.of_json in
      make ?licenseExpiry ?productInformationList ?disassociateWhenNotFound
        ?tags ?licenseRules ?licenseCountHardLimit ?licenseCount
        ~licenseCountingType ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a license configuration. A license configuration is an abstraction of a customer license agreement that can be consumed and enforced by License Manager. Components include specifications for the license type (licensing by instance, socket, CPU, or vCPU), allowed tenancy (shared tenancy, Dedicated Instance, Dedicated Host, or all of these), license affinity to host (how long a license must be associated with a host), and the number of licenses purchased and used."]
module CreateLicenseAssetRulesetResponse =
  struct
    type nonrec t =
      {
      licenseAssetRulesetArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license asset ruleset."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseAssetRulesetArn = fun () -> { licenseAssetRulesetArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseAssetRulesetArn",
           (Option.map x.licenseAssetRulesetArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseAssetRulesetArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseAssetRulesetArn") in
      make ?licenseAssetRulesetArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseAssetRulesetArn =
        field_map json__ "LicenseAssetRulesetArn" String_.of_json in
      make ?licenseAssetRulesetArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a license asset ruleset."]
module CreateLicenseAssetRulesetRequest =
  struct
    type nonrec t =
      {
      name: LicenseAssetResourceName.t
        [@ocaml.doc "License asset ruleset name."];
      description: LicenseAssetResourceDescription.t option
        [@ocaml.doc "License asset ruleset description."];
      rules: LicenseAssetRuleList.t [@ocaml.doc "License asset rules."];
      tags: TagList.t option
        [@ocaml.doc "Tags to add to the license asset ruleset."];
      clientToken: String_.t
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]}
    let context_ = "CreateLicenseAssetRulesetRequest"
    let make ?description =
      fun ?tags ->
        fun ~name ->
          fun ~rules ->
            fun ~clientToken ->
              fun () -> { description; tags; name; rules; clientToken }
    let to_value x =
      structure_to_value
        [("Name", (Some (LicenseAssetResourceName.to_value x.name)));
        ("Description",
          (Option.map x.description
             ~f:LicenseAssetResourceDescription.to_value));
        ("Rules", (Some (LicenseAssetRuleList.to_value x.rules)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Some (String_.to_value x.clientToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let rules =
        LicenseAssetRuleList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Rules") in
      let description =
        (Option.map ~f:LicenseAssetResourceDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        LicenseAssetResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~clientToken ?tags ~rules ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map_exn json__ "ClientToken" String_.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let rules = field_map_exn json__ "Rules" LicenseAssetRuleList.of_json in
      let description =
        field_map json__ "Description"
          LicenseAssetResourceDescription.of_json in
      let name = field_map_exn json__ "Name" LicenseAssetResourceName.of_json in
      make ~clientToken ?tags ~rules ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a license asset ruleset."]
module CreateLicenseAssetGroupResponse =
  struct
    type nonrec t =
      {
      licenseAssetGroupArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the license asset group."];
      status: String_.t option [@ocaml.doc "License asset group status."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseAssetGroupArn =
      fun ?status -> fun () -> { licenseAssetGroupArn; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("LicenseAssetGroupArn",
           (Option.map x.licenseAssetGroupArn ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      let licenseAssetGroupArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseAssetGroupArn") in
      make ?status ?licenseAssetGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" String_.of_json in
      let licenseAssetGroupArn =
        field_map json__ "LicenseAssetGroupArn" String_.of_json in
      make ?status ?licenseAssetGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a license asset group."]
module CreateLicenseAssetGroupRequest =
  struct
    type nonrec t =
      {
      name: LicenseAssetResourceName.t
        [@ocaml.doc "License asset group name."];
      description: LicenseAssetResourceDescription.t option
        [@ocaml.doc "License asset group description."];
      licenseAssetGroupConfigurations: LicenseAssetGroupConfigurationList.t
        [@ocaml.doc "License asset group configurations."];
      associatedLicenseAssetRulesetARNs: LicenseAssetRulesetArnList.t
        [@ocaml.doc "ARNs of associated license asset rulesets."];
      properties: LicenseAssetGroupPropertyList.t option
        [@ocaml.doc "License asset group properties."];
      tags: TagList.t option
        [@ocaml.doc "Tags to add to the license asset group."];
      clientToken: String_.t
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]}
    let context_ = "CreateLicenseAssetGroupRequest"
    let make ?description =
      fun ?properties ->
        fun ?tags ->
          fun ~name ->
            fun ~licenseAssetGroupConfigurations ->
              fun ~associatedLicenseAssetRulesetARNs ->
                fun ~clientToken ->
                  fun () ->
                    {
                      description;
                      properties;
                      tags;
                      name;
                      licenseAssetGroupConfigurations;
                      associatedLicenseAssetRulesetARNs;
                      clientToken
                    }
    let to_value x =
      structure_to_value
        [("Name", (Some (LicenseAssetResourceName.to_value x.name)));
        ("Description",
          (Option.map x.description
             ~f:LicenseAssetResourceDescription.to_value));
        ("LicenseAssetGroupConfigurations",
          (Some
             (LicenseAssetGroupConfigurationList.to_value
                x.licenseAssetGroupConfigurations)));
        ("AssociatedLicenseAssetRulesetARNs",
          (Some
             (LicenseAssetRulesetArnList.to_value
                x.associatedLicenseAssetRulesetARNs)));
        ("Properties",
          (Option.map x.properties ~f:LicenseAssetGroupPropertyList.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("ClientToken", (Some (String_.to_value x.clientToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let properties =
        (Option.map ~f:LicenseAssetGroupPropertyList.of_xml)
          (Xml.child xml_arg0 "Properties") in
      let associatedLicenseAssetRulesetARNs =
        LicenseAssetRulesetArnList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "AssociatedLicenseAssetRulesetARNs") in
      let licenseAssetGroupConfigurations =
        LicenseAssetGroupConfigurationList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "LicenseAssetGroupConfigurations") in
      let description =
        (Option.map ~f:LicenseAssetResourceDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        LicenseAssetResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~clientToken ?tags ?properties ~associatedLicenseAssetRulesetARNs
        ~licenseAssetGroupConfigurations ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map_exn json__ "ClientToken" String_.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let properties =
        field_map json__ "Properties" LicenseAssetGroupPropertyList.of_json in
      let associatedLicenseAssetRulesetARNs =
        field_map_exn json__ "AssociatedLicenseAssetRulesetARNs"
          LicenseAssetRulesetArnList.of_json in
      let licenseAssetGroupConfigurations =
        field_map_exn json__ "LicenseAssetGroupConfigurations"
          LicenseAssetGroupConfigurationList.of_json in
      let description =
        field_map json__ "Description"
          LicenseAssetResourceDescription.of_json in
      let name = field_map_exn json__ "Name" LicenseAssetResourceName.of_json in
      make ~clientToken ?tags ?properties ~associatedLicenseAssetRulesetARNs
        ~licenseAssetGroupConfigurations ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a license asset group."]
module CreateGrantVersionResponse =
  struct
    type nonrec t =
      {
      grantArn: Arn.t option [@ocaml.doc "Grant ARN."];
      status: GrantStatus.t option [@ocaml.doc "Grant status."];
      version: String_.t option [@ocaml.doc "New version of the grant."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?grantArn =
      fun ?status -> fun ?version -> fun () -> { grantArn; status; version }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("GrantArn", (Option.map x.grantArn ~f:Arn.to_value));
        ("Status", (Option.map x.status ~f:GrantStatus.to_value));
        ("Version", (Option.map x.version ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Version") in
      let status =
        (Option.map ~f:GrantStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let grantArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "GrantArn") in
      make ?version ?status ?grantArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "Version" String_.of_json in
      let status = field_map json__ "Status" GrantStatus.of_json in
      let grantArn = field_map json__ "GrantArn" Arn.of_json in
      make ?version ?status ?grantArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new version of the specified grant. For more information, see Granted licenses in License Manager in the License Manager User Guide."]
module CreateGrantVersionRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      grantArn: Arn.t [@ocaml.doc "Amazon Resource Name (ARN) of the grant."];
      grantName: String_.t option [@ocaml.doc "Grant name."];
      allowedOperations: AllowedOperationList.t option
        [@ocaml.doc "Allowed operations for the grant."];
      status: GrantStatus.t option [@ocaml.doc "Grant status."];
      statusReason: StatusReasonMessage.t option
        [@ocaml.doc "Grant status reason."];
      sourceVersion: String_.t option
        [@ocaml.doc "Current version of the grant."];
      options: Options.t option
        [@ocaml.doc "The options specified for the grant."]}
    let context_ = "CreateGrantVersionRequest"
    let make ?grantName =
      fun ?allowedOperations ->
        fun ?status ->
          fun ?statusReason ->
            fun ?sourceVersion ->
              fun ?options ->
                fun ~clientToken ->
                  fun ~grantArn ->
                    fun () ->
                      {
                        grantName;
                        allowedOperations;
                        status;
                        statusReason;
                        sourceVersion;
                        options;
                        clientToken;
                        grantArn
                      }
    let to_value x =
      structure_to_value
        [("ClientToken", (Some (ClientToken.to_value x.clientToken)));
        ("GrantArn", (Some (Arn.to_value x.grantArn)));
        ("GrantName", (Option.map x.grantName ~f:String_.to_value));
        ("AllowedOperations",
          (Option.map x.allowedOperations ~f:AllowedOperationList.to_value));
        ("Status", (Option.map x.status ~f:GrantStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:StatusReasonMessage.to_value));
        ("SourceVersion", (Option.map x.sourceVersion ~f:String_.to_value));
        ("Options", (Option.map x.options ~f:Options.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        (Option.map ~f:Options.of_xml) (Xml.child xml_arg0 "Options") in
      let sourceVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SourceVersion") in
      let statusReason =
        (Option.map ~f:StatusReasonMessage.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:GrantStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let allowedOperations =
        (Option.map ~f:AllowedOperationList.of_xml)
          (Xml.child xml_arg0 "AllowedOperations") in
      let grantName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "GrantName") in
      let grantArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "GrantArn") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      make ?options ?sourceVersion ?statusReason ?status ?allowedOperations
        ?grantName ~grantArn ~clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options = field_map json__ "Options" Options.of_json in
      let sourceVersion = field_map json__ "SourceVersion" String_.of_json in
      let statusReason =
        field_map json__ "StatusReason" StatusReasonMessage.of_json in
      let status = field_map json__ "Status" GrantStatus.of_json in
      let allowedOperations =
        field_map json__ "AllowedOperations" AllowedOperationList.of_json in
      let grantName = field_map json__ "GrantName" String_.of_json in
      let grantArn = field_map_exn json__ "GrantArn" Arn.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      make ?options ?sourceVersion ?statusReason ?status ?allowedOperations
        ?grantName ~grantArn ~clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new version of the specified grant. For more information, see Granted licenses in License Manager in the License Manager User Guide."]
module CreateGrantResponse =
  struct
    type nonrec t =
      {
      grantArn: Arn.t option [@ocaml.doc "Grant ARN."];
      status: GrantStatus.t option [@ocaml.doc "Grant status."];
      version: String_.t option [@ocaml.doc "Grant version."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?grantArn =
      fun ?status -> fun ?version -> fun () -> { grantArn; status; version }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("GrantArn", (Option.map x.grantArn ~f:Arn.to_value));
        ("Status", (Option.map x.status ~f:GrantStatus.to_value));
        ("Version", (Option.map x.version ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Version") in
      let status =
        (Option.map ~f:GrantStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let grantArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "GrantArn") in
      make ?version ?status ?grantArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "Version" String_.of_json in
      let status = field_map json__ "Status" GrantStatus.of_json in
      let grantArn = field_map json__ "GrantArn" Arn.of_json in
      make ?version ?status ?grantArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a grant for the specified license. A grant shares the use of license entitlements with a specific Amazon Web Services account, an organization, or an organizational unit (OU). For more information, see Granted licenses in License Manager in the License Manager User Guide."]
module CreateGrantRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      grantName: String_.t [@ocaml.doc "Grant name."];
      licenseArn: Arn.t
        [@ocaml.doc "Amazon Resource Name (ARN) of the license."];
      principals: PrincipalArnList.t
        [@ocaml.doc
          "The grant principals. You can specify one of the following as an Amazon Resource Name (ARN): An Amazon Web Services account, which includes only the account specified. An organizational unit (OU), which includes all accounts in the OU. An organization, which will include all accounts across your organization."];
      homeRegion: String_.t [@ocaml.doc "Home Region of the grant."];
      allowedOperations: AllowedOperationList.t
        [@ocaml.doc "Allowed operations for the grant."];
      tags: TagList.t option
        [@ocaml.doc
          "Tags to add to the grant. For more information about tagging support in License Manager, see the TagResource operation."]}
    let context_ = "CreateGrantRequest"
    let make ?tags =
      fun ~clientToken ->
        fun ~grantName ->
          fun ~licenseArn ->
            fun ~principals ->
              fun ~homeRegion ->
                fun ~allowedOperations ->
                  fun () ->
                    {
                      tags;
                      clientToken;
                      grantName;
                      licenseArn;
                      principals;
                      homeRegion;
                      allowedOperations
                    }
    let to_value x =
      structure_to_value
        [("ClientToken", (Some (ClientToken.to_value x.clientToken)));
        ("GrantName", (Some (String_.to_value x.grantName)));
        ("LicenseArn", (Some (Arn.to_value x.licenseArn)));
        ("Principals", (Some (PrincipalArnList.to_value x.principals)));
        ("HomeRegion", (Some (String_.to_value x.homeRegion)));
        ("AllowedOperations",
          (Some (AllowedOperationList.to_value x.allowedOperations)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let allowedOperations =
        AllowedOperationList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AllowedOperations") in
      let homeRegion =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "HomeRegion") in
      let principals =
        PrincipalArnList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Principals") in
      let licenseArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LicenseArn") in
      let grantName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "GrantName") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      make ?tags ~allowedOperations ~homeRegion ~principals ~licenseArn
        ~grantName ~clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let allowedOperations =
        field_map_exn json__ "AllowedOperations" AllowedOperationList.of_json in
      let homeRegion = field_map_exn json__ "HomeRegion" String_.of_json in
      let principals =
        field_map_exn json__ "Principals" PrincipalArnList.of_json in
      let licenseArn = field_map_exn json__ "LicenseArn" Arn.of_json in
      let grantName = field_map_exn json__ "GrantName" String_.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      make ?tags ~allowedOperations ~homeRegion ~principals ~licenseArn
        ~grantName ~clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a grant for the specified license. A grant shares the use of license entitlements with a specific Amazon Web Services account, an organization, or an organizational unit (OU). For more information, see Granted licenses in License Manager in the License Manager User Guide."]
module CheckoutLicenseResponse =
  struct
    type nonrec t =
      {
      checkoutType: CheckoutType.t option [@ocaml.doc "Checkout type."];
      licenseConsumptionToken: String_.t option
        [@ocaml.doc "License consumption token."];
      entitlementsAllowed: EntitlementDataList.t option
        [@ocaml.doc "Allowed license entitlements."];
      signedToken: SignedToken.t option [@ocaml.doc "Signed token."];
      nodeId: String_.t option [@ocaml.doc "Node ID."];
      issuedAt: ISO8601DateTime.t option
        [@ocaml.doc "Date and time at which the license checkout is issued."];
      expiration: ISO8601DateTime.t option
        [@ocaml.doc "Date and time at which the license checkout expires."];
      licenseArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the checkout license."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `NoEntitlementsAllowedException of NoEntitlementsAllowedException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `RedirectException of RedirectException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `UnsupportedDigitalSignatureMethodException of
          UnsupportedDigitalSignatureMethodException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?checkoutType =
      fun ?licenseConsumptionToken ->
        fun ?entitlementsAllowed ->
          fun ?signedToken ->
            fun ?nodeId ->
              fun ?issuedAt ->
                fun ?expiration ->
                  fun ?licenseArn ->
                    fun () ->
                      {
                        checkoutType;
                        licenseConsumptionToken;
                        entitlementsAllowed;
                        signedToken;
                        nodeId;
                        issuedAt;
                        expiration;
                        licenseArn
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "NoEntitlementsAllowedException" ->
          `NoEntitlementsAllowedException
            (NoEntitlementsAllowedException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "RedirectException" ->
          `RedirectException (RedirectException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.of_json json)
      | "UnsupportedDigitalSignatureMethodException" ->
          `UnsupportedDigitalSignatureMethodException
            (UnsupportedDigitalSignatureMethodException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "NoEntitlementsAllowedException" ->
          `NoEntitlementsAllowedException
            (NoEntitlementsAllowedException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "RedirectException" ->
          `RedirectException (RedirectException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.of_xml xml)
      | "UnsupportedDigitalSignatureMethodException" ->
          `UnsupportedDigitalSignatureMethodException
            (UnsupportedDigitalSignatureMethodException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `NoEntitlementsAllowedException e ->
          `Assoc
            [("error", (`String "NoEntitlementsAllowedException"));
            ("details", (NoEntitlementsAllowedException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `RedirectException e ->
          `Assoc
            [("error", (`String "RedirectException"));
            ("details", (RedirectException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.to_json e))]
      | `UnsupportedDigitalSignatureMethodException e ->
          `Assoc
            [("error",
               (`String "UnsupportedDigitalSignatureMethodException"));
            ("details",
              (UnsupportedDigitalSignatureMethodException.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
        [("CheckoutType",
           (Option.map x.checkoutType ~f:CheckoutType.to_value));
        ("LicenseConsumptionToken",
          (Option.map x.licenseConsumptionToken ~f:String_.to_value));
        ("EntitlementsAllowed",
          (Option.map x.entitlementsAllowed ~f:EntitlementDataList.to_value));
        ("SignedToken", (Option.map x.signedToken ~f:SignedToken.to_value));
        ("NodeId", (Option.map x.nodeId ~f:String_.to_value));
        ("IssuedAt", (Option.map x.issuedAt ~f:ISO8601DateTime.to_value));
        ("Expiration", (Option.map x.expiration ~f:ISO8601DateTime.to_value));
        ("LicenseArn", (Option.map x.licenseArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let licenseArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LicenseArn") in
      let expiration =
        (Option.map ~f:ISO8601DateTime.of_xml)
          (Xml.child xml_arg0 "Expiration") in
      let issuedAt =
        (Option.map ~f:ISO8601DateTime.of_xml)
          (Xml.child xml_arg0 "IssuedAt") in
      let nodeId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NodeId") in
      let signedToken =
        (Option.map ~f:SignedToken.of_xml) (Xml.child xml_arg0 "SignedToken") in
      let entitlementsAllowed =
        (Option.map ~f:EntitlementDataList.of_xml)
          (Xml.child xml_arg0 "EntitlementsAllowed") in
      let licenseConsumptionToken =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseConsumptionToken") in
      let checkoutType =
        (Option.map ~f:CheckoutType.of_xml)
          (Xml.child xml_arg0 "CheckoutType") in
      make ?licenseArn ?expiration ?issuedAt ?nodeId ?signedToken
        ?entitlementsAllowed ?licenseConsumptionToken ?checkoutType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let licenseArn = field_map json__ "LicenseArn" String_.of_json in
      let expiration = field_map json__ "Expiration" ISO8601DateTime.of_json in
      let issuedAt = field_map json__ "IssuedAt" ISO8601DateTime.of_json in
      let nodeId = field_map json__ "NodeId" String_.of_json in
      let signedToken = field_map json__ "SignedToken" SignedToken.of_json in
      let entitlementsAllowed =
        field_map json__ "EntitlementsAllowed" EntitlementDataList.of_json in
      let licenseConsumptionToken =
        field_map json__ "LicenseConsumptionToken" String_.of_json in
      let checkoutType = field_map json__ "CheckoutType" CheckoutType.of_json in
      make ?licenseArn ?expiration ?issuedAt ?nodeId ?signedToken
        ?entitlementsAllowed ?licenseConsumptionToken ?checkoutType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Checks out the specified license. If the account that created the license is the same that is performing the check out, you must specify the account as the beneficiary."]
module CheckoutLicenseRequest =
  struct
    type nonrec t =
      {
      productSKU: String_.t [@ocaml.doc "Product SKU."];
      checkoutType: CheckoutType.t [@ocaml.doc "Checkout type."];
      keyFingerprint: String_.t
        [@ocaml.doc "Key fingerprint identifying the license."];
      entitlements: EntitlementDataList.t
        [@ocaml.doc "License entitlements."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      beneficiary: String_.t option [@ocaml.doc "License beneficiary."];
      nodeId: String_.t option [@ocaml.doc "Node ID."]}
    let context_ = "CheckoutLicenseRequest"
    let make ?beneficiary =
      fun ?nodeId ->
        fun ~productSKU ->
          fun ~checkoutType ->
            fun ~keyFingerprint ->
              fun ~entitlements ->
                fun ~clientToken ->
                  fun () ->
                    {
                      beneficiary;
                      nodeId;
                      productSKU;
                      checkoutType;
                      keyFingerprint;
                      entitlements;
                      clientToken
                    }
    let to_value x =
      structure_to_value
        [("ProductSKU", (Some (String_.to_value x.productSKU)));
        ("CheckoutType", (Some (CheckoutType.to_value x.checkoutType)));
        ("KeyFingerprint", (Some (String_.to_value x.keyFingerprint)));
        ("Entitlements",
          (Some (EntitlementDataList.to_value x.entitlements)));
        ("ClientToken", (Some (ClientToken.to_value x.clientToken)));
        ("Beneficiary", (Option.map x.beneficiary ~f:String_.to_value));
        ("NodeId", (Option.map x.nodeId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nodeId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NodeId") in
      let beneficiary =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Beneficiary") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let entitlements =
        EntitlementDataList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Entitlements") in
      let keyFingerprint =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KeyFingerprint") in
      let checkoutType =
        CheckoutType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CheckoutType") in
      let productSKU =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProductSKU") in
      make ?nodeId ?beneficiary ~clientToken ~entitlements ~keyFingerprint
        ~checkoutType ~productSKU ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nodeId = field_map json__ "NodeId" String_.of_json in
      let beneficiary = field_map json__ "Beneficiary" String_.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      let entitlements =
        field_map_exn json__ "Entitlements" EntitlementDataList.of_json in
      let keyFingerprint =
        field_map_exn json__ "KeyFingerprint" String_.of_json in
      let checkoutType =
        field_map_exn json__ "CheckoutType" CheckoutType.of_json in
      let productSKU = field_map_exn json__ "ProductSKU" String_.of_json in
      make ?nodeId ?beneficiary ~clientToken ~entitlements ~keyFingerprint
        ~checkoutType ~productSKU ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Checks out the specified license. If the account that created the license is the same that is performing the check out, you must specify the account as the beneficiary."]
module CheckoutBorrowLicenseResponse =
  struct
    type nonrec t =
      {
      licenseArn: Arn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the license."];
      licenseConsumptionToken: String_.t option
        [@ocaml.doc "License consumption token."];
      entitlementsAllowed: EntitlementDataList.t option
        [@ocaml.doc "Allowed license entitlements."];
      nodeId: String_.t option [@ocaml.doc "Node ID."];
      signedToken: SignedToken.t option [@ocaml.doc "Signed token."];
      issuedAt: ISO8601DateTime.t option
        [@ocaml.doc "Date and time at which the license checkout is issued."];
      expiration: ISO8601DateTime.t option
        [@ocaml.doc "Date and time at which the license checkout expires."];
      checkoutMetadata: MetadataList.t option
        [@ocaml.doc "Information about constraints."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `EntitlementNotAllowedException of EntitlementNotAllowedException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `NoEntitlementsAllowedException of NoEntitlementsAllowedException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `RedirectException of RedirectException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `UnsupportedDigitalSignatureMethodException of
          UnsupportedDigitalSignatureMethodException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?licenseArn =
      fun ?licenseConsumptionToken ->
        fun ?entitlementsAllowed ->
          fun ?nodeId ->
            fun ?signedToken ->
              fun ?issuedAt ->
                fun ?expiration ->
                  fun ?checkoutMetadata ->
                    fun () ->
                      {
                        licenseArn;
                        licenseConsumptionToken;
                        entitlementsAllowed;
                        nodeId;
                        signedToken;
                        issuedAt;
                        expiration;
                        checkoutMetadata
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "EntitlementNotAllowedException" ->
          `EntitlementNotAllowedException
            (EntitlementNotAllowedException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "NoEntitlementsAllowedException" ->
          `NoEntitlementsAllowedException
            (NoEntitlementsAllowedException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "RedirectException" ->
          `RedirectException (RedirectException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.of_json json)
      | "UnsupportedDigitalSignatureMethodException" ->
          `UnsupportedDigitalSignatureMethodException
            (UnsupportedDigitalSignatureMethodException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "EntitlementNotAllowedException" ->
          `EntitlementNotAllowedException
            (EntitlementNotAllowedException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "NoEntitlementsAllowedException" ->
          `NoEntitlementsAllowedException
            (NoEntitlementsAllowedException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "RedirectException" ->
          `RedirectException (RedirectException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.of_xml xml)
      | "UnsupportedDigitalSignatureMethodException" ->
          `UnsupportedDigitalSignatureMethodException
            (UnsupportedDigitalSignatureMethodException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `EntitlementNotAllowedException e ->
          `Assoc
            [("error", (`String "EntitlementNotAllowedException"));
            ("details", (EntitlementNotAllowedException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `NoEntitlementsAllowedException e ->
          `Assoc
            [("error", (`String "NoEntitlementsAllowedException"));
            ("details", (NoEntitlementsAllowedException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `RedirectException e ->
          `Assoc
            [("error", (`String "RedirectException"));
            ("details", (RedirectException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.to_json e))]
      | `UnsupportedDigitalSignatureMethodException e ->
          `Assoc
            [("error",
               (`String "UnsupportedDigitalSignatureMethodException"));
            ("details",
              (UnsupportedDigitalSignatureMethodException.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
        [("LicenseArn", (Option.map x.licenseArn ~f:Arn.to_value));
        ("LicenseConsumptionToken",
          (Option.map x.licenseConsumptionToken ~f:String_.to_value));
        ("EntitlementsAllowed",
          (Option.map x.entitlementsAllowed ~f:EntitlementDataList.to_value));
        ("NodeId", (Option.map x.nodeId ~f:String_.to_value));
        ("SignedToken", (Option.map x.signedToken ~f:SignedToken.to_value));
        ("IssuedAt", (Option.map x.issuedAt ~f:ISO8601DateTime.to_value));
        ("Expiration", (Option.map x.expiration ~f:ISO8601DateTime.to_value));
        ("CheckoutMetadata",
          (Option.map x.checkoutMetadata ~f:MetadataList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let checkoutMetadata =
        (Option.map ~f:MetadataList.of_xml)
          (Xml.child xml_arg0 "CheckoutMetadata") in
      let expiration =
        (Option.map ~f:ISO8601DateTime.of_xml)
          (Xml.child xml_arg0 "Expiration") in
      let issuedAt =
        (Option.map ~f:ISO8601DateTime.of_xml)
          (Xml.child xml_arg0 "IssuedAt") in
      let signedToken =
        (Option.map ~f:SignedToken.of_xml) (Xml.child xml_arg0 "SignedToken") in
      let nodeId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NodeId") in
      let entitlementsAllowed =
        (Option.map ~f:EntitlementDataList.of_xml)
          (Xml.child xml_arg0 "EntitlementsAllowed") in
      let licenseConsumptionToken =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LicenseConsumptionToken") in
      let licenseArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "LicenseArn") in
      make ?checkoutMetadata ?expiration ?issuedAt ?signedToken ?nodeId
        ?entitlementsAllowed ?licenseConsumptionToken ?licenseArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let checkoutMetadata =
        field_map json__ "CheckoutMetadata" MetadataList.of_json in
      let expiration = field_map json__ "Expiration" ISO8601DateTime.of_json in
      let issuedAt = field_map json__ "IssuedAt" ISO8601DateTime.of_json in
      let signedToken = field_map json__ "SignedToken" SignedToken.of_json in
      let nodeId = field_map json__ "NodeId" String_.of_json in
      let entitlementsAllowed =
        field_map json__ "EntitlementsAllowed" EntitlementDataList.of_json in
      let licenseConsumptionToken =
        field_map json__ "LicenseConsumptionToken" String_.of_json in
      let licenseArn = field_map json__ "LicenseArn" Arn.of_json in
      make ?checkoutMetadata ?expiration ?issuedAt ?signedToken ?nodeId
        ?entitlementsAllowed ?licenseConsumptionToken ?licenseArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Checks out the specified license for offline use."]
module CheckoutBorrowLicenseRequest =
  struct
    type nonrec t =
      {
      licenseArn: Arn.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the license. The license must use the borrow consumption configuration."];
      entitlements: EntitlementDataList.t
        [@ocaml.doc
          "License entitlements. Partial checkouts are not supported."];
      digitalSignatureMethod: DigitalSignatureMethod.t
        [@ocaml.doc
          "Digital signature method. The possible value is JSON Web Signature (JWS) algorithm PS384. For more information, see RFC 7518 Digital Signature with RSASSA-PSS."];
      nodeId: String_.t option [@ocaml.doc "Node ID."];
      checkoutMetadata: MetadataList.t option
        [@ocaml.doc "Information about constraints."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]}
    let context_ = "CheckoutBorrowLicenseRequest"
    let make ?nodeId =
      fun ?checkoutMetadata ->
        fun ~licenseArn ->
          fun ~entitlements ->
            fun ~digitalSignatureMethod ->
              fun ~clientToken ->
                fun () ->
                  {
                    nodeId;
                    checkoutMetadata;
                    licenseArn;
                    entitlements;
                    digitalSignatureMethod;
                    clientToken
                  }
    let to_value x =
      structure_to_value
        [("LicenseArn", (Some (Arn.to_value x.licenseArn)));
        ("Entitlements",
          (Some (EntitlementDataList.to_value x.entitlements)));
        ("DigitalSignatureMethod",
          (Some (DigitalSignatureMethod.to_value x.digitalSignatureMethod)));
        ("NodeId", (Option.map x.nodeId ~f:String_.to_value));
        ("CheckoutMetadata",
          (Option.map x.checkoutMetadata ~f:MetadataList.to_value));
        ("ClientToken", (Some (ClientToken.to_value x.clientToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let checkoutMetadata =
        (Option.map ~f:MetadataList.of_xml)
          (Xml.child xml_arg0 "CheckoutMetadata") in
      let nodeId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NodeId") in
      let digitalSignatureMethod =
        DigitalSignatureMethod.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DigitalSignatureMethod") in
      let entitlements =
        EntitlementDataList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Entitlements") in
      let licenseArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "LicenseArn") in
      make ~clientToken ?checkoutMetadata ?nodeId ~digitalSignatureMethod
        ~entitlements ~licenseArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      let checkoutMetadata =
        field_map json__ "CheckoutMetadata" MetadataList.of_json in
      let nodeId = field_map json__ "NodeId" String_.of_json in
      let digitalSignatureMethod =
        field_map_exn json__ "DigitalSignatureMethod"
          DigitalSignatureMethod.of_json in
      let entitlements =
        field_map_exn json__ "Entitlements" EntitlementDataList.of_json in
      let licenseArn = field_map_exn json__ "LicenseArn" Arn.of_json in
      make ~clientToken ?checkoutMetadata ?nodeId ~digitalSignatureMethod
        ~entitlements ~licenseArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Checks out the specified license for offline use."]
module CheckInLicenseResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `ConflictException of ConflictException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServerInternalException of ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
       "Checks in the specified license. Check in a license when it is no longer in use."]
module CheckInLicenseRequest =
  struct
    type nonrec t =
      {
      licenseConsumptionToken: String_.t
        [@ocaml.doc "License consumption token."];
      beneficiary: String_.t option [@ocaml.doc "License beneficiary."]}
    let context_ = "CheckInLicenseRequest"
    let make ?beneficiary =
      fun ~licenseConsumptionToken ->
        fun () -> { beneficiary; licenseConsumptionToken }
    let to_value x =
      structure_to_value
        [("LicenseConsumptionToken",
           (Some (String_.to_value x.licenseConsumptionToken)));
        ("Beneficiary", (Option.map x.beneficiary ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let beneficiary =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Beneficiary") in
      let licenseConsumptionToken =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LicenseConsumptionToken") in
      make ?beneficiary ~licenseConsumptionToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let beneficiary = field_map json__ "Beneficiary" String_.of_json in
      let licenseConsumptionToken =
        field_map_exn json__ "LicenseConsumptionToken" String_.of_json in
      make ?beneficiary ~licenseConsumptionToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Checks in the specified license. Check in a license when it is no longer in use."]
module AcceptGrantResponse =
  struct
    type nonrec t =
      {
      grantArn: Arn.t option [@ocaml.doc "Grant ARN."];
      status: GrantStatus.t option [@ocaml.doc "Grant status."];
      version: String_.t option [@ocaml.doc "Grant version."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `AuthorizationException of AuthorizationException.t 
      | `InvalidParameterValueException of InvalidParameterValueException.t 
      | `RateLimitExceededException of RateLimitExceededException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServerInternalException of ServerInternalException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?grantArn =
      fun ?status -> fun ?version -> fun () -> { grantArn; status; version }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_json json)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_json json)
      | "RateLimitExceededException" ->
          `RateLimitExceededException
            (RateLimitExceededException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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)
      | "AuthorizationException" ->
          `AuthorizationException (AuthorizationException.of_xml xml)
      | "InvalidParameterValueException" ->
          `InvalidParameterValueException
            (InvalidParameterValueException.of_xml xml)
      | "RateLimitExceededException" ->
          `RateLimitExceededException (RateLimitExceededException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServerInternalException" ->
          `ServerInternalException (ServerInternalException.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))]
      | `AuthorizationException e ->
          `Assoc
            [("error", (`String "AuthorizationException"));
            ("details", (AuthorizationException.to_json e))]
      | `InvalidParameterValueException e ->
          `Assoc
            [("error", (`String "InvalidParameterValueException"));
            ("details", (InvalidParameterValueException.to_json e))]
      | `RateLimitExceededException e ->
          `Assoc
            [("error", (`String "RateLimitExceededException"));
            ("details", (RateLimitExceededException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServerInternalException e ->
          `Assoc
            [("error", (`String "ServerInternalException"));
            ("details", (ServerInternalException.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
        [("GrantArn", (Option.map x.grantArn ~f:Arn.to_value));
        ("Status", (Option.map x.status ~f:GrantStatus.to_value));
        ("Version", (Option.map x.version ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Version") in
      let status =
        (Option.map ~f:GrantStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let grantArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "GrantArn") in
      make ?version ?status ?grantArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "Version" String_.of_json in
      let status = field_map json__ "Status" GrantStatus.of_json in
      let grantArn = field_map json__ "GrantArn" Arn.of_json in
      make ?version ?status ?grantArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Accepts the specified grant."]
module AcceptGrantRequest =
  struct
    type nonrec t =
      {
      grantArn: Arn.t [@ocaml.doc "Amazon Resource Name (ARN) of the grant."]}
    let context_ = "AcceptGrantRequest"
    let make ~grantArn = fun () -> { grantArn }
    let to_value x =
      structure_to_value [("GrantArn", (Some (Arn.to_value x.grantArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let grantArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "GrantArn") in
      make ~grantArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let grantArn = field_map_exn json__ "GrantArn" Arn.of_json in
      make ~grantArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Accepts the specified grant."]