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.sagemaker_runtime
let apiVersion = "2017-05-13"
let endpointPrefix = "runtime.sagemaker"
let serviceFullName = "Amazon SageMaker Runtime"
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 Message =
  struct
    type nonrec t = string
    let context_ = "Message"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:2048); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Message" j
    let to_json = simple_to_json to_value
  end
module ErrorCode =
  struct
    type nonrec t = string
    let context_ = "ErrorCode"
    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:"ErrorCode" j
    let to_json = simple_to_json to_value
  end
module PartBlob =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module LogStreamArn =
  struct
    type nonrec t = string
    let context_ = "LogStreamArn"
    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:"LogStreamArn" j
    let to_json = simple_to_json to_value
  end
module StatusCode =
  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 StatusCode" 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 InternalStreamFailure =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The stream processing failed because of an unknown error, exception or failure. Try your request again."]
module ModelStreamError =
  struct
    type nonrec t =
      {
      message: Message.t option ;
      errorCode: ErrorCode.t option
        [@ocaml.doc
          "This error can have the following error codes: ModelInvocationTimeExceeded The model failed to finish sending the response within the timeout period allowed by Amazon SageMaker AI. StreamBroken The Transmission Control Protocol (TCP) connection between the client and the model was reset or closed."]}
    let make ?message = fun ?errorCode -> fun () -> { message; errorCode }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      make ?errorCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      let message = field_map json__ "Message" Message.of_json in
      make ?errorCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An error occurred while streaming the response body. This error can have the following error codes: ModelInvocationTimeExceeded The model failed to finish sending the response within the timeout period allowed by Amazon SageMaker AI. StreamBroken The Transmission Control Protocol (TCP) connection between the client and the model was reset or closed."]
module PayloadPart =
  struct
    type nonrec t =
      {
      bytes: PartBlob.t option
        [@ocaml.doc
          "A blob that contains part of the response for your streaming inference request."]}
    let make ?bytes = fun () -> { bytes }
    let of_header_and_body = ((fun (xs, pipe) -> make ?bytes:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("Bytes", (Option.map x.bytes ~f:PartBlob.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bytes =
        (Option.map ~f:PartBlob.of_xml) (Xml.child xml_arg0 "Bytes") in
      make ?bytes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bytes = field_map json__ "Bytes" PartBlob.of_json in make ?bytes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A wrapper for pieces of the payload that's returned in response to a streaming inference request. A streaming inference response consists of one or more payload parts."]
module CustomAttributesHeader =
  struct
    type nonrec t = string
    let context_ = "CustomAttributesHeader"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_pattern i ~pattern:"\\p{ASCII}*"));
        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:"CustomAttributesHeader" j
    let to_json = simple_to_json to_value
  end
module Header =
  struct
    type nonrec t = string
    let context_ = "Header"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_pattern i ~pattern:"\\p{ASCII}*"));
        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:"Header" j
    let to_json = simple_to_json to_value
  end
