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.nova_act
let apiVersion = "2025-08-22"
let endpointPrefix = "nova-act"
let serviceFullName = "Nova Act 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 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 NonBlankString =
  struct
    type nonrec t = string
    let context_ = "NonBlankString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[\\s\\S]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NonBlankString" j
    let to_json = simple_to_json to_value
  end
module TraceLocationType =
  struct
    type nonrec t =
      | S3 
      | Non_static_id of string 
    let make i = i
    let to_string = function | S3 -> "S3" | Non_static_id s -> s
    let of_string = function | "S3" -> S3 | 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 TraceLocationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TraceLocationType" j)
    let to_json = simple_to_json to_value
  end
module ModelStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | LEGACY 
      | DEPRECATED 
      | PREVIEW 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | LEGACY -> "LEGACY"
      | DEPRECATED -> "DEPRECATED"
      | PREVIEW -> "PREVIEW"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "LEGACY" -> LEGACY
      | "DEPRECATED" -> DEPRECATED
      | "PREVIEW" -> PREVIEW
      | 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 ModelStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ModelStatus" j)
    let to_json = simple_to_json to_value
  end
module CallResultContent =
  struct
    type nonrec t =
      {
      text: String_.t option
        [@ocaml.doc "Text content returned from the tool execution."]}
    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 "Content returned from a tool call execution."]
module ToolInputSchemaDocument =
  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 ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: NonBlankString.t option
        [@ocaml.doc "The name of the field that failed validation."];
      message: NonBlankString.t option
        [@ocaml.doc "A description of the validation error for this field."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:NonBlankString.to_value));
        ("message", (Option.map x.message ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonBlankString.of_xml) (Xml.child xml_arg0 "message") in
      let name =
        (Option.map ~f:NonBlankString.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" NonBlankString.of_json in
      let name = field_map json__ "name" NonBlankString.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a field that failed validation."]
module DateTimestamp =
  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 TraceLocation =
  struct
    type nonrec t =
      {
      locationType: TraceLocationType.t option
        [@ocaml.doc "The type of storage location for the trace data."];
      location: NonBlankString.t option
        [@ocaml.doc "The specific location where the trace data is stored."]}
    let make ?locationType =
      fun ?location -> fun () -> { locationType; location }
    let to_value x =
      structure_to_value
        [("locationType",
           (Option.map x.locationType ~f:TraceLocationType.to_value));
        ("location", (Option.map x.location ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let location =
        (Option.map ~f:NonBlankString.of_xml) (Xml.child xml_arg0 "location") in
      let locationType =
        (Option.map ~f:TraceLocationType.of_xml)
          (Xml.child xml_arg0 "locationType") in
      make ?location ?locationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let location = field_map json__ "location" NonBlankString.of_json in
      let locationType =
        field_map json__ "locationType" TraceLocationType.of_json in
      make ?location ?locationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about where trace data is stored for debugging and monitoring."]
module UuidString =
  struct
    type nonrec t = string
    let context_ = "UuidString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"UuidString" j
    let to_json = simple_to_json to_value
  end
module WorkflowRunArn =
  struct
    type nonrec t = string
    let context_ = "WorkflowRunArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:(aws|aws-cn|aws-us-gov):nova-act:[a-z0-9-]+:[0-9]{12}:workflow-definition/[a-zA-Z0-9_-]{1,40}/workflow-run/[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:"WorkflowRunArn" j
    let to_json = simple_to_json to_value
  end
module WorkflowRunStatus =
  struct
    type nonrec t =
      | RUNNING 
      | SUCCEEDED 
      | FAILED 
      | TIMED_OUT 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RUNNING -> "RUNNING"
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | TIMED_OUT -> "TIMED_OUT"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "RUNNING" -> RUNNING
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | "TIMED_OUT" -> TIMED_OUT
      | "DELETING" -> DELETING
      | 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 WorkflowRunStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WorkflowRunStatus" j)
    let to_json = simple_to_json to_value
  end
module WorkflowDefinitionArn =
  struct
    type nonrec t = string
    let context_ = "WorkflowDefinitionArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:(aws|aws-cn|aws-us-gov):nova-act:[a-z0-9-]+:[0-9]{12}:workflow-definition/[a-zA-Z0-9_-]{1,40}");
        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:"WorkflowDefinitionArn" j
    let to_json = simple_to_json to_value
  end
module WorkflowDefinitionName =
  struct
    type nonrec t = string
    let context_ = "WorkflowDefinitionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:40) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_-]{1,40}")));
        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:"WorkflowDefinitionName" j
    let to_json = simple_to_json to_value
  end
module WorkflowDefinitionStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "DELETING" -> DELETING
      | 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 WorkflowDefinitionStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"WorkflowDefinitionStatus" j)
    let to_json = simple_to_json to_value
  end
module ModelId =
  struct
    type nonrec t = string
    let context_ = "ModelId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ModelId" j
    let to_json = simple_to_json to_value
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ModelLifecycle =
  struct
    type nonrec t =
      {
      status: ModelStatus.t option
        [@ocaml.doc "The current lifecycle status of the model."]}
    let make ?status = fun () -> { status }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:ModelStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ModelStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" ModelStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lifecycle information for an AI model."]
module ActStatus =
  struct
    type nonrec t =
      | RUNNING 
      | PENDING_CLIENT_ACTION 
      | PENDING_HUMAN_ACTION 
      | SUCCEEDED 
      | FAILED 
      | TIMED_OUT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RUNNING -> "RUNNING"
      | PENDING_CLIENT_ACTION -> "PENDING_CLIENT_ACTION"
      | PENDING_HUMAN_ACTION -> "PENDING_HUMAN_ACTION"
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | TIMED_OUT -> "TIMED_OUT"
      | Non_static_id s -> s
    let of_string =
      function
      | "RUNNING" -> RUNNING
      | "PENDING_CLIENT_ACTION" -> PENDING_CLIENT_ACTION
      | "PENDING_HUMAN_ACTION" -> PENDING_HUMAN_ACTION
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | "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 ActStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ActStatus" j)
    let to_json = simple_to_json to_value
  end
module CallId =
  struct
    type nonrec t = string
    let context_ = "CallId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CallId" j
    let to_json = simple_to_json to_value
  end
module SensitiveDocument =
  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 CallResultContents =
  struct
    type nonrec t = CallResultContent.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:CallResultContent.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:CallResultContent.of_xml)
    let of_json j =
      list_of_json ~kind:"CallResultContents"
        ~of_json:CallResultContent.of_json j
    let to_json v = composed_to_json to_value v
  end
