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.devops_agent
let apiVersion = "2026-01-01"
let endpointPrefix = "aidevops"
let serviceFullName = "AWS DevOps Agent Service"
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 SlackChannelChannelIdString =
  struct
    type nonrec t = string
    let context_ = "SlackChannelChannelIdString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:8) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"[CGD][A-Z0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SlackChannelChannelIdString" j
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module ExchangeParameterValue =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Exchange Parameter value for MCP authentication"]
    let context_ = "ExchangeParameterValue"
    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:"ExchangeParameterValue" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Exchange Parameter value for MCP authentication"]
module NewRelicAlertPolicyIdsMemberString =
  struct
    type nonrec t = string
    let context_ = "NewRelicAlertPolicyIdsMemberString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[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:"NewRelicAlertPolicyIdsMemberString" j
    let to_json = simple_to_json to_value
  end
module NewRelicApplicationIdsMemberString =
  struct
    type nonrec t = string
    let context_ = "NewRelicApplicationIdsMemberString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[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:"NewRelicApplicationIdsMemberString" j
    let to_json = simple_to_json to_value
  end
module NewRelicEntityGuidsMemberString =
  struct
    type nonrec t = string
    let context_ = "NewRelicEntityGuidsMemberString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9_.-]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NewRelicEntityGuidsMemberString" 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 MCPToolsListMemberString =
  struct
    type nonrec t = string
    let context_ = "MCPToolsListMemberString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9_-]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MCPToolsListMemberString" j
    let to_json = simple_to_json to_value
  end
module SlackChannel =
  struct
    type nonrec t =
      {
      channelName: String_.t option [@ocaml.doc "Slack channel name"];
      channelId: SlackChannelChannelIdString.t
        [@ocaml.doc "Slack channel ID"]}
    let context_ = "SlackChannel"
    let make ?channelName =
      fun ~channelId -> fun () -> { channelName; channelId }
    let to_value x =
      structure_to_value
        [("channelName", (Option.map x.channelName ~f:String_.to_value));
        ("channelId",
          (Some (SlackChannelChannelIdString.to_value x.channelId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelId =
        SlackChannelChannelIdString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "channelId") in
      let channelName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "channelName") in
      make ~channelId ?channelName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelId =
        field_map_exn json__ "channelId" SlackChannelChannelIdString.of_json in
      let channelName = field_map json__ "channelName" String_.of_json in
      make ~channelId ?channelName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a Slack channel with its ID and optional name."]
module MCPServerAuthorizationDiscoveryConfigReturnToEndpointString =
  struct
    type nonrec t = string
    let context_ =
      "MCPServerAuthorizationDiscoveryConfigReturnToEndpointString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"https://[a-zA-Z0-9.-]*\\.(console\\.(aws|aws-dev)|awsc-(integ|preprod)\\.aws)\\.amazon\\.com(/.*)?");
        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:"MCPServerAuthorizationDiscoveryConfigReturnToEndpointString" j
    let to_json = simple_to_json to_value
  end
module ClientId =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Client ID for service authentication."]
    let context_ = "ClientId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9._-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Client ID for service authentication."]
module ClientSecret =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Client secret for service authentication."]
    let context_ = "ClientSecret"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientSecret" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Client secret for service authentication."]
module DynatraceOAuthClientCredentialsConfigClientNameString =
  struct
    type nonrec t = string
    let context_ = "DynatraceOAuthClientCredentialsConfigClientNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[\\p{L}\\p{N}\\p{Z}._-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json
        ~kind:"DynatraceOAuthClientCredentialsConfigClientNameString" j
    let to_json = simple_to_json to_value
  end
module ExchangeParameters =
  struct
    type nonrec t = (String_.t * ExchangeParameterValue.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),
                              (ExchangeParameterValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x ->
                       (ExchangeParameterValue.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:ExchangeParameterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module MCPServerAPIKeyConfigApiKeyHeaderString =
  struct
    type nonrec t = string
    let context_ = "MCPServerAPIKeyConfigApiKeyHeaderString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9-_]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"MCPServerAPIKeyConfigApiKeyHeaderString" j
    let to_json = simple_to_json to_value
  end
module MCPServerAPIKeyConfigApiKeyNameString =
  struct
    type nonrec t = string
    let context_ = "MCPServerAPIKeyConfigApiKeyNameString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9_\\s-]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"MCPServerAPIKeyConfigApiKeyNameString" j
    let to_json = simple_to_json to_value
  end
module MCPServerAPIKeyConfigApiKeyValueString =
  struct
    type nonrec t = string[@@ocaml.doc "API Key Value for service."]
    let context_ = "MCPServerAPIKeyConfigApiKeyValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () -> check_pattern i ~pattern:"[!-~]([ \\t]*[!-~])*"));
        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:"MCPServerAPIKeyConfigApiKeyValueString" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "API Key Value for service."]
module MCPServerBearerTokenConfigAuthorizationHeaderString =
  struct
    type nonrec t = string
    let context_ = "MCPServerBearerTokenConfigAuthorizationHeaderString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9-]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json
        ~kind:"MCPServerBearerTokenConfigAuthorizationHeaderString" j
    let to_json = simple_to_json to_value
  end
module MCPServerBearerTokenConfigTokenNameString =
  struct
    type nonrec t = string
    let context_ = "MCPServerBearerTokenConfigTokenNameString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9_\\s-]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"MCPServerBearerTokenConfigTokenNameString" j
    let to_json = simple_to_json to_value
  end
module MCPServerBearerTokenConfigTokenValueString =
  struct
    type nonrec t = string[@@ocaml.doc "Token value for authentication."]
    let context_ = "MCPServerBearerTokenConfigTokenValueString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[\\S]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"MCPServerBearerTokenConfigTokenValueString" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Token value for authentication."]
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 MCPServerOAuth3LOConfigAuthorizationUrlString =
  struct
    type nonrec t = string
    let context_ = "MCPServerOAuth3LOConfigAuthorizationUrlString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"https://[a-zA-Z0-9.-]+(?::[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:"MCPServerOAuth3LOConfigAuthorizationUrlString" j
    let to_json = simple_to_json to_value
  end
module MCPServerOAuth3LOConfigClientNameString =
  struct
    type nonrec t = string
    let context_ = "MCPServerOAuth3LOConfigClientNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[\\p{L}\\p{N}\\p{Z}._-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"MCPServerOAuth3LOConfigClientNameString" j
    let to_json = simple_to_json to_value
  end
module MCPServerOAuth3LOConfigExchangeUrlString =
  struct
    type nonrec t = string
    let context_ = "MCPServerOAuth3LOConfigExchangeUrlString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"https://[a-zA-Z0-9.-]+(?::[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:"MCPServerOAuth3LOConfigExchangeUrlString" j
    let to_json = simple_to_json to_value
  end
module MCPServerOAuth3LOConfigReturnToEndpointString =
  struct
    type nonrec t = string
    let context_ = "MCPServerOAuth3LOConfigReturnToEndpointString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"https://[a-zA-Z0-9.-]*\\.(console\\.(aws|aws-dev)|awsc-(integ|preprod)\\.aws)\\.amazon\\.com(/.*)?");
        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:"MCPServerOAuth3LOConfigReturnToEndpointString" j
    let to_json = simple_to_json to_value
  end
module Scopes =
  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:"Scopes" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module MCPServerOAuthClientCredentialsConfigClientNameString =
  struct
    type nonrec t = string
    let context_ = "MCPServerOAuthClientCredentialsConfigClientNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[\\p{L}\\p{N}\\p{Z}._-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json
        ~kind:"MCPServerOAuthClientCredentialsConfigClientNameString" j
    let to_json = simple_to_json to_value
  end
module MCPServerOAuthClientCredentialsConfigExchangeUrlString =
  struct
    type nonrec t = string
    let context_ = "MCPServerOAuthClientCredentialsConfigExchangeUrlString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"https://[a-zA-Z0-9.-]+(?::[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:"MCPServerOAuthClientCredentialsConfigExchangeUrlString" j
    let to_json = simple_to_json to_value
  end
module NewRelicAlertPolicyIds =
  struct
    type nonrec t = NewRelicAlertPolicyIdsMemberString.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:NewRelicAlertPolicyIdsMemberString.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:NewRelicAlertPolicyIdsMemberString.of_xml)
    let of_json j =
      list_of_json ~kind:"NewRelicAlertPolicyIds"
        ~of_json:NewRelicAlertPolicyIdsMemberString.of_json j
    let to_json v = composed_to_json to_value v
  end
module NewRelicApiKeyConfigAccountIdString =
  struct
    type nonrec t = string
    let context_ = "NewRelicApiKeyConfigAccountIdString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[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:"NewRelicApiKeyConfigAccountIdString" j
    let to_json = simple_to_json to_value
  end
module NewRelicApiKeyConfigApiKeyString =
  struct
    type nonrec t = string[@@ocaml.doc "API Key Value for service."]
    let context_ = "NewRelicApiKeyConfigApiKeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () -> check_pattern i ~pattern:"NRAK-[A-Z0-9]+"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NewRelicApiKeyConfigApiKeyString" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "API Key Value for service."]
module NewRelicApplicationIds =
  struct
    type nonrec t = NewRelicApplicationIdsMemberString.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:NewRelicApplicationIdsMemberString.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:NewRelicApplicationIdsMemberString.of_xml)
    let of_json j =
      list_of_json ~kind:"NewRelicApplicationIds"
        ~of_json:NewRelicApplicationIdsMemberString.of_json j
    let to_json v = composed_to_json to_value v
  end
module NewRelicEntityGuids =
  struct
    type nonrec t = NewRelicEntityGuidsMemberString.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:NewRelicEntityGuidsMemberString.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:NewRelicEntityGuidsMemberString.of_xml)
    let of_json j =
      list_of_json ~kind:"NewRelicEntityGuids"
        ~of_json:NewRelicEntityGuidsMemberString.of_json j
    let to_json v = composed_to_json to_value v
  end
module NewRelicRegion =
  struct
    type nonrec t =
      | US 
      | EU 
      | Non_static_id of string 
    let make i = i
    let to_string = function | US -> "US" | EU -> "EU" | Non_static_id s -> s
    let of_string = function | "US" -> US | "EU" -> EU | 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 NewRelicRegion" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"NewRelicRegion" j)
    let to_json = simple_to_json to_value
  end
module PagerDutyOAuthClientCredentialsConfigClientNameString =
  struct
    type nonrec t = string
    let context_ = "PagerDutyOAuthClientCredentialsConfigClientNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[\\p{L}\\p{N}\\p{Z}._-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json
        ~kind:"PagerDutyOAuthClientCredentialsConfigClientNameString" j
    let to_json = simple_to_json to_value
  end
module ServiceNowOAuthClientCredentialsConfigClientNameString =
  struct
    type nonrec t = string
    let context_ = "ServiceNowOAuthClientCredentialsConfigClientNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[\\p{L}\\p{N}\\p{Z}._-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json
        ~kind:"ServiceNowOAuthClientCredentialsConfigClientNameString" j
    let to_json = simple_to_json to_value
  end
module Guid =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Globally Unique Identifier (GUID) in standard format."]
    let context_ = "Guid"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:36) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-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:"Guid" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Globally Unique Identifier (GUID) in standard format."]
module RoleArn =
  struct
    type nonrec t = string[@@ocaml.doc "AWS IAM role ARN."]
    let context_ = "RoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:iam::\\d{12}:role/[a-zA-Z0-9+=,.@_/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RoleArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "AWS IAM role ARN."]
module WebIdentityTokenAudienceList =
  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:"WebIdentityTokenAudienceList"
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module GitLabTokenType =
  struct
    type nonrec t =
      | Personal 
      | Group 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Personal -> "personal"
      | Group -> "group"
      | Non_static_id s -> s
    let of_string =
      function
      | "personal" -> Personal
      | "group" -> Group
      | 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 GitLabTokenType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GitLabTokenType" j)
    let to_json = simple_to_json to_value
  end
module GithubRepoOwnerType =
  struct
    type nonrec t =
      | Organization 
      | User 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Organization -> "organization"
      | User -> "user"
      | Non_static_id s -> s
    let of_string =
      function
      | "organization" -> Organization
      | "user" -> User
      | 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 GithubRepoOwnerType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GithubRepoOwnerType" j)
    let to_json = simple_to_json to_value
  end
module MCPServerAuthorizationMethod =
  struct
    type nonrec t =
      | Oauth_client_credentials 
      | Oauth_3lo 
      | Api_key 
      | Bearer_token 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Oauth_client_credentials -> "oauth-client-credentials"
      | Oauth_3lo -> "oauth-3lo"
      | Api_key -> "api-key"
      | Bearer_token -> "bearer-token"
      | Non_static_id s -> s
    let of_string =
      function
      | "oauth-client-credentials" -> Oauth_client_credentials
      | "oauth-3lo" -> Oauth_3lo
      | "api-key" -> Api_key
      | "bearer-token" -> Bearer_token
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration MCPServerAuthorizationMethod"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"MCPServerAuthorizationMethod" j)
    let to_json = simple_to_json to_value
  end
module RegisteredGrafanaServerDetailsEndpointString =
  struct
    type nonrec t = string
    let context_ = "RegisteredGrafanaServerDetailsEndpointString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"https://[a-zA-Z0-9.-]+(?::[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:"RegisteredGrafanaServerDetailsEndpointString" j
    let to_json = simple_to_json to_value
  end
module Description =
  struct
    type nonrec t = string[@@ocaml.doc "Description field"]
    let context_ = "Description"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\p{L}\\p{N}\\p{P}\\p{S}\\p{Z}]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Description" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Description field"]
module PagerDutyScopesList =
  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:"PagerDutyScopesList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceNowInstanceUrl =
  struct
    type nonrec t = string[@@ocaml.doc "ServiceNow instance URL."]
    let context_ = "ServiceNowInstanceUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"https://[a-zA-Z0-9]([a-zA-Z0-9.-]*[a-zA-Z0-9])\\.service-now\\.com/?")));
        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:"ServiceNowInstanceUrl" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "ServiceNow instance URL."]
module AssistantMessageBlock =
  struct
    type nonrec t =
      {
      text: String_.t option [@ocaml.doc "Text content from the assistant."];
      toolUse: Document.t option
        [@ocaml.doc "Tool use request from the assistant."]}
    let make ?text = fun ?toolUse -> fun () -> { text; toolUse }
    let to_value x =
      structure_to_value
        [("text", (Option.map x.text ~f:String_.to_value));
        ("toolUse", (Option.map x.toolUse ~f:Document.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let toolUse =
        (Option.map ~f:Document.of_xml) (Xml.child xml_arg0 "toolUse") in
      let text = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "text") in
      make ?toolUse ?text ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let toolUse = field_map json__ "toolUse" Document.of_json in
      let text = field_map json__ "text" String_.of_json in
      make ?toolUse ?text ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A block of content in an assistant message."]
module UserMessageBlock =
  struct
    type nonrec t =
      {
      text: String_.t option [@ocaml.doc "Text content from the user."];
      toolResult: Document.t option
        [@ocaml.doc "Tool execution result provided by the user."]}
    let make ?text = fun ?toolResult -> fun () -> { text; toolResult }
    let to_value x =
      structure_to_value
        [("text", (Option.map x.text ~f:String_.to_value));
        ("toolResult", (Option.map x.toolResult ~f:Document.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let toolResult =
        (Option.map ~f:Document.of_xml) (Xml.child xml_arg0 "toolResult") in
      let text = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "text") in
      make ?toolResult ?text ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let toolResult = field_map json__ "toolResult" Document.of_json in
      let text = field_map json__ "text" String_.of_json in
      make ?toolResult ?text ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A block of content in a user message."]
module AWSConfigurationAccountIdString =
  struct
    type nonrec t = string
    let context_ = "AWSConfigurationAccountIdString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"\\d{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:"AWSConfigurationAccountIdString" j
    let to_json = simple_to_json to_value
  end
module MonitorAccountType =
  struct
    type nonrec t =
      | Monitor 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Monitor -> "monitor" | Non_static_id s -> s
    let of_string = function | "monitor" -> Monitor | 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 MonitorAccountType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MonitorAccountType" j)
    let to_json = simple_to_json to_value
  end
module DynatraceResourceList =
  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:"DynatraceResourceList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module MCPToolsList =
  struct
    type nonrec t = MCPToolsListMemberString.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:MCPToolsListMemberString.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:MCPToolsListMemberString.of_xml)
    let of_json j =
      list_of_json ~kind:"MCPToolsList"
        ~of_json:MCPToolsListMemberString.of_json j
    let to_json v = composed_to_json to_value v
  end
module MCPServerGrafanaConfigurationEndpointString =
  struct
    type nonrec t = string
    let context_ = "MCPServerGrafanaConfigurationEndpointString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"https://[a-zA-Z0-9.-]+(?::[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:"MCPServerGrafanaConfigurationEndpointString" j
    let to_json = simple_to_json to_value
  end
module MCPServerGrafanaConfigurationOrganizationIdString =
  struct
    type nonrec t = string
    let context_ = "MCPServerGrafanaConfigurationOrganizationIdString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[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:"MCPServerGrafanaConfigurationOrganizationIdString" j
    let to_json = simple_to_json to_value
  end
module MCPServerNewRelicConfigurationAccountIdString =
  struct
    type nonrec t = string
    let context_ = "MCPServerNewRelicConfigurationAccountIdString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () -> check_pattern i ~pattern:"[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:"MCPServerNewRelicConfigurationAccountIdString" j
    let to_json = simple_to_json to_value
  end
module MCPServerNewRelicConfigurationEndpointString =
  struct
    type nonrec t = string
    let context_ = "MCPServerNewRelicConfigurationEndpointString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"https://[a-zA-Z0-9.-]+(?::[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:"MCPServerNewRelicConfigurationEndpointString" j
    let to_json = simple_to_json to_value
  end
module EmailAddress =
  struct
    type nonrec t = string[@@ocaml.doc "Email address"]
    let context_ = "EmailAddress"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[a-zA-Z0-9._%+\\-]+@[a-zA-Z0-9.\\-]+\\.[a-zA-Z]{2,}");
        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:"EmailAddress" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Email address"]
module PagerDutyServicesList =
  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:"PagerDutyServicesList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceNowAuthenticationScopeList =
  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:"ServiceNowAuthenticationScopeList"
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module SlackConfigurationWorkspaceIdString =
  struct
    type nonrec t = string
    let context_ = "SlackConfigurationWorkspaceIdString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[TE][A-Z0-9]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"SlackConfigurationWorkspaceIdString" j
    let to_json = simple_to_json to_value
  end
module SlackTransmissionTarget =
  struct
    type nonrec t =
      {
      opsOncallTarget: SlackChannel.t
        [@ocaml.doc "Destination for On-call Agent (Ops1)"];
      opsSRETarget: SlackChannel.t option
        [@ocaml.doc "Destination for SRE Agent (Ops1.5)"]}
    let context_ = "SlackTransmissionTarget"
    let make ?opsSRETarget =
      fun ~opsOncallTarget -> fun () -> { opsSRETarget; opsOncallTarget }
    let to_value x =
      structure_to_value
        [("opsOncallTarget",
           (Some (SlackChannel.to_value x.opsOncallTarget)));
        ("opsSRETarget",
          (Option.map x.opsSRETarget ~f:SlackChannel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let opsSRETarget =
        (Option.map ~f:SlackChannel.of_xml)
          (Xml.child xml_arg0 "opsSRETarget") in
      let opsOncallTarget =
        SlackChannel.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "opsOncallTarget") in
      make ?opsSRETarget ~opsOncallTarget ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let opsSRETarget = field_map json__ "opsSRETarget" SlackChannel.of_json in
      let opsOncallTarget =
        field_map_exn json__ "opsOncallTarget" SlackChannel.of_json in
      make ?opsSRETarget ~opsOncallTarget ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines Slack channels for different types of agent notifications."]
module SourceAccountType =
  struct
    type nonrec t =
      | Source 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Source -> "source" | Non_static_id s -> s
    let of_string = function | "source" -> Source | 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 SourceAccountType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SourceAccountType" j)
    let to_json = simple_to_json to_value
  end
module SourceAwsConfigurationAccountIdString =
  struct
    type nonrec t = string
    let context_ = "SourceAwsConfigurationAccountIdString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"\\d{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:"SourceAwsConfigurationAccountIdString" j
    let to_json = simple_to_json to_value
  end
module SendMessageJsonDelta =
  struct
    type nonrec t =
      {
      partialJson: String_.t option [@ocaml.doc "Partial JSON string"]}
    let make ?partialJson = fun () -> { partialJson }
    let to_value x =
      structure_to_value
        [("partialJson", (Option.map x.partialJson ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let partialJson =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "partialJson") in
      make ?partialJson ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let partialJson = field_map json__ "partialJson" String_.of_json in
      make ?partialJson ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "JSON delta containing partial JSON"]
module SendMessageTextDelta =
  struct
    type nonrec t = {
      text: String_.t option [@ocaml.doc "The text fragment"]}
    let make ?text = fun () -> { text }
    let to_value x =
      structure_to_value [("text", (Option.map x.text ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let text = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "text") in
      make ?text ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let text = field_map json__ "text" String_.of_json in make ?text ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Text delta containing a text fragment"]
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module MCPServerAuthorizationDiscoveryConfig =
  struct
    type nonrec t =
      {
      returnToEndpoint:
        MCPServerAuthorizationDiscoveryConfigReturnToEndpointString.t
        [@ocaml.doc
          "The endpoint to return to after OAuth flow completes (must be AWS console domain)"]}
    let context_ = "MCPServerAuthorizationDiscoveryConfig"
    let make ~returnToEndpoint = fun () -> { returnToEndpoint }
    let to_value x =
      structure_to_value
        [("returnToEndpoint",
           (Some
              (MCPServerAuthorizationDiscoveryConfigReturnToEndpointString.to_value
                 x.returnToEndpoint)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let returnToEndpoint =
        MCPServerAuthorizationDiscoveryConfigReturnToEndpointString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "returnToEndpoint") in
      make ~returnToEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let returnToEndpoint =
        field_map_exn json__ "returnToEndpoint"
          MCPServerAuthorizationDiscoveryConfigReturnToEndpointString.of_json in
      make ~returnToEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Authorization discovery configuration for MCP server."]
module DynatraceOAuthClientCredentialsConfig =
  struct
    type nonrec t =
      {
      clientName:
        DynatraceOAuthClientCredentialsConfigClientNameString.t option
        [@ocaml.doc "User friendly OAuth client name specified by end user."];
      clientId: ClientId.t
        [@ocaml.doc "OAuth client ID for authenticating with the service."];
      exchangeParameters: ExchangeParameters.t option
        [@ocaml.doc
          "OAuth token exchange parameters for authenticating with the service."];
      clientSecret: ClientSecret.t
        [@ocaml.doc
          "OAuth client secret for authenticating with the service."]}
    let context_ = "DynatraceOAuthClientCredentialsConfig"
    let make ?clientName =
      fun ?exchangeParameters ->
        fun ~clientId ->
          fun ~clientSecret ->
            fun () ->
              { clientName; exchangeParameters; clientId; clientSecret }
    let to_value x =
      structure_to_value
        [("clientName",
           (Option.map x.clientName
              ~f:DynatraceOAuthClientCredentialsConfigClientNameString.to_value));
        ("clientId", (Some (ClientId.to_value x.clientId)));
        ("exchangeParameters",
          (Option.map x.exchangeParameters ~f:ExchangeParameters.to_value));
        ("clientSecret", (Some (ClientSecret.to_value x.clientSecret)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientSecret =
        ClientSecret.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientSecret") in
      let exchangeParameters =
        (Option.map ~f:ExchangeParameters.of_xml)
          (Xml.child xml_arg0 "exchangeParameters") in
      let clientId =
        ClientId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "clientId") in
      let clientName =
        (Option.map
           ~f:DynatraceOAuthClientCredentialsConfigClientNameString.of_xml)
          (Xml.child xml_arg0 "clientName") in
      make ~clientSecret ?exchangeParameters ~clientId ?clientName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientSecret =
        field_map_exn json__ "clientSecret" ClientSecret.of_json in
      let exchangeParameters =
        field_map json__ "exchangeParameters" ExchangeParameters.of_json in
      let clientId = field_map_exn json__ "clientId" ClientId.of_json in
      let clientName =
        field_map json__ "clientName"
          DynatraceOAuthClientCredentialsConfigClientNameString.of_json in
      make ~clientSecret ?exchangeParameters ~clientId ?clientName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "OAuth client credentials configuration for Dynatrace."]
module MCPServerAPIKeyConfig =
  struct
    type nonrec t =
      {
      apiKeyName: MCPServerAPIKeyConfigApiKeyNameString.t
        [@ocaml.doc "User friendly API key name specified by end user."];
      apiKeyValue: MCPServerAPIKeyConfigApiKeyValueString.t
        [@ocaml.doc "API key value for authenticating with the service."];
      apiKeyHeader: MCPServerAPIKeyConfigApiKeyHeaderString.t
        [@ocaml.doc
          "HTTP header name to send the API key in requests to the service."]}
    let context_ = "MCPServerAPIKeyConfig"
    let make ~apiKeyName =
      fun ~apiKeyValue ->
        fun ~apiKeyHeader ->
          fun () -> { apiKeyName; apiKeyValue; apiKeyHeader }
    let to_value x =
      structure_to_value
        [("apiKeyName",
           (Some
              (MCPServerAPIKeyConfigApiKeyNameString.to_value x.apiKeyName)));
        ("apiKeyValue",
          (Some
             (MCPServerAPIKeyConfigApiKeyValueString.to_value x.apiKeyValue)));
        ("apiKeyHeader",
          (Some
             (MCPServerAPIKeyConfigApiKeyHeaderString.to_value x.apiKeyHeader)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let apiKeyHeader =
        MCPServerAPIKeyConfigApiKeyHeaderString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "apiKeyHeader") in
      let apiKeyValue =
        MCPServerAPIKeyConfigApiKeyValueString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "apiKeyValue") in
      let apiKeyName =
        MCPServerAPIKeyConfigApiKeyNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "apiKeyName") in
      make ~apiKeyHeader ~apiKeyValue ~apiKeyName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let apiKeyHeader =
        field_map_exn json__ "apiKeyHeader"
          MCPServerAPIKeyConfigApiKeyHeaderString.of_json in
      let apiKeyValue =
        field_map_exn json__ "apiKeyValue"
          MCPServerAPIKeyConfigApiKeyValueString.of_json in
      let apiKeyName =
        field_map_exn json__ "apiKeyName"
          MCPServerAPIKeyConfigApiKeyNameString.of_json in
      make ~apiKeyHeader ~apiKeyValue ~apiKeyName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "API key configuration for MCP server."]
module MCPServerBearerTokenConfig =
  struct
    type nonrec t =
      {
      tokenName: MCPServerBearerTokenConfigTokenNameString.t
        [@ocaml.doc "User friendly bearer token name specified by end user."];
      tokenValue: MCPServerBearerTokenConfigTokenValueString.t
        [@ocaml.doc
          "Bearer token value in alphanumeric for authenticating with the service."];
      authorizationHeader:
        MCPServerBearerTokenConfigAuthorizationHeaderString.t option
        [@ocaml.doc
          "HTTP header name to send the bearer token in requests to the service. Defaults to 'Authorization' per RFC 6750."]}
    let context_ = "MCPServerBearerTokenConfig"
    let make ?authorizationHeader =
      fun ~tokenName ->
        fun ~tokenValue ->
          fun () -> { authorizationHeader; tokenName; tokenValue }
    let to_value x =
      structure_to_value
        [("tokenName",
           (Some
              (MCPServerBearerTokenConfigTokenNameString.to_value x.tokenName)));
        ("tokenValue",
          (Some
             (MCPServerBearerTokenConfigTokenValueString.to_value
                x.tokenValue)));
        ("authorizationHeader",
          (Option.map x.authorizationHeader
             ~f:MCPServerBearerTokenConfigAuthorizationHeaderString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorizationHeader =
        (Option.map
           ~f:MCPServerBearerTokenConfigAuthorizationHeaderString.of_xml)
          (Xml.child xml_arg0 "authorizationHeader") in
      let tokenValue =
        MCPServerBearerTokenConfigTokenValueString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tokenValue") in
      let tokenName =
        MCPServerBearerTokenConfigTokenNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tokenName") in
      make ?authorizationHeader ~tokenValue ~tokenName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorizationHeader =
        field_map json__ "authorizationHeader"
          MCPServerBearerTokenConfigAuthorizationHeaderString.of_json in
      let tokenValue =
        field_map_exn json__ "tokenValue"
          MCPServerBearerTokenConfigTokenValueString.of_json in
      let tokenName =
        field_map_exn json__ "tokenName"
          MCPServerBearerTokenConfigTokenNameString.of_json in
      make ?authorizationHeader ~tokenValue ~tokenName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Bearer token configuration for MCP server (RFC 6750)."]
module MCPServerOAuth3LOConfig =
  struct
    type nonrec t =
      {
      clientName: MCPServerOAuth3LOConfigClientNameString.t option
        [@ocaml.doc "User friendly OAuth client name specified by end user."];
      clientId: ClientId.t
        [@ocaml.doc "OAuth client ID for authenticating with the service."];
      exchangeParameters: ExchangeParameters.t option
        [@ocaml.doc
          "OAuth token exchange parameters for authenticating with the service."];
      returnToEndpoint: MCPServerOAuth3LOConfigReturnToEndpointString.t
        [@ocaml.doc
          "The endpoint to return to after OAuth flow completes (must be AWS console domain)"];
      authorizationUrl: MCPServerOAuth3LOConfigAuthorizationUrlString.t
        [@ocaml.doc "OAuth authorization URL for 3LO authentication."];
      exchangeUrl: MCPServerOAuth3LOConfigExchangeUrlString.t
        [@ocaml.doc "OAuth token exchange URL."];
      clientSecret: ClientSecret.t option
        [@ocaml.doc
          "OAuth client secret for authenticating with the service. Required for confidential clients or when PKCE is not supported. Optional for public clients using PKCE."];
      supportCodeChallenge: Boolean.t option
        [@ocaml.doc
          "Whether the service supports PKCE (Proof Key for Code Exchange) for enhanced security during the OAuth flow."];
      scopes: Scopes.t option
        [@ocaml.doc
          "OAuth scopes for 3LO authentication. The service will always request scope offline_access."]}
    let context_ = "MCPServerOAuth3LOConfig"
    let make ?clientName =
      fun ?exchangeParameters ->
        fun ?clientSecret ->
          fun ?supportCodeChallenge ->
            fun ?scopes ->
              fun ~clientId ->
                fun ~returnToEndpoint ->
                  fun ~authorizationUrl ->
                    fun ~exchangeUrl ->
                      fun () ->
                        {
                          clientName;
                          exchangeParameters;
                          clientSecret;
                          supportCodeChallenge;
                          scopes;
                          clientId;
                          returnToEndpoint;
                          authorizationUrl;
                          exchangeUrl
                        }
    let to_value x =
      structure_to_value
        [("clientName",
           (Option.map x.clientName
              ~f:MCPServerOAuth3LOConfigClientNameString.to_value));
        ("clientId", (Some (ClientId.to_value x.clientId)));
        ("exchangeParameters",
          (Option.map x.exchangeParameters ~f:ExchangeParameters.to_value));
        ("returnToEndpoint",
          (Some
             (MCPServerOAuth3LOConfigReturnToEndpointString.to_value
                x.returnToEndpoint)));
        ("authorizationUrl",
          (Some
             (MCPServerOAuth3LOConfigAuthorizationUrlString.to_value
                x.authorizationUrl)));
        ("exchangeUrl",
          (Some
             (MCPServerOAuth3LOConfigExchangeUrlString.to_value x.exchangeUrl)));
        ("clientSecret",
          (Option.map x.clientSecret ~f:ClientSecret.to_value));
        ("supportCodeChallenge",
          (Option.map x.supportCodeChallenge ~f:Boolean.to_value));
        ("scopes", (Option.map x.scopes ~f:Scopes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scopes =
        (Option.map ~f:Scopes.of_xml) (Xml.child xml_arg0 "scopes") in
      let supportCodeChallenge =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "supportCodeChallenge") in
      let clientSecret =
        (Option.map ~f:ClientSecret.of_xml)
          (Xml.child xml_arg0 "clientSecret") in
      let exchangeUrl =
        MCPServerOAuth3LOConfigExchangeUrlString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "exchangeUrl") in
      let authorizationUrl =
        MCPServerOAuth3LOConfigAuthorizationUrlString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "authorizationUrl") in
      let returnToEndpoint =
        MCPServerOAuth3LOConfigReturnToEndpointString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "returnToEndpoint") in
      let exchangeParameters =
        (Option.map ~f:ExchangeParameters.of_xml)
          (Xml.child xml_arg0 "exchangeParameters") in
      let clientId =
        ClientId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "clientId") in
      let clientName =
        (Option.map ~f:MCPServerOAuth3LOConfigClientNameString.of_xml)
          (Xml.child xml_arg0 "clientName") in
      make ?scopes ?supportCodeChallenge ?clientSecret ~exchangeUrl
        ~authorizationUrl ~returnToEndpoint ?exchangeParameters ~clientId
        ?clientName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scopes = field_map json__ "scopes" Scopes.of_json in
      let supportCodeChallenge =
        field_map json__ "supportCodeChallenge" Boolean.of_json in
      let clientSecret = field_map json__ "clientSecret" ClientSecret.of_json in
      let exchangeUrl =
        field_map_exn json__ "exchangeUrl"
          MCPServerOAuth3LOConfigExchangeUrlString.of_json in
      let authorizationUrl =
        field_map_exn json__ "authorizationUrl"
          MCPServerOAuth3LOConfigAuthorizationUrlString.of_json in
      let returnToEndpoint =
        field_map_exn json__ "returnToEndpoint"
          MCPServerOAuth3LOConfigReturnToEndpointString.of_json in
      let exchangeParameters =
        field_map json__ "exchangeParameters" ExchangeParameters.of_json in
      let clientId = field_map_exn json__ "clientId" ClientId.of_json in
      let clientName =
        field_map json__ "clientName"
          MCPServerOAuth3LOConfigClientNameString.of_json in
      make ?scopes ?supportCodeChallenge ?clientSecret ~exchangeUrl
        ~authorizationUrl ~returnToEndpoint ?exchangeParameters ~clientId
        ?clientName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "OAuth 3-legged authorization configuration for MCP server."]
module MCPServerOAuthClientCredentialsConfig =
  struct
    type nonrec t =
      {
      clientName:
        MCPServerOAuthClientCredentialsConfigClientNameString.t option
        [@ocaml.doc "User friendly OAuth client name specified by end user."];
      clientId: ClientId.t
        [@ocaml.doc "OAuth client ID for authenticating with the service."];
      exchangeParameters: ExchangeParameters.t option
        [@ocaml.doc
          "OAuth token exchange parameters for authenticating with the service."];
      clientSecret: ClientSecret.t
        [@ocaml.doc
          "OAuth client secret for authenticating with the service."];
      exchangeUrl: MCPServerOAuthClientCredentialsConfigExchangeUrlString.t
        [@ocaml.doc "OAuth token exchange URL."];
      scopes: Scopes.t option
        [@ocaml.doc
          "OAuth scopes for 3LO authentication. The service will always request scope offline_access."]}
    let context_ = "MCPServerOAuthClientCredentialsConfig"
    let make ?clientName =
      fun ?exchangeParameters ->
        fun ?scopes ->
          fun ~clientId ->
            fun ~clientSecret ->
              fun ~exchangeUrl ->
                fun () ->
                  {
                    clientName;
                    exchangeParameters;
                    scopes;
                    clientId;
                    clientSecret;
                    exchangeUrl
                  }
    let to_value x =
      structure_to_value
        [("clientName",
           (Option.map x.clientName
              ~f:MCPServerOAuthClientCredentialsConfigClientNameString.to_value));
        ("clientId", (Some (ClientId.to_value x.clientId)));
        ("exchangeParameters",
          (Option.map x.exchangeParameters ~f:ExchangeParameters.to_value));
        ("clientSecret", (Some (ClientSecret.to_value x.clientSecret)));
        ("exchangeUrl",
          (Some
             (MCPServerOAuthClientCredentialsConfigExchangeUrlString.to_value
                x.exchangeUrl)));
        ("scopes", (Option.map x.scopes ~f:Scopes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scopes =
        (Option.map ~f:Scopes.of_xml) (Xml.child xml_arg0 "scopes") in
      let exchangeUrl =
        MCPServerOAuthClientCredentialsConfigExchangeUrlString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "exchangeUrl") in
      let clientSecret =
        ClientSecret.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientSecret") in
      let exchangeParameters =
        (Option.map ~f:ExchangeParameters.of_xml)
          (Xml.child xml_arg0 "exchangeParameters") in
      let clientId =
        ClientId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "clientId") in
      let clientName =
        (Option.map
           ~f:MCPServerOAuthClientCredentialsConfigClientNameString.of_xml)
          (Xml.child xml_arg0 "clientName") in
      make ?scopes ~exchangeUrl ~clientSecret ?exchangeParameters ~clientId
        ?clientName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scopes = field_map json__ "scopes" Scopes.of_json in
      let exchangeUrl =
        field_map_exn json__ "exchangeUrl"
          MCPServerOAuthClientCredentialsConfigExchangeUrlString.of_json in
      let clientSecret =
        field_map_exn json__ "clientSecret" ClientSecret.of_json in
      let exchangeParameters =
        field_map json__ "exchangeParameters" ExchangeParameters.of_json in
      let clientId = field_map_exn json__ "clientId" ClientId.of_json in
      let clientName =
        field_map json__ "clientName"
          MCPServerOAuthClientCredentialsConfigClientNameString.of_json in
      make ?scopes ~exchangeUrl ~clientSecret ?exchangeParameters ~clientId
        ?clientName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "OAuth client credentials configuration for MCP server."]
module NewRelicApiKeyConfig =
  struct
    type nonrec t =
      {
      apiKey: NewRelicApiKeyConfigApiKeyString.t
        [@ocaml.doc "New Relic User API Key"];
      accountId: NewRelicApiKeyConfigAccountIdString.t
        [@ocaml.doc "New Relic Account ID"];
      region: NewRelicRegion.t [@ocaml.doc "New Relic region (US or EU)"];
      applicationIds: NewRelicApplicationIds.t option
        [@ocaml.doc "List of monitored APM application IDs in New Relic"];
      entityGuids: NewRelicEntityGuids.t option
        [@ocaml.doc
          "List of globally unique IDs for New Relic resources (apps, hosts, services)"];
      alertPolicyIds: NewRelicAlertPolicyIds.t option
        [@ocaml.doc "List of alert policy IDs grouping related conditions"]}
    let context_ = "NewRelicApiKeyConfig"
    let make ?applicationIds =
      fun ?entityGuids ->
        fun ?alertPolicyIds ->
          fun ~apiKey ->
            fun ~accountId ->
              fun ~region ->
                fun () ->
                  {
                    applicationIds;
                    entityGuids;
                    alertPolicyIds;
                    apiKey;
                    accountId;
                    region
                  }
    let to_value x =
      structure_to_value
        [("apiKey",
           (Some (NewRelicApiKeyConfigApiKeyString.to_value x.apiKey)));
        ("accountId",
          (Some (NewRelicApiKeyConfigAccountIdString.to_value x.accountId)));
        ("region", (Some (NewRelicRegion.to_value x.region)));
        ("applicationIds",
          (Option.map x.applicationIds ~f:NewRelicApplicationIds.to_value));
        ("entityGuids",
          (Option.map x.entityGuids ~f:NewRelicEntityGuids.to_value));
        ("alertPolicyIds",
          (Option.map x.alertPolicyIds ~f:NewRelicAlertPolicyIds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alertPolicyIds =
        (Option.map ~f:NewRelicAlertPolicyIds.of_xml)
          (Xml.child xml_arg0 "alertPolicyIds") in
      let entityGuids =
        (Option.map ~f:NewRelicEntityGuids.of_xml)
          (Xml.child xml_arg0 "entityGuids") in
      let applicationIds =
        (Option.map ~f:NewRelicApplicationIds.of_xml)
          (Xml.child xml_arg0 "applicationIds") in
      let region =
        NewRelicRegion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "region") in
      let accountId =
        NewRelicApiKeyConfigAccountIdString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      let apiKey =
        NewRelicApiKeyConfigApiKeyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "apiKey") in
      make ?alertPolicyIds ?entityGuids ?applicationIds ~region ~accountId
        ~apiKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alertPolicyIds =
        field_map json__ "alertPolicyIds" NewRelicAlertPolicyIds.of_json in
      let entityGuids =
        field_map json__ "entityGuids" NewRelicEntityGuids.of_json in
      let applicationIds =
        field_map json__ "applicationIds" NewRelicApplicationIds.of_json in
      let region = field_map_exn json__ "region" NewRelicRegion.of_json in
      let accountId =
        field_map_exn json__ "accountId"
          NewRelicApiKeyConfigAccountIdString.of_json in
      let apiKey =
        field_map_exn json__ "apiKey"
          NewRelicApiKeyConfigApiKeyString.of_json in
      make ?alertPolicyIds ?entityGuids ?applicationIds ~region ~accountId
        ~apiKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "API key authentication configuration for New Relic service."]
module PagerDutyOAuthClientCredentialsConfig =
  struct
    type nonrec t =
      {
      clientName:
        PagerDutyOAuthClientCredentialsConfigClientNameString.t option
        [@ocaml.doc "User friendly OAuth client name specified by end user."];
      clientId: ClientId.t
        [@ocaml.doc "OAuth client ID for authenticating with the service."];
      exchangeParameters: ExchangeParameters.t option
        [@ocaml.doc
          "OAuth token exchange parameters for authenticating with the service."];
      clientSecret: ClientSecret.t
        [@ocaml.doc
          "OAuth client secret for authenticating with the service."]}
    let context_ = "PagerDutyOAuthClientCredentialsConfig"
    let make ?clientName =
      fun ?exchangeParameters ->
        fun ~clientId ->
          fun ~clientSecret ->
            fun () ->
              { clientName; exchangeParameters; clientId; clientSecret }
    let to_value x =
      structure_to_value
        [("clientName",
           (Option.map x.clientName
              ~f:PagerDutyOAuthClientCredentialsConfigClientNameString.to_value));
        ("clientId", (Some (ClientId.to_value x.clientId)));
        ("exchangeParameters",
          (Option.map x.exchangeParameters ~f:ExchangeParameters.to_value));
        ("clientSecret", (Some (ClientSecret.to_value x.clientSecret)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientSecret =
        ClientSecret.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientSecret") in
      let exchangeParameters =
        (Option.map ~f:ExchangeParameters.of_xml)
          (Xml.child xml_arg0 "exchangeParameters") in
      let clientId =
        ClientId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "clientId") in
      let clientName =
        (Option.map
           ~f:PagerDutyOAuthClientCredentialsConfigClientNameString.of_xml)
          (Xml.child xml_arg0 "clientName") in
      make ~clientSecret ?exchangeParameters ~clientId ?clientName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientSecret =
        field_map_exn json__ "clientSecret" ClientSecret.of_json in
      let exchangeParameters =
        field_map json__ "exchangeParameters" ExchangeParameters.of_json in
      let clientId = field_map_exn json__ "clientId" ClientId.of_json in
      let clientName =
        field_map json__ "clientName"
          PagerDutyOAuthClientCredentialsConfigClientNameString.of_json in
      make ~clientSecret ?exchangeParameters ~clientId ?clientName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "OAuth client credentials configuration for PagerDuty."]
module ServiceNowOAuthClientCredentialsConfig =
  struct
    type nonrec t =
      {
      clientName:
        ServiceNowOAuthClientCredentialsConfigClientNameString.t option
        [@ocaml.doc "User friendly OAuth client name specified by end user."];
      clientId: ClientId.t
        [@ocaml.doc "OAuth client ID for authenticating with the service."];
      exchangeParameters: ExchangeParameters.t option
        [@ocaml.doc
          "OAuth token exchange parameters for authenticating with the service."];
      clientSecret: ClientSecret.t
        [@ocaml.doc
          "OAuth client secret for authenticating with the service."]}
    let context_ = "ServiceNowOAuthClientCredentialsConfig"
    let make ?clientName =
      fun ?exchangeParameters ->
        fun ~clientId ->
          fun ~clientSecret ->
            fun () ->
              { clientName; exchangeParameters; clientId; clientSecret }
    let to_value x =
      structure_to_value
        [("clientName",
           (Option.map x.clientName
              ~f:ServiceNowOAuthClientCredentialsConfigClientNameString.to_value));
        ("clientId", (Some (ClientId.to_value x.clientId)));
        ("exchangeParameters",
          (Option.map x.exchangeParameters ~f:ExchangeParameters.to_value));
        ("clientSecret", (Some (ClientSecret.to_value x.clientSecret)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientSecret =
        ClientSecret.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientSecret") in
      let exchangeParameters =
        (Option.map ~f:ExchangeParameters.of_xml)
          (Xml.child xml_arg0 "exchangeParameters") in
      let clientId =
        ClientId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "clientId") in
      let clientName =
        (Option.map
           ~f:ServiceNowOAuthClientCredentialsConfigClientNameString.of_xml)
          (Xml.child xml_arg0 "clientName") in
      make ~clientSecret ?exchangeParameters ~clientId ?clientName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientSecret =
        field_map_exn json__ "clientSecret" ClientSecret.of_json in
      let exchangeParameters =
        field_map json__ "exchangeParameters" ExchangeParameters.of_json in
      let clientId = field_map_exn json__ "clientId" ClientId.of_json in
      let clientName =
        field_map json__ "clientName"
          ServiceNowOAuthClientCredentialsConfigClientNameString.of_json in
      make ~clientSecret ?exchangeParameters ~clientId ?clientName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "OAuth client credentials configuration for ServiceNow."]
module RegisteredAzureDevOpsServiceDetails =
  struct
    type nonrec t =
      {
      organizationName: String_.t option
        [@ocaml.doc
          "The Azure DevOps Organization name associated with the service."]}
    let make ?organizationName = fun () -> { organizationName }
    let to_value x =
      structure_to_value
        [("organizationName",
           (Option.map x.organizationName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "organizationName") in
      make ?organizationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationName =
        field_map json__ "organizationName" String_.of_json in
      make ?organizationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details specific to a registered Azure DevOps service."]
module RegisteredAzureIdentityDetails =
  struct
    type nonrec t =
      {
      tenantId: Guid.t
        [@ocaml.doc "The Azure Active Directory tenant ID for the identity."];
      clientId: Guid.t
        [@ocaml.doc
          "The client ID of the service principal or managed identity used for authentication."];
      webIdentityRoleArn: RoleArn.t
        [@ocaml.doc
          "The role ARN to be assumed by DevOps Agent for requesting Web Identity Token."];
      webIdentityTokenAudiences: WebIdentityTokenAudienceList.t
        [@ocaml.doc "The audiences for the Web Identity Token."]}
    let context_ = "RegisteredAzureIdentityDetails"
    let make ~tenantId =
      fun ~clientId ->
        fun ~webIdentityRoleArn ->
          fun ~webIdentityTokenAudiences ->
            fun () ->
              {
                tenantId;
                clientId;
                webIdentityRoleArn;
                webIdentityTokenAudiences
              }
    let to_value x =
      structure_to_value
        [("tenantId", (Some (Guid.to_value x.tenantId)));
        ("clientId", (Some (Guid.to_value x.clientId)));
        ("webIdentityRoleArn",
          (Some (RoleArn.to_value x.webIdentityRoleArn)));
        ("webIdentityTokenAudiences",
          (Some
             (WebIdentityTokenAudienceList.to_value
                x.webIdentityTokenAudiences)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webIdentityTokenAudiences =
        WebIdentityTokenAudienceList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "webIdentityTokenAudiences") in
      let webIdentityRoleArn =
        RoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "webIdentityRoleArn") in
      let clientId =
        Guid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "clientId") in
      let tenantId =
        Guid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tenantId") in
      make ~webIdentityTokenAudiences ~webIdentityRoleArn ~clientId ~tenantId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webIdentityTokenAudiences =
        field_map_exn json__ "webIdentityTokenAudiences"
          WebIdentityTokenAudienceList.of_json in
      let webIdentityRoleArn =
        field_map_exn json__ "webIdentityRoleArn" RoleArn.of_json in
      let clientId = field_map_exn json__ "clientId" Guid.of_json in
      let tenantId = field_map_exn json__ "tenantId" Guid.of_json in
      make ~webIdentityTokenAudiences ~webIdentityRoleArn ~clientId ~tenantId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details specific to a registered Azure identity using AWS Outbound Identity Federation."]
module RegisteredGitLabServiceDetails =
  struct
    type nonrec t =
      {
      targetUrl: String_.t option [@ocaml.doc "The GitLab instance URL."];
      tokenType: GitLabTokenType.t option
        [@ocaml.doc "Type of GitLab access token"];
      groupId: String_.t option
        [@ocaml.doc "Optional GitLab group ID for group-level access tokens"]}
    let make ?targetUrl =
      fun ?tokenType ->
        fun ?groupId -> fun () -> { targetUrl; tokenType; groupId }
    let to_value x =
      structure_to_value
        [("targetUrl", (Option.map x.targetUrl ~f:String_.to_value));
        ("tokenType", (Option.map x.tokenType ~f:GitLabTokenType.to_value));
        ("groupId", (Option.map x.groupId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "groupId") in
      let tokenType =
        (Option.map ~f:GitLabTokenType.of_xml)
          (Xml.child xml_arg0 "tokenType") in
      let targetUrl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "targetUrl") in
      make ?groupId ?tokenType ?targetUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupId = field_map json__ "groupId" String_.of_json in
      let tokenType = field_map json__ "tokenType" GitLabTokenType.of_json in
      let targetUrl = field_map json__ "targetUrl" String_.of_json in
      make ?groupId ?tokenType ?targetUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details specific to a registered GitLab instance."]
module RegisteredGithubServiceDetails =
  struct
    type nonrec t =
      {
      owner: String_.t option
        [@ocaml.doc "The GitHub repository owner name."];
      ownerType: GithubRepoOwnerType.t option
        [@ocaml.doc "The GitHub repository owner type."];
      targetUrl: String_.t option
        [@ocaml.doc
          "The GitHub Enterprise Server instance URL (absent for github.com)."]}
    let make ?owner =
      fun ?ownerType ->
        fun ?targetUrl -> fun () -> { owner; ownerType; targetUrl }
    let to_value x =
      structure_to_value
        [("owner", (Option.map x.owner ~f:String_.to_value));
        ("ownerType",
          (Option.map x.ownerType ~f:GithubRepoOwnerType.to_value));
        ("targetUrl", (Option.map x.targetUrl ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetUrl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "targetUrl") in
      let ownerType =
        (Option.map ~f:GithubRepoOwnerType.of_xml)
          (Xml.child xml_arg0 "ownerType") in
      let owner = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "owner") in
      make ?targetUrl ?ownerType ?owner ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetUrl = field_map json__ "targetUrl" String_.of_json in
      let ownerType =
        field_map json__ "ownerType" GithubRepoOwnerType.of_json in
      let owner = field_map json__ "owner" String_.of_json in
      make ?targetUrl ?ownerType ?owner ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details specific to a registered GitHub service."]
module RegisteredGrafanaServerDetails =
  struct
    type nonrec t =
      {
      endpoint: RegisteredGrafanaServerDetailsEndpointString.t option
        [@ocaml.doc
          "Grafana instance URL (e.g., https://your-instance.grafana.net)"];
      authorizationMethod: MCPServerAuthorizationMethod.t option
        [@ocaml.doc "The authz method used by the MCP server."]}
    let make ?endpoint =
      fun ?authorizationMethod -> fun () -> { endpoint; authorizationMethod }
    let to_value x =
      structure_to_value
        [("endpoint",
           (Option.map x.endpoint
              ~f:RegisteredGrafanaServerDetailsEndpointString.to_value));
        ("authorizationMethod",
          (Option.map x.authorizationMethod
             ~f:MCPServerAuthorizationMethod.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorizationMethod =
        (Option.map ~f:MCPServerAuthorizationMethod.of_xml)
          (Xml.child xml_arg0 "authorizationMethod") in
      let endpoint =
        (Option.map ~f:RegisteredGrafanaServerDetailsEndpointString.of_xml)
          (Xml.child xml_arg0 "endpoint") in
      make ?authorizationMethod ?endpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorizationMethod =
        field_map json__ "authorizationMethod"
          MCPServerAuthorizationMethod.of_json in
      let endpoint =
        field_map json__ "endpoint"
          RegisteredGrafanaServerDetailsEndpointString.of_json in
      make ?authorizationMethod ?endpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details specific to a registered Grafana server, used by the built-in MCP server."]
module RegisteredMCPServerDetails =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The MCP server name."];
      endpoint: String_.t option [@ocaml.doc "The MCP server endpoint URL."];
      authorizationMethod: MCPServerAuthorizationMethod.t option
        [@ocaml.doc "The MCP server uses this authorization method."];
      description: Description.t option
        [@ocaml.doc "Optional description for the MCP server."];
      apiKeyHeader: String_.t option
        [@ocaml.doc
          "If the MCP server uses API key authentication, these details are provided."]}
    let make ?name =
      fun ?endpoint ->
        fun ?authorizationMethod ->
          fun ?description ->
            fun ?apiKeyHeader ->
              fun () ->
                {
                  name;
                  endpoint;
                  authorizationMethod;
                  description;
                  apiKeyHeader
                }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("endpoint", (Option.map x.endpoint ~f:String_.to_value));
        ("authorizationMethod",
          (Option.map x.authorizationMethod
             ~f:MCPServerAuthorizationMethod.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("apiKeyHeader", (Option.map x.apiKeyHeader ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let apiKeyHeader =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "apiKeyHeader") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let authorizationMethod =
        (Option.map ~f:MCPServerAuthorizationMethod.of_xml)
          (Xml.child xml_arg0 "authorizationMethod") in
      let endpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "endpoint") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?apiKeyHeader ?description ?authorizationMethod ?endpoint ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let apiKeyHeader = field_map json__ "apiKeyHeader" String_.of_json in
      let description = field_map json__ "description" Description.of_json in
      let authorizationMethod =
        field_map json__ "authorizationMethod"
          MCPServerAuthorizationMethod.of_json in
      let endpoint = field_map json__ "endpoint" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?apiKeyHeader ?description ?authorizationMethod ?endpoint ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details specific to a registered MCP (Model Context Protocol) server."]
module RegisteredNewRelicDetails =
  struct
    type nonrec t =
      {
      accountId: String_.t option [@ocaml.doc "The NewRelic account ID."];
      region: NewRelicRegion.t option
        [@ocaml.doc "The NewRelic region (determines API endpoint)."];
      description: Description.t option
        [@ocaml.doc "Optional user description."]}
    let make ?accountId =
      fun ?region ->
        fun ?description -> fun () -> { accountId; region; description }
    let to_value x =
      structure_to_value
        [("accountId", (Option.map x.accountId ~f:String_.to_value));
        ("region", (Option.map x.region ~f:NewRelicRegion.to_value));
        ("description", (Option.map x.description ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let region =
        (Option.map ~f:NewRelicRegion.of_xml) (Xml.child xml_arg0 "region") in
      let accountId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "accountId") in
      make ?description ?region ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "description" Description.of_json in
      let region = field_map json__ "region" NewRelicRegion.of_json in
      let accountId = field_map json__ "accountId" String_.of_json in
      make ?description ?region ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details specific to a registered NewRelic instance."]
module RegisteredPagerDutyDetails =
  struct
    type nonrec t =
      {
      scopes: PagerDutyScopesList.t option
        [@ocaml.doc "The scopes that were assigned to the service"]}
    let make ?scopes = fun () -> { scopes }
    let to_value x =
      structure_to_value
        [("scopes", (Option.map x.scopes ~f:PagerDutyScopesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scopes =
        (Option.map ~f:PagerDutyScopesList.of_xml)
          (Xml.child xml_arg0 "scopes") in
      make ?scopes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scopes = field_map json__ "scopes" PagerDutyScopesList.of_json in
      make ?scopes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details specific to a registered PagerDuty service."]
module RegisteredServiceNowDetails =
  struct
    type nonrec t =
      {
      instanceUrl: ServiceNowInstanceUrl.t option
        [@ocaml.doc "The ServiceNow instance url"]}
    let make ?instanceUrl = fun () -> { instanceUrl }
    let to_value x =
      structure_to_value
        [("instanceUrl",
           (Option.map x.instanceUrl ~f:ServiceNowInstanceUrl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceUrl =
        (Option.map ~f:ServiceNowInstanceUrl.of_xml)
          (Xml.child xml_arg0 "instanceUrl") in
      make ?instanceUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceUrl =
        field_map json__ "instanceUrl" ServiceNowInstanceUrl.of_json in
      make ?instanceUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details specific to a registered ServiceNow instance."]
module RegisteredSlackServiceDetails =
  struct
    type nonrec t =
      {
      teamId: String_.t option [@ocaml.doc "The Slack team ID."];
      teamName: String_.t option [@ocaml.doc "The Slack team name."]}
    let make ?teamId = fun ?teamName -> fun () -> { teamId; teamName }
    let to_value x =
      structure_to_value
        [("teamId", (Option.map x.teamId ~f:String_.to_value));
        ("teamName", (Option.map x.teamName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let teamName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "teamName") in
      let teamId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "teamId") in
      make ?teamName ?teamId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let teamName = field_map json__ "teamName" String_.of_json in
      let teamId = field_map json__ "teamId" String_.of_json in
      make ?teamName ?teamId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details specific to a registered Slack workspace."]
module RecommendationContentSpecString =
  struct
    type nonrec t = string
    let context_ = "RecommendationContentSpecString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100000) >>=
             (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:"RecommendationContentSpecString" j
    let to_json = simple_to_json to_value
  end
module AssistantMessage =
  struct
    type nonrec t = AssistantMessageBlock.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:AssistantMessageBlock.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:AssistantMessageBlock.of_xml)
    let of_json j =
      list_of_json ~kind:"AssistantMessage"
        ~of_json:AssistantMessageBlock.of_json j
    let to_json v = composed_to_json to_value v
  end
module UserMessage =
  struct
    type nonrec t = UserMessageBlock.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:UserMessageBlock.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:UserMessageBlock.of_xml)
    let of_json j =
      list_of_json ~kind:"UserMessage" ~of_json:UserMessageBlock.of_json j
    let to_json v = composed_to_json to_value v
  end
module UserType =
  struct
    type nonrec t =
      | IAM 
      | IDC 
      | IDP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IAM -> "IAM"
      | IDC -> "IDC"
      | IDP -> "IDP"
      | Non_static_id s -> s
    let of_string =
      function
      | "IAM" -> IAM
      | "IDC" -> IDC
      | "IDP" -> IDP
      | 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 UserType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UserType" j)
    let to_json = simple_to_json to_value
  end
module SchedulerState =
  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 SchedulerState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SchedulerState" j)
    let to_json = simple_to_json to_value
  end
module AWSConfiguration =
  struct
    type nonrec t =
      {
      assumableRoleArn: RoleArn.t
        [@ocaml.doc
          "Role ARN to be assumed by AIDevOps to operate on behalf of customer."];
      accountId: AWSConfigurationAccountIdString.t
        [@ocaml.doc "AWS Account Id corresponding to provided resources."];
      accountType: MonitorAccountType.t
        [@ocaml.doc "Account Type 'monitor' for AIDevOps monitoring."]}
    let context_ = "AWSConfiguration"
    let make ~assumableRoleArn =
      fun ~accountId ->
        fun ~accountType ->
          fun () -> { assumableRoleArn; accountId; accountType }
    let to_value x =
      structure_to_value
        [("assumableRoleArn", (Some (RoleArn.to_value x.assumableRoleArn)));
        ("accountId",
          (Some (AWSConfigurationAccountIdString.to_value x.accountId)));
        ("accountType", (Some (MonitorAccountType.to_value x.accountType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountType =
        MonitorAccountType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountType") in
      let accountId =
        AWSConfigurationAccountIdString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      let assumableRoleArn =
        RoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "assumableRoleArn") in
      make ~accountType ~accountId ~assumableRoleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountType =
        field_map_exn json__ "accountType" MonitorAccountType.of_json in
      let accountId =
        field_map_exn json__ "accountId"
          AWSConfigurationAccountIdString.of_json in
      let assumableRoleArn =
        field_map_exn json__ "assumableRoleArn" RoleArn.of_json in
      make ~accountType ~accountId ~assumableRoleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration for AWS monitor account integration, allowing AIDevOps to monitor AWS resources."]
module AzureConfiguration =
  struct
    type nonrec t =
      {
      subscriptionId: String_.t
        [@ocaml.doc
          "Azure subscription ID corresponding to provided resources."]}
    let context_ = "AzureConfiguration"
    let make ~subscriptionId = fun () -> { subscriptionId }
    let to_value x =
      structure_to_value
        [("subscriptionId", (Some (String_.to_value x.subscriptionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subscriptionId =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "subscriptionId") in
      make ~subscriptionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subscriptionId =
        field_map_exn json__ "subscriptionId" String_.of_json in
      make ~subscriptionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for Azure subscription integration."]
module AzureDevOpsConfiguration =
  struct
    type nonrec t =
      {
      organizationName: String_.t
        [@ocaml.doc "Azure DevOps organization name."];
      projectId: String_.t [@ocaml.doc "Azure DevOps project ID."];
      projectName: String_.t [@ocaml.doc "Azure DevOps project name."]}
    let context_ = "AzureDevOpsConfiguration"
    let make ~organizationName =
      fun ~projectId ->
        fun ~projectName ->
          fun () -> { organizationName; projectId; projectName }
    let to_value x =
      structure_to_value
        [("organizationName", (Some (String_.to_value x.organizationName)));
        ("projectId", (Some (String_.to_value x.projectId)));
        ("projectName", (Some (String_.to_value x.projectName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let projectName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let projectId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "projectId") in
      let organizationName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "organizationName") in
      make ~projectName ~projectId ~organizationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let projectName = field_map_exn json__ "projectName" String_.of_json in
      let projectId = field_map_exn json__ "projectId" String_.of_json in
      let organizationName =
        field_map_exn json__ "organizationName" String_.of_json in
      make ~projectName ~projectId ~organizationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for Azure DevOps project integration."]
module DynatraceConfiguration =
  struct
    type nonrec t =
      {
      envId: String_.t [@ocaml.doc "Dynatrace environment id"];
      resources: DynatraceResourceList.t option
        [@ocaml.doc "List of Dynatrace resources to monitor"]}
    let context_ = "DynatraceConfiguration"
    let make ?resources = fun ~envId -> fun () -> { resources; envId }
    let to_value x =
      structure_to_value
        [("envId", (Some (String_.to_value x.envId)));
        ("resources",
          (Option.map x.resources ~f:DynatraceResourceList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resources =
        (Option.map ~f:DynatraceResourceList.of_xml)
          (Xml.child xml_arg0 "resources") in
      let envId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "envId") in
      make ?resources ~envId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resources =
        field_map json__ "resources" DynatraceResourceList.of_json in
      let envId = field_map_exn json__ "envId" String_.of_json in
      make ?resources ~envId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for Dynatrace monitoring integration."]
module EventChannelConfiguration =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for Event Channel integration."]
module GitHubConfiguration =
  struct
    type nonrec t =
      {
      repoName: String_.t [@ocaml.doc "Associated Github repo name"];
      repoId: String_.t [@ocaml.doc "Associated Github repo ID"];
      owner: String_.t [@ocaml.doc "The GitHub repository owner name."];
      ownerType: GithubRepoOwnerType.t ;
      instanceIdentifier: String_.t option
        [@ocaml.doc
          "GitHub instance identifier (e.g., github.com or github.enterprise.com)"]}
    let context_ = "GitHubConfiguration"
    let make ?instanceIdentifier =
      fun ~repoName ->
        fun ~repoId ->
          fun ~owner ->
            fun ~ownerType ->
              fun () ->
                { instanceIdentifier; repoName; repoId; owner; ownerType }
    let to_value x =
      structure_to_value
        [("repoName", (Some (String_.to_value x.repoName)));
        ("repoId", (Some (String_.to_value x.repoId)));
        ("owner", (Some (String_.to_value x.owner)));
        ("ownerType", (Some (GithubRepoOwnerType.to_value x.ownerType)));
        ("instanceIdentifier",
          (Option.map x.instanceIdentifier ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "instanceIdentifier") in
      let ownerType =
        GithubRepoOwnerType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ownerType") in
      let owner =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "owner") in
      let repoId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "repoId") in
      let repoName =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "repoName") in
      make ?instanceIdentifier ~ownerType ~owner ~repoId ~repoName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceIdentifier =
        field_map json__ "instanceIdentifier" String_.of_json in
      let ownerType =
        field_map_exn json__ "ownerType" GithubRepoOwnerType.of_json in
      let owner = field_map_exn json__ "owner" String_.of_json in
      let repoId = field_map_exn json__ "repoId" String_.of_json in
      let repoName = field_map_exn json__ "repoName" String_.of_json in
      make ?instanceIdentifier ~ownerType ~owner ~repoId ~repoName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for GitHub repository integration."]
module GitLabConfiguration =
  struct
    type nonrec t =
      {
      projectId: String_.t [@ocaml.doc "GitLab numeric project ID."];
      projectPath: String_.t
        [@ocaml.doc
          "Full GitLab project path (e.g., namespace/project-name)."];
      instanceIdentifier: String_.t option
        [@ocaml.doc
          "GitLab instance identifier (e.g., gitlab.com or e2e.gamma.dev.us-east-1.gitlab.falco.ai.aws.dev)"]}
    let context_ = "GitLabConfiguration"
    let make ?instanceIdentifier =
      fun ~projectId ->
        fun ~projectPath ->
          fun () -> { instanceIdentifier; projectId; projectPath }
    let to_value x =
      structure_to_value
        [("projectId", (Some (String_.to_value x.projectId)));
        ("projectPath", (Some (String_.to_value x.projectPath)));
        ("instanceIdentifier",
          (Option.map x.instanceIdentifier ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceIdentifier =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "instanceIdentifier") in
      let projectPath =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectPath") in
      let projectId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "projectId") in
      make ?instanceIdentifier ~projectPath ~projectId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceIdentifier =
        field_map json__ "instanceIdentifier" String_.of_json in
      let projectPath = field_map_exn json__ "projectPath" String_.of_json in
      let projectId = field_map_exn json__ "projectId" String_.of_json in
      make ?instanceIdentifier ~projectPath ~projectId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for GitLab project integration."]
module MCPServerConfiguration =
  struct
    type nonrec t =
      {
      tools: MCPToolsList.t
        [@ocaml.doc "List of MCP tools can be used with the association."]}
    let context_ = "MCPServerConfiguration"
    let make ~tools = fun () -> { tools }
    let to_value x =
      structure_to_value [("tools", (Some (MCPToolsList.to_value x.tools)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tools =
        MCPToolsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tools") in
      make ~tools ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tools = field_map_exn json__ "tools" MCPToolsList.of_json in
      make ~tools ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration for Model Context Protocol (MCP) server integration."]
module MCPServerDatadogConfiguration =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Mixin for webhook update support."]
module MCPServerGrafanaConfiguration =
  struct
    type nonrec t =
      {
      endpoint: MCPServerGrafanaConfigurationEndpointString.t
        [@ocaml.doc
          "Grafana instance URL (e.g., https://your-instance.grafana.net)"];
      organizationId:
        MCPServerGrafanaConfigurationOrganizationIdString.t option
        [@ocaml.doc "The Grafana organization ID that can be used."];
      tools: MCPToolsList.t option
        [@ocaml.doc "List of MCP tools that can be used."]}
    let context_ = "MCPServerGrafanaConfiguration"
    let make ?organizationId =
      fun ?tools ->
        fun ~endpoint -> fun () -> { organizationId; tools; endpoint }
    let to_value x =
      structure_to_value
        [("endpoint",
           (Some
              (MCPServerGrafanaConfigurationEndpointString.to_value
                 x.endpoint)));
        ("organizationId",
          (Option.map x.organizationId
             ~f:MCPServerGrafanaConfigurationOrganizationIdString.to_value));
        ("tools", (Option.map x.tools ~f:MCPToolsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tools =
        (Option.map ~f:MCPToolsList.of_xml) (Xml.child xml_arg0 "tools") in
      let organizationId =
        (Option.map
           ~f:MCPServerGrafanaConfigurationOrganizationIdString.of_xml)
          (Xml.child xml_arg0 "organizationId") in
      let endpoint =
        MCPServerGrafanaConfigurationEndpointString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "endpoint") in
      make ?tools ?organizationId ~endpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tools = field_map json__ "tools" MCPToolsList.of_json in
      let organizationId =
        field_map json__ "organizationId"
          MCPServerGrafanaConfigurationOrganizationIdString.of_json in
      let endpoint =
        field_map_exn json__ "endpoint"
          MCPServerGrafanaConfigurationEndpointString.of_json in
      make ?tools ?organizationId ~endpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration for Grafana MCP server integration, used with an AWS-hosted MCP server."]
module MCPServerNewRelicConfiguration =
  struct
    type nonrec t =
      {
      accountId: MCPServerNewRelicConfigurationAccountIdString.t
        [@ocaml.doc "New Relic Account ID"];
      endpoint: MCPServerNewRelicConfigurationEndpointString.t
        [@ocaml.doc
          "MCP server endpoint URL (e.g., https://mcp.newrelic.com/mcp/)"]}
    let context_ = "MCPServerNewRelicConfiguration"
    let make ~accountId = fun ~endpoint -> fun () -> { accountId; endpoint }
    let to_value x =
      structure_to_value
        [("accountId",
           (Some
              (MCPServerNewRelicConfigurationAccountIdString.to_value
                 x.accountId)));
        ("endpoint",
          (Some
             (MCPServerNewRelicConfigurationEndpointString.to_value
                x.endpoint)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpoint =
        MCPServerNewRelicConfigurationEndpointString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "endpoint") in
      let accountId =
        MCPServerNewRelicConfigurationAccountIdString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ~endpoint ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpoint =
        field_map_exn json__ "endpoint"
          MCPServerNewRelicConfigurationEndpointString.of_json in
      let accountId =
        field_map_exn json__ "accountId"
          MCPServerNewRelicConfigurationAccountIdString.of_json in
      make ~endpoint ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Mixin for webhook update support."]
module MCPServerSplunkConfiguration =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Mixin for webhook update support."]
module PagerDutyConfiguration =
  struct
    type nonrec t =
      {
      services: PagerDutyServicesList.t
        [@ocaml.doc
          "List of Pagerduty service available for the association."];
      customerEmail: EmailAddress.t
        [@ocaml.doc "Email to be used in Pagerduty API header"]}
    let context_ = "PagerDutyConfiguration"
    let make ~services =
      fun ~customerEmail -> fun () -> { services; customerEmail }
    let to_value x =
      structure_to_value
        [("services", (Some (PagerDutyServicesList.to_value x.services)));
        ("customerEmail", (Some (EmailAddress.to_value x.customerEmail)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customerEmail =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "customerEmail") in
      let services =
        PagerDutyServicesList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "services") in
      make ~customerEmail ~services ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customerEmail =
        field_map_exn json__ "customerEmail" EmailAddress.of_json in
      let services =
        field_map_exn json__ "services" PagerDutyServicesList.of_json in
      make ~customerEmail ~services ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for Pagerduty integration."]
module ServiceNowConfiguration =
  struct
    type nonrec t =
      {
      instanceId: String_.t option [@ocaml.doc "ServiceNow instance ID"];
      authScopes: ServiceNowAuthenticationScopeList.t option
        [@ocaml.doc
          "Scoped down authentication scopes for fine grained control"]}
    let make ?instanceId =
      fun ?authScopes -> fun () -> { instanceId; authScopes }
    let to_value x =
      structure_to_value
        [("instanceId", (Option.map x.instanceId ~f:String_.to_value));
        ("authScopes",
          (Option.map x.authScopes
             ~f:ServiceNowAuthenticationScopeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authScopes =
        (Option.map ~f:ServiceNowAuthenticationScopeList.of_xml)
          (Xml.child xml_arg0 "authScopes") in
      let instanceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "instanceId") in
      make ?authScopes ?instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authScopes =
        field_map json__ "authScopes"
          ServiceNowAuthenticationScopeList.of_json in
      let instanceId = field_map json__ "instanceId" String_.of_json in
      make ?authScopes ?instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for ServiceNow instance integration."]
module SlackConfiguration =
  struct
    type nonrec t =
      {
      workspaceId: SlackConfigurationWorkspaceIdString.t
        [@ocaml.doc "Associated Slack workspace ID"];
      workspaceName: String_.t [@ocaml.doc "Associated Slack workspace name"];
      transmissionTarget: SlackTransmissionTarget.t
        [@ocaml.doc "Transmission targets for agent notifications"]}
    let context_ = "SlackConfiguration"
    let make ~workspaceId =
      fun ~workspaceName ->
        fun ~transmissionTarget ->
          fun () -> { workspaceId; workspaceName; transmissionTarget }
    let to_value x =
      structure_to_value
        [("workspaceId",
           (Some (SlackConfigurationWorkspaceIdString.to_value x.workspaceId)));
        ("workspaceName", (Some (String_.to_value x.workspaceName)));
        ("transmissionTarget",
          (Some (SlackTransmissionTarget.to_value x.transmissionTarget)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transmissionTarget =
        SlackTransmissionTarget.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transmissionTarget") in
      let workspaceName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workspaceName") in
      let workspaceId =
        SlackConfigurationWorkspaceIdString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workspaceId") in
      make ~transmissionTarget ~workspaceName ~workspaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transmissionTarget =
        field_map_exn json__ "transmissionTarget"
          SlackTransmissionTarget.of_json in
      let workspaceName =
        field_map_exn json__ "workspaceName" String_.of_json in
      let workspaceId =
        field_map_exn json__ "workspaceId"
          SlackConfigurationWorkspaceIdString.of_json in
      make ~transmissionTarget ~workspaceName ~workspaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for Slack workspace integration."]
module SourceAwsConfiguration =
  struct
    type nonrec t =
      {
      accountId: SourceAwsConfigurationAccountIdString.t
        [@ocaml.doc "AWS Account Id corresponding to provided resources."];
      accountType: SourceAccountType.t
        [@ocaml.doc "Account Type 'source' for AIDevOps monitoring."];
      assumableRoleArn: RoleArn.t
        [@ocaml.doc
          "Role ARN to be assumed by AIDevOps to operate on behalf of customer."];
      externalId: String_.t option
        [@ocaml.doc
          "External ID for additional security when assuming the role. Used to prevent the confused deputy problem."]}
    let context_ = "SourceAwsConfiguration"
    let make ?externalId =
      fun ~accountId ->
        fun ~accountType ->
          fun ~assumableRoleArn ->
            fun () ->
              { externalId; accountId; accountType; assumableRoleArn }
    let to_value x =
      structure_to_value
        [("accountId",
           (Some (SourceAwsConfigurationAccountIdString.to_value x.accountId)));
        ("accountType", (Some (SourceAccountType.to_value x.accountType)));
        ("assumableRoleArn", (Some (RoleArn.to_value x.assumableRoleArn)));
        ("externalId", (Option.map x.externalId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let externalId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "externalId") in
      let assumableRoleArn =
        RoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "assumableRoleArn") in
      let accountType =
        SourceAccountType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountType") in
      let accountId =
        SourceAwsConfigurationAccountIdString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountId") in
      make ?externalId ~assumableRoleArn ~accountType ~accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let externalId = field_map json__ "externalId" String_.of_json in
      let assumableRoleArn =
        field_map_exn json__ "assumableRoleArn" RoleArn.of_json in
      let accountType =
        field_map_exn json__ "accountType" SourceAccountType.of_json in
      let accountId =
        field_map_exn json__ "accountId"
          SourceAwsConfigurationAccountIdString.of_json in
      make ?externalId ~assumableRoleArn ~accountType ~accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration for AWS source account integration. Note: passRole check on 'assumableRoleArn' is not supported."]
module SecurityGroupId =
  struct
    type nonrec t = string[@@ocaml.doc "Security group identifier."]
    let context_ = "SecurityGroupId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:11) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"sg-(([0-9a-z]{8})|([0-9a-z]{17}))")));
        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:"SecurityGroupId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Security group identifier."]
module SubnetId =
  struct
    type nonrec t = string[@@ocaml.doc "Subnet identifier."]
    let context_ = "SubnetId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:15) >>=
             (fun () ->
                (check_string_max i ~max:24) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"subnet-(([0-9a-z]{8})|([0-9a-z]{17}))")));
        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:"SubnetId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Subnet identifier."]
module PortRange =
  struct
    type nonrec t = string[@@ocaml.doc
                            "TCP port range expression (single port or range e.g. '443' or '8080-8090'). Valid port values are 1-65535, enforced at runtime."]
    let context_ = "PortRange"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                check_pattern i ~pattern:"((\\d{1,5}\\-\\d{1,5})|(\\d+))"));
        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:"PortRange" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "TCP port range expression (single port or range e.g. '443' or '8080-8090'). Valid port values are 1-65535, enforced at runtime."]
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      path: String_.t option
        [@ocaml.doc
          "A JSONPointer expression to the structure member whose value failed to satisfy the modeled constraints."];
      message: String_.t option
        [@ocaml.doc "A detailed description of the validation failure."]}
    let make ?path = fun ?message -> fun () -> { path; message }
    let to_value x =
      structure_to_value
        [("path", (Option.map x.path ~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 path = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "path") in
      make ?message ?path ()
    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 path = field_map json__ "path" String_.of_json in
      make ?message ?path ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes one specific validation failure for an input member."]
module SendMessageContentBlockDelta =
  struct
    type nonrec t =
      {
      textDelta: SendMessageTextDelta.t option
        [@ocaml.doc "Text delta for text-based content blocks"];
      jsonDelta: SendMessageJsonDelta.t option
        [@ocaml.doc "JSON delta for structured content blocks"]}
    let make ?textDelta =
      fun ?jsonDelta -> fun () -> { textDelta; jsonDelta }
    let to_value x =
      structure_to_value
        [("textDelta",
           (Option.map x.textDelta ~f:SendMessageTextDelta.to_value));
        ("jsonDelta",
          (Option.map x.jsonDelta ~f:SendMessageJsonDelta.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jsonDelta =
        (Option.map ~f:SendMessageJsonDelta.of_xml)
          (Xml.child xml_arg0 "jsonDelta") in
      let textDelta =
        (Option.map ~f:SendMessageTextDelta.of_xml)
          (Xml.child xml_arg0 "textDelta") in
      make ?jsonDelta ?textDelta ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jsonDelta =
        field_map json__ "jsonDelta" SendMessageJsonDelta.of_json in
      let textDelta =
        field_map json__ "textDelta" SendMessageTextDelta.of_json in
      make ?jsonDelta ?textDelta ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Union of possible delta payloads within a content block delta event"]
module SendMessageUsageInfo =
  struct
    type nonrec t =
      {
      inputTokens: Integer.t option [@ocaml.doc "Number of input tokens"];
      outputTokens: Integer.t option [@ocaml.doc "Number of output tokens"];
      totalTokens: Integer.t option [@ocaml.doc "Total tokens used"]}
    let make ?inputTokens =
      fun ?outputTokens ->
        fun ?totalTokens ->
          fun () -> { inputTokens; outputTokens; totalTokens }
    let to_value x =
      structure_to_value
        [("inputTokens", (Option.map x.inputTokens ~f:Integer.to_value));
        ("outputTokens", (Option.map x.outputTokens ~f:Integer.to_value));
        ("totalTokens", (Option.map x.totalTokens ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let totalTokens =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "totalTokens") in
      let outputTokens =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "outputTokens") in
      let inputTokens =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "inputTokens") in
      make ?totalTokens ?outputTokens ?inputTokens ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let totalTokens = field_map json__ "totalTokens" Integer.of_json in
      let outputTokens = field_map json__ "outputTokens" Integer.of_json in
      let inputTokens = field_map json__ "inputTokens" Integer.of_json in
      make ?totalTokens ?outputTokens ?inputTokens ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Token usage information"]
module DatadogAuthorizationConfig =
  struct
    type nonrec t =
      {
      authorizationDiscovery: MCPServerAuthorizationDiscoveryConfig.t option
        [@ocaml.doc
          "Datadog MCP server authorization discovery configuration."]}
    let make ?authorizationDiscovery = fun () -> { authorizationDiscovery }
    let to_value x =
      structure_to_value
        [("authorizationDiscovery",
           (Option.map x.authorizationDiscovery
              ~f:MCPServerAuthorizationDiscoveryConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorizationDiscovery =
        (Option.map ~f:MCPServerAuthorizationDiscoveryConfig.of_xml)
          (Xml.child xml_arg0 "authorizationDiscovery") in
      make ?authorizationDiscovery ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorizationDiscovery =
        field_map json__ "authorizationDiscovery"
          MCPServerAuthorizationDiscoveryConfig.of_json in
      make ?authorizationDiscovery ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Authorization configuration for Datadog MCP server (uses authorization discovery only)."]
module DatadogServiceDetailsDescriptionString =
  struct
    type nonrec t = string[@@ocaml.doc "Description field"]
    let context_ = "DatadogServiceDetailsDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\p{L}\\p{N}\\p{P}\\p{S}\\p{Z}]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"DatadogServiceDetailsDescriptionString" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Description field"]
module DatadogServiceDetailsEndpointString =
  struct
    type nonrec t = string
    let context_ = "DatadogServiceDetailsEndpointString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"https://[a-zA-Z0-9.-]+(?::[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:"DatadogServiceDetailsEndpointString" j
    let to_json = simple_to_json to_value
  end
module DatadogServiceDetailsNameString =
  struct
    type nonrec t = string
    let context_ = "DatadogServiceDetailsNameString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9_-]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DatadogServiceDetailsNameString" j
    let to_json = simple_to_json to_value
  end
module DynatraceServiceAuthorizationConfig =
  struct
    type nonrec t =
      {
      oAuthClientCredentials: DynatraceOAuthClientCredentialsConfig.t option
        [@ocaml.doc "OAuth client credentials configuration."]}
    let make ?oAuthClientCredentials = fun () -> { oAuthClientCredentials }
    let to_value x =
      structure_to_value
        [("oAuthClientCredentials",
           (Option.map x.oAuthClientCredentials
              ~f:DynatraceOAuthClientCredentialsConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let oAuthClientCredentials =
        (Option.map ~f:DynatraceOAuthClientCredentialsConfig.of_xml)
          (Xml.child xml_arg0 "oAuthClientCredentials") in
      make ?oAuthClientCredentials ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let oAuthClientCredentials =
        field_map json__ "oAuthClientCredentials"
          DynatraceOAuthClientCredentialsConfig.of_json in
      make ?oAuthClientCredentials ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Authorization configuration options for Dynatrace service."]
module DynatraceServiceDetailsAccountUrnString =
  struct
    type nonrec t = string
    let context_ = "DynatraceServiceDetailsAccountUrnString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"urn:dtaccount:[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:"DynatraceServiceDetailsAccountUrnString" j
    let to_json = simple_to_json to_value
  end
module EventChannelType =
  struct
    type nonrec t =
      | Webhook 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Webhook -> "webhook" | Non_static_id s -> s
    let of_string = function | "webhook" -> Webhook | 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 EventChannelType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EventChannelType" j)
    let to_json = simple_to_json to_value
  end
module GitLabDetailsTargetUrlString =
  struct
    type nonrec t = string
    let context_ = "GitLabDetailsTargetUrlString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"https://[a-zA-Z0-9]([a-zA-Z0-9.-]*[a-zA-Z0-9])?(?::[0-9]{1,5})?/?");
        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:"GitLabDetailsTargetUrlString" j
    let to_json = simple_to_json to_value
  end
module GitLabDetailsTokenValueString =
  struct
    type nonrec t = string[@@ocaml.doc "Token value for authentication."]
    let context_ = "GitLabDetailsTokenValueString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9._-]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GitLabDetailsTokenValueString" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Token value for authentication."]
module GrafanaServiceDetailsDescriptionString =
  struct
    type nonrec t = string[@@ocaml.doc "Description field"]
    let context_ = "GrafanaServiceDetailsDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\p{L}\\p{N}\\p{P}\\p{S}\\p{Z}]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"GrafanaServiceDetailsDescriptionString" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Description field"]
module GrafanaServiceDetailsEndpointString =
  struct
    type nonrec t = string
    let context_ = "GrafanaServiceDetailsEndpointString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"https://[a-zA-Z0-9.-]+(?::[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:"GrafanaServiceDetailsEndpointString" j
    let to_json = simple_to_json to_value
  end
module GrafanaServiceDetailsNameString =
  struct
    type nonrec t = string
    let context_ = "GrafanaServiceDetailsNameString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9_-]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GrafanaServiceDetailsNameString" j
    let to_json = simple_to_json to_value
  end
module MCPServerAuthorizationConfig =
  struct
    type nonrec t =
      {
      oAuthClientCredentials: MCPServerOAuthClientCredentialsConfig.t option
        [@ocaml.doc
          "MCP server configuration with OAuth client credentials."];
      oAuth3LO: MCPServerOAuth3LOConfig.t option
        [@ocaml.doc "MCP server configuration with OAuth 3LO."];
      apiKey: MCPServerAPIKeyConfig.t option
        [@ocaml.doc "MCP server configuration with API key authentication."];
      bearerToken: MCPServerBearerTokenConfig.t option
        [@ocaml.doc "MCP server configuration with Bearer token (RFC 6750)."];
      authorizationDiscovery: MCPServerAuthorizationDiscoveryConfig.t option
        [@ocaml.doc "MCP server authorization discovery configuration."]}
    let make ?oAuthClientCredentials =
      fun ?oAuth3LO ->
        fun ?apiKey ->
          fun ?bearerToken ->
            fun ?authorizationDiscovery ->
              fun () ->
                {
                  oAuthClientCredentials;
                  oAuth3LO;
                  apiKey;
                  bearerToken;
                  authorizationDiscovery
                }
    let to_value x =
      structure_to_value
        [("oAuthClientCredentials",
           (Option.map x.oAuthClientCredentials
              ~f:MCPServerOAuthClientCredentialsConfig.to_value));
        ("oAuth3LO",
          (Option.map x.oAuth3LO ~f:MCPServerOAuth3LOConfig.to_value));
        ("apiKey", (Option.map x.apiKey ~f:MCPServerAPIKeyConfig.to_value));
        ("bearerToken",
          (Option.map x.bearerToken ~f:MCPServerBearerTokenConfig.to_value));
        ("authorizationDiscovery",
          (Option.map x.authorizationDiscovery
             ~f:MCPServerAuthorizationDiscoveryConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorizationDiscovery =
        (Option.map ~f:MCPServerAuthorizationDiscoveryConfig.of_xml)
          (Xml.child xml_arg0 "authorizationDiscovery") in
      let bearerToken =
        (Option.map ~f:MCPServerBearerTokenConfig.of_xml)
          (Xml.child xml_arg0 "bearerToken") in
      let apiKey =
        (Option.map ~f:MCPServerAPIKeyConfig.of_xml)
          (Xml.child xml_arg0 "apiKey") in
      let oAuth3LO =
        (Option.map ~f:MCPServerOAuth3LOConfig.of_xml)
          (Xml.child xml_arg0 "oAuth3LO") in
      let oAuthClientCredentials =
        (Option.map ~f:MCPServerOAuthClientCredentialsConfig.of_xml)
          (Xml.child xml_arg0 "oAuthClientCredentials") in
      make ?authorizationDiscovery ?bearerToken ?apiKey ?oAuth3LO
        ?oAuthClientCredentials ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorizationDiscovery =
        field_map json__ "authorizationDiscovery"
          MCPServerAuthorizationDiscoveryConfig.of_json in
      let bearerToken =
        field_map json__ "bearerToken" MCPServerBearerTokenConfig.of_json in
      let apiKey = field_map json__ "apiKey" MCPServerAPIKeyConfig.of_json in
      let oAuth3LO =
        field_map json__ "oAuth3LO" MCPServerOAuth3LOConfig.of_json in
      let oAuthClientCredentials =
        field_map json__ "oAuthClientCredentials"
          MCPServerOAuthClientCredentialsConfig.of_json in
      make ?authorizationDiscovery ?bearerToken ?apiKey ?oAuth3LO
        ?oAuthClientCredentials ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Authorization configuration options for MCP server, supporting OAuth, API key, bearer token, and authorization discovery methods."]
module MCPServerDetailsDescriptionString =
  struct
    type nonrec t = string[@@ocaml.doc "Description field"]
    let context_ = "MCPServerDetailsDescriptionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\p{L}\\p{N}\\p{P}\\p{S}\\p{Z}]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"MCPServerDetailsDescriptionString" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Description field"]
module MCPServerDetailsEndpointString =
  struct
    type nonrec t = string
    let context_ = "MCPServerDetailsEndpointString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"https://[a-zA-Z0-9.-]+(?::[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:"MCPServerDetailsEndpointString" j
    let to_json = simple_to_json to_value
  end
module MCPServerDetailsNameString =
  struct
    type nonrec t = string
    let context_ = "MCPServerDetailsNameString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[a-zA-Z0-9_-]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MCPServerDetailsNameString" j
    let to_json = simple_to_json to_value
  end
module NewRelicServiceAuthorizationConfig =
  struct
    type nonrec t =
      {
      apiKey: NewRelicApiKeyConfig.t option
        [@ocaml.doc
          "New Relic API Key authentication (apiKey, accountId, region)."]}
    let make ?apiKey = fun () -> { apiKey }
    let to_value x =
      structure_to_value
        [("apiKey", (Option.map x.apiKey ~f:NewRelicApiKeyConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let apiKey =
        (Option.map ~f:NewRelicApiKeyConfig.of_xml)
          (Xml.child xml_arg0 "apiKey") in
      make ?apiKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let apiKey = field_map json__ "apiKey" NewRelicApiKeyConfig.of_json in
      make ?apiKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Authorization configuration options for New Relic service."]
module PagerDutyAuthorizationConfig =
  struct
    type nonrec t =
      {
      oAuthClientCredentials: PagerDutyOAuthClientCredentialsConfig.t option
        [@ocaml.doc "OAuth client credentials configuration."]}
    let make ?oAuthClientCredentials = fun () -> { oAuthClientCredentials }
    let to_value x =
      structure_to_value
        [("oAuthClientCredentials",
           (Option.map x.oAuthClientCredentials
              ~f:PagerDutyOAuthClientCredentialsConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let oAuthClientCredentials =
        (Option.map ~f:PagerDutyOAuthClientCredentialsConfig.of_xml)
          (Xml.child xml_arg0 "oAuthClientCredentials") in
      make ?oAuthClientCredentials ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let oAuthClientCredentials =
        field_map json__ "oAuthClientCredentials"
          PagerDutyOAuthClientCredentialsConfig.of_json in
      make ?oAuthClientCredentials ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Authorization configuration options for PagerDuty service."]
module PagerDutyScopes =
  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:"PagerDutyScopes" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceNowServiceAuthorizationConfig =
  struct
    type nonrec t =
      {
      oAuthClientCredentials: ServiceNowOAuthClientCredentialsConfig.t option
        [@ocaml.doc "OAuth client credentials configuration."]}
    let make ?oAuthClientCredentials = fun () -> { oAuthClientCredentials }
    let to_value x =
      structure_to_value
        [("oAuthClientCredentials",
           (Option.map x.oAuthClientCredentials
              ~f:ServiceNowOAuthClientCredentialsConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let oAuthClientCredentials =
        (Option.map ~f:ServiceNowOAuthClientCredentialsConfig.of_xml)
          (Xml.child xml_arg0 "oAuthClientCredentials") in
      make ?oAuthClientCredentials ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let oAuthClientCredentials =
        field_map json__ "oAuthClientCredentials"
          ServiceNowOAuthClientCredentialsConfig.of_json in
      make ?oAuthClientCredentials ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Authorization configuration options for ServiceNow service."]
module WebhookType =
  struct
    type nonrec t =
      | Hmac 
      | Apikey 
      | Gitlab 
      | Pagerduty 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Hmac -> "hmac"
      | Apikey -> "apikey"
      | Gitlab -> "gitlab"
      | Pagerduty -> "pagerduty"
      | Non_static_id s -> s
    let of_string =
      function
      | "hmac" -> Hmac
      | "apikey" -> Apikey
      | "gitlab" -> Gitlab
      | "pagerduty" -> Pagerduty
      | 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 WebhookType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WebhookType" j)
    let to_json = simple_to_json to_value
  end
module WebhookWebhookIdString =
  struct
    type nonrec t = string
    let context_ = "WebhookWebhookIdString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WebhookWebhookIdString" j
    let to_json = simple_to_json to_value
  end
module WebhookWebhookUrlString =
  struct
    type nonrec t = string
    let context_ = "WebhookWebhookUrlString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"https://[a-zA-Z0-9.-]+(?:/.*)?");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WebhookWebhookUrlString" j
    let to_json = simple_to_json to_value
  end
module AdditionalServiceDetails =
  struct
    type nonrec t =
      {
      github: RegisteredGithubServiceDetails.t option
        [@ocaml.doc "GitHub-specific service details."];
      slack: RegisteredSlackServiceDetails.t option
        [@ocaml.doc "Slack-specific service details."];
      mcpserverdatadog: RegisteredMCPServerDetails.t option
        [@ocaml.doc "Datadog MCP server-specific service details."];
      mcpserver: RegisteredMCPServerDetails.t option
        [@ocaml.doc "MCP server-specific service details."];
      servicenow: RegisteredServiceNowDetails.t option
        [@ocaml.doc "ServiceNow-specific service details."];
      gitlab: RegisteredGitLabServiceDetails.t option
        [@ocaml.doc "GitLab-specific service details."];
      mcpserversplunk: RegisteredMCPServerDetails.t option
        [@ocaml.doc "Splunk MCP server-specific service details."];
      mcpservernewrelic: RegisteredNewRelicDetails.t option
        [@ocaml.doc "New Relic MCP server-specific service details."];
      azuredevops: RegisteredAzureDevOpsServiceDetails.t option
        [@ocaml.doc "Azure DevOps specific service details."];
      azureidentity: RegisteredAzureIdentityDetails.t option
        [@ocaml.doc
          "Azure identity details for services using Azure authentication."];
      mcpservergrafana: RegisteredGrafanaServerDetails.t option
        [@ocaml.doc "Grafana MCP server-specific service details."];
      pagerduty: RegisteredPagerDutyDetails.t option
        [@ocaml.doc "Pagerduty service details."]}
    let make ?github =
      fun ?slack ->
        fun ?mcpserverdatadog ->
          fun ?mcpserver ->
            fun ?servicenow ->
              fun ?gitlab ->
                fun ?mcpserversplunk ->
                  fun ?mcpservernewrelic ->
                    fun ?azuredevops ->
                      fun ?azureidentity ->
                        fun ?mcpservergrafana ->
                          fun ?pagerduty ->
                            fun () ->
                              {
                                github;
                                slack;
                                mcpserverdatadog;
                                mcpserver;
                                servicenow;
                                gitlab;
                                mcpserversplunk;
                                mcpservernewrelic;
                                azuredevops;
                                azureidentity;
                                mcpservergrafana;
                                pagerduty
                              }
    let to_value x =
      structure_to_value
        [("github",
           (Option.map x.github ~f:RegisteredGithubServiceDetails.to_value));
        ("slack",
          (Option.map x.slack ~f:RegisteredSlackServiceDetails.to_value));
        ("mcpserverdatadog",
          (Option.map x.mcpserverdatadog
             ~f:RegisteredMCPServerDetails.to_value));
        ("mcpserver",
          (Option.map x.mcpserver ~f:RegisteredMCPServerDetails.to_value));
        ("servicenow",
          (Option.map x.servicenow ~f:RegisteredServiceNowDetails.to_value));
        ("gitlab",
          (Option.map x.gitlab ~f:RegisteredGitLabServiceDetails.to_value));
        ("mcpserversplunk",
          (Option.map x.mcpserversplunk
             ~f:RegisteredMCPServerDetails.to_value));
        ("mcpservernewrelic",
          (Option.map x.mcpservernewrelic
             ~f:RegisteredNewRelicDetails.to_value));
        ("azuredevops",
          (Option.map x.azuredevops
             ~f:RegisteredAzureDevOpsServiceDetails.to_value));
        ("azureidentity",
          (Option.map x.azureidentity
             ~f:RegisteredAzureIdentityDetails.to_value));
        ("mcpservergrafana",
          (Option.map x.mcpservergrafana
             ~f:RegisteredGrafanaServerDetails.to_value));
        ("pagerduty",
          (Option.map x.pagerduty ~f:RegisteredPagerDutyDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pagerduty =
        (Option.map ~f:RegisteredPagerDutyDetails.of_xml)
          (Xml.child xml_arg0 "pagerduty") in
      let mcpservergrafana =
        (Option.map ~f:RegisteredGrafanaServerDetails.of_xml)
          (Xml.child xml_arg0 "mcpservergrafana") in
      let azureidentity =
        (Option.map ~f:RegisteredAzureIdentityDetails.of_xml)
          (Xml.child xml_arg0 "azureidentity") in
      let azuredevops =
        (Option.map ~f:RegisteredAzureDevOpsServiceDetails.of_xml)
          (Xml.child xml_arg0 "azuredevops") in
      let mcpservernewrelic =
        (Option.map ~f:RegisteredNewRelicDetails.of_xml)
          (Xml.child xml_arg0 "mcpservernewrelic") in
      let mcpserversplunk =
        (Option.map ~f:RegisteredMCPServerDetails.of_xml)
          (Xml.child xml_arg0 "mcpserversplunk") in
      let gitlab =
        (Option.map ~f:RegisteredGitLabServiceDetails.of_xml)
          (Xml.child xml_arg0 "gitlab") in
      let servicenow =
        (Option.map ~f:RegisteredServiceNowDetails.of_xml)
          (Xml.child xml_arg0 "servicenow") in
      let mcpserver =
        (Option.map ~f:RegisteredMCPServerDetails.of_xml)
          (Xml.child xml_arg0 "mcpserver") in
      let mcpserverdatadog =
        (Option.map ~f:RegisteredMCPServerDetails.of_xml)
          (Xml.child xml_arg0 "mcpserverdatadog") in
      let slack =
        (Option.map ~f:RegisteredSlackServiceDetails.of_xml)
          (Xml.child xml_arg0 "slack") in
      let github =
        (Option.map ~f:RegisteredGithubServiceDetails.of_xml)
          (Xml.child xml_arg0 "github") in
      make ?pagerduty ?mcpservergrafana ?azureidentity ?azuredevops
        ?mcpservernewrelic ?mcpserversplunk ?gitlab ?servicenow ?mcpserver
        ?mcpserverdatadog ?slack ?github ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pagerduty =
        field_map json__ "pagerduty" RegisteredPagerDutyDetails.of_json in
      let mcpservergrafana =
        field_map json__ "mcpservergrafana"
          RegisteredGrafanaServerDetails.of_json in
      let azureidentity =
        field_map json__ "azureidentity"
          RegisteredAzureIdentityDetails.of_json in
      let azuredevops =
        field_map json__ "azuredevops"
          RegisteredAzureDevOpsServiceDetails.of_json in
      let mcpservernewrelic =
        field_map json__ "mcpservernewrelic"
          RegisteredNewRelicDetails.of_json in
      let mcpserversplunk =
        field_map json__ "mcpserversplunk" RegisteredMCPServerDetails.of_json in
      let gitlab =
        field_map json__ "gitlab" RegisteredGitLabServiceDetails.of_json in
      let servicenow =
        field_map json__ "servicenow" RegisteredServiceNowDetails.of_json in
      let mcpserver =
        field_map json__ "mcpserver" RegisteredMCPServerDetails.of_json in
      let mcpserverdatadog =
        field_map json__ "mcpserverdatadog"
          RegisteredMCPServerDetails.of_json in
      let slack =
        field_map json__ "slack" RegisteredSlackServiceDetails.of_json in
      let github =
        field_map json__ "github" RegisteredGithubServiceDetails.of_json in
      make ?pagerduty ?mcpservergrafana ?azureidentity ?azuredevops
        ?mcpservernewrelic ?mcpserversplunk ?gitlab ?servicenow ?mcpserver
        ?mcpserverdatadog ?slack ?github ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Union of service-specific details for different service types."]
module DocumentList =
  struct
    type nonrec t = Document.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:Document.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:Document.of_xml)
    let of_json j =
      list_of_json ~kind:"DocumentList" ~of_json:Document.of_json j
    let to_json v = composed_to_json to_value v
  end
module KmsKeyArn =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The ARN of the AWS Key Management Service (AWS KMS) customer managed key that's used to encrypt resources."]
    let context_ = "KmsKeyArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"arn:aws[a-zA-Z-]*:kms:[a-z0-9-]+:[0-9]{12}:key/[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{12}"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"KmsKeyArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The ARN of the AWS Key Management Service (AWS KMS) customer managed key that's used to encrypt resources."]
module PrivateConnectionName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Unique name for a Private Connection within an account."]
    let context_ = "PrivateConnectionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-z0-9]([a-z0-9-]*[a-z0-9])?")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PrivateConnectionName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Unique name for a Private Connection within an account."]
module Service =
  struct
    type nonrec t =
      | Github 
      | Slack 
      | Azure 
      | Azuredevops 
      | Dynatrace 
      | Servicenow 
      | Pagerduty 
      | Gitlab 
      | EventChannel 
      | Mcpservernewrelic 
      | Mcpservergrafana 
      | Mcpserverdatadog 
      | Mcpserver 
      | Mcpserversplunk 
      | Azureidentity 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Github -> "github"
      | Slack -> "slack"
      | Azure -> "azure"
      | Azuredevops -> "azuredevops"
      | Dynatrace -> "dynatrace"
      | Servicenow -> "servicenow"
      | Pagerduty -> "pagerduty"
      | Gitlab -> "gitlab"
      | EventChannel -> "eventChannel"
      | Mcpservernewrelic -> "mcpservernewrelic"
      | Mcpservergrafana -> "mcpservergrafana"
      | Mcpserverdatadog -> "mcpserverdatadog"
      | Mcpserver -> "mcpserver"
      | Mcpserversplunk -> "mcpserversplunk"
      | Azureidentity -> "azureidentity"
      | Non_static_id s -> s
    let of_string =
      function
      | "github" -> Github
      | "slack" -> Slack
      | "azure" -> Azure
      | "azuredevops" -> Azuredevops
      | "dynatrace" -> Dynatrace
      | "servicenow" -> Servicenow
      | "pagerduty" -> Pagerduty
      | "gitlab" -> Gitlab
      | "eventChannel" -> EventChannel
      | "mcpservernewrelic" -> Mcpservernewrelic
      | "mcpservergrafana" -> Mcpservergrafana
      | "mcpserverdatadog" -> Mcpserverdatadog
      | "mcpserver" -> Mcpserver
      | "mcpserversplunk" -> Mcpserversplunk
      | "azureidentity" -> Azureidentity
      | 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 Service" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Service" j)
    let to_json = simple_to_json to_value
  end
module ServiceId =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Unique identifier for a registered service"]
    let context_ = "ServiceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Unique identifier for a registered service"]
module ServiceName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The display name for a registered service."]
    let context_ = "ServiceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\p{L}\\p{N}\\p{P}\\p{S}\\p{Z}]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The display name for a registered service."]
module BackLogTimestamp =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Timestamp format used for backlog operations"]
    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[@@ocaml.doc "Timestamp format used for backlog operations"]
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 RecommendationContent =
  struct
    type nonrec t =
      {
      summary: String_.t option
        [@ocaml.doc "A brief summary of the recommendation."];
      spec: RecommendationContentSpecString.t option
        [@ocaml.doc
          "Agent-ready specification with detailed implementation steps"]}
    let make ?summary = fun ?spec -> fun () -> { summary; spec }
    let to_value x =
      structure_to_value
        [("summary", (Option.map x.summary ~f:String_.to_value));
        ("spec",
          (Option.map x.spec ~f:RecommendationContentSpecString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let spec =
        (Option.map ~f:RecommendationContentSpecString.of_xml)
          (Xml.child xml_arg0 "spec") in
      let summary =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "summary") in
      make ?spec ?summary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let spec =
        field_map json__ "spec" RecommendationContentSpecString.of_json in
      let summary = field_map json__ "summary" String_.of_json in
      make ?spec ?summary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Content of a recommendation"]
module RecommendationPriority =
  struct
    type nonrec t =
      | HIGH 
      | MEDIUM 
      | LOW 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | HIGH -> "HIGH"
      | MEDIUM -> "MEDIUM"
      | LOW -> "LOW"
      | Non_static_id s -> s
    let of_string =
      function
      | "HIGH" -> HIGH
      | "MEDIUM" -> MEDIUM
      | "LOW" -> LOW
      | 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 RecommendationPriority" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RecommendationPriority" j)
    let to_json = simple_to_json to_value
  end
module RecommendationStatus =
  struct
    type nonrec t =
      | PROPOSED 
      | ACCEPTED 
      | REJECTED 
      | CLOSED 
      | COMPLETED 
      | UPDATE_IN_PROGRESS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PROPOSED -> "PROPOSED"
      | ACCEPTED -> "ACCEPTED"
      | REJECTED -> "REJECTED"
      | CLOSED -> "CLOSED"
      | COMPLETED -> "COMPLETED"
      | UPDATE_IN_PROGRESS -> "UPDATE_IN_PROGRESS"
      | Non_static_id s -> s
    let of_string =
      function
      | "PROPOSED" -> PROPOSED
      | "ACCEPTED" -> ACCEPTED
      | "REJECTED" -> REJECTED
      | "CLOSED" -> CLOSED
      | "COMPLETED" -> COMPLETED
      | "UPDATE_IN_PROGRESS" -> UPDATE_IN_PROGRESS
      | 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 RecommendationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RecommendationStatus" j)
    let to_json = simple_to_json to_value
  end
module IpAddressOrDnsName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "IP address or DNS name of a target resource."]
    let context_ = "IpAddressOrDnsName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9.:\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IpAddressOrDnsName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "IP address or DNS name of a target resource."]
module PrivateConnectionStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | CREATE_IN_PROGRESS 
      | CREATE_FAILED 
      | DELETE_IN_PROGRESS 
      | DELETE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | CREATE_FAILED -> "CREATE_FAILED"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | DELETE_FAILED -> "DELETE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "CREATE_FAILED" -> CREATE_FAILED
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "DELETE_FAILED" -> DELETE_FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration PrivateConnectionStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PrivateConnectionStatus" j)
    let to_json = simple_to_json to_value
  end
module PrivateConnectionType =
  struct
    type nonrec t =
      | SELF_MANAGED 
      | SERVICE_MANAGED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SELF_MANAGED -> "SELF_MANAGED"
      | SERVICE_MANAGED -> "SERVICE_MANAGED"
      | Non_static_id s -> s
    let of_string =
      function
      | "SELF_MANAGED" -> SELF_MANAGED
      | "SERVICE_MANAGED" -> SERVICE_MANAGED
      | 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 PrivateConnectionType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PrivateConnectionType" j)
    let to_json = simple_to_json to_value
  end
module ResourceConfigurationArn =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The ID or ARN of the Resource Configuration."]
    let context_ = "ResourceConfigurationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:resourceconfiguration/rcfg-[0-9a-z]{17}|rcfg-[0-9a-z]{17})")));
        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:"ResourceConfigurationArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The ID or ARN of the Resource Configuration."]
module ResourceGatewayArn =
  struct
    type nonrec t = string[@@ocaml.doc "Resource Gateway ARN."]
    let context_ = "ResourceGatewayArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9\\-]+:vpc-lattice:[a-zA-Z0-9\\-]+:\\d{12}:resourcegateway/rgw-[0-9a-z]{17}")));
        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:"ResourceGatewayArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Resource Gateway ARN."]
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 VpcId =
  struct
    type nonrec t = string[@@ocaml.doc "VPC identifier."]
    let context_ = "VpcId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"vpc-(([0-9a-z]{8})|([0-9a-z]{17}))")));
        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:"VpcId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "VPC identifier."]
module Message =
  struct
    type nonrec t =
      {
      userMessage: UserMessage.t option
        [@ocaml.doc "A message from the user."];
      assistantMessage: AssistantMessage.t option
        [@ocaml.doc "A message from the assistant."]}
    let make ?userMessage =
      fun ?assistantMessage -> fun () -> { userMessage; assistantMessage }
    let to_value x =
      structure_to_value
        [("userMessage", (Option.map x.userMessage ~f:UserMessage.to_value));
        ("assistantMessage",
          (Option.map x.assistantMessage ~f:AssistantMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assistantMessage =
        (Option.map ~f:AssistantMessage.of_xml)
          (Xml.child xml_arg0 "assistantMessage") in
      let userMessage =
        (Option.map ~f:UserMessage.of_xml) (Xml.child xml_arg0 "userMessage") in
      make ?assistantMessage ?userMessage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assistantMessage =
        field_map json__ "assistantMessage" AssistantMessage.of_json in
      let userMessage = field_map json__ "userMessage" UserMessage.of_json in
      make ?assistantMessage ?userMessage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A message in a conversation, either from the user or the assistant."]
module JournalTimestamp =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Timestamp format used for journal operations"]
    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[@@ocaml.doc "Timestamp format used for journal operations"]
module UserReference =
  struct
    type nonrec t =
      {
      userId: String_.t option
        [@ocaml.doc "The unique identifier for the user"];
      userType: UserType.t option [@ocaml.doc "The type of user"]}
    let make ?userId = fun ?userType -> fun () -> { userId; userType }
    let to_value x =
      structure_to_value
        [("userId", (Option.map x.userId ~f:String_.to_value));
        ("userType", (Option.map x.userType ~f:UserType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userType =
        (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "userType") in
      let userId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "userId") in
      make ?userType ?userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userType = field_map json__ "userType" UserType.of_json in
      let userId = field_map json__ "userId" String_.of_json in
      make ?userType ?userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Reference to a user in the system"]
module GoalContent =
  struct
    type nonrec t =
      {
      description: String_.t option
        [@ocaml.doc "A detailed description of the goal."];
      objectives: String_.t option
        [@ocaml.doc "The objectives to be achieved for this goal."]}
    let make ?description =
      fun ?objectives -> fun () -> { description; objectives }
    let to_value x =
      structure_to_value
        [("description", (Option.map x.description ~f:String_.to_value));
        ("objectives", (Option.map x.objectives ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectives =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "objectives") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      make ?objectives ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectives = field_map json__ "objectives" String_.of_json in
      let description = field_map json__ "description" String_.of_json in
      make ?objectives ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Content of a goal"]
module GoalSchedule =
  struct
    type nonrec t =
      {
      state: SchedulerState.t option
        [@ocaml.doc "Whether the schedule is enabled or disabled"];
      expression: String_.t option
        [@ocaml.doc "Schedule expression (e.g., 'rate(7 days)')"]}
    let make ?state = fun ?expression -> fun () -> { state; expression }
    let to_value x =
      structure_to_value
        [("state", (Option.map x.state ~f:SchedulerState.to_value));
        ("expression", (Option.map x.expression ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expression =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "expression") in
      let state =
        (Option.map ~f:SchedulerState.of_xml) (Xml.child xml_arg0 "state") in
      make ?expression ?state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expression = field_map json__ "expression" String_.of_json in
      let state = field_map json__ "state" SchedulerState.of_json in
      make ?expression ?state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Schedule configuration for goal evaluations"]
module GoalStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | PAUSED 
      | COMPLETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | PAUSED -> "PAUSED"
      | COMPLETE -> "COMPLETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "PAUSED" -> PAUSED
      | "COMPLETE" -> COMPLETE
      | 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 GoalStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GoalStatus" j)
    let to_json = simple_to_json to_value
  end
module GoalType =
  struct
    type nonrec t =
      | CUSTOMER_DEFINED 
      | ONCALL_REPORT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CUSTOMER_DEFINED -> "CUSTOMER_DEFINED"
      | ONCALL_REPORT -> "ONCALL_REPORT"
      | Non_static_id s -> s
    let of_string =
      function
      | "CUSTOMER_DEFINED" -> CUSTOMER_DEFINED
      | "ONCALL_REPORT" -> ONCALL_REPORT
      | 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 GoalType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GoalType" j)
    let to_json = simple_to_json to_value
  end
module ExecutionStatus =
  struct
    type nonrec t =
      | FAILED 
      | RUNNING 
      | STOPPED 
      | CANCELED 
      | TIMED_OUT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FAILED -> "FAILED"
      | RUNNING -> "RUNNING"
      | STOPPED -> "STOPPED"
      | CANCELED -> "CANCELED"
      | TIMED_OUT -> "TIMED_OUT"
      | Non_static_id s -> s
    let of_string =
      function
      | "FAILED" -> FAILED
      | "RUNNING" -> RUNNING
      | "STOPPED" -> STOPPED
      | "CANCELED" -> CANCELED
      | "TIMED_OUT" -> TIMED_OUT
      | 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 ExecutionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExecutionStatus" j)
    let to_json = simple_to_json to_value
  end
module ResourceId =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Generic resource identifier (allows alphanumeric characters, hyphens, and underscores; 1-128 characters)"]
    let context_ = "ResourceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_.-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Generic resource identifier (allows alphanumeric characters, hyphens, and underscores; 1-128 characters)"]
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module Priority =
  struct
    type nonrec t =
      | CRITICAL 
      | HIGH 
      | MEDIUM 
      | LOW 
      | MINIMAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CRITICAL -> "CRITICAL"
      | HIGH -> "HIGH"
      | MEDIUM -> "MEDIUM"
      | LOW -> "LOW"
      | MINIMAL -> "MINIMAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "CRITICAL" -> CRITICAL
      | "HIGH" -> HIGH
      | "MEDIUM" -> MEDIUM
      | "LOW" -> LOW
      | "MINIMAL" -> MINIMAL
      | 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 Priority" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Priority" j)
    let to_json = simple_to_json to_value
  end
module ReferenceOutput =
  struct
    type nonrec t =
      {
      system: String_.t option [@ocaml.doc "The name of the external system"];
      title: String_.t option [@ocaml.doc "Optional title for the reference"];
      referenceId: String_.t option
        [@ocaml.doc "The unique identifier in the external system"];
      referenceUrl: String_.t option
        [@ocaml.doc "URL to access the reference in the external system"];
      associationId: String_.t option
        [@ocaml.doc "Association identifier of the external system"]}
    let make ?system =
      fun ?title ->
        fun ?referenceId ->
          fun ?referenceUrl ->
            fun ?associationId ->
              fun () ->
                { system; title; referenceId; referenceUrl; associationId }
    let to_value x =
      structure_to_value
        [("system", (Option.map x.system ~f:String_.to_value));
        ("title", (Option.map x.title ~f:String_.to_value));
        ("referenceId", (Option.map x.referenceId ~f:String_.to_value));
        ("referenceUrl", (Option.map x.referenceUrl ~f:String_.to_value));
        ("associationId", (Option.map x.associationId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "associationId") in
      let referenceUrl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "referenceUrl") in
      let referenceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "referenceId") in
      let title = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "title") in
      let system =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "system") in
      make ?associationId ?referenceUrl ?referenceId ?title ?system ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associationId = field_map json__ "associationId" String_.of_json in
      let referenceUrl = field_map json__ "referenceUrl" String_.of_json in
      let referenceId = field_map json__ "referenceId" String_.of_json in
      let title = field_map json__ "title" String_.of_json in
      let system = field_map json__ "system" String_.of_json in
      make ?associationId ?referenceUrl ?referenceId ?title ?system ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Reference information linking a task to external systems - for output without validation"]
module TaskStatus =
  struct
    type nonrec t =
      | PENDING_TRIAGE 
      | LINKED 
      | PENDING_START 
      | IN_PROGRESS 
      | PENDING_CUSTOMER_APPROVAL 
      | COMPLETED 
      | FAILED 
      | TIMED_OUT 
      | CANCELED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_TRIAGE -> "PENDING_TRIAGE"
      | LINKED -> "LINKED"
      | PENDING_START -> "PENDING_START"
      | IN_PROGRESS -> "IN_PROGRESS"
      | PENDING_CUSTOMER_APPROVAL -> "PENDING_CUSTOMER_APPROVAL"
      | COMPLETED -> "COMPLETED"
      | FAILED -> "FAILED"
      | TIMED_OUT -> "TIMED_OUT"
      | CANCELED -> "CANCELED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_TRIAGE" -> PENDING_TRIAGE
      | "LINKED" -> LINKED
      | "PENDING_START" -> PENDING_START
      | "IN_PROGRESS" -> IN_PROGRESS
      | "PENDING_CUSTOMER_APPROVAL" -> PENDING_CUSTOMER_APPROVAL
      | "COMPLETED" -> COMPLETED
      | "FAILED" -> FAILED
      | "TIMED_OUT" -> TIMED_OUT
      | "CANCELED" -> CANCELED
      | 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 TaskStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TaskStatus" j)
    let to_json = simple_to_json to_value
  end
module TaskType =
  struct
    type nonrec t =
      | INVESTIGATION 
      | EVALUATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INVESTIGATION -> "INVESTIGATION"
      | EVALUATION -> "EVALUATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "INVESTIGATION" -> INVESTIGATION
      | "EVALUATION" -> EVALUATION
      | 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 TaskType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TaskType" j)
    let to_json = simple_to_json to_value
  end
module AgentSpaceId =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Unique identifier for an agent space (allows alphanumeric characters and hyphens; 1-64 characters)"]
    let context_ = "AgentSpaceId"
    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:"AgentSpaceId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Unique identifier for an agent space (allows alphanumeric characters and hyphens; 1-64 characters)"]
module AssociationId =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Unique identifier for a service association within an AgentSpace"]
    let context_ = "AssociationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AssociationId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Unique identifier for a service association within an AgentSpace"]
module ServiceConfiguration =
  struct
    type nonrec t =
      {
      sourceAws: SourceAwsConfiguration.t option
        [@ocaml.doc
          "AWS source account configuration for monitoring resources."];
      aws: AWSConfiguration.t option
        [@ocaml.doc "AWS monitor account configuration."];
      github: GitHubConfiguration.t option
        [@ocaml.doc "GitHub repository integration configuration."];
      slack: SlackConfiguration.t option
        [@ocaml.doc "Slack workspace integration configuration."];
      dynatrace: DynatraceConfiguration.t option
        [@ocaml.doc "Dynatrace monitoring integration configuration."];
      servicenow: ServiceNowConfiguration.t option
        [@ocaml.doc "ServiceNow instance integration configuration."];
      mcpservernewrelic: MCPServerNewRelicConfiguration.t option
        [@ocaml.doc "NewRelic instance integration configuration."];
      mcpserverdatadog: MCPServerDatadogConfiguration.t option
        [@ocaml.doc "Datadog MCP server integration configuration."];
      mcpserver: MCPServerConfiguration.t option
        [@ocaml.doc
          "MCP (Model Context Protocol) server integration configuration."];
      gitlab: GitLabConfiguration.t option
        [@ocaml.doc "GitLab project integration configuration."];
      mcpserversplunk: MCPServerSplunkConfiguration.t option
        [@ocaml.doc "Splunk MCP server integration configuration."];
      eventChannel: EventChannelConfiguration.t option
        [@ocaml.doc "Event Channel instance integration configuration."];
      azure: AzureConfiguration.t option
        [@ocaml.doc "Azure subscription integration configuration."];
      azuredevops: AzureDevOpsConfiguration.t option
        [@ocaml.doc "Azure DevOps project integration configuration."];
      mcpservergrafana: MCPServerGrafanaConfiguration.t option
        [@ocaml.doc "Grafana MCP server integration configuration."];
      pagerduty: PagerDutyConfiguration.t option
        [@ocaml.doc "PagerDuty integration configuration"]}
    let make ?sourceAws =
      fun ?aws ->
        fun ?github ->
          fun ?slack ->
            fun ?dynatrace ->
              fun ?servicenow ->
                fun ?mcpservernewrelic ->
                  fun ?mcpserverdatadog ->
                    fun ?mcpserver ->
                      fun ?gitlab ->
                        fun ?mcpserversplunk ->
                          fun ?eventChannel ->
                            fun ?azure ->
                              fun ?azuredevops ->
                                fun ?mcpservergrafana ->
                                  fun ?pagerduty ->
                                    fun () ->
                                      {
                                        sourceAws;
                                        aws;
                                        github;
                                        slack;
                                        dynatrace;
                                        servicenow;
                                        mcpservernewrelic;
                                        mcpserverdatadog;
                                        mcpserver;
                                        gitlab;
                                        mcpserversplunk;
                                        eventChannel;
                                        azure;
                                        azuredevops;
                                        mcpservergrafana;
                                        pagerduty
                                      }
    let to_value x =
      structure_to_value
        [("sourceAws",
           (Option.map x.sourceAws ~f:SourceAwsConfiguration.to_value));
        ("aws", (Option.map x.aws ~f:AWSConfiguration.to_value));
        ("github", (Option.map x.github ~f:GitHubConfiguration.to_value));
        ("slack", (Option.map x.slack ~f:SlackConfiguration.to_value));
        ("dynatrace",
          (Option.map x.dynatrace ~f:DynatraceConfiguration.to_value));
        ("servicenow",
          (Option.map x.servicenow ~f:ServiceNowConfiguration.to_value));
        ("mcpservernewrelic",
          (Option.map x.mcpservernewrelic
             ~f:MCPServerNewRelicConfiguration.to_value));
        ("mcpserverdatadog",
          (Option.map x.mcpserverdatadog
             ~f:MCPServerDatadogConfiguration.to_value));
        ("mcpserver",
          (Option.map x.mcpserver ~f:MCPServerConfiguration.to_value));
        ("gitlab", (Option.map x.gitlab ~f:GitLabConfiguration.to_value));
        ("mcpserversplunk",
          (Option.map x.mcpserversplunk
             ~f:MCPServerSplunkConfiguration.to_value));
        ("eventChannel",
          (Option.map x.eventChannel ~f:EventChannelConfiguration.to_value));
        ("azure", (Option.map x.azure ~f:AzureConfiguration.to_value));
        ("azuredevops",
          (Option.map x.azuredevops ~f:AzureDevOpsConfiguration.to_value));
        ("mcpservergrafana",
          (Option.map x.mcpservergrafana
             ~f:MCPServerGrafanaConfiguration.to_value));
        ("pagerduty",
          (Option.map x.pagerduty ~f:PagerDutyConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pagerduty =
        (Option.map ~f:PagerDutyConfiguration.of_xml)
          (Xml.child xml_arg0 "pagerduty") in
      let mcpservergrafana =
        (Option.map ~f:MCPServerGrafanaConfiguration.of_xml)
          (Xml.child xml_arg0 "mcpservergrafana") in
      let azuredevops =
        (Option.map ~f:AzureDevOpsConfiguration.of_xml)
          (Xml.child xml_arg0 "azuredevops") in
      let azure =
        (Option.map ~f:AzureConfiguration.of_xml)
          (Xml.child xml_arg0 "azure") in
      let eventChannel =
        (Option.map ~f:EventChannelConfiguration.of_xml)
          (Xml.child xml_arg0 "eventChannel") in
      let mcpserversplunk =
        (Option.map ~f:MCPServerSplunkConfiguration.of_xml)
          (Xml.child xml_arg0 "mcpserversplunk") in
      let gitlab =
        (Option.map ~f:GitLabConfiguration.of_xml)
          (Xml.child xml_arg0 "gitlab") in
      let mcpserver =
        (Option.map ~f:MCPServerConfiguration.of_xml)
          (Xml.child xml_arg0 "mcpserver") in
      let mcpserverdatadog =
        (Option.map ~f:MCPServerDatadogConfiguration.of_xml)
          (Xml.child xml_arg0 "mcpserverdatadog") in
      let mcpservernewrelic =
        (Option.map ~f:MCPServerNewRelicConfiguration.of_xml)
          (Xml.child xml_arg0 "mcpservernewrelic") in
      let servicenow =
        (Option.map ~f:ServiceNowConfiguration.of_xml)
          (Xml.child xml_arg0 "servicenow") in
      let dynatrace =
        (Option.map ~f:DynatraceConfiguration.of_xml)
          (Xml.child xml_arg0 "dynatrace") in
      let slack =
        (Option.map ~f:SlackConfiguration.of_xml)
          (Xml.child xml_arg0 "slack") in
      let github =
        (Option.map ~f:GitHubConfiguration.of_xml)
          (Xml.child xml_arg0 "github") in
      let aws =
        (Option.map ~f:AWSConfiguration.of_xml) (Xml.child xml_arg0 "aws") in
      let sourceAws =
        (Option.map ~f:SourceAwsConfiguration.of_xml)
          (Xml.child xml_arg0 "sourceAws") in
      make ?pagerduty ?mcpservergrafana ?azuredevops ?azure ?eventChannel
        ?mcpserversplunk ?gitlab ?mcpserver ?mcpserverdatadog
        ?mcpservernewrelic ?servicenow ?dynatrace ?slack ?github ?aws
        ?sourceAws ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pagerduty =
        field_map json__ "pagerduty" PagerDutyConfiguration.of_json in
      let mcpservergrafana =
        field_map json__ "mcpservergrafana"
          MCPServerGrafanaConfiguration.of_json in
      let azuredevops =
        field_map json__ "azuredevops" AzureDevOpsConfiguration.of_json in
      let azure = field_map json__ "azure" AzureConfiguration.of_json in
      let eventChannel =
        field_map json__ "eventChannel" EventChannelConfiguration.of_json in
      let mcpserversplunk =
        field_map json__ "mcpserversplunk"
          MCPServerSplunkConfiguration.of_json in
      let gitlab = field_map json__ "gitlab" GitLabConfiguration.of_json in
      let mcpserver =
        field_map json__ "mcpserver" MCPServerConfiguration.of_json in
      let mcpserverdatadog =
        field_map json__ "mcpserverdatadog"
          MCPServerDatadogConfiguration.of_json in
      let mcpservernewrelic =
        field_map json__ "mcpservernewrelic"
          MCPServerNewRelicConfiguration.of_json in
      let servicenow =
        field_map json__ "servicenow" ServiceNowConfiguration.of_json in
      let dynatrace =
        field_map json__ "dynatrace" DynatraceConfiguration.of_json in
      let slack = field_map json__ "slack" SlackConfiguration.of_json in
      let github = field_map json__ "github" GitHubConfiguration.of_json in
      let aws = field_map json__ "aws" AWSConfiguration.of_json in
      let sourceAws =
        field_map json__ "sourceAws" SourceAwsConfiguration.of_json in
      make ?pagerduty ?mcpservergrafana ?azuredevops ?azure ?eventChannel
        ?mcpserversplunk ?gitlab ?mcpserver ?mcpserverdatadog
        ?mcpservernewrelic ?servicenow ?dynatrace ?slack ?github ?aws
        ?sourceAws ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Union of all supported service configuration types. Each service has its own specific configuration structure."]
module ValidationStatus =
  struct
    type nonrec t =
      | Valid 
      | Invalid 
      | Pending_confirmation 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Valid -> "valid"
      | Invalid -> "invalid"
      | Pending_confirmation -> "pending-confirmation"
      | Non_static_id s -> s
    let of_string =
      function
      | "valid" -> Valid
      | "invalid" -> Invalid
      | "pending-confirmation" -> Pending_confirmation
      | 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 ValidationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ValidationStatus" j)
    let to_json = simple_to_json to_value
  end
module AgentSpaceName =
  struct
    type nonrec t = string[@@ocaml.doc "Agent space name field"]
    let context_ = "AgentSpaceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\p{L}\\p{N}\\p{P}\\p{S}\\p{Z}]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AgentSpaceName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Agent space name field"]
module Locale =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A BCP 47 locale identifier for configuring the language used in agent responses."]
    let context_ = "Locale"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:35) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z]{2,3}(-[a-zA-Z0-9]{2,8})*")));
        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:"Locale" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "A BCP 47 locale identifier for configuring the language used in agent responses."]
module CertificateString =
  struct
    type nonrec t = string[@@ocaml.doc
                            "String type for certificate or certificate chain."]
    let context_ = "CertificateString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:32768) >>=
             (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:"CertificateString" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "String type for certificate or certificate chain."]
module IpAddressType =
  struct
    type nonrec t =
      | IPV4 
      | IPV6 
      | DUAL_STACK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IPV4 -> "IPV4"
      | IPV6 -> "IPV6"
      | DUAL_STACK -> "DUAL_STACK"
      | Non_static_id s -> s
    let of_string =
      function
      | "IPV4" -> IPV4
      | "IPV6" -> IPV6
      | "DUAL_STACK" -> DUAL_STACK
      | 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 IpAddressType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IpAddressType" j)
    let to_json = simple_to_json to_value
  end
module ListOfSecurityGroupIds =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (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:SecurityGroupId.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:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfSecurityGroupIds"
        ~of_json:SecurityGroupId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOfSubnetIds =
  struct
    type nonrec t = SubnetId.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:SubnetId.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:SubnetId.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfSubnetIds" ~of_json:SubnetId.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxIpv4AddressesPerEni =
  struct
    type nonrec t = int[@@ocaml.doc
                         "The number of IPv4 addresses in each ENI for the Resource Gateway."]
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:62) >>= (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 MaxIpv4AddressesPerEni" 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[@@ocaml.doc
       "The number of IPv4 addresses in each ENI for the Resource Gateway."]
module PortRanges =
  struct
    type nonrec t = PortRange.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:11) >>= (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:PortRange.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:PortRange.of_xml)
    let of_json j =
      list_of_json ~kind:"PortRanges" ~of_json:PortRange.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ValidationExceptionField.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApiKeyValue =
  struct
    type nonrec t = string[@@ocaml.doc "API Key Value for service."]
    let context_ = "ApiKeyValue"
    let make i =
      let open Result in ok_or_failwith (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:"ApiKeyValue" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "API Key Value for service."]
module WebhookSecret =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Webhook secret for secure webhook communication."]
    let context_ = "WebhookSecret"
    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:"WebhookSecret" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Webhook secret for secure webhook communication."]
module TagKey =
  struct
    type nonrec t = string[@@ocaml.doc "Tag key string."]
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Tag key string."]
module TagValue =
  struct
    type nonrec t = string[@@ocaml.doc "Tag value string."]
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Tag value string."]
module SendMessageContentBlockDeltaEvent =
  struct
    type nonrec t =
      {
      index: Integer.t option
        [@ocaml.doc "Zero-based index of the content block"];
      delta: SendMessageContentBlockDelta.t option
        [@ocaml.doc "The incremental content delta"];
      sequenceNumber: Integer.t option [@ocaml.doc "Event sequence number"]}
    let make ?index =
      fun ?delta ->
        fun ?sequenceNumber -> fun () -> { index; delta; sequenceNumber }
    let to_value x =
      structure_to_value
        [("index", (Option.map x.index ~f:Integer.to_value));
        ("delta",
          (Option.map x.delta ~f:SendMessageContentBlockDelta.to_value));
        ("sequenceNumber", (Option.map x.sequenceNumber ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sequenceNumber =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "sequenceNumber") in
      let delta =
        (Option.map ~f:SendMessageContentBlockDelta.of_xml)
          (Xml.child xml_arg0 "delta") in
      let index = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "index") in
      make ?sequenceNumber ?delta ?index ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sequenceNumber = field_map json__ "sequenceNumber" Integer.of_json in
      let delta =
        field_map json__ "delta" SendMessageContentBlockDelta.of_json in
      let index = field_map json__ "index" Integer.of_json in
      make ?sequenceNumber ?delta ?index ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Event emitted for each incremental content delta within a content block"]
module SendMessageContentBlockStartEvent =
  struct
    type nonrec t =
      {
      index: Integer.t option
        [@ocaml.doc "Zero-based index of the content block"];
      type_: String_.t option
        [@ocaml.doc "The type of content in this block"];
      id: String_.t option [@ocaml.doc "Block identifier"];
      parentId: String_.t option
        [@ocaml.doc
          "Optional parent block ID for nested content blocks (e.g. subagent tool calls)"];
      sequenceNumber: Integer.t option [@ocaml.doc "Event sequence number"]}
    let make ?index =
      fun ?type_ ->
        fun ?id ->
          fun ?parentId ->
            fun ?sequenceNumber ->
              fun () -> { index; type_; id; parentId; sequenceNumber }
    let to_value x =
      structure_to_value
        [("index", (Option.map x.index ~f:Integer.to_value));
        ("type", (Option.map x.type_ ~f:String_.to_value));
        ("id", (Option.map x.id ~f:String_.to_value));
        ("parentId", (Option.map x.parentId ~f:String_.to_value));
        ("sequenceNumber", (Option.map x.sequenceNumber ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sequenceNumber =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "sequenceNumber") in
      let parentId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "parentId") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      let index = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "index") in
      make ?sequenceNumber ?parentId ?id ?type_ ?index ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sequenceNumber = field_map json__ "sequenceNumber" Integer.of_json in
      let parentId = field_map json__ "parentId" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      let type_ = field_map json__ "type" String_.of_json in
      let index = field_map json__ "index" Integer.of_json in
      make ?sequenceNumber ?parentId ?id ?type_ ?index ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Event emitted when a new content block starts"]
module SendMessageContentBlockStopEvent =
  struct
    type nonrec t =
      {
      index: Integer.t option
        [@ocaml.doc "Zero-based index of the content block"];
      type_: String_.t option
        [@ocaml.doc "The type of content in this block"];
      text: String_.t option
        [@ocaml.doc "The accumulated complete content text"];
      last: Boolean.t option
        [@ocaml.doc
          "Whether this is the final content block in the response"];
      sequenceNumber: Integer.t option [@ocaml.doc "Event sequence number"]}
    let make ?index =
      fun ?type_ ->
        fun ?text ->
          fun ?last ->
            fun ?sequenceNumber ->
              fun () -> { index; type_; text; last; sequenceNumber }
    let to_value x =
      structure_to_value
        [("index", (Option.map x.index ~f:Integer.to_value));
        ("type", (Option.map x.type_ ~f:String_.to_value));
        ("text", (Option.map x.text ~f:String_.to_value));
        ("last", (Option.map x.last ~f:Boolean.to_value));
        ("sequenceNumber", (Option.map x.sequenceNumber ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sequenceNumber =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "sequenceNumber") in
      let last = (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "last") in
      let text = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "text") in
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      let index = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "index") in
      make ?sequenceNumber ?last ?text ?type_ ?index ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sequenceNumber = field_map json__ "sequenceNumber" Integer.of_json in
      let last = field_map json__ "last" Boolean.of_json in
      let text = field_map json__ "text" String_.of_json in
      let type_ = field_map json__ "type" String_.of_json in
      let index = field_map json__ "index" Integer.of_json in
      make ?sequenceNumber ?last ?text ?type_ ?index ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Event emitted when a content block is complete"]
module SendMessageHeartbeatEvent =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Heartbeat event to keep connection alive"]
module SendMessageResponseCompletedEvent =
  struct
    type nonrec t =
      {
      responseId: String_.t option [@ocaml.doc "The response ID"];
      usage: SendMessageUsageInfo.t option
        [@ocaml.doc "Token usage information"];
      sequenceNumber: Integer.t option [@ocaml.doc "Event sequence number"]}
    let make ?responseId =
      fun ?usage ->
        fun ?sequenceNumber ->
          fun () -> { responseId; usage; sequenceNumber }
    let to_value x =
      structure_to_value
        [("responseId", (Option.map x.responseId ~f:String_.to_value));
        ("usage", (Option.map x.usage ~f:SendMessageUsageInfo.to_value));
        ("sequenceNumber", (Option.map x.sequenceNumber ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sequenceNumber =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "sequenceNumber") in
      let usage =
        (Option.map ~f:SendMessageUsageInfo.of_xml)
          (Xml.child xml_arg0 "usage") in
      let responseId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "responseId") in
      make ?sequenceNumber ?usage ?responseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sequenceNumber = field_map json__ "sequenceNumber" Integer.of_json in
      let usage = field_map json__ "usage" SendMessageUsageInfo.of_json in
      let responseId = field_map json__ "responseId" String_.of_json in
      make ?sequenceNumber ?usage ?responseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Event emitted when the response completes successfully"]
module SendMessageResponseCreatedEvent =
  struct
    type nonrec t =
      {
      responseId: String_.t option [@ocaml.doc "The response ID"];
      sequenceNumber: Integer.t option [@ocaml.doc "Event sequence number"]}
    let make ?responseId =
      fun ?sequenceNumber -> fun () -> { responseId; sequenceNumber }
    let to_value x =
      structure_to_value
        [("responseId", (Option.map x.responseId ~f:String_.to_value));
        ("sequenceNumber", (Option.map x.sequenceNumber ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sequenceNumber =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "sequenceNumber") in
      let responseId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "responseId") in
      make ?sequenceNumber ?responseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sequenceNumber = field_map json__ "sequenceNumber" Integer.of_json in
      let responseId = field_map json__ "responseId" String_.of_json in
      make ?sequenceNumber ?responseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Event emitted when the response is created"]
module SendMessageResponseFailedEvent =
  struct
    type nonrec t =
      {
      responseId: String_.t option [@ocaml.doc "The response ID"];
      errorCode: String_.t option [@ocaml.doc "Error code"];
      errorMessage: String_.t option [@ocaml.doc "Error message"];
      sequenceNumber: Integer.t option [@ocaml.doc "Event sequence number"]}
    let make ?responseId =
      fun ?errorCode ->
        fun ?errorMessage ->
          fun ?sequenceNumber ->
            fun () -> { responseId; errorCode; errorMessage; sequenceNumber }
    let to_value x =
      structure_to_value
        [("responseId", (Option.map x.responseId ~f:String_.to_value));
        ("errorCode", (Option.map x.errorCode ~f:String_.to_value));
        ("errorMessage", (Option.map x.errorMessage ~f:String_.to_value));
        ("sequenceNumber", (Option.map x.sequenceNumber ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sequenceNumber =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "sequenceNumber") in
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorMessage") in
      let errorCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorCode") in
      let responseId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "responseId") in
      make ?sequenceNumber ?errorMessage ?errorCode ?responseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sequenceNumber = field_map json__ "sequenceNumber" Integer.of_json in
      let errorMessage = field_map json__ "errorMessage" String_.of_json in
      let errorCode = field_map json__ "errorCode" String_.of_json in
      let responseId = field_map json__ "responseId" String_.of_json in
      make ?sequenceNumber ?errorMessage ?errorCode ?responseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Event emitted when the response fails"]
module SendMessageResponseInProgressEvent =
  struct
    type nonrec t =
      {
      responseId: String_.t option [@ocaml.doc "The response ID"];
      sequenceNumber: Integer.t option [@ocaml.doc "Event sequence number"]}
    let make ?responseId =
      fun ?sequenceNumber -> fun () -> { responseId; sequenceNumber }
    let to_value x =
      structure_to_value
        [("responseId", (Option.map x.responseId ~f:String_.to_value));
        ("sequenceNumber", (Option.map x.sequenceNumber ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sequenceNumber =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "sequenceNumber") in
      let responseId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "responseId") in
      make ?sequenceNumber ?responseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sequenceNumber = field_map json__ "sequenceNumber" Integer.of_json in
      let responseId = field_map json__ "responseId" String_.of_json in
      make ?sequenceNumber ?responseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Event emitted while the response is being generated"]
module SendMessageSummaryEvent =
  struct
    type nonrec t =
      {
      content: String_.t option [@ocaml.doc "Summary content"];
      sequenceNumber: Integer.t option [@ocaml.doc "Event sequence number"]}
    let make ?content =
      fun ?sequenceNumber -> fun () -> { content; sequenceNumber }
    let to_value x =
      structure_to_value
        [("content", (Option.map x.content ~f:String_.to_value));
        ("sequenceNumber", (Option.map x.sequenceNumber ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sequenceNumber =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "sequenceNumber") in
      let content =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "content") in
      make ?sequenceNumber ?content ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sequenceNumber = field_map json__ "sequenceNumber" Integer.of_json in
      let content = field_map json__ "content" String_.of_json in
      make ?sequenceNumber ?content ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Event summarizing agent actions"]
module OAuthAdditionalStepDetails =
  struct
    type nonrec t =
      {
      authorizationUrl: String_.t option
        [@ocaml.doc
          "The URL to redirect the user to for OAuth authorization."]}
    let make ?authorizationUrl = fun () -> { authorizationUrl }
    let to_value x =
      structure_to_value
        [("authorizationUrl",
           (Option.map x.authorizationUrl ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorizationUrl =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "authorizationUrl") in
      make ?authorizationUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorizationUrl =
        field_map json__ "authorizationUrl" String_.of_json in
      make ?authorizationUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Details for completing OAuth authorization step."]
module DatadogServiceDetails =
  struct
    type nonrec t =
      {
      name: DatadogServiceDetailsNameString.t [@ocaml.doc "MCP server name."];
      endpoint: DatadogServiceDetailsEndpointString.t
        [@ocaml.doc "MCP server endpoint URL."];
      description: DatadogServiceDetailsDescriptionString.t option
        [@ocaml.doc "Optional description for the MCP server."];
      authorizationConfig: DatadogAuthorizationConfig.t
        [@ocaml.doc
          "Datadog MCP server authorization configuration (only authorization discovery is supported)."]}
    let context_ = "DatadogServiceDetails"
    let make ?description =
      fun ~name ->
        fun ~endpoint ->
          fun ~authorizationConfig ->
            fun () -> { description; name; endpoint; authorizationConfig }
    let to_value x =
      structure_to_value
        [("name", (Some (DatadogServiceDetailsNameString.to_value x.name)));
        ("endpoint",
          (Some (DatadogServiceDetailsEndpointString.to_value x.endpoint)));
        ("description",
          (Option.map x.description
             ~f:DatadogServiceDetailsDescriptionString.to_value));
        ("authorizationConfig",
          (Some (DatadogAuthorizationConfig.to_value x.authorizationConfig)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorizationConfig =
        DatadogAuthorizationConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "authorizationConfig") in
      let description =
        (Option.map ~f:DatadogServiceDetailsDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let endpoint =
        DatadogServiceDetailsEndpointString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "endpoint") in
      let name =
        DatadogServiceDetailsNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~authorizationConfig ?description ~endpoint ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorizationConfig =
        field_map_exn json__ "authorizationConfig"
          DatadogAuthorizationConfig.of_json in
      let description =
        field_map json__ "description"
          DatadogServiceDetailsDescriptionString.of_json in
      let endpoint =
        field_map_exn json__ "endpoint"
          DatadogServiceDetailsEndpointString.of_json in
      let name =
        field_map_exn json__ "name" DatadogServiceDetailsNameString.of_json in
      make ~authorizationConfig ?description ~endpoint ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Complete service details for Datadog MCP server integration."]
module DynatraceServiceDetails =
  struct
    type nonrec t =
      {
      accountUrn: DynatraceServiceDetailsAccountUrnString.t
        [@ocaml.doc "Dynatrace resource account urn."];
      authorizationConfig: DynatraceServiceAuthorizationConfig.t option
        [@ocaml.doc
          "Dynatrace OAuth client credentials configuration. Use this when registering with OAuth client credentials flow."]}
    let context_ = "DynatraceServiceDetails"
    let make ?authorizationConfig =
      fun ~accountUrn -> fun () -> { authorizationConfig; accountUrn }
    let to_value x =
      structure_to_value
        [("accountUrn",
           (Some
              (DynatraceServiceDetailsAccountUrnString.to_value x.accountUrn)));
        ("authorizationConfig",
          (Option.map x.authorizationConfig
             ~f:DynatraceServiceAuthorizationConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorizationConfig =
        (Option.map ~f:DynatraceServiceAuthorizationConfig.of_xml)
          (Xml.child xml_arg0 "authorizationConfig") in
      let accountUrn =
        DynatraceServiceDetailsAccountUrnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountUrn") in
      make ?authorizationConfig ~accountUrn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorizationConfig =
        field_map json__ "authorizationConfig"
          DynatraceServiceAuthorizationConfig.of_json in
      let accountUrn =
        field_map_exn json__ "accountUrn"
          DynatraceServiceDetailsAccountUrnString.of_json in
      make ?authorizationConfig ~accountUrn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Complete service details for Dynatrace integration."]
module EventChannelDetails =
  struct
    type nonrec t =
      {
      type_: EventChannelType.t option
        [@ocaml.doc "The type of event channel"]}
    let make ?type_ = fun () -> { type_ }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:EventChannelType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:EventChannelType.of_xml) (Xml.child xml_arg0 "type") in
      make ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "type" EventChannelType.of_json in
      make ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Service details for Event Channel integration."]
module GitLabDetails =
  struct
    type nonrec t =
      {
      targetUrl: GitLabDetailsTargetUrlString.t
        [@ocaml.doc
          "GitLab instance URL (e.g., https://gitlab.com or self-hosted instance)."];
      tokenType: GitLabTokenType.t [@ocaml.doc "Type of GitLab access token"];
      tokenValue: GitLabDetailsTokenValueString.t
        [@ocaml.doc "GitLab access token value"];
      groupId: String_.t option
        [@ocaml.doc "Optional GitLab group ID for group-level access tokens"]}
    let context_ = "GitLabDetails"
    let make ?groupId =
      fun ~targetUrl ->
        fun ~tokenType ->
          fun ~tokenValue ->
            fun () -> { groupId; targetUrl; tokenType; tokenValue }
    let to_value x =
      structure_to_value
        [("targetUrl",
           (Some (GitLabDetailsTargetUrlString.to_value x.targetUrl)));
        ("tokenType", (Some (GitLabTokenType.to_value x.tokenType)));
        ("tokenValue",
          (Some (GitLabDetailsTokenValueString.to_value x.tokenValue)));
        ("groupId", (Option.map x.groupId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groupId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "groupId") in
      let tokenValue =
        GitLabDetailsTokenValueString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tokenValue") in
      let tokenType =
        GitLabTokenType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tokenType") in
      let targetUrl =
        GitLabDetailsTargetUrlString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetUrl") in
      make ?groupId ~tokenValue ~tokenType ~targetUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groupId = field_map json__ "groupId" String_.of_json in
      let tokenValue =
        field_map_exn json__ "tokenValue"
          GitLabDetailsTokenValueString.of_json in
      let tokenType =
        field_map_exn json__ "tokenType" GitLabTokenType.of_json in
      let targetUrl =
        field_map_exn json__ "targetUrl" GitLabDetailsTargetUrlString.of_json in
      make ?groupId ~tokenValue ~tokenType ~targetUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Service details for GitLab integration."]
module GrafanaServiceDetails =
  struct
    type nonrec t =
      {
      name: GrafanaServiceDetailsNameString.t [@ocaml.doc "MCP server name."];
      endpoint: GrafanaServiceDetailsEndpointString.t
        [@ocaml.doc "MCP server endpoint URL."];
      description: GrafanaServiceDetailsDescriptionString.t option
        [@ocaml.doc "Optional description for the MCP server."];
      authorizationConfig: MCPServerAuthorizationConfig.t
        [@ocaml.doc
          "Grafana MCP server authorization configuration (experimental)."]}
    let context_ = "GrafanaServiceDetails"
    let make ?description =
      fun ~name ->
        fun ~endpoint ->
          fun ~authorizationConfig ->
            fun () -> { description; name; endpoint; authorizationConfig }
    let to_value x =
      structure_to_value
        [("name", (Some (GrafanaServiceDetailsNameString.to_value x.name)));
        ("endpoint",
          (Some (GrafanaServiceDetailsEndpointString.to_value x.endpoint)));
        ("description",
          (Option.map x.description
             ~f:GrafanaServiceDetailsDescriptionString.to_value));
        ("authorizationConfig",
          (Some (MCPServerAuthorizationConfig.to_value x.authorizationConfig)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorizationConfig =
        MCPServerAuthorizationConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "authorizationConfig") in
      let description =
        (Option.map ~f:GrafanaServiceDetailsDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let endpoint =
        GrafanaServiceDetailsEndpointString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "endpoint") in
      let name =
        GrafanaServiceDetailsNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~authorizationConfig ?description ~endpoint ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorizationConfig =
        field_map_exn json__ "authorizationConfig"
          MCPServerAuthorizationConfig.of_json in
      let description =
        field_map json__ "description"
          GrafanaServiceDetailsDescriptionString.of_json in
      let endpoint =
        field_map_exn json__ "endpoint"
          GrafanaServiceDetailsEndpointString.of_json in
      let name =
        field_map_exn json__ "name" GrafanaServiceDetailsNameString.of_json in
      make ~authorizationConfig ?description ~endpoint ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Complete service details for Grafana MCP server integration."]
module MCPServerDetails =
  struct
    type nonrec t =
      {
      name: MCPServerDetailsNameString.t [@ocaml.doc "MCP server name."];
      endpoint: MCPServerDetailsEndpointString.t
        [@ocaml.doc "MCP server endpoint URL."];
      description: MCPServerDetailsDescriptionString.t option
        [@ocaml.doc "Optional description for the MCP server."];
      authorizationConfig: MCPServerAuthorizationConfig.t
        [@ocaml.doc "MCP server authorization configuration."]}
    let context_ = "MCPServerDetails"
    let make ?description =
      fun ~name ->
        fun ~endpoint ->
          fun ~authorizationConfig ->
            fun () -> { description; name; endpoint; authorizationConfig }
    let to_value x =
      structure_to_value
        [("name", (Some (MCPServerDetailsNameString.to_value x.name)));
        ("endpoint",
          (Some (MCPServerDetailsEndpointString.to_value x.endpoint)));
        ("description",
          (Option.map x.description
             ~f:MCPServerDetailsDescriptionString.to_value));
        ("authorizationConfig",
          (Some (MCPServerAuthorizationConfig.to_value x.authorizationConfig)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorizationConfig =
        MCPServerAuthorizationConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "authorizationConfig") in
      let description =
        (Option.map ~f:MCPServerDetailsDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let endpoint =
        MCPServerDetailsEndpointString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "endpoint") in
      let name =
        MCPServerDetailsNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~authorizationConfig ?description ~endpoint ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorizationConfig =
        field_map_exn json__ "authorizationConfig"
          MCPServerAuthorizationConfig.of_json in
      let description =
        field_map json__ "description"
          MCPServerDetailsDescriptionString.of_json in
      let endpoint =
        field_map_exn json__ "endpoint"
          MCPServerDetailsEndpointString.of_json in
      let name =
        field_map_exn json__ "name" MCPServerDetailsNameString.of_json in
      make ~authorizationConfig ?description ~endpoint ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Complete service details for MCP server integration."]
module NewRelicServiceDetails =
  struct
    type nonrec t =
      {
      authorizationConfig: NewRelicServiceAuthorizationConfig.t
        [@ocaml.doc "New Relic MCP server authorization configuration."]}
    let context_ = "NewRelicServiceDetails"
    let make ~authorizationConfig = fun () -> { authorizationConfig }
    let to_value x =
      structure_to_value
        [("authorizationConfig",
           (Some
              (NewRelicServiceAuthorizationConfig.to_value
                 x.authorizationConfig)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorizationConfig =
        NewRelicServiceAuthorizationConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "authorizationConfig") in
      make ~authorizationConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorizationConfig =
        field_map_exn json__ "authorizationConfig"
          NewRelicServiceAuthorizationConfig.of_json in
      make ~authorizationConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Complete service details for New Relic integration."]
module PagerDutyDetails =
  struct
    type nonrec t =
      {
      scopes: PagerDutyScopes.t [@ocaml.doc "PagerDuty scopes."];
      authorizationConfig: PagerDutyAuthorizationConfig.t
        [@ocaml.doc "PagerDuty authorization configuration"]}
    let context_ = "PagerDutyDetails"
    let make ~scopes =
      fun ~authorizationConfig -> fun () -> { scopes; authorizationConfig }
    let to_value x =
      structure_to_value
        [("scopes", (Some (PagerDutyScopes.to_value x.scopes)));
        ("authorizationConfig",
          (Some (PagerDutyAuthorizationConfig.to_value x.authorizationConfig)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorizationConfig =
        PagerDutyAuthorizationConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "authorizationConfig") in
      let scopes =
        PagerDutyScopes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "scopes") in
      make ~authorizationConfig ~scopes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorizationConfig =
        field_map_exn json__ "authorizationConfig"
          PagerDutyAuthorizationConfig.of_json in
      let scopes = field_map_exn json__ "scopes" PagerDutyScopes.of_json in
      make ~authorizationConfig ~scopes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Complete service details for PagerDuty integration"]
module ServiceNowServiceDetails =
  struct
    type nonrec t =
      {
      instanceUrl: ServiceNowInstanceUrl.t
        [@ocaml.doc "ServiceNow instance URL."];
      authorizationConfig: ServiceNowServiceAuthorizationConfig.t option
        [@ocaml.doc
          "ServiceNow OAuth client credentials configuration. Use this when registering with OAuth client credentials flow."]}
    let context_ = "ServiceNowServiceDetails"
    let make ?authorizationConfig =
      fun ~instanceUrl -> fun () -> { authorizationConfig; instanceUrl }
    let to_value x =
      structure_to_value
        [("instanceUrl",
           (Some (ServiceNowInstanceUrl.to_value x.instanceUrl)));
        ("authorizationConfig",
          (Option.map x.authorizationConfig
             ~f:ServiceNowServiceAuthorizationConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorizationConfig =
        (Option.map ~f:ServiceNowServiceAuthorizationConfig.of_xml)
          (Xml.child xml_arg0 "authorizationConfig") in
      let instanceUrl =
        ServiceNowInstanceUrl.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instanceUrl") in
      make ?authorizationConfig ~instanceUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorizationConfig =
        field_map json__ "authorizationConfig"
          ServiceNowServiceAuthorizationConfig.of_json in
      let instanceUrl =
        field_map_exn json__ "instanceUrl" ServiceNowInstanceUrl.of_json in
      make ?authorizationConfig ~instanceUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Complete service details for ServiceNow integration."]
module Webhook =
  struct
    type nonrec t =
      {
      webhookUrl: WebhookWebhookUrlString.t option
        [@ocaml.doc "Webhook endpoint URL."];
      webhookType: WebhookType.t option
        [@ocaml.doc "Webhook authentication type."];
      webhookId: WebhookWebhookIdString.t option
        [@ocaml.doc "The unique identifier of the Webhook"]}
    let make ?webhookUrl =
      fun ?webhookType ->
        fun ?webhookId -> fun () -> { webhookUrl; webhookType; webhookId }
    let to_value x =
      structure_to_value
        [("webhookUrl",
           (Option.map x.webhookUrl ~f:WebhookWebhookUrlString.to_value));
        ("webhookType", (Option.map x.webhookType ~f:WebhookType.to_value));
        ("webhookId",
          (Option.map x.webhookId ~f:WebhookWebhookIdString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhookId =
        (Option.map ~f:WebhookWebhookIdString.of_xml)
          (Xml.child xml_arg0 "webhookId") in
      let webhookType =
        (Option.map ~f:WebhookType.of_xml) (Xml.child xml_arg0 "webhookType") in
      let webhookUrl =
        (Option.map ~f:WebhookWebhookUrlString.of_xml)
          (Xml.child xml_arg0 "webhookUrl") in
      make ?webhookId ?webhookType ?webhookUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhookId =
        field_map json__ "webhookId" WebhookWebhookIdString.of_json in
      let webhookType = field_map json__ "webhookType" WebhookType.of_json in
      let webhookUrl =
        field_map json__ "webhookUrl" WebhookWebhookUrlString.of_json in
      make ?webhookId ?webhookType ?webhookUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a complete Webhook with all its properties, and unique identifier."]
module RegisteredService =
  struct
    type nonrec t =
      {
      serviceId: ServiceId.t option
        [@ocaml.doc "The unique identifier of a service."];
      serviceType: Service.t option
        [@ocaml.doc "The service type e.g github or dynatrace"];
      name: ServiceName.t option
        [@ocaml.doc "The display name of the registered service."];
      accessibleResources: DocumentList.t option
        [@ocaml.doc "List of accessible resources for this service."];
      additionalServiceDetails: AdditionalServiceDetails.t option
        [@ocaml.doc "Additional details specific to the service type."];
      kmsKeyArn: KmsKeyArn.t option
        [@ocaml.doc
          "The ARN of the AWS Key Management Service (AWS KMS) customer managed key that's used to encrypt resources."];
      privateConnectionName: PrivateConnectionName.t option
        [@ocaml.doc
          "The name of the private connection used for VPC connectivity."]}
    let make ?serviceId =
      fun ?serviceType ->
        fun ?name ->
          fun ?accessibleResources ->
            fun ?additionalServiceDetails ->
              fun ?kmsKeyArn ->
                fun ?privateConnectionName ->
                  fun () ->
                    {
                      serviceId;
                      serviceType;
                      name;
                      accessibleResources;
                      additionalServiceDetails;
                      kmsKeyArn;
                      privateConnectionName
                    }
    let to_value x =
      structure_to_value
        [("serviceId", (Option.map x.serviceId ~f:ServiceId.to_value));
        ("serviceType", (Option.map x.serviceType ~f:Service.to_value));
        ("name", (Option.map x.name ~f:ServiceName.to_value));
        ("accessibleResources",
          (Option.map x.accessibleResources ~f:DocumentList.to_value));
        ("additionalServiceDetails",
          (Option.map x.additionalServiceDetails
             ~f:AdditionalServiceDetails.to_value));
        ("kmsKeyArn", (Option.map x.kmsKeyArn ~f:KmsKeyArn.to_value));
        ("privateConnectionName",
          (Option.map x.privateConnectionName
             ~f:PrivateConnectionName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateConnectionName =
        (Option.map ~f:PrivateConnectionName.of_xml)
          (Xml.child xml_arg0 "privateConnectionName") in
      let kmsKeyArn =
        (Option.map ~f:KmsKeyArn.of_xml) (Xml.child xml_arg0 "kmsKeyArn") in
      let additionalServiceDetails =
        (Option.map ~f:AdditionalServiceDetails.of_xml)
          (Xml.child xml_arg0 "additionalServiceDetails") in
      let accessibleResources =
        (Option.map ~f:DocumentList.of_xml)
          (Xml.child xml_arg0 "accessibleResources") in
      let name =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "name") in
      let serviceType =
        (Option.map ~f:Service.of_xml) (Xml.child xml_arg0 "serviceType") in
      let serviceId =
        (Option.map ~f:ServiceId.of_xml) (Xml.child xml_arg0 "serviceId") in
      make ?privateConnectionName ?kmsKeyArn ?additionalServiceDetails
        ?accessibleResources ?name ?serviceType ?serviceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateConnectionName =
        field_map json__ "privateConnectionName"
          PrivateConnectionName.of_json in
      let kmsKeyArn = field_map json__ "kmsKeyArn" KmsKeyArn.of_json in
      let additionalServiceDetails =
        field_map json__ "additionalServiceDetails"
          AdditionalServiceDetails.of_json in
      let accessibleResources =
        field_map json__ "accessibleResources" DocumentList.of_json in
      let name = field_map json__ "name" ServiceName.of_json in
      let serviceType = field_map json__ "serviceType" Service.of_json in
      let serviceId = field_map json__ "serviceId" ServiceId.of_json in
      make ?privateConnectionName ?kmsKeyArn ?additionalServiceDetails
        ?accessibleResources ?name ?serviceType ?serviceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a registered service with its configuration and accessible resources."]
module Recommendation =
  struct
    type nonrec t =
      {
      agentSpaceArn: String_.t option
        [@ocaml.doc "ARN of the agent space this recommendation belongs to"];
      recommendationId: String_.t option
        [@ocaml.doc "The unique identifier for this recommendation"];
      taskId: String_.t option
        [@ocaml.doc "ID of the task that generated the recommendation"];
      goalId: String_.t option
        [@ocaml.doc "ID of the goal this recommendation is associated with"];
      title: String_.t option [@ocaml.doc "The title of the recommendation"];
      content: RecommendationContent.t option
        [@ocaml.doc "Content of the recommendation"];
      status: RecommendationStatus.t option
        [@ocaml.doc "Current status of the recommendation"];
      priority: RecommendationPriority.t option
        [@ocaml.doc "Priority level of the recommendation"];
      goalVersion: Long.t option
        [@ocaml.doc
          "Version of the goal at the time this recommendation was generated"];
      additionalContext: String_.t option
        [@ocaml.doc "Additional context for recommendation"];
      createdAt: BackLogTimestamp.t option
        [@ocaml.doc "Timestamp when this recommendation was created"];
      updatedAt: BackLogTimestamp.t option
        [@ocaml.doc "Timestamp when this recommendation was last updated"];
      version: Long.t option
        [@ocaml.doc "Version number for optimistic locking"]}
    let make ?agentSpaceArn =
      fun ?recommendationId ->
        fun ?taskId ->
          fun ?goalId ->
            fun ?title ->
              fun ?content ->
                fun ?status ->
                  fun ?priority ->
                    fun ?goalVersion ->
                      fun ?additionalContext ->
                        fun ?createdAt ->
                          fun ?updatedAt ->
                            fun ?version ->
                              fun () ->
                                {
                                  agentSpaceArn;
                                  recommendationId;
                                  taskId;
                                  goalId;
                                  title;
                                  content;
                                  status;
                                  priority;
                                  goalVersion;
                                  additionalContext;
                                  createdAt;
                                  updatedAt;
                                  version
                                }
    let to_value x =
      structure_to_value
        [("agentSpaceArn", (Option.map x.agentSpaceArn ~f:String_.to_value));
        ("recommendationId",
          (Option.map x.recommendationId ~f:String_.to_value));
        ("taskId", (Option.map x.taskId ~f:String_.to_value));
        ("goalId", (Option.map x.goalId ~f:String_.to_value));
        ("title", (Option.map x.title ~f:String_.to_value));
        ("content", (Option.map x.content ~f:RecommendationContent.to_value));
        ("status", (Option.map x.status ~f:RecommendationStatus.to_value));
        ("priority",
          (Option.map x.priority ~f:RecommendationPriority.to_value));
        ("goalVersion", (Option.map x.goalVersion ~f:Long.to_value));
        ("additionalContext",
          (Option.map x.additionalContext ~f:String_.to_value));
        ("createdAt", (Option.map x.createdAt ~f:BackLogTimestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:BackLogTimestamp.to_value));
        ("version", (Option.map x.version ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "version") in
      let updatedAt =
        (Option.map ~f:BackLogTimestamp.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:BackLogTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let additionalContext =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "additionalContext") in
      let goalVersion =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "goalVersion") in
      let priority =
        (Option.map ~f:RecommendationPriority.of_xml)
          (Xml.child xml_arg0 "priority") in
      let status =
        (Option.map ~f:RecommendationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let content =
        (Option.map ~f:RecommendationContent.of_xml)
          (Xml.child xml_arg0 "content") in
      let title = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "title") in
      let goalId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "goalId") in
      let taskId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "taskId") in
      let recommendationId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "recommendationId") in
      let agentSpaceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "agentSpaceArn") in
      make ?version ?updatedAt ?createdAt ?additionalContext ?goalVersion
        ?priority ?status ?content ?title ?goalId ?taskId ?recommendationId
        ?agentSpaceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "version" Long.of_json in
      let updatedAt = field_map json__ "updatedAt" BackLogTimestamp.of_json in
      let createdAt = field_map json__ "createdAt" BackLogTimestamp.of_json in
      let additionalContext =
        field_map json__ "additionalContext" String_.of_json in
      let goalVersion = field_map json__ "goalVersion" Long.of_json in
      let priority =
        field_map json__ "priority" RecommendationPriority.of_json in
      let status = field_map json__ "status" RecommendationStatus.of_json in
      let content = field_map json__ "content" RecommendationContent.of_json in
      let title = field_map json__ "title" String_.of_json in
      let goalId = field_map json__ "goalId" String_.of_json in
      let taskId = field_map json__ "taskId" String_.of_json in
      let recommendationId =
        field_map json__ "recommendationId" String_.of_json in
      let agentSpaceArn = field_map json__ "agentSpaceArn" String_.of_json in
      make ?version ?updatedAt ?createdAt ?additionalContext ?goalVersion
        ?priority ?status ?content ?title ?goalId ?taskId ?recommendationId
        ?agentSpaceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a recommendation with all its properties and metadata"]
module PrivateConnectionSummary =
  struct
    type nonrec t =
      {
      name: PrivateConnectionName.t option
        [@ocaml.doc "The name of the Private Connection."];
      type_: PrivateConnectionType.t option
        [@ocaml.doc "The type of the Private Connection."];
      resourceGatewayId: ResourceGatewayArn.t option
        [@ocaml.doc
          "The service-managed Resource Gateway ARN. Only present for service-managed Private Connections."];
      hostAddress: IpAddressOrDnsName.t option
        [@ocaml.doc
          "IP address or DNS name of the target resource. Only present for service-managed Private Connections."];
      vpcId: VpcId.t option
        [@ocaml.doc
          "VPC identifier of the service-managed Resource Gateway. Only present for service-managed Private Connections."];
      resourceConfigurationId: ResourceConfigurationArn.t option
        [@ocaml.doc
          "The Resource Configuration ARN. Only present for self-managed Private Connections."];
      status: PrivateConnectionStatus.t option
        [@ocaml.doc "The status of the Private Connection."];
      certificateExpiryTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The expiry time of the certificate associated with the Private Connection. Only present when a certificate is associated."]}
    let make ?name =
      fun ?type_ ->
        fun ?resourceGatewayId ->
          fun ?hostAddress ->
            fun ?vpcId ->
              fun ?resourceConfigurationId ->
                fun ?status ->
                  fun ?certificateExpiryTime ->
                    fun () ->
                      {
                        name;
                        type_;
                        resourceGatewayId;
                        hostAddress;
                        vpcId;
                        resourceConfigurationId;
                        status;
                        certificateExpiryTime
                      }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:PrivateConnectionName.to_value));
        ("type", (Option.map x.type_ ~f:PrivateConnectionType.to_value));
        ("resourceGatewayId",
          (Option.map x.resourceGatewayId ~f:ResourceGatewayArn.to_value));
        ("hostAddress",
          (Option.map x.hostAddress ~f:IpAddressOrDnsName.to_value));
        ("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("resourceConfigurationId",
          (Option.map x.resourceConfigurationId
             ~f:ResourceConfigurationArn.to_value));
        ("status", (Option.map x.status ~f:PrivateConnectionStatus.to_value));
        ("certificateExpiryTime",
          (Option.map x.certificateExpiryTime
             ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateExpiryTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "certificateExpiryTime") in
      let status =
        (Option.map ~f:PrivateConnectionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let resourceConfigurationId =
        (Option.map ~f:ResourceConfigurationArn.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationId") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      let hostAddress =
        (Option.map ~f:IpAddressOrDnsName.of_xml)
          (Xml.child xml_arg0 "hostAddress") in
      let resourceGatewayId =
        (Option.map ~f:ResourceGatewayArn.of_xml)
          (Xml.child xml_arg0 "resourceGatewayId") in
      let type_ =
        (Option.map ~f:PrivateConnectionType.of_xml)
          (Xml.child xml_arg0 "type") in
      let name =
        (Option.map ~f:PrivateConnectionName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?certificateExpiryTime ?status ?resourceConfigurationId ?vpcId
        ?hostAddress ?resourceGatewayId ?type_ ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateExpiryTime =
        field_map json__ "certificateExpiryTime"
          SyntheticTimestamp_date_time.of_json in
      let status = field_map json__ "status" PrivateConnectionStatus.of_json in
      let resourceConfigurationId =
        field_map json__ "resourceConfigurationId"
          ResourceConfigurationArn.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      let hostAddress =
        field_map json__ "hostAddress" IpAddressOrDnsName.of_json in
      let resourceGatewayId =
        field_map json__ "resourceGatewayId" ResourceGatewayArn.of_json in
      let type_ = field_map json__ "type" PrivateConnectionType.of_json in
      let name = field_map json__ "name" PrivateConnectionName.of_json in
      make ?certificateExpiryTime ?status ?resourceConfigurationId ?vpcId
        ?hostAddress ?resourceGatewayId ?type_ ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary of a Private Connection."]
module PendingMessage =
  struct
    type nonrec t =
      {
      messageId: String_.t option
        [@ocaml.doc "The unique identifier for this pending message."];
      message: Message.t option [@ocaml.doc "The message content."]}
    let make ?messageId = fun ?message -> fun () -> { messageId; message }
    let to_value x =
      structure_to_value
        [("messageId", (Option.map x.messageId ~f:String_.to_value));
        ("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      let messageId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "messageId") in
      make ?message ?messageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" Message.of_json in
      let messageId = field_map json__ "messageId" String_.of_json in
      make ?message ?messageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents a pending message in an agent execution."]
module JournalRecord =
  struct
    type nonrec t =
      {
      agentSpaceId: String_.t option
        [@ocaml.doc
          "The unique identifier for the agent space containing this record"];
      executionId: String_.t option
        [@ocaml.doc "The execution ID associated with this journal record"];
      recordId: String_.t option
        [@ocaml.doc "The unique identifier for this journal record"];
      content: Document.t option
        [@ocaml.doc "The content of this journal record"];
      createdAt: JournalTimestamp.t option
        [@ocaml.doc "Timestamp when this journal record was created"];
      recordType: String_.t option
        [@ocaml.doc "The type of this journal record"];
      userReference: UserReference.t option
        [@ocaml.doc
          "Reference to the user associated with this journal record"]}
    let make ?agentSpaceId =
      fun ?executionId ->
        fun ?recordId ->
          fun ?content ->
            fun ?createdAt ->
              fun ?recordType ->
                fun ?userReference ->
                  fun () ->
                    {
                      agentSpaceId;
                      executionId;
                      recordId;
                      content;
                      createdAt;
                      recordType;
                      userReference
                    }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Option.map x.agentSpaceId ~f:String_.to_value));
        ("executionId", (Option.map x.executionId ~f:String_.to_value));
        ("recordId", (Option.map x.recordId ~f:String_.to_value));
        ("content", (Option.map x.content ~f:Document.to_value));
        ("createdAt", (Option.map x.createdAt ~f:JournalTimestamp.to_value));
        ("recordType", (Option.map x.recordType ~f:String_.to_value));
        ("userReference",
          (Option.map x.userReference ~f:UserReference.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userReference =
        (Option.map ~f:UserReference.of_xml)
          (Xml.child xml_arg0 "userReference") in
      let recordType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "recordType") in
      let createdAt =
        (Option.map ~f:JournalTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let content =
        (Option.map ~f:Document.of_xml) (Xml.child xml_arg0 "content") in
      let recordId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "recordId") in
      let executionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "executionId") in
      let agentSpaceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "agentSpaceId") in
      make ?userReference ?recordType ?createdAt ?content ?recordId
        ?executionId ?agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userReference =
        field_map json__ "userReference" UserReference.of_json in
      let recordType = field_map json__ "recordType" String_.of_json in
      let createdAt = field_map json__ "createdAt" JournalTimestamp.of_json in
      let content = field_map json__ "content" Document.of_json in
      let recordId = field_map json__ "recordId" String_.of_json in
      let executionId = field_map json__ "executionId" String_.of_json in
      let agentSpaceId = field_map json__ "agentSpaceId" String_.of_json in
      make ?userReference ?recordType ?createdAt ?content ?recordId
        ?executionId ?agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a journal record containing execution details and content"]
module Goal =
  struct
    type nonrec t =
      {
      agentSpaceArn: String_.t option
        [@ocaml.doc
          "The unique identifier for the agent space containing this goal"];
      goalId: String_.t option
        [@ocaml.doc "The unique identifier for this goal"];
      title: String_.t option [@ocaml.doc "The title of the goal"];
      content: GoalContent.t option [@ocaml.doc "Content of the goal"];
      status: GoalStatus.t option
        [@ocaml.doc "Current status of the goal itself"];
      goalType: GoalType.t option
        [@ocaml.doc "Type of goal based on its origin"];
      createdAt: BackLogTimestamp.t option
        [@ocaml.doc "Timestamp when this goal was created"];
      updatedAt: BackLogTimestamp.t option
        [@ocaml.doc "Timestamp when this goal was last updated"];
      lastEvaluatedAt: BackLogTimestamp.t option
        [@ocaml.doc "Timestamp when the goal was last evaluated"];
      lastTaskId: String_.t option
        [@ocaml.doc "ID of the most recent task associated with this goal"];
      lastSuccessfulTaskId: String_.t option
        [@ocaml.doc
          "ID of the most recent successful task associated with this goal"];
      version: Integer.t option
        [@ocaml.doc "Version number for optimistic locking"];
      evaluationSchedule: GoalSchedule.t option
        [@ocaml.doc
          "Goal Schedule. Allows to schedule the goal to run periodically, as well as disable a goal temporarily"]}
    let make ?agentSpaceArn =
      fun ?goalId ->
        fun ?title ->
          fun ?content ->
            fun ?status ->
              fun ?goalType ->
                fun ?createdAt ->
                  fun ?updatedAt ->
                    fun ?lastEvaluatedAt ->
                      fun ?lastTaskId ->
                        fun ?lastSuccessfulTaskId ->
                          fun ?version ->
                            fun ?evaluationSchedule ->
                              fun () ->
                                {
                                  agentSpaceArn;
                                  goalId;
                                  title;
                                  content;
                                  status;
                                  goalType;
                                  createdAt;
                                  updatedAt;
                                  lastEvaluatedAt;
                                  lastTaskId;
                                  lastSuccessfulTaskId;
                                  version;
                                  evaluationSchedule
                                }
    let to_value x =
      structure_to_value
        [("agentSpaceArn", (Option.map x.agentSpaceArn ~f:String_.to_value));
        ("goalId", (Option.map x.goalId ~f:String_.to_value));
        ("title", (Option.map x.title ~f:String_.to_value));
        ("content", (Option.map x.content ~f:GoalContent.to_value));
        ("status", (Option.map x.status ~f:GoalStatus.to_value));
        ("goalType", (Option.map x.goalType ~f:GoalType.to_value));
        ("createdAt", (Option.map x.createdAt ~f:BackLogTimestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:BackLogTimestamp.to_value));
        ("lastEvaluatedAt",
          (Option.map x.lastEvaluatedAt ~f:BackLogTimestamp.to_value));
        ("lastTaskId", (Option.map x.lastTaskId ~f:String_.to_value));
        ("lastSuccessfulTaskId",
          (Option.map x.lastSuccessfulTaskId ~f:String_.to_value));
        ("version", (Option.map x.version ~f:Integer.to_value));
        ("evaluationSchedule",
          (Option.map x.evaluationSchedule ~f:GoalSchedule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let evaluationSchedule =
        (Option.map ~f:GoalSchedule.of_xml)
          (Xml.child xml_arg0 "evaluationSchedule") in
      let version =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "version") in
      let lastSuccessfulTaskId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "lastSuccessfulTaskId") in
      let lastTaskId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "lastTaskId") in
      let lastEvaluatedAt =
        (Option.map ~f:BackLogTimestamp.of_xml)
          (Xml.child xml_arg0 "lastEvaluatedAt") in
      let updatedAt =
        (Option.map ~f:BackLogTimestamp.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:BackLogTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let goalType =
        (Option.map ~f:GoalType.of_xml) (Xml.child xml_arg0 "goalType") in
      let status =
        (Option.map ~f:GoalStatus.of_xml) (Xml.child xml_arg0 "status") in
      let content =
        (Option.map ~f:GoalContent.of_xml) (Xml.child xml_arg0 "content") in
      let title = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "title") in
      let goalId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "goalId") in
      let agentSpaceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "agentSpaceArn") in
      make ?evaluationSchedule ?version ?lastSuccessfulTaskId ?lastTaskId
        ?lastEvaluatedAt ?updatedAt ?createdAt ?goalType ?status ?content
        ?title ?goalId ?agentSpaceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let evaluationSchedule =
        field_map json__ "evaluationSchedule" GoalSchedule.of_json in
      let version = field_map json__ "version" Integer.of_json in
      let lastSuccessfulTaskId =
        field_map json__ "lastSuccessfulTaskId" String_.of_json in
      let lastTaskId = field_map json__ "lastTaskId" String_.of_json in
      let lastEvaluatedAt =
        field_map json__ "lastEvaluatedAt" BackLogTimestamp.of_json in
      let updatedAt = field_map json__ "updatedAt" BackLogTimestamp.of_json in
      let createdAt = field_map json__ "createdAt" BackLogTimestamp.of_json in
      let goalType = field_map json__ "goalType" GoalType.of_json in
      let status = field_map json__ "status" GoalStatus.of_json in
      let content = field_map json__ "content" GoalContent.of_json in
      let title = field_map json__ "title" String_.of_json in
      let goalId = field_map json__ "goalId" String_.of_json in
      let agentSpaceArn = field_map json__ "agentSpaceArn" String_.of_json in
      make ?evaluationSchedule ?version ?lastSuccessfulTaskId ?lastTaskId
        ?lastEvaluatedAt ?updatedAt ?createdAt ?goalType ?status ?content
        ?title ?goalId ?agentSpaceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents a goal with all its properties and metadata"]
module Execution =
  struct
    type nonrec t =
      {
      agentSpaceId: String_.t option
        [@ocaml.doc
          "The unique identifier for the agent space containing this execution"];
      executionId: String_.t option
        [@ocaml.doc "The unique identifier for this execution"];
      parentExecutionId: String_.t option
        [@ocaml.doc
          "The identifier of the parent execution, if this is a child execution"];
      agentSubTask: String_.t option
        [@ocaml.doc "The specific subtask being executed by the agent"];
      createdAt: JournalTimestamp.t option
        [@ocaml.doc "Timestamp when this execution was created"];
      updatedAt: JournalTimestamp.t option
        [@ocaml.doc "Timestamp when this execution was last updated"];
      executionStatus: ExecutionStatus.t option
        [@ocaml.doc "The current status of this execution"];
      agentType: String_.t option
        [@ocaml.doc "The type of agent that performed this execution."];
      uid: String_.t option
        [@ocaml.doc
          "The unique identifier for the user session associated with this execution"]}
    let make ?agentSpaceId =
      fun ?executionId ->
        fun ?parentExecutionId ->
          fun ?agentSubTask ->
            fun ?createdAt ->
              fun ?updatedAt ->
                fun ?executionStatus ->
                  fun ?agentType ->
                    fun ?uid ->
                      fun () ->
                        {
                          agentSpaceId;
                          executionId;
                          parentExecutionId;
                          agentSubTask;
                          createdAt;
                          updatedAt;
                          executionStatus;
                          agentType;
                          uid
                        }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Option.map x.agentSpaceId ~f:String_.to_value));
        ("executionId", (Option.map x.executionId ~f:String_.to_value));
        ("parentExecutionId",
          (Option.map x.parentExecutionId ~f:String_.to_value));
        ("agentSubTask", (Option.map x.agentSubTask ~f:String_.to_value));
        ("createdAt", (Option.map x.createdAt ~f:JournalTimestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:JournalTimestamp.to_value));
        ("executionStatus",
          (Option.map x.executionStatus ~f:ExecutionStatus.to_value));
        ("agentType", (Option.map x.agentType ~f:String_.to_value));
        ("uid", (Option.map x.uid ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uid = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "uid") in
      let agentType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "agentType") in
      let executionStatus =
        (Option.map ~f:ExecutionStatus.of_xml)
          (Xml.child xml_arg0 "executionStatus") in
      let updatedAt =
        (Option.map ~f:JournalTimestamp.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:JournalTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let agentSubTask =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "agentSubTask") in
      let parentExecutionId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "parentExecutionId") in
      let executionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "executionId") in
      let agentSpaceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "agentSpaceId") in
      make ?uid ?agentType ?executionStatus ?updatedAt ?createdAt
        ?agentSubTask ?parentExecutionId ?executionId ?agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uid = field_map json__ "uid" String_.of_json in
      let agentType = field_map json__ "agentType" String_.of_json in
      let executionStatus =
        field_map json__ "executionStatus" ExecutionStatus.of_json in
      let updatedAt = field_map json__ "updatedAt" JournalTimestamp.of_json in
      let createdAt = field_map json__ "createdAt" JournalTimestamp.of_json in
      let agentSubTask = field_map json__ "agentSubTask" String_.of_json in
      let parentExecutionId =
        field_map json__ "parentExecutionId" String_.of_json in
      let executionId = field_map json__ "executionId" String_.of_json in
      let agentSpaceId = field_map json__ "agentSpaceId" String_.of_json in
      make ?uid ?agentType ?executionStatus ?updatedAt ?createdAt
        ?agentSubTask ?parentExecutionId ?executionId ?agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents an execution instance with its lifecycle information"]
module ChatExecution =
  struct
    type nonrec t =
      {
      executionId: ResourceId.t option
        [@ocaml.doc "The unique identifier for the execution"];
      createdAt: Timestamp.t option
        [@ocaml.doc "Timestamp when the chat was created"];
      updatedAt: Timestamp.t option
        [@ocaml.doc "Timestamp when the chat was last updated"];
      summary: String_.t option [@ocaml.doc "Summary or title of the chat"]}
    let make ?executionId =
      fun ?createdAt ->
        fun ?updatedAt ->
          fun ?summary ->
            fun () -> { executionId; createdAt; updatedAt; summary }
    let to_value x =
      structure_to_value
        [("executionId", (Option.map x.executionId ~f:ResourceId.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:Timestamp.to_value));
        ("summary", (Option.map x.summary ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let summary =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "summary") in
      let updatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let executionId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "executionId") in
      make ?summary ?updatedAt ?createdAt ?executionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let summary = field_map json__ "summary" String_.of_json in
      let updatedAt = field_map json__ "updatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let executionId = field_map json__ "executionId" ResourceId.of_json in
      make ?summary ?updatedAt ?createdAt ?executionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A single chat execution summary"]
module Task =
  struct
    type nonrec t =
      {
      agentSpaceId: String_.t option
        [@ocaml.doc
          "The unique identifier for the agent space containing this task"];
      taskId: String_.t option
        [@ocaml.doc "The unique identifier for this task"];
      executionId: String_.t option
        [@ocaml.doc "The execution ID associated with this task, if any"];
      title: String_.t option [@ocaml.doc "The title of the task"];
      description: String_.t option
        [@ocaml.doc "Optional detailed description of the task"];
      reference: ReferenceOutput.t option
        [@ocaml.doc
          "Optional reference information linking this task to external systems"];
      taskType: TaskType.t option [@ocaml.doc "The type of this task"];
      priority: Priority.t option
        [@ocaml.doc "The priority level of this task"];
      status: TaskStatus.t option
        [@ocaml.doc "The current status of this task"];
      createdAt: BackLogTimestamp.t option
        [@ocaml.doc "Timestamp when this task was created"];
      updatedAt: BackLogTimestamp.t option
        [@ocaml.doc "Timestamp when this task was last updated"];
      version: Integer.t option
        [@ocaml.doc "Version number for optimistic locking"];
      supportMetadata: Document.t option
        [@ocaml.doc "Optional support metadata for the task"];
      metadata: Document.t option
        [@ocaml.doc "Optional metadata for the task"];
      primaryTaskId: String_.t option
        [@ocaml.doc
          "The task ID of the primary investigation this task is linked to"];
      statusReason: String_.t option
        [@ocaml.doc
          "Explanation for why the task status was changed (e.g., linked reason)"];
      hasLinkedTasks: Boolean.t option
        [@ocaml.doc "Indicates if this task has other tasks linked to it"]}
    let make ?agentSpaceId =
      fun ?taskId ->
        fun ?executionId ->
          fun ?title ->
            fun ?description ->
              fun ?reference ->
                fun ?taskType ->
                  fun ?priority ->
                    fun ?status ->
                      fun ?createdAt ->
                        fun ?updatedAt ->
                          fun ?version ->
                            fun ?supportMetadata ->
                              fun ?metadata ->
                                fun ?primaryTaskId ->
                                  fun ?statusReason ->
                                    fun ?hasLinkedTasks ->
                                      fun () ->
                                        {
                                          agentSpaceId;
                                          taskId;
                                          executionId;
                                          title;
                                          description;
                                          reference;
                                          taskType;
                                          priority;
                                          status;
                                          createdAt;
                                          updatedAt;
                                          version;
                                          supportMetadata;
                                          metadata;
                                          primaryTaskId;
                                          statusReason;
                                          hasLinkedTasks
                                        }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Option.map x.agentSpaceId ~f:String_.to_value));
        ("taskId", (Option.map x.taskId ~f:String_.to_value));
        ("executionId", (Option.map x.executionId ~f:String_.to_value));
        ("title", (Option.map x.title ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("reference", (Option.map x.reference ~f:ReferenceOutput.to_value));
        ("taskType", (Option.map x.taskType ~f:TaskType.to_value));
        ("priority", (Option.map x.priority ~f:Priority.to_value));
        ("status", (Option.map x.status ~f:TaskStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:BackLogTimestamp.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:BackLogTimestamp.to_value));
        ("version", (Option.map x.version ~f:Integer.to_value));
        ("supportMetadata",
          (Option.map x.supportMetadata ~f:Document.to_value));
        ("metadata", (Option.map x.metadata ~f:Document.to_value));
        ("primaryTaskId", (Option.map x.primaryTaskId ~f:String_.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("hasLinkedTasks", (Option.map x.hasLinkedTasks ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hasLinkedTasks =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "hasLinkedTasks") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let primaryTaskId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "primaryTaskId") in
      let metadata =
        (Option.map ~f:Document.of_xml) (Xml.child xml_arg0 "metadata") in
      let supportMetadata =
        (Option.map ~f:Document.of_xml)
          (Xml.child xml_arg0 "supportMetadata") in
      let version =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "version") in
      let updatedAt =
        (Option.map ~f:BackLogTimestamp.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:BackLogTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:TaskStatus.of_xml) (Xml.child xml_arg0 "status") in
      let priority =
        (Option.map ~f:Priority.of_xml) (Xml.child xml_arg0 "priority") in
      let taskType =
        (Option.map ~f:TaskType.of_xml) (Xml.child xml_arg0 "taskType") in
      let reference =
        (Option.map ~f:ReferenceOutput.of_xml)
          (Xml.child xml_arg0 "reference") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let title = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "title") in
      let executionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "executionId") in
      let taskId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "taskId") in
      let agentSpaceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "agentSpaceId") in
      make ?hasLinkedTasks ?statusReason ?primaryTaskId ?metadata
        ?supportMetadata ?version ?updatedAt ?createdAt ?status ?priority
        ?taskType ?reference ?description ?title ?executionId ?taskId
        ?agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hasLinkedTasks = field_map json__ "hasLinkedTasks" Boolean.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let primaryTaskId = field_map json__ "primaryTaskId" String_.of_json in
      let metadata = field_map json__ "metadata" Document.of_json in
      let supportMetadata =
        field_map json__ "supportMetadata" Document.of_json in
      let version = field_map json__ "version" Integer.of_json in
      let updatedAt = field_map json__ "updatedAt" BackLogTimestamp.of_json in
      let createdAt = field_map json__ "createdAt" BackLogTimestamp.of_json in
      let status = field_map json__ "status" TaskStatus.of_json in
      let priority = field_map json__ "priority" Priority.of_json in
      let taskType = field_map json__ "taskType" TaskType.of_json in
      let reference = field_map json__ "reference" ReferenceOutput.of_json in
      let description = field_map json__ "description" String_.of_json in
      let title = field_map json__ "title" String_.of_json in
      let executionId = field_map json__ "executionId" String_.of_json in
      let taskId = field_map json__ "taskId" String_.of_json in
      let agentSpaceId = field_map json__ "agentSpaceId" String_.of_json in
      make ?hasLinkedTasks ?statusReason ?primaryTaskId ?metadata
        ?supportMetadata ?version ?updatedAt ?createdAt ?status ?priority
        ?taskType ?reference ?description ?title ?executionId ?taskId
        ?agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a backlog task with all its properties and metadata"]
module TaskFilterPriorityList =
  struct
    type nonrec t = Priority.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Priority.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:Priority.of_xml)
    let of_json j =
      list_of_json ~kind:"TaskFilterPriorityList" ~of_json:Priority.of_json j
    let to_json v = composed_to_json to_value v
  end
module TaskFilterStatusList =
  struct
    type nonrec t = TaskStatus.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TaskStatus.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:TaskStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"TaskFilterStatusList" ~of_json:TaskStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module TaskFilterTaskTypeList =
  struct
    type nonrec t = TaskType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TaskType.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:TaskType.of_xml)
    let of_json j =
      list_of_json ~kind:"TaskFilterTaskTypeList" ~of_json:TaskType.of_json j
    let to_json v = composed_to_json to_value v
  end
module Association =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t option
        [@ocaml.doc "The unique identifier of the AgentSpace"];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The timestamp when the resource was created."];
      updatedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The timestamp when the resource was last updated."];
      status: ValidationStatus.t option [@ocaml.doc "Validation status"];
      associationId: AssociationId.t option
        [@ocaml.doc "The unique identifier of the given association."];
      serviceId: ServiceId.t option
        [@ocaml.doc "The identifier for associated service"];
      configuration: ServiceConfiguration.t option
        [@ocaml.doc
          "The configuration that directs how AgentSpace interacts with the given service."]}
    let make ?agentSpaceId =
      fun ?createdAt ->
        fun ?updatedAt ->
          fun ?status ->
            fun ?associationId ->
              fun ?serviceId ->
                fun ?configuration ->
                  fun () ->
                    {
                      agentSpaceId;
                      createdAt;
                      updatedAt;
                      status;
                      associationId;
                      serviceId;
                      configuration
                    }
    let to_value x =
      structure_to_value
        [("agentSpaceId",
           (Option.map x.agentSpaceId ~f:AgentSpaceId.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("updatedAt",
          (Option.map x.updatedAt ~f:SyntheticTimestamp_date_time.to_value));
        ("status", (Option.map x.status ~f:ValidationStatus.to_value));
        ("associationId",
          (Option.map x.associationId ~f:AssociationId.to_value));
        ("serviceId", (Option.map x.serviceId ~f:ServiceId.to_value));
        ("configuration",
          (Option.map x.configuration ~f:ServiceConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        (Option.map ~f:ServiceConfiguration.of_xml)
          (Xml.child xml_arg0 "configuration") in
      let serviceId =
        (Option.map ~f:ServiceId.of_xml) (Xml.child xml_arg0 "serviceId") in
      let associationId =
        (Option.map ~f:AssociationId.of_xml)
          (Xml.child xml_arg0 "associationId") in
      let status =
        (Option.map ~f:ValidationStatus.of_xml) (Xml.child xml_arg0 "status") in
      let updatedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let agentSpaceId =
        (Option.map ~f:AgentSpaceId.of_xml)
          (Xml.child xml_arg0 "agentSpaceId") in
      make ?configuration ?serviceId ?associationId ?status ?updatedAt
        ?createdAt ?agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map json__ "configuration" ServiceConfiguration.of_json in
      let serviceId = field_map json__ "serviceId" ServiceId.of_json in
      let associationId =
        field_map json__ "associationId" AssociationId.of_json in
      let status = field_map json__ "status" ValidationStatus.of_json in
      let updatedAt =
        field_map json__ "updatedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let agentSpaceId = field_map json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?configuration ?serviceId ?associationId ?status ?updatedAt
        ?createdAt ?agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a service association within an AgentSpace, defining how the agent interacts with external services."]
module AgentSpace =
  struct
    type nonrec t =
      {
      name: AgentSpaceName.t option
        [@ocaml.doc "The name of the AgentSpace."];
      description: Description.t option
        [@ocaml.doc "The description of the AgentSpace."];
      locale: Locale.t option
        [@ocaml.doc
          "The locale for the AgentSpace, which determines the language used in agent responses."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The timestamp when the resource was created."];
      updatedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The timestamp when the resource was last updated."];
      kmsKeyArn: KmsKeyArn.t option
        [@ocaml.doc
          "The ARN of the AWS Key Management Service (AWS KMS) customer managed key that's used to encrypt resources."];
      agentSpaceId: AgentSpaceId.t option
        [@ocaml.doc "The unique identifier of the AgentSpace"]}
    let make ?name =
      fun ?description ->
        fun ?locale ->
          fun ?createdAt ->
            fun ?updatedAt ->
              fun ?kmsKeyArn ->
                fun ?agentSpaceId ->
                  fun () ->
                    {
                      name;
                      description;
                      locale;
                      createdAt;
                      updatedAt;
                      kmsKeyArn;
                      agentSpaceId
                    }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:AgentSpaceName.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("locale", (Option.map x.locale ~f:Locale.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("updatedAt",
          (Option.map x.updatedAt ~f:SyntheticTimestamp_date_time.to_value));
        ("kmsKeyArn", (Option.map x.kmsKeyArn ~f:KmsKeyArn.to_value));
        ("agentSpaceId",
          (Option.map x.agentSpaceId ~f:AgentSpaceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let agentSpaceId =
        (Option.map ~f:AgentSpaceId.of_xml)
          (Xml.child xml_arg0 "agentSpaceId") in
      let kmsKeyArn =
        (Option.map ~f:KmsKeyArn.of_xml) (Xml.child xml_arg0 "kmsKeyArn") in
      let updatedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let locale =
        (Option.map ~f:Locale.of_xml) (Xml.child xml_arg0 "locale") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:AgentSpaceName.of_xml) (Xml.child xml_arg0 "name") in
      make ?agentSpaceId ?kmsKeyArn ?updatedAt ?createdAt ?locale
        ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let agentSpaceId = field_map json__ "agentSpaceId" AgentSpaceId.of_json in
      let kmsKeyArn = field_map json__ "kmsKeyArn" KmsKeyArn.of_json in
      let updatedAt =
        field_map json__ "updatedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let locale = field_map json__ "locale" Locale.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" AgentSpaceName.of_json in
      make ?agentSpaceId ?kmsKeyArn ?updatedAt ?createdAt ?locale
        ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a complete AgentSpace with all its properties, timestamps, encryption settings, and unique identifier."]
module Double =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module SelfManagedInput =
  struct
    type nonrec t =
      {
      resourceConfigurationId: ResourceConfigurationArn.t
        [@ocaml.doc "The ID or ARN of the resource configuration."];
      certificate: CertificateString.t option
        [@ocaml.doc "Certificate for the Private Connection."]}
    let context_ = "SelfManagedInput"
    let make ?certificate =
      fun ~resourceConfigurationId ->
        fun () -> { certificate; resourceConfigurationId }
    let to_value x =
      structure_to_value
        [("resourceConfigurationId",
           (Some
              (ResourceConfigurationArn.to_value x.resourceConfigurationId)));
        ("certificate",
          (Option.map x.certificate ~f:CertificateString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificate =
        (Option.map ~f:CertificateString.of_xml)
          (Xml.child xml_arg0 "certificate") in
      let resourceConfigurationId =
        ResourceConfigurationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceConfigurationId") in
      make ?certificate ~resourceConfigurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificate =
        field_map json__ "certificate" CertificateString.of_json in
      let resourceConfigurationId =
        field_map_exn json__ "resourceConfigurationId"
          ResourceConfigurationArn.of_json in
      make ?certificate ~resourceConfigurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for a self-managed Private Connection."]
module ServiceManagedInput =
  struct
    type nonrec t =
      {
      hostAddress: IpAddressOrDnsName.t
        [@ocaml.doc "IP address or DNS name of the target resource."];
      vpcId: VpcId.t
        [@ocaml.doc "VPC to create the service-managed Resource Gateway in."];
      subnetIds: ListOfSubnetIds.t
        [@ocaml.doc
          "Subnets that the service-managed Resource Gateway will span."];
      securityGroupIds: ListOfSecurityGroupIds.t option
        [@ocaml.doc
          "Security groups to attach to the service-managed Resource Gateway. If not specified, a default security group is created."];
      ipAddressType: IpAddressType.t option
        [@ocaml.doc
          "IP address type of the service-managed Resource Gateway."];
      ipv4AddressesPerEni: MaxIpv4AddressesPerEni.t option
        [@ocaml.doc
          "Number of IPv4 addresses in each ENI for the service-managed Resource Gateway."];
      portRanges: PortRanges.t option
        [@ocaml.doc
          "TCP port ranges that a consumer can use to access the resource."];
      certificate: CertificateString.t option
        [@ocaml.doc "Certificate for the Private Connection."]}
    let context_ = "ServiceManagedInput"
    let make ?securityGroupIds =
      fun ?ipAddressType ->
        fun ?ipv4AddressesPerEni ->
          fun ?portRanges ->
            fun ?certificate ->
              fun ~hostAddress ->
                fun ~vpcId ->
                  fun ~subnetIds ->
                    fun () ->
                      {
                        securityGroupIds;
                        ipAddressType;
                        ipv4AddressesPerEni;
                        portRanges;
                        certificate;
                        hostAddress;
                        vpcId;
                        subnetIds
                      }
    let to_value x =
      structure_to_value
        [("hostAddress", (Some (IpAddressOrDnsName.to_value x.hostAddress)));
        ("vpcId", (Some (VpcId.to_value x.vpcId)));
        ("subnetIds", (Some (ListOfSubnetIds.to_value x.subnetIds)));
        ("securityGroupIds",
          (Option.map x.securityGroupIds ~f:ListOfSecurityGroupIds.to_value));
        ("ipAddressType",
          (Option.map x.ipAddressType ~f:IpAddressType.to_value));
        ("ipv4AddressesPerEni",
          (Option.map x.ipv4AddressesPerEni
             ~f:MaxIpv4AddressesPerEni.to_value));
        ("portRanges", (Option.map x.portRanges ~f:PortRanges.to_value));
        ("certificate",
          (Option.map x.certificate ~f:CertificateString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificate =
        (Option.map ~f:CertificateString.of_xml)
          (Xml.child xml_arg0 "certificate") in
      let portRanges =
        (Option.map ~f:PortRanges.of_xml) (Xml.child xml_arg0 "portRanges") in
      let ipv4AddressesPerEni =
        (Option.map ~f:MaxIpv4AddressesPerEni.of_xml)
          (Xml.child xml_arg0 "ipv4AddressesPerEni") in
      let ipAddressType =
        (Option.map ~f:IpAddressType.of_xml)
          (Xml.child xml_arg0 "ipAddressType") in
      let securityGroupIds =
        (Option.map ~f:ListOfSecurityGroupIds.of_xml)
          (Xml.child xml_arg0 "securityGroupIds") in
      let subnetIds =
        ListOfSubnetIds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "subnetIds") in
      let vpcId =
        VpcId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "vpcId") in
      let hostAddress =
        IpAddressOrDnsName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "hostAddress") in
      make ?certificate ?portRanges ?ipv4AddressesPerEni ?ipAddressType
        ?securityGroupIds ~subnetIds ~vpcId ~hostAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificate =
        field_map json__ "certificate" CertificateString.of_json in
      let portRanges = field_map json__ "portRanges" PortRanges.of_json in
      let ipv4AddressesPerEni =
        field_map json__ "ipv4AddressesPerEni" MaxIpv4AddressesPerEni.of_json in
      let ipAddressType =
        field_map json__ "ipAddressType" IpAddressType.of_json in
      let securityGroupIds =
        field_map json__ "securityGroupIds" ListOfSecurityGroupIds.of_json in
      let subnetIds =
        field_map_exn json__ "subnetIds" ListOfSubnetIds.of_json in
      let vpcId = field_map_exn json__ "vpcId" VpcId.of_json in
      let hostAddress =
        field_map_exn json__ "hostAddress" IpAddressOrDnsName.of_json in
      make ?certificate ?portRanges ?ipv4AddressesPerEni ?ipAddressType
        ?securityGroupIds ~subnetIds ~vpcId ~hostAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for a service-managed Private Connection."]
module ReferenceInputReferenceUrlString =
  struct
    type nonrec t = string
    let context_ = "ReferenceInputReferenceUrlString"
    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:"ReferenceInputReferenceUrlString" j
    let to_json = simple_to_json to_value
  end
module ReferenceInputSystemString =
  struct
    type nonrec t = string
    let context_ = "ReferenceInputSystemString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (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:"ReferenceInputSystemString" j
    let to_json = simple_to_json to_value
  end
module ReferenceInputTitleString =
  struct
    type nonrec t = string
    let context_ = "ReferenceInputTitleString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (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:"ReferenceInputTitleString" j
    let to_json = simple_to_json to_value
  end
module AccessDeniedException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc
          "Detailed error message describing why access was denied."]}
    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
       "Access to the requested resource is denied due to insufficient permissions."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Detailed error message describing the conflict."]}
    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 conflicts with the current state of the resource."]
module ContentSizeExceededException =
  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
       "This exception is thrown when the content size exceeds the allowed limit."]
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
       "This exception is thrown when an unexpected error occurs in the processing of a request."]
module InvalidParameterException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc
          "Detailed error message describing which parameter is invalid and why."]}
    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
       "One or more parameters provided in the request are invalid."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc
          "Detailed error message describing which resource was not found."]}
    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 requested resource could not be found."]
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc
          "Detailed error message describing which quota was exceeded."]}
    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 would exceed the service quota limit."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc
          "Detailed error message describing the throttling condition."]}
    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 was throttled due to too many requests. Please slow down and try again."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "A summary of the validation failure."];
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc
          "A list of specific failures encountered while validating the input. A member can appear in this list more than once if it failed to satisfy multiple constraints."]}
    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
       "A standard error for input validation failures. This should be thrown by services when a member of the input structure falls outside of the modeled or documented constraints."]
module IdpAuthConfiguration =
  struct
    type nonrec t =
      {
      issuerUrl: String_.t option
        [@ocaml.doc "The OIDC issuer URL of the external Identity Provider"];
      clientId: String_.t option
        [@ocaml.doc "The OIDC client ID for the IdP application"];
      operatorAppRoleArn: String_.t option
        [@ocaml.doc "The IAM role end users assume to access AIDevOps APIs"];
      provider: String_.t option
        [@ocaml.doc "The Identity Provider name (e.g., Entra, Okta, Google)"];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The timestamp when the Operator App IdP auth flow was enabled."];
      updatedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The timestamp when the Operator App IdP auth flow was updated."]}
    let make ?issuerUrl =
      fun ?clientId ->
        fun ?operatorAppRoleArn ->
          fun ?provider ->
            fun ?createdAt ->
              fun ?updatedAt ->
                fun () ->
                  {
                    issuerUrl;
                    clientId;
                    operatorAppRoleArn;
                    provider;
                    createdAt;
                    updatedAt
                  }
    let to_value x =
      structure_to_value
        [("issuerUrl", (Option.map x.issuerUrl ~f:String_.to_value));
        ("clientId", (Option.map x.clientId ~f:String_.to_value));
        ("operatorAppRoleArn",
          (Option.map x.operatorAppRoleArn ~f:String_.to_value));
        ("provider", (Option.map x.provider ~f:String_.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("updatedAt",
          (Option.map x.updatedAt ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let provider =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "provider") in
      let operatorAppRoleArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "operatorAppRoleArn") in
      let clientId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clientId") in
      let issuerUrl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "issuerUrl") in
      make ?updatedAt ?createdAt ?provider ?operatorAppRoleArn ?clientId
        ?issuerUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedAt =
        field_map json__ "updatedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let provider = field_map json__ "provider" String_.of_json in
      let operatorAppRoleArn =
        field_map json__ "operatorAppRoleArn" String_.of_json in
      let clientId = field_map json__ "clientId" String_.of_json in
      let issuerUrl = field_map json__ "issuerUrl" String_.of_json in
      make ?updatedAt ?createdAt ?provider ?operatorAppRoleArn ?clientId
        ?issuerUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration for external Identity Provider OIDC authentication flow for the Operator App."]
module IdpClientSecret =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Client secret for IdP OIDC authentication."]
    let context_ = "IdpClientSecret"
    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:"IdpClientSecret" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Client secret for IdP OIDC authentication."]
module GoalScheduleInput =
  struct
    type nonrec t =
      {
      state: SchedulerState.t
        [@ocaml.doc "Whether the schedule is enabled or disabled"]}
    let context_ = "GoalScheduleInput"
    let make ~state = fun () -> { state }
    let to_value x =
      structure_to_value
        [("state", (Some (SchedulerState.to_value x.state)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        SchedulerState.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "state") in
      make ~state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map_exn json__ "state" SchedulerState.of_json in
      make ~state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Schedule configuration for updating goal evaluations"]
module GenericWebhook =
  struct
    type nonrec t =
      {
      webhookUrl: String_.t option [@ocaml.doc "The webhook URL endpoint"];
      webhookId: String_.t option
        [@ocaml.doc "The unique webhook identifier"];
      webhookType: WebhookType.t option
        [@ocaml.doc "The webhook authentication type"];
      webhookSecret: WebhookSecret.t option
        [@ocaml.doc "The webhook secret for authentication"];
      apiKey: ApiKeyValue.t option
        [@ocaml.doc "API Key for API Key webhook authentication"]}
    let make ?webhookUrl =
      fun ?webhookId ->
        fun ?webhookType ->
          fun ?webhookSecret ->
            fun ?apiKey ->
              fun () ->
                { webhookUrl; webhookId; webhookType; webhookSecret; apiKey }
    let to_value x =
      structure_to_value
        [("webhookUrl", (Option.map x.webhookUrl ~f:String_.to_value));
        ("webhookId", (Option.map x.webhookId ~f:String_.to_value));
        ("webhookType", (Option.map x.webhookType ~f:WebhookType.to_value));
        ("webhookSecret",
          (Option.map x.webhookSecret ~f:WebhookSecret.to_value));
        ("apiKey", (Option.map x.apiKey ~f:ApiKeyValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let apiKey =
        (Option.map ~f:ApiKeyValue.of_xml) (Xml.child xml_arg0 "apiKey") in
      let webhookSecret =
        (Option.map ~f:WebhookSecret.of_xml)
          (Xml.child xml_arg0 "webhookSecret") in
      let webhookType =
        (Option.map ~f:WebhookType.of_xml) (Xml.child xml_arg0 "webhookType") in
      let webhookId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "webhookId") in
      let webhookUrl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "webhookUrl") in
      make ?apiKey ?webhookSecret ?webhookType ?webhookId ?webhookUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let apiKey = field_map json__ "apiKey" ApiKeyValue.of_json in
      let webhookSecret =
        field_map json__ "webhookSecret" WebhookSecret.of_json in
      let webhookType = field_map json__ "webhookType" WebhookType.of_json in
      let webhookId = field_map json__ "webhookId" String_.of_json in
      let webhookUrl = field_map json__ "webhookUrl" String_.of_json in
      make ?apiKey ?webhookSecret ?webhookType ?webhookId ?webhookUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Generic webhook configuration for services that support webhook notifications."]
module TagKeyList =
  struct
    type nonrec t = TagKey.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:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module UntagResourceRequestResourceArnString =
  struct
    type nonrec t = string
    let context_ = "UntagResourceRequestResourceArnString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws:aidevops:[a-z0-9-]+:\\d{12}:(agentspace|service)/[a-zA-Z0-9-]+");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"UntagResourceRequestResourceArnString" j
    let to_json = simple_to_json to_value
  end
module TagResourceRequestResourceArnString =
  struct
    type nonrec t = string
    let context_ = "TagResourceRequestResourceArnString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws:aidevops:[a-z0-9-]+:\\d{12}:(agentspace|service)/[a-zA-Z0-9-]+");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"TagResourceRequestResourceArnString" j
    let to_json = simple_to_json to_value
  end
module Tags =
  struct
    type nonrec t = (TagKey.t * TagValue.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 ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module SendMessageEvents =
  struct
    type nonrec t =
      {
      responseCreated: SendMessageResponseCreatedEvent.t option
        [@ocaml.doc "Emitted when the response is created"];
      responseInProgress: SendMessageResponseInProgressEvent.t option
        [@ocaml.doc "Emitted while the response is being generated"];
      responseCompleted: SendMessageResponseCompletedEvent.t option
        [@ocaml.doc "Emitted when the response completes successfully"];
      responseFailed: SendMessageResponseFailedEvent.t option
        [@ocaml.doc "Emitted when the response fails"];
      summary: SendMessageSummaryEvent.t option
        [@ocaml.doc "Emitted to provide a summary of agent actions"];
      heartbeat: SendMessageHeartbeatEvent.t option
        [@ocaml.doc
          "Heartbeat event sent periodically to keep the connection alive during idle periods"];
      contentBlockStart: SendMessageContentBlockStartEvent.t option
        [@ocaml.doc "Emitted when a new content block starts"];
      contentBlockDelta: SendMessageContentBlockDeltaEvent.t option
        [@ocaml.doc
          "Emitted for each incremental content delta within a content block"];
      contentBlockStop: SendMessageContentBlockStopEvent.t option
        [@ocaml.doc "Emitted when a content block is complete"]}
    let make ?responseCreated =
      fun ?responseInProgress ->
        fun ?responseCompleted ->
          fun ?responseFailed ->
            fun ?summary ->
              fun ?heartbeat ->
                fun ?contentBlockStart ->
                  fun ?contentBlockDelta ->
                    fun ?contentBlockStop ->
                      fun () ->
                        {
                          responseCreated;
                          responseInProgress;
                          responseCompleted;
                          responseFailed;
                          summary;
                          heartbeat;
                          contentBlockStart;
                          contentBlockDelta;
                          contentBlockStop
                        }
    let to_value x =
      structure_to_value
        [("responseCreated",
           (Option.map x.responseCreated
              ~f:SendMessageResponseCreatedEvent.to_value));
        ("responseInProgress",
          (Option.map x.responseInProgress
             ~f:SendMessageResponseInProgressEvent.to_value));
        ("responseCompleted",
          (Option.map x.responseCompleted
             ~f:SendMessageResponseCompletedEvent.to_value));
        ("responseFailed",
          (Option.map x.responseFailed
             ~f:SendMessageResponseFailedEvent.to_value));
        ("summary",
          (Option.map x.summary ~f:SendMessageSummaryEvent.to_value));
        ("heartbeat",
          (Option.map x.heartbeat ~f:SendMessageHeartbeatEvent.to_value));
        ("contentBlockStart",
          (Option.map x.contentBlockStart
             ~f:SendMessageContentBlockStartEvent.to_value));
        ("contentBlockDelta",
          (Option.map x.contentBlockDelta
             ~f:SendMessageContentBlockDeltaEvent.to_value));
        ("contentBlockStop",
          (Option.map x.contentBlockStop
             ~f:SendMessageContentBlockStopEvent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contentBlockStop =
        (Option.map ~f:SendMessageContentBlockStopEvent.of_xml)
          (Xml.child xml_arg0 "contentBlockStop") in
      let contentBlockDelta =
        (Option.map ~f:SendMessageContentBlockDeltaEvent.of_xml)
          (Xml.child xml_arg0 "contentBlockDelta") in
      let contentBlockStart =
        (Option.map ~f:SendMessageContentBlockStartEvent.of_xml)
          (Xml.child xml_arg0 "contentBlockStart") in
      let heartbeat =
        (Option.map ~f:SendMessageHeartbeatEvent.of_xml)
          (Xml.child xml_arg0 "heartbeat") in
      let summary =
        (Option.map ~f:SendMessageSummaryEvent.of_xml)
          (Xml.child xml_arg0 "summary") in
      let responseFailed =
        (Option.map ~f:SendMessageResponseFailedEvent.of_xml)
          (Xml.child xml_arg0 "responseFailed") in
      let responseCompleted =
        (Option.map ~f:SendMessageResponseCompletedEvent.of_xml)
          (Xml.child xml_arg0 "responseCompleted") in
      let responseInProgress =
        (Option.map ~f:SendMessageResponseInProgressEvent.of_xml)
          (Xml.child xml_arg0 "responseInProgress") in
      let responseCreated =
        (Option.map ~f:SendMessageResponseCreatedEvent.of_xml)
          (Xml.child xml_arg0 "responseCreated") in
      make ?contentBlockStop ?contentBlockDelta ?contentBlockStart ?heartbeat
        ?summary ?responseFailed ?responseCompleted ?responseInProgress
        ?responseCreated ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contentBlockStop =
        field_map json__ "contentBlockStop"
          SendMessageContentBlockStopEvent.of_json in
      let contentBlockDelta =
        field_map json__ "contentBlockDelta"
          SendMessageContentBlockDeltaEvent.of_json in
      let contentBlockStart =
        field_map json__ "contentBlockStart"
          SendMessageContentBlockStartEvent.of_json in
      let heartbeat =
        field_map json__ "heartbeat" SendMessageHeartbeatEvent.of_json in
      let summary =
        field_map json__ "summary" SendMessageSummaryEvent.of_json in
      let responseFailed =
        field_map json__ "responseFailed"
          SendMessageResponseFailedEvent.of_json in
      let responseCompleted =
        field_map json__ "responseCompleted"
          SendMessageResponseCompletedEvent.of_json in
      let responseInProgress =
        field_map json__ "responseInProgress"
          SendMessageResponseInProgressEvent.of_json in
      let responseCreated =
        field_map json__ "responseCreated"
          SendMessageResponseCreatedEvent.of_json in
      make ?contentBlockStop ?contentBlockDelta ?contentBlockStart ?heartbeat
        ?summary ?responseFailed ?responseCompleted ?responseInProgress
        ?responseCreated ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Event stream for chat message responses using the content block model. Events follow a lifecycle: responseCreated -> responseInProgress -> (contentBlockStart/contentBlockDelta/contentBlockStop events) -> responseCompleted|responseFailed SendMessage always uses content block mode \226\128\148 legacy per-field events (outputTextDelta, functionCallArgumentsDelta, etc.) are not emitted."]
module MessageContent =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Message content with size constraint"]
    let context_ = "MessageContent"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:32768) >>=
             (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:"MessageContent" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Message content with size constraint"]
module SendMessageContext =
  struct
    type nonrec t =
      {
      currentPage: String_.t option
        [@ocaml.doc "The current page or view the user is on"];
      lastMessage: String_.t option
        [@ocaml.doc "The ID of the last message in the conversation"];
      userActionResponse: String_.t option
        [@ocaml.doc
          "Response to a UI prompt (not a text conversation message)"]}
    let make ?currentPage =
      fun ?lastMessage ->
        fun ?userActionResponse ->
          fun () -> { currentPage; lastMessage; userActionResponse }
    let to_value x =
      structure_to_value
        [("currentPage", (Option.map x.currentPage ~f:String_.to_value));
        ("lastMessage", (Option.map x.lastMessage ~f:String_.to_value));
        ("userActionResponse",
          (Option.map x.userActionResponse ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userActionResponse =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "userActionResponse") in
      let lastMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "lastMessage") in
      let currentPage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "currentPage") in
      make ?userActionResponse ?lastMessage ?currentPage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userActionResponse =
        field_map json__ "userActionResponse" String_.of_json in
      let lastMessage = field_map json__ "lastMessage" String_.of_json in
      let currentPage = field_map json__ "currentPage" String_.of_json in
      make ?userActionResponse ?lastMessage ?currentPage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Context object for additional message metadata"]
module AdditionalServiceRegistrationStep =
  struct
    type nonrec t =
      {
      oauth: OAuthAdditionalStepDetails.t option
        [@ocaml.doc "OAuth authorization step required."]}
    let make ?oauth = fun () -> { oauth }
    let to_value x =
      structure_to_value
        [("oauth",
           (Option.map x.oauth ~f:OAuthAdditionalStepDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let oauth =
        (Option.map ~f:OAuthAdditionalStepDetails.of_xml)
          (Xml.child xml_arg0 "oauth") in
      make ?oauth ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let oauth = field_map json__ "oauth" OAuthAdditionalStepDetails.of_json in
      make ?oauth ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Additional steps required to complete service registration."]
module PostRegisterServiceSupportedService =
  struct
    type nonrec t =
      | Dynatrace 
      | Servicenow 
      | Pagerduty 
      | Gitlab 
      | EventChannel 
      | Mcpservernewrelic 
      | Mcpservergrafana 
      | Mcpserverdatadog 
      | Mcpserver 
      | Mcpserversplunk 
      | Azureidentity 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Dynatrace -> "dynatrace"
      | Servicenow -> "servicenow"
      | Pagerduty -> "pagerduty"
      | Gitlab -> "gitlab"
      | EventChannel -> "eventChannel"
      | Mcpservernewrelic -> "mcpservernewrelic"
      | Mcpservergrafana -> "mcpservergrafana"
      | Mcpserverdatadog -> "mcpserverdatadog"
      | Mcpserver -> "mcpserver"
      | Mcpserversplunk -> "mcpserversplunk"
      | Azureidentity -> "azureidentity"
      | Non_static_id s -> s
    let of_string =
      function
      | "dynatrace" -> Dynatrace
      | "servicenow" -> Servicenow
      | "pagerduty" -> Pagerduty
      | "gitlab" -> Gitlab
      | "eventChannel" -> EventChannel
      | "mcpservernewrelic" -> Mcpservernewrelic
      | "mcpservergrafana" -> Mcpservergrafana
      | "mcpserverdatadog" -> Mcpserverdatadog
      | "mcpserver" -> Mcpserver
      | "mcpserversplunk" -> Mcpserversplunk
      | "azureidentity" -> Azureidentity
      | 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 PostRegisterServiceSupportedService" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"PostRegisterServiceSupportedService" j)
    let to_json = simple_to_json to_value
  end
module ServiceDetails =
  struct
    type nonrec t =
      {
      dynatrace: DynatraceServiceDetails.t option
        [@ocaml.doc "Dynatrace-specific service details."];
      servicenow: ServiceNowServiceDetails.t option
        [@ocaml.doc "ServiceNow-specific service details."];
      mcpserverdatadog: DatadogServiceDetails.t option
        [@ocaml.doc "Datadog MCP server-specific service details."];
      mcpserver: MCPServerDetails.t option
        [@ocaml.doc "MCP server-specific service details."];
      gitlab: GitLabDetails.t option
        [@ocaml.doc "GitLab-specific service details."];
      mcpserversplunk: MCPServerDetails.t option
        [@ocaml.doc "Splunk MCP server-specific service details."];
      mcpservernewrelic: NewRelicServiceDetails.t option
        [@ocaml.doc "New Relic-specific service details."];
      eventChannel: EventChannelDetails.t option
        [@ocaml.doc "Event Channel specific service details."];
      mcpservergrafana: GrafanaServiceDetails.t option
        [@ocaml.doc "Datadog MCP server-specific service details."];
      pagerduty: PagerDutyDetails.t option
        [@ocaml.doc "PagerDuty specific service details."];
      azureidentity: RegisteredAzureIdentityDetails.t option
        [@ocaml.doc
          "Azure integration with AWS Outbound Identity Federation specific service details."]}
    let make ?dynatrace =
      fun ?servicenow ->
        fun ?mcpserverdatadog ->
          fun ?mcpserver ->
            fun ?gitlab ->
              fun ?mcpserversplunk ->
                fun ?mcpservernewrelic ->
                  fun ?eventChannel ->
                    fun ?mcpservergrafana ->
                      fun ?pagerduty ->
                        fun ?azureidentity ->
                          fun () ->
                            {
                              dynatrace;
                              servicenow;
                              mcpserverdatadog;
                              mcpserver;
                              gitlab;
                              mcpserversplunk;
                              mcpservernewrelic;
                              eventChannel;
                              mcpservergrafana;
                              pagerduty;
                              azureidentity
                            }
    let to_value x =
      structure_to_value
        [("dynatrace",
           (Option.map x.dynatrace ~f:DynatraceServiceDetails.to_value));
        ("servicenow",
          (Option.map x.servicenow ~f:ServiceNowServiceDetails.to_value));
        ("mcpserverdatadog",
          (Option.map x.mcpserverdatadog ~f:DatadogServiceDetails.to_value));
        ("mcpserver", (Option.map x.mcpserver ~f:MCPServerDetails.to_value));
        ("gitlab", (Option.map x.gitlab ~f:GitLabDetails.to_value));
        ("mcpserversplunk",
          (Option.map x.mcpserversplunk ~f:MCPServerDetails.to_value));
        ("mcpservernewrelic",
          (Option.map x.mcpservernewrelic ~f:NewRelicServiceDetails.to_value));
        ("eventChannel",
          (Option.map x.eventChannel ~f:EventChannelDetails.to_value));
        ("mcpservergrafana",
          (Option.map x.mcpservergrafana ~f:GrafanaServiceDetails.to_value));
        ("pagerduty", (Option.map x.pagerduty ~f:PagerDutyDetails.to_value));
        ("azureidentity",
          (Option.map x.azureidentity
             ~f:RegisteredAzureIdentityDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let azureidentity =
        (Option.map ~f:RegisteredAzureIdentityDetails.of_xml)
          (Xml.child xml_arg0 "azureidentity") in
      let pagerduty =
        (Option.map ~f:PagerDutyDetails.of_xml)
          (Xml.child xml_arg0 "pagerduty") in
      let mcpservergrafana =
        (Option.map ~f:GrafanaServiceDetails.of_xml)
          (Xml.child xml_arg0 "mcpservergrafana") in
      let eventChannel =
        (Option.map ~f:EventChannelDetails.of_xml)
          (Xml.child xml_arg0 "eventChannel") in
      let mcpservernewrelic =
        (Option.map ~f:NewRelicServiceDetails.of_xml)
          (Xml.child xml_arg0 "mcpservernewrelic") in
      let mcpserversplunk =
        (Option.map ~f:MCPServerDetails.of_xml)
          (Xml.child xml_arg0 "mcpserversplunk") in
      let gitlab =
        (Option.map ~f:GitLabDetails.of_xml) (Xml.child xml_arg0 "gitlab") in
      let mcpserver =
        (Option.map ~f:MCPServerDetails.of_xml)
          (Xml.child xml_arg0 "mcpserver") in
      let mcpserverdatadog =
        (Option.map ~f:DatadogServiceDetails.of_xml)
          (Xml.child xml_arg0 "mcpserverdatadog") in
      let servicenow =
        (Option.map ~f:ServiceNowServiceDetails.of_xml)
          (Xml.child xml_arg0 "servicenow") in
      let dynatrace =
        (Option.map ~f:DynatraceServiceDetails.of_xml)
          (Xml.child xml_arg0 "dynatrace") in
      make ?azureidentity ?pagerduty ?mcpservergrafana ?eventChannel
        ?mcpservernewrelic ?mcpserversplunk ?gitlab ?mcpserver
        ?mcpserverdatadog ?servicenow ?dynatrace ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let azureidentity =
        field_map json__ "azureidentity"
          RegisteredAzureIdentityDetails.of_json in
      let pagerduty = field_map json__ "pagerduty" PagerDutyDetails.of_json in
      let mcpservergrafana =
        field_map json__ "mcpservergrafana" GrafanaServiceDetails.of_json in
      let eventChannel =
        field_map json__ "eventChannel" EventChannelDetails.of_json in
      let mcpservernewrelic =
        field_map json__ "mcpservernewrelic" NewRelicServiceDetails.of_json in
      let mcpserversplunk =
        field_map json__ "mcpserversplunk" MCPServerDetails.of_json in
      let gitlab = field_map json__ "gitlab" GitLabDetails.of_json in
      let mcpserver = field_map json__ "mcpserver" MCPServerDetails.of_json in
      let mcpserverdatadog =
        field_map json__ "mcpserverdatadog" DatadogServiceDetails.of_json in
      let servicenow =
        field_map json__ "servicenow" ServiceNowServiceDetails.of_json in
      let dynatrace =
        field_map json__ "dynatrace" DynatraceServiceDetails.of_json in
      make ?azureidentity ?pagerduty ?mcpservergrafana ?eventChannel
        ?mcpservernewrelic ?mcpserversplunk ?gitlab ?mcpserver
        ?mcpserverdatadog ?servicenow ?dynatrace ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Union of service-specific configuration details for service registration."]
module WebhooksList =
  struct
    type nonrec t = Webhook.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:Webhook.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:Webhook.of_xml)
    let of_json j =
      list_of_json ~kind:"WebhooksList" ~of_json:Webhook.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListTagsForResourceRequestResourceArnString =
  struct
    type nonrec t = string
    let context_ = "ListTagsForResourceRequestResourceArnString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws:aidevops:[a-z0-9-]+:\\d{12}:(agentspace|service)/[a-zA-Z0-9-]+");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ListTagsForResourceRequestResourceArnString" j
    let to_json = simple_to_json to_value
  end
module NextToken =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Pagination token for list operations (1-2048 characters)"]
    let context_ = "NextToken"
    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:"NextToken" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Pagination token for list operations (1-2048 characters)"]
module RegisteredServicesList =
  struct
    type nonrec t = RegisteredService.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:RegisteredService.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:RegisteredService.of_xml)
    let of_json j =
      list_of_json ~kind:"RegisteredServicesList"
        ~of_json:RegisteredService.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListServicesInputMaxResultsInteger =
  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 ListServicesInputMaxResultsInteger" 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 RecommendationList =
  struct
    type nonrec t = Recommendation.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:Recommendation.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:Recommendation.of_xml)
    let of_json j =
      list_of_json ~kind:"RecommendationList" ~of_json:Recommendation.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ListRecommendationsRequestLimitInteger =
  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 ListRecommendationsRequestLimitInteger"
           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 PrivateConnectionSummaryList =
  struct
    type nonrec t = PrivateConnectionSummary.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:PrivateConnectionSummary.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:PrivateConnectionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"PrivateConnectionSummaryList"
        ~of_json:PrivateConnectionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module PendingMessages =
  struct
    type nonrec t = PendingMessage.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:PendingMessage.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:PendingMessage.of_xml)
    let of_json j =
      list_of_json ~kind:"PendingMessages" ~of_json:PendingMessage.of_json j
    let to_json v = composed_to_json to_value v
  end
module JournalRecordList =
  struct
    type nonrec t = JournalRecord.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:JournalRecord.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:JournalRecord.of_xml)
    let of_json j =
      list_of_json ~kind:"JournalRecordList" ~of_json:JournalRecord.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListJournalRecordsRequestLimitInteger =
  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 ListJournalRecordsRequestLimitInteger"
           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 OrderType =
  struct
    type nonrec t =
      | ASC 
      | DESC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ASC -> "ASC" | DESC -> "DESC" | Non_static_id s -> s
    let of_string =
      function | "ASC" -> ASC | "DESC" -> DESC | 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 OrderType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OrderType" j)
    let to_json = simple_to_json to_value
  end
module GoalList =
  struct
    type nonrec t = Goal.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:Goal.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:Goal.of_xml)
    let of_json j = list_of_json ~kind:"GoalList" ~of_json:Goal.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListGoalsRequestLimitInteger =
  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 ListGoalsRequestLimitInteger"
           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 ExecutionList =
  struct
    type nonrec t = Execution.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:Execution.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:Execution.of_xml)
    let of_json j =
      list_of_json ~kind:"ExecutionList" ~of_json:Execution.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChatExecutionList =
  struct
    type nonrec t = ChatExecution.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:ChatExecution.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:ChatExecution.of_xml)
    let of_json j =
      list_of_json ~kind:"ChatExecutionList" ~of_json:ChatExecution.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListChatsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:20) >>= (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 ListChatsRequestMaxResultsInteger" 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 TaskList =
  struct
    type nonrec t = Task.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:Task.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:Task.of_xml)
    let of_json j = list_of_json ~kind:"TaskList" ~of_json:Task.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListBacklogTasksRequestLimitInteger =
  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 ListBacklogTasksRequestLimitInteger"
           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 TaskFilter =
  struct
    type nonrec t =
      {
      createdAfter: BackLogTimestamp.t option
        [@ocaml.doc
          "Filter for tasks created after this timestamp inclusive"];
      createdBefore: BackLogTimestamp.t option
        [@ocaml.doc
          "Filter for tasks created before this timestamp exclusive"];
      priority: TaskFilterPriorityList.t option
        [@ocaml.doc "Filter by priority (single value only)"];
      status: TaskFilterStatusList.t option
        [@ocaml.doc "Filter by status (single value only)"];
      taskType: TaskFilterTaskTypeList.t option
        [@ocaml.doc "Filter by task type (single value only)"];
      primaryTaskId: ResourceId.t option
        [@ocaml.doc "Filter by primary task ID to get linked tasks"]}
    let make ?createdAfter =
      fun ?createdBefore ->
        fun ?priority ->
          fun ?status ->
            fun ?taskType ->
              fun ?primaryTaskId ->
                fun () ->
                  {
                    createdAfter;
                    createdBefore;
                    priority;
                    status;
                    taskType;
                    primaryTaskId
                  }
    let to_value x =
      structure_to_value
        [("createdAfter",
           (Option.map x.createdAfter ~f:BackLogTimestamp.to_value));
        ("createdBefore",
          (Option.map x.createdBefore ~f:BackLogTimestamp.to_value));
        ("priority",
          (Option.map x.priority ~f:TaskFilterPriorityList.to_value));
        ("status", (Option.map x.status ~f:TaskFilterStatusList.to_value));
        ("taskType",
          (Option.map x.taskType ~f:TaskFilterTaskTypeList.to_value));
        ("primaryTaskId",
          (Option.map x.primaryTaskId ~f:ResourceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let primaryTaskId =
        (Option.map ~f:ResourceId.of_xml)
          (Xml.child xml_arg0 "primaryTaskId") in
      let taskType =
        (Option.map ~f:TaskFilterTaskTypeList.of_xml)
          (Xml.child xml_arg0 "taskType") in
      let status =
        (Option.map ~f:TaskFilterStatusList.of_xml)
          (Xml.child xml_arg0 "status") in
      let priority =
        (Option.map ~f:TaskFilterPriorityList.of_xml)
          (Xml.child xml_arg0 "priority") in
      let createdBefore =
        (Option.map ~f:BackLogTimestamp.of_xml)
          (Xml.child xml_arg0 "createdBefore") in
      let createdAfter =
        (Option.map ~f:BackLogTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAfter") in
      make ?primaryTaskId ?taskType ?status ?priority ?createdBefore
        ?createdAfter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let primaryTaskId = field_map json__ "primaryTaskId" ResourceId.of_json in
      let taskType =
        field_map json__ "taskType" TaskFilterTaskTypeList.of_json in
      let status = field_map json__ "status" TaskFilterStatusList.of_json in
      let priority =
        field_map json__ "priority" TaskFilterPriorityList.of_json in
      let createdBefore =
        field_map json__ "createdBefore" BackLogTimestamp.of_json in
      let createdAfter =
        field_map json__ "createdAfter" BackLogTimestamp.of_json in
      make ?primaryTaskId ?taskType ?status ?priority ?createdBefore
        ?createdAfter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Filter criteria for listing backlog tasks, supporting time range, priority, status, and type filters."]
module TaskSortField =
  struct
    type nonrec t =
      | CREATED_AT 
      | PRIORITY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATED_AT -> "CREATED_AT"
      | PRIORITY -> "PRIORITY"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATED_AT" -> CREATED_AT
      | "PRIORITY" -> PRIORITY
      | 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 TaskSortField" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TaskSortField" j)
    let to_json = simple_to_json to_value
  end
module TaskSortOrder =
  struct
    type nonrec t =
      | ASC 
      | DESC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ASC -> "ASC" | DESC -> "DESC" | Non_static_id s -> s
    let of_string =
      function | "ASC" -> ASC | "DESC" -> DESC | 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 TaskSortOrder" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TaskSortOrder" j)
    let to_json = simple_to_json to_value
  end
module AssociationsList =
  struct
    type nonrec t = Association.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:Association.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:Association.of_xml)
    let of_json j =
      list_of_json ~kind:"AssociationsList" ~of_json:Association.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListAssociationsInputFilterServiceTypesString =
  struct
    type nonrec t = string
    let context_ = "ListAssociationsInputFilterServiceTypesString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"\\w+(?:,\\s*\\w+)*"); 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:"ListAssociationsInputFilterServiceTypesString" j
    let to_json = simple_to_json to_value
  end
module ListAssociationsInputMaxResultsInteger =
  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 ListAssociationsInputMaxResultsInteger"
           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 AgentSpaceList =
  struct
    type nonrec t = AgentSpace.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:AgentSpace.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:AgentSpace.of_xml)
    let of_json j =
      list_of_json ~kind:"AgentSpaceList" ~of_json:AgentSpace.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListAgentSpacesInputMaxResultsInteger =
  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 ListAgentSpacesInputMaxResultsInteger"
           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 IamAuthConfiguration =
  struct
    type nonrec t =
      {
      operatorAppRoleArn: String_.t option
        [@ocaml.doc "The IAM role end users assume to access AIDevOps APIs"];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The timestamp when the Operator App IAM auth flow was enabled."];
      updatedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The timestamp when the Operator App IAM auth flow was updated."]}
    let make ?operatorAppRoleArn =
      fun ?createdAt ->
        fun ?updatedAt ->
          fun () -> { operatorAppRoleArn; createdAt; updatedAt }
    let to_value x =
      structure_to_value
        [("operatorAppRoleArn",
           (Option.map x.operatorAppRoleArn ~f:String_.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("updatedAt",
          (Option.map x.updatedAt ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let operatorAppRoleArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "operatorAppRoleArn") in
      make ?updatedAt ?createdAt ?operatorAppRoleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedAt =
        field_map json__ "updatedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let operatorAppRoleArn =
        field_map json__ "operatorAppRoleArn" String_.of_json in
      make ?updatedAt ?createdAt ?operatorAppRoleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration for IAM-based authentication flow for the Operator App."]
module IdcAuthConfiguration =
  struct
    type nonrec t =
      {
      operatorAppRoleArn: String_.t option
        [@ocaml.doc "The IAM role end users assume to access AIDevOps APIs"];
      idcInstanceArn: String_.t option
        [@ocaml.doc
          "The IdC instance Arn used to create an IdC auth application"];
      idcApplicationArn: String_.t option
        [@ocaml.doc "The IdC application Arn created for IdC auth"];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The timestamp when the Operator App IdC auth flow was enabled."];
      updatedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The timestamp when the Operator App IdC auth flow was updated."]}
    let make ?operatorAppRoleArn =
      fun ?idcInstanceArn ->
        fun ?idcApplicationArn ->
          fun ?createdAt ->
            fun ?updatedAt ->
              fun () ->
                {
                  operatorAppRoleArn;
                  idcInstanceArn;
                  idcApplicationArn;
                  createdAt;
                  updatedAt
                }
    let to_value x =
      structure_to_value
        [("operatorAppRoleArn",
           (Option.map x.operatorAppRoleArn ~f:String_.to_value));
        ("idcInstanceArn", (Option.map x.idcInstanceArn ~f:String_.to_value));
        ("idcApplicationArn",
          (Option.map x.idcApplicationArn ~f:String_.to_value));
        ("createdAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("updatedAt",
          (Option.map x.updatedAt ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let idcApplicationArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "idcApplicationArn") in
      let idcInstanceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "idcInstanceArn") in
      let operatorAppRoleArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "operatorAppRoleArn") in
      make ?updatedAt ?createdAt ?idcApplicationArn ?idcInstanceArn
        ?operatorAppRoleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedAt =
        field_map json__ "updatedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "createdAt" SyntheticTimestamp_date_time.of_json in
      let idcApplicationArn =
        field_map json__ "idcApplicationArn" String_.of_json in
      let idcInstanceArn = field_map json__ "idcInstanceArn" String_.of_json in
      let operatorAppRoleArn =
        field_map json__ "operatorAppRoleArn" String_.of_json in
      make ?updatedAt ?createdAt ?idcApplicationArn ?idcInstanceArn
        ?operatorAppRoleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration for AWS Identity Center (IdC) authentication flow for the Operator App."]
module DateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module UsageMetric =
  struct
    type nonrec t =
      {
      limit: Integer.t option
        [@ocaml.doc "Configured limit for this metric."];
      usage: Double.t option [@ocaml.doc "Current usage for this metric"]}
    let make ?limit = fun ?usage -> fun () -> { limit; usage }
    let to_value x =
      structure_to_value
        [("limit", (Option.map x.limit ~f:Integer.to_value));
        ("usage", (Option.map x.usage ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let usage = (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "usage") in
      let limit = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "limit") in
      make ?usage ?limit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let usage = field_map json__ "usage" Double.of_json in
      let limit = field_map json__ "limit" Integer.of_json in
      make ?usage ?limit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a usage metric with its configured limit and current usage value."]
module IdentityCenterServiceException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Detailed error message describing why the call fails"];
      underlyingErrorCode: String_.t option [@ocaml.doc "The Idc error code"]}
    let make ?message =
      fun ?underlyingErrorCode -> fun () -> { message; underlyingErrorCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("underlyingErrorCode",
          (Option.map x.underlyingErrorCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let underlyingErrorCode =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "underlyingErrorCode") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?underlyingErrorCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let underlyingErrorCode =
        field_map json__ "underlyingErrorCode" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?underlyingErrorCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Calls to the customer Identity Center have failed"]
module AuthFlow =
  struct
    type nonrec t =
      | Iam 
      | Idc 
      | Idp 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Iam -> "iam"
      | Idc -> "idc"
      | Idp -> "idp"
      | Non_static_id s -> s
    let of_string =
      function
      | "iam" -> Iam
      | "idc" -> Idc
      | "idp" -> Idp
      | 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 AuthFlow" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AuthFlow" j)
    let to_json = simple_to_json to_value
  end
module IdpClientId =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Client ID for IdP OIDC authentication."]
    let context_ = "IdpClientId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (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:"IdpClientId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Client ID for IdP OIDC authentication."]
module PrivateConnectionMode =
  struct
    type nonrec t =
      {
      serviceManaged: ServiceManagedInput.t option
        [@ocaml.doc "Service manages the Resource Gateway lifecycle."];
      selfManaged: SelfManagedInput.t option
        [@ocaml.doc "Caller manages their own resource configuration."]}
    let make ?serviceManaged =
      fun ?selfManaged -> fun () -> { serviceManaged; selfManaged }
    let to_value x =
      structure_to_value
        [("serviceManaged",
           (Option.map x.serviceManaged ~f:ServiceManagedInput.to_value));
        ("selfManaged",
          (Option.map x.selfManaged ~f:SelfManagedInput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let selfManaged =
        (Option.map ~f:SelfManagedInput.of_xml)
          (Xml.child xml_arg0 "selfManaged") in
      let serviceManaged =
        (Option.map ~f:ServiceManagedInput.of_xml)
          (Xml.child xml_arg0 "serviceManaged") in
      make ?selfManaged ?serviceManaged ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let selfManaged =
        field_map json__ "selfManaged" SelfManagedInput.of_json in
      let serviceManaged =
        field_map json__ "serviceManaged" ServiceManagedInput.of_json in
      make ?selfManaged ?serviceManaged ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Private Connection mode \226\128\148 either service-managed or self-managed."]
module BacklogTaskDescription =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Description for a backlog task (allows printable ASCII characters, tabs, and newlines; up to 10000 characters)"]
    let context_ = "BacklogTaskDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10000) >>=
             (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:"BacklogTaskDescription" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Description for a backlog task (allows printable ASCII characters, tabs, and newlines; up to 10000 characters)"]
module BacklogTaskTitle =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Title for a backlog task (allows printable ASCII characters, tabs, and newlines; 1-400 characters)"]
    let context_ = "BacklogTaskTitle"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:400) >>=
             (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:"BacklogTaskTitle" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Title for a backlog task (allows printable ASCII characters, tabs, and newlines; 1-400 characters)"]
module ReferenceInput =
  struct
    type nonrec t =
      {
      system: ReferenceInputSystemString.t
        [@ocaml.doc "The name of the external system"];
      title: ReferenceInputTitleString.t option
        [@ocaml.doc "Optional title for the reference"];
      referenceId: ResourceId.t
        [@ocaml.doc "The unique identifier in the external system"];
      referenceUrl: ReferenceInputReferenceUrlString.t
        [@ocaml.doc "URL to access the reference in the external system"];
      associationId: ResourceId.t
        [@ocaml.doc "Association identifier of the external system"]}
    let context_ = "ReferenceInput"
    let make ?title =
      fun ~system ->
        fun ~referenceId ->
          fun ~referenceUrl ->
            fun ~associationId ->
              fun () ->
                { title; system; referenceId; referenceUrl; associationId }
    let to_value x =
      structure_to_value
        [("system", (Some (ReferenceInputSystemString.to_value x.system)));
        ("title", (Option.map x.title ~f:ReferenceInputTitleString.to_value));
        ("referenceId", (Some (ResourceId.to_value x.referenceId)));
        ("referenceUrl",
          (Some (ReferenceInputReferenceUrlString.to_value x.referenceUrl)));
        ("associationId", (Some (ResourceId.to_value x.associationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associationId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "associationId") in
      let referenceUrl =
        ReferenceInputReferenceUrlString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "referenceUrl") in
      let referenceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "referenceId") in
      let title =
        (Option.map ~f:ReferenceInputTitleString.of_xml)
          (Xml.child xml_arg0 "title") in
      let system =
        ReferenceInputSystemString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "system") in
      make ~associationId ~referenceUrl ~referenceId ?title ~system ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associationId =
        field_map_exn json__ "associationId" ResourceId.of_json in
      let referenceUrl =
        field_map_exn json__ "referenceUrl"
          ReferenceInputReferenceUrlString.of_json in
      let referenceId = field_map_exn json__ "referenceId" ResourceId.of_json in
      let title = field_map json__ "title" ReferenceInputTitleString.of_json in
      let system =
        field_map_exn json__ "system" ReferenceInputSystemString.of_json in
      make ~associationId ~referenceUrl ~referenceId ?title ~system ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Reference information linking a task to external systems - for input with validation"]
module CreateAgentSpaceInputClientTokenString =
  struct
    type nonrec t = string
    let context_ = "CreateAgentSpaceInputClientTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[!-~]+")));
        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:"CreateAgentSpaceInputClientTokenString" j
    let to_json = simple_to_json to_value
  end
module ValidateAwsAssociationsOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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 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
       "Empty Output for successful validating an aws association"]
module ValidateAwsAssociationsInput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier of the AgentSpace"]}
    let context_ = "ValidateAwsAssociationsInput"
    let make ~agentSpaceId = fun () -> { agentSpaceId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for validating an aws association"]
module UpdateRecommendationResponse =
  struct
    type nonrec t =
      {
      recommendation: Recommendation.t option
        [@ocaml.doc "The updated recommendation"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?recommendation = fun () -> { recommendation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("recommendation",
           (Option.map x.recommendation ~f:Recommendation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recommendation =
        (Option.map ~f:Recommendation.of_xml)
          (Xml.child xml_arg0 "recommendation") in
      make ?recommendation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recommendation =
        field_map json__ "recommendation" Recommendation.of_json in
      make ?recommendation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response structure containing the updated recommendation"]
module UpdateRecommendationRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc
          "The unique identifier for the agent space containing the recommendation"];
      recommendationId: ResourceId.t
        [@ocaml.doc "The unique identifier for the recommendation to update"];
      status: RecommendationStatus.t option
        [@ocaml.doc "Current status of the recommendation"];
      additionalContext: String_.t option
        [@ocaml.doc "Additional context for recommendation"];
      clientToken: String_.t option
        [@ocaml.doc "A unique token that ensures idempotency of the request"]}
    let context_ = "UpdateRecommendationRequest"
    let make ?status =
      fun ?additionalContext ->
        fun ?clientToken ->
          fun ~agentSpaceId ->
            fun ~recommendationId ->
              fun () ->
                {
                  status;
                  additionalContext;
                  clientToken;
                  agentSpaceId;
                  recommendationId
                }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("recommendationId", (Some (ResourceId.to_value x.recommendationId)));
        ("status", (Option.map x.status ~f:RecommendationStatus.to_value));
        ("additionalContext",
          (Option.map x.additionalContext ~f:String_.to_value));
        ("clientToken", (Option.map x.clientToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clientToken") in
      let additionalContext =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "additionalContext") in
      let status =
        (Option.map ~f:RecommendationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let recommendationId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "recommendationId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?clientToken ?additionalContext ?status ~recommendationId
        ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" String_.of_json in
      let additionalContext =
        field_map json__ "additionalContext" String_.of_json in
      let status = field_map json__ "status" RecommendationStatus.of_json in
      let recommendationId =
        field_map_exn json__ "recommendationId" ResourceId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?clientToken ?additionalContext ?status ~recommendationId
        ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request structure for updating an existing recommendation"]
module UpdatePrivateConnectionCertificateOutput =
  struct
    type nonrec t =
      {
      name: PrivateConnectionName.t option
        [@ocaml.doc "The name of the Private Connection."];
      type_: PrivateConnectionType.t option
        [@ocaml.doc "The type of the Private Connection."];
      resourceGatewayId: ResourceGatewayArn.t option
        [@ocaml.doc
          "The service-managed Resource Gateway ARN. Only present for service-managed Private Connections."];
      hostAddress: IpAddressOrDnsName.t option
        [@ocaml.doc
          "IP address or DNS name of the target resource. Only present for service-managed Private Connections."];
      vpcId: VpcId.t option
        [@ocaml.doc
          "VPC identifier of the service-managed Resource Gateway. Only present for service-managed Private Connections."];
      resourceConfigurationId: ResourceConfigurationArn.t option
        [@ocaml.doc
          "The Resource Configuration ARN. Only present for self-managed Private Connections."];
      status: PrivateConnectionStatus.t option
        [@ocaml.doc "The status of the Private Connection."];
      certificateExpiryTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The expiry time of the certificate associated with the Private Connection. Only present when a certificate is associated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?name =
      fun ?type_ ->
        fun ?resourceGatewayId ->
          fun ?hostAddress ->
            fun ?vpcId ->
              fun ?resourceConfigurationId ->
                fun ?status ->
                  fun ?certificateExpiryTime ->
                    fun () ->
                      {
                        name;
                        type_;
                        resourceGatewayId;
                        hostAddress;
                        vpcId;
                        resourceConfigurationId;
                        status;
                        certificateExpiryTime
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("name", (Option.map x.name ~f:PrivateConnectionName.to_value));
        ("type", (Option.map x.type_ ~f:PrivateConnectionType.to_value));
        ("resourceGatewayId",
          (Option.map x.resourceGatewayId ~f:ResourceGatewayArn.to_value));
        ("hostAddress",
          (Option.map x.hostAddress ~f:IpAddressOrDnsName.to_value));
        ("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("resourceConfigurationId",
          (Option.map x.resourceConfigurationId
             ~f:ResourceConfigurationArn.to_value));
        ("status", (Option.map x.status ~f:PrivateConnectionStatus.to_value));
        ("certificateExpiryTime",
          (Option.map x.certificateExpiryTime
             ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateExpiryTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "certificateExpiryTime") in
      let status =
        (Option.map ~f:PrivateConnectionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let resourceConfigurationId =
        (Option.map ~f:ResourceConfigurationArn.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationId") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      let hostAddress =
        (Option.map ~f:IpAddressOrDnsName.of_xml)
          (Xml.child xml_arg0 "hostAddress") in
      let resourceGatewayId =
        (Option.map ~f:ResourceGatewayArn.of_xml)
          (Xml.child xml_arg0 "resourceGatewayId") in
      let type_ =
        (Option.map ~f:PrivateConnectionType.of_xml)
          (Xml.child xml_arg0 "type") in
      let name =
        (Option.map ~f:PrivateConnectionName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?certificateExpiryTime ?status ?resourceConfigurationId ?vpcId
        ?hostAddress ?resourceGatewayId ?type_ ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateExpiryTime =
        field_map json__ "certificateExpiryTime"
          SyntheticTimestamp_date_time.of_json in
      let status = field_map json__ "status" PrivateConnectionStatus.of_json in
      let resourceConfigurationId =
        field_map json__ "resourceConfigurationId"
          ResourceConfigurationArn.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      let hostAddress =
        field_map json__ "hostAddress" IpAddressOrDnsName.of_json in
      let resourceGatewayId =
        field_map json__ "resourceGatewayId" ResourceGatewayArn.of_json in
      let type_ = field_map json__ "type" PrivateConnectionType.of_json in
      let name = field_map json__ "name" PrivateConnectionName.of_json in
      make ?certificateExpiryTime ?status ?resourceConfigurationId ?vpcId
        ?hostAddress ?resourceGatewayId ?type_ ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output containing the updated Private Connection summary."]
module UpdatePrivateConnectionCertificateInput =
  struct
    type nonrec t =
      {
      name: PrivateConnectionName.t
        [@ocaml.doc "The name of the Private Connection."];
      certificate: CertificateString.t
        [@ocaml.doc "The new certificate for the Private Connection."]}
    let context_ = "UpdatePrivateConnectionCertificateInput"
    let make ~name = fun ~certificate -> fun () -> { name; certificate }
    let to_value x =
      structure_to_value
        [("name", (Some (PrivateConnectionName.to_value x.name)));
        ("certificate", (Some (CertificateString.to_value x.certificate)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificate =
        CertificateString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "certificate") in
      let name =
        PrivateConnectionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~certificate ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificate =
        field_map_exn json__ "certificate" CertificateString.of_json in
      let name = field_map_exn json__ "name" PrivateConnectionName.of_json in
      make ~certificate ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input for updating the certificate of a Private Connection."]
module UpdateOperatorAppIdpConfigOutput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t option
        [@ocaml.doc "The unique identifier of the AgentSpace"];
      idp: IdpAuthConfiguration.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?agentSpaceId = fun ?idp -> fun () -> { agentSpaceId; idp }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("agentSpaceId",
           (Option.map x.agentSpaceId ~f:AgentSpaceId.to_value));
        ("idp", (Option.map x.idp ~f:IdpAuthConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let idp =
        (Option.map ~f:IdpAuthConfiguration.of_xml)
          (Xml.child xml_arg0 "idp") in
      let agentSpaceId =
        (Option.map ~f:AgentSpaceId.of_xml)
          (Xml.child xml_arg0 "agentSpaceId") in
      make ?idp ?agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let idp = field_map json__ "idp" IdpAuthConfiguration.of_json in
      let agentSpaceId = field_map json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?idp ?agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output containing the updated IdP configuration."]
module UpdateOperatorAppIdpConfigInput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier of the AgentSpace"];
      idpClientSecret: IdpClientSecret.t option
        [@ocaml.doc "The OIDC client secret for the IdP application"]}
    let context_ = "UpdateOperatorAppIdpConfigInput"
    let make ?idpClientSecret =
      fun ~agentSpaceId -> fun () -> { idpClientSecret; agentSpaceId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("idpClientSecret",
          (Option.map x.idpClientSecret ~f:IdpClientSecret.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let idpClientSecret =
        (Option.map ~f:IdpClientSecret.of_xml)
          (Xml.child xml_arg0 "idpClientSecret") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?idpClientSecret ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let idpClientSecret =
        field_map json__ "idpClientSecret" IdpClientSecret.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?idpClientSecret ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input for updating the external Identity Provider configuration for the Operator App."]
module UpdateGoalResponse =
  struct
    type nonrec t =
      {
      goal: Goal.t option [@ocaml.doc "The updated goal object"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?goal = fun () -> { goal }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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 [("goal", (Option.map x.goal ~f:Goal.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let goal = (Option.map ~f:Goal.of_xml) (Xml.child xml_arg0 "goal") in
      make ?goal ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let goal = field_map json__ "goal" Goal.of_json in make ?goal ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response structure containing the updated goal"]
module UpdateGoalRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc
          "The unique identifier for the agent space containing the goal"];
      goalId: String_.t
        [@ocaml.doc "The unique identifier of the goal to update"];
      evaluationSchedule: GoalScheduleInput.t option
        [@ocaml.doc "Update goal schedule state"];
      clientToken: String_.t option
        [@ocaml.doc "Client-provided token for idempotent operations"]}
    let context_ = "UpdateGoalRequest"
    let make ?evaluationSchedule =
      fun ?clientToken ->
        fun ~agentSpaceId ->
          fun ~goalId ->
            fun () ->
              { evaluationSchedule; clientToken; agentSpaceId; goalId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("goalId", (Some (String_.to_value x.goalId)));
        ("evaluationSchedule",
          (Option.map x.evaluationSchedule ~f:GoalScheduleInput.to_value));
        ("clientToken", (Option.map x.clientToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clientToken") in
      let evaluationSchedule =
        (Option.map ~f:GoalScheduleInput.of_xml)
          (Xml.child xml_arg0 "evaluationSchedule") in
      let goalId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "goalId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?clientToken ?evaluationSchedule ~goalId ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" String_.of_json in
      let evaluationSchedule =
        field_map json__ "evaluationSchedule" GoalScheduleInput.of_json in
      let goalId = field_map_exn json__ "goalId" String_.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?clientToken ?evaluationSchedule ~goalId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request structure for updating a goal"]
module UpdateBacklogTaskResponse =
  struct
    type nonrec t =
      {
      task: Task.t option [@ocaml.doc "The updated task object"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?task = fun () -> { task }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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 [("task", (Option.map x.task ~f:Task.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let task = (Option.map ~f:Task.of_xml) (Xml.child xml_arg0 "task") in
      make ?task ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let task = field_map json__ "task" Task.of_json in make ?task ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response structure containing the updated task"]
module UpdateBacklogTaskRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc
          "The unique identifier for the agent space containing the task"];
      taskId: ResourceId.t
        [@ocaml.doc "The unique identifier of the task to update"];
      taskStatus: TaskStatus.t option [@ocaml.doc "Updated task status"];
      clientToken: String_.t option
        [@ocaml.doc "Client-provided token for idempotent operations"]}
    let context_ = "UpdateBacklogTaskRequest"
    let make ?taskStatus =
      fun ?clientToken ->
        fun ~agentSpaceId ->
          fun ~taskId ->
            fun () -> { taskStatus; clientToken; agentSpaceId; taskId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("taskId", (Some (ResourceId.to_value x.taskId)));
        ("taskStatus", (Option.map x.taskStatus ~f:TaskStatus.to_value));
        ("clientToken", (Option.map x.clientToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clientToken") in
      let taskStatus =
        (Option.map ~f:TaskStatus.of_xml) (Xml.child xml_arg0 "taskStatus") in
      let taskId =
        ResourceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "taskId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?clientToken ?taskStatus ~taskId ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" String_.of_json in
      let taskStatus = field_map json__ "taskStatus" TaskStatus.of_json in
      let taskId = field_map_exn json__ "taskId" ResourceId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?clientToken ?taskStatus ~taskId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request structure for updating a task"]
module UpdateAssociationOutput =
  struct
    type nonrec t =
      {
      association: Association.t option ;
      webhook: GenericWebhook.t option
        [@ocaml.doc "Generic webhook configuration"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?association =
      fun ?webhook -> fun () -> { association; webhook }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("association", (Option.map x.association ~f:Association.to_value));
        ("webhook", (Option.map x.webhook ~f:GenericWebhook.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhook =
        (Option.map ~f:GenericWebhook.of_xml) (Xml.child xml_arg0 "webhook") in
      let association =
        (Option.map ~f:Association.of_xml) (Xml.child xml_arg0 "association") in
      make ?webhook ?association ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhook = field_map json__ "webhook" GenericWebhook.of_json in
      let association = field_map json__ "association" Association.of_json in
      make ?webhook ?association ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output containing the updated association and optional webhook configuration."]
module UpdateAssociationInput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier of the AgentSpace"];
      associationId: AssociationId.t
        [@ocaml.doc "The unique identifier of the given association."];
      configuration: ServiceConfiguration.t
        [@ocaml.doc
          "The configuration that directs how AgentSpace interacts with the given service. The entire configuration is replaced on update."]}
    let context_ = "UpdateAssociationInput"
    let make ~agentSpaceId =
      fun ~associationId ->
        fun ~configuration ->
          fun () -> { agentSpaceId; associationId; configuration }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("associationId", (Some (AssociationId.to_value x.associationId)));
        ("configuration",
          (Some (ServiceConfiguration.to_value x.configuration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        ServiceConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "configuration") in
      let associationId =
        AssociationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "associationId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ~configuration ~associationId ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map_exn json__ "configuration" ServiceConfiguration.of_json in
      let associationId =
        field_map_exn json__ "associationId" AssociationId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ~configuration ~associationId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input for updating an existing service association. Present fields are fully replaced; absent fields are left unchanged."]
module UpdateAgentSpaceOutput =
  struct
    type nonrec t = {
      agentSpace: AgentSpace.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?agentSpace = fun () -> { agentSpace }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("agentSpace", (Option.map x.agentSpace ~f:AgentSpace.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let agentSpace =
        (Option.map ~f:AgentSpace.of_xml) (Xml.child xml_arg0 "agentSpace") in
      make ?agentSpace ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let agentSpace = field_map json__ "agentSpace" AgentSpace.of_json in
      make ?agentSpace ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output containing the updated AgentSpace."]
module UpdateAgentSpaceInput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier of the AgentSpace"];
      name: AgentSpaceName.t option
        [@ocaml.doc "The updated name of the AgentSpace."];
      description: Description.t option
        [@ocaml.doc "The updated description of the AgentSpace."];
      locale: Locale.t option
        [@ocaml.doc
          "The updated locale for the AgentSpace, which determines the language used in agent responses."]}
    let context_ = "UpdateAgentSpaceInput"
    let make ?name =
      fun ?description ->
        fun ?locale ->
          fun ~agentSpaceId ->
            fun () -> { name; description; locale; agentSpaceId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("name", (Option.map x.name ~f:AgentSpaceName.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("locale", (Option.map x.locale ~f:Locale.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let locale =
        (Option.map ~f:Locale.of_xml) (Xml.child xml_arg0 "locale") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:AgentSpaceName.of_xml) (Xml.child xml_arg0 "name") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?locale ?description ?name ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let locale = field_map json__ "locale" Locale.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" AgentSpaceName.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?locale ?description ?name ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input for updating an existing AgentSpace's properties. All fields except agentSpaceId are optional for partial updates."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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 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 tags from the specified AWS DevOps Agent resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: UntagResourceRequestResourceArnString.t
        [@ocaml.doc "The ARN of the resource to untag."];
      tagKeys: TagKeyList.t [@ocaml.doc "Tag keys to remove."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn",
           (Some
              (UntagResourceRequestResourceArnString.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        UntagResourceRequestResourceArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeyList.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn"
          UntagResourceRequestResourceArnString.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes tags from the specified AWS DevOps Agent resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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 of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or overwrites tags for the specified AWS DevOps Agent resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: TagResourceRequestResourceArnString.t
        [@ocaml.doc "The ARN of the resource to tag."];
      tags: Tags.t [@ocaml.doc "Tags to add to the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn",
           (Some (TagResourceRequestResourceArnString.to_value x.resourceArn)));
        ("tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        TagResourceRequestResourceArnString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" Tags.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn"
          TagResourceRequestResourceArnString.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or overwrites tags for the specified AWS DevOps Agent resource."]
module SendMessageResponse =
  struct
    type nonrec t =
      {
      events: SendMessageEvents.t option
        [@ocaml.doc "The stream of chat message events"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?events = fun () -> { events }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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 of_header_and_body = ((fun (xs, pipe) -> make ?events:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("events", (Option.map x.events ~f:SendMessageEvents.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let events =
        (Option.map ~f:SendMessageEvents.of_xml)
          (Xml.child xml_arg0 "events") in
      make ?events ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let events = field_map json__ "events" SendMessageEvents.of_json in
      make ?events ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response structure for sending chat message events"]
module SendMessageRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t [@ocaml.doc "The agent space identifier"];
      executionId: ResourceId.t
        [@ocaml.doc "The execution identifier for the chat session"];
      content: MessageContent.t [@ocaml.doc "The user message content"];
      context: SendMessageContext.t option
        [@ocaml.doc "Optional context for the message"];
      userId: ResourceId.t option
        [@ocaml.doc
          "User identifier. This field is deprecated and will be ignored \226\128\148 the service resolves user identity from the authenticated session."]}
    let context_ = "SendMessageRequest"
    let make ?context =
      fun ?userId ->
        fun ~agentSpaceId ->
          fun ~executionId ->
            fun ~content ->
              fun () ->
                { context; userId; agentSpaceId; executionId; content }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("executionId", (Some (ResourceId.to_value x.executionId)));
        ("content", (Some (MessageContent.to_value x.content)));
        ("context", (Option.map x.context ~f:SendMessageContext.to_value));
        ("userId", (Option.map x.userId ~f:ResourceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "userId") in
      let context =
        (Option.map ~f:SendMessageContext.of_xml)
          (Xml.child xml_arg0 "context") in
      let content =
        MessageContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "content") in
      let executionId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "executionId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?userId ?context ~content ~executionId ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userId = field_map json__ "userId" ResourceId.of_json in
      let context = field_map json__ "context" SendMessageContext.of_json in
      let content = field_map_exn json__ "content" MessageContent.of_json in
      let executionId = field_map_exn json__ "executionId" ResourceId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?userId ?context ~content ~executionId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request structure for sending a chat message"]
module RegisterServiceOutput =
  struct
    type nonrec t =
      {
      serviceId: ServiceId.t option
        [@ocaml.doc
          "Service ID - present when registration is complete, absent when additional steps are required"];
      additionalStep: AdditionalServiceRegistrationStep.t option
        [@ocaml.doc
          "Indicates if additional steps are required to complete service registration (e.g., 3-legged OAuth)"];
      kmsKeyArn: KmsKeyArn.t option
        [@ocaml.doc
          "The ARN of the AWS Key Management Service (AWS KMS) customer managed key that's used to encrypt resources."];
      tags: Tags.t option
        [@ocaml.doc "Tags associated with the registered Service."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?serviceId =
      fun ?additionalStep ->
        fun ?kmsKeyArn ->
          fun ?tags ->
            fun () -> { serviceId; additionalStep; kmsKeyArn; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("serviceId", (Option.map x.serviceId ~f:ServiceId.to_value));
        ("additionalStep",
          (Option.map x.additionalStep
             ~f:AdditionalServiceRegistrationStep.to_value));
        ("kmsKeyArn", (Option.map x.kmsKeyArn ~f:KmsKeyArn.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let kmsKeyArn =
        (Option.map ~f:KmsKeyArn.of_xml) (Xml.child xml_arg0 "kmsKeyArn") in
      let additionalStep =
        (Option.map ~f:AdditionalServiceRegistrationStep.of_xml)
          (Xml.child xml_arg0 "additionalStep") in
      let serviceId =
        (Option.map ~f:ServiceId.of_xml) (Xml.child xml_arg0 "serviceId") in
      make ?tags ?kmsKeyArn ?additionalStep ?serviceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let kmsKeyArn = field_map json__ "kmsKeyArn" KmsKeyArn.of_json in
      let additionalStep =
        field_map json__ "additionalStep"
          AdditionalServiceRegistrationStep.of_json in
      let serviceId = field_map json__ "serviceId" ServiceId.of_json in
      make ?tags ?kmsKeyArn ?additionalStep ?serviceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output containing the service ID and any additional steps required for registration."]
module RegisterServiceInput =
  struct
    type nonrec t =
      {
      service: PostRegisterServiceSupportedService.t ;
      serviceDetails: ServiceDetails.t
        [@ocaml.doc
          "Service-specific authorization configuration parameters"];
      kmsKeyArn: KmsKeyArn.t option
        [@ocaml.doc
          "The ARN of the AWS Key Management Service (AWS KMS) customer managed key that's used to encrypt resources."];
      privateConnectionName: PrivateConnectionName.t option
        [@ocaml.doc
          "The name of the private connection to use for VPC connectivity."];
      name: ServiceName.t option
        [@ocaml.doc "The display name for the service registration."];
      tags: Tags.t option
        [@ocaml.doc "Tags to add to the Service at registration time."]}
    let context_ = "RegisterServiceInput"
    let make ?kmsKeyArn =
      fun ?privateConnectionName ->
        fun ?name ->
          fun ?tags ->
            fun ~service ->
              fun ~serviceDetails ->
                fun () ->
                  {
                    kmsKeyArn;
                    privateConnectionName;
                    name;
                    tags;
                    service;
                    serviceDetails
                  }
    let to_value x =
      structure_to_value
        [("service",
           (Some (PostRegisterServiceSupportedService.to_value x.service)));
        ("serviceDetails", (Some (ServiceDetails.to_value x.serviceDetails)));
        ("kmsKeyArn", (Option.map x.kmsKeyArn ~f:KmsKeyArn.to_value));
        ("privateConnectionName",
          (Option.map x.privateConnectionName
             ~f:PrivateConnectionName.to_value));
        ("name", (Option.map x.name ~f:ServiceName.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let name =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "name") in
      let privateConnectionName =
        (Option.map ~f:PrivateConnectionName.of_xml)
          (Xml.child xml_arg0 "privateConnectionName") in
      let kmsKeyArn =
        (Option.map ~f:KmsKeyArn.of_xml) (Xml.child xml_arg0 "kmsKeyArn") in
      let serviceDetails =
        ServiceDetails.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceDetails") in
      let service =
        PostRegisterServiceSupportedService.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "service") in
      make ?tags ?name ?privateConnectionName ?kmsKeyArn ~serviceDetails
        ~service ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let name = field_map json__ "name" ServiceName.of_json in
      let privateConnectionName =
        field_map json__ "privateConnectionName"
          PrivateConnectionName.of_json in
      let kmsKeyArn = field_map json__ "kmsKeyArn" KmsKeyArn.of_json in
      let serviceDetails =
        field_map_exn json__ "serviceDetails" ServiceDetails.of_json in
      let service =
        field_map_exn json__ "service"
          PostRegisterServiceSupportedService.of_json in
      make ?tags ?name ?privateConnectionName ?kmsKeyArn ~serviceDetails
        ~service ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for registering a new service with the platform."]
module ListWebhooksOutput =
  struct
    type nonrec t =
      {
      webhooks: WebhooksList.t option
        [@ocaml.doc "The list of association webhooks."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?webhooks = fun () -> { webhooks }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("webhooks", (Option.map x.webhooks ~f:WebhooksList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhooks =
        (Option.map ~f:WebhooksList.of_xml) (Xml.child xml_arg0 "webhooks") in
      make ?webhooks ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhooks = field_map json__ "webhooks" WebhooksList.of_json in
      make ?webhooks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output containing a list of service association webhooks."]
module ListWebhooksInput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier of the AgentSpace"];
      associationId: AssociationId.t
        [@ocaml.doc "The unique identifier of the given association."]}
    let context_ = "ListWebhooksInput"
    let make ~agentSpaceId =
      fun ~associationId -> fun () -> { agentSpaceId; associationId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("associationId", (Some (AssociationId.to_value x.associationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associationId =
        AssociationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "associationId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ~associationId ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associationId =
        field_map_exn json__ "associationId" AssociationId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ~associationId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input for listing service webhooks within an association."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Tags.t option [@ocaml.doc "Tags associated with the resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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 [("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.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" Tags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists tags for the specified AWS DevOps Agent resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ListTagsForResourceRequestResourceArnString.t
        [@ocaml.doc "The ARN of the resource."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn",
           (Some
              (ListTagsForResourceRequestResourceArnString.to_value
                 x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ListTagsForResourceRequestResourceArnString.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"
          ListTagsForResourceRequestResourceArnString.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists tags for the specified AWS DevOps Agent resource."]
module ListServicesOutput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token to retrieve the next page of results, if there are more results."];
      services: RegisteredServicesList.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?nextToken = fun ?services -> fun () -> { nextToken; services }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("services",
          (Option.map x.services ~f:RegisteredServicesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let services =
        (Option.map ~f:RegisteredServicesList.of_xml)
          (Xml.child xml_arg0 "services") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?services ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let services =
        field_map json__ "services" RegisteredServicesList.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?services ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output containing a list of registered services and pagination token."]
module ListServicesInput =
  struct
    type nonrec t =
      {
      maxResults: ListServicesInputMaxResultsInteger.t option
        [@ocaml.doc "Maximum number of results to return in a single call."];
      nextToken: NextToken.t option
        [@ocaml.doc "Token for the next page of results."];
      filterServiceType: Service.t option
        [@ocaml.doc
          "Optional filter to list only services of a specific type."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filterServiceType ->
          fun () -> { maxResults; nextToken; filterServiceType }
    let to_value x =
      structure_to_value
        [("maxResults",
           (Option.map x.maxResults
              ~f:ListServicesInputMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("filterServiceType",
          (Option.map x.filterServiceType ~f:Service.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filterServiceType =
        (Option.map ~f:Service.of_xml)
          (Xml.child xml_arg0 "filterServiceType") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListServicesInputMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      make ?filterServiceType ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filterServiceType =
        field_map json__ "filterServiceType" Service.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListServicesInputMaxResultsInteger.of_json in
      make ?filterServiceType ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input for listing registered services with optional filtering by service type."]
module ListRecommendationsResponse =
  struct
    type nonrec t =
      {
      recommendations: RecommendationList.t option
        [@ocaml.doc "List of recommendations matching the request criteria"];
      nextToken: String_.t option
        [@ocaml.doc
          "Token for retrieving the next page of results, if more results are available"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?recommendations =
      fun ?nextToken -> fun () -> { recommendations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("recommendations",
           (Option.map x.recommendations ~f:RecommendationList.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 recommendations =
        (Option.map ~f:RecommendationList.of_xml)
          (Xml.child xml_arg0 "recommendations") in
      make ?nextToken ?recommendations ()
    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 recommendations =
        field_map json__ "recommendations" RecommendationList.of_json in
      make ?nextToken ?recommendations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response structure containing a list of recommendations"]
module ListRecommendationsRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc
          "The unique identifier for the agent space containing the recommendations"];
      taskId: ResourceId.t option
        [@ocaml.doc
          "Optional task ID to filter recommendations by specific task"];
      goalId: ResourceId.t option
        [@ocaml.doc
          "Optional goal ID to filter recommendations by specific goal"];
      status: RecommendationStatus.t option
        [@ocaml.doc
          "Optional status to filter recommendations by their current status"];
      priority: RecommendationPriority.t option
        [@ocaml.doc
          "Optional priority to filter recommendations by priority level"];
      limit: ListRecommendationsRequestLimitInteger.t option
        [@ocaml.doc
          "Maximum number of recommendations to return in a single response"];
      nextToken: NextToken.t option
        [@ocaml.doc "Token for retrieving the next page of results"]}
    let context_ = "ListRecommendationsRequest"
    let make ?taskId =
      fun ?goalId ->
        fun ?status ->
          fun ?priority ->
            fun ?limit ->
              fun ?nextToken ->
                fun ~agentSpaceId ->
                  fun () ->
                    {
                      taskId;
                      goalId;
                      status;
                      priority;
                      limit;
                      nextToken;
                      agentSpaceId
                    }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("taskId", (Option.map x.taskId ~f:ResourceId.to_value));
        ("goalId", (Option.map x.goalId ~f:ResourceId.to_value));
        ("status", (Option.map x.status ~f:RecommendationStatus.to_value));
        ("priority",
          (Option.map x.priority ~f:RecommendationPriority.to_value));
        ("limit",
          (Option.map x.limit
             ~f:ListRecommendationsRequestLimitInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let limit =
        (Option.map ~f:ListRecommendationsRequestLimitInteger.of_xml)
          (Xml.child xml_arg0 "limit") in
      let priority =
        (Option.map ~f:RecommendationPriority.of_xml)
          (Xml.child xml_arg0 "priority") in
      let status =
        (Option.map ~f:RecommendationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let goalId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "goalId") in
      let taskId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "taskId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?nextToken ?limit ?priority ?status ?goalId ?taskId ~agentSpaceId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let limit =
        field_map json__ "limit"
          ListRecommendationsRequestLimitInteger.of_json in
      let priority =
        field_map json__ "priority" RecommendationPriority.of_json in
      let status = field_map json__ "status" RecommendationStatus.of_json in
      let goalId = field_map json__ "goalId" ResourceId.of_json in
      let taskId = field_map json__ "taskId" ResourceId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?nextToken ?limit ?priority ?status ?goalId ?taskId ~agentSpaceId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request structure for listing recommendations with filtering and pagination support"]
module ListPrivateConnectionsOutput =
  struct
    type nonrec t =
      {
      privateConnections: PrivateConnectionSummaryList.t option
        [@ocaml.doc "The list of Private Connections."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?privateConnections = fun () -> { privateConnections }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("privateConnections",
           (Option.map x.privateConnections
              ~f:PrivateConnectionSummaryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let privateConnections =
        (Option.map ~f:PrivateConnectionSummaryList.of_xml)
          (Xml.child xml_arg0 "privateConnections") in
      make ?privateConnections ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let privateConnections =
        field_map json__ "privateConnections"
          PrivateConnectionSummaryList.of_json in
      make ?privateConnections ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output containing the list of Private Connections."]
module ListPrivateConnectionsInput =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input for listing Private Connections in the caller's account."]
module ListPendingMessagesResponse =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t option ;
      executionId: String_.t option
        [@ocaml.doc "The unique identifier for the execution."];
      messages: PendingMessages.t option
        [@ocaml.doc "The list of pending messages for the execution."];
      createdAt: Timestamp.t option
        [@ocaml.doc "Timestamp when the pending messages were created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?agentSpaceId =
      fun ?executionId ->
        fun ?messages ->
          fun ?createdAt ->
            fun () -> { agentSpaceId; executionId; messages; createdAt }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("agentSpaceId",
           (Option.map x.agentSpaceId ~f:AgentSpaceId.to_value));
        ("executionId", (Option.map x.executionId ~f:String_.to_value));
        ("messages", (Option.map x.messages ~f:PendingMessages.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let messages =
        (Option.map ~f:PendingMessages.of_xml)
          (Xml.child xml_arg0 "messages") in
      let executionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "executionId") in
      let agentSpaceId =
        (Option.map ~f:AgentSpaceId.of_xml)
          (Xml.child xml_arg0 "agentSpaceId") in
      make ?createdAt ?messages ?executionId ?agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let messages = field_map json__ "messages" PendingMessages.of_json in
      let executionId = field_map json__ "executionId" String_.of_json in
      let agentSpaceId = field_map json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?createdAt ?messages ?executionId ?agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response structure containing a list of pending messages"]
module ListPendingMessagesRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t ;
      executionId: ResourceId.t
        [@ocaml.doc
          "The unique identifier of the execution whose journal records to retrieve"]}
    let context_ = "ListPendingMessagesRequest"
    let make ~agentSpaceId =
      fun ~executionId -> fun () -> { agentSpaceId; executionId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("executionId", (Some (ResourceId.to_value x.executionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let executionId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "executionId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ~executionId ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let executionId = field_map_exn json__ "executionId" ResourceId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ~executionId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request structure for listing pending messages with filtering and pagination support"]
module ListJournalRecordsResponse =
  struct
    type nonrec t =
      {
      records: JournalRecordList.t option
        [@ocaml.doc "List of journal records matching the request criteria"];
      nextToken: String_.t option
        [@ocaml.doc
          "Token for retrieving the next page of results, if more results are available"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?records = fun ?nextToken -> fun () -> { records; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("records", (Option.map x.records ~f:JournalRecordList.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 records =
        (Option.map ~f:JournalRecordList.of_xml)
          (Xml.child xml_arg0 "records") in
      make ?nextToken ?records ()
    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 records = field_map json__ "records" JournalRecordList.of_json in
      make ?nextToken ?records ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response structure containing a list of journal records"]
module ListJournalRecordsRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc
          "The unique identifier for the agent space containing the execution"];
      executionId: ResourceId.t
        [@ocaml.doc
          "The unique identifier of the execution whose journal records to retrieve"];
      limit: ListJournalRecordsRequestLimitInteger.t option
        [@ocaml.doc
          "Maximum number of records to return in a single response (1-100, default: 100)"];
      nextToken: NextToken.t option
        [@ocaml.doc "Token for retrieving the next page of results"];
      recordType: String_.t option
        [@ocaml.doc
          "Filter records by type (empty string returns all types)"];
      order: OrderType.t option
        [@ocaml.doc
          "Sort order for the records based on timestamp (default: DESC)"]}
    let context_ = "ListJournalRecordsRequest"
    let make ?limit =
      fun ?nextToken ->
        fun ?recordType ->
          fun ?order ->
            fun ~agentSpaceId ->
              fun ~executionId ->
                fun () ->
                  {
                    limit;
                    nextToken;
                    recordType;
                    order;
                    agentSpaceId;
                    executionId
                  }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("executionId", (Some (ResourceId.to_value x.executionId)));
        ("limit",
          (Option.map x.limit
             ~f:ListJournalRecordsRequestLimitInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("recordType", (Option.map x.recordType ~f:String_.to_value));
        ("order", (Option.map x.order ~f:OrderType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let order =
        (Option.map ~f:OrderType.of_xml) (Xml.child xml_arg0 "order") in
      let recordType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "recordType") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let limit =
        (Option.map ~f:ListJournalRecordsRequestLimitInteger.of_xml)
          (Xml.child xml_arg0 "limit") in
      let executionId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "executionId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?order ?recordType ?nextToken ?limit ~executionId ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let order = field_map json__ "order" OrderType.of_json in
      let recordType = field_map json__ "recordType" String_.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let limit =
        field_map json__ "limit"
          ListJournalRecordsRequestLimitInteger.of_json in
      let executionId = field_map_exn json__ "executionId" ResourceId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?order ?recordType ?nextToken ?limit ~executionId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request structure for listing journal records with filtering and pagination support"]
module ListGoalsResponse =
  struct
    type nonrec t =
      {
      goals: GoalList.t option
        [@ocaml.doc "List of goals matching the criteria"];
      nextToken: String_.t option
        [@ocaml.doc "Pagination token for the next set of results"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?goals = fun ?nextToken -> fun () -> { goals; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("goals", (Option.map x.goals ~f:GoalList.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 goals =
        (Option.map ~f:GoalList.of_xml) (Xml.child xml_arg0 "goals") in
      make ?nextToken ?goals ()
    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 goals = field_map json__ "goals" GoalList.of_json in
      make ?nextToken ?goals ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response structure containing the list of goals"]
module ListGoalsRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier for the agent space"];
      status: GoalStatus.t option [@ocaml.doc "Filter goals by goal status"];
      goalType: GoalType.t option [@ocaml.doc "Filter goals by goal type"];
      limit: ListGoalsRequestLimitInteger.t option
        [@ocaml.doc "Maximum number of goals to return"];
      nextToken: NextToken.t option
        [@ocaml.doc "Pagination token for the next set of results"]}
    let context_ = "ListGoalsRequest"
    let make ?status =
      fun ?goalType ->
        fun ?limit ->
          fun ?nextToken ->
            fun ~agentSpaceId ->
              fun () -> { status; goalType; limit; nextToken; agentSpaceId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("status", (Option.map x.status ~f:GoalStatus.to_value));
        ("goalType", (Option.map x.goalType ~f:GoalType.to_value));
        ("limit",
          (Option.map x.limit ~f:ListGoalsRequestLimitInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let limit =
        (Option.map ~f:ListGoalsRequestLimitInteger.of_xml)
          (Xml.child xml_arg0 "limit") in
      let goalType =
        (Option.map ~f:GoalType.of_xml) (Xml.child xml_arg0 "goalType") in
      let status =
        (Option.map ~f:GoalStatus.of_xml) (Xml.child xml_arg0 "status") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?nextToken ?limit ?goalType ?status ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let limit =
        field_map json__ "limit" ListGoalsRequestLimitInteger.of_json in
      let goalType = field_map json__ "goalType" GoalType.of_json in
      let status = field_map json__ "status" GoalStatus.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?nextToken ?limit ?goalType ?status ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request structure for listing goals"]
module ListExecutionsResponse =
  struct
    type nonrec t =
      {
      executions: ExecutionList.t option [@ocaml.doc "List of executions"];
      nextToken: String_.t option
        [@ocaml.doc
          "Token for retrieving the next page of results, if available"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?executions =
      fun ?nextToken -> fun () -> { executions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("executions", (Option.map x.executions ~f:ExecutionList.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 executions =
        (Option.map ~f:ExecutionList.of_xml)
          (Xml.child xml_arg0 "executions") in
      make ?nextToken ?executions ()
    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 executions = field_map json__ "executions" ExecutionList.of_json in
      make ?nextToken ?executions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response structure containing executions"]
module ListExecutionsRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier for the agent space"];
      taskId: ResourceId.t
        [@ocaml.doc
          "The unique identifier of the task whose executions to retrieve"];
      limit: Integer.t option
        [@ocaml.doc "Maximum number of executions to return"];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token for pagination to retrieve the next set of results"]}
    let context_ = "ListExecutionsRequest"
    let make ?limit =
      fun ?nextToken ->
        fun ~agentSpaceId ->
          fun ~taskId -> fun () -> { limit; nextToken; agentSpaceId; taskId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("taskId", (Some (ResourceId.to_value x.taskId)));
        ("limit", (Option.map x.limit ~f:Integer.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let limit = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "limit") in
      let taskId =
        ResourceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "taskId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?nextToken ?limit ~taskId ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let limit = field_map json__ "limit" Integer.of_json in
      let taskId = field_map_exn json__ "taskId" ResourceId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?nextToken ?limit ~taskId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request structure for listing executions"]
module ListChatsResponse =
  struct
    type nonrec t =
      {
      executions: ChatExecutionList.t option
        [@ocaml.doc "List of recent chat executions"];
      nextToken: String_.t option
        [@ocaml.doc "Token for retrieving the next page of results"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?executions =
      fun ?nextToken -> fun () -> { executions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("executions",
           (Option.map x.executions ~f:ChatExecutionList.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 executions =
        (Option.map ~f:ChatExecutionList.of_xml)
          (Xml.child xml_arg0 "executions") in
      make ?nextToken ?executions ()
    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 executions =
        field_map json__ "executions" ChatExecutionList.of_json in
      make ?nextToken ?executions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response structure for listing chats"]
module ListChatsRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t ;
      userId: ResourceId.t option
        [@ocaml.doc
          "The user identifier to list chats for. This field is deprecated and will be ignored \226\128\148 the service resolves user identity from the authenticated session."];
      maxResults: ListChatsRequestMaxResultsInteger.t option
        [@ocaml.doc "Maximum number of results to return"];
      nextToken: String_.t option [@ocaml.doc "Token for pagination"]}
    let context_ = "ListChatsRequest"
    let make ?userId =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~agentSpaceId ->
            fun () -> { userId; maxResults; nextToken; agentSpaceId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("userId", (Option.map x.userId ~f:ResourceId.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListChatsRequestMaxResultsInteger.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:ListChatsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let userId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "userId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?nextToken ?maxResults ?userId ~agentSpaceId ()
    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"
          ListChatsRequestMaxResultsInteger.of_json in
      let userId = field_map json__ "userId" ResourceId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?nextToken ?maxResults ?userId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request structure for listing chats"]
module ListBacklogTasksResponse =
  struct
    type nonrec t =
      {
      tasks: TaskList.t option [@ocaml.doc "List of backlog tasks"];
      nextToken: String_.t option
        [@ocaml.doc
          "Token for retrieving the next page of results, if more results are available"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?tasks = fun ?nextToken -> fun () -> { tasks; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("tasks", (Option.map x.tasks ~f:TaskList.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 tasks =
        (Option.map ~f:TaskList.of_xml) (Xml.child xml_arg0 "tasks") in
      make ?nextToken ?tasks ()
    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 tasks = field_map json__ "tasks" TaskList.of_json in
      make ?nextToken ?tasks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response structure containing a list of backlog tasks"]
module ListBacklogTasksRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc
          "The unique identifier for the agent space containing the tasks"];
      filter: TaskFilter.t option
        [@ocaml.doc
          "Filter criteria to apply when listing tasks Filtering restrictions: Each filter field list is limited to a single value Filtering by Priority and Status at the same time when not filtering by Type is not permitted Timestamp filters (createdAfter, createdBefore) can be combined with other filters when not sorting by priority"];
      limit: ListBacklogTasksRequestLimitInteger.t option
        [@ocaml.doc
          "Maximum number of tasks to return in a single response (1-1000, default: 100)"];
      nextToken: NextToken.t option
        [@ocaml.doc "Token for retrieving the next page of results"];
      sortField: TaskSortField.t option
        [@ocaml.doc
          "Field to sort by Sorting restrictions: Only sorting on createdAt is supported when using priority or status filters alone. Sorting by priority is not supported when using Timestamp filters (createdAfter, createdBefore)"];
      order: TaskSortOrder.t option
        [@ocaml.doc
          "Sort order for the tasks based on sortField (default: DESC)"]}
    let context_ = "ListBacklogTasksRequest"
    let make ?filter =
      fun ?limit ->
        fun ?nextToken ->
          fun ?sortField ->
            fun ?order ->
              fun ~agentSpaceId ->
                fun () ->
                  { filter; limit; nextToken; sortField; order; agentSpaceId
                  }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("filter", (Option.map x.filter ~f:TaskFilter.to_value));
        ("limit",
          (Option.map x.limit ~f:ListBacklogTasksRequestLimitInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("sortField", (Option.map x.sortField ~f:TaskSortField.to_value));
        ("order", (Option.map x.order ~f:TaskSortOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let order =
        (Option.map ~f:TaskSortOrder.of_xml) (Xml.child xml_arg0 "order") in
      let sortField =
        (Option.map ~f:TaskSortField.of_xml) (Xml.child xml_arg0 "sortField") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let limit =
        (Option.map ~f:ListBacklogTasksRequestLimitInteger.of_xml)
          (Xml.child xml_arg0 "limit") in
      let filter =
        (Option.map ~f:TaskFilter.of_xml) (Xml.child xml_arg0 "filter") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?order ?sortField ?nextToken ?limit ?filter ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let order = field_map json__ "order" TaskSortOrder.of_json in
      let sortField = field_map json__ "sortField" TaskSortField.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let limit =
        field_map json__ "limit" ListBacklogTasksRequestLimitInteger.of_json in
      let filter = field_map json__ "filter" TaskFilter.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?order ?sortField ?nextToken ?limit ?filter ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request structure for listing backlog tasks with filtering, sorting, and pagination support"]
module ListAssociationsOutput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token to retrieve the next page of results, if there are more results."];
      associations: AssociationsList.t option
        [@ocaml.doc "The list of associations."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?nextToken =
      fun ?associations -> fun () -> { nextToken; associations }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("associations",
          (Option.map x.associations ~f:AssociationsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associations =
        (Option.map ~f:AssociationsList.of_xml)
          (Xml.child xml_arg0 "associations") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?associations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associations =
        field_map json__ "associations" AssociationsList.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?associations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output containing a list of service associations and pagination token."]
module ListAssociationsInput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier of the AgentSpace"];
      maxResults: ListAssociationsInputMaxResultsInteger.t option
        [@ocaml.doc "Maximum number of results to return in a single call."];
      nextToken: NextToken.t option
        [@ocaml.doc "Token for the next page of results."];
      filterServiceTypes:
        ListAssociationsInputFilterServiceTypesString.t option
        [@ocaml.doc
          "A comma-separated list of service types to filter list associations output"]}
    let context_ = "ListAssociationsInput"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filterServiceTypes ->
          fun ~agentSpaceId ->
            fun () ->
              { maxResults; nextToken; filterServiceTypes; agentSpaceId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListAssociationsInputMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("filterServiceTypes",
          (Option.map x.filterServiceTypes
             ~f:ListAssociationsInputFilterServiceTypesString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filterServiceTypes =
        (Option.map ~f:ListAssociationsInputFilterServiceTypesString.of_xml)
          (Xml.child xml_arg0 "filterServiceTypes") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListAssociationsInputMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?filterServiceTypes ?nextToken ?maxResults ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filterServiceTypes =
        field_map json__ "filterServiceTypes"
          ListAssociationsInputFilterServiceTypesString.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListAssociationsInputMaxResultsInteger.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?filterServiceTypes ?nextToken ?maxResults ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input for listing service associations within an AgentSpace."]
module ListAgentSpacesOutput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "Token to retrieve the next page of results, if there are more results."];
      agentSpaces: AgentSpaceList.t option
        [@ocaml.doc "The list of AgentSpaces."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?nextToken =
      fun ?agentSpaces -> fun () -> { nextToken; agentSpaces }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("agentSpaces",
          (Option.map x.agentSpaces ~f:AgentSpaceList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let agentSpaces =
        (Option.map ~f:AgentSpaceList.of_xml)
          (Xml.child xml_arg0 "agentSpaces") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?agentSpaces ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let agentSpaces = field_map json__ "agentSpaces" AgentSpaceList.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?agentSpaces ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output containing a list of AgentSpaces and pagination token."]
module ListAgentSpacesInput =
  struct
    type nonrec t =
      {
      maxResults: ListAgentSpacesInputMaxResultsInteger.t option
        [@ocaml.doc "Maximum number of results to return in a single call."];
      nextToken: NextToken.t option
        [@ocaml.doc "Token for the next page of results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults",
           (Option.map x.maxResults
              ~f:ListAgentSpacesInputMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListAgentSpacesInputMaxResultsInteger.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" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListAgentSpacesInputMaxResultsInteger.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for listing AgentSpaces with pagination support."]
module GetServiceOutput =
  struct
    type nonrec t =
      {
      service: RegisteredService.t option ;
      tags: Tags.t option [@ocaml.doc "Tags associated with the Service."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?service = fun ?tags -> fun () -> { service; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("service", (Option.map x.service ~f:RegisteredService.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let service =
        (Option.map ~f:RegisteredService.of_xml)
          (Xml.child xml_arg0 "service") in
      make ?tags ?service ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let service = field_map json__ "service" RegisteredService.of_json in
      make ?tags ?service ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output containing the requested service details."]
module GetServiceInput =
  struct
    type nonrec t =
      {
      serviceId: ServiceId.t
        [@ocaml.doc "The unique identifier of the given service."]}
    let context_ = "GetServiceInput"
    let make ~serviceId = fun () -> { serviceId }
    let to_value x =
      structure_to_value
        [("serviceId", (Some (ServiceId.to_value x.serviceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceId =
        ServiceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceId") in
      make ~serviceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceId = field_map_exn json__ "serviceId" ServiceId.of_json in
      make ~serviceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for retrieving a specific service association."]
module GetRecommendationResponse =
  struct
    type nonrec t =
      {
      recommendation: Recommendation.t option
        [@ocaml.doc "The requested recommendation"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?recommendation = fun () -> { recommendation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("recommendation",
           (Option.map x.recommendation ~f:Recommendation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recommendation =
        (Option.map ~f:Recommendation.of_xml)
          (Xml.child xml_arg0 "recommendation") in
      make ?recommendation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recommendation =
        field_map json__ "recommendation" Recommendation.of_json in
      make ?recommendation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Response structure containing the requested recommendation"]
module GetRecommendationRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc
          "The unique identifier for the agent space containing the recommendation"];
      recommendationId: ResourceId.t
        [@ocaml.doc
          "The unique identifier for the recommendation to retrieve"];
      recommendationVersion: Long.t option
        [@ocaml.doc
          "Specific version of the recommendation to retrieve. If not specified, returns the latest version."]}
    let context_ = "GetRecommendationRequest"
    let make ?recommendationVersion =
      fun ~agentSpaceId ->
        fun ~recommendationId ->
          fun () -> { recommendationVersion; agentSpaceId; recommendationId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("recommendationId", (Some (ResourceId.to_value x.recommendationId)));
        ("recommendationVersion",
          (Option.map x.recommendationVersion ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recommendationVersion =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "recommendationVersion") in
      let recommendationId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "recommendationId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?recommendationVersion ~recommendationId ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recommendationVersion =
        field_map json__ "recommendationVersion" Long.of_json in
      let recommendationId =
        field_map_exn json__ "recommendationId" ResourceId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?recommendationVersion ~recommendationId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request structure for retrieving a specific recommendation"]
module GetOperatorAppOutput =
  struct
    type nonrec t =
      {
      iam: IamAuthConfiguration.t option ;
      idc: IdcAuthConfiguration.t option ;
      idp: IdpAuthConfiguration.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?iam = fun ?idc -> fun ?idp -> fun () -> { iam; idc; idp }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("iam", (Option.map x.iam ~f:IamAuthConfiguration.to_value));
        ("idc", (Option.map x.idc ~f:IdcAuthConfiguration.to_value));
        ("idp", (Option.map x.idp ~f:IdpAuthConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let idp =
        (Option.map ~f:IdpAuthConfiguration.of_xml)
          (Xml.child xml_arg0 "idp") in
      let idc =
        (Option.map ~f:IdcAuthConfiguration.of_xml)
          (Xml.child xml_arg0 "idc") in
      let iam =
        (Option.map ~f:IamAuthConfiguration.of_xml)
          (Xml.child xml_arg0 "iam") in
      make ?idp ?idc ?iam ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let idp = field_map json__ "idp" IdpAuthConfiguration.of_json in
      let idc = field_map json__ "idc" IdcAuthConfiguration.of_json in
      let iam = field_map json__ "iam" IamAuthConfiguration.of_json in
      make ?idp ?idc ?iam ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output containing the Operator App configuration including authentication details."]
module GetOperatorAppInput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier of the AgentSpace"]}
    let context_ = "GetOperatorAppInput"
    let make ~agentSpaceId = fun () -> { agentSpaceId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for retrieving Operator App configuration."]
module GetBacklogTaskResponse =
  struct
    type nonrec t =
      {
      task: Task.t option [@ocaml.doc "The requested task object"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?task = fun () -> { task }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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 [("task", (Option.map x.task ~f:Task.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let task = (Option.map ~f:Task.of_xml) (Xml.child xml_arg0 "task") in
      make ?task ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let task = field_map json__ "task" Task.of_json in make ?task ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response structure containing the requested backlog task"]
module GetBacklogTaskRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc
          "The unique identifier for the agent space containing the task"];
      taskId: ResourceId.t
        [@ocaml.doc "The unique identifier of the task to retrieve"]}
    let context_ = "GetBacklogTaskRequest"
    let make ~agentSpaceId =
      fun ~taskId -> fun () -> { agentSpaceId; taskId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("taskId", (Some (ResourceId.to_value x.taskId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taskId =
        ResourceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "taskId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ~taskId ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taskId = field_map_exn json__ "taskId" ResourceId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ~taskId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request structure for retrieving a specific backlog task"]
module GetAssociationOutput =
  struct
    type nonrec t = {
      association: Association.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?association = fun () -> { association }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("association", (Option.map x.association ~f:Association.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let association =
        (Option.map ~f:Association.of_xml) (Xml.child xml_arg0 "association") in
      make ?association ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let association = field_map json__ "association" Association.of_json in
      make ?association ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output containing the requested association details."]
module GetAssociationInput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier of the AgentSpace"];
      associationId: AssociationId.t
        [@ocaml.doc "The unique identifier of the given association."]}
    let context_ = "GetAssociationInput"
    let make ~agentSpaceId =
      fun ~associationId -> fun () -> { agentSpaceId; associationId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("associationId", (Some (AssociationId.to_value x.associationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associationId =
        AssociationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "associationId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ~associationId ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associationId =
        field_map_exn json__ "associationId" AssociationId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ~associationId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for retrieving a specific service association."]
module GetAgentSpaceOutput =
  struct
    type nonrec t =
      {
      agentSpace: AgentSpace.t option ;
      tags: Tags.t option [@ocaml.doc "Tags associated with the AgentSpace."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?agentSpace = fun ?tags -> fun () -> { agentSpace; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("agentSpace", (Option.map x.agentSpace ~f:AgentSpace.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let agentSpace =
        (Option.map ~f:AgentSpace.of_xml) (Xml.child xml_arg0 "agentSpace") in
      make ?tags ?agentSpace ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let agentSpace = field_map json__ "agentSpace" AgentSpace.of_json in
      make ?tags ?agentSpace ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output containing the requested AgentSpace details."]
module GetAgentSpaceInput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier of the AgentSpace"]}
    let context_ = "GetAgentSpaceInput"
    let make ~agentSpaceId = fun () -> { agentSpaceId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for retrieving a specific AgentSpace by ID."]
module GetAccountUsageOutput =
  struct
    type nonrec t =
      {
      monthlyAccountInvestigationHours: UsageMetric.t option
        [@ocaml.doc
          "Monthly investigation hours usage and limit for an account"];
      monthlyAccountEvaluationHours: UsageMetric.t option
        [@ocaml.doc
          "Monthly evaluation hours usage and limit for an account"];
      monthlyAccountSystemLearningHours: UsageMetric.t option
        [@ocaml.doc
          "Monthly system learning hours usage and limit for an account"];
      monthlyAccountOnDemandHours: UsageMetric.t option
        [@ocaml.doc "Monthly on-demand hours usage and limit for an account"];
      usagePeriodStartTime: DateTime.t option
        [@ocaml.doc "The start time of the usage tracking period"];
      usagePeriodEndTime: DateTime.t option
        [@ocaml.doc "The end time of the usage tracking period"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?monthlyAccountInvestigationHours =
      fun ?monthlyAccountEvaluationHours ->
        fun ?monthlyAccountSystemLearningHours ->
          fun ?monthlyAccountOnDemandHours ->
            fun ?usagePeriodStartTime ->
              fun ?usagePeriodEndTime ->
                fun () ->
                  {
                    monthlyAccountInvestigationHours;
                    monthlyAccountEvaluationHours;
                    monthlyAccountSystemLearningHours;
                    monthlyAccountOnDemandHours;
                    usagePeriodStartTime;
                    usagePeriodEndTime
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("monthlyAccountInvestigationHours",
           (Option.map x.monthlyAccountInvestigationHours
              ~f:UsageMetric.to_value));
        ("monthlyAccountEvaluationHours",
          (Option.map x.monthlyAccountEvaluationHours ~f:UsageMetric.to_value));
        ("monthlyAccountSystemLearningHours",
          (Option.map x.monthlyAccountSystemLearningHours
             ~f:UsageMetric.to_value));
        ("monthlyAccountOnDemandHours",
          (Option.map x.monthlyAccountOnDemandHours ~f:UsageMetric.to_value));
        ("usagePeriodStartTime",
          (Option.map x.usagePeriodStartTime ~f:DateTime.to_value));
        ("usagePeriodEndTime",
          (Option.map x.usagePeriodEndTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let usagePeriodEndTime =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "usagePeriodEndTime") in
      let usagePeriodStartTime =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "usagePeriodStartTime") in
      let monthlyAccountOnDemandHours =
        (Option.map ~f:UsageMetric.of_xml)
          (Xml.child xml_arg0 "monthlyAccountOnDemandHours") in
      let monthlyAccountSystemLearningHours =
        (Option.map ~f:UsageMetric.of_xml)
          (Xml.child xml_arg0 "monthlyAccountSystemLearningHours") in
      let monthlyAccountEvaluationHours =
        (Option.map ~f:UsageMetric.of_xml)
          (Xml.child xml_arg0 "monthlyAccountEvaluationHours") in
      let monthlyAccountInvestigationHours =
        (Option.map ~f:UsageMetric.of_xml)
          (Xml.child xml_arg0 "monthlyAccountInvestigationHours") in
      make ?usagePeriodEndTime ?usagePeriodStartTime
        ?monthlyAccountOnDemandHours ?monthlyAccountSystemLearningHours
        ?monthlyAccountEvaluationHours ?monthlyAccountInvestigationHours ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let usagePeriodEndTime =
        field_map json__ "usagePeriodEndTime" DateTime.of_json in
      let usagePeriodStartTime =
        field_map json__ "usagePeriodStartTime" DateTime.of_json in
      let monthlyAccountOnDemandHours =
        field_map json__ "monthlyAccountOnDemandHours" UsageMetric.of_json in
      let monthlyAccountSystemLearningHours =
        field_map json__ "monthlyAccountSystemLearningHours"
          UsageMetric.of_json in
      let monthlyAccountEvaluationHours =
        field_map json__ "monthlyAccountEvaluationHours" UsageMetric.of_json in
      let monthlyAccountInvestigationHours =
        field_map json__ "monthlyAccountInvestigationHours"
          UsageMetric.of_json in
      make ?usagePeriodEndTime ?usagePeriodStartTime
        ?monthlyAccountOnDemandHours ?monthlyAccountSystemLearningHours
        ?monthlyAccountEvaluationHours ?monthlyAccountInvestigationHours ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves monthly account usage metrics and limits for the AWS account."]
module GetAccountUsageInput =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves monthly account usage metrics and limits for the AWS account."]
module EnableOperatorAppOutput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t option
        [@ocaml.doc "The unique identifier of the AgentSpace"];
      iam: IamAuthConfiguration.t option ;
      idc: IdcAuthConfiguration.t option ;
      idp: IdpAuthConfiguration.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `IdentityCenterServiceException of IdentityCenterServiceException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?agentSpaceId =
      fun ?iam ->
        fun ?idc -> fun ?idp -> fun () -> { agentSpaceId; iam; idc; idp }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "IdentityCenterServiceException" ->
          `IdentityCenterServiceException
            (IdentityCenterServiceException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "IdentityCenterServiceException" ->
          `IdentityCenterServiceException
            (IdentityCenterServiceException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `IdentityCenterServiceException e ->
          `Assoc
            [("error", (`String "IdentityCenterServiceException"));
            ("details", (IdentityCenterServiceException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("agentSpaceId",
           (Option.map x.agentSpaceId ~f:AgentSpaceId.to_value));
        ("iam", (Option.map x.iam ~f:IamAuthConfiguration.to_value));
        ("idc", (Option.map x.idc ~f:IdcAuthConfiguration.to_value));
        ("idp", (Option.map x.idp ~f:IdpAuthConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let idp =
        (Option.map ~f:IdpAuthConfiguration.of_xml)
          (Xml.child xml_arg0 "idp") in
      let idc =
        (Option.map ~f:IdcAuthConfiguration.of_xml)
          (Xml.child xml_arg0 "idc") in
      let iam =
        (Option.map ~f:IamAuthConfiguration.of_xml)
          (Xml.child xml_arg0 "iam") in
      let agentSpaceId =
        (Option.map ~f:AgentSpaceId.of_xml)
          (Xml.child xml_arg0 "agentSpaceId") in
      make ?idp ?idc ?iam ?agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let idp = field_map json__ "idp" IdpAuthConfiguration.of_json in
      let idc = field_map json__ "idc" IdcAuthConfiguration.of_json in
      let iam = field_map json__ "iam" IamAuthConfiguration.of_json in
      let agentSpaceId = field_map json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?idp ?idc ?iam ?agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output containing the enabled Operator App configuration."]
module EnableOperatorAppInput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier of the AgentSpace"];
      authFlow: AuthFlow.t
        [@ocaml.doc
          "The authentication flow configured for the operator App. e.g. iam or idc"];
      operatorAppRoleArn: RoleArn.t
        [@ocaml.doc "The IAM role end users assume to access AIDevOps APIs"];
      idcInstanceArn: String_.t option
        [@ocaml.doc
          "The IdC instance Arn used to create an IdC auth application"];
      issuerUrl: String_.t option
        [@ocaml.doc "The OIDC issuer URL of the external Identity Provider"];
      idpClientId: IdpClientId.t option
        [@ocaml.doc "The OIDC client ID for the IdP application"];
      idpClientSecret: IdpClientSecret.t option
        [@ocaml.doc "The OIDC client secret for the IdP application"];
      provider: String_.t option
        [@ocaml.doc "The Identity Provider name (e.g., Entra, Okta, Google)"]}
    let context_ = "EnableOperatorAppInput"
    let make ?idcInstanceArn =
      fun ?issuerUrl ->
        fun ?idpClientId ->
          fun ?idpClientSecret ->
            fun ?provider ->
              fun ~agentSpaceId ->
                fun ~authFlow ->
                  fun ~operatorAppRoleArn ->
                    fun () ->
                      {
                        idcInstanceArn;
                        issuerUrl;
                        idpClientId;
                        idpClientSecret;
                        provider;
                        agentSpaceId;
                        authFlow;
                        operatorAppRoleArn
                      }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("authFlow", (Some (AuthFlow.to_value x.authFlow)));
        ("operatorAppRoleArn",
          (Some (RoleArn.to_value x.operatorAppRoleArn)));
        ("idcInstanceArn", (Option.map x.idcInstanceArn ~f:String_.to_value));
        ("issuerUrl", (Option.map x.issuerUrl ~f:String_.to_value));
        ("idpClientId", (Option.map x.idpClientId ~f:IdpClientId.to_value));
        ("idpClientSecret",
          (Option.map x.idpClientSecret ~f:IdpClientSecret.to_value));
        ("provider", (Option.map x.provider ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let provider =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "provider") in
      let idpClientSecret =
        (Option.map ~f:IdpClientSecret.of_xml)
          (Xml.child xml_arg0 "idpClientSecret") in
      let idpClientId =
        (Option.map ~f:IdpClientId.of_xml) (Xml.child xml_arg0 "idpClientId") in
      let issuerUrl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "issuerUrl") in
      let idcInstanceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "idcInstanceArn") in
      let operatorAppRoleArn =
        RoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "operatorAppRoleArn") in
      let authFlow =
        AuthFlow.of_xml (Xml.child_exn ~context:context_ xml_arg0 "authFlow") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?provider ?idpClientSecret ?idpClientId ?issuerUrl ?idcInstanceArn
        ~operatorAppRoleArn ~authFlow ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let provider = field_map json__ "provider" String_.of_json in
      let idpClientSecret =
        field_map json__ "idpClientSecret" IdpClientSecret.of_json in
      let idpClientId = field_map json__ "idpClientId" IdpClientId.of_json in
      let issuerUrl = field_map json__ "issuerUrl" String_.of_json in
      let idcInstanceArn = field_map json__ "idcInstanceArn" String_.of_json in
      let operatorAppRoleArn =
        field_map_exn json__ "operatorAppRoleArn" RoleArn.of_json in
      let authFlow = field_map_exn json__ "authFlow" AuthFlow.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?provider ?idpClientSecret ?idpClientId ?issuerUrl ?idcInstanceArn
        ~operatorAppRoleArn ~authFlow ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for enabling the Operator App for an AgentSpace."]
module DisassociateServiceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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 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 "Empty output for successful service disassociation."]
module DisassociateServiceInput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier of the AgentSpace"];
      associationId: AssociationId.t
        [@ocaml.doc "The unique identifier of the given association."]}
    let context_ = "DisassociateServiceInput"
    let make ~agentSpaceId =
      fun ~associationId -> fun () -> { agentSpaceId; associationId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("associationId", (Some (AssociationId.to_value x.associationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associationId =
        AssociationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "associationId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ~associationId ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associationId =
        field_map_exn json__ "associationId" AssociationId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ~associationId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input for removing a service association from an AgentSpace."]
module DisableOperatorAppInput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier of the AgentSpace"];
      authFlow: AuthFlow.t option
        [@ocaml.doc
          "The authentication flow configured for the operator App. e.g. idc"]}
    let context_ = "DisableOperatorAppInput"
    let make ?authFlow =
      fun ~agentSpaceId -> fun () -> { authFlow; agentSpaceId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("x-amzn-app-auth-flow",
          (Option.map x.authFlow ~f:AuthFlow.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authFlow =
        (Option.map ~f:AuthFlow.of_xml)
          (Xml.child xml_arg0 "x-amzn-app-auth-flow") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?authFlow ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authFlow = field_map json__ "authFlow" AuthFlow.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?authFlow ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for disabling the Operator App for an AgentSpace."]
module DescribePrivateConnectionOutput =
  struct
    type nonrec t =
      {
      name: PrivateConnectionName.t option
        [@ocaml.doc "The name of the Private Connection."];
      type_: PrivateConnectionType.t option
        [@ocaml.doc "The type of the Private Connection."];
      resourceGatewayId: ResourceGatewayArn.t option
        [@ocaml.doc
          "The service-managed Resource Gateway ARN. Only present for service-managed Private Connections."];
      hostAddress: IpAddressOrDnsName.t option
        [@ocaml.doc
          "IP address or DNS name of the target resource. Only present for service-managed Private Connections."];
      vpcId: VpcId.t option
        [@ocaml.doc
          "VPC identifier of the service-managed Resource Gateway. Only present for service-managed Private Connections."];
      resourceConfigurationId: ResourceConfigurationArn.t option
        [@ocaml.doc
          "The Resource Configuration ARN. Only present for self-managed Private Connections."];
      status: PrivateConnectionStatus.t option
        [@ocaml.doc "The status of the Private Connection."];
      certificateExpiryTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The expiry time of the certificate associated with the Private Connection. Only present when a certificate is associated."];
      tags: Tags.t option
        [@ocaml.doc "Tags associated with the Private Connection."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?name =
      fun ?type_ ->
        fun ?resourceGatewayId ->
          fun ?hostAddress ->
            fun ?vpcId ->
              fun ?resourceConfigurationId ->
                fun ?status ->
                  fun ?certificateExpiryTime ->
                    fun ?tags ->
                      fun () ->
                        {
                          name;
                          type_;
                          resourceGatewayId;
                          hostAddress;
                          vpcId;
                          resourceConfigurationId;
                          status;
                          certificateExpiryTime;
                          tags
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("name", (Option.map x.name ~f:PrivateConnectionName.to_value));
        ("type", (Option.map x.type_ ~f:PrivateConnectionType.to_value));
        ("resourceGatewayId",
          (Option.map x.resourceGatewayId ~f:ResourceGatewayArn.to_value));
        ("hostAddress",
          (Option.map x.hostAddress ~f:IpAddressOrDnsName.to_value));
        ("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("resourceConfigurationId",
          (Option.map x.resourceConfigurationId
             ~f:ResourceConfigurationArn.to_value));
        ("status", (Option.map x.status ~f:PrivateConnectionStatus.to_value));
        ("certificateExpiryTime",
          (Option.map x.certificateExpiryTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let certificateExpiryTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "certificateExpiryTime") in
      let status =
        (Option.map ~f:PrivateConnectionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let resourceConfigurationId =
        (Option.map ~f:ResourceConfigurationArn.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationId") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      let hostAddress =
        (Option.map ~f:IpAddressOrDnsName.of_xml)
          (Xml.child xml_arg0 "hostAddress") in
      let resourceGatewayId =
        (Option.map ~f:ResourceGatewayArn.of_xml)
          (Xml.child xml_arg0 "resourceGatewayId") in
      let type_ =
        (Option.map ~f:PrivateConnectionType.of_xml)
          (Xml.child xml_arg0 "type") in
      let name =
        (Option.map ~f:PrivateConnectionName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?tags ?certificateExpiryTime ?status ?resourceConfigurationId
        ?vpcId ?hostAddress ?resourceGatewayId ?type_ ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let certificateExpiryTime =
        field_map json__ "certificateExpiryTime"
          SyntheticTimestamp_date_time.of_json in
      let status = field_map json__ "status" PrivateConnectionStatus.of_json in
      let resourceConfigurationId =
        field_map json__ "resourceConfigurationId"
          ResourceConfigurationArn.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      let hostAddress =
        field_map json__ "hostAddress" IpAddressOrDnsName.of_json in
      let resourceGatewayId =
        field_map json__ "resourceGatewayId" ResourceGatewayArn.of_json in
      let type_ = field_map json__ "type" PrivateConnectionType.of_json in
      let name = field_map json__ "name" PrivateConnectionName.of_json in
      make ?tags ?certificateExpiryTime ?status ?resourceConfigurationId
        ?vpcId ?hostAddress ?resourceGatewayId ?type_ ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output containing the Private Connection details."]
module DescribePrivateConnectionInput =
  struct
    type nonrec t =
      {
      name: PrivateConnectionName.t
        [@ocaml.doc "The name of the Private Connection."]}
    let context_ = "DescribePrivateConnectionInput"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value
        [("name", (Some (PrivateConnectionName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        PrivateConnectionName.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" PrivateConnectionName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for describing an existing Private Connection."]
module DeregisterServiceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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 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 "Empty output for successful service deregistration."]
module DeregisterServiceInput =
  struct
    type nonrec t =
      {
      serviceId: ServiceId.t
        [@ocaml.doc
          "The service id to deregister. A service can only be deregistered if it is not associated with any AgentSpace."]}
    let context_ = "DeregisterServiceInput"
    let make ~serviceId = fun () -> { serviceId }
    let to_value x =
      structure_to_value
        [("serviceId", (Some (ServiceId.to_value x.serviceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceId =
        ServiceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceId") in
      make ~serviceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceId = field_map_exn json__ "serviceId" ServiceId.of_json in
      make ~serviceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for deregistering a service."]
module DeletePrivateConnectionOutput =
  struct
    type nonrec t =
      {
      name: PrivateConnectionName.t option
        [@ocaml.doc "The name of the Private Connection."];
      status: PrivateConnectionStatus.t option
        [@ocaml.doc "The status of the Private Connection."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?name = fun ?status -> fun () -> { name; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("name", (Option.map x.name ~f:PrivateConnectionName.to_value));
        ("status", (Option.map x.status ~f:PrivateConnectionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:PrivateConnectionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:PrivateConnectionName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?status ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" PrivateConnectionStatus.of_json in
      let name = field_map json__ "name" PrivateConnectionName.of_json in
      make ?status ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output containing the status of the Private Connection deletion."]
module DeletePrivateConnectionInput =
  struct
    type nonrec t =
      {
      name: PrivateConnectionName.t
        [@ocaml.doc "The name of the Private Connection."]}
    let context_ = "DeletePrivateConnectionInput"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value
        [("name", (Some (PrivateConnectionName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        PrivateConnectionName.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" PrivateConnectionName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for deleting an existing Private Connection."]
module DeleteAgentSpaceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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 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 "Empty output for successful AgentSpace deletion."]
module DeleteAgentSpaceInput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier of the AgentSpace"]}
    let context_ = "DeleteAgentSpaceInput"
    let make ~agentSpaceId = fun () -> { agentSpaceId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for deleting an AgentSpace."]
module CreatePrivateConnectionOutput =
  struct
    type nonrec t =
      {
      name: PrivateConnectionName.t option
        [@ocaml.doc "The name of the Private Connection."];
      type_: PrivateConnectionType.t option
        [@ocaml.doc "The type of the Private Connection."];
      resourceGatewayId: ResourceGatewayArn.t option
        [@ocaml.doc
          "The service-managed Resource Gateway ARN. Only present for service-managed Private Connections."];
      hostAddress: IpAddressOrDnsName.t option
        [@ocaml.doc
          "IP address or DNS name of the target resource. Only present for service-managed Private Connections."];
      vpcId: VpcId.t option
        [@ocaml.doc
          "VPC identifier of the service-managed Resource Gateway. Only present for service-managed Private Connections."];
      resourceConfigurationId: ResourceConfigurationArn.t option
        [@ocaml.doc
          "The Resource Configuration ARN. Only present for self-managed Private Connections."];
      status: PrivateConnectionStatus.t option
        [@ocaml.doc "The status of the Private Connection."];
      certificateExpiryTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The expiry time of the certificate associated with the Private Connection. Only present when a certificate is associated."];
      tags: Tags.t option
        [@ocaml.doc "Tags associated with the created Private Connection."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?name =
      fun ?type_ ->
        fun ?resourceGatewayId ->
          fun ?hostAddress ->
            fun ?vpcId ->
              fun ?resourceConfigurationId ->
                fun ?status ->
                  fun ?certificateExpiryTime ->
                    fun ?tags ->
                      fun () ->
                        {
                          name;
                          type_;
                          resourceGatewayId;
                          hostAddress;
                          vpcId;
                          resourceConfigurationId;
                          status;
                          certificateExpiryTime;
                          tags
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("name", (Option.map x.name ~f:PrivateConnectionName.to_value));
        ("type", (Option.map x.type_ ~f:PrivateConnectionType.to_value));
        ("resourceGatewayId",
          (Option.map x.resourceGatewayId ~f:ResourceGatewayArn.to_value));
        ("hostAddress",
          (Option.map x.hostAddress ~f:IpAddressOrDnsName.to_value));
        ("vpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("resourceConfigurationId",
          (Option.map x.resourceConfigurationId
             ~f:ResourceConfigurationArn.to_value));
        ("status", (Option.map x.status ~f:PrivateConnectionStatus.to_value));
        ("certificateExpiryTime",
          (Option.map x.certificateExpiryTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let certificateExpiryTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "certificateExpiryTime") in
      let status =
        (Option.map ~f:PrivateConnectionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let resourceConfigurationId =
        (Option.map ~f:ResourceConfigurationArn.of_xml)
          (Xml.child xml_arg0 "resourceConfigurationId") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "vpcId") in
      let hostAddress =
        (Option.map ~f:IpAddressOrDnsName.of_xml)
          (Xml.child xml_arg0 "hostAddress") in
      let resourceGatewayId =
        (Option.map ~f:ResourceGatewayArn.of_xml)
          (Xml.child xml_arg0 "resourceGatewayId") in
      let type_ =
        (Option.map ~f:PrivateConnectionType.of_xml)
          (Xml.child xml_arg0 "type") in
      let name =
        (Option.map ~f:PrivateConnectionName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?tags ?certificateExpiryTime ?status ?resourceConfigurationId
        ?vpcId ?hostAddress ?resourceGatewayId ?type_ ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let certificateExpiryTime =
        field_map json__ "certificateExpiryTime"
          SyntheticTimestamp_date_time.of_json in
      let status = field_map json__ "status" PrivateConnectionStatus.of_json in
      let resourceConfigurationId =
        field_map json__ "resourceConfigurationId"
          ResourceConfigurationArn.of_json in
      let vpcId = field_map json__ "vpcId" VpcId.of_json in
      let hostAddress =
        field_map json__ "hostAddress" IpAddressOrDnsName.of_json in
      let resourceGatewayId =
        field_map json__ "resourceGatewayId" ResourceGatewayArn.of_json in
      let type_ = field_map json__ "type" PrivateConnectionType.of_json in
      let name = field_map json__ "name" PrivateConnectionName.of_json in
      make ?tags ?certificateExpiryTime ?status ?resourceConfigurationId
        ?vpcId ?hostAddress ?resourceGatewayId ?type_ ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output containing the newly created Private Connection summary."]
module CreatePrivateConnectionInput =
  struct
    type nonrec t =
      {
      name: PrivateConnectionName.t
        [@ocaml.doc
          "Unique name for this Private Connection within the account."];
      mode: PrivateConnectionMode.t
        [@ocaml.doc "Private Connection mode configuration."];
      tags: Tags.t option
        [@ocaml.doc
          "Tags to add to the Private Connection at creation time."]}
    let context_ = "CreatePrivateConnectionInput"
    let make ?tags = fun ~name -> fun ~mode -> fun () -> { tags; name; mode }
    let to_value x =
      structure_to_value
        [("name", (Some (PrivateConnectionName.to_value x.name)));
        ("mode", (Some (PrivateConnectionMode.to_value x.mode)));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let mode =
        PrivateConnectionMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mode") in
      let name =
        PrivateConnectionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ~mode ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let mode = field_map_exn json__ "mode" PrivateConnectionMode.of_json in
      let name = field_map_exn json__ "name" PrivateConnectionName.of_json in
      make ?tags ~mode ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for creating a new Private Connection."]
module CreateChatResponse =
  struct
    type nonrec t =
      {
      executionId: ResourceId.t option
        [@ocaml.doc "The unique identifier for the created execution"];
      createdAt: Timestamp.t option
        [@ocaml.doc "Timestamp when the chat was created"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?executionId =
      fun ?createdAt -> fun () -> { executionId; createdAt }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("executionId", (Option.map x.executionId ~f:ResourceId.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let executionId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "executionId") in
      make ?createdAt ?executionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let executionId = field_map json__ "executionId" ResourceId.of_json in
      make ?createdAt ?executionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response structure for creating a new chat"]
module CreateChatRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t ;
      userId: ResourceId.t option
        [@ocaml.doc
          "The user identifier for the chat. This field is deprecated and will be ignored \226\128\148 the service resolves user identity from the authenticated session."];
      userType: UserType.t option
        [@ocaml.doc "The authentication type of the user"]}
    let context_ = "CreateChatRequest"
    let make ?userId =
      fun ?userType ->
        fun ~agentSpaceId -> fun () -> { userId; userType; agentSpaceId }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("userId", (Option.map x.userId ~f:ResourceId.to_value));
        ("userType", (Option.map x.userType ~f:UserType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userType =
        (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "userType") in
      let userId =
        (Option.map ~f:ResourceId.of_xml) (Xml.child xml_arg0 "userId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?userType ?userId ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userType = field_map json__ "userType" UserType.of_json in
      let userId = field_map json__ "userId" ResourceId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?userType ?userId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request structure for creating a new chat"]
module CreateBacklogTaskResponse =
  struct
    type nonrec t =
      {
      task: Task.t option [@ocaml.doc "The newly created task object"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?task = fun () -> { task }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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 [("task", (Option.map x.task ~f:Task.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let task = (Option.map ~f:Task.of_xml) (Xml.child xml_arg0 "task") in
      make ?task ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let task = field_map json__ "task" Task.of_json in make ?task ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response structure containing the created backlog task"]
module CreateBacklogTaskRequest =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc
          "The unique identifier for the agent space where the task will be created"];
      reference: ReferenceInput.t option
        [@ocaml.doc "Optional reference information for the task"];
      taskType: TaskType.t [@ocaml.doc "The type of task being created"];
      title: BacklogTaskTitle.t [@ocaml.doc "The title of the backlog task"];
      description: BacklogTaskDescription.t option
        [@ocaml.doc "Optional detailed description of the task"];
      priority: Priority.t [@ocaml.doc "The priority level of the task"];
      clientToken: String_.t option
        [@ocaml.doc "Client-provided token for idempotent operations"]}
    let context_ = "CreateBacklogTaskRequest"
    let make ?reference =
      fun ?description ->
        fun ?clientToken ->
          fun ~agentSpaceId ->
            fun ~taskType ->
              fun ~title ->
                fun ~priority ->
                  fun () ->
                    {
                      reference;
                      description;
                      clientToken;
                      agentSpaceId;
                      taskType;
                      title;
                      priority
                    }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("reference", (Option.map x.reference ~f:ReferenceInput.to_value));
        ("taskType", (Some (TaskType.to_value x.taskType)));
        ("title", (Some (BacklogTaskTitle.to_value x.title)));
        ("description",
          (Option.map x.description ~f:BacklogTaskDescription.to_value));
        ("priority", (Some (Priority.to_value x.priority)));
        ("clientToken", (Option.map x.clientToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clientToken") in
      let priority =
        Priority.of_xml (Xml.child_exn ~context:context_ xml_arg0 "priority") in
      let description =
        (Option.map ~f:BacklogTaskDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let title =
        BacklogTaskTitle.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "title") in
      let taskType =
        TaskType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "taskType") in
      let reference =
        (Option.map ~f:ReferenceInput.of_xml)
          (Xml.child xml_arg0 "reference") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ?clientToken ~priority ?description ~title ~taskType ?reference
        ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" String_.of_json in
      let priority = field_map_exn json__ "priority" Priority.of_json in
      let description =
        field_map json__ "description" BacklogTaskDescription.of_json in
      let title = field_map_exn json__ "title" BacklogTaskTitle.of_json in
      let taskType = field_map_exn json__ "taskType" TaskType.of_json in
      let reference = field_map json__ "reference" ReferenceInput.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ?clientToken ~priority ?description ~title ~taskType ?reference
        ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request structure for creating a new backlog task"]
module CreateAgentSpaceOutput =
  struct
    type nonrec t =
      {
      agentSpace: AgentSpace.t option ;
      tags: Tags.t option
        [@ocaml.doc "Tags associated with the created AgentSpace."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?agentSpace = fun ?tags -> fun () -> { agentSpace; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("agentSpace", (Option.map x.agentSpace ~f:AgentSpace.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let agentSpace =
        (Option.map ~f:AgentSpace.of_xml) (Xml.child xml_arg0 "agentSpace") in
      make ?tags ?agentSpace ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let agentSpace = field_map json__ "agentSpace" AgentSpace.of_json in
      make ?tags ?agentSpace ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output containing the newly created AgentSpace."]
module CreateAgentSpaceInput =
  struct
    type nonrec t =
      {
      name: AgentSpaceName.t [@ocaml.doc "The name of the AgentSpace."];
      description: Description.t option
        [@ocaml.doc "The description of the AgentSpace."];
      locale: Locale.t option
        [@ocaml.doc
          "The locale for the AgentSpace, which determines the language used in agent responses."];
      kmsKeyArn: KmsKeyArn.t option
        [@ocaml.doc
          "The ARN of the AWS Key Management Service (AWS KMS) customer managed key that's used to encrypt resources."];
      clientToken: CreateAgentSpaceInputClientTokenString.t option
        [@ocaml.doc
          "Client-provided token to ensure request idempotency. When the same token is provided in subsequent calls, the same response is returned within a 8-hour window."];
      tags: Tags.t option
        [@ocaml.doc "Tags to add to the AgentSpace at creation time."]}
    let context_ = "CreateAgentSpaceInput"
    let make ?description =
      fun ?locale ->
        fun ?kmsKeyArn ->
          fun ?clientToken ->
            fun ?tags ->
              fun ~name ->
                fun () ->
                  { description; locale; kmsKeyArn; clientToken; tags; name }
    let to_value x =
      structure_to_value
        [("name", (Some (AgentSpaceName.to_value x.name)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("locale", (Option.map x.locale ~f:Locale.to_value));
        ("kmsKeyArn", (Option.map x.kmsKeyArn ~f:KmsKeyArn.to_value));
        ("clientToken",
          (Option.map x.clientToken
             ~f:CreateAgentSpaceInputClientTokenString.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:CreateAgentSpaceInputClientTokenString.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      let kmsKeyArn =
        (Option.map ~f:KmsKeyArn.of_xml) (Xml.child xml_arg0 "kmsKeyArn") in
      let locale =
        (Option.map ~f:Locale.of_xml) (Xml.child xml_arg0 "locale") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name =
        AgentSpaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ?clientToken ?kmsKeyArn ?locale ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let clientToken =
        field_map json__ "clientToken"
          CreateAgentSpaceInputClientTokenString.of_json in
      let kmsKeyArn = field_map json__ "kmsKeyArn" KmsKeyArn.of_json in
      let locale = field_map json__ "locale" Locale.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map_exn json__ "name" AgentSpaceName.of_json in
      make ?tags ?clientToken ?kmsKeyArn ?locale ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for creating a new AgentSpace."]
module AssociateServiceOutput =
  struct
    type nonrec t =
      {
      association: Association.t option ;
      webhook: GenericWebhook.t option
        [@ocaml.doc "Generic webhook configuration"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentSizeExceededException of ContentSizeExceededException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidParameterException of InvalidParameterException.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 ?association =
      fun ?webhook -> fun () -> { association; webhook }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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)
      | "ContentSizeExceededException" ->
          `ContentSizeExceededException
            (ContentSizeExceededException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.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))]
      | `ContentSizeExceededException e ->
          `Assoc
            [("error", (`String "ContentSizeExceededException"));
            ("details", (ContentSizeExceededException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.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
        [("association", (Option.map x.association ~f:Association.to_value));
        ("webhook", (Option.map x.webhook ~f:GenericWebhook.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhook =
        (Option.map ~f:GenericWebhook.of_xml) (Xml.child xml_arg0 "webhook") in
      let association =
        (Option.map ~f:Association.of_xml) (Xml.child xml_arg0 "association") in
      make ?webhook ?association ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhook = field_map json__ "webhook" GenericWebhook.of_json in
      let association = field_map json__ "association" Association.of_json in
      make ?webhook ?association ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output containing the newly created association and optional webhook configuration."]
module AssociateServiceInput =
  struct
    type nonrec t =
      {
      agentSpaceId: AgentSpaceId.t
        [@ocaml.doc "The unique identifier of the AgentSpace"];
      serviceId: ServiceId.t
        [@ocaml.doc "The unique identifier of the service."];
      configuration: ServiceConfiguration.t
        [@ocaml.doc
          "The configuration that directs how AgentSpace interacts with the given service."]}
    let context_ = "AssociateServiceInput"
    let make ~agentSpaceId =
      fun ~serviceId ->
        fun ~configuration ->
          fun () -> { agentSpaceId; serviceId; configuration }
    let to_value x =
      structure_to_value
        [("agentSpaceId", (Some (AgentSpaceId.to_value x.agentSpaceId)));
        ("serviceId", (Some (ServiceId.to_value x.serviceId)));
        ("configuration",
          (Some (ServiceConfiguration.to_value x.configuration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        ServiceConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "configuration") in
      let serviceId =
        ServiceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "serviceId") in
      let agentSpaceId =
        AgentSpaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "agentSpaceId") in
      make ~configuration ~serviceId ~agentSpaceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map_exn json__ "configuration" ServiceConfiguration.of_json in
      let serviceId = field_map_exn json__ "serviceId" ServiceId.of_json in
      let agentSpaceId =
        field_map_exn json__ "agentSpaceId" AgentSpaceId.of_json in
      make ~configuration ~serviceId ~agentSpaceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input for creating a new service association within an AgentSpace."]