module InternalFailure =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An internal failure occurred."]
module ModelError =
  struct
    type nonrec t =
      {
      message: Message.t option ;
      originalStatusCode: StatusCode.t option
        [@ocaml.doc "Original status code."];
      originalMessage: Message.t option [@ocaml.doc "Original message."];
      logStreamArn: LogStreamArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the log stream."]}
    let make ?message =
      fun ?originalStatusCode ->
        fun ?originalMessage ->
          fun ?logStreamArn ->
            fun () ->
              { message; originalStatusCode; originalMessage; logStreamArn }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value));
        ("OriginalStatusCode",
          (Option.map x.originalStatusCode ~f:StatusCode.to_value));
        ("OriginalMessage",
          (Option.map x.originalMessage ~f:Message.to_value));
        ("LogStreamArn",
          (Option.map x.logStreamArn ~f:LogStreamArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logStreamArn =
        (Option.map ~f:LogStreamArn.of_xml)
          (Xml.child xml_arg0 "LogStreamArn") in
      let originalMessage =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "OriginalMessage") in
      let originalStatusCode =
        (Option.map ~f:StatusCode.of_xml)
          (Xml.child xml_arg0 "OriginalStatusCode") in
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      make ?logStreamArn ?originalMessage ?originalStatusCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logStreamArn = field_map json__ "LogStreamArn" LogStreamArn.of_json in
      let originalMessage =
        field_map json__ "OriginalMessage" Message.of_json in
      let originalStatusCode =
        field_map json__ "OriginalStatusCode" StatusCode.of_json in
      let message = field_map json__ "Message" Message.of_json in
      make ?logStreamArn ?originalMessage ?originalStatusCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Model (owned by the customer in the container) returned 4xx or 5xx error code."]
module ResponseStream =
  struct
    type nonrec t =
      {
      payloadPart: PayloadPart.t option
        [@ocaml.doc
          "A wrapper for pieces of the payload that's returned in response to a streaming inference request. A streaming inference response consists of one or more payload parts."];
      modelStreamError: ModelStreamError.t option
        [@ocaml.doc
          "An error occurred while streaming the response body. This error can have the following error codes: ModelInvocationTimeExceeded The model failed to finish sending the response within the timeout period allowed by Amazon SageMaker AI. StreamBroken The Transmission Control Protocol (TCP) connection between the client and the model was reset or closed."];
      internalStreamFailure: InternalStreamFailure.t option
        [@ocaml.doc
          "The stream processing failed because of an unknown error, exception or failure. Try your request again."]}
    let make ?payloadPart =
      fun ?modelStreamError ->
        fun ?internalStreamFailure ->
          fun () -> { payloadPart; modelStreamError; internalStreamFailure }
    let to_value x =
      structure_to_value
        [("PayloadPart", (Option.map x.payloadPart ~f:PayloadPart.to_value));
        ("ModelStreamError",
          (Option.map x.modelStreamError ~f:ModelStreamError.to_value));
        ("InternalStreamFailure",
          (Option.map x.internalStreamFailure
             ~f:InternalStreamFailure.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let internalStreamFailure =
        (Option.map ~f:InternalStreamFailure.of_xml)
          (Xml.child xml_arg0 "InternalStreamFailure") in
      let modelStreamError =
        (Option.map ~f:ModelStreamError.of_xml)
          (Xml.child xml_arg0 "ModelStreamError") in
      let payloadPart =
        (Option.map ~f:PayloadPart.of_xml) (Xml.child xml_arg0 "PayloadPart") in
      make ?internalStreamFailure ?modelStreamError ?payloadPart ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let internalStreamFailure =
        field_map json__ "InternalStreamFailure"
          InternalStreamFailure.of_json in
      let modelStreamError =
        field_map json__ "ModelStreamError" ModelStreamError.of_json in
      let payloadPart = field_map json__ "PayloadPart" PayloadPart.of_json in
      make ?internalStreamFailure ?modelStreamError ?payloadPart ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A stream of payload parts. Each part contains a portion of the response for a streaming inference request."]
module ServiceUnavailable =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The service is unavailable. Try your call again."]
module ValidationError =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Inspect your request and try again."]
module BodyBlob =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module EndpointName =
  struct
    type nonrec t = string
    let context_ = "EndpointName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (fun () ->
                check_pattern i ~pattern:"^[a-zA-Z0-9](-*[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:"EndpointName" j
    let to_json = simple_to_json to_value
  end
module InferenceComponentHeader =
  struct
    type nonrec t = string
    let context_ = "InferenceComponentHeader"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^[a-zA-Z0-9]([\\-a-zA-Z0-9]*[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:"InferenceComponentHeader" j
    let to_json = simple_to_json to_value
  end
module InferenceId =
  struct
    type nonrec t = string
    let context_ = "InferenceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i ~pattern:"\\A\\S[\\p{Print}]*\\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:"InferenceId" j
    let to_json = simple_to_json to_value
  end
module SessionIdHeader =
  struct
    type nonrec t = string
    let context_ = "SessionIdHeader"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () ->
                check_pattern i ~pattern:"^[a-zA-Z0-9](-*[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:"SessionIdHeader" j
    let to_json = simple_to_json to_value
  end
module TargetContainerHostnameHeader =
  struct
    type nonrec t = string
    let context_ = "TargetContainerHostnameHeader"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (fun () ->
                check_pattern i ~pattern:"^[a-zA-Z0-9](-*[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:"TargetContainerHostnameHeader" j
    let to_json = simple_to_json to_value
  end
module TargetVariantHeader =
  struct
    type nonrec t = string
    let context_ = "TargetVariantHeader"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (fun () ->
                check_pattern i ~pattern:"^[a-zA-Z0-9](-*[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:"TargetVariantHeader" j
    let to_json = simple_to_json to_value
  end
module InternalDependencyException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Your request caused an exception with an internal dependency. Contact customer support."]
module ModelNotReadyException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Either a serverless endpoint variant's resources are still being provisioned, or a multi-model endpoint is still downloading or loading the target model. Wait and try your request again."]
module NewSessionResponseHeader =
  struct
    type nonrec t = string
    let context_ = "NewSessionResponseHeader"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^[a-zA-Z0-9](-*[a-zA-Z0-9])*;\\sExpires=[0-9]{4}-[0-9]{2}-[0-9]{2}T[0-9]{2}:[0-9]{2}:[0-9]{2}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:"NewSessionResponseHeader" j
    let to_json = simple_to_json to_value
  end
module EnableExplanationsHeader =
  struct
    type nonrec t = string
    let context_ = "EnableExplanationsHeader"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        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:"EnableExplanationsHeader" j
    let to_json = simple_to_json to_value
  end
module SessionIdOrNewSessionConstantHeader =
  struct
    type nonrec t = string
    let context_ = "SessionIdOrNewSessionConstantHeader"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^(NEW_SESSION)$|^[a-zA-Z0-9](-*[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:"SessionIdOrNewSessionConstantHeader" j
    let to_json = simple_to_json to_value
  end
module TargetModelHeader =
  struct
    type nonrec t = string
    let context_ = "TargetModelHeader"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i ~pattern:"\\A\\S[\\p{Print}]*\\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:"TargetModelHeader" j
    let to_json = simple_to_json to_value
  end
module FilenameHeader =
  struct
    type nonrec t = string
    let context_ = "FilenameHeader"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(?!.*\\..*\\.)[a-zA-Z0-9][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:"FilenameHeader" j
    let to_json = simple_to_json to_value
  end
module InputLocationHeader =
  struct
    type nonrec t = string
    let context_ = "InputLocationHeader"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^(https|s3)://([^/]+)/?(.*)$")));
        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:"InputLocationHeader" j
    let to_json = simple_to_json to_value
  end
module InvocationTimeoutSecondsHeader =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:3600) >>= (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 InvocationTimeoutSecondsHeader"
           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 RequestTTLSecondsHeader =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:21600) >>=
             (fun () -> check_int_min i ~min:60));
        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 RequestTTLSecondsHeader"
           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 S3OutputPathExtensionHeader =
  struct
    type nonrec t = string
    let context_ = "S3OutputPathExtensionHeader"
    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:"^(?!s3:|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:"S3OutputPathExtensionHeader" j
    let to_json = simple_to_json to_value
  end
module InvokeEndpointWithResponseStreamOutput =
  struct
    type nonrec t =
      {
      body: ResponseStream.t option ;
      contentType: Header.t option
        [@ocaml.doc
          "The MIME type of the inference returned from the model container."];
      invokedProductionVariant: Header.t option
        [@ocaml.doc "Identifies the production variant that was invoked."];
      customAttributes: CustomAttributesHeader.t option
        [@ocaml.doc
          "Provides additional information in the response about the inference returned by a model hosted at an Amazon SageMaker AI endpoint. The information is an opaque value that is forwarded verbatim. You could use this value, for example, to return an ID received in the CustomAttributes header of a request or other metadata that a service endpoint was programmed to produce. The value must consist of no more than 1024 visible US-ASCII characters as specified in Section 3.3.6. Field Value Components of the Hypertext Transfer Protocol (HTTP/1.1). If the customer wants the custom attribute returned, the model must set the custom attribute to be included on the way back. The code in your model is responsible for setting or updating any custom attributes in the response. If your code does not set this value in the response, an empty value is returned. For example, if a custom attribute represents the trace ID, your model can prepend the custom attribute with Trace ID: in your post-processing function. This feature is currently supported in the Amazon Web Services SDKs but not in the Amazon SageMaker AI Python SDK."]}
    type nonrec error =
      [ `InternalFailure of InternalFailure.t 
      | `InternalStreamFailure of InternalStreamFailure.t 
      | `ModelError of ModelError.t 
      | `ModelStreamError of ModelStreamError.t 
      | `ServiceUnavailable of ServiceUnavailable.t 
      | `ValidationError of ValidationError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?body =
      fun ?contentType ->
        fun ?invokedProductionVariant ->
          fun ?customAttributes ->
            fun () ->
              { body; contentType; invokedProductionVariant; customAttributes
              }
    let error_of_json name json =
      match name with
      | "InternalFailure" -> `InternalFailure (InternalFailure.of_json json)
      | "InternalStreamFailure" ->
          `InternalStreamFailure (InternalStreamFailure.of_json json)
      | "ModelError" -> `ModelError (ModelError.of_json json)
      | "ModelStreamError" ->
          `ModelStreamError (ModelStreamError.of_json json)
      | "ServiceUnavailable" ->
          `ServiceUnavailable (ServiceUnavailable.of_json json)
      | "ValidationError" -> `ValidationError (ValidationError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalFailure" -> `InternalFailure (InternalFailure.of_xml xml)
      | "InternalStreamFailure" ->
          `InternalStreamFailure (InternalStreamFailure.of_xml xml)
      | "ModelError" -> `ModelError (ModelError.of_xml xml)
      | "ModelStreamError" -> `ModelStreamError (ModelStreamError.of_xml xml)
      | "ServiceUnavailable" ->
          `ServiceUnavailable (ServiceUnavailable.of_xml xml)
      | "ValidationError" -> `ValidationError (ValidationError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalFailure e ->
          `Assoc
            [("error", (`String "InternalFailure"));
            ("details", (InternalFailure.to_json e))]
      | `InternalStreamFailure e ->
          `Assoc
            [("error", (`String "InternalStreamFailure"));
            ("details", (InternalStreamFailure.to_json e))]
      | `ModelError e ->
          `Assoc
            [("error", (`String "ModelError"));
            ("details", (ModelError.to_json e))]
      | `ModelStreamError e ->
          `Assoc
            [("error", (`String "ModelStreamError"));
            ("details", (ModelStreamError.to_json e))]
      | `ServiceUnavailable e ->
          `Assoc
            [("error", (`String "ServiceUnavailable"));
            ("details", (ServiceUnavailable.to_json e))]
      | `ValidationError e ->
          `Assoc
            [("error", (`String "ValidationError"));
            ("details", (ValidationError.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 ?body:(Some pipe)
            ?contentType:(Option.map
                            ((List.Assoc.find ~equal:String.Caseless.equal)
                               xs "X-Amzn-SageMaker-Content-Type")
                            ~f:Header.of_string)
            ?invokedProductionVariant:(Option.map
                                         ((List.Assoc.find
                                             ~equal:String.Caseless.equal) xs
                                            "x-Amzn-Invoked-Production-Variant")
                                         ~f:Header.of_string)
            ?customAttributes:(Option.map
                                 ((List.Assoc.find
                                     ~equal:String.Caseless.equal) xs
                                    "X-Amzn-SageMaker-Custom-Attributes")
                                 ~f:CustomAttributesHeader.of_string) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("Body", (Option.map x.body ~f:ResponseStream.to_value));
        ("X-Amzn-SageMaker-Content-Type",
          (Option.map x.contentType ~f:Header.to_value));
        ("x-Amzn-Invoked-Production-Variant",
          (Option.map x.invokedProductionVariant ~f:Header.to_value));
        ("X-Amzn-SageMaker-Custom-Attributes",
          (Option.map x.customAttributes ~f:CustomAttributesHeader.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customAttributes =
        (Option.map ~f:CustomAttributesHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Custom-Attributes") in
      let invokedProductionVariant =
        (Option.map ~f:Header.of_xml)
          (Xml.child xml_arg0 "x-Amzn-Invoked-Production-Variant") in
      let contentType =
        (Option.map ~f:Header.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Content-Type") in
      let body =
        (Option.map ~f:ResponseStream.of_xml) (Xml.child xml_arg0 "Body") in
      make ?customAttributes ?invokedProductionVariant ?contentType ?body ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customAttributes =
        field_map json__ "CustomAttributes" CustomAttributesHeader.of_json in
      let invokedProductionVariant =
        field_map json__ "InvokedProductionVariant" Header.of_json in
      let contentType = field_map json__ "ContentType" Header.of_json in
      let body = field_map json__ "Body" ResponseStream.of_json in
      make ?customAttributes ?invokedProductionVariant ?contentType ?body ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Invokes a model at the specified endpoint to return the inference response as a stream. The inference stream provides the response payload incrementally as a series of parts. Before you can get an inference stream, you must have access to a model that's deployed using Amazon SageMaker AI hosting services, and the container for that model must support inference streaming. For more information that can help you use this API, see the following sections in the Amazon SageMaker AI Developer Guide: For information about how to add streaming support to a model, see How Containers Serve Requests. For information about how to process the streaming response, see Invoke real-time endpoints. Before you can use this operation, your IAM permissions must allow the sagemaker:InvokeEndpoint action. For more information about Amazon SageMaker AI actions for IAM policies, see Actions, resources, and condition keys for Amazon SageMaker AI in the IAM Service Authorization Reference. Amazon SageMaker AI strips all POST headers except those supported by the API. Amazon SageMaker AI might add additional headers. You should not rely on the behavior of headers outside those enumerated in the request syntax. Calls to InvokeEndpointWithResponseStream are authenticated by using Amazon Web Services Signature Version 4. For information, see Authenticating Requests (Amazon Web Services Signature Version 4) in the Amazon S3 API Reference."]
module InvokeEndpointWithResponseStreamInput =
  struct
    type nonrec t =
      {
      endpointName: EndpointName.t
        [@ocaml.doc
          "The name of the endpoint that you specified when you created the endpoint using the CreateEndpoint API."];
      body: BodyBlob.t
        [@ocaml.doc
          "Provides input data, in the format specified in the ContentType request header. Amazon SageMaker AI passes all of the data in the body to the model. For information about the format of the request body, see Common Data Formats-Inference."];
      contentType: Header.t option
        [@ocaml.doc "The MIME type of the input data in the request body."];
      accept: Header.t option
        [@ocaml.doc
          "The desired MIME type of the inference response from the model container."];
      customAttributes: CustomAttributesHeader.t option
        [@ocaml.doc
          "Provides additional information about a request for an inference submitted to a model hosted at an Amazon SageMaker AI endpoint. The information is an opaque value that is forwarded verbatim. You could use this value, for example, to provide an ID that you can use to track a request or to provide other metadata that a service endpoint was programmed to process. The value must consist of no more than 1024 visible US-ASCII characters as specified in Section 3.3.6. Field Value Components of the Hypertext Transfer Protocol (HTTP/1.1). The code in your model is responsible for setting or updating any custom attributes in the response. If your code does not set this value in the response, an empty value is returned. For example, if a custom attribute represents the trace ID, your model can prepend the custom attribute with Trace ID: in your post-processing function. This feature is currently supported in the Amazon Web Services SDKs but not in the Amazon SageMaker AI Python SDK."];
      targetVariant: TargetVariantHeader.t option
        [@ocaml.doc
          "Specify the production variant to send the inference request to when invoking an endpoint that is running two or more variants. Note that this parameter overrides the default behavior for the endpoint, which is to distribute the invocation traffic based on the variant weights. For information about how to use variant targeting to perform a/b testing, see Test models in production"];
      targetContainerHostname: TargetContainerHostnameHeader.t option
        [@ocaml.doc
          "If the endpoint hosts multiple containers and is configured to use direct invocation, this parameter specifies the host name of the container to invoke."];
      inferenceId: InferenceId.t option
        [@ocaml.doc "An identifier that you assign to your request."];
      inferenceComponentName: InferenceComponentHeader.t option
        [@ocaml.doc
          "If the endpoint hosts one or more inference components, this parameter specifies the name of inference component to invoke for a streaming response."];
      sessionId: SessionIdHeader.t option
        [@ocaml.doc
          "The ID of a stateful session to handle your request. You can't create a stateful session by using the InvokeEndpointWithResponseStream action. Instead, you can create one by using the InvokeEndpoint action. In your request, you specify NEW_SESSION for the SessionId request parameter. The response to that request provides the session ID for the NewSessionId response parameter."]}
    let context_ = "InvokeEndpointWithResponseStreamInput"
    let make ?contentType =
      fun ?accept ->
        fun ?customAttributes ->
          fun ?targetVariant ->
            fun ?targetContainerHostname ->
              fun ?inferenceId ->
                fun ?inferenceComponentName ->
                  fun ?sessionId ->
                    fun ~endpointName ->
                      fun ~body ->
                        fun () ->
                          {
                            contentType;
                            accept;
                            customAttributes;
                            targetVariant;
                            targetContainerHostname;
                            inferenceId;
                            inferenceComponentName;
                            sessionId;
                            endpointName;
                            body
                          }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~endpointName:(EndpointName.of_string
                             ((List.Assoc.find_exn
                                 ~equal:String.Caseless.equal) xs
                                "EndpointName")) ~body:pipe
            ?contentType:(Option.map
                            ((List.Assoc.find ~equal:String.Caseless.equal)
                               xs "Content-Type") ~f:Header.of_string)
            ?accept:(Option.map
                       ((List.Assoc.find ~equal:String.Caseless.equal) xs
                          "X-Amzn-SageMaker-Accept") ~f:Header.of_string)
            ?customAttributes:(Option.map
                                 ((List.Assoc.find
                                     ~equal:String.Caseless.equal) xs
                                    "X-Amzn-SageMaker-Custom-Attributes")
                                 ~f:CustomAttributesHeader.of_string)
            ?targetVariant:(Option.map
                              ((List.Assoc.find ~equal:String.Caseless.equal)
                                 xs "X-Amzn-SageMaker-Target-Variant")
                              ~f:TargetVariantHeader.of_string)
            ?targetContainerHostname:(Option.map
                                        ((List.Assoc.find
                                            ~equal:String.Caseless.equal) xs
                                           "X-Amzn-SageMaker-Target-Container-Hostname")
                                        ~f:TargetContainerHostnameHeader.of_string)
            ?inferenceId:(Option.map
                            ((List.Assoc.find ~equal:String.Caseless.equal)
                               xs "X-Amzn-SageMaker-Inference-Id")
                            ~f:InferenceId.of_string)
            ?inferenceComponentName:(Option.map
                                       ((List.Assoc.find
                                           ~equal:String.Caseless.equal) xs
                                          "X-Amzn-SageMaker-Inference-Component")
                                       ~f:InferenceComponentHeader.of_string)
            ?sessionId:(Option.map
                          ((List.Assoc.find ~equal:String.Caseless.equal) xs
                             "X-Amzn-SageMaker-Session-Id")
                          ~f:SessionIdHeader.of_string) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("EndpointName", (Some (EndpointName.to_value x.endpointName)));
        ("Body", (Some (BodyBlob.to_value x.body)));
        ("Content-Type", (Option.map x.contentType ~f:Header.to_value));
        ("X-Amzn-SageMaker-Accept", (Option.map x.accept ~f:Header.to_value));
        ("X-Amzn-SageMaker-Custom-Attributes",
          (Option.map x.customAttributes ~f:CustomAttributesHeader.to_value));
        ("X-Amzn-SageMaker-Target-Variant",
          (Option.map x.targetVariant ~f:TargetVariantHeader.to_value));
        ("X-Amzn-SageMaker-Target-Container-Hostname",
          (Option.map x.targetContainerHostname
             ~f:TargetContainerHostnameHeader.to_value));
        ("X-Amzn-SageMaker-Inference-Id",
          (Option.map x.inferenceId ~f:InferenceId.to_value));
        ("X-Amzn-SageMaker-Inference-Component",
          (Option.map x.inferenceComponentName
             ~f:InferenceComponentHeader.to_value));
        ("X-Amzn-SageMaker-Session-Id",
          (Option.map x.sessionId ~f:SessionIdHeader.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        (Option.map ~f:SessionIdHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Session-Id") in
      let inferenceComponentName =
        (Option.map ~f:InferenceComponentHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Inference-Component") in
      let inferenceId =
        (Option.map ~f:InferenceId.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Inference-Id") in
      let targetContainerHostname =
        (Option.map ~f:TargetContainerHostnameHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Target-Container-Hostname") in
      let targetVariant =
        (Option.map ~f:TargetVariantHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Target-Variant") in
      let customAttributes =
        (Option.map ~f:CustomAttributesHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Custom-Attributes") in
      let accept =
        (Option.map ~f:Header.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Accept") in
      let contentType =
        (Option.map ~f:Header.of_xml) (Xml.child xml_arg0 "Content-Type") in
      let body =
        BodyBlob.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Body") in
      let endpointName =
        EndpointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndpointName") in
      make ?sessionId ?inferenceComponentName ?inferenceId
        ?targetContainerHostname ?targetVariant ?customAttributes ?accept
        ?contentType ~body ~endpointName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId = field_map json__ "SessionId" SessionIdHeader.of_json in
      let inferenceComponentName =
        field_map json__ "InferenceComponentName"
          InferenceComponentHeader.of_json in
      let inferenceId = field_map json__ "InferenceId" InferenceId.of_json in
      let targetContainerHostname =
        field_map json__ "TargetContainerHostname"
          TargetContainerHostnameHeader.of_json in
      let targetVariant =
        field_map json__ "TargetVariant" TargetVariantHeader.of_json in
      let customAttributes =
        field_map json__ "CustomAttributes" CustomAttributesHeader.of_json in
      let accept = field_map json__ "Accept" Header.of_json in
      let contentType = field_map json__ "ContentType" Header.of_json in
      let body = field_map_exn json__ "Body" BodyBlob.of_json in
      let endpointName =
        field_map_exn json__ "EndpointName" EndpointName.of_json in
      make ?sessionId ?inferenceComponentName ?inferenceId
        ?targetContainerHostname ?targetVariant ?customAttributes ?accept
        ?contentType ~body ~endpointName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Invokes a model at the specified endpoint to return the inference response as a stream. The inference stream provides the response payload incrementally as a series of parts. Before you can get an inference stream, you must have access to a model that's deployed using Amazon SageMaker AI hosting services, and the container for that model must support inference streaming. For more information that can help you use this API, see the following sections in the Amazon SageMaker AI Developer Guide: For information about how to add streaming support to a model, see How Containers Serve Requests. For information about how to process the streaming response, see Invoke real-time endpoints. Before you can use this operation, your IAM permissions must allow the sagemaker:InvokeEndpoint action. For more information about Amazon SageMaker AI actions for IAM policies, see Actions, resources, and condition keys for Amazon SageMaker AI in the IAM Service Authorization Reference. Amazon SageMaker AI strips all POST headers except those supported by the API. Amazon SageMaker AI might add additional headers. You should not rely on the behavior of headers outside those enumerated in the request syntax. Calls to InvokeEndpointWithResponseStream are authenticated by using Amazon Web Services Signature Version 4. For information, see Authenticating Requests (Amazon Web Services Signature Version 4) in the Amazon S3 API Reference."]
module InvokeEndpointOutput =
  struct
    type nonrec t =
      {
      body: BodyBlob.t option
        [@ocaml.doc
          "Includes the inference provided by the model. For information about the format of the response body, see Common Data Formats-Inference. If the explainer is activated, the body includes the explanations provided by the model. For more information, see the Response section under Invoke the Endpoint in the Developer Guide."];
      contentType: Header.t option
        [@ocaml.doc
          "The MIME type of the inference returned from the model container."];
      invokedProductionVariant: Header.t option
        [@ocaml.doc "Identifies the production variant that was invoked."];
      customAttributes: CustomAttributesHeader.t option
        [@ocaml.doc
          "Provides additional information in the response about the inference returned by a model hosted at an Amazon SageMaker AI endpoint. The information is an opaque value that is forwarded verbatim. You could use this value, for example, to return an ID received in the CustomAttributes header of a request or other metadata that a service endpoint was programmed to produce. The value must consist of no more than 1024 visible US-ASCII characters as specified in Section 3.3.6. Field Value Components of the Hypertext Transfer Protocol (HTTP/1.1). If the customer wants the custom attribute returned, the model must set the custom attribute to be included on the way back. The code in your model is responsible for setting or updating any custom attributes in the response. If your code does not set this value in the response, an empty value is returned. For example, if a custom attribute represents the trace ID, your model can prepend the custom attribute with Trace ID: in your post-processing function. This feature is currently supported in the Amazon Web Services SDKs but not in the Amazon SageMaker AI Python SDK."];
      newSessionId: NewSessionResponseHeader.t option
        [@ocaml.doc
          "If you created a stateful session with your request, the ID and expiration time that the model assigns to that session."];
      closedSessionId: SessionIdHeader.t option
        [@ocaml.doc
          "If you closed a stateful session with your request, the ID of that session."]}
    type nonrec error =
      [ `InternalDependencyException of InternalDependencyException.t 
      | `InternalFailure of InternalFailure.t  | `ModelError of ModelError.t 
      | `ModelNotReadyException of ModelNotReadyException.t 
      | `ServiceUnavailable of ServiceUnavailable.t 
      | `ValidationError of ValidationError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?body =
      fun ?contentType ->
        fun ?invokedProductionVariant ->
          fun ?customAttributes ->
            fun ?newSessionId ->
              fun ?closedSessionId ->
                fun () ->
                  {
                    body;
                    contentType;
                    invokedProductionVariant;
                    customAttributes;
                    newSessionId;
                    closedSessionId
                  }
    let error_of_json name json =
      match name with
      | "InternalDependencyException" ->
          `InternalDependencyException
            (InternalDependencyException.of_json json)
      | "InternalFailure" -> `InternalFailure (InternalFailure.of_json json)
      | "ModelError" -> `ModelError (ModelError.of_json json)
      | "ModelNotReadyException" ->
          `ModelNotReadyException (ModelNotReadyException.of_json json)
      | "ServiceUnavailable" ->
          `ServiceUnavailable (ServiceUnavailable.of_json json)
      | "ValidationError" -> `ValidationError (ValidationError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalDependencyException" ->
          `InternalDependencyException
            (InternalDependencyException.of_xml xml)
      | "InternalFailure" -> `InternalFailure (InternalFailure.of_xml xml)
      | "ModelError" -> `ModelError (ModelError.of_xml xml)
      | "ModelNotReadyException" ->
          `ModelNotReadyException (ModelNotReadyException.of_xml xml)
      | "ServiceUnavailable" ->
          `ServiceUnavailable (ServiceUnavailable.of_xml xml)
      | "ValidationError" -> `ValidationError (ValidationError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalDependencyException e ->
          `Assoc
            [("error", (`String "InternalDependencyException"));
            ("details", (InternalDependencyException.to_json e))]
      | `InternalFailure e ->
          `Assoc
            [("error", (`String "InternalFailure"));
            ("details", (InternalFailure.to_json e))]
      | `ModelError e ->
          `Assoc
            [("error", (`String "ModelError"));
            ("details", (ModelError.to_json e))]
      | `ModelNotReadyException e ->
          `Assoc
            [("error", (`String "ModelNotReadyException"));
            ("details", (ModelNotReadyException.to_json e))]
      | `ServiceUnavailable e ->
          `Assoc
            [("error", (`String "ServiceUnavailable"));
            ("details", (ServiceUnavailable.to_json e))]
      | `ValidationError e ->
          `Assoc
            [("error", (`String "ValidationError"));
            ("details", (ValidationError.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 ?body:(Some pipe)
            ?contentType:(Option.map
                            ((List.Assoc.find ~equal:String.Caseless.equal)
                               xs "Content-Type") ~f:Header.of_string)
            ?invokedProductionVariant:(Option.map
                                         ((List.Assoc.find
                                             ~equal:String.Caseless.equal) xs
                                            "x-Amzn-Invoked-Production-Variant")
                                         ~f:Header.of_string)
            ?customAttributes:(Option.map
                                 ((List.Assoc.find
                                     ~equal:String.Caseless.equal) xs
                                    "X-Amzn-SageMaker-Custom-Attributes")
                                 ~f:CustomAttributesHeader.of_string)
            ?newSessionId:(Option.map
                             ((List.Assoc.find ~equal:String.Caseless.equal)
                                xs "X-Amzn-SageMaker-New-Session-Id")
                             ~f:NewSessionResponseHeader.of_string)
            ?closedSessionId:(Option.map
                                ((List.Assoc.find
                                    ~equal:String.Caseless.equal) xs
                                   "X-Amzn-SageMaker-Closed-Session-Id")
                                ~f:SessionIdHeader.of_string) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("Body", (Option.map x.body ~f:BodyBlob.to_value));
        ("Content-Type", (Option.map x.contentType ~f:Header.to_value));
        ("x-Amzn-Invoked-Production-Variant",
          (Option.map x.invokedProductionVariant ~f:Header.to_value));
        ("X-Amzn-SageMaker-Custom-Attributes",
          (Option.map x.customAttributes ~f:CustomAttributesHeader.to_value));
        ("X-Amzn-SageMaker-New-Session-Id",
          (Option.map x.newSessionId ~f:NewSessionResponseHeader.to_value));
        ("X-Amzn-SageMaker-Closed-Session-Id",
          (Option.map x.closedSessionId ~f:SessionIdHeader.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let closedSessionId =
        (Option.map ~f:SessionIdHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Closed-Session-Id") in
      let newSessionId =
        (Option.map ~f:NewSessionResponseHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-New-Session-Id") in
      let customAttributes =
        (Option.map ~f:CustomAttributesHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Custom-Attributes") in
      let invokedProductionVariant =
        (Option.map ~f:Header.of_xml)
          (Xml.child xml_arg0 "x-Amzn-Invoked-Production-Variant") in
      let contentType =
        (Option.map ~f:Header.of_xml) (Xml.child xml_arg0 "Content-Type") in
      let body = (Option.map ~f:BodyBlob.of_xml) (Xml.child xml_arg0 "Body") in
      make ?closedSessionId ?newSessionId ?customAttributes
        ?invokedProductionVariant ?contentType ?body ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let closedSessionId =
        field_map json__ "ClosedSessionId" SessionIdHeader.of_json in
      let newSessionId =
        field_map json__ "NewSessionId" NewSessionResponseHeader.of_json in
      let customAttributes =
        field_map json__ "CustomAttributes" CustomAttributesHeader.of_json in
      let invokedProductionVariant =
        field_map json__ "InvokedProductionVariant" Header.of_json in
      let contentType = field_map json__ "ContentType" Header.of_json in
      let body = field_map json__ "Body" BodyBlob.of_json in
      make ?closedSessionId ?newSessionId ?customAttributes
        ?invokedProductionVariant ?contentType ?body ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "After you deploy a model into production using Amazon SageMaker AI hosting services, your client applications use this API to get inferences from the model hosted at the specified endpoint. For an overview of Amazon SageMaker AI, see How It Works. Amazon SageMaker AI strips all POST headers except those supported by the API. Amazon SageMaker AI might add additional headers. You should not rely on the behavior of headers outside those enumerated in the request syntax. Calls to InvokeEndpoint are authenticated by using Amazon Web Services Signature Version 4. For information, see Authenticating Requests (Amazon Web Services Signature Version 4) in the Amazon S3 API Reference. A customer's model containers must respond to requests within 60 seconds. The model itself can have a maximum processing time of 60 seconds before responding to invocations. If your model is going to take 50-60 seconds of processing time, the SDK socket timeout should be set to be 70 seconds. Endpoints are scoped to an individual account, and are not public. The URL does not contain the account ID, but Amazon SageMaker AI determines the account ID from the authentication token that is supplied by the caller."]
module InvokeEndpointInput =
  struct
    type nonrec t =
      {
      endpointName: EndpointName.t
        [@ocaml.doc
          "The name of the endpoint that you specified when you created the endpoint using the CreateEndpoint API."];
      body: BodyBlob.t
        [@ocaml.doc
          "Provides input data, in the format specified in the ContentType request header. Amazon SageMaker AI passes all of the data in the body to the model. For information about the format of the request body, see Common Data Formats-Inference."];
      contentType: Header.t option
        [@ocaml.doc "The MIME type of the input data in the request body."];
      accept: Header.t option
        [@ocaml.doc
          "The desired MIME type of the inference response from the model container."];
      customAttributes: CustomAttributesHeader.t option
        [@ocaml.doc
          "Provides additional information about a request for an inference submitted to a model hosted at an Amazon SageMaker AI endpoint. The information is an opaque value that is forwarded verbatim. You could use this value, for example, to provide an ID that you can use to track a request or to provide other metadata that a service endpoint was programmed to process. The value must consist of no more than 1024 visible US-ASCII characters as specified in Section 3.3.6. Field Value Components of the Hypertext Transfer Protocol (HTTP/1.1). The code in your model is responsible for setting or updating any custom attributes in the response. If your code does not set this value in the response, an empty value is returned. For example, if a custom attribute represents the trace ID, your model can prepend the custom attribute with Trace ID: in your post-processing function. This feature is currently supported in the Amazon Web Services SDKs but not in the Amazon SageMaker AI Python SDK."];
      targetModel: TargetModelHeader.t option
        [@ocaml.doc
          "The model to request for inference when invoking a multi-model endpoint."];
      targetVariant: TargetVariantHeader.t option
        [@ocaml.doc
          "Specify the production variant to send the inference request to when invoking an endpoint that is running two or more variants. Note that this parameter overrides the default behavior for the endpoint, which is to distribute the invocation traffic based on the variant weights. For information about how to use variant targeting to perform a/b testing, see Test models in production"];
      targetContainerHostname: TargetContainerHostnameHeader.t option
        [@ocaml.doc
          "If the endpoint hosts multiple containers and is configured to use direct invocation, this parameter specifies the host name of the container to invoke."];
      inferenceId: InferenceId.t option
        [@ocaml.doc
          "If you provide a value, it is added to the captured data when you enable data capture on the endpoint. For information about data capture, see Capture Data."];
      enableExplanations: EnableExplanationsHeader.t option
        [@ocaml.doc
          "An optional JMESPath expression used to override the EnableExplanations parameter of the ClarifyExplainerConfig API. See the EnableExplanations section in the developer guide for more information."];
      inferenceComponentName: InferenceComponentHeader.t option
        [@ocaml.doc
          "If the endpoint hosts one or more inference components, this parameter specifies the name of inference component to invoke."];
      sessionId: SessionIdOrNewSessionConstantHeader.t option
        [@ocaml.doc
          "Creates a stateful session or identifies an existing one. You can do one of the following: Create a stateful session by specifying the value NEW_SESSION. Send your request to an existing stateful session by specifying the ID of that session. With a stateful session, you can send multiple requests to a stateful model. When you create a session with a stateful model, the model must create the session ID and set the expiration time. The model must also provide that information in the response to your request. You can get the ID and timestamp from the NewSessionId response parameter. For any subsequent request where you specify that session ID, SageMaker AI routes the request to the same instance that supports the session."]}
    let context_ = "InvokeEndpointInput"
    let make ?contentType =
      fun ?accept ->
        fun ?customAttributes ->
          fun ?targetModel ->
            fun ?targetVariant ->
              fun ?targetContainerHostname ->
                fun ?inferenceId ->
                  fun ?enableExplanations ->
                    fun ?inferenceComponentName ->
                      fun ?sessionId ->
                        fun ~endpointName ->
                          fun ~body ->
                            fun () ->
                              {
                                contentType;
                                accept;
                                customAttributes;
                                targetModel;
                                targetVariant;
                                targetContainerHostname;
                                inferenceId;
                                enableExplanations;
                                inferenceComponentName;
                                sessionId;
                                endpointName;
                                body
                              }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~endpointName:(EndpointName.of_string
                             ((List.Assoc.find_exn
                                 ~equal:String.Caseless.equal) xs
                                "EndpointName")) ~body:pipe
            ?contentType:(Option.map
                            ((List.Assoc.find ~equal:String.Caseless.equal)
                               xs "Content-Type") ~f:Header.of_string)
            ?accept:(Option.map
                       ((List.Assoc.find ~equal:String.Caseless.equal) xs
                          "Accept") ~f:Header.of_string)
            ?customAttributes:(Option.map
                                 ((List.Assoc.find
                                     ~equal:String.Caseless.equal) xs
                                    "X-Amzn-SageMaker-Custom-Attributes")
                                 ~f:CustomAttributesHeader.of_string)
            ?targetModel:(Option.map
                            ((List.Assoc.find ~equal:String.Caseless.equal)
                               xs "X-Amzn-SageMaker-Target-Model")
                            ~f:TargetModelHeader.of_string)
            ?targetVariant:(Option.map
                              ((List.Assoc.find ~equal:String.Caseless.equal)
                                 xs "X-Amzn-SageMaker-Target-Variant")
                              ~f:TargetVariantHeader.of_string)
            ?targetContainerHostname:(Option.map
                                        ((List.Assoc.find
                                            ~equal:String.Caseless.equal) xs
                                           "X-Amzn-SageMaker-Target-Container-Hostname")
                                        ~f:TargetContainerHostnameHeader.of_string)
            ?inferenceId:(Option.map
                            ((List.Assoc.find ~equal:String.Caseless.equal)
                               xs "X-Amzn-SageMaker-Inference-Id")
                            ~f:InferenceId.of_string)
            ?enableExplanations:(Option.map
                                   ((List.Assoc.find
                                       ~equal:String.Caseless.equal) xs
                                      "X-Amzn-SageMaker-Enable-Explanations")
                                   ~f:EnableExplanationsHeader.of_string)
            ?inferenceComponentName:(Option.map
                                       ((List.Assoc.find
                                           ~equal:String.Caseless.equal) xs
                                          "X-Amzn-SageMaker-Inference-Component")
                                       ~f:InferenceComponentHeader.of_string)
            ?sessionId:(Option.map
                          ((List.Assoc.find ~equal:String.Caseless.equal) xs
                             "X-Amzn-SageMaker-Session-Id")
                          ~f:SessionIdOrNewSessionConstantHeader.of_string)
            ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("EndpointName", (Some (EndpointName.to_value x.endpointName)));
        ("Body", (Some (BodyBlob.to_value x.body)));
        ("Content-Type", (Option.map x.contentType ~f:Header.to_value));
        ("Accept", (Option.map x.accept ~f:Header.to_value));
        ("X-Amzn-SageMaker-Custom-Attributes",
          (Option.map x.customAttributes ~f:CustomAttributesHeader.to_value));
        ("X-Amzn-SageMaker-Target-Model",
          (Option.map x.targetModel ~f:TargetModelHeader.to_value));
        ("X-Amzn-SageMaker-Target-Variant",
          (Option.map x.targetVariant ~f:TargetVariantHeader.to_value));
        ("X-Amzn-SageMaker-Target-Container-Hostname",
          (Option.map x.targetContainerHostname
             ~f:TargetContainerHostnameHeader.to_value));
        ("X-Amzn-SageMaker-Inference-Id",
          (Option.map x.inferenceId ~f:InferenceId.to_value));
        ("X-Amzn-SageMaker-Enable-Explanations",
          (Option.map x.enableExplanations
             ~f:EnableExplanationsHeader.to_value));
        ("X-Amzn-SageMaker-Inference-Component",
          (Option.map x.inferenceComponentName
             ~f:InferenceComponentHeader.to_value));
        ("X-Amzn-SageMaker-Session-Id",
          (Option.map x.sessionId
             ~f:SessionIdOrNewSessionConstantHeader.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        (Option.map ~f:SessionIdOrNewSessionConstantHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Session-Id") in
      let inferenceComponentName =
        (Option.map ~f:InferenceComponentHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Inference-Component") in
      let enableExplanations =
        (Option.map ~f:EnableExplanationsHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Enable-Explanations") in
      let inferenceId =
        (Option.map ~f:InferenceId.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Inference-Id") in
      let targetContainerHostname =
        (Option.map ~f:TargetContainerHostnameHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Target-Container-Hostname") in
      let targetVariant =
        (Option.map ~f:TargetVariantHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Target-Variant") in
      let targetModel =
        (Option.map ~f:TargetModelHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Target-Model") in
      let customAttributes =
        (Option.map ~f:CustomAttributesHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Custom-Attributes") in
      let accept =
        (Option.map ~f:Header.of_xml) (Xml.child xml_arg0 "Accept") in
      let contentType =
        (Option.map ~f:Header.of_xml) (Xml.child xml_arg0 "Content-Type") in
      let body =
        BodyBlob.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Body") in
      let endpointName =
        EndpointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndpointName") in
      make ?sessionId ?inferenceComponentName ?enableExplanations
        ?inferenceId ?targetContainerHostname ?targetVariant ?targetModel
        ?customAttributes ?accept ?contentType ~body ~endpointName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId =
        field_map json__ "SessionId"
          SessionIdOrNewSessionConstantHeader.of_json in
      let inferenceComponentName =
        field_map json__ "InferenceComponentName"
          InferenceComponentHeader.of_json in
      let enableExplanations =
        field_map json__ "EnableExplanations"
          EnableExplanationsHeader.of_json in
      let inferenceId = field_map json__ "InferenceId" InferenceId.of_json in
      let targetContainerHostname =
        field_map json__ "TargetContainerHostname"
          TargetContainerHostnameHeader.of_json in
      let targetVariant =
        field_map json__ "TargetVariant" TargetVariantHeader.of_json in
      let targetModel =
        field_map json__ "TargetModel" TargetModelHeader.of_json in
      let customAttributes =
        field_map json__ "CustomAttributes" CustomAttributesHeader.of_json in
      let accept = field_map json__ "Accept" Header.of_json in
      let contentType = field_map json__ "ContentType" Header.of_json in
      let body = field_map_exn json__ "Body" BodyBlob.of_json in
      let endpointName =
        field_map_exn json__ "EndpointName" EndpointName.of_json in
      make ?sessionId ?inferenceComponentName ?enableExplanations
        ?inferenceId ?targetContainerHostname ?targetVariant ?targetModel
        ?customAttributes ?accept ?contentType ~body ~endpointName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "After you deploy a model into production using Amazon SageMaker AI hosting services, your client applications use this API to get inferences from the model hosted at the specified endpoint. For an overview of Amazon SageMaker AI, see How It Works. Amazon SageMaker AI strips all POST headers except those supported by the API. Amazon SageMaker AI might add additional headers. You should not rely on the behavior of headers outside those enumerated in the request syntax. Calls to InvokeEndpoint are authenticated by using Amazon Web Services Signature Version 4. For information, see Authenticating Requests (Amazon Web Services Signature Version 4) in the Amazon S3 API Reference. A customer's model containers must respond to requests within 60 seconds. The model itself can have a maximum processing time of 60 seconds before responding to invocations. If your model is going to take 50-60 seconds of processing time, the SDK socket timeout should be set to be 70 seconds. Endpoints are scoped to an individual account, and are not public. The URL does not contain the account ID, but Amazon SageMaker AI determines the account ID from the authentication token that is supplied by the caller."]
module InvokeEndpointAsyncOutput =
  struct
    type nonrec t =
      {
      inferenceId: Header.t option
        [@ocaml.doc
          "Identifier for an inference request. This will be the same as the InferenceId specified in the input. Amazon SageMaker AI will generate an identifier for you if you do not specify one."];
      outputLocation: Header.t option
        [@ocaml.doc
          "The Amazon S3 URI where the inference response payload is stored."];
      failureLocation: Header.t option
        [@ocaml.doc
          "The Amazon S3 URI where the inference failure response payload is stored."]}
    type nonrec error =
      [ `InternalFailure of InternalFailure.t 
      | `ServiceUnavailable of ServiceUnavailable.t 
      | `ValidationError of ValidationError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?inferenceId =
      fun ?outputLocation ->
        fun ?failureLocation ->
          fun () -> { inferenceId; outputLocation; failureLocation }
    let error_of_json name json =
      match name with
      | "InternalFailure" -> `InternalFailure (InternalFailure.of_json json)
      | "ServiceUnavailable" ->
          `ServiceUnavailable (ServiceUnavailable.of_json json)
      | "ValidationError" -> `ValidationError (ValidationError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalFailure" -> `InternalFailure (InternalFailure.of_xml xml)
      | "ServiceUnavailable" ->
          `ServiceUnavailable (ServiceUnavailable.of_xml xml)
      | "ValidationError" -> `ValidationError (ValidationError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalFailure e ->
          `Assoc
            [("error", (`String "InternalFailure"));
            ("details", (InternalFailure.to_json e))]
      | `ServiceUnavailable e ->
          `Assoc
            [("error", (`String "ServiceUnavailable"));
            ("details", (ServiceUnavailable.to_json e))]
      | `ValidationError e ->
          `Assoc
            [("error", (`String "ValidationError"));
            ("details", (ValidationError.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
        [("InferenceId", (Option.map x.inferenceId ~f:Header.to_value));
        ("X-Amzn-SageMaker-OutputLocation",
          (Option.map x.outputLocation ~f:Header.to_value));
        ("X-Amzn-SageMaker-FailureLocation",
          (Option.map x.failureLocation ~f:Header.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureLocation =
        (Option.map ~f:Header.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-FailureLocation") in
      let outputLocation =
        (Option.map ~f:Header.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-OutputLocation") in
      let inferenceId =
        (Option.map ~f:Header.of_xml) (Xml.child xml_arg0 "InferenceId") in
      make ?failureLocation ?outputLocation ?inferenceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureLocation = field_map json__ "FailureLocation" Header.of_json in
      let outputLocation = field_map json__ "OutputLocation" Header.of_json in
      let inferenceId = field_map json__ "InferenceId" Header.of_json in
      make ?failureLocation ?outputLocation ?inferenceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "After you deploy a model into production using Amazon SageMaker AI hosting services, your client applications use this API to get inferences from the model hosted at the specified endpoint in an asynchronous manner. Inference requests sent to this API are enqueued for asynchronous processing. The processing of the inference request may or may not complete before you receive a response from this API. The response from this API will not contain the result of the inference request but contain information about where you can locate it. Amazon SageMaker AI strips all POST headers except those supported by the API. Amazon SageMaker AI might add additional headers. You should not rely on the behavior of headers outside those enumerated in the request syntax. Calls to InvokeEndpointAsync are authenticated by using Amazon Web Services Signature Version 4. For information, see Authenticating Requests (Amazon Web Services Signature Version 4) in the Amazon S3 API Reference."]
module InvokeEndpointAsyncInput =
  struct
    type nonrec t =
      {
      endpointName: EndpointName.t
        [@ocaml.doc
          "The name of the endpoint that you specified when you created the endpoint using the CreateEndpoint API."];
      contentType: Header.t option
        [@ocaml.doc "The MIME type of the input data in the request body."];
      accept: Header.t option
        [@ocaml.doc
          "The desired MIME type of the inference response from the model container."];
      customAttributes: CustomAttributesHeader.t option
        [@ocaml.doc
          "Provides additional information about a request for an inference submitted to a model hosted at an Amazon SageMaker AI endpoint. The information is an opaque value that is forwarded verbatim. You could use this value, for example, to provide an ID that you can use to track a request or to provide other metadata that a service endpoint was programmed to process. The value must consist of no more than 1024 visible US-ASCII characters as specified in Section 3.3.6. Field Value Components of the Hypertext Transfer Protocol (HTTP/1.1). The code in your model is responsible for setting or updating any custom attributes in the response. If your code does not set this value in the response, an empty value is returned. For example, if a custom attribute represents the trace ID, your model can prepend the custom attribute with Trace ID: in your post-processing function. This feature is currently supported in the Amazon Web Services SDKs but not in the Amazon SageMaker AI Python SDK."];
      inferenceId: InferenceId.t option
        [@ocaml.doc
          "The identifier for the inference request. Amazon SageMaker AI will generate an identifier for you if none is specified."];
      inputLocation: InputLocationHeader.t
        [@ocaml.doc
          "The Amazon S3 URI where the inference request payload is stored."];
      s3OutputPathExtension: S3OutputPathExtensionHeader.t option
        [@ocaml.doc
          "The path extension that is appended to the Amazon S3 output path where the inference response payload is stored."];
      filename: FilenameHeader.t option
        [@ocaml.doc
          "The filename for the inference response payload stored in Amazon S3. If not specified, Amazon SageMaker AI generates a filename based on the inference ID."];
      requestTTLSeconds: RequestTTLSecondsHeader.t option
        [@ocaml.doc
          "Maximum age in seconds a request can be in the queue before it is marked as expired. The default is 6 hours, or 21,600 seconds."];
      invocationTimeoutSeconds: InvocationTimeoutSecondsHeader.t option
        [@ocaml.doc
          "Maximum amount of time in seconds a request can be processed before it is marked as expired. The default is 15 minutes, or 900 seconds."]}
    let context_ = "InvokeEndpointAsyncInput"
    let make ?contentType =
      fun ?accept ->
        fun ?customAttributes ->
          fun ?inferenceId ->
            fun ?s3OutputPathExtension ->
              fun ?filename ->
                fun ?requestTTLSeconds ->
                  fun ?invocationTimeoutSeconds ->
                    fun ~endpointName ->
                      fun ~inputLocation ->
                        fun () ->
                          {
                            contentType;
                            accept;
                            customAttributes;
                            inferenceId;
                            s3OutputPathExtension;
                            filename;
                            requestTTLSeconds;
                            invocationTimeoutSeconds;
                            endpointName;
                            inputLocation
                          }
    let to_value x =
      structure_to_value
        [("EndpointName", (Some (EndpointName.to_value x.endpointName)));
        ("X-Amzn-SageMaker-Content-Type",
          (Option.map x.contentType ~f:Header.to_value));
        ("X-Amzn-SageMaker-Accept", (Option.map x.accept ~f:Header.to_value));
        ("X-Amzn-SageMaker-Custom-Attributes",
          (Option.map x.customAttributes ~f:CustomAttributesHeader.to_value));
        ("X-Amzn-SageMaker-Inference-Id",
          (Option.map x.inferenceId ~f:InferenceId.to_value));
        ("X-Amzn-SageMaker-InputLocation",
          (Some (InputLocationHeader.to_value x.inputLocation)));
        ("X-Amzn-SageMaker-S3OutputPathExtension",
          (Option.map x.s3OutputPathExtension
             ~f:S3OutputPathExtensionHeader.to_value));
        ("X-Amzn-SageMaker-Filename",
          (Option.map x.filename ~f:FilenameHeader.to_value));
        ("X-Amzn-SageMaker-RequestTTLSeconds",
          (Option.map x.requestTTLSeconds ~f:RequestTTLSecondsHeader.to_value));
        ("X-Amzn-SageMaker-InvocationTimeoutSeconds",
          (Option.map x.invocationTimeoutSeconds
             ~f:InvocationTimeoutSecondsHeader.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let invocationTimeoutSeconds =
        (Option.map ~f:InvocationTimeoutSecondsHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-InvocationTimeoutSeconds") in
      let requestTTLSeconds =
        (Option.map ~f:RequestTTLSecondsHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-RequestTTLSeconds") in
      let filename =
        (Option.map ~f:FilenameHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Filename") in
      let s3OutputPathExtension =
        (Option.map ~f:S3OutputPathExtensionHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-S3OutputPathExtension") in
      let inputLocation =
        InputLocationHeader.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "X-Amzn-SageMaker-InputLocation") in
      let inferenceId =
        (Option.map ~f:InferenceId.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Inference-Id") in
      let customAttributes =
        (Option.map ~f:CustomAttributesHeader.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Custom-Attributes") in
      let accept =
        (Option.map ~f:Header.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Accept") in
      let contentType =
        (Option.map ~f:Header.of_xml)
          (Xml.child xml_arg0 "X-Amzn-SageMaker-Content-Type") in
      let endpointName =
        EndpointName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndpointName") in
      make ?invocationTimeoutSeconds ?requestTTLSeconds ?filename
        ?s3OutputPathExtension ~inputLocation ?inferenceId ?customAttributes
        ?accept ?contentType ~endpointName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let invocationTimeoutSeconds =
        field_map json__ "InvocationTimeoutSeconds"
          InvocationTimeoutSecondsHeader.of_json in
      let requestTTLSeconds =
        field_map json__ "RequestTTLSeconds" RequestTTLSecondsHeader.of_json in
      let filename = field_map json__ "Filename" FilenameHeader.of_json in
      let s3OutputPathExtension =
        field_map json__ "S3OutputPathExtension"
          S3OutputPathExtensionHeader.of_json in
      let inputLocation =
        field_map_exn json__ "InputLocation" InputLocationHeader.of_json in
      let inferenceId = field_map json__ "InferenceId" InferenceId.of_json in
      let customAttributes =
        field_map json__ "CustomAttributes" CustomAttributesHeader.of_json in
      let accept = field_map json__ "Accept" Header.of_json in
      let contentType = field_map json__ "ContentType" Header.of_json in
      let endpointName =
        field_map_exn json__ "EndpointName" EndpointName.of_json in
      make ?invocationTimeoutSeconds ?requestTTLSeconds ?filename
        ?s3OutputPathExtension ~inputLocation ?inferenceId ?customAttributes
        ?accept ?contentType ~endpointName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "After you deploy a model into production using Amazon SageMaker AI hosting services, your client applications use this API to get inferences from the model hosted at the specified endpoint in an asynchronous manner. Inference requests sent to this API are enqueued for asynchronous processing. The processing of the inference request may or may not complete before you receive a response from this API. The response from this API will not contain the result of the inference request but contain information about where you can locate it. Amazon SageMaker AI strips all POST headers except those supported by the API. Amazon SageMaker AI might add additional headers. You should not rely on the behavior of headers outside those enumerated in the request syntax. Calls to InvokeEndpointAsync are authenticated by using Amazon Web Services Signature Version 4. For information, see Authenticating Requests (Amazon Web Services Signature Version 4) in the Amazon S3 API Reference."]