module ToolDescription =
  struct
    type nonrec t = string
    let context_ = "ToolDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10000) >>=
             (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:"ToolDescription" j
    let to_json = simple_to_json to_value
  end
module ToolInputSchema =
  struct
    type nonrec t =
      {
      json: ToolInputSchemaDocument.t option
        [@ocaml.doc
          "The JSON schema that defines the expected input format for the tool."]}
    let make ?json = fun () -> { json }
    let to_value x =
      structure_to_value
        [("json", (Option.map x.json ~f:ToolInputSchemaDocument.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let json =
        (Option.map ~f:ToolInputSchemaDocument.of_xml)
          (Xml.child xml_arg0 "json") in
      make ?json ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let json = field_map json__ "json" ToolInputSchemaDocument.of_json in
      make ?json ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The schema definition for tool input parameters."]
module ToolName =
  struct
    type nonrec t = string
    let context_ = "ToolName"
    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-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:"ToolName" j
    let to_json = simple_to_json to_value
  end
module InternalServerExceptionReason =
  struct
    type nonrec t =
      | InvalidModelGeneration 
      | RequestTokenLimitExceeded 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | InvalidModelGeneration -> "InvalidModelGeneration"
      | RequestTokenLimitExceeded -> "RequestTokenLimitExceeded"
      | Non_static_id s -> s
    let of_string =
      function
      | "InvalidModelGeneration" -> InvalidModelGeneration
      | "RequestTokenLimitExceeded" -> RequestTokenLimitExceeded
      | 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 InternalServerExceptionReason"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InternalServerExceptionReason" j)
    let to_json = simple_to_json to_value
  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 ValidationExceptionReason =
  struct
    type nonrec t =
      | FieldValidationFailed 
      | InvalidStatus 
      | GuardrailIntervened 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FieldValidationFailed -> "FieldValidationFailed"
      | InvalidStatus -> "InvalidStatus"
      | GuardrailIntervened -> "GuardrailIntervened"
      | Non_static_id s -> s
    let of_string =
      function
      | "FieldValidationFailed" -> FieldValidationFailed
      | "InvalidStatus" -> InvalidStatus
      | "GuardrailIntervened" -> GuardrailIntervened
      | 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 ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module ActErrorMessageString =
  struct
    type nonrec t = string
    let context_ = "ActErrorMessageString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10000) >>=
             (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:"ActErrorMessageString" j
    let to_json = simple_to_json to_value
  end
module ActErrorTypeString =
  struct
    type nonrec t = string
    let context_ = "ActErrorTypeString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ActErrorTypeString" j
    let to_json = simple_to_json to_value
  end
module WorkflowRunSummary =
  struct
    type nonrec t =
      {
      workflowRunArn: WorkflowRunArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the workflow run."];
      workflowRunId: UuidString.t option
        [@ocaml.doc "The unique identifier of the workflow run."];
      status: WorkflowRunStatus.t option
        [@ocaml.doc "The current execution status of the workflow run."];
      startedAt: DateTimestamp.t option
        [@ocaml.doc "The timestamp when the workflow run started execution."];
      endedAt: DateTimestamp.t option
        [@ocaml.doc
          "The timestamp when the workflow run completed execution, if applicable."];
      traceLocation: TraceLocation.t option
        [@ocaml.doc
          "The location where trace information for this workflow run is stored."]}
    let make ?workflowRunArn =
      fun ?workflowRunId ->
        fun ?status ->
          fun ?startedAt ->
            fun ?endedAt ->
              fun ?traceLocation ->
                fun () ->
                  {
                    workflowRunArn;
                    workflowRunId;
                    status;
                    startedAt;
                    endedAt;
                    traceLocation
                  }
    let to_value x =
      structure_to_value
        [("workflowRunArn",
           (Option.map x.workflowRunArn ~f:WorkflowRunArn.to_value));
        ("workflowRunId",
          (Option.map x.workflowRunId ~f:UuidString.to_value));
        ("status", (Option.map x.status ~f:WorkflowRunStatus.to_value));
        ("startedAt", (Option.map x.startedAt ~f:DateTimestamp.to_value));
        ("endedAt", (Option.map x.endedAt ~f:DateTimestamp.to_value));
        ("traceLocation",
          (Option.map x.traceLocation ~f:TraceLocation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let traceLocation =
        (Option.map ~f:TraceLocation.of_xml)
          (Xml.child xml_arg0 "traceLocation") in
      let endedAt =
        (Option.map ~f:DateTimestamp.of_xml) (Xml.child xml_arg0 "endedAt") in
      let startedAt =
        (Option.map ~f:DateTimestamp.of_xml) (Xml.child xml_arg0 "startedAt") in
      let status =
        (Option.map ~f:WorkflowRunStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let workflowRunId =
        (Option.map ~f:UuidString.of_xml)
          (Xml.child xml_arg0 "workflowRunId") in
      let workflowRunArn =
        (Option.map ~f:WorkflowRunArn.of_xml)
          (Xml.child xml_arg0 "workflowRunArn") in
      make ?traceLocation ?endedAt ?startedAt ?status ?workflowRunId
        ?workflowRunArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let traceLocation =
        field_map json__ "traceLocation" TraceLocation.of_json in
      let endedAt = field_map json__ "endedAt" DateTimestamp.of_json in
      let startedAt = field_map json__ "startedAt" DateTimestamp.of_json in
      let status = field_map json__ "status" WorkflowRunStatus.of_json in
      let workflowRunId = field_map json__ "workflowRunId" UuidString.of_json in
      let workflowRunArn =
        field_map json__ "workflowRunArn" WorkflowRunArn.of_json in
      make ?traceLocation ?endedAt ?startedAt ?status ?workflowRunId
        ?workflowRunArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary information about a workflow run, including execution status and timing."]
module WorkflowDefinitionSummary =
  struct
    type nonrec t =
      {
      workflowDefinitionArn: WorkflowDefinitionArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the workflow definition."];
      workflowDefinitionName: WorkflowDefinitionName.t option
        [@ocaml.doc "The name of the workflow definition."];
      createdAt: DateTimestamp.t option
        [@ocaml.doc
          "The timestamp when the workflow definition was created."];
      status: WorkflowDefinitionStatus.t option
        [@ocaml.doc "The current status of the workflow definition."]}
    let make ?workflowDefinitionArn =
      fun ?workflowDefinitionName ->
        fun ?createdAt ->
          fun ?status ->
            fun () ->
              {
                workflowDefinitionArn;
                workflowDefinitionName;
                createdAt;
                status
              }
    let to_value x =
      structure_to_value
        [("workflowDefinitionArn",
           (Option.map x.workflowDefinitionArn
              ~f:WorkflowDefinitionArn.to_value));
        ("workflowDefinitionName",
          (Option.map x.workflowDefinitionName
             ~f:WorkflowDefinitionName.to_value));
        ("createdAt", (Option.map x.createdAt ~f:DateTimestamp.to_value));
        ("status",
          (Option.map x.status ~f:WorkflowDefinitionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:WorkflowDefinitionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let createdAt =
        (Option.map ~f:DateTimestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let workflowDefinitionName =
        (Option.map ~f:WorkflowDefinitionName.of_xml)
          (Xml.child xml_arg0 "workflowDefinitionName") in
      let workflowDefinitionArn =
        (Option.map ~f:WorkflowDefinitionArn.of_xml)
          (Xml.child xml_arg0 "workflowDefinitionArn") in
      make ?status ?createdAt ?workflowDefinitionName ?workflowDefinitionArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" WorkflowDefinitionStatus.of_json in
      let createdAt = field_map json__ "createdAt" DateTimestamp.of_json in
      let workflowDefinitionName =
        field_map json__ "workflowDefinitionName"
          WorkflowDefinitionName.of_json in
      let workflowDefinitionArn =
        field_map json__ "workflowDefinitionArn"
          WorkflowDefinitionArn.of_json in
      make ?status ?createdAt ?workflowDefinitionName ?workflowDefinitionArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary information about a workflow definition, used in list operations."]
module SessionSummary =
  struct
    type nonrec t =
      {
      sessionId: UuidString.t option
        [@ocaml.doc "The unique identifier of the session."]}
    let make ?sessionId = fun () -> { sessionId }
    let to_value x =
      structure_to_value
        [("sessionId", (Option.map x.sessionId ~f:UuidString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        (Option.map ~f:UuidString.of_xml) (Xml.child xml_arg0 "sessionId") in
      make ?sessionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId = field_map json__ "sessionId" UuidString.of_json in
      make ?sessionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary information about a session within a workflow run."]
module ModelIdList =
  struct
    type nonrec t = ModelId.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:ModelId.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:ModelId.of_xml)
    let of_json j =
      list_of_json ~kind:"ModelIdList" ~of_json:ModelId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ModelAlias =
  struct
    type nonrec t =
      {
      aliasName: ModelId.t option [@ocaml.doc "The name of the model alias."];
      latestModelId: ModelId.t option
        [@ocaml.doc "The model ID that this alias currently points to."];
      resolvedModelId: ModelId.t option
        [@ocaml.doc "The resolved model ID after alias resolution."]}
    let make ?aliasName =
      fun ?latestModelId ->
        fun ?resolvedModelId ->
          fun () -> { aliasName; latestModelId; resolvedModelId }
    let to_value x =
      structure_to_value
        [("aliasName", (Option.map x.aliasName ~f:ModelId.to_value));
        ("latestModelId", (Option.map x.latestModelId ~f:ModelId.to_value));
        ("resolvedModelId",
          (Option.map x.resolvedModelId ~f:ModelId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolvedModelId =
        (Option.map ~f:ModelId.of_xml) (Xml.child xml_arg0 "resolvedModelId") in
      let latestModelId =
        (Option.map ~f:ModelId.of_xml) (Xml.child xml_arg0 "latestModelId") in
      let aliasName =
        (Option.map ~f:ModelId.of_xml) (Xml.child xml_arg0 "aliasName") in
      make ?resolvedModelId ?latestModelId ?aliasName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolvedModelId =
        field_map json__ "resolvedModelId" ModelId.of_json in
      let latestModelId = field_map json__ "latestModelId" ModelId.of_json in
      let aliasName = field_map json__ "aliasName" ModelId.of_json in
      make ?resolvedModelId ?latestModelId ?aliasName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An alias that provides a stable reference to a model version."]
module ModelSummary =
  struct
    type nonrec t =
      {
      modelId: ModelId.t option
        [@ocaml.doc "The unique identifier of the model."];
      modelLifecycle: ModelLifecycle.t option
        [@ocaml.doc "The lifecycle information for the model."];
      minimumCompatibilityVersion: Integer.t option
        [@ocaml.doc
          "The minimum client compatibility version required to use this model."]}
    let make ?modelId =
      fun ?modelLifecycle ->
        fun ?minimumCompatibilityVersion ->
          fun () -> { modelId; modelLifecycle; minimumCompatibilityVersion }
    let to_value x =
      structure_to_value
        [("modelId", (Option.map x.modelId ~f:ModelId.to_value));
        ("modelLifecycle",
          (Option.map x.modelLifecycle ~f:ModelLifecycle.to_value));
        ("minimumCompatibilityVersion",
          (Option.map x.minimumCompatibilityVersion ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let minimumCompatibilityVersion =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "minimumCompatibilityVersion") in
      let modelLifecycle =
        (Option.map ~f:ModelLifecycle.of_xml)
          (Xml.child xml_arg0 "modelLifecycle") in
      let modelId =
        (Option.map ~f:ModelId.of_xml) (Xml.child xml_arg0 "modelId") in
      make ?minimumCompatibilityVersion ?modelLifecycle ?modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let minimumCompatibilityVersion =
        field_map json__ "minimumCompatibilityVersion" Integer.of_json in
      let modelLifecycle =
        field_map json__ "modelLifecycle" ModelLifecycle.of_json in
      let modelId = field_map json__ "modelId" ModelId.of_json in
      make ?minimumCompatibilityVersion ?modelLifecycle ?modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about an available AI model."]
module ActSummary =
  struct
    type nonrec t =
      {
      workflowRunId: UuidString.t option
        [@ocaml.doc
          "The unique identifier of the workflow run containing this act."];
      sessionId: UuidString.t option
        [@ocaml.doc
          "The unique identifier of the session containing this act."];
      actId: UuidString.t option
        [@ocaml.doc "The unique identifier of the act."];
      status: ActStatus.t option
        [@ocaml.doc "The current execution status of the act."];
      startedAt: DateTimestamp.t option
        [@ocaml.doc "The timestamp when the act started execution."];
      endedAt: DateTimestamp.t option
        [@ocaml.doc
          "The timestamp when the act completed execution, if applicable."];
      traceLocation: TraceLocation.t option
        [@ocaml.doc
          "The location where trace information for this act is stored."]}
    let make ?workflowRunId =
      fun ?sessionId ->
        fun ?actId ->
          fun ?status ->
            fun ?startedAt ->
              fun ?endedAt ->
                fun ?traceLocation ->
                  fun () ->
                    {
                      workflowRunId;
                      sessionId;
                      actId;
                      status;
                      startedAt;
                      endedAt;
                      traceLocation
                    }
    let to_value x =
      structure_to_value
        [("workflowRunId",
           (Option.map x.workflowRunId ~f:UuidString.to_value));
        ("sessionId", (Option.map x.sessionId ~f:UuidString.to_value));
        ("actId", (Option.map x.actId ~f:UuidString.to_value));
        ("status", (Option.map x.status ~f:ActStatus.to_value));
        ("startedAt", (Option.map x.startedAt ~f:DateTimestamp.to_value));
        ("endedAt", (Option.map x.endedAt ~f:DateTimestamp.to_value));
        ("traceLocation",
          (Option.map x.traceLocation ~f:TraceLocation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let traceLocation =
        (Option.map ~f:TraceLocation.of_xml)
          (Xml.child xml_arg0 "traceLocation") in
      let endedAt =
        (Option.map ~f:DateTimestamp.of_xml) (Xml.child xml_arg0 "endedAt") in
      let startedAt =
        (Option.map ~f:DateTimestamp.of_xml) (Xml.child xml_arg0 "startedAt") in
      let status =
        (Option.map ~f:ActStatus.of_xml) (Xml.child xml_arg0 "status") in
      let actId =
        (Option.map ~f:UuidString.of_xml) (Xml.child xml_arg0 "actId") in
      let sessionId =
        (Option.map ~f:UuidString.of_xml) (Xml.child xml_arg0 "sessionId") in
      let workflowRunId =
        (Option.map ~f:UuidString.of_xml)
          (Xml.child xml_arg0 "workflowRunId") in
      make ?traceLocation ?endedAt ?startedAt ?status ?actId ?sessionId
        ?workflowRunId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let traceLocation =
        field_map json__ "traceLocation" TraceLocation.of_json in
      let endedAt = field_map json__ "endedAt" DateTimestamp.of_json in
      let startedAt = field_map json__ "startedAt" DateTimestamp.of_json in
      let status = field_map json__ "status" ActStatus.of_json in
      let actId = field_map json__ "actId" UuidString.of_json in
      let sessionId = field_map json__ "sessionId" UuidString.of_json in
      let workflowRunId = field_map json__ "workflowRunId" UuidString.of_json in
      make ?traceLocation ?endedAt ?startedAt ?status ?actId ?sessionId
        ?workflowRunId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary information about an act, including its status and execution timing."]
module Call =
  struct
    type nonrec t =
      {
      callId: CallId.t option
        [@ocaml.doc
          "A unique identifier for this tool call, used to match results back to requests."];
      input: SensitiveDocument.t option
        [@ocaml.doc
          "The input parameters for the tool call, formatted according to the tool's schema."];
      name: String_.t option
        [@ocaml.doc
          "The name of the tool to invoke, following the pattern 'tool.\\{toolName\\}' or 'browser.\\{browserAction\\}'."]}
    let make ?callId =
      fun ?input -> fun ?name -> fun () -> { callId; input; name }
    let to_value x =
      structure_to_value
        [("callId", (Option.map x.callId ~f:CallId.to_value));
        ("input", (Option.map x.input ~f:SensitiveDocument.to_value));
        ("name", (Option.map x.name ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      let input =
        (Option.map ~f:SensitiveDocument.of_xml) (Xml.child xml_arg0 "input") in
      let callId =
        (Option.map ~f:CallId.of_xml) (Xml.child xml_arg0 "callId") in
      make ?name ?input ?callId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" String_.of_json in
      let input = field_map json__ "input" SensitiveDocument.of_json in
      let callId = field_map json__ "callId" CallId.of_json in
      make ?name ?input ?callId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request for the client to execute a specific tool with given parameters."]
module CallResult =
  struct
    type nonrec t =
      {
      callId: CallId.t option
        [@ocaml.doc
          "The identifier of the tool call that this result corresponds to."];
      content: CallResultContents.t
        [@ocaml.doc
          "The content returned by the tool execution, which can include text or other media types."]}
    let context_ = "CallResult"
    let make ?callId = fun ~content -> fun () -> { callId; content }
    let to_value x =
      structure_to_value
        [("callId", (Option.map x.callId ~f:CallId.to_value));
        ("content", (Some (CallResultContents.to_value x.content)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let content =
        CallResultContents.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "content") in
      let callId =
        (Option.map ~f:CallId.of_xml) (Xml.child xml_arg0 "callId") in
      make ~content ?callId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let content = field_map_exn json__ "content" CallResultContents.of_json in
      let callId = field_map json__ "callId" CallId.of_json in
      make ~content ?callId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result returned from executing a tool call."]
module S3BucketName =
  struct
    type nonrec t = string
    let context_ = "S3BucketName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (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:"S3BucketName" j
    let to_json = simple_to_json to_value
  end
module S3KeyPrefix =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A prefix for S3 object keys that will be prepended to 'step_\\{N\\}.json'. Must follow S3 object key naming guidelines and cannot end with a forward slash as it will be directly concatenated with the filename."]
    let context_ = "S3KeyPrefix"
    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:"[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:"S3KeyPrefix" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "A prefix for S3 object keys that will be prepended to 'step_\\{N\\}.json'. Must follow S3 object key naming guidelines and cannot end with a forward slash as it will be directly concatenated with the filename."]
module ToolSpec =
  struct
    type nonrec t =
      {
      name: ToolName.t
        [@ocaml.doc
          "The unique name of the tool that acts will use to invoke it."];
      description: ToolDescription.t
        [@ocaml.doc
          "A description of what the tool does and how it should be used."];
      inputSchema: ToolInputSchema.t
        [@ocaml.doc
          "The JSON schema that defines the expected input format for the tool."]}
    let context_ = "ToolSpec"
    let make ~name =
      fun ~description ->
        fun ~inputSchema -> fun () -> { name; description; inputSchema }
    let to_value x =
      structure_to_value
        [("name", (Some (ToolName.to_value x.name)));
        ("description", (Some (ToolDescription.to_value x.description)));
        ("inputSchema", (Some (ToolInputSchema.to_value x.inputSchema)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputSchema =
        ToolInputSchema.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "inputSchema") in
      let description =
        ToolDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "description") in
      let name =
        ToolName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~inputSchema ~description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputSchema =
        field_map_exn json__ "inputSchema" ToolInputSchema.of_json in
      let description =
        field_map_exn json__ "description" ToolDescription.of_json in
      let name = field_map_exn json__ "name" ToolName.of_json in
      make ~inputSchema ~description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specification for a tool that acts can invoke, including its name, description, and input schema."]
module AccessDeniedException =
  struct
    type nonrec t =
      {
      message: NonBlankString.t option
        [@ocaml.doc
          "You don't have sufficient permissions to perform this action. Verify your IAM permissions and try again."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonBlankString.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" NonBlankString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You don't have sufficient permissions to perform this action."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: NonBlankString.t option
        [@ocaml.doc
          "The requested operation conflicts with the current state of the resource."];
      resourceId: NonBlankString.t option
        [@ocaml.doc
          "The identifier of the resource that caused the conflict."];
      resourceType: NonBlankString.t option
        [@ocaml.doc "The type of resource that caused the conflict."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:NonBlankString.to_value));
        ("resourceId", (Option.map x.resourceId ~f:NonBlankString.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:NonBlankString.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:NonBlankString.of_xml)
          (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:NonBlankString.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType =
        field_map json__ "resourceType" NonBlankString.of_json in
      let resourceId = field_map json__ "resourceId" NonBlankString.of_json in
      let message = field_map json__ "message" NonBlankString.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request could not be completed due to a conflict with the current state of the resource."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: NonBlankString.t option
        [@ocaml.doc
          "The service encountered an internal error. Try again later."];
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "The number of seconds to wait before retrying the request."];
      reason: InternalServerExceptionReason.t option
        [@ocaml.doc "The reason for the internal server error."]}
    let make ?message =
      fun ?retryAfterSeconds ->
        fun ?reason -> fun () -> { message; retryAfterSeconds; reason }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:NonBlankString.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value));
        ("reason",
          (Option.map x.reason ~f:InternalServerExceptionReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:InternalServerExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let message =
        (Option.map ~f:NonBlankString.of_xml) (Xml.child xml_arg0 "message") in
      make ?reason ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "reason" InternalServerExceptionReason.of_json in
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let message = field_map json__ "message" NonBlankString.of_json in
      make ?reason ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An internal server error occurred. Please try again later."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: NonBlankString.t option
        [@ocaml.doc "The specified resource was not found."];
      resourceId: NonBlankString.t option
        [@ocaml.doc "The identifier of the resource that wasn't found."];
      resourceType: NonBlankString.t option
        [@ocaml.doc "The type of resource that wasn't found."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:NonBlankString.to_value));
        ("resourceId", (Option.map x.resourceId ~f:NonBlankString.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:NonBlankString.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:NonBlankString.of_xml)
          (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:NonBlankString.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType =
        field_map json__ "resourceType" NonBlankString.of_json in
      let resourceId = field_map json__ "resourceId" NonBlankString.of_json in
      let message = field_map json__ "message" NonBlankString.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The requested resource was not found."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: NonBlankString.t option
        [@ocaml.doc "The request was denied due to request throttling."];
      serviceCode: NonBlankString.t option
        [@ocaml.doc "The service code where throttling occurred."];
      quotaCode: NonBlankString.t option
        [@ocaml.doc "The quota code related to the throttling."];
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "The number of seconds to wait before retrying the throttled request."]}
    let make ?message =
      fun ?serviceCode ->
        fun ?quotaCode ->
          fun ?retryAfterSeconds ->
            fun () -> { message; serviceCode; quotaCode; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:NonBlankString.to_value));
        ("serviceCode",
          (Option.map x.serviceCode ~f:NonBlankString.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:NonBlankString.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let quotaCode =
        (Option.map ~f:NonBlankString.of_xml)
          (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:NonBlankString.of_xml)
          (Xml.child xml_arg0 "serviceCode") in
      let message =
        (Option.map ~f:NonBlankString.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let quotaCode = field_map json__ "quotaCode" NonBlankString.of_json in
      let serviceCode = field_map json__ "serviceCode" NonBlankString.of_json in
      let message = field_map json__ "message" NonBlankString.of_json in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was throttled due to too many requests. Please try again later."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: NonBlankString.t option
        [@ocaml.doc
          "The input fails to satisfy the constraints specified by the service."];
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The reason for the validation failure."];
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc "The list of fields that failed validation."]}
    let make ?message =
      fun ?reason ->
        fun ?fieldList -> fun () -> { message; reason; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:NonBlankString.to_value));
        ("reason",
          (Option.map x.reason ~f:ValidationExceptionReason.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 reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:NonBlankString.of_xml) (Xml.child xml_arg0 "message") in
      make ?fieldList ?reason ?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 reason =
        field_map json__ "reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "message" NonBlankString.of_json in
      make ?fieldList ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input parameters for the request are invalid."]
module ActError =
  struct
    type nonrec t =
      {
      message: ActErrorMessageString.t
        [@ocaml.doc
          "A human-readable description of the error that occurred."];
      type_: ActErrorTypeString.t option
        [@ocaml.doc "The type or category of error that occurred."]}
    let context_ = "ActError"
    let make ?type_ = fun ~message -> fun () -> { type_; message }
    let to_value x =
      structure_to_value
        [("message", (Some (ActErrorMessageString.to_value x.message)));
        ("type", (Option.map x.type_ ~f:ActErrorTypeString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:ActErrorTypeString.of_xml) (Xml.child xml_arg0 "type") in
      let message =
        ActErrorMessageString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "message") in
      make ?type_ ~message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "type" ActErrorTypeString.of_json in
      let message =
        field_map_exn json__ "message" ActErrorMessageString.of_json in
      make ?type_ ~message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Error information when an act fails to execute successfully."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"\\S*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module WorkflowRunSummaries =
  struct
    type nonrec t = WorkflowRunSummary.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:WorkflowRunSummary.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:WorkflowRunSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkflowRunSummaries"
        ~of_json:WorkflowRunSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  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 MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module SortOrder =
  struct
    type nonrec t =
      | Ascending 
      | Descending 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Ascending -> "Ascending"
      | Descending -> "Descending"
      | Non_static_id s -> s
    let of_string =
      function
      | "Ascending" -> Ascending
      | "Descending" -> Descending
      | 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 SortOrder" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SortOrder" j)
    let to_json = simple_to_json to_value
  end
module WorkflowDefinitionSummaries =
  struct
    type nonrec t = WorkflowDefinitionSummary.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:WorkflowDefinitionSummary.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:WorkflowDefinitionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkflowDefinitionSummaries"
        ~of_json:WorkflowDefinitionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module SessionSummaries =
  struct
    type nonrec t = SessionSummary.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:SessionSummary.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:SessionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"SessionSummaries" ~of_json:SessionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module CompatibilityInformation =
  struct
    type nonrec t =
      {
      clientCompatibilityVersion: Integer.t option
        [@ocaml.doc "The client compatibility version that was requested."];
      supportedModelIds: ModelIdList.t option
        [@ocaml.doc
          "A list of model IDs that are supported for the client compatibility version."];
      message: NonBlankString.t option
        [@ocaml.doc
          "Additional information about compatibility requirements or recommendations."]}
    let make ?clientCompatibilityVersion =
      fun ?supportedModelIds ->
        fun ?message ->
          fun () ->
            { clientCompatibilityVersion; supportedModelIds; message }
    let to_value x =
      structure_to_value
        [("clientCompatibilityVersion",
           (Option.map x.clientCompatibilityVersion ~f:Integer.to_value));
        ("supportedModelIds",
          (Option.map x.supportedModelIds ~f:ModelIdList.to_value));
        ("message", (Option.map x.message ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonBlankString.of_xml) (Xml.child xml_arg0 "message") in
      let supportedModelIds =
        (Option.map ~f:ModelIdList.of_xml)
          (Xml.child xml_arg0 "supportedModelIds") in
      let clientCompatibilityVersion =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "clientCompatibilityVersion") in
      make ?message ?supportedModelIds ?clientCompatibilityVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" NonBlankString.of_json in
      let supportedModelIds =
        field_map json__ "supportedModelIds" ModelIdList.of_json in
      let clientCompatibilityVersion =
        field_map json__ "clientCompatibilityVersion" Integer.of_json in
      make ?message ?supportedModelIds ?clientCompatibilityVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about client compatibility and supported model versions."]
module ModelAliases =
  struct
    type nonrec t = ModelAlias.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:ModelAlias.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:ModelAlias.of_xml)
    let of_json j =
      list_of_json ~kind:"ModelAliases" ~of_json:ModelAlias.of_json j
    let to_json v = composed_to_json to_value v
  end
module ModelSummaries =
  struct
    type nonrec t = ModelSummary.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:ModelSummary.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:ModelSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ModelSummaries" ~of_json:ModelSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActSummaries =
  struct
    type nonrec t = ActSummary.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:ActSummary.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:ActSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ActSummaries" ~of_json:ActSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Calls =
  struct
    type nonrec t = Call.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:Call.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:Call.of_xml)
    let of_json j = list_of_json ~kind:"Calls" ~of_json:Call.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: NonBlankString.t option
        [@ocaml.doc
          "The request would exceed one or more service quotas for your account."];
      resourceId: NonBlankString.t option
        [@ocaml.doc
          "The identifier of the resource that exceeded the quota."];
      resourceType: NonBlankString.t option
        [@ocaml.doc "The type of resource that exceeded the quota."];
      serviceCode: NonBlankString.t option
        [@ocaml.doc "The service code for the quota that was exceeded."];
      quotaCode: NonBlankString.t option
        [@ocaml.doc "The code for the specific quota that was exceeded."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?serviceCode ->
            fun ?quotaCode ->
              fun () ->
                { message; resourceId; resourceType; serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:NonBlankString.to_value));
        ("resourceId", (Option.map x.resourceId ~f:NonBlankString.to_value));
        ("resourceType",
          (Option.map x.resourceType ~f:NonBlankString.to_value));
        ("serviceCode",
          (Option.map x.serviceCode ~f:NonBlankString.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:NonBlankString.of_xml)
          (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:NonBlankString.of_xml)
          (Xml.child xml_arg0 "serviceCode") in
      let resourceType =
        (Option.map ~f:NonBlankString.of_xml)
          (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:NonBlankString.of_xml)
          (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:NonBlankString.of_xml) (Xml.child xml_arg0 "message") in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "quotaCode" NonBlankString.of_json in
      let serviceCode = field_map json__ "serviceCode" NonBlankString.of_json in
      let resourceType =
        field_map json__ "resourceType" NonBlankString.of_json in
      let resourceId = field_map json__ "resourceId" NonBlankString.of_json in
      let message = field_map json__ "message" NonBlankString.of_json in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request would exceed a service quota limit."]
module CallResults =
  struct
    type nonrec t = CallResult.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:CallResult.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:CallResult.of_xml)
    let of_json j =
      list_of_json ~kind:"CallResults" ~of_json:CallResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module CloudWatchLogGroupName =
  struct
    type nonrec t = string
    let context_ = "CloudWatchLogGroupName"
    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:"[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:"CloudWatchLogGroupName" j
    let to_json = simple_to_json to_value
  end
module WorkflowDescription =
  struct
    type nonrec t = string
    let context_ = "WorkflowDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:4000) >>=
             (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:"WorkflowDescription" j
    let to_json = simple_to_json to_value
  end
module WorkflowExportConfig =
  struct
    type nonrec t =
      {
      s3BucketName: S3BucketName.t
        [@ocaml.doc
          "The name of your Amazon S3 bucket, that Nova Act uses to export your workflow data. Note that the IAM role used to access Nova Act must also have write permissions to this bucket."];
      s3KeyPrefix: S3KeyPrefix.t option
        [@ocaml.doc
          "An optional prefix for Amazon S3 object keys to organize exported data."]}
    let context_ = "WorkflowExportConfig"
    let make ?s3KeyPrefix =
      fun ~s3BucketName -> fun () -> { s3KeyPrefix; s3BucketName }
    let to_value x =
      structure_to_value
        [("s3BucketName", (Some (S3BucketName.to_value x.s3BucketName)));
        ("s3KeyPrefix", (Option.map x.s3KeyPrefix ~f:S3KeyPrefix.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3KeyPrefix =
        (Option.map ~f:S3KeyPrefix.of_xml) (Xml.child xml_arg0 "s3KeyPrefix") in
      let s3BucketName =
        S3BucketName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "s3BucketName") in
      make ?s3KeyPrefix ~s3BucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3KeyPrefix = field_map json__ "s3KeyPrefix" S3KeyPrefix.of_json in
      let s3BucketName =
        field_map_exn json__ "s3BucketName" S3BucketName.of_json in
      make ?s3KeyPrefix ~s3BucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration settings for exporting workflow execution data and logs to Amazon Simple Storage Service (Amazon S3)."]
module ClientInfo =
  struct
    type nonrec t =
      {
      compatibilityVersion: Integer.t
        [@ocaml.doc
          "The compatibility version of the client, used to ensure API compatibility."];
      sdkVersion: NonBlankString.t option
        [@ocaml.doc "The version of the SDK being used by the client."]}
    let context_ = "ClientInfo"
    let make ?sdkVersion =
      fun ~compatibilityVersion ->
        fun () -> { sdkVersion; compatibilityVersion }
    let to_value x =
      structure_to_value
        [("compatibilityVersion",
           (Some (Integer.to_value x.compatibilityVersion)));
        ("sdkVersion", (Option.map x.sdkVersion ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sdkVersion =
        (Option.map ~f:NonBlankString.of_xml)
          (Xml.child xml_arg0 "sdkVersion") in
      let compatibilityVersion =
        Integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "compatibilityVersion") in
      make ?sdkVersion ~compatibilityVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sdkVersion = field_map json__ "sdkVersion" NonBlankString.of_json in
      let compatibilityVersion =
        field_map_exn json__ "compatibilityVersion" Integer.of_json in
      make ?sdkVersion ~compatibilityVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the client making API requests, used for compatibility checking."]
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:33) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9](-*[a-zA-Z0-9]){0,256}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module Task =
  struct
    type nonrec t = string
    let context_ = "Task"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10000) >>=
             (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:"Task" j
    let to_json = simple_to_json to_value
  end
module ToolSpecs =
  struct
    type nonrec t = ToolSpec.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ToolSpec.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:ToolSpec.of_xml)
    let of_json j =
      list_of_json ~kind:"ToolSpecs" ~of_json:ToolSpec.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateWorkflowRunResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
       "Updates the configuration or state of an active workflow run."]
module UpdateWorkflowRunRequest =
  struct
    type nonrec t =
      {
      workflowDefinitionName: WorkflowDefinitionName.t
        [@ocaml.doc
          "The name of the workflow definition containing the workflow run."];
      workflowRunId: UuidString.t
        [@ocaml.doc "The unique identifier of the workflow run to update."];
      status: WorkflowRunStatus.t
        [@ocaml.doc "The new status to set for the workflow run."]}
    let context_ = "UpdateWorkflowRunRequest"
    let make ~workflowDefinitionName =
      fun ~workflowRunId ->
        fun ~status ->
          fun () -> { workflowDefinitionName; workflowRunId; status }
    let to_value x =
      structure_to_value
        [("workflowDefinitionName",
           (Some (WorkflowDefinitionName.to_value x.workflowDefinitionName)));
        ("workflowRunId", (Some (UuidString.to_value x.workflowRunId)));
        ("status", (Some (WorkflowRunStatus.to_value x.status)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        WorkflowRunStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "status") in
      let workflowRunId =
        UuidString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowRunId") in
      let workflowDefinitionName =
        WorkflowDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowDefinitionName") in
      make ~status ~workflowRunId ~workflowDefinitionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map_exn json__ "status" WorkflowRunStatus.of_json in
      let workflowRunId =
        field_map_exn json__ "workflowRunId" UuidString.of_json in
      let workflowDefinitionName =
        field_map_exn json__ "workflowDefinitionName"
          WorkflowDefinitionName.of_json in
      make ~status ~workflowRunId ~workflowDefinitionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration or state of an active workflow run."]
module UpdateActResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
       "Updates an existing act's configuration, status, or error information."]
module UpdateActRequest =
  struct
    type nonrec t =
      {
      workflowDefinitionName: WorkflowDefinitionName.t
        [@ocaml.doc
          "The name of the workflow definition containing the act."];
      workflowRunId: UuidString.t
        [@ocaml.doc
          "The unique identifier of the workflow run containing the act."];
      sessionId: UuidString.t
        [@ocaml.doc
          "The unique identifier of the session containing the act."];
      actId: UuidString.t
        [@ocaml.doc "The unique identifier of the act to update."];
      status: ActStatus.t [@ocaml.doc "The new status to set for the act."];
      error: ActError.t option
        [@ocaml.doc
          "Error information to associate with the act, if applicable."]}
    let context_ = "UpdateActRequest"
    let make ?error =
      fun ~workflowDefinitionName ->
        fun ~workflowRunId ->
          fun ~sessionId ->
            fun ~actId ->
              fun ~status ->
                fun () ->
                  {
                    error;
                    workflowDefinitionName;
                    workflowRunId;
                    sessionId;
                    actId;
                    status
                  }
    let to_value x =
      structure_to_value
        [("workflowDefinitionName",
           (Some (WorkflowDefinitionName.to_value x.workflowDefinitionName)));
        ("workflowRunId", (Some (UuidString.to_value x.workflowRunId)));
        ("sessionId", (Some (UuidString.to_value x.sessionId)));
        ("actId", (Some (UuidString.to_value x.actId)));
        ("status", (Some (ActStatus.to_value x.status)));
        ("error", (Option.map x.error ~f:ActError.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let error =
        (Option.map ~f:ActError.of_xml) (Xml.child xml_arg0 "error") in
      let status =
        ActStatus.of_xml (Xml.child_exn ~context:context_ xml_arg0 "status") in
      let actId =
        UuidString.of_xml (Xml.child_exn ~context:context_ xml_arg0 "actId") in
      let sessionId =
        UuidString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let workflowRunId =
        UuidString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowRunId") in
      let workflowDefinitionName =
        WorkflowDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowDefinitionName") in
      make ?error ~status ~actId ~sessionId ~workflowRunId
        ~workflowDefinitionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let error = field_map json__ "error" ActError.of_json in
      let status = field_map_exn json__ "status" ActStatus.of_json in
      let actId = field_map_exn json__ "actId" UuidString.of_json in
      let sessionId = field_map_exn json__ "sessionId" UuidString.of_json in
      let workflowRunId =
        field_map_exn json__ "workflowRunId" UuidString.of_json in
      let workflowDefinitionName =
        field_map_exn json__ "workflowDefinitionName"
          WorkflowDefinitionName.of_json in
      make ?error ~status ~actId ~sessionId ~workflowRunId
        ~workflowDefinitionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing act's configuration, status, or error information."]
module ListWorkflowRunsResponse =
  struct
    type nonrec t =
      {
      workflowRunSummaries: WorkflowRunSummaries.t option
        [@ocaml.doc "A list of summary information for workflow runs."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for retrieving the next page of results, if available."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workflowRunSummaries =
      fun ?nextToken -> fun () -> { workflowRunSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("workflowRunSummaries",
           (Option.map x.workflowRunSummaries
              ~f:WorkflowRunSummaries.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 workflowRunSummaries =
        (Option.map ~f:WorkflowRunSummaries.of_xml)
          (Xml.child xml_arg0 "workflowRunSummaries") in
      make ?nextToken ?workflowRunSummaries ()
    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 workflowRunSummaries =
        field_map json__ "workflowRunSummaries" WorkflowRunSummaries.of_json in
      make ?nextToken ?workflowRunSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all workflow runs for a specific workflow definition with optional filtering and pagination."]
module ListWorkflowRunsRequest =
  struct
    type nonrec t =
      {
      workflowDefinitionName: WorkflowDefinitionName.t
        [@ocaml.doc
          "The name of the workflow definition to list workflow runs for."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of workflow runs to return in a single response."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for retrieving the next page of results."];
      sortOrder: SortOrder.t option
        [@ocaml.doc
          "The sort order for the returned workflow runs (ascending or descending)."]}
    let context_ = "ListWorkflowRunsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?sortOrder ->
          fun ~workflowDefinitionName ->
            fun () ->
              { maxResults; nextToken; sortOrder; workflowDefinitionName }
    let to_value x =
      structure_to_value
        [("workflowDefinitionName",
           (Some (WorkflowDefinitionName.to_value x.workflowDefinitionName)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("sortOrder", (Option.map x.sortOrder ~f:SortOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortOrder =
        (Option.map ~f:SortOrder.of_xml) (Xml.child xml_arg0 "sortOrder") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let workflowDefinitionName =
        WorkflowDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowDefinitionName") in
      make ?sortOrder ?nextToken ?maxResults ~workflowDefinitionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortOrder = field_map json__ "sortOrder" SortOrder.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let workflowDefinitionName =
        field_map_exn json__ "workflowDefinitionName"
          WorkflowDefinitionName.of_json in
      make ?sortOrder ?nextToken ?maxResults ~workflowDefinitionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all workflow runs for a specific workflow definition with optional filtering and pagination."]
module ListWorkflowDefinitionsResponse =
  struct
    type nonrec t =
      {
      workflowDefinitionSummaries: WorkflowDefinitionSummaries.t option
        [@ocaml.doc
          "A list of summary information for workflow definitions."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for retrieving the next page of results, if available."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workflowDefinitionSummaries =
      fun ?nextToken -> fun () -> { workflowDefinitionSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("workflowDefinitionSummaries",
           (Option.map x.workflowDefinitionSummaries
              ~f:WorkflowDefinitionSummaries.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 workflowDefinitionSummaries =
        (Option.map ~f:WorkflowDefinitionSummaries.of_xml)
          (Xml.child xml_arg0 "workflowDefinitionSummaries") in
      make ?nextToken ?workflowDefinitionSummaries ()
    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 workflowDefinitionSummaries =
        field_map json__ "workflowDefinitionSummaries"
          WorkflowDefinitionSummaries.of_json in
      make ?nextToken ?workflowDefinitionSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all workflow definitions in your account with optional filtering and pagination."]
module ListWorkflowDefinitionsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of workflow definitions to return in a single response."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for retrieving the next page of results."];
      sortOrder: SortOrder.t option
        [@ocaml.doc
          "The sort order for the returned workflow definitions (ascending or descending)."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?sortOrder -> fun () -> { maxResults; nextToken; sortOrder }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("sortOrder", (Option.map x.sortOrder ~f:SortOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortOrder =
        (Option.map ~f:SortOrder.of_xml) (Xml.child xml_arg0 "sortOrder") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?sortOrder ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortOrder = field_map json__ "sortOrder" SortOrder.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?sortOrder ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all workflow definitions in your account with optional filtering and pagination."]
module ListSessionsResponse =
  struct
    type nonrec t =
      {
      sessionSummaries: SessionSummaries.t option
        [@ocaml.doc
          "A list of summary information for sessions in the workflow run."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for retrieving the next page of results, if available."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sessionSummaries =
      fun ?nextToken -> fun () -> { sessionSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("sessionSummaries",
           (Option.map x.sessionSummaries ~f:SessionSummaries.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 sessionSummaries =
        (Option.map ~f:SessionSummaries.of_xml)
          (Xml.child xml_arg0 "sessionSummaries") in
      make ?nextToken ?sessionSummaries ()
    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 sessionSummaries =
        field_map json__ "sessionSummaries" SessionSummaries.of_json in
      make ?nextToken ?sessionSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all sessions within a specific workflow run."]
module ListSessionsRequest =
  struct
    type nonrec t =
      {
      workflowDefinitionName: WorkflowDefinitionName.t
        [@ocaml.doc
          "The name of the workflow definition containing the workflow run."];
      workflowRunId: UuidString.t
        [@ocaml.doc
          "The unique identifier of the workflow run to list sessions for."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of sessions to return in a single response."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for retrieving the next page of results."];
      sortOrder: SortOrder.t option
        [@ocaml.doc
          "The sort order for the returned sessions (ascending or descending)."]}
    let context_ = "ListSessionsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?sortOrder ->
          fun ~workflowDefinitionName ->
            fun ~workflowRunId ->
              fun () ->
                {
                  maxResults;
                  nextToken;
                  sortOrder;
                  workflowDefinitionName;
                  workflowRunId
                }
    let to_value x =
      structure_to_value
        [("workflowDefinitionName",
           (Some (WorkflowDefinitionName.to_value x.workflowDefinitionName)));
        ("workflowRunId", (Some (UuidString.to_value x.workflowRunId)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("sortOrder", (Option.map x.sortOrder ~f:SortOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortOrder =
        (Option.map ~f:SortOrder.of_xml) (Xml.child xml_arg0 "sortOrder") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let workflowRunId =
        UuidString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowRunId") in
      let workflowDefinitionName =
        WorkflowDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowDefinitionName") in
      make ?sortOrder ?nextToken ?maxResults ~workflowRunId
        ~workflowDefinitionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortOrder = field_map json__ "sortOrder" SortOrder.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let workflowRunId =
        field_map_exn json__ "workflowRunId" UuidString.of_json in
      let workflowDefinitionName =
        field_map_exn json__ "workflowDefinitionName"
          WorkflowDefinitionName.of_json in
      make ?sortOrder ?nextToken ?maxResults ~workflowRunId
        ~workflowDefinitionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all sessions within a specific workflow run."]
module ListModelsResponse =
  struct
    type nonrec t =
      {
      modelSummaries: ModelSummaries.t option
        [@ocaml.doc
          "A list of available AI models with their status and compatibility information."];
      modelAliases: ModelAliases.t option
        [@ocaml.doc
          "A list of model aliases that provide stable references to model versions."];
      compatibilityInformation: CompatibilityInformation.t option
        [@ocaml.doc
          "Information about client compatibility and supported models."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?modelSummaries =
      fun ?modelAliases ->
        fun ?compatibilityInformation ->
          fun () ->
            { modelSummaries; modelAliases; compatibilityInformation }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `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
        [("modelSummaries",
           (Option.map x.modelSummaries ~f:ModelSummaries.to_value));
        ("modelAliases",
          (Option.map x.modelAliases ~f:ModelAliases.to_value));
        ("compatibilityInformation",
          (Option.map x.compatibilityInformation
             ~f:CompatibilityInformation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let compatibilityInformation =
        (Option.map ~f:CompatibilityInformation.of_xml)
          (Xml.child xml_arg0 "compatibilityInformation") in
      let modelAliases =
        (Option.map ~f:ModelAliases.of_xml)
          (Xml.child xml_arg0 "modelAliases") in
      let modelSummaries =
        (Option.map ~f:ModelSummaries.of_xml)
          (Xml.child xml_arg0 "modelSummaries") in
      make ?compatibilityInformation ?modelAliases ?modelSummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let compatibilityInformation =
        field_map json__ "compatibilityInformation"
          CompatibilityInformation.of_json in
      let modelAliases = field_map json__ "modelAliases" ModelAliases.of_json in
      let modelSummaries =
        field_map json__ "modelSummaries" ModelSummaries.of_json in
      make ?compatibilityInformation ?modelAliases ?modelSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all available AI models that can be used for workflow execution, including their status and compatibility information."]
module ListModelsRequest =
  struct
    type nonrec t =
      {
      clientCompatibilityVersion: Integer.t
        [@ocaml.doc
          "The client compatibility version to filter models by compatibility."]}
    let context_ = "ListModelsRequest"
    let make ~clientCompatibilityVersion =
      fun () -> { clientCompatibilityVersion }
    let to_value x =
      structure_to_value
        [("clientCompatibilityVersion",
           (Some (Integer.to_value x.clientCompatibilityVersion)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientCompatibilityVersion =
        Integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "clientCompatibilityVersion") in
      make ~clientCompatibilityVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientCompatibilityVersion =
        field_map_exn json__ "clientCompatibilityVersion" Integer.of_json in
      make ~clientCompatibilityVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all available AI models that can be used for workflow execution, including their status and compatibility information."]
module ListActsResponse =
  struct
    type nonrec t =
      {
      actSummaries: ActSummaries.t option
        [@ocaml.doc "A list of summary information for acts in the session."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for retrieving the next page of results, if available."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?actSummaries =
      fun ?nextToken -> fun () -> { actSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("actSummaries",
           (Option.map x.actSummaries ~f:ActSummaries.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 actSummaries =
        (Option.map ~f:ActSummaries.of_xml)
          (Xml.child xml_arg0 "actSummaries") in
      make ?nextToken ?actSummaries ()
    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 actSummaries = field_map json__ "actSummaries" ActSummaries.of_json in
      make ?nextToken ?actSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all acts within a specific session with their current status and execution details."]
module ListActsRequest =
  struct
    type nonrec t =
      {
      workflowDefinitionName: WorkflowDefinitionName.t
        [@ocaml.doc
          "The name of the workflow definition containing the session."];
      workflowRunId: UuidString.t option
        [@ocaml.doc
          "The unique identifier of the workflow run containing the session."];
      sessionId: UuidString.t option
        [@ocaml.doc "The unique identifier of the session to list acts for."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of acts to return in a single response."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for retrieving the next page of results."];
      sortOrder: SortOrder.t option
        [@ocaml.doc
          "The sort order for the returned acts (ascending or descending)."]}
    let context_ = "ListActsRequest"
    let make ?workflowRunId =
      fun ?sessionId ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ?sortOrder ->
              fun ~workflowDefinitionName ->
                fun () ->
                  {
                    workflowRunId;
                    sessionId;
                    maxResults;
                    nextToken;
                    sortOrder;
                    workflowDefinitionName
                  }
    let to_value x =
      structure_to_value
        [("workflowDefinitionName",
           (Some (WorkflowDefinitionName.to_value x.workflowDefinitionName)));
        ("workflowRunId",
          (Option.map x.workflowRunId ~f:UuidString.to_value));
        ("sessionId", (Option.map x.sessionId ~f:UuidString.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("sortOrder", (Option.map x.sortOrder ~f:SortOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortOrder =
        (Option.map ~f:SortOrder.of_xml) (Xml.child xml_arg0 "sortOrder") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let sessionId =
        (Option.map ~f:UuidString.of_xml) (Xml.child xml_arg0 "sessionId") in
      let workflowRunId =
        (Option.map ~f:UuidString.of_xml)
          (Xml.child xml_arg0 "workflowRunId") in
      let workflowDefinitionName =
        WorkflowDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowDefinitionName") in
      make ?sortOrder ?nextToken ?maxResults ?sessionId ?workflowRunId
        ~workflowDefinitionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortOrder = field_map json__ "sortOrder" SortOrder.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let sessionId = field_map json__ "sessionId" UuidString.of_json in
      let workflowRunId = field_map json__ "workflowRunId" UuidString.of_json in
      let workflowDefinitionName =
        field_map_exn json__ "workflowDefinitionName"
          WorkflowDefinitionName.of_json in
      make ?sortOrder ?nextToken ?maxResults ?sessionId ?workflowRunId
        ~workflowDefinitionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all acts within a specific session with their current status and execution details."]
module InvokeActStepResponse =
  struct
    type nonrec t =
      {
      calls: Calls.t option
        [@ocaml.doc
          "A list of tool calls that the act wants to execute in this step."];
      stepId: UuidString.t option
        [@ocaml.doc "The unique identifier for this execution step."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?calls = fun ?stepId -> fun () -> { calls; stepId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("calls", (Option.map x.calls ~f:Calls.to_value));
        ("stepId", (Option.map x.stepId ~f:UuidString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stepId =
        (Option.map ~f:UuidString.of_xml) (Xml.child xml_arg0 "stepId") in
      let calls = (Option.map ~f:Calls.of_xml) (Xml.child xml_arg0 "calls") in
      make ?stepId ?calls ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stepId = field_map json__ "stepId" UuidString.of_json in
      let calls = field_map json__ "calls" Calls.of_json in
      make ?stepId ?calls ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Executes the next step of an act, processing tool call results and returning new tool calls if needed."]
module InvokeActStepRequest =
  struct
    type nonrec t =
      {
      workflowDefinitionName: WorkflowDefinitionName.t
        [@ocaml.doc
          "The name of the workflow definition containing the act."];
      workflowRunId: UuidString.t
        [@ocaml.doc
          "The unique identifier of the workflow run containing the act."];
      sessionId: UuidString.t
        [@ocaml.doc
          "The unique identifier of the session containing the act."];
      actId: UuidString.t
        [@ocaml.doc
          "The unique identifier of the act to invoke the next step for."];
      callResults: CallResults.t
        [@ocaml.doc
          "The results from previous tool calls that the act requested."];
      previousStepId: UuidString.t option
        [@ocaml.doc
          "The identifier of the previous step, used for tracking execution flow."]}
    let context_ = "InvokeActStepRequest"
    let make ?previousStepId =
      fun ~workflowDefinitionName ->
        fun ~workflowRunId ->
          fun ~sessionId ->
            fun ~actId ->
              fun ~callResults ->
                fun () ->
                  {
                    previousStepId;
                    workflowDefinitionName;
                    workflowRunId;
                    sessionId;
                    actId;
                    callResults
                  }
    let to_value x =
      structure_to_value
        [("workflowDefinitionName",
           (Some (WorkflowDefinitionName.to_value x.workflowDefinitionName)));
        ("workflowRunId", (Some (UuidString.to_value x.workflowRunId)));
        ("sessionId", (Some (UuidString.to_value x.sessionId)));
        ("actId", (Some (UuidString.to_value x.actId)));
        ("callResults", (Some (CallResults.to_value x.callResults)));
        ("previousStepId",
          (Option.map x.previousStepId ~f:UuidString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let previousStepId =
        (Option.map ~f:UuidString.of_xml)
          (Xml.child xml_arg0 "previousStepId") in
      let callResults =
        CallResults.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "callResults") in
      let actId =
        UuidString.of_xml (Xml.child_exn ~context:context_ xml_arg0 "actId") in
      let sessionId =
        UuidString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let workflowRunId =
        UuidString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowRunId") in
      let workflowDefinitionName =
        WorkflowDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowDefinitionName") in
      make ?previousStepId ~callResults ~actId ~sessionId ~workflowRunId
        ~workflowDefinitionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let previousStepId =
        field_map json__ "previousStepId" UuidString.of_json in
      let callResults =
        field_map_exn json__ "callResults" CallResults.of_json in
      let actId = field_map_exn json__ "actId" UuidString.of_json in
      let sessionId = field_map_exn json__ "sessionId" UuidString.of_json in
      let workflowRunId =
        field_map_exn json__ "workflowRunId" UuidString.of_json in
      let workflowDefinitionName =
        field_map_exn json__ "workflowDefinitionName"
          WorkflowDefinitionName.of_json in
      make ?previousStepId ~callResults ~actId ~sessionId ~workflowRunId
        ~workflowDefinitionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Executes the next step of an act, processing tool call results and returning new tool calls if needed."]
module GetWorkflowRunResponse =
  struct
    type nonrec t =
      {
      workflowRunArn: WorkflowRunArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the workflow run."];
      workflowRunId: UuidString.t option
        [@ocaml.doc "The unique identifier of the workflow run."];
      status: WorkflowRunStatus.t option
        [@ocaml.doc "The current execution status of the workflow run."];
      startedAt: DateTimestamp.t option
        [@ocaml.doc "The timestamp when the workflow run started execution."];
      endedAt: DateTimestamp.t option
        [@ocaml.doc
          "The timestamp when the workflow run completed execution, if applicable."];
      modelId: ModelId.t option
        [@ocaml.doc
          "The ID of the AI model being used for this workflow run."];
      logGroupName: CloudWatchLogGroupName.t option
        [@ocaml.doc
          "The CloudWatch log group name for this workflow run's logs."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workflowRunArn =
      fun ?workflowRunId ->
        fun ?status ->
          fun ?startedAt ->
            fun ?endedAt ->
              fun ?modelId ->
                fun ?logGroupName ->
                  fun () ->
                    {
                      workflowRunArn;
                      workflowRunId;
                      status;
                      startedAt;
                      endedAt;
                      modelId;
                      logGroupName
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("workflowRunArn",
           (Option.map x.workflowRunArn ~f:WorkflowRunArn.to_value));
        ("workflowRunId",
          (Option.map x.workflowRunId ~f:UuidString.to_value));
        ("status", (Option.map x.status ~f:WorkflowRunStatus.to_value));
        ("startedAt", (Option.map x.startedAt ~f:DateTimestamp.to_value));
        ("endedAt", (Option.map x.endedAt ~f:DateTimestamp.to_value));
        ("modelId", (Option.map x.modelId ~f:ModelId.to_value));
        ("logGroupName",
          (Option.map x.logGroupName ~f:CloudWatchLogGroupName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logGroupName =
        (Option.map ~f:CloudWatchLogGroupName.of_xml)
          (Xml.child xml_arg0 "logGroupName") in
      let modelId =
        (Option.map ~f:ModelId.of_xml) (Xml.child xml_arg0 "modelId") in
      let endedAt =
        (Option.map ~f:DateTimestamp.of_xml) (Xml.child xml_arg0 "endedAt") in
      let startedAt =
        (Option.map ~f:DateTimestamp.of_xml) (Xml.child xml_arg0 "startedAt") in
      let status =
        (Option.map ~f:WorkflowRunStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let workflowRunId =
        (Option.map ~f:UuidString.of_xml)
          (Xml.child xml_arg0 "workflowRunId") in
      let workflowRunArn =
        (Option.map ~f:WorkflowRunArn.of_xml)
          (Xml.child xml_arg0 "workflowRunArn") in
      make ?logGroupName ?modelId ?endedAt ?startedAt ?status ?workflowRunId
        ?workflowRunArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logGroupName =
        field_map json__ "logGroupName" CloudWatchLogGroupName.of_json in
      let modelId = field_map json__ "modelId" ModelId.of_json in
      let endedAt = field_map json__ "endedAt" DateTimestamp.of_json in
      let startedAt = field_map json__ "startedAt" DateTimestamp.of_json in
      let status = field_map json__ "status" WorkflowRunStatus.of_json in
      let workflowRunId = field_map json__ "workflowRunId" UuidString.of_json in
      let workflowRunArn =
        field_map json__ "workflowRunArn" WorkflowRunArn.of_json in
      make ?logGroupName ?modelId ?endedAt ?startedAt ?status ?workflowRunId
        ?workflowRunArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the current state, configuration, and execution details of a workflow run."]
module GetWorkflowRunRequest =
  struct
    type nonrec t =
      {
      workflowDefinitionName: WorkflowDefinitionName.t
        [@ocaml.doc
          "The name of the workflow definition containing the workflow run."];
      workflowRunId: UuidString.t
        [@ocaml.doc "The unique identifier of the workflow run to retrieve."]}
    let context_ = "GetWorkflowRunRequest"
    let make ~workflowDefinitionName =
      fun ~workflowRunId ->
        fun () -> { workflowDefinitionName; workflowRunId }
    let to_value x =
      structure_to_value
        [("workflowDefinitionName",
           (Some (WorkflowDefinitionName.to_value x.workflowDefinitionName)));
        ("workflowRunId", (Some (UuidString.to_value x.workflowRunId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workflowRunId =
        UuidString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowRunId") in
      let workflowDefinitionName =
        WorkflowDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowDefinitionName") in
      make ~workflowRunId ~workflowDefinitionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workflowRunId =
        field_map_exn json__ "workflowRunId" UuidString.of_json in
      let workflowDefinitionName =
        field_map_exn json__ "workflowDefinitionName"
          WorkflowDefinitionName.of_json in
      make ~workflowRunId ~workflowDefinitionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the current state, configuration, and execution details of a workflow run."]
module GetWorkflowDefinitionResponse =
  struct
    type nonrec t =
      {
      name: WorkflowDefinitionName.t option
        [@ocaml.doc "The name of the workflow definition."];
      arn: WorkflowDefinitionArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the workflow definition."];
      createdAt: DateTimestamp.t option
        [@ocaml.doc
          "The timestamp when the workflow definition was created."];
      description: WorkflowDescription.t option
        [@ocaml.doc "The description of the workflow definition."];
      exportConfig: WorkflowExportConfig.t option
        [@ocaml.doc "The export configuration for the workflow definition."];
      status: WorkflowDefinitionStatus.t option
        [@ocaml.doc "The current status of the workflow definition."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?arn ->
        fun ?createdAt ->
          fun ?description ->
            fun ?exportConfig ->
              fun ?status ->
                fun () ->
                  { name; arn; createdAt; description; exportConfig; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:WorkflowDefinitionName.to_value));
        ("arn", (Option.map x.arn ~f:WorkflowDefinitionArn.to_value));
        ("createdAt", (Option.map x.createdAt ~f:DateTimestamp.to_value));
        ("description",
          (Option.map x.description ~f:WorkflowDescription.to_value));
        ("exportConfig",
          (Option.map x.exportConfig ~f:WorkflowExportConfig.to_value));
        ("status",
          (Option.map x.status ~f:WorkflowDefinitionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:WorkflowDefinitionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let exportConfig =
        (Option.map ~f:WorkflowExportConfig.of_xml)
          (Xml.child xml_arg0 "exportConfig") in
      let description =
        (Option.map ~f:WorkflowDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let createdAt =
        (Option.map ~f:DateTimestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let arn =
        (Option.map ~f:WorkflowDefinitionArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:WorkflowDefinitionName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?status ?exportConfig ?description ?createdAt ?arn ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" WorkflowDefinitionStatus.of_json in
      let exportConfig =
        field_map json__ "exportConfig" WorkflowExportConfig.of_json in
      let description =
        field_map json__ "description" WorkflowDescription.of_json in
      let createdAt = field_map json__ "createdAt" DateTimestamp.of_json in
      let arn = field_map json__ "arn" WorkflowDefinitionArn.of_json in
      let name = field_map json__ "name" WorkflowDefinitionName.of_json in
      make ?status ?exportConfig ?description ?createdAt ?arn ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details and configuration of a specific workflow definition."]
module GetWorkflowDefinitionRequest =
  struct
    type nonrec t =
      {
      workflowDefinitionName: WorkflowDefinitionName.t
        [@ocaml.doc "The name of the workflow definition to retrieve."]}
    let context_ = "GetWorkflowDefinitionRequest"
    let make ~workflowDefinitionName = fun () -> { workflowDefinitionName }
    let to_value x =
      structure_to_value
        [("workflowDefinitionName",
           (Some (WorkflowDefinitionName.to_value x.workflowDefinitionName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workflowDefinitionName =
        WorkflowDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowDefinitionName") in
      make ~workflowDefinitionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workflowDefinitionName =
        field_map_exn json__ "workflowDefinitionName"
          WorkflowDefinitionName.of_json in
      make ~workflowDefinitionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details and configuration of a specific workflow definition."]
module DeleteWorkflowRunResponse =
  struct
    type nonrec t =
      {
      status: WorkflowRunStatus.t option
        [@ocaml.doc "The status of the workflow run after deletion request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("status", (Option.map x.status ~f:WorkflowRunStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:WorkflowRunStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" WorkflowRunStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Terminates and cleans up a workflow run, stopping all associated acts and sessions."]
module DeleteWorkflowRunRequest =
  struct
    type nonrec t =
      {
      workflowDefinitionName: WorkflowDefinitionName.t
        [@ocaml.doc
          "The name of the workflow definition containing the workflow run."];
      workflowRunId: UuidString.t
        [@ocaml.doc "The unique identifier of the workflow run to delete."]}
    let context_ = "DeleteWorkflowRunRequest"
    let make ~workflowDefinitionName =
      fun ~workflowRunId ->
        fun () -> { workflowDefinitionName; workflowRunId }
    let to_value x =
      structure_to_value
        [("workflowDefinitionName",
           (Some (WorkflowDefinitionName.to_value x.workflowDefinitionName)));
        ("workflowRunId", (Some (UuidString.to_value x.workflowRunId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workflowRunId =
        UuidString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowRunId") in
      let workflowDefinitionName =
        WorkflowDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowDefinitionName") in
      make ~workflowRunId ~workflowDefinitionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workflowRunId =
        field_map_exn json__ "workflowRunId" UuidString.of_json in
      let workflowDefinitionName =
        field_map_exn json__ "workflowDefinitionName"
          WorkflowDefinitionName.of_json in
      make ~workflowRunId ~workflowDefinitionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Terminates and cleans up a workflow run, stopping all associated acts and sessions."]
module DeleteWorkflowDefinitionResponse =
  struct
    type nonrec t =
      {
      status: WorkflowDefinitionStatus.t option
        [@ocaml.doc
          "The status of the workflow definition after deletion request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("status",
           (Option.map x.status ~f:WorkflowDefinitionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:WorkflowDefinitionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" WorkflowDefinitionStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a workflow definition and all associated resources. This operation cannot be undone."]
module DeleteWorkflowDefinitionRequest =
  struct
    type nonrec t =
      {
      workflowDefinitionName: WorkflowDefinitionName.t
        [@ocaml.doc "The name of the workflow definition to delete."]}
    let context_ = "DeleteWorkflowDefinitionRequest"
    let make ~workflowDefinitionName = fun () -> { workflowDefinitionName }
    let to_value x =
      structure_to_value
        [("workflowDefinitionName",
           (Some (WorkflowDefinitionName.to_value x.workflowDefinitionName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workflowDefinitionName =
        WorkflowDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowDefinitionName") in
      make ~workflowDefinitionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workflowDefinitionName =
        field_map_exn json__ "workflowDefinitionName"
          WorkflowDefinitionName.of_json in
      make ~workflowDefinitionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a workflow definition and all associated resources. This operation cannot be undone."]
module CreateWorkflowRunResponse =
  struct
    type nonrec t =
      {
      workflowRunId: UuidString.t option
        [@ocaml.doc "The unique identifier for the created workflow run."];
      status: WorkflowRunStatus.t option
        [@ocaml.doc "The initial status of the workflow run after creation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workflowRunId =
      fun ?status -> fun () -> { workflowRunId; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("workflowRunId",
           (Option.map x.workflowRunId ~f:UuidString.to_value));
        ("status", (Option.map x.status ~f:WorkflowRunStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:WorkflowRunStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let workflowRunId =
        (Option.map ~f:UuidString.of_xml)
          (Xml.child xml_arg0 "workflowRunId") in
      make ?status ?workflowRunId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" WorkflowRunStatus.of_json in
      let workflowRunId = field_map json__ "workflowRunId" UuidString.of_json in
      make ?status ?workflowRunId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new execution instance of a workflow definition with specified parameters."]
module CreateWorkflowRunRequest =
  struct
    type nonrec t =
      {
      workflowDefinitionName: WorkflowDefinitionName.t
        [@ocaml.doc "The name of the workflow definition to execute."];
      modelId: ModelId.t
        [@ocaml.doc "The ID of the AI model to use for workflow execution."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."];
      logGroupName: CloudWatchLogGroupName.t option
        [@ocaml.doc
          "The CloudWatch log group name for storing workflow execution logs."];
      clientInfo: ClientInfo.t
        [@ocaml.doc
          "Information about the client making the request, including compatibility version and SDK version."]}
    let context_ = "CreateWorkflowRunRequest"
    let make ?clientToken =
      fun ?logGroupName ->
        fun ~workflowDefinitionName ->
          fun ~modelId ->
            fun ~clientInfo ->
              fun () ->
                {
                  clientToken;
                  logGroupName;
                  workflowDefinitionName;
                  modelId;
                  clientInfo
                }
    let to_value x =
      structure_to_value
        [("workflowDefinitionName",
           (Some (WorkflowDefinitionName.to_value x.workflowDefinitionName)));
        ("modelId", (Some (ModelId.to_value x.modelId)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("logGroupName",
          (Option.map x.logGroupName ~f:CloudWatchLogGroupName.to_value));
        ("clientInfo", (Some (ClientInfo.to_value x.clientInfo)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientInfo =
        ClientInfo.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientInfo") in
      let logGroupName =
        (Option.map ~f:CloudWatchLogGroupName.of_xml)
          (Xml.child xml_arg0 "logGroupName") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let modelId =
        ModelId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "modelId") in
      let workflowDefinitionName =
        WorkflowDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowDefinitionName") in
      make ~clientInfo ?logGroupName ?clientToken ~modelId
        ~workflowDefinitionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientInfo = field_map_exn json__ "clientInfo" ClientInfo.of_json in
      let logGroupName =
        field_map json__ "logGroupName" CloudWatchLogGroupName.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let modelId = field_map_exn json__ "modelId" ModelId.of_json in
      let workflowDefinitionName =
        field_map_exn json__ "workflowDefinitionName"
          WorkflowDefinitionName.of_json in
      make ~clientInfo ?logGroupName ?clientToken ~modelId
        ~workflowDefinitionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new execution instance of a workflow definition with specified parameters."]
module CreateWorkflowDefinitionResponse =
  struct
    type nonrec t =
      {
      status: WorkflowDefinitionStatus.t option
        [@ocaml.doc
          "The current status of the workflow definition after creation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("status",
           (Option.map x.status ~f:WorkflowDefinitionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:WorkflowDefinitionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" WorkflowDefinitionStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new workflow definition template that can be used to execute multiple workflow runs."]
module CreateWorkflowDefinitionRequest =
  struct
    type nonrec t =
      {
      name: WorkflowDefinitionName.t
        [@ocaml.doc
          "The name of the workflow definition. Must be unique within your account and region."];
      description: WorkflowDescription.t option
        [@ocaml.doc
          "An optional description of the workflow definition's purpose and functionality."];
      exportConfig: WorkflowExportConfig.t option
        [@ocaml.doc
          "Configuration for exporting workflow execution data to Amazon Simple Storage Service."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]}
    let context_ = "CreateWorkflowDefinitionRequest"
    let make ?description =
      fun ?exportConfig ->
        fun ?clientToken ->
          fun ~name ->
            fun () -> { description; exportConfig; clientToken; name }
    let to_value x =
      structure_to_value
        [("name", (Some (WorkflowDefinitionName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:WorkflowDescription.to_value));
        ("exportConfig",
          (Option.map x.exportConfig ~f:WorkflowExportConfig.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let exportConfig =
        (Option.map ~f:WorkflowExportConfig.of_xml)
          (Xml.child xml_arg0 "exportConfig") in
      let description =
        (Option.map ~f:WorkflowDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        WorkflowDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?clientToken ?exportConfig ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let exportConfig =
        field_map json__ "exportConfig" WorkflowExportConfig.of_json in
      let description =
        field_map json__ "description" WorkflowDescription.of_json in
      let name = field_map_exn json__ "name" WorkflowDefinitionName.of_json in
      make ?clientToken ?exportConfig ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new workflow definition template that can be used to execute multiple workflow runs."]
module CreateSessionResponse =
  struct
    type nonrec t =
      {
      sessionId: UuidString.t option
        [@ocaml.doc "The unique identifier for the created session."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sessionId = fun () -> { sessionId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("sessionId", (Option.map x.sessionId ~f:UuidString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        (Option.map ~f:UuidString.of_xml) (Xml.child xml_arg0 "sessionId") in
      make ?sessionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId = field_map json__ "sessionId" UuidString.of_json in
      make ?sessionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new session context within a workflow run to manage conversation state and acts."]
module CreateSessionRequest =
  struct
    type nonrec t =
      {
      workflowDefinitionName: WorkflowDefinitionName.t
        [@ocaml.doc
          "The name of the workflow definition containing the workflow run."];
      workflowRunId: UuidString.t
        [@ocaml.doc
          "The unique identifier of the workflow run to create the session in."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]}
    let context_ = "CreateSessionRequest"
    let make ?clientToken =
      fun ~workflowDefinitionName ->
        fun ~workflowRunId ->
          fun () -> { clientToken; workflowDefinitionName; workflowRunId }
    let to_value x =
      structure_to_value
        [("workflowDefinitionName",
           (Some (WorkflowDefinitionName.to_value x.workflowDefinitionName)));
        ("workflowRunId", (Some (UuidString.to_value x.workflowRunId)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let workflowRunId =
        UuidString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowRunId") in
      let workflowDefinitionName =
        WorkflowDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowDefinitionName") in
      make ?clientToken ~workflowRunId ~workflowDefinitionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let workflowRunId =
        field_map_exn json__ "workflowRunId" UuidString.of_json in
      let workflowDefinitionName =
        field_map_exn json__ "workflowDefinitionName"
          WorkflowDefinitionName.of_json in
      make ?clientToken ~workflowRunId ~workflowDefinitionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new session context within a workflow run to manage conversation state and acts."]
module CreateActResponse =
  struct
    type nonrec t =
      {
      actId: UuidString.t option
        [@ocaml.doc "The unique identifier for the created act."];
      status: ActStatus.t option
        [@ocaml.doc "The initial status of the act after creation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?actId = fun ?status -> fun () -> { actId; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("actId", (Option.map x.actId ~f:UuidString.to_value));
        ("status", (Option.map x.status ~f:ActStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ActStatus.of_xml) (Xml.child xml_arg0 "status") in
      let actId =
        (Option.map ~f:UuidString.of_xml) (Xml.child xml_arg0 "actId") in
      make ?status ?actId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" ActStatus.of_json in
      let actId = field_map json__ "actId" UuidString.of_json in
      make ?status ?actId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new AI task (act) within a session that can interact with tools and perform specific actions."]
module CreateActRequest =
  struct
    type nonrec t =
      {
      workflowDefinitionName: WorkflowDefinitionName.t
        [@ocaml.doc
          "The name of the workflow definition containing the session."];
      workflowRunId: UuidString.t
        [@ocaml.doc
          "The unique identifier of the workflow run containing the session."];
      sessionId: UuidString.t
        [@ocaml.doc
          "The unique identifier of the session to create the act in."];
      task: Task.t
        [@ocaml.doc
          "The task description that defines what the act should accomplish."];
      toolSpecs: ToolSpecs.t option
        [@ocaml.doc
          "A list of tool specifications that the act can invoke to complete its task."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]}
    let context_ = "CreateActRequest"
    let make ?toolSpecs =
      fun ?clientToken ->
        fun ~workflowDefinitionName ->
          fun ~workflowRunId ->
            fun ~sessionId ->
              fun ~task ->
                fun () ->
                  {
                    toolSpecs;
                    clientToken;
                    workflowDefinitionName;
                    workflowRunId;
                    sessionId;
                    task
                  }
    let to_value x =
      structure_to_value
        [("workflowDefinitionName",
           (Some (WorkflowDefinitionName.to_value x.workflowDefinitionName)));
        ("workflowRunId", (Some (UuidString.to_value x.workflowRunId)));
        ("sessionId", (Some (UuidString.to_value x.sessionId)));
        ("task", (Some (Task.to_value x.task)));
        ("toolSpecs", (Option.map x.toolSpecs ~f:ToolSpecs.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let toolSpecs =
        (Option.map ~f:ToolSpecs.of_xml) (Xml.child xml_arg0 "toolSpecs") in
      let task =
        Task.of_xml (Xml.child_exn ~context:context_ xml_arg0 "task") in
      let sessionId =
        UuidString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let workflowRunId =
        UuidString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowRunId") in
      let workflowDefinitionName =
        WorkflowDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workflowDefinitionName") in
      make ?clientToken ?toolSpecs ~task ~sessionId ~workflowRunId
        ~workflowDefinitionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let toolSpecs = field_map json__ "toolSpecs" ToolSpecs.of_json in
      let task = field_map_exn json__ "task" Task.of_json in
      let sessionId = field_map_exn json__ "sessionId" UuidString.of_json in
      let workflowRunId =
        field_map_exn json__ "workflowRunId" UuidString.of_json in
      let workflowDefinitionName =
        field_map_exn json__ "workflowDefinitionName"
          WorkflowDefinitionName.of_json in
      make ?clientToken ?toolSpecs ~task ~sessionId ~workflowRunId
        ~workflowDefinitionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new AI task (act) within a session that can interact with tools and perform specific actions."]