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.resource_explorer_2
let apiVersion = "2022-07-28"
let endpointPrefix = "resource-explorer-2"
let serviceFullName = "AWS Resource Explorer"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module IncludedPropertyNameString =
  struct
    type nonrec t = string
    let context_ = "IncludedPropertyNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"IncludedPropertyNameString" j
    let to_json = simple_to_json to_value
  end
module IncludedProperty =
  struct
    type nonrec t =
      {
      name: IncludedPropertyNameString.t
        [@ocaml.doc
          "The name of the property that is included in this view. You can specify the following property names for this field: tags"]}
    let context_ = "IncludedProperty"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value
        [("Name", (Some (IncludedPropertyNameString.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        IncludedPropertyNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map_exn json__ "Name" IncludedPropertyNameString.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about an additional property that describes a resource, that you can optionally include in the view. This lets you view that property in search results, and filter your search results based on the value of the property."]
module SearchFilterFilterStringString =
  struct
    type nonrec t = string
    let context_ = "SearchFilterFilterStringString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SearchFilterFilterStringString" j
    let to_json = simple_to_json to_value
  end
module Document =
  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
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 SyntheticTimestamp_date_time =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module IndexType =
  struct
    type nonrec t =
      | LOCAL 
      | AGGREGATOR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LOCAL -> "LOCAL"
      | AGGREGATOR -> "AGGREGATOR"
      | Non_static_id s -> s
    let of_string =
      function
      | "LOCAL" -> LOCAL
      | "AGGREGATOR" -> AGGREGATOR
      | 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 IndexType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IndexType" j)
    let to_json = simple_to_json to_value
  end
module IncludedPropertyList =
  struct
    type nonrec t = IncludedProperty.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:IncludedProperty.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:IncludedProperty.of_xml)
    let of_json j =
      list_of_json ~kind:"IncludedPropertyList"
        ~of_json:IncludedProperty.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchFilter =
  struct
    type nonrec t =
      {
      filterString: SearchFilterFilterStringString.t
        [@ocaml.doc
          "The string that contains the search keywords, prefixes, and operators to control the results that can be returned by a Search operation. For more details, see Search query syntax."]}
    let context_ = "SearchFilter"
    let make ~filterString = fun () -> { filterString }
    let to_value x =
      structure_to_value
        [("FilterString",
           (Some (SearchFilterFilterStringString.to_value x.filterString)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filterString =
        SearchFilterFilterStringString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FilterString") in
      make ~filterString ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filterString =
        field_map_exn json__ "FilterString"
          SearchFilterFilterStringString.of_json in
      make ~filterString ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A search filter defines which resources can be part of a search query result set."]
module ViewName =
  struct
    type nonrec t = string
    let context_ = "ViewName"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9\\-]{1,64}"); 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:"ViewName" j
    let to_json = simple_to_json to_value
  end
module ResourceProperty =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of this property of the resource."];
      lastReportedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time that the information about this resource property was last updated."];
      data: Document.t option
        [@ocaml.doc
          "Details about this property. The content of this field is a JSON object that varies based on the resource type."]}
    let make ?name =
      fun ?lastReportedAt ->
        fun ?data -> fun () -> { name; lastReportedAt; data }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("LastReportedAt",
          (Option.map x.lastReportedAt
             ~f:SyntheticTimestamp_date_time.to_value));
        ("Data", (Option.map x.data ~f:Document.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let data = (Option.map ~f:Document.of_xml) (Xml.child xml_arg0 "Data") in
      let lastReportedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "LastReportedAt") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?data ?lastReportedAt ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let data = field_map json__ "Data" Document.of_json in
      let lastReportedAt =
        field_map json__ "LastReportedAt"
          SyntheticTimestamp_date_time.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?data ?lastReportedAt ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A structure that describes a property of a resource."]
module ErrorDetails =
  struct
    type nonrec t =
      {
      code: String_.t option
        [@ocaml.doc
          "The error code that identifies the type of error that occurred."];
      message: String_.t option
        [@ocaml.doc
          "A human-readable description of the error that occurred."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:String_.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let code = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let code = field_map json__ "Code" String_.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an error that occurred during a Resource Explorer setup operation."]
module Index =
  struct
    type nonrec t =
      {
      region: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region in which the index exists."];
      arn: String_.t option
        [@ocaml.doc "The Amazon resource name (ARN) of the index."];
      type_: IndexType.t option
        [@ocaml.doc
          "The type of index. It can be one of the following values: LOCAL \226\128\147 The index contains information about resources from only the same Amazon Web Services Region. AGGREGATOR \226\128\147 Resource Explorer replicates copies of the indexed information about resources in all other Amazon Web Services Regions to the aggregator index. This lets search results in the Region with the aggregator index to include resources from all Regions in the account where Resource Explorer is turned on."]}
    let make ?region =
      fun ?arn -> fun ?type_ -> fun () -> { region; arn; type_ }
    let to_value x =
      structure_to_value
        [("Region", (Option.map x.region ~f:String_.to_value));
        ("Arn", (Option.map x.arn ~f:String_.to_value));
        ("Type", (Option.map x.type_ ~f:IndexType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:IndexType.of_xml) (Xml.child xml_arg0 "Type") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Region") in
      make ?type_ ?arn ?region ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" IndexType.of_json in
      let arn = field_map json__ "Arn" String_.of_json in
      let region = field_map json__ "Region" String_.of_json in
      make ?type_ ?arn ?region ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An index is the data store used by Amazon Web Services Resource Explorer to hold information about your Amazon Web Services resources that the service discovers. Creating an index in an Amazon Web Services Region turns on Resource Explorer and lets it discover your resources. By default, an index is local, meaning that it contains information about resources in only the same Region as the index. However, you can promote the index of one Region in the account by calling UpdateIndexType to convert it into an aggregator index. The aggregator index receives a replicated copy of the index information from all other Regions where Resource Explorer is turned on. This allows search operations in that Region to return results from all Regions in the account."]
module OperationStatus =
  struct
    type nonrec t =
      | SUCCEEDED 
      | FAILED 
      | IN_PROGRESS 
      | SKIPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | SKIPPED -> "SKIPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "SKIPPED" -> SKIPPED
      | 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 OperationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OperationStatus" j)
    let to_json = simple_to_json to_value
  end
module View =
  struct
    type nonrec t =
      {
      viewArn: String_.t option
        [@ocaml.doc "The Amazon resource name (ARN) of the view."];
      viewName: ViewName.t option [@ocaml.doc "The name of the view."];
      owner: String_.t option
        [@ocaml.doc "The Amazon Web Services account that owns this view."];
      lastUpdatedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time when this view was last modified."];
      scope: String_.t option
        [@ocaml.doc
          "An Amazon resource name (ARN) of an Amazon Web Services account, an organization, or an organizational unit (OU) that specifies whether this view includes resources from only the specified Amazon Web Services account, all accounts in the specified organization, or all accounts in the specified OU. If not specified, the value defaults to the Amazon Web Services account used to call this operation."];
      includedProperties: IncludedPropertyList.t option
        [@ocaml.doc
          "A structure that contains additional information about the view."];
      filters: SearchFilter.t option
        [@ocaml.doc
          "An array of SearchFilter objects that specify which resources can be included in the results of queries made using this view."]}
    let make ?viewArn =
      fun ?viewName ->
        fun ?owner ->
          fun ?lastUpdatedAt ->
            fun ?scope ->
              fun ?includedProperties ->
                fun ?filters ->
                  fun () ->
                    {
                      viewArn;
                      viewName;
                      owner;
                      lastUpdatedAt;
                      scope;
                      includedProperties;
                      filters
                    }
    let to_value x =
      structure_to_value
        [("ViewArn", (Option.map x.viewArn ~f:String_.to_value));
        ("ViewName", (Option.map x.viewName ~f:ViewName.to_value));
        ("Owner", (Option.map x.owner ~f:String_.to_value));
        ("LastUpdatedAt",
          (Option.map x.lastUpdatedAt
             ~f:SyntheticTimestamp_date_time.to_value));
        ("Scope", (Option.map x.scope ~f:String_.to_value));
        ("IncludedProperties",
          (Option.map x.includedProperties ~f:IncludedPropertyList.to_value));
        ("Filters", (Option.map x.filters ~f:SearchFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:SearchFilter.of_xml) (Xml.child xml_arg0 "Filters") in
      let includedProperties =
        (Option.map ~f:IncludedPropertyList.of_xml)
          (Xml.child xml_arg0 "IncludedProperties") in
      let scope = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Scope") in
      let lastUpdatedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "LastUpdatedAt") in
      let owner = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Owner") in
      let viewName =
        (Option.map ~f:ViewName.of_xml) (Xml.child xml_arg0 "ViewName") in
      let viewArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ViewArn") in
      make ?filters ?includedProperties ?scope ?lastUpdatedAt ?owner
        ?viewName ?viewArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "Filters" SearchFilter.of_json in
      let includedProperties =
        field_map json__ "IncludedProperties" IncludedPropertyList.of_json in
      let scope = field_map json__ "Scope" String_.of_json in
      let lastUpdatedAt =
        field_map json__ "LastUpdatedAt" SyntheticTimestamp_date_time.of_json in
      let owner = field_map json__ "Owner" String_.of_json in
      let viewName = field_map json__ "ViewName" ViewName.of_json in
      let viewArn = field_map json__ "ViewArn" String_.of_json in
      make ?filters ?includedProperties ?scope ?lastUpdatedAt ?owner
        ?viewName ?viewArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A view is a structure that defines a set of filters that provide a view into the information in the Amazon Web Services Resource Explorer index. The filters specify which information from the index is visible to the users of the view. For example, you can specify filters that include only resources that are tagged with the key \"ENV\" and the value \"DEVELOPMENT\" in the results returned by this view. You could also create a second view that includes only resources that are tagged with \"ENV\" and \"PRODUCTION\"."]
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc
          "The name of the request field that had a validation error."];
      validationIssue: String_.t option
        [@ocaml.doc "The validation error caused by the request field."]}
    let make ?name =
      fun ?validationIssue -> fun () -> { name; validationIssue }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("ValidationIssue",
          (Option.map x.validationIssue ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationIssue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ValidationIssue") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?validationIssue ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationIssue =
        field_map json__ "ValidationIssue" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?validationIssue ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that describes a request field with a validation error."]
module ResourcePropertyList =
  struct
    type nonrec t = ResourceProperty.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:ResourceProperty.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:ResourceProperty.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourcePropertyList"
        ~of_json:ResourceProperty.of_json j
    let to_json v = composed_to_json to_value v
  end
module IndexStatus =
  struct
    type nonrec t =
      {
      status: OperationStatus.t option
        [@ocaml.doc
          "The current status of the index operation. Valid values are SUCCEEDED, FAILED, IN_PROGRESS, or SKIPPED."];
      index: Index.t option ;
      errorDetails: ErrorDetails.t option
        [@ocaml.doc
          "Details about any error that occurred during the index operation."]}
    let make ?status =
      fun ?index ->
        fun ?errorDetails -> fun () -> { status; index; errorDetails }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:OperationStatus.to_value));
        ("Index", (Option.map x.index ~f:Index.to_value));
        ("ErrorDetails",
          (Option.map x.errorDetails ~f:ErrorDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorDetails =
        (Option.map ~f:ErrorDetails.of_xml)
          (Xml.child xml_arg0 "ErrorDetails") in
      let index = (Option.map ~f:Index.of_xml) (Xml.child xml_arg0 "Index") in
      let status =
        (Option.map ~f:OperationStatus.of_xml) (Xml.child xml_arg0 "Status") in
      make ?errorDetails ?index ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorDetails = field_map json__ "ErrorDetails" ErrorDetails.of_json in
      let index = field_map json__ "Index" Index.of_json in
      let status = field_map json__ "Status" OperationStatus.of_json in
      make ?errorDetails ?index ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the status of a Resource Explorer index operation in a specific Region."]
module RegionStatusRegionString =
  struct
    type nonrec t = string
    let context_ = "RegionStatusRegionString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-z-]+-[a-z]+-[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:"RegionStatusRegionString" j
    let to_json = simple_to_json to_value
  end
module ViewStatus =
  struct
    type nonrec t =
      {
      status: OperationStatus.t option
        [@ocaml.doc
          "The current status of the view operation. Valid values are SUCCEEDED, FAILED, IN_PROGRESS, or SKIPPED."];
      view: View.t option ;
      errorDetails: ErrorDetails.t option
        [@ocaml.doc
          "Details about any error that occurred during the view operation."]}
    let make ?status =
      fun ?view ->
        fun ?errorDetails -> fun () -> { status; view; errorDetails }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:OperationStatus.to_value));
        ("View", (Option.map x.view ~f:View.to_value));
        ("ErrorDetails",
          (Option.map x.errorDetails ~f:ErrorDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorDetails =
        (Option.map ~f:ErrorDetails.of_xml)
          (Xml.child xml_arg0 "ErrorDetails") in
      let view = (Option.map ~f:View.of_xml) (Xml.child xml_arg0 "View") in
      let status =
        (Option.map ~f:OperationStatus.of_xml) (Xml.child xml_arg0 "Status") in
      make ?errorDetails ?view ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorDetails = field_map json__ "ErrorDetails" ErrorDetails.of_json in
      let view = field_map json__ "View" View.of_json in
      let status = field_map json__ "Status" OperationStatus.of_json in
      make ?errorDetails ?view ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the status of a Resource Explorer view operation in a specific Region."]
module ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ValidationExceptionField.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module 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 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 Resource =
  struct
    type nonrec t =
      {
      arn: String_.t option
        [@ocaml.doc "The Amazon resource name (ARN) of the resource."];
      owningAccountId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services account that owns the resource."];
      region: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region in which the resource was created and exists."];
      resourceType: String_.t option [@ocaml.doc "The type of the resource."];
      service: String_.t option
        [@ocaml.doc
          "The Amazon Web Services service that owns the resource and is responsible for creating and updating it."];
      lastReportedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time that Resource Explorer last queried this resource and updated the index with the latest information about the resource."];
      properties: ResourcePropertyList.t option
        [@ocaml.doc
          "A structure with additional type-specific details about the resource. These properties can be added by turning on integration between Resource Explorer and other Amazon Web Services services."]}
    let make ?arn =
      fun ?owningAccountId ->
        fun ?region ->
          fun ?resourceType ->
            fun ?service ->
              fun ?lastReportedAt ->
                fun ?properties ->
                  fun () ->
                    {
                      arn;
                      owningAccountId;
                      region;
                      resourceType;
                      service;
                      lastReportedAt;
                      properties
                    }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:String_.to_value));
        ("OwningAccountId",
          (Option.map x.owningAccountId ~f:String_.to_value));
        ("Region", (Option.map x.region ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("Service", (Option.map x.service ~f:String_.to_value));
        ("LastReportedAt",
          (Option.map x.lastReportedAt
             ~f:SyntheticTimestamp_date_time.to_value));
        ("Properties",
          (Option.map x.properties ~f:ResourcePropertyList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let properties =
        (Option.map ~f:ResourcePropertyList.of_xml)
          (Xml.child xml_arg0 "Properties") in
      let lastReportedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "LastReportedAt") in
      let service =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Service") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Region") in
      let owningAccountId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OwningAccountId") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?properties ?lastReportedAt ?service ?resourceType ?region
        ?owningAccountId ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let properties =
        field_map json__ "Properties" ResourcePropertyList.of_json in
      let lastReportedAt =
        field_map json__ "LastReportedAt"
          SyntheticTimestamp_date_time.of_json in
      let service = field_map json__ "Service" String_.of_json in
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let region = field_map json__ "Region" String_.of_json in
      let owningAccountId =
        field_map json__ "OwningAccountId" String_.of_json in
      let arn = field_map json__ "Arn" String_.of_json in
      make ?properties ?lastReportedAt ?service ?resourceType ?region
        ?owningAccountId ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A resource in Amazon Web Services that Amazon Web Services Resource Explorer has discovered, and for which it has stored information in the index of the Amazon Web Services Region that contains the resource."]
module SupportedResourceType =
  struct
    type nonrec t =
      {
      service: String_.t option
        [@ocaml.doc
          "The Amazon Web Services service that is associated with the resource type. This is the primary service that lets you create and interact with resources of this type."];
      resourceType: String_.t option
        [@ocaml.doc "The unique identifier of the resource type."]}
    let make ?service =
      fun ?resourceType -> fun () -> { service; resourceType }
    let to_value x =
      structure_to_value
        [("Service", (Option.map x.service ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let service =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Service") in
      make ?resourceType ?service ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let service = field_map json__ "Service" String_.of_json in
      make ?resourceType ?service ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that describes a resource type supported by Amazon Web Services Resource Explorer."]
module StreamingAccessDetails =
  struct
    type nonrec t =
      {
      servicePrincipal: String_.t option
        [@ocaml.doc
          "The service principal of the Amazon Web Services service that has streaming access to your Resource Explorer data. A service principal is a unique identifier for an Amazon Web Services service."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time when streaming access was granted to the Amazon Web Services service, in ISO 8601 format."]}
    let make ?servicePrincipal =
      fun ?createdAt -> fun () -> { servicePrincipal; createdAt }
    let to_value x =
      structure_to_value
        [("ServicePrincipal",
           (Option.map x.servicePrincipal ~f:String_.to_value));
        ("CreatedAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      let servicePrincipal =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ServicePrincipal") in
      make ?createdAt ?servicePrincipal ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt =
        field_map json__ "CreatedAt" SyntheticTimestamp_date_time.of_json in
      let servicePrincipal =
        field_map json__ "ServicePrincipal" String_.of_json in
      make ?createdAt ?servicePrincipal ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an Amazon Web Services service that has been granted streaming access to your Resource Explorer data."]
module ListServiceIndexesInputRegionsListMemberString =
  struct
    type nonrec t = string
    let context_ = "ListServiceIndexesInputRegionsListMemberString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-z-]+-[a-z]+-[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:"ListServiceIndexesInputRegionsListMemberString" j
    let to_json = simple_to_json to_value
  end
module ListIndexesInputRegionsListMemberString =
  struct
    type nonrec t = string
    let context_ = "ListIndexesInputRegionsListMemberString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-z-]+-[a-z]+-[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:"ListIndexesInputRegionsListMemberString" j
    let to_json = simple_to_json to_value
  end
module MemberIndex =
  struct
    type nonrec t =
      {
      accountId: String_.t option
        [@ocaml.doc "The account ID for the index."];
      region: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Region in which the index exists."];
      arn: String_.t option
        [@ocaml.doc "The Amazon resource name (ARN) of the index."];
      type_: IndexType.t option
        [@ocaml.doc
          "The type of index. It can be one of the following values: LOCAL \226\128\147 The index contains information about resources from only the same Amazon Web Services Region. AGGREGATOR \226\128\147 Resource Explorer replicates copies of the indexed information about resources in all other Amazon Web Services Regions to the aggregator index. This lets search results in the Region with the aggregator index to include resources from all Regions in the account where Resource Explorer is turned on."]}
    let make ?accountId =
      fun ?region ->
        fun ?arn -> fun ?type_ -> fun () -> { accountId; region; arn; type_ }
    let to_value x =
      structure_to_value
        [("AccountId", (Option.map x.accountId ~f:String_.to_value));
        ("Region", (Option.map x.region ~f:String_.to_value));
        ("Arn", (Option.map x.arn ~f:String_.to_value));
        ("Type", (Option.map x.type_ ~f:IndexType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:IndexType.of_xml) (Xml.child xml_arg0 "Type") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Region") in
      let accountId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AccountId") in
      make ?type_ ?arn ?region ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" IndexType.of_json in
      let arn = field_map json__ "Arn" String_.of_json in
      let region = field_map json__ "Region" String_.of_json in
      let accountId = field_map json__ "AccountId" String_.of_json in
      make ?type_ ?arn ?region ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An index is the data store used by Amazon Web Services Resource Explorer to hold information about your Amazon Web Services resources that the service discovers."]
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"AccountId" j
    let to_json = simple_to_json to_value
  end
module ServiceViewName =
  struct
    type nonrec t = string
    let context_ = "ServiceViewName"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9\\-]{1,64}"); 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:"ServiceViewName" j
    let to_json = simple_to_json to_value
  end
module RegionStatus =
  struct
    type nonrec t =
      {
      region: RegionStatusRegionString.t option
        [@ocaml.doc
          "The Amazon Web Services Region for which this status information applies."];
      index: IndexStatus.t option
        [@ocaml.doc
          "The status information for the Resource Explorer index in this Region."];
      view: ViewStatus.t option
        [@ocaml.doc
          "The status information for the Resource Explorer view in this Region."]}
    let make ?region =
      fun ?index -> fun ?view -> fun () -> { region; index; view }
    let to_value x =
      structure_to_value
        [("Region",
           (Option.map x.region ~f:RegionStatusRegionString.to_value));
        ("Index", (Option.map x.index ~f:IndexStatus.to_value));
        ("View", (Option.map x.view ~f:ViewStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let view =
        (Option.map ~f:ViewStatus.of_xml) (Xml.child xml_arg0 "View") in
      let index =
        (Option.map ~f:IndexStatus.of_xml) (Xml.child xml_arg0 "Index") in
      let region =
        (Option.map ~f:RegionStatusRegionString.of_xml)
          (Xml.child xml_arg0 "Region") in
      make ?view ?index ?region ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let view = field_map json__ "View" ViewStatus.of_json in
      let index = field_map json__ "Index" IndexStatus.of_json in
      let region = field_map json__ "Region" RegionStatusRegionString.of_json in
      make ?view ?index ?region ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the status of Resource Explorer configuration in a specific Amazon Web Services Region."]
module RegionListMemberString =
  struct
    type nonrec t = string
    let context_ = "RegionListMemberString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-z-]+-[a-z]+-[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:"RegionListMemberString" j
    let to_json = simple_to_json to_value
  end
module AWSServiceAccessStatus =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "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 AWSServiceAccessStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AWSServiceAccessStatus" j)
    let to_json = simple_to_json to_value
  end
module CreateResourceExplorerSetupInputAggregatorRegionsListMemberString =
  struct
    type nonrec t = string
    let context_ =
      "CreateResourceExplorerSetupInputAggregatorRegionsListMemberString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-z-]+-[a-z]+-[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:"CreateResourceExplorerSetupInputAggregatorRegionsListMemberString"
        j
    let to_json = simple_to_json to_value
  end
module CreateResourceExplorerSetupInputRegionListListMemberString =
  struct
    type nonrec t = string
    let context_ =
      "CreateResourceExplorerSetupInputRegionListListMemberString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-z-]+-[a-z]+-[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:"CreateResourceExplorerSetupInputRegionListListMemberString" j
    let to_json = simple_to_json to_value
  end
module BatchGetViewError =
  struct
    type nonrec t =
      {
      viewArn: String_.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) of the view for which Resource Explorer failed to retrieve details."];
      errorMessage: String_.t option
        [@ocaml.doc "The description of the error for the specified view."]}
    let make ?viewArn =
      fun ?errorMessage -> fun () -> { viewArn; errorMessage }
    let to_value x =
      structure_to_value
        [("ViewArn", (Option.map x.viewArn ~f:String_.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ErrorMessage") in
      let viewArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ViewArn") in
      make ?errorMessage ?viewArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" String_.of_json in
      let viewArn = field_map json__ "ViewArn" String_.of_json in
      make ?errorMessage ?viewArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A collection of error messages for any views that Amazon Web Services Resource Explorer couldn't retrieve details."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The credentials that you used to call this operation don't have the minimum required permissions."]
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request failed because of internal service error. Try your request again later."]
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      name: String_.t option
        [@ocaml.doc
          "The name of the service quota that was exceeded by the request."];
      value: String_.t option
        [@ocaml.doc
          "The current value for the quota that the request tried to exceed."]}
    let make ?message =
      fun ?name -> fun ?value -> fun () -> { message; name; value }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.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
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?value ?name ?message ()
    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
      let message = field_map json__ "Message" String_.of_json in
      make ?value ?name ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request failed because it exceeds a service quota."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request failed because you exceeded a rate limit for this operation. For more information, see Quotas for Resource Explorer."]
module UnauthorizedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The principal making the request isn't permitted to perform the operation."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc
          "An array of the request fields that had validation errors."]}
    let make ?message = fun ?fieldList -> fun () -> { message; fieldList }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("FieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "FieldList") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?fieldList ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldList =
        field_map json__ "FieldList" ValidationExceptionFieldList.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?fieldList ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You provided an invalid value for one of the operation's parameters. Check the syntax for the operation, and try again."]
module UpdateViewInputViewArnString =
  struct
    type nonrec t = string
    let context_ = "UpdateViewInputViewArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"UpdateViewInputViewArnString" j
    let to_json = simple_to_json to_value
  end
module ConflictException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If you attempted to create a view, then the request failed because either you specified parameters that didn\226\128\153t match the original request, or you attempted to create a view with a name that already exists in this Amazon Web Services Region. If you attempted to create an index, then the request failed because either you specified parameters that didn't match the original request, or an index already exists in the current Amazon Web Services Region. If you attempted to update an index type to AGGREGATOR, then the request failed because you already have an AGGREGATOR index in a different Amazon Web Services Region."]
module IndexState =
  struct
    type nonrec t =
      | CREATING 
      | ACTIVE 
      | DELETING 
      | DELETED 
      | UPDATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | ACTIVE -> "ACTIVE"
      | DELETING -> "DELETING"
      | DELETED -> "DELETED"
      | UPDATING -> "UPDATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "ACTIVE" -> ACTIVE
      | "DELETING" -> DELETING
      | "DELETED" -> DELETED
      | "UPDATING" -> UPDATING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration IndexState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IndexState" j)
    let to_json = simple_to_json to_value
  end
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You specified a resource that doesn't exist. Check the ID or ARN that you used to identity the resource, and try again."]
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 TagMap =
  struct
    type nonrec t = (String_.t * String_.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 ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.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:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceCount =
  struct
    type nonrec t =
      {
      totalResources: Long.t option
        [@ocaml.doc
          "The number of resources that match the search query. This value can't exceed 1,000. If there are more than 1,000 resources that match the query, then only 1,000 are counted and the Complete field is set to false. We recommend that you refine your query to return a smaller number of results."];
      complete: Boolean.t option
        [@ocaml.doc
          "Indicates whether the TotalResources value represents an exhaustive count of search results. If True, it indicates that the search was exhaustive. Every resource that matches the query was counted. If False, then the search reached the limit of 1,000 matching results, and stopped counting."]}
    let make ?totalResources =
      fun ?complete -> fun () -> { totalResources; complete }
    let to_value x =
      structure_to_value
        [("TotalResources", (Option.map x.totalResources ~f:Long.to_value));
        ("Complete", (Option.map x.complete ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let complete =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Complete") in
      let totalResources =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "TotalResources") in
      make ?complete ?totalResources ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let complete = field_map json__ "Complete" Boolean.of_json in
      let totalResources = field_map json__ "TotalResources" Long.of_json in
      make ?complete ?totalResources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the number of results that match the query. At this time, Amazon Web Services Resource Explorer doesn't count more than 1,000 matches for any query. This structure provides information about whether the query exceeded this limit. This field is included in every page when you paginate the results."]
module ResourceList =
  struct
    type nonrec t = Resource.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:Resource.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:Resource.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceList" ~of_json:Resource.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchOutputNextTokenString =
  struct
    type nonrec t = string
    let context_ = "SearchOutputNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"SearchOutputNextTokenString" j
    let to_json = simple_to_json to_value
  end
module SearchOutputViewArnString =
  struct
    type nonrec t = string
    let context_ = "SearchOutputViewArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"SearchOutputViewArnString" j
    let to_json = simple_to_json to_value
  end
module QueryString =
  struct
    type nonrec t = string
    let context_ = "QueryString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1280) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"QueryString" j
    let to_json = simple_to_json to_value
  end
module SearchInputMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for SearchInputMaxResultsInteger"
           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 SearchInputNextTokenString =
  struct
    type nonrec t = string
    let context_ = "SearchInputNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"SearchInputNextTokenString" j
    let to_json = simple_to_json to_value
  end
module SearchInputViewArnString =
  struct
    type nonrec t = string
    let context_ = "SearchInputViewArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SearchInputViewArnString" j
    let to_json = simple_to_json to_value
  end
module ViewArnList =
  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:"ViewArnList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListViewsInputMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (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 ListViewsInputMaxResultsInteger"
           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 ResourceTypeList =
  struct
    type nonrec t = SupportedResourceType.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:SupportedResourceType.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:SupportedResourceType.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceTypeList"
        ~of_json:SupportedResourceType.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListSupportedResourceTypesInputMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListSupportedResourceTypesInputMaxResultsInteger"
           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 StreamingAccessDetailsList =
  struct
    type nonrec t = StreamingAccessDetails.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:StreamingAccessDetails.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:StreamingAccessDetails.of_xml)
    let of_json j =
      list_of_json ~kind:"StreamingAccessDetailsList"
        ~of_json:StreamingAccessDetails.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListStreamingAccessForServicesInputMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (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 ListStreamingAccessForServicesInputMaxResultsInteger"
           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 ServiceViewArnList =
  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:"ServiceViewArnList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListServiceViewsInputMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (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 ListServiceViewsInputMaxResultsInteger"
           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 IndexList =
  struct
    type nonrec t = Index.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:Index.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:Index.of_xml)
    let of_json j = list_of_json ~kind:"IndexList" ~of_json:Index.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListServiceIndexesInputMaxResultsInteger =
  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 ListServiceIndexesInputMaxResultsInteger"
           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 ListServiceIndexesInputNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListServiceIndexesInputNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"ListServiceIndexesInputNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ListServiceIndexesInputRegionsList =
  struct
    type nonrec t = ListServiceIndexesInputRegionsListMemberString.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |>
         (List.map ~f:ListServiceIndexesInputRegionsListMemberString.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:ListServiceIndexesInputRegionsListMemberString.of_xml)
    let of_json j =
      list_of_json ~kind:"ListServiceIndexesInputRegionsList"
        ~of_json:ListServiceIndexesInputRegionsListMemberString.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListResourcesOutputNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListResourcesOutputNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"ListResourcesOutputNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ListResourcesOutputViewArnString =
  struct
    type nonrec t = string
    let context_ = "ListResourcesOutputViewArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"ListResourcesOutputViewArnString" j
    let to_json = simple_to_json to_value
  end
module ListResourcesInputMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListResourcesInputMaxResultsInteger"
           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 ListResourcesInputNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListResourcesInputNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"ListResourcesInputNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ListResourcesInputViewArnString =
  struct
    type nonrec t = string
    let context_ = "ListResourcesInputViewArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ListResourcesInputViewArnString" j
    let to_json = simple_to_json to_value
  end
module ManagedViewArnList =
  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:"ManagedViewArnList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListManagedViewsInputMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (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 ListManagedViewsInputMaxResultsInteger"
           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 ListManagedViewsInputNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListManagedViewsInputNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"ListManagedViewsInputNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ListManagedViewsInputServicePrincipalString =
  struct
    type nonrec t = string
    let context_ = "ListManagedViewsInputServicePrincipalString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ListManagedViewsInputServicePrincipalString" j
    let to_json = simple_to_json to_value
  end
module ListIndexesInputMaxResultsInteger =
  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 ListIndexesInputMaxResultsInteger" 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 ListIndexesInputNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListIndexesInputNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"ListIndexesInputNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ListIndexesInputRegionsList =
  struct
    type nonrec t = ListIndexesInputRegionsListMemberString.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ListIndexesInputRegionsListMemberString.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:ListIndexesInputRegionsListMemberString.of_xml)
    let of_json j =
      list_of_json ~kind:"ListIndexesInputRegionsList"
        ~of_json:ListIndexesInputRegionsListMemberString.of_json j
    let to_json v = composed_to_json to_value v
  end
module MemberIndexList =
  struct
    type nonrec t = MemberIndex.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:MemberIndex.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:MemberIndex.of_xml)
    let of_json j =
      list_of_json ~kind:"MemberIndexList" ~of_json:MemberIndex.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListIndexesForMembersInputAccountIdListList =
  struct
    type nonrec t = AccountId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AccountId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:AccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"ListIndexesForMembersInputAccountIdListList"
        ~of_json:AccountId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListIndexesForMembersInputMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (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 ListIndexesForMembersInputMaxResultsInteger"
           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 ListIndexesForMembersInputNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListIndexesForMembersInputNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"ListIndexesForMembersInputNextTokenString" j
    let to_json = simple_to_json to_value
  end
module GetViewInputViewArnString =
  struct
    type nonrec t = string
    let context_ = "GetViewInputViewArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"GetViewInputViewArnString" j
    let to_json = simple_to_json to_value
  end
module ServiceView =
  struct
    type nonrec t =
      {
      serviceViewArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the service view."];
      serviceViewName: ServiceViewName.t option
        [@ocaml.doc "The name of the service view."];
      filters: SearchFilter.t option ;
      includedProperties: IncludedPropertyList.t option
        [@ocaml.doc
          "A list of additional resource properties that are included in this view for search and filtering purposes."];
      streamingAccessForService: String_.t option
        [@ocaml.doc
          "The Amazon Web Services service that has streaming access to this view's data."];
      scopeType: String_.t option
        [@ocaml.doc
          "The scope type of the service view, which determines what resources are included."]}
    let make ?serviceViewArn =
      fun ?serviceViewName ->
        fun ?filters ->
          fun ?includedProperties ->
            fun ?streamingAccessForService ->
              fun ?scopeType ->
                fun () ->
                  {
                    serviceViewArn;
                    serviceViewName;
                    filters;
                    includedProperties;
                    streamingAccessForService;
                    scopeType
                  }
    let to_value x =
      structure_to_value
        [("ServiceViewArn",
           (Option.map x.serviceViewArn ~f:String_.to_value));
        ("ServiceViewName",
          (Option.map x.serviceViewName ~f:ServiceViewName.to_value));
        ("Filters", (Option.map x.filters ~f:SearchFilter.to_value));
        ("IncludedProperties",
          (Option.map x.includedProperties ~f:IncludedPropertyList.to_value));
        ("StreamingAccessForService",
          (Option.map x.streamingAccessForService ~f:String_.to_value));
        ("ScopeType", (Option.map x.scopeType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scopeType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ScopeType") in
      let streamingAccessForService =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "StreamingAccessForService") in
      let includedProperties =
        (Option.map ~f:IncludedPropertyList.of_xml)
          (Xml.child xml_arg0 "IncludedProperties") in
      let filters =
        (Option.map ~f:SearchFilter.of_xml) (Xml.child xml_arg0 "Filters") in
      let serviceViewName =
        (Option.map ~f:ServiceViewName.of_xml)
          (Xml.child xml_arg0 "ServiceViewName") in
      let serviceViewArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ServiceViewArn") in
      make ?scopeType ?streamingAccessForService ?includedProperties ?filters
        ?serviceViewName ?serviceViewArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scopeType = field_map json__ "ScopeType" String_.of_json in
      let streamingAccessForService =
        field_map json__ "StreamingAccessForService" String_.of_json in
      let includedProperties =
        field_map json__ "IncludedProperties" IncludedPropertyList.of_json in
      let filters = field_map json__ "Filters" SearchFilter.of_json in
      let serviceViewName =
        field_map json__ "ServiceViewName" ServiceViewName.of_json in
      let serviceViewArn = field_map json__ "ServiceViewArn" String_.of_json in
      make ?scopeType ?streamingAccessForService ?includedProperties ?filters
        ?serviceViewName ?serviceViewArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the configuration and properties of a Resource Explorer service view."]
module GetServiceViewInputServiceViewArnString =
  struct
    type nonrec t = string
    let context_ = "GetServiceViewInputServiceViewArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"GetServiceViewInputServiceViewArnString" j
    let to_json = simple_to_json to_value
  end
module GetResourceExplorerSetupOutputNextTokenString =
  struct
    type nonrec t = string
    let context_ = "GetResourceExplorerSetupOutputNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"GetResourceExplorerSetupOutputNextTokenString" j
    let to_json = simple_to_json to_value
  end
module RegionStatusList =
  struct
    type nonrec t = RegionStatus.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:RegionStatus.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:RegionStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"RegionStatusList" ~of_json:RegionStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module GetResourceExplorerSetupInputMaxResultsInteger =
  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 GetResourceExplorerSetupInputMaxResultsInteger"
           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 GetResourceExplorerSetupInputNextTokenString =
  struct
    type nonrec t = string
    let context_ = "GetResourceExplorerSetupInputNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"GetResourceExplorerSetupInputNextTokenString" j
    let to_json = simple_to_json to_value
  end
module GetResourceExplorerSetupInputTaskIdString =
  struct
    type nonrec t = string
    let context_ = "GetResourceExplorerSetupInputTaskIdString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"GetResourceExplorerSetupInputTaskIdString" j
    let to_json = simple_to_json to_value
  end
module ManagedView =
  struct
    type nonrec t =
      {
      managedViewArn: String_.t option
        [@ocaml.doc "The Amazon resource name (ARN) of the managed view."];
      managedViewName: String_.t option
        [@ocaml.doc "The name of the managed view."];
      trustedService: String_.t option
        [@ocaml.doc
          "The service principal of the Amazon Web Services service that created and manages the managed view."];
      lastUpdatedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time when this managed view was last modified."];
      owner: String_.t option
        [@ocaml.doc
          "The Amazon Web Services account that owns this managed view."];
      scope: String_.t option
        [@ocaml.doc
          "An Amazon resource name (ARN) of an Amazon Web Services account or organization that specifies whether this managed view includes resources from only the specified Amazon Web Services account or all accounts in the specified organization."];
      includedProperties: IncludedPropertyList.t option
        [@ocaml.doc
          "A structure that contains additional information about the managed view."];
      filters: SearchFilter.t option ;
      resourcePolicy: String_.t option
        [@ocaml.doc
          "The resource policy that defines access to the managed view. To learn more about this policy, review Managed views."];
      version: String_.t option
        [@ocaml.doc "The version of the managed view."]}
    let make ?managedViewArn =
      fun ?managedViewName ->
        fun ?trustedService ->
          fun ?lastUpdatedAt ->
            fun ?owner ->
              fun ?scope ->
                fun ?includedProperties ->
                  fun ?filters ->
                    fun ?resourcePolicy ->
                      fun ?version ->
                        fun () ->
                          {
                            managedViewArn;
                            managedViewName;
                            trustedService;
                            lastUpdatedAt;
                            owner;
                            scope;
                            includedProperties;
                            filters;
                            resourcePolicy;
                            version
                          }
    let to_value x =
      structure_to_value
        [("ManagedViewArn",
           (Option.map x.managedViewArn ~f:String_.to_value));
        ("ManagedViewName",
          (Option.map x.managedViewName ~f:String_.to_value));
        ("TrustedService", (Option.map x.trustedService ~f:String_.to_value));
        ("LastUpdatedAt",
          (Option.map x.lastUpdatedAt
             ~f:SyntheticTimestamp_date_time.to_value));
        ("Owner", (Option.map x.owner ~f:String_.to_value));
        ("Scope", (Option.map x.scope ~f:String_.to_value));
        ("IncludedProperties",
          (Option.map x.includedProperties ~f:IncludedPropertyList.to_value));
        ("Filters", (Option.map x.filters ~f:SearchFilter.to_value));
        ("ResourcePolicy", (Option.map x.resourcePolicy ~f:String_.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 resourcePolicy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourcePolicy") in
      let filters =
        (Option.map ~f:SearchFilter.of_xml) (Xml.child xml_arg0 "Filters") in
      let includedProperties =
        (Option.map ~f:IncludedPropertyList.of_xml)
          (Xml.child xml_arg0 "IncludedProperties") in
      let scope = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Scope") in
      let owner = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Owner") in
      let lastUpdatedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "LastUpdatedAt") in
      let trustedService =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TrustedService") in
      let managedViewName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ManagedViewName") in
      let managedViewArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ManagedViewArn") in
      make ?version ?resourcePolicy ?filters ?includedProperties ?scope
        ?owner ?lastUpdatedAt ?trustedService ?managedViewName
        ?managedViewArn ()
    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 resourcePolicy = field_map json__ "ResourcePolicy" String_.of_json in
      let filters = field_map json__ "Filters" SearchFilter.of_json in
      let includedProperties =
        field_map json__ "IncludedProperties" IncludedPropertyList.of_json in
      let scope = field_map json__ "Scope" String_.of_json in
      let owner = field_map json__ "Owner" String_.of_json in
      let lastUpdatedAt =
        field_map json__ "LastUpdatedAt" SyntheticTimestamp_date_time.of_json in
      let trustedService = field_map json__ "TrustedService" String_.of_json in
      let managedViewName =
        field_map json__ "ManagedViewName" String_.of_json in
      let managedViewArn = field_map json__ "ManagedViewArn" String_.of_json in
      make ?version ?resourcePolicy ?filters ?includedProperties ?scope
        ?owner ?lastUpdatedAt ?trustedService ?managedViewName
        ?managedViewArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An Amazon Web Services-managed view is how other Amazon Web Services services can access resource information indexed by Resource Explorer for your Amazon Web Services account or organization with your consent. For more information, see Managed views."]
module GetManagedViewInputManagedViewArnString =
  struct
    type nonrec t = string
    let context_ = "GetManagedViewInputManagedViewArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"GetManagedViewInputManagedViewArnString" j
    let to_json = simple_to_json to_value
  end
module RegionList =
  struct
    type nonrec t = RegionListMemberString.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:RegionListMemberString.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:RegionListMemberString.of_xml)
    let of_json j =
      list_of_json ~kind:"RegionList" ~of_json:RegionListMemberString.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module OrgConfiguration =
  struct
    type nonrec t =
      {
      aWSServiceAccessStatus: AWSServiceAccessStatus.t option
        [@ocaml.doc
          "This value displays whether your Amazon Web Services service access is ENABLED or DISABLED."];
      serviceLinkedRole: String_.t option
        [@ocaml.doc
          "This value shows whether or not you have a valid a service-linked role required to start the multi-account search feature."]}
    let make ?aWSServiceAccessStatus =
      fun ?serviceLinkedRole ->
        fun () -> { aWSServiceAccessStatus; serviceLinkedRole }
    let to_value x =
      structure_to_value
        [("AWSServiceAccessStatus",
           (Option.map x.aWSServiceAccessStatus
              ~f:AWSServiceAccessStatus.to_value));
        ("ServiceLinkedRole",
          (Option.map x.serviceLinkedRole ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceLinkedRole =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ServiceLinkedRole") in
      let aWSServiceAccessStatus =
        (Option.map ~f:AWSServiceAccessStatus.of_xml)
          (Xml.child xml_arg0 "AWSServiceAccessStatus") in
      make ?serviceLinkedRole ?aWSServiceAccessStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceLinkedRole =
        field_map json__ "ServiceLinkedRole" String_.of_json in
      let aWSServiceAccessStatus =
        field_map json__ "AWSServiceAccessStatus"
          AWSServiceAccessStatus.of_json in
      make ?serviceLinkedRole ?aWSServiceAccessStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is a structure that contains the status of Amazon Web Services service access, and whether you have a valid service-linked role to enable multi-account search for your organization."]
module DeleteViewInputViewArnString =
  struct
    type nonrec t = string
    let context_ = "DeleteViewInputViewArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"DeleteViewInputViewArnString" j
    let to_json = simple_to_json to_value
  end
module DeleteResourceExplorerSetupOutputTaskIdString =
  struct
    type nonrec t = string
    let context_ = "DeleteResourceExplorerSetupOutputTaskIdString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"DeleteResourceExplorerSetupOutputTaskIdString" j
    let to_json = simple_to_json to_value
  end
module CreateViewInputClientTokenString =
  struct
    type nonrec t = string
    let context_ = "CreateViewInputClientTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"CreateViewInputClientTokenString" j
    let to_json = simple_to_json to_value
  end
module CreateViewInputScopeString =
  struct
    type nonrec t = string
    let context_ = "CreateViewInputScopeString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"CreateViewInputScopeString" j
    let to_json = simple_to_json to_value
  end
module CreateResourceExplorerSetupOutputTaskIdString =
  struct
    type nonrec t = string
    let context_ = "CreateResourceExplorerSetupOutputTaskIdString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"CreateResourceExplorerSetupOutputTaskIdString" j
    let to_json = simple_to_json to_value
  end
module CreateResourceExplorerSetupInputAggregatorRegionsList =
  struct
    type nonrec t =
      CreateResourceExplorerSetupInputAggregatorRegionsListMemberString.t
        list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |>
         (List.map
            ~f:CreateResourceExplorerSetupInputAggregatorRegionsListMemberString.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:CreateResourceExplorerSetupInputAggregatorRegionsListMemberString.of_xml)
    let of_json j =
      list_of_json
        ~kind:"CreateResourceExplorerSetupInputAggregatorRegionsList"
        ~of_json:CreateResourceExplorerSetupInputAggregatorRegionsListMemberString.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module CreateResourceExplorerSetupInputRegionListList =
  struct
    type nonrec t =
      CreateResourceExplorerSetupInputRegionListListMemberString.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |>
         (List.map
            ~f:CreateResourceExplorerSetupInputRegionListListMemberString.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:CreateResourceExplorerSetupInputRegionListListMemberString.of_xml)
    let of_json j =
      list_of_json ~kind:"CreateResourceExplorerSetupInputRegionListList"
        ~of_json:CreateResourceExplorerSetupInputRegionListListMemberString.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module CreateResourceExplorerSetupInputViewNameString =
  struct
    type nonrec t = string
    let context_ = "CreateResourceExplorerSetupInputViewNameString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9-]{1,64}"); 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:"CreateResourceExplorerSetupInputViewNameString" j
    let to_json = simple_to_json to_value
  end
module BatchGetViewErrors =
  struct
    type nonrec t = BatchGetViewError.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:BatchGetViewError.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:BatchGetViewError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchGetViewErrors"
        ~of_json:BatchGetViewError.of_json j
    let to_json v = composed_to_json to_value v
  end
module ViewList =
  struct
    type nonrec t = View.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:View.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:View.of_xml)
    let of_json j = list_of_json ~kind:"ViewList" ~of_json:View.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchGetViewInputViewArnsList =
  struct
    type nonrec t = String_.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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: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:"BatchGetViewInputViewArnsList"
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssociateDefaultViewInputViewArnString =
  struct
    type nonrec t = string
    let context_ = "AssociateDefaultViewInputViewArnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"AssociateDefaultViewInputViewArnString" j
    let to_json = simple_to_json to_value
  end
module UpdateViewOutput =
  struct
    type nonrec t =
      {
      view: View.t option
        [@ocaml.doc
          "Details about the view that you changed with this operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?view = fun () -> { view }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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 [("View", (Option.map x.view ~f:View.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let view = (Option.map ~f:View.of_xml) (Xml.child xml_arg0 "View") in
      make ?view ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let view = field_map json__ "View" View.of_json in make ?view ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies some of the details of a view. You can change the filter string and the list of included properties. You can't change the name of the view."]
module UpdateViewInput =
  struct
    type nonrec t =
      {
      viewArn: UpdateViewInputViewArnString.t
        [@ocaml.doc
          "The Amazon resource name (ARN) of the view that you want to modify."];
      includedProperties: IncludedPropertyList.t option
        [@ocaml.doc
          "Specifies optional fields that you want included in search results from this view. It is a list of objects that each describe a field to include. The default is an empty list, with no optional fields included in the results."];
      filters: SearchFilter.t option
        [@ocaml.doc
          "An array of strings that specify which resources are included in the results of queries made using this view. When you use this view in a Search operation, the filter string is combined with the search's QueryString parameter using a logical AND operator. For information about the supported syntax, see Search query reference for Resource Explorer in the Amazon Web Services Resource Explorer User Guide. This query string in the context of this operation supports only filter prefixes with optional operators. It doesn't support free-form text. For example, the string region:us* service:ec2 -tag:stage=prod includes all Amazon EC2 resources in any Amazon Web Services Region that begins with the letters us and is not tagged with a key Stage that has the value prod."]}
    let context_ = "UpdateViewInput"
    let make ?includedProperties =
      fun ?filters ->
        fun ~viewArn -> fun () -> { includedProperties; filters; viewArn }
    let to_value x =
      structure_to_value
        [("ViewArn",
           (Some (UpdateViewInputViewArnString.to_value x.viewArn)));
        ("IncludedProperties",
          (Option.map x.includedProperties ~f:IncludedPropertyList.to_value));
        ("Filters", (Option.map x.filters ~f:SearchFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:SearchFilter.of_xml) (Xml.child xml_arg0 "Filters") in
      let includedProperties =
        (Option.map ~f:IncludedPropertyList.of_xml)
          (Xml.child xml_arg0 "IncludedProperties") in
      let viewArn =
        UpdateViewInputViewArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ViewArn") in
      make ?filters ?includedProperties ~viewArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "Filters" SearchFilter.of_json in
      let includedProperties =
        field_map json__ "IncludedProperties" IncludedPropertyList.of_json in
      let viewArn =
        field_map_exn json__ "ViewArn" UpdateViewInputViewArnString.of_json in
      make ?filters ?includedProperties ~viewArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies some of the details of a view. You can change the filter string and the list of included properties. You can't change the name of the view."]
module UpdateIndexTypeOutput =
  struct
    type nonrec t =
      {
      arn: String_.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) of the index that you updated."];
      type_: IndexType.t option
        [@ocaml.doc
          "Specifies the type of the specified index after the operation completes."];
      state: IndexState.t option
        [@ocaml.doc
          "Indicates the state of the request to update the index. This operation is asynchronous. Call the GetIndex operation to check for changes."];
      lastUpdatedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and timestamp when the index was last updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?type_ ->
        fun ?state ->
          fun ?lastUpdatedAt ->
            fun () -> { arn; type_; state; lastUpdatedAt }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:String_.to_value));
        ("Type", (Option.map x.type_ ~f:IndexType.to_value));
        ("State", (Option.map x.state ~f:IndexState.to_value));
        ("LastUpdatedAt",
          (Option.map x.lastUpdatedAt
             ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "LastUpdatedAt") in
      let state =
        (Option.map ~f:IndexState.of_xml) (Xml.child xml_arg0 "State") in
      let type_ =
        (Option.map ~f:IndexType.of_xml) (Xml.child xml_arg0 "Type") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?lastUpdatedAt ?state ?type_ ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt =
        field_map json__ "LastUpdatedAt" SyntheticTimestamp_date_time.of_json in
      let state = field_map json__ "State" IndexState.of_json in
      let type_ = field_map json__ "Type" IndexType.of_json in
      let arn = field_map json__ "Arn" String_.of_json in
      make ?lastUpdatedAt ?state ?type_ ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes the type of the index from one of the following types to the other. For more information about indexes and the role they perform in Amazon Web Services Resource Explorer, see Turning on cross-Region search by creating an aggregator index in the Amazon Web Services Resource Explorer User Guide. AGGREGATOR index type The index contains information about resources from all Amazon Web Services Regions in the Amazon Web Services account in which you've created a Resource Explorer index. Resource information from all other Regions is replicated to this Region's index. When you change the index type to AGGREGATOR, Resource Explorer turns on replication of all discovered resource information from the other Amazon Web Services Regions in your account to this index. You can then, from this Region only, perform resource search queries that span all Amazon Web Services Regions in the Amazon Web Services account. Turning on replication from all other Regions is performed by asynchronous background tasks. You can check the status of the asynchronous tasks by using the GetIndex operation. When the asynchronous tasks complete, the Status response of that operation changes from UPDATING to ACTIVE. After that, you can start to see results from other Amazon Web Services Regions in query results. However, it can take several hours for replication from all other Regions to complete. You can have only one aggregator index per Amazon Web Services account. Before you can promote a different index to be the aggregator index for the account, you must first demote the existing aggregator index to type LOCAL. LOCAL index type The index contains information about resources in only the Amazon Web Services Region in which the index exists. If an aggregator index in another Region exists, then information in this local index is replicated to the aggregator index. When you change the index type to LOCAL, Resource Explorer turns off the replication of resource information from all other Amazon Web Services Regions in the Amazon Web Services account to this Region. The aggregator index remains in the UPDATING state until all replication with other Regions successfully stops. You can check the status of the asynchronous task by using the GetIndex operation. When Resource Explorer successfully stops all replication with other Regions, the Status response of that operation changes from UPDATING to ACTIVE. Separately, the resource information from other Regions that was previously stored in the index is deleted within 30 days by another background task. Until that asynchronous task completes, some results from other Regions can continue to appear in search results. After you demote an aggregator index to a local index, you must wait 24 hours before you can promote another index to be the new aggregator index for the account."]
module UpdateIndexTypeInput =
  struct
    type nonrec t =
      {
      arn: String_.t
        [@ocaml.doc
          "The Amazon resource name (ARN) of the index that you want to update."];
      type_: IndexType.t
        [@ocaml.doc
          "The type of the index. To understand the difference between LOCAL and AGGREGATOR, see Turning on cross-Region search in the Amazon Web Services Resource Explorer User Guide."]}
    let context_ = "UpdateIndexTypeInput"
    let make ~arn = fun ~type_ -> fun () -> { arn; type_ }
    let to_value x =
      structure_to_value
        [("Arn", (Some (String_.to_value x.arn)));
        ("Type", (Some (IndexType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        IndexType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let arn =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~type_ ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "Type" IndexType.of_json in
      let arn = field_map_exn json__ "Arn" String_.of_json in
      make ~type_ ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes the type of the index from one of the following types to the other. For more information about indexes and the role they perform in Amazon Web Services Resource Explorer, see Turning on cross-Region search by creating an aggregator index in the Amazon Web Services Resource Explorer User Guide. AGGREGATOR index type The index contains information about resources from all Amazon Web Services Regions in the Amazon Web Services account in which you've created a Resource Explorer index. Resource information from all other Regions is replicated to this Region's index. When you change the index type to AGGREGATOR, Resource Explorer turns on replication of all discovered resource information from the other Amazon Web Services Regions in your account to this index. You can then, from this Region only, perform resource search queries that span all Amazon Web Services Regions in the Amazon Web Services account. Turning on replication from all other Regions is performed by asynchronous background tasks. You can check the status of the asynchronous tasks by using the GetIndex operation. When the asynchronous tasks complete, the Status response of that operation changes from UPDATING to ACTIVE. After that, you can start to see results from other Amazon Web Services Regions in query results. However, it can take several hours for replication from all other Regions to complete. You can have only one aggregator index per Amazon Web Services account. Before you can promote a different index to be the aggregator index for the account, you must first demote the existing aggregator index to type LOCAL. LOCAL index type The index contains information about resources in only the Amazon Web Services Region in which the index exists. If an aggregator index in another Region exists, then information in this local index is replicated to the aggregator index. When you change the index type to LOCAL, Resource Explorer turns off the replication of resource information from all other Amazon Web Services Regions in the Amazon Web Services account to this Region. The aggregator index remains in the UPDATING state until all replication with other Regions successfully stops. You can check the status of the asynchronous task by using the GetIndex operation. When Resource Explorer successfully stops all replication with other Regions, the Status response of that operation changes from UPDATING to ACTIVE. Separately, the resource information from other Regions that was previously stored in the index is deleted within 30 days by another background task. Until that asynchronous task completes, some results from other Regions can continue to appear in search results. After you demote an aggregator index to a local index, you must wait 24 hours before you can promote another index to be the new aggregator index for the account."]
module UntagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes one or more tag key and value pairs from an Amazon Web Services Resource Explorer view or index."]
module UntagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the view or index that you want to remove tags from."];
      tagKeys: StringList.t
        [@ocaml.doc
          "A list of the keys for the tags that you want to remove from the specified view or index."]}
    let context_ = "UntagResourceInput"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (String_.to_value x.resourceArn)));
        ("tagKeys", (Some (StringList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        StringList.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" StringList.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 one or more tag key and value pairs from an Amazon Web Services Resource Explorer view or index."]
module TagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.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)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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 one or more tag key and value pairs to an Amazon Web Services Resource Explorer view or index."]
module TagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the view or index that you want to attach tags to."];
      tags: TagMap.t option
        [@ocaml.doc
          "A list of tag key and value pairs that you want to attach to the specified view or index."]}
    let context_ = "TagResourceInput"
    let make ?tags = fun ~resourceArn -> fun () -> { tags; resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (String_.to_value x.resourceArn)));
        ("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      let 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 json__ "Tags" TagMap.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 one or more tag key and value pairs to an Amazon Web Services Resource Explorer view or index."]
module SearchOutput =
  struct
    type nonrec t =
      {
      resources: ResourceList.t option
        [@ocaml.doc
          "The list of structures that describe the resources that match the query."];
      nextToken: SearchOutputNextTokenString.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a subsequent call to the operation to get the next part of the output. You should repeat this until the NextToken response element comes back as null. The pagination tokens expire after 24 hours."];
      viewArn: SearchOutputViewArnString.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) of the view that this operation used to perform the search."];
      count: ResourceCount.t option
        [@ocaml.doc "The number of resources that match the query."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resources =
      fun ?nextToken ->
        fun ?viewArn ->
          fun ?count -> fun () -> { resources; nextToken; viewArn; count }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Resources", (Option.map x.resources ~f:ResourceList.to_value));
        ("NextToken",
          (Option.map x.nextToken ~f:SearchOutputNextTokenString.to_value));
        ("ViewArn",
          (Option.map x.viewArn ~f:SearchOutputViewArnString.to_value));
        ("Count", (Option.map x.count ~f:ResourceCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let count =
        (Option.map ~f:ResourceCount.of_xml) (Xml.child xml_arg0 "Count") in
      let viewArn =
        (Option.map ~f:SearchOutputViewArnString.of_xml)
          (Xml.child xml_arg0 "ViewArn") in
      let nextToken =
        (Option.map ~f:SearchOutputNextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let resources =
        (Option.map ~f:ResourceList.of_xml) (Xml.child xml_arg0 "Resources") in
      make ?count ?viewArn ?nextToken ?resources ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let count = field_map json__ "Count" ResourceCount.of_json in
      let viewArn =
        field_map json__ "ViewArn" SearchOutputViewArnString.of_json in
      let nextToken =
        field_map json__ "NextToken" SearchOutputNextTokenString.of_json in
      let resources = field_map json__ "Resources" ResourceList.of_json in
      make ?count ?viewArn ?nextToken ?resources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Searches for resources and displays details about all resources that match the specified criteria. You must specify a query string. All search queries must use a view. If you don't explicitly specify a view, then Amazon Web Services Resource Explorer uses the default view for the Amazon Web Services Region in which you call this operation. The results are the logical intersection of the results that match both the QueryString parameter supplied to this operation and the SearchFilter parameter attached to the view. For the complete syntax supported by the QueryString parameter, see Search query syntax reference for Resource Explorer. If your search results are empty, or are missing results that you think should be there, see Troubleshooting Resource Explorer search."]
module SearchInput =
  struct
    type nonrec t =
      {
      queryString: QueryString.t
        [@ocaml.doc
          "A string that includes keywords and filters that specify the resources that you want to include in the results. For the complete syntax supported by the QueryString parameter, see Search query syntax reference for Resource Explorer. The search is completely case insensitive. You can specify an empty string to return all results up to the limit of 1,000 total results. The operation can return only the first 1,000 results. If the resource you want is not included, then use a different value for QueryString to refine the results."];
      maxResults: SearchInputMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results that you want included on each page of the response. If you do not include this parameter, it defaults to a value appropriate to the operation. If additional items exist beyond those included in the current response, the NextToken response element is present and has a value (is not null). Include that value as the NextToken request parameter in the next call to the operation to get the next part of the results. An API operation can return fewer results than the maximum even when there are more results available. You should check NextToken after every operation to ensure that you receive all of the results."];
      viewArn: SearchInputViewArnString.t option
        [@ocaml.doc
          "Specifies the Amazon resource name (ARN) of the view to use for the query. If you don't specify a value for this parameter, then the operation automatically uses the default view for the Amazon Web Services Region in which you called this operation. If the Region either doesn't have a default view or if you don't have permission to use the default view, then the operation fails with a 401 Unauthorized exception."];
      nextToken: SearchInputNextTokenString.t option
        [@ocaml.doc
          "The parameter for receiving additional results if you receive a NextToken response in a previous request. A NextToken response indicates that more output is available. Set this parameter to the value of the previous call's NextToken response to indicate where the output should continue from. The pagination tokens expire after 24 hours."]}
    let context_ = "SearchInput"
    let make ?maxResults =
      fun ?viewArn ->
        fun ?nextToken ->
          fun ~queryString ->
            fun () -> { maxResults; viewArn; nextToken; queryString }
    let to_value x =
      structure_to_value
        [("QueryString", (Some (QueryString.to_value x.queryString)));
        ("MaxResults",
          (Option.map x.maxResults ~f:SearchInputMaxResultsInteger.to_value));
        ("ViewArn",
          (Option.map x.viewArn ~f:SearchInputViewArnString.to_value));
        ("NextToken",
          (Option.map x.nextToken ~f:SearchInputNextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:SearchInputNextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let viewArn =
        (Option.map ~f:SearchInputViewArnString.of_xml)
          (Xml.child xml_arg0 "ViewArn") in
      let maxResults =
        (Option.map ~f:SearchInputMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let queryString =
        QueryString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "QueryString") in
      make ?nextToken ?viewArn ?maxResults ~queryString ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken" SearchInputNextTokenString.of_json in
      let viewArn =
        field_map json__ "ViewArn" SearchInputViewArnString.of_json in
      let maxResults =
        field_map json__ "MaxResults" SearchInputMaxResultsInteger.of_json in
      let queryString =
        field_map_exn json__ "QueryString" QueryString.of_json in
      make ?nextToken ?viewArn ?maxResults ~queryString ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Searches for resources and displays details about all resources that match the specified criteria. You must specify a query string. All search queries must use a view. If you don't explicitly specify a view, then Amazon Web Services Resource Explorer uses the default view for the Amazon Web Services Region in which you call this operation. The results are the logical intersection of the results that match both the QueryString parameter supplied to this operation and the SearchFilter parameter attached to the view. For the complete syntax supported by the QueryString parameter, see Search query syntax reference for Resource Explorer. If your search results are empty, or are missing results that you think should be there, see Troubleshooting Resource Explorer search."]
module ListViewsOutput =
  struct
    type nonrec t =
      {
      views: ViewArnList.t option
        [@ocaml.doc
          "The list of views available in the Amazon Web Services Region in which you called this operation."];
      nextToken: String_.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a subsequent call to the operation to get the next part of the output. You should repeat this until the NextToken response element comes back as null. The pagination tokens expire after 24 hours."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?views = fun ?nextToken -> fun () -> { views; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Views", (Option.map x.views ~f:ViewArnList.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 views =
        (Option.map ~f:ViewArnList.of_xml) (Xml.child xml_arg0 "Views") in
      make ?nextToken ?views ()
    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 views = field_map json__ "Views" ViewArnList.of_json in
      make ?nextToken ?views ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Amazon resource names (ARNs) of the views available in the Amazon Web Services Region in which you call this operation. Always check the NextToken response parameter for a null value when calling a paginated operation. These operations can occasionally return an empty set of results even when there are more results available. The NextToken response parameter value is null only when there are no more results to display."]
module ListViewsInput =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "The parameter for receiving additional results if you receive a NextToken response in a previous request. A NextToken response indicates that more output is available. Set this parameter to the value of the previous call's NextToken response to indicate where the output should continue from. The pagination tokens expire after 24 hours."];
      maxResults: ListViewsInputMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results that you want included on each page of the response. If you do not include this parameter, it defaults to a value appropriate to the operation. If additional items exist beyond those included in the current response, the NextToken response element is present and has a value (is not null). Include that value as the NextToken request parameter in the next call to the operation to get the next part of the results. An API operation can return fewer results than the maximum even when there are more results available. You should check NextToken after every operation to ensure that you receive all of the results."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:ListViewsInputMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListViewsInputMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" ListViewsInputMaxResultsInteger.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Amazon resource names (ARNs) of the views available in the Amazon Web Services Region in which you call this operation. Always check the NextToken response parameter for a null value when calling a paginated operation. These operations can occasionally return an empty set of results even when there are more results available. The NextToken response parameter value is null only when there are no more results to display."]
module ListTagsForResourceOutput =
  struct
    type nonrec t =
      {
      tags: TagMap.t option
        [@ocaml.doc
          "The tag key and value pairs that you want to attach to the specified view or index."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags that are attached to the specified resource."]
module ListTagsForResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon resource name (ARN) of the view or index that you want to attach tags to."]}
    let context_ = "ListTagsForResourceInput"
    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 that are attached to the specified resource."]
module ListSupportedResourceTypesOutput =
  struct
    type nonrec t =
      {
      resourceTypes: ResourceTypeList.t option
        [@ocaml.doc
          "The list of resource types supported by Resource Explorer."];
      nextToken: String_.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a subsequent call to the operation to get the next part of the output. You should repeat this until the NextToken response element comes back as null. The pagination tokens expire after 24 hours."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceTypes =
      fun ?nextToken -> fun () -> { resourceTypes; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ResourceTypes",
           (Option.map x.resourceTypes ~f:ResourceTypeList.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 resourceTypes =
        (Option.map ~f:ResourceTypeList.of_xml)
          (Xml.child xml_arg0 "ResourceTypes") in
      make ?nextToken ?resourceTypes ()
    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 resourceTypes =
        field_map json__ "ResourceTypes" ResourceTypeList.of_json in
      make ?nextToken ?resourceTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of all resource types currently supported by Amazon Web Services Resource Explorer."]
module ListSupportedResourceTypesInput =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "The parameter for receiving additional results if you receive a NextToken response in a previous request. A NextToken response indicates that more output is available. Set this parameter to the value of the previous call's NextToken response to indicate where the output should continue from. The pagination tokens expire after 24 hours."];
      maxResults: ListSupportedResourceTypesInputMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results that you want included on each page of the response. If you do not include this parameter, it defaults to a value appropriate to the operation. If additional items exist beyond those included in the current response, the NextToken response element is present and has a value (is not null). Include that value as the NextToken request parameter in the next call to the operation to get the next part of the results. An API operation can return fewer results than the maximum even when there are more results available. You should check NextToken after every operation to ensure that you receive all of the results."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:ListSupportedResourceTypesInputMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map
           ~f:ListSupportedResourceTypesInputMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults"
          ListSupportedResourceTypesInputMaxResultsInteger.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of all resource types currently supported by Amazon Web Services Resource Explorer."]
module ListStreamingAccessForServicesOutput =
  struct
    type nonrec t =
      {
      streamingAccessForServices: StreamingAccessDetailsList.t option
        [@ocaml.doc
          "A list of Amazon Web Services services that have streaming access to your Resource Explorer data, including details about when the access was granted."];
      nextToken: String_.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a subsequent call to the operation to get the next part of the output. You should repeat this until the NextToken response element comes back as null. The pagination tokens expire after 24 hours."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?streamingAccessForServices =
      fun ?nextToken -> fun () -> { streamingAccessForServices; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("StreamingAccessForServices",
           (Option.map x.streamingAccessForServices
              ~f:StreamingAccessDetailsList.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 streamingAccessForServices =
        (Option.map ~f:StreamingAccessDetailsList.of_xml)
          (Xml.child xml_arg0 "StreamingAccessForServices") in
      make ?nextToken ?streamingAccessForServices ()
    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 streamingAccessForServices =
        field_map json__ "StreamingAccessForServices"
          StreamingAccessDetailsList.of_json in
      make ?nextToken ?streamingAccessForServices ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of Amazon Web Services services that have been granted streaming access to your Resource Explorer data. Streaming access allows Amazon Web Services services to receive real-time updates about your resources as they are indexed by Resource Explorer."]
module ListStreamingAccessForServicesInput =
  struct
    type nonrec t =
      {
      maxResults:
        ListStreamingAccessForServicesInputMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of streaming access entries to return in the response. If there are more results available, the response includes a NextToken value that you can use in a subsequent call to get the next set of results. The value must be between 1 and 50. If you don't specify a value, the default is 50."];
      nextToken: String_.t option
        [@ocaml.doc
          "The parameter for receiving additional results if you receive a NextToken response in a previous request. A NextToken response indicates that more output is available. Set this parameter to the value of the previous call's NextToken response to indicate where the output should continue from. The pagination tokens expire after 24 hours."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults",
           (Option.map x.maxResults
              ~f:ListStreamingAccessForServicesInputMaxResultsInteger.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:ListStreamingAccessForServicesInputMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults =
        field_map json__ "MaxResults"
          ListStreamingAccessForServicesInputMaxResultsInteger.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of Amazon Web Services services that have been granted streaming access to your Resource Explorer data. Streaming access allows Amazon Web Services services to receive real-time updates about your resources as they are indexed by Resource Explorer."]
module ListServiceViewsOutput =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "The pagination token to use in a subsequent ListServiceViews request to retrieve the next set of results."];
      serviceViews: ServiceViewArnList.t option
        [@ocaml.doc
          "A list of Amazon Resource Names (ARNs) for the service views available in the current Amazon Web Services account."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?serviceViews -> fun () -> { nextToken; serviceViews }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("ServiceViews",
          (Option.map x.serviceViews ~f:ServiceViewArnList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceViews =
        (Option.map ~f:ServiceViewArnList.of_xml)
          (Xml.child xml_arg0 "ServiceViews") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?serviceViews ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceViews =
        field_map json__ "ServiceViews" ServiceViewArnList.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      make ?serviceViews ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all Resource Explorer service views available in the current Amazon Web Services account. This operation returns the ARNs of available service views."]
module ListServiceViewsInput =
  struct
    type nonrec t =
      {
      maxResults: ListServiceViewsInputMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of service view results to return in a single response. Valid values are between 1 and 50."];
      nextToken: String_.t option
        [@ocaml.doc
          "The pagination token from a previous ListServiceViews response. Use this token to retrieve the next set of results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults",
           (Option.map x.maxResults
              ~f:ListServiceViewsInputMaxResultsInteger.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:ListServiceViewsInputMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults =
        field_map json__ "MaxResults"
          ListServiceViewsInputMaxResultsInteger.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all Resource Explorer service views available in the current Amazon Web Services account. This operation returns the ARNs of available service views."]
module ListServiceIndexesOutput =
  struct
    type nonrec t =
      {
      indexes: IndexList.t option
        [@ocaml.doc
          "A list of Index objects that describe the Resource Explorer indexes found in the specified Regions."];
      nextToken: String_.t option
        [@ocaml.doc
          "The pagination token to use in a subsequent ListServiceIndexes request to retrieve the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?indexes = fun ?nextToken -> fun () -> { indexes; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Indexes", (Option.map x.indexes ~f:IndexList.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 indexes =
        (Option.map ~f:IndexList.of_xml) (Xml.child xml_arg0 "Indexes") in
      make ?nextToken ?indexes ()
    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 indexes = field_map json__ "Indexes" IndexList.of_json in
      make ?nextToken ?indexes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all Resource Explorer indexes across the specified Amazon Web Services Regions. This operation returns information about indexes including their ARNs, types, and Regions."]
module ListServiceIndexesInput =
  struct
    type nonrec t =
      {
      regions: ListServiceIndexesInputRegionsList.t option
        [@ocaml.doc
          "A list of Amazon Web Services Regions to include in the search for indexes. If not specified, indexes from all Regions are returned."];
      maxResults: ListServiceIndexesInputMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of index results to return in a single response. Valid values are between 1 and 100."];
      nextToken: ListServiceIndexesInputNextTokenString.t option
        [@ocaml.doc
          "The pagination token from a previous ListServiceIndexes response. Use this token to retrieve the next set of results."]}
    let make ?regions =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { regions; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("Regions",
           (Option.map x.regions
              ~f:ListServiceIndexesInputRegionsList.to_value));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:ListServiceIndexesInputMaxResultsInteger.to_value));
        ("NextToken",
          (Option.map x.nextToken
             ~f:ListServiceIndexesInputNextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:ListServiceIndexesInputNextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListServiceIndexesInputMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let regions =
        (Option.map ~f:ListServiceIndexesInputRegionsList.of_xml)
          (Xml.child xml_arg0 "Regions") in
      make ?nextToken ?maxResults ?regions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken"
          ListServiceIndexesInputNextTokenString.of_json in
      let maxResults =
        field_map json__ "MaxResults"
          ListServiceIndexesInputMaxResultsInteger.of_json in
      let regions =
        field_map json__ "Regions" ListServiceIndexesInputRegionsList.of_json in
      make ?nextToken ?maxResults ?regions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all Resource Explorer indexes across the specified Amazon Web Services Regions. This operation returns information about indexes including their ARNs, types, and Regions."]
module ListResourcesOutput =
  struct
    type nonrec t =
      {
      resources: ResourceList.t option
        [@ocaml.doc
          "The list of structures that describe the resources that match the query."];
      nextToken: ListResourcesOutputNextTokenString.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a subsequent call to the operation to get the next part of the output. You should repeat this until the NextToken response element comes back as null. The pagination tokens expire after 24 hours."];
      viewArn: ListResourcesOutputViewArnString.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) of the view that this operation used to perform the search."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resources =
      fun ?nextToken ->
        fun ?viewArn -> fun () -> { resources; nextToken; viewArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Resources", (Option.map x.resources ~f:ResourceList.to_value));
        ("NextToken",
          (Option.map x.nextToken
             ~f:ListResourcesOutputNextTokenString.to_value));
        ("ViewArn",
          (Option.map x.viewArn ~f:ListResourcesOutputViewArnString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let viewArn =
        (Option.map ~f:ListResourcesOutputViewArnString.of_xml)
          (Xml.child xml_arg0 "ViewArn") in
      let nextToken =
        (Option.map ~f:ListResourcesOutputNextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let resources =
        (Option.map ~f:ResourceList.of_xml) (Xml.child xml_arg0 "Resources") in
      make ?viewArn ?nextToken ?resources ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let viewArn =
        field_map json__ "ViewArn" ListResourcesOutputViewArnString.of_json in
      let nextToken =
        field_map json__ "NextToken"
          ListResourcesOutputNextTokenString.of_json in
      let resources = field_map json__ "Resources" ResourceList.of_json in
      make ?viewArn ?nextToken ?resources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of resources and their details that match the specified criteria. This query must use a view. If you don\226\128\153t explicitly specify a view, then Resource Explorer uses the default view for the Amazon Web Services Region in which you call this operation."]
module ListResourcesInput =
  struct
    type nonrec t =
      {
      filters: SearchFilter.t option
        [@ocaml.doc
          "An array of strings that specify which resources are included in the results of queries made using this view. When you use this view in a Search operation, the filter string is combined with the search's QueryString parameter using a logical AND operator. For information about the supported syntax, see Search query reference for Resource Explorer in the Amazon Web Services Resource Explorer User Guide. This query string in the context of this operation supports only filter prefixes with optional operators. It doesn't support free-form text. For example, the string region:us* service:ec2 -tag:stage=prod includes all Amazon EC2 resources in any Amazon Web Services Region that begins with the letters us and is not tagged with a key Stage that has the value prod."];
      maxResults: ListResourcesInputMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results that you want included on each page of the response. If you do not include this parameter, it defaults to a value appropriate to the operation. If additional items exist beyond those included in the current response, the NextToken response element is present and has a value (is not null). Include that value as the NextToken request parameter in the next call to the operation to get the next part of the results. An API operation can return fewer results than the maximum even when there are more results available. You should check NextToken after every operation to ensure that you receive all of the results."];
      viewArn: ListResourcesInputViewArnString.t option
        [@ocaml.doc
          "Specifies the Amazon resource name (ARN) of the view to use for the query. If you don't specify a value for this parameter, then the operation automatically uses the default view for the Amazon Web Services Region in which you called this operation. If the Region either doesn't have a default view or if you don't have permission to use the default view, then the operation fails with a 401 Unauthorized exception."];
      nextToken: ListResourcesInputNextTokenString.t option
        [@ocaml.doc
          "The parameter for receiving additional results if you receive a NextToken response in a previous request. A NextToken response indicates that more output is available. Set this parameter to the value of the previous call's NextToken response to indicate where the output should continue from. The pagination tokens expire after 24 hours. The ListResources operation does not generate a NextToken if you set MaxResults to 1000."]}
    let make ?filters =
      fun ?maxResults ->
        fun ?viewArn ->
          fun ?nextToken ->
            fun () -> { filters; maxResults; viewArn; nextToken }
    let to_value x =
      structure_to_value
        [("Filters", (Option.map x.filters ~f:SearchFilter.to_value));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:ListResourcesInputMaxResultsInteger.to_value));
        ("ViewArn",
          (Option.map x.viewArn ~f:ListResourcesInputViewArnString.to_value));
        ("NextToken",
          (Option.map x.nextToken
             ~f:ListResourcesInputNextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:ListResourcesInputNextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let viewArn =
        (Option.map ~f:ListResourcesInputViewArnString.of_xml)
          (Xml.child xml_arg0 "ViewArn") in
      let maxResults =
        (Option.map ~f:ListResourcesInputMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let filters =
        (Option.map ~f:SearchFilter.of_xml) (Xml.child xml_arg0 "Filters") in
      make ?nextToken ?viewArn ?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"
          ListResourcesInputNextTokenString.of_json in
      let viewArn =
        field_map json__ "ViewArn" ListResourcesInputViewArnString.of_json in
      let maxResults =
        field_map json__ "MaxResults"
          ListResourcesInputMaxResultsInteger.of_json in
      let filters = field_map json__ "Filters" SearchFilter.of_json in
      make ?nextToken ?viewArn ?maxResults ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of resources and their details that match the specified criteria. This query must use a view. If you don\226\128\153t explicitly specify a view, then Resource Explorer uses the default view for the Amazon Web Services Region in which you call this operation."]
module ListManagedViewsOutput =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a subsequent call to the operation to get the next part of the output. You should repeat this until the NextToken response element comes back as null. The pagination tokens expire after 24 hours."];
      managedViews: ManagedViewArnList.t option
        [@ocaml.doc
          "The list of managed views available in the Amazon Web Services Region in which you called this operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?managedViews -> fun () -> { nextToken; managedViews }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("ManagedViews",
          (Option.map x.managedViews ~f:ManagedViewArnList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedViews =
        (Option.map ~f:ManagedViewArnList.of_xml)
          (Xml.child xml_arg0 "ManagedViews") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?managedViews ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedViews =
        field_map json__ "ManagedViews" ManagedViewArnList.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      make ?managedViews ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Amazon resource names (ARNs) of the Amazon Web Services-managed views available in the Amazon Web Services Region in which you call this operation."]
module ListManagedViewsInput =
  struct
    type nonrec t =
      {
      maxResults: ListManagedViewsInputMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results that you want included on each page of the response. If you do not include this parameter, it defaults to a value appropriate to the operation. If additional items exist beyond those included in the current response, the NextToken response element is present and has a value (is not null). Include that value as the NextToken request parameter in the next call to the operation to get the next part of the results. An API operation can return fewer results than the maximum even when there are more results available. You should check NextToken after every operation to ensure that you receive all of the results."];
      nextToken: ListManagedViewsInputNextTokenString.t option
        [@ocaml.doc
          "The parameter for receiving additional results if you receive a NextToken response in a previous request. A NextToken response indicates that more output is available. Set this parameter to the value of the previous call's NextToken response to indicate where the output should continue from. The pagination tokens expire after 24 hours."];
      servicePrincipal: ListManagedViewsInputServicePrincipalString.t option
        [@ocaml.doc
          "Specifies a service principal name. If specified, then the operation only returns the managed views that are managed by the input service."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?servicePrincipal ->
          fun () -> { maxResults; nextToken; servicePrincipal }
    let to_value x =
      structure_to_value
        [("MaxResults",
           (Option.map x.maxResults
              ~f:ListManagedViewsInputMaxResultsInteger.to_value));
        ("NextToken",
          (Option.map x.nextToken
             ~f:ListManagedViewsInputNextTokenString.to_value));
        ("ServicePrincipal",
          (Option.map x.servicePrincipal
             ~f:ListManagedViewsInputServicePrincipalString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let servicePrincipal =
        (Option.map ~f:ListManagedViewsInputServicePrincipalString.of_xml)
          (Xml.child xml_arg0 "ServicePrincipal") in
      let nextToken =
        (Option.map ~f:ListManagedViewsInputNextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListManagedViewsInputMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      make ?servicePrincipal ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let servicePrincipal =
        field_map json__ "ServicePrincipal"
          ListManagedViewsInputServicePrincipalString.of_json in
      let nextToken =
        field_map json__ "NextToken"
          ListManagedViewsInputNextTokenString.of_json in
      let maxResults =
        field_map json__ "MaxResults"
          ListManagedViewsInputMaxResultsInteger.of_json in
      make ?servicePrincipal ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Amazon resource names (ARNs) of the Amazon Web Services-managed views available in the Amazon Web Services Region in which you call this operation."]
module ListIndexesOutput =
  struct
    type nonrec t =
      {
      indexes: IndexList.t option
        [@ocaml.doc
          "A structure that contains the details and status of each index."];
      nextToken: String_.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a subsequent call to the operation to get the next part of the output. You should repeat this until the NextToken response element comes back as null. The pagination tokens expire after 24 hours."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?indexes = fun ?nextToken -> fun () -> { indexes; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Indexes", (Option.map x.indexes ~f:IndexList.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 indexes =
        (Option.map ~f:IndexList.of_xml) (Xml.child xml_arg0 "Indexes") in
      make ?nextToken ?indexes ()
    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 indexes = field_map json__ "Indexes" IndexList.of_json in
      make ?nextToken ?indexes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of all of the indexes in Amazon Web Services Regions that are currently collecting resource information for Amazon Web Services Resource Explorer."]
module ListIndexesInput =
  struct
    type nonrec t =
      {
      type_: IndexType.t option
        [@ocaml.doc
          "If specified, limits the output to only indexes of the specified Type, either LOCAL or AGGREGATOR. Use this option to discover the aggregator index for your account."];
      regions: ListIndexesInputRegionsList.t option
        [@ocaml.doc
          "If specified, limits the response to only information about the index in the specified list of Amazon Web Services Regions."];
      maxResults: ListIndexesInputMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results that you want included on each page of the response. If you do not include this parameter, it defaults to a value appropriate to the operation. If additional items exist beyond those included in the current response, the NextToken response element is present and has a value (is not null). Include that value as the NextToken request parameter in the next call to the operation to get the next part of the results. An API operation can return fewer results than the maximum even when there are more results available. You should check NextToken after every operation to ensure that you receive all of the results."];
      nextToken: ListIndexesInputNextTokenString.t option
        [@ocaml.doc
          "The parameter for receiving additional results if you receive a NextToken response in a previous request. A NextToken response indicates that more output is available. Set this parameter to the value of the previous call's NextToken response to indicate where the output should continue from. The pagination tokens expire after 24 hours."]}
    let make ?type_ =
      fun ?regions ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun () -> { type_; regions; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:IndexType.to_value));
        ("Regions",
          (Option.map x.regions ~f:ListIndexesInputRegionsList.to_value));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:ListIndexesInputMaxResultsInteger.to_value));
        ("NextToken",
          (Option.map x.nextToken ~f:ListIndexesInputNextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:ListIndexesInputNextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListIndexesInputMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let regions =
        (Option.map ~f:ListIndexesInputRegionsList.of_xml)
          (Xml.child xml_arg0 "Regions") in
      let type_ =
        (Option.map ~f:IndexType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?nextToken ?maxResults ?regions ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken" ListIndexesInputNextTokenString.of_json in
      let maxResults =
        field_map json__ "MaxResults"
          ListIndexesInputMaxResultsInteger.of_json in
      let regions =
        field_map json__ "Regions" ListIndexesInputRegionsList.of_json in
      let type_ = field_map json__ "Type" IndexType.of_json in
      make ?nextToken ?maxResults ?regions ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of all of the indexes in Amazon Web Services Regions that are currently collecting resource information for Amazon Web Services Resource Explorer."]
module ListIndexesForMembersOutput =
  struct
    type nonrec t =
      {
      indexes: MemberIndexList.t option
        [@ocaml.doc
          "A structure that contains the details and status of each index."];
      nextToken: String_.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a subsequent call to the operation to get the next part of the output. You should repeat this until the NextToken response element comes back as null. The pagination tokens expire after 24 hours."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?indexes = fun ?nextToken -> fun () -> { indexes; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Indexes", (Option.map x.indexes ~f:MemberIndexList.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 indexes =
        (Option.map ~f:MemberIndexList.of_xml) (Xml.child xml_arg0 "Indexes") in
      make ?nextToken ?indexes ()
    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 indexes = field_map json__ "Indexes" MemberIndexList.of_json in
      make ?nextToken ?indexes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of a member's indexes in all Amazon Web Services Regions that are currently collecting resource information for Amazon Web Services Resource Explorer. Only the management account or a delegated administrator with service access enabled can invoke this API call."]
module ListIndexesForMembersInput =
  struct
    type nonrec t =
      {
      accountIdList: ListIndexesForMembersInputAccountIdListList.t
        [@ocaml.doc
          "The account IDs will limit the output to only indexes from these accounts."];
      maxResults: ListIndexesForMembersInputMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results that you want included on each page of the response. If you do not include this parameter, it defaults to a value appropriate to the operation. If additional items exist beyond those included in the current response, the NextToken response element is present and has a value (is not null). Include that value as the NextToken request parameter in the next call to the operation to get the next part of the results. An API operation can return fewer results than the maximum even when there are more results available. You should check NextToken after every operation to ensure that you receive all of the results."];
      nextToken: ListIndexesForMembersInputNextTokenString.t option
        [@ocaml.doc
          "The parameter for receiving additional results if you receive a NextToken response in a previous request. A NextToken response indicates that more output is available. Set this parameter to the value of the previous call's NextToken response to indicate where the output should continue from. The pagination tokens expire after 24 hours."]}
    let context_ = "ListIndexesForMembersInput"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~accountIdList ->
          fun () -> { maxResults; nextToken; accountIdList }
    let to_value x =
      structure_to_value
        [("AccountIdList",
           (Some
              (ListIndexesForMembersInputAccountIdListList.to_value
                 x.accountIdList)));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:ListIndexesForMembersInputMaxResultsInteger.to_value));
        ("NextToken",
          (Option.map x.nextToken
             ~f:ListIndexesForMembersInputNextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:ListIndexesForMembersInputNextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListIndexesForMembersInputMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let accountIdList =
        ListIndexesForMembersInputAccountIdListList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AccountIdList") in
      make ?nextToken ?maxResults ~accountIdList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken"
          ListIndexesForMembersInputNextTokenString.of_json in
      let maxResults =
        field_map json__ "MaxResults"
          ListIndexesForMembersInputMaxResultsInteger.of_json in
      let accountIdList =
        field_map_exn json__ "AccountIdList"
          ListIndexesForMembersInputAccountIdListList.of_json in
      make ?nextToken ?maxResults ~accountIdList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of a member's indexes in all Amazon Web Services Regions that are currently collecting resource information for Amazon Web Services Resource Explorer. Only the management account or a delegated administrator with service access enabled can invoke this API call."]
module GetViewOutput =
  struct
    type nonrec t =
      {
      view: View.t option
        [@ocaml.doc
          "A structure that contains the details for the requested view."];
      tags: TagMap.t option
        [@ocaml.doc "Tag key and value pairs that are attached to the view."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?view = fun ?tags -> fun () -> { view; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("View", (Option.map x.view ~f:View.to_value));
        ("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      let view = (Option.map ~f:View.of_xml) (Xml.child xml_arg0 "View") in
      make ?tags ?view ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagMap.of_json in
      let view = field_map json__ "View" View.of_json in make ?tags ?view ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details of the specified view."]
module GetViewInput =
  struct
    type nonrec t =
      {
      viewArn: GetViewInputViewArnString.t
        [@ocaml.doc
          "The Amazon resource name (ARN) of the view that you want information about."]}
    let context_ = "GetViewInput"
    let make ~viewArn = fun () -> { viewArn }
    let to_value x =
      structure_to_value
        [("ViewArn", (Some (GetViewInputViewArnString.to_value x.viewArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let viewArn =
        GetViewInputViewArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ViewArn") in
      make ~viewArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let viewArn =
        field_map_exn json__ "ViewArn" GetViewInputViewArnString.of_json in
      make ~viewArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details of the specified view."]
module GetServiceViewOutput =
  struct
    type nonrec t =
      {
      view: ServiceView.t option
        [@ocaml.doc
          "A ServiceView object that contains the details and configuration of the requested service view."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?view = fun () -> { view }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("View", (Option.map x.view ~f:ServiceView.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let view =
        (Option.map ~f:ServiceView.of_xml) (Xml.child xml_arg0 "View") in
      make ?view ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let view = field_map json__ "View" ServiceView.of_json in make ?view ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details about a specific Resource Explorer service view. This operation returns the configuration and properties of the specified view."]
module GetServiceViewInput =
  struct
    type nonrec t =
      {
      serviceViewArn: GetServiceViewInputServiceViewArnString.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the service view to retrieve details for."]}
    let context_ = "GetServiceViewInput"
    let make ~serviceViewArn = fun () -> { serviceViewArn }
    let to_value x =
      structure_to_value
        [("ServiceViewArn",
           (Some
              (GetServiceViewInputServiceViewArnString.to_value
                 x.serviceViewArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceViewArn =
        GetServiceViewInputServiceViewArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceViewArn") in
      make ~serviceViewArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceViewArn =
        field_map_exn json__ "ServiceViewArn"
          GetServiceViewInputServiceViewArnString.of_json in
      make ~serviceViewArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details about a specific Resource Explorer service view. This operation returns the configuration and properties of the specified view."]
module GetServiceIndexOutput =
  struct
    type nonrec t =
      {
      arn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Resource Explorer index in the current Region."];
      type_: IndexType.t option
        [@ocaml.doc
          "The type of the index. Valid values are LOCAL (contains resources from the current Region only) or AGGREGATOR (contains replicated resource information from all Regions)."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn = fun ?type_ -> fun () -> { arn; type_ }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:String_.to_value));
        ("Type", (Option.map x.type_ ~f:IndexType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:IndexType.of_xml) (Xml.child xml_arg0 "Type") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?type_ ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" IndexType.of_json in
      let arn = field_map json__ "Arn" String_.of_json in make ?type_ ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the Resource Explorer index in the current Amazon Web Services Region. This operation returns the ARN and type of the index if one exists."]
module GetResourceExplorerSetupOutput =
  struct
    type nonrec t =
      {
      regions: RegionStatusList.t option
        [@ocaml.doc
          "A list of Region status objects that describe the current state of Resource Explorer configuration in each Region."];
      nextToken: GetResourceExplorerSetupOutputNextTokenString.t option
        [@ocaml.doc
          "The pagination token to use in a subsequent GetResourceExplorerSetup request to retrieve the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?regions = fun ?nextToken -> fun () -> { regions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Regions", (Option.map x.regions ~f:RegionStatusList.to_value));
        ("NextToken",
          (Option.map x.nextToken
             ~f:GetResourceExplorerSetupOutputNextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:GetResourceExplorerSetupOutputNextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let regions =
        (Option.map ~f:RegionStatusList.of_xml)
          (Xml.child xml_arg0 "Regions") in
      make ?nextToken ?regions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken"
          GetResourceExplorerSetupOutputNextTokenString.of_json in
      let regions = field_map json__ "Regions" RegionStatusList.of_json in
      make ?nextToken ?regions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the status and details of a Resource Explorer setup operation. This operation returns information about the progress of creating or deleting Resource Explorer configurations across Regions."]
module GetResourceExplorerSetupInput =
  struct
    type nonrec t =
      {
      taskId: GetResourceExplorerSetupInputTaskIdString.t
        [@ocaml.doc
          "The unique identifier of the setup task to retrieve status information for. This ID is returned by CreateResourceExplorerSetup or DeleteResourceExplorerSetup operations."];
      maxResults: GetResourceExplorerSetupInputMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of Region status results to return in a single response. Valid values are between 1 and 100."];
      nextToken: GetResourceExplorerSetupInputNextTokenString.t option
        [@ocaml.doc
          "The pagination token from a previous GetResourceExplorerSetup response. Use this token to retrieve the next set of results."]}
    let context_ = "GetResourceExplorerSetupInput"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~taskId -> fun () -> { maxResults; nextToken; taskId }
    let to_value x =
      structure_to_value
        [("TaskId",
           (Some
              (GetResourceExplorerSetupInputTaskIdString.to_value x.taskId)));
        ("MaxResults",
          (Option.map x.maxResults
             ~f:GetResourceExplorerSetupInputMaxResultsInteger.to_value));
        ("NextToken",
          (Option.map x.nextToken
             ~f:GetResourceExplorerSetupInputNextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:GetResourceExplorerSetupInputNextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:GetResourceExplorerSetupInputMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let taskId =
        GetResourceExplorerSetupInputTaskIdString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TaskId") in
      make ?nextToken ?maxResults ~taskId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "NextToken"
          GetResourceExplorerSetupInputNextTokenString.of_json in
      let maxResults =
        field_map json__ "MaxResults"
          GetResourceExplorerSetupInputMaxResultsInteger.of_json in
      let taskId =
        field_map_exn json__ "TaskId"
          GetResourceExplorerSetupInputTaskIdString.of_json in
      make ?nextToken ?maxResults ~taskId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the status and details of a Resource Explorer setup operation. This operation returns information about the progress of creating or deleting Resource Explorer configurations across Regions."]
module GetManagedViewOutput =
  struct
    type nonrec t =
      {
      managedView: ManagedView.t option
        [@ocaml.doc "Details about the specified managed view."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?managedView = fun () -> { managedView }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("ManagedView", (Option.map x.managedView ~f:ManagedView.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedView =
        (Option.map ~f:ManagedView.of_xml) (Xml.child xml_arg0 "ManagedView") in
      make ?managedView ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedView = field_map json__ "ManagedView" ManagedView.of_json in
      make ?managedView ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details of the specified Amazon Web Services-managed view."]
module GetManagedViewInput =
  struct
    type nonrec t =
      {
      managedViewArn: GetManagedViewInputManagedViewArnString.t
        [@ocaml.doc "The Amazon resource name (ARN) of the managed view."]}
    let context_ = "GetManagedViewInput"
    let make ~managedViewArn = fun () -> { managedViewArn }
    let to_value x =
      structure_to_value
        [("ManagedViewArn",
           (Some
              (GetManagedViewInputManagedViewArnString.to_value
                 x.managedViewArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let managedViewArn =
        GetManagedViewInputManagedViewArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ManagedViewArn") in
      make ~managedViewArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let managedViewArn =
        field_map_exn json__ "ManagedViewArn"
          GetManagedViewInputManagedViewArnString.of_json in
      make ~managedViewArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details of the specified Amazon Web Services-managed view."]
module GetIndexOutput =
  struct
    type nonrec t =
      {
      arn: String_.t option
        [@ocaml.doc "The Amazon resource name (ARN) of the index."];
      type_: IndexType.t option
        [@ocaml.doc
          "The type of the index in this Region. For information about the aggregator index and how it differs from a local index, see Turning on cross-Region search by creating an aggregator index."];
      state: IndexState.t option
        [@ocaml.doc
          "The current state of the index in this Amazon Web Services Region."];
      replicatingFrom: RegionList.t option
        [@ocaml.doc
          "This response value is present only if this index is Type=AGGREGATOR. A list of the Amazon Web Services Regions that replicate their content to the index in this Region."];
      replicatingTo: RegionList.t option
        [@ocaml.doc
          "This response value is present only if this index is Type=LOCAL. The Amazon Web Services Region that contains the aggregator index, if one exists. If an aggregator index does exist then the Region in which you called this operation replicates its index information to the Region specified in this response value."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time when the index was originally created."];
      lastUpdatedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time when the index was last updated."];
      tags: TagMap.t option
        [@ocaml.doc
          "Tag key and value pairs that are attached to the index."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?type_ ->
        fun ?state ->
          fun ?replicatingFrom ->
            fun ?replicatingTo ->
              fun ?createdAt ->
                fun ?lastUpdatedAt ->
                  fun ?tags ->
                    fun () ->
                      {
                        arn;
                        type_;
                        state;
                        replicatingFrom;
                        replicatingTo;
                        createdAt;
                        lastUpdatedAt;
                        tags
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:String_.to_value));
        ("Type", (Option.map x.type_ ~f:IndexType.to_value));
        ("State", (Option.map x.state ~f:IndexState.to_value));
        ("ReplicatingFrom",
          (Option.map x.replicatingFrom ~f:RegionList.to_value));
        ("ReplicatingTo",
          (Option.map x.replicatingTo ~f:RegionList.to_value));
        ("CreatedAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("LastUpdatedAt",
          (Option.map x.lastUpdatedAt
             ~f:SyntheticTimestamp_date_time.to_value));
        ("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      let lastUpdatedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "LastUpdatedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      let replicatingTo =
        (Option.map ~f:RegionList.of_xml)
          (Xml.child xml_arg0 "ReplicatingTo") in
      let replicatingFrom =
        (Option.map ~f:RegionList.of_xml)
          (Xml.child xml_arg0 "ReplicatingFrom") in
      let state =
        (Option.map ~f:IndexState.of_xml) (Xml.child xml_arg0 "State") in
      let type_ =
        (Option.map ~f:IndexType.of_xml) (Xml.child xml_arg0 "Type") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?tags ?lastUpdatedAt ?createdAt ?replicatingTo ?replicatingFrom
        ?state ?type_ ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagMap.of_json in
      let lastUpdatedAt =
        field_map json__ "LastUpdatedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "CreatedAt" SyntheticTimestamp_date_time.of_json in
      let replicatingTo = field_map json__ "ReplicatingTo" RegionList.of_json in
      let replicatingFrom =
        field_map json__ "ReplicatingFrom" RegionList.of_json in
      let state = field_map json__ "State" IndexState.of_json in
      let type_ = field_map json__ "Type" IndexType.of_json in
      let arn = field_map json__ "Arn" String_.of_json in
      make ?tags ?lastUpdatedAt ?createdAt ?replicatingTo ?replicatingFrom
        ?state ?type_ ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details about the Amazon Web Services Resource Explorer index in the Amazon Web Services Region in which you invoked the operation."]
module GetDefaultViewOutput =
  struct
    type nonrec t =
      {
      viewArn: String_.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) of the view that is the current default for the Amazon Web Services Region in which you called this operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?viewArn = fun () -> { viewArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ViewArn", (Option.map x.viewArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let viewArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ViewArn") in
      make ?viewArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let viewArn = field_map json__ "ViewArn" String_.of_json in
      make ?viewArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the Amazon Resource Name (ARN) of the view that is the default for the Amazon Web Services Region in which you call this operation. You can then call GetView to retrieve the details of that view."]
module GetAccountLevelServiceConfigurationOutput =
  struct
    type nonrec t =
      {
      orgConfiguration: OrgConfiguration.t option
        [@ocaml.doc
          "Details about the organization, and whether configuration is ENABLED or DISABLED."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?orgConfiguration = fun () -> { orgConfiguration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `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
        [("OrgConfiguration",
           (Option.map x.orgConfiguration ~f:OrgConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let orgConfiguration =
        (Option.map ~f:OrgConfiguration.of_xml)
          (Xml.child xml_arg0 "OrgConfiguration") in
      make ?orgConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let orgConfiguration =
        field_map json__ "OrgConfiguration" OrgConfiguration.of_json in
      make ?orgConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the status of your account's Amazon Web Services service access, and validates the service linked role required to access the multi-account search feature. Only the management account can invoke this API call."]
module DeleteViewOutput =
  struct
    type nonrec t =
      {
      viewArn: String_.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) of the view that you successfully deleted."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?viewArn = fun () -> { viewArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("ViewArn", (Option.map x.viewArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let viewArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ViewArn") in
      make ?viewArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let viewArn = field_map json__ "ViewArn" String_.of_json in
      make ?viewArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified view. If the specified view is the default view for its Amazon Web Services Region, then all Search operations in that Region must explicitly specify the view to use until you configure a new default by calling the AssociateDefaultView operation."]
module DeleteViewInput =
  struct
    type nonrec t =
      {
      viewArn: DeleteViewInputViewArnString.t
        [@ocaml.doc
          "The Amazon resource name (ARN) of the view that you want to delete."]}
    let context_ = "DeleteViewInput"
    let make ~viewArn = fun () -> { viewArn }
    let to_value x =
      structure_to_value
        [("ViewArn",
           (Some (DeleteViewInputViewArnString.to_value x.viewArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let viewArn =
        DeleteViewInputViewArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ViewArn") in
      make ~viewArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let viewArn =
        field_map_exn json__ "ViewArn" DeleteViewInputViewArnString.of_json in
      make ~viewArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified view. If the specified view is the default view for its Amazon Web Services Region, then all Search operations in that Region must explicitly specify the view to use until you configure a new default by calling the AssociateDefaultView operation."]
module DeleteResourceExplorerSetupOutput =
  struct
    type nonrec t =
      {
      taskId: DeleteResourceExplorerSetupOutputTaskIdString.t option
        [@ocaml.doc
          "The unique identifier for the deletion task. Use this ID with GetResourceExplorerSetup to monitor the progress of the deletion operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?taskId = fun () -> { taskId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("TaskId",
           (Option.map x.taskId
              ~f:DeleteResourceExplorerSetupOutputTaskIdString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taskId =
        (Option.map ~f:DeleteResourceExplorerSetupOutputTaskIdString.of_xml)
          (Xml.child xml_arg0 "TaskId") in
      make ?taskId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taskId =
        field_map json__ "TaskId"
          DeleteResourceExplorerSetupOutputTaskIdString.of_json in
      make ?taskId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a Resource Explorer setup configuration. This operation removes indexes and views from the specified Regions or all Regions where Resource Explorer is configured."]
module DeleteResourceExplorerSetupInput =
  struct
    type nonrec t =
      {
      regionList: RegionList.t option
        [@ocaml.doc
          "A list of Amazon Web Services Regions from which to delete the Resource Explorer configuration. If not specified, the operation uses the DeleteInAllRegions parameter to determine scope."];
      deleteInAllRegions: Boolean.t option
        [@ocaml.doc
          "Specifies whether to delete Resource Explorer configuration from all Regions where it is currently enabled. If this parameter is set to true, a value for RegionList must not be provided. Otherwise, the operation fails with a ValidationException error."]}
    let make ?regionList =
      fun ?deleteInAllRegions -> fun () -> { regionList; deleteInAllRegions }
    let to_value x =
      structure_to_value
        [("RegionList", (Option.map x.regionList ~f:RegionList.to_value));
        ("DeleteInAllRegions",
          (Option.map x.deleteInAllRegions ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deleteInAllRegions =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DeleteInAllRegions") in
      let regionList =
        (Option.map ~f:RegionList.of_xml) (Xml.child xml_arg0 "RegionList") in
      make ?deleteInAllRegions ?regionList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deleteInAllRegions =
        field_map json__ "DeleteInAllRegions" Boolean.of_json in
      let regionList = field_map json__ "RegionList" RegionList.of_json in
      make ?deleteInAllRegions ?regionList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a Resource Explorer setup configuration. This operation removes indexes and views from the specified Regions or all Regions where Resource Explorer is configured."]
module DeleteIndexOutput =
  struct
    type nonrec t =
      {
      arn: String_.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) of the index that you successfully started the deletion process. This operation is asynchronous. To check its status, call the GetIndex operation."];
      state: IndexState.t option
        [@ocaml.doc "Indicates the current state of the index."];
      lastUpdatedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and time when you last updated this index."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?state ->
        fun ?lastUpdatedAt -> fun () -> { arn; state; lastUpdatedAt }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:String_.to_value));
        ("State", (Option.map x.state ~f:IndexState.to_value));
        ("LastUpdatedAt",
          (Option.map x.lastUpdatedAt
             ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "LastUpdatedAt") in
      let state =
        (Option.map ~f:IndexState.of_xml) (Xml.child xml_arg0 "State") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?lastUpdatedAt ?state ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt =
        field_map json__ "LastUpdatedAt" SyntheticTimestamp_date_time.of_json in
      let state = field_map json__ "State" IndexState.of_json in
      let arn = field_map json__ "Arn" String_.of_json in
      make ?lastUpdatedAt ?state ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified index and turns off Amazon Web Services Resource Explorer in the specified Amazon Web Services Region. When you delete an index, Resource Explorer stops discovering and indexing resources in that Region. Resource Explorer also deletes all views in that Region. These actions occur as asynchronous background tasks. You can check to see when the actions are complete by using the GetIndex operation and checking the Status response value. If the index you delete is the aggregator index for the Amazon Web Services account, you must wait 24 hours before you can promote another local index to be the aggregator index for the account. Users can't perform account-wide searches using Resource Explorer until another aggregator index is configured."]
module DeleteIndexInput =
  struct
    type nonrec t =
      {
      arn: String_.t
        [@ocaml.doc
          "The Amazon resource name (ARN) of the index that you want to delete."]}
    let context_ = "DeleteIndexInput"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("Arn", (Some (String_.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "Arn" String_.of_json in make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified index and turns off Amazon Web Services Resource Explorer in the specified Amazon Web Services Region. When you delete an index, Resource Explorer stops discovering and indexing resources in that Region. Resource Explorer also deletes all views in that Region. These actions occur as asynchronous background tasks. You can check to see when the actions are complete by using the GetIndex operation and checking the Status response value. If the index you delete is the aggregator index for the Amazon Web Services account, you must wait 24 hours before you can promote another local index to be the aggregator index for the account. Users can't perform account-wide searches using Resource Explorer until another aggregator index is configured."]
module CreateViewOutput =
  struct
    type nonrec t =
      {
      view: View.t option
        [@ocaml.doc
          "A structure that contains the details about the new view."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?view = fun () -> { view }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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 [("View", (Option.map x.view ~f:View.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let view = (Option.map ~f:View.of_xml) (Xml.child xml_arg0 "View") in
      make ?view ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let view = field_map json__ "View" View.of_json in make ?view ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a view that users can query by using the Search operation. Results from queries that you make using this view include only resources that match the view's Filters. For more information about Amazon Web Services Resource Explorer views, see Managing views in the Amazon Web Services Resource Explorer User Guide. Only the principals with an IAM identity-based policy that grants Allow to the Search action on a Resource with the Amazon resource name (ARN) of this view can Search using views you create with this operation."]
module CreateViewInput =
  struct
    type nonrec t =
      {
      clientToken: CreateViewInputClientTokenString.t option
        [@ocaml.doc
          "This value helps ensure idempotency. Resource Explorer uses this value to prevent the accidental creation of duplicate versions. We recommend that you generate a UUID-type value to ensure the uniqueness of your views."];
      viewName: ViewName.t
        [@ocaml.doc
          "The name of the new view. This name appears in the list of views in Resource Explorer. The name must be no more than 64 characters long, and can include letters, digits, and the dash (-) character. The name must be unique within its Amazon Web Services Region."];
      includedProperties: IncludedPropertyList.t option
        [@ocaml.doc
          "Specifies optional fields that you want included in search results from this view. It is a list of objects that each describe a field to include. The default is an empty list, with no optional fields included in the results."];
      scope: CreateViewInputScopeString.t option
        [@ocaml.doc
          "The root ARN of the account, an organizational unit (OU), or an organization ARN. If left empty, the default is account."];
      filters: SearchFilter.t option
        [@ocaml.doc
          "An array of strings that specify which resources are included in the results of queries made using this view. When you use this view in a Search operation, the filter string is combined with the search's QueryString parameter using a logical AND operator. For information about the supported syntax, see Search query reference for Resource Explorer in the Amazon Web Services Resource Explorer User Guide. This query string in the context of this operation supports only filter prefixes with optional operators. It doesn't support free-form text. For example, the string region:us* service:ec2 -tag:stage=prod includes all Amazon EC2 resources in any Amazon Web Services Region that begins with the letters us and is not tagged with a key Stage that has the value prod."];
      tags: TagMap.t option
        [@ocaml.doc "Tag key and value pairs that are attached to the view."]}
    let context_ = "CreateViewInput"
    let make ?clientToken =
      fun ?includedProperties ->
        fun ?scope ->
          fun ?filters ->
            fun ?tags ->
              fun ~viewName ->
                fun () ->
                  {
                    clientToken;
                    includedProperties;
                    scope;
                    filters;
                    tags;
                    viewName
                  }
    let to_value x =
      structure_to_value
        [("ClientToken",
           (Option.map x.clientToken
              ~f:CreateViewInputClientTokenString.to_value));
        ("ViewName", (Some (ViewName.to_value x.viewName)));
        ("IncludedProperties",
          (Option.map x.includedProperties ~f:IncludedPropertyList.to_value));
        ("Scope",
          (Option.map x.scope ~f:CreateViewInputScopeString.to_value));
        ("Filters", (Option.map x.filters ~f:SearchFilter.to_value));
        ("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      let filters =
        (Option.map ~f:SearchFilter.of_xml) (Xml.child xml_arg0 "Filters") in
      let scope =
        (Option.map ~f:CreateViewInputScopeString.of_xml)
          (Xml.child xml_arg0 "Scope") in
      let includedProperties =
        (Option.map ~f:IncludedPropertyList.of_xml)
          (Xml.child xml_arg0 "IncludedProperties") in
      let viewName =
        ViewName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ViewName") in
      let clientToken =
        (Option.map ~f:CreateViewInputClientTokenString.of_xml)
          (Xml.child xml_arg0 "ClientToken") in
      make ?tags ?filters ?scope ?includedProperties ~viewName ?clientToken
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagMap.of_json in
      let filters = field_map json__ "Filters" SearchFilter.of_json in
      let scope = field_map json__ "Scope" CreateViewInputScopeString.of_json in
      let includedProperties =
        field_map json__ "IncludedProperties" IncludedPropertyList.of_json in
      let viewName = field_map_exn json__ "ViewName" ViewName.of_json in
      let clientToken =
        field_map json__ "ClientToken"
          CreateViewInputClientTokenString.of_json in
      make ?tags ?filters ?scope ?includedProperties ~viewName ?clientToken
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a view that users can query by using the Search operation. Results from queries that you make using this view include only resources that match the view's Filters. For more information about Amazon Web Services Resource Explorer views, see Managing views in the Amazon Web Services Resource Explorer User Guide. Only the principals with an IAM identity-based policy that grants Allow to the Search action on a Resource with the Amazon resource name (ARN) of this view can Search using views you create with this operation."]
module CreateResourceExplorerSetupOutput =
  struct
    type nonrec t =
      {
      taskId: CreateResourceExplorerSetupOutputTaskIdString.t option
        [@ocaml.doc
          "The unique identifier for the setup task. Use this ID with GetResourceExplorerSetup to monitor the progress of the configuration operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?taskId = fun () -> { taskId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("TaskId",
           (Option.map x.taskId
              ~f:CreateResourceExplorerSetupOutputTaskIdString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taskId =
        (Option.map ~f:CreateResourceExplorerSetupOutputTaskIdString.of_xml)
          (Xml.child xml_arg0 "TaskId") in
      make ?taskId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taskId =
        field_map json__ "TaskId"
          CreateResourceExplorerSetupOutputTaskIdString.of_json in
      make ?taskId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Resource Explorer setup configuration across multiple Amazon Web Services Regions. This operation sets up indexes and views in the specified Regions. This operation can also be used to set an aggregator Region for cross-Region resource search."]
module CreateResourceExplorerSetupInput =
  struct
    type nonrec t =
      {
      regionList: CreateResourceExplorerSetupInputRegionListList.t
        [@ocaml.doc
          "A list of Amazon Web Services Regions where Resource Explorer should be configured. Each Region in the list will have a user-owned index created."];
      aggregatorRegions:
        CreateResourceExplorerSetupInputAggregatorRegionsList.t option
        [@ocaml.doc
          "A list of Amazon Web Services Regions that should be configured as aggregator Regions. Aggregator Regions receive replicated index information from all other Regions where there is a user-owned index."];
      viewName: CreateResourceExplorerSetupInputViewNameString.t
        [@ocaml.doc
          "The name for the view to be created as part of the Resource Explorer setup. The view name must be unique within the Amazon Web Services account and Region."]}
    let context_ = "CreateResourceExplorerSetupInput"
    let make ?aggregatorRegions =
      fun ~regionList ->
        fun ~viewName ->
          fun () -> { aggregatorRegions; regionList; viewName }
    let to_value x =
      structure_to_value
        [("RegionList",
           (Some
              (CreateResourceExplorerSetupInputRegionListList.to_value
                 x.regionList)));
        ("AggregatorRegions",
          (Option.map x.aggregatorRegions
             ~f:CreateResourceExplorerSetupInputAggregatorRegionsList.to_value));
        ("ViewName",
          (Some
             (CreateResourceExplorerSetupInputViewNameString.to_value
                x.viewName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let viewName =
        CreateResourceExplorerSetupInputViewNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ViewName") in
      let aggregatorRegions =
        (Option.map
           ~f:CreateResourceExplorerSetupInputAggregatorRegionsList.of_xml)
          (Xml.child xml_arg0 "AggregatorRegions") in
      let regionList =
        CreateResourceExplorerSetupInputRegionListList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegionList") in
      make ~viewName ?aggregatorRegions ~regionList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let viewName =
        field_map_exn json__ "ViewName"
          CreateResourceExplorerSetupInputViewNameString.of_json in
      let aggregatorRegions =
        field_map json__ "AggregatorRegions"
          CreateResourceExplorerSetupInputAggregatorRegionsList.of_json in
      let regionList =
        field_map_exn json__ "RegionList"
          CreateResourceExplorerSetupInputRegionListList.of_json in
      make ~viewName ?aggregatorRegions ~regionList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Resource Explorer setup configuration across multiple Amazon Web Services Regions. This operation sets up indexes and views in the specified Regions. This operation can also be used to set an aggregator Region for cross-Region resource search."]
module CreateIndexOutput =
  struct
    type nonrec t =
      {
      arn: String_.t option
        [@ocaml.doc
          "The ARN of the new local index for the Region. You can reference this ARN in IAM permission policies to authorize the following operations: DeleteIndex | GetIndex | UpdateIndexType | CreateView"];
      state: IndexState.t option
        [@ocaml.doc
          "Indicates the current state of the index. You can check for changes to the state for asynchronous operations by calling the GetIndex operation. The state can remain in the CREATING or UPDATING state for several hours as Resource Explorer discovers the information about your resources and populates the index."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The date and timestamp when the index was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?state -> fun ?createdAt -> fun () -> { arn; state; createdAt }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:String_.to_value));
        ("State", (Option.map x.state ~f:IndexState.to_value));
        ("CreatedAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      let state =
        (Option.map ~f:IndexState.of_xml) (Xml.child xml_arg0 "State") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?createdAt ?state ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt =
        field_map json__ "CreatedAt" SyntheticTimestamp_date_time.of_json in
      let state = field_map json__ "State" IndexState.of_json in
      let arn = field_map json__ "Arn" String_.of_json in
      make ?createdAt ?state ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Turns on Amazon Web Services Resource Explorer in the Amazon Web Services Region in which you called this operation by creating an index. Resource Explorer begins discovering the resources in this Region and stores the details about the resources in the index so that they can be queried by using the Search operation. You can create only one index in a Region. This operation creates only a local index. To promote the local index in one Amazon Web Services Region into the aggregator index for the Amazon Web Services account, use the UpdateIndexType operation. For more information, see Turning on cross-Region search by creating an aggregator index in the Amazon Web Services Resource Explorer User Guide. For more details about what happens when you turn on Resource Explorer in an Amazon Web Services Region, see Turn on Resource Explorer to index your resources in an Amazon Web Services Region in the Amazon Web Services Resource Explorer User Guide. If this is the first Amazon Web Services Region in which you've created an index for Resource Explorer, then this operation also creates a service-linked role in your Amazon Web Services account that allows Resource Explorer to enumerate your resources to populate the index. Action: resource-explorer-2:CreateIndex Resource: The ARN of the index (as it will exist after the operation completes) in the Amazon Web Services Region and account in which you're trying to create the index. Use the wildcard character (*) at the end of the string to match the eventual UUID. For example, the following Resource element restricts the role or user to creating an index in only the us-east-2 Region of the specified account. \"Resource\": \"arn:aws:resource-explorer-2:us-west-2:<account-id>:index/*\" Alternatively, you can use \"Resource\": \"*\" to allow the role or user to create an index in any Region. Action: iam:CreateServiceLinkedRole Resource: No specific resource (*). This permission is required only the first time you create an index to turn on Resource Explorer in the account. Resource Explorer uses this to create the service-linked role needed to index the resources in your account. Resource Explorer uses the same service-linked role for all additional indexes you create afterwards."]
module CreateIndexInput =
  struct
    type nonrec t =
      {
      clientToken: String_.t option
        [@ocaml.doc
          "This value helps ensure idempotency. Resource Explorer uses this value to prevent the accidental creation of duplicate versions. We recommend that you generate a UUID-type value to ensure the uniqueness of your index."];
      tags: TagMap.t option
        [@ocaml.doc
          "The specified tags are attached only to the index created in this Amazon Web Services Region. The tags aren't attached to any of the resources listed in the index."]}
    let make ?clientToken = fun ?tags -> fun () -> { clientToken; tags }
    let to_value x =
      structure_to_value
        [("ClientToken", (Option.map x.clientToken ~f:String_.to_value));
        ("Tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "Tags") in
      let clientToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ClientToken") in
      make ?tags ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagMap.of_json in
      let clientToken = field_map json__ "ClientToken" String_.of_json in
      make ?tags ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Turns on Amazon Web Services Resource Explorer in the Amazon Web Services Region in which you called this operation by creating an index. Resource Explorer begins discovering the resources in this Region and stores the details about the resources in the index so that they can be queried by using the Search operation. You can create only one index in a Region. This operation creates only a local index. To promote the local index in one Amazon Web Services Region into the aggregator index for the Amazon Web Services account, use the UpdateIndexType operation. For more information, see Turning on cross-Region search by creating an aggregator index in the Amazon Web Services Resource Explorer User Guide. For more details about what happens when you turn on Resource Explorer in an Amazon Web Services Region, see Turn on Resource Explorer to index your resources in an Amazon Web Services Region in the Amazon Web Services Resource Explorer User Guide. If this is the first Amazon Web Services Region in which you've created an index for Resource Explorer, then this operation also creates a service-linked role in your Amazon Web Services account that allows Resource Explorer to enumerate your resources to populate the index. Action: resource-explorer-2:CreateIndex Resource: The ARN of the index (as it will exist after the operation completes) in the Amazon Web Services Region and account in which you're trying to create the index. Use the wildcard character (*) at the end of the string to match the eventual UUID. For example, the following Resource element restricts the role or user to creating an index in only the us-east-2 Region of the specified account. \"Resource\": \"arn:aws:resource-explorer-2:us-west-2:<account-id>:index/*\" Alternatively, you can use \"Resource\": \"*\" to allow the role or user to create an index in any Region. Action: iam:CreateServiceLinkedRole Resource: No specific resource (*). This permission is required only the first time you create an index to turn on Resource Explorer in the account. Resource Explorer uses this to create the service-linked role needed to index the resources in your account. Resource Explorer uses the same service-linked role for all additional indexes you create afterwards."]
module BatchGetViewOutput =
  struct
    type nonrec t =
      {
      views: ViewList.t option
        [@ocaml.doc
          "A structure with a list of objects with details for each of the specified views."];
      errors: BatchGetViewErrors.t option
        [@ocaml.doc
          "If any of the specified ARNs result in an error, then this structure describes the error."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?views = fun ?errors -> fun () -> { views; errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Views", (Option.map x.views ~f:ViewList.to_value));
        ("Errors", (Option.map x.errors ~f:BatchGetViewErrors.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchGetViewErrors.of_xml)
          (Xml.child xml_arg0 "Errors") in
      let views =
        (Option.map ~f:ViewList.of_xml) (Xml.child xml_arg0 "Views") in
      make ?errors ?views ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors = field_map json__ "Errors" BatchGetViewErrors.of_json in
      let views = field_map json__ "Views" ViewList.of_json in
      make ?errors ?views ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details about a list of views."]
module BatchGetViewInput =
  struct
    type nonrec t =
      {
      viewArns: BatchGetViewInputViewArnsList.t option
        [@ocaml.doc
          "A list of Amazon resource names (ARNs) that identify the views you want details for."]}
    let make ?viewArns = fun () -> { viewArns }
    let to_value x =
      structure_to_value
        [("ViewArns",
           (Option.map x.viewArns ~f:BatchGetViewInputViewArnsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let viewArns =
        (Option.map ~f:BatchGetViewInputViewArnsList.of_xml)
          (Xml.child xml_arg0 "ViewArns") in
      make ?viewArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let viewArns =
        field_map json__ "ViewArns" BatchGetViewInputViewArnsList.of_json in
      make ?viewArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details about a list of views."]
module AssociateDefaultViewOutput =
  struct
    type nonrec t =
      {
      viewArn: String_.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) of the view that the operation set as the default for queries made in the Amazon Web Services Region and Amazon Web Services account in which you called this operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?viewArn = fun () -> { viewArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ViewArn", (Option.map x.viewArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let viewArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ViewArn") in
      make ?viewArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let viewArn = field_map json__ "ViewArn" String_.of_json in
      make ?viewArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the specified view as the default for the Amazon Web Services Region in which you call this operation. When a user performs a Search that doesn't explicitly specify which view to use, then Amazon Web Services Resource Explorer automatically chooses this default view for searches performed in this Amazon Web Services Region. If an Amazon Web Services Region doesn't have a default view configured, then users must explicitly specify a view with every Search operation performed in that Region."]
module AssociateDefaultViewInput =
  struct
    type nonrec t =
      {
      viewArn: AssociateDefaultViewInputViewArnString.t
        [@ocaml.doc
          "The Amazon resource name (ARN) of the view to set as the default for the Amazon Web Services Region and Amazon Web Services account in which you call this operation. The specified view must already exist in the called Region."]}
    let context_ = "AssociateDefaultViewInput"
    let make ~viewArn = fun () -> { viewArn }
    let to_value x =
      structure_to_value
        [("ViewArn",
           (Some (AssociateDefaultViewInputViewArnString.to_value x.viewArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let viewArn =
        AssociateDefaultViewInputViewArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ViewArn") in
      make ~viewArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let viewArn =
        field_map_exn json__ "ViewArn"
          AssociateDefaultViewInputViewArnString.of_json in
      make ~viewArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the specified view as the default for the Amazon Web Services Region in which you call this operation. When a user performs a Search that doesn't explicitly specify which view to use, then Amazon Web Services Resource Explorer automatically chooses this default view for searches performed in this Amazon Web Services Region. If an Amazon Web Services Region doesn't have a default view configured, then users must explicitly specify a view with every Search operation performed in that Region."]