Source file values.ml

(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Awso
open! Import
[@@@warning "-32"]
let service = Service.sagemaker_a2i_runtime
let apiVersion = "2019-11-07"
let endpointPrefix = "a2i-runtime.sagemaker"
let serviceFullName = "Amazon Augmented AI Runtime"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module ContentClassifier =
  struct
    type nonrec t =
      | FreeOfPersonallyIdentifiableInformation 
      | FreeOfAdultContent 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FreeOfPersonallyIdentifiableInformation ->
          "FreeOfPersonallyIdentifiableInformation"
      | FreeOfAdultContent -> "FreeOfAdultContent"
      | Non_static_id s -> s
    let of_string =
      function
      | "FreeOfPersonallyIdentifiableInformation" ->
          FreeOfPersonallyIdentifiableInformation
      | "FreeOfAdultContent" -> FreeOfAdultContent
      | 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 ContentClassifier" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ContentClassifier" j)
    let to_json = simple_to_json to_value
  end
module FailureReason =
  struct
    type nonrec t = string
    let context_ = "FailureReason"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1024); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FailureReason" j
    let to_json = simple_to_json to_value
  end
module FlowDefinitionArn =
  struct
    type nonrec t = string
    let context_ = "FlowDefinitionArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"arn:aws[a-z\\-]*:sagemaker:[a-z0-9\\-]*:[0-9]{12}:flow-definition/.*"));
        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:"FlowDefinitionArn" j
    let to_json = simple_to_json to_value
  end
module HumanLoopName =
  struct
    type nonrec t = string
    let context_ = "HumanLoopName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[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:"HumanLoopName" j
    let to_json = simple_to_json to_value
  end
module HumanLoopStatus =
  struct
    type nonrec t =
      | InProgress 
      | Failed 
      | Completed 
      | Stopped 
      | Stopping 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | InProgress -> "InProgress"
      | Failed -> "Failed"
      | Completed -> "Completed"
      | Stopped -> "Stopped"
      | Stopping -> "Stopping"
      | Non_static_id s -> s
    let of_string =
      function
      | "InProgress" -> InProgress
      | "Failed" -> Failed
      | "Completed" -> Completed
      | "Stopped" -> Stopped
      | "Stopping" -> Stopping
      | 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 HumanLoopStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HumanLoopStatus" j)
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module ContentClassifiers =
  struct
    type nonrec t = ContentClassifier.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:256); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ContentClassifier.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:ContentClassifier.of_xml)
    let of_json j =
      list_of_json ~kind:"ContentClassifiers"
        ~of_json:ContentClassifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module InputContent =
  struct
    type nonrec t = string
    let context_ = "InputContent"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:3145728); 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:"InputContent" j
    let to_json = simple_to_json to_value
  end
module HumanLoopSummary =
  struct
    type nonrec t =
      {
      humanLoopName: HumanLoopName.t option
        [@ocaml.doc "The name of the human loop."];
      humanLoopStatus: HumanLoopStatus.t option
        [@ocaml.doc "The status of the human loop."];
      creationTime: Timestamp.t option
        [@ocaml.doc "When Amazon Augmented AI created the human loop."];
      failureReason: FailureReason.t option
        [@ocaml.doc
          "The reason why the human loop failed. A failure reason is returned when the status of the human loop is Failed."];
      flowDefinitionArn: FlowDefinitionArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the flow definition used to configure the human loop."]}
    let make ?humanLoopName =
      fun ?humanLoopStatus ->
        fun ?creationTime ->
          fun ?failureReason ->
            fun ?flowDefinitionArn ->
              fun () ->
                {
                  humanLoopName;
                  humanLoopStatus;
                  creationTime;
                  failureReason;
                  flowDefinitionArn
                }
    let to_value x =
      structure_to_value
        [("HumanLoopName",
           (Option.map x.humanLoopName ~f:HumanLoopName.to_value));
        ("HumanLoopStatus",
          (Option.map x.humanLoopStatus ~f:HumanLoopStatus.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("FailureReason",
          (Option.map x.failureReason ~f:FailureReason.to_value));
        ("FlowDefinitionArn",
          (Option.map x.flowDefinitionArn ~f:FlowDefinitionArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let flowDefinitionArn =
        (Option.map ~f:FlowDefinitionArn.of_xml)
          (Xml.child xml_arg0 "FlowDefinitionArn") in
      let failureReason =
        (Option.map ~f:FailureReason.of_xml)
          (Xml.child xml_arg0 "FailureReason") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let humanLoopStatus =
        (Option.map ~f:HumanLoopStatus.of_xml)
          (Xml.child xml_arg0 "HumanLoopStatus") in
      let humanLoopName =
        (Option.map ~f:HumanLoopName.of_xml)
          (Xml.child xml_arg0 "HumanLoopName") in
      make ?flowDefinitionArn ?failureReason ?creationTime ?humanLoopStatus
        ?humanLoopName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let flowDefinitionArn =
        field_map json__ "FlowDefinitionArn" FlowDefinitionArn.of_json in
      let failureReason =
        field_map json__ "FailureReason" FailureReason.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let humanLoopStatus =
        field_map json__ "HumanLoopStatus" HumanLoopStatus.of_json in
      let humanLoopName =
        field_map json__ "HumanLoopName" HumanLoopName.of_json in
      make ?flowDefinitionArn ?failureReason ?creationTime ?humanLoopStatus
        ?humanLoopName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about the human loop."]
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 InternalServerException =
  struct
    type nonrec t = {
      message: FailureReason.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:FailureReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:FailureReason.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" FailureReason.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "We couldn't process your request because of an issue with the server. Try again later."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: FailureReason.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:FailureReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:FailureReason.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" FailureReason.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "We couldn't find the requested resource. Check that your resources exists and were created in the same AWS Region as your request, and try your request again."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: FailureReason.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:FailureReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:FailureReason.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" FailureReason.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "You exceeded the maximum number of requests."]
module ValidationException =
  struct
    type nonrec t = {
      message: FailureReason.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:FailureReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:FailureReason.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" FailureReason.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request isn't valid. Check the syntax and try again."]
module ConflictException =
  struct
    type nonrec t = {
      message: FailureReason.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:FailureReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:FailureReason.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" FailureReason.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Your request has the same name as another active human loop but has different input data. You cannot start two human loops with the same name and different input data."]
module HumanLoopArn =
  struct
    type nonrec t = string
    let context_ = "HumanLoopArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"arn:aws[a-z\\-]*:sagemaker:[a-z0-9\\-]*:[0-9]{12}:human-loop/.*"));
        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:"HumanLoopArn" j
    let to_json = simple_to_json to_value
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: FailureReason.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:FailureReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:FailureReason.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" FailureReason.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You exceeded your service quota. Service quotas, also referred to as limits, are the maximum number of service resources or operations for your AWS account. For a list of Amazon A2I service quotes, see Amazon Augmented AI Service Quotes. Delete some resources or request an increase in your service quota. You can request a quota increase using Service Quotas or the AWS Support Center. To request an increase, see AWS Service Quotas in the AWS General Reference."]
module HumanLoopDataAttributes =
  struct
    type nonrec t =
      {
      contentClassifiers: ContentClassifiers.t
        [@ocaml.doc
          "Declares that your content is free of personally identifiable information or adult content. Amazon SageMaker can restrict the Amazon Mechanical Turk workers who can view your task based on this information."]}
    let context_ = "HumanLoopDataAttributes"
    let make ~contentClassifiers = fun () -> { contentClassifiers }
    let to_value x =
      structure_to_value
        [("ContentClassifiers",
           (Some (ContentClassifiers.to_value x.contentClassifiers)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contentClassifiers =
        ContentClassifiers.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContentClassifiers") in
      make ~contentClassifiers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contentClassifiers =
        field_map_exn json__ "ContentClassifiers" ContentClassifiers.of_json in
      make ~contentClassifiers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attributes of the data specified by the customer. Use these to describe the data to be labeled."]
module HumanLoopInput =
  struct
    type nonrec t =
      {
      inputContent: InputContent.t
        [@ocaml.doc
          "Serialized input from the human loop. The input must be a string representation of a file in JSON format."]}
    let context_ = "HumanLoopInput"
    let make ~inputContent = fun () -> { inputContent }
    let to_value x =
      structure_to_value
        [("InputContent", (Some (InputContent.to_value x.inputContent)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputContent =
        InputContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InputContent") in
      make ~inputContent ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputContent =
        field_map_exn json__ "InputContent" InputContent.of_json in
      make ~inputContent ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object containing the human loop input in JSON format."]
module HumanLoopSummaries =
  struct
    type nonrec t = HumanLoopSummary.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:HumanLoopSummary.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:HumanLoopSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"HumanLoopSummaries"
        ~of_json:HumanLoopSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:8192) >>=
             (fun () -> check_pattern i ~pattern:".*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  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 HumanLoopOutput =
  struct
    type nonrec t =
      {
      outputS3Uri: String_.t option
        [@ocaml.doc
          "The location of the Amazon S3 object where Amazon Augmented AI stores your human loop output."]}
    let make ?outputS3Uri = fun () -> { outputS3Uri }
    let to_value x =
      structure_to_value
        [("OutputS3Uri", (Option.map x.outputS3Uri ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outputS3Uri =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "OutputS3Uri") in
      make ?outputS3Uri ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outputS3Uri = field_map json__ "OutputS3Uri" String_.of_json in
      make ?outputS3Uri ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about where the human output will be stored."]
module StopHumanLoopResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `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
      | "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
      | "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
      | `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 "Stops the specified human loop."]
module StopHumanLoopRequest =
  struct
    type nonrec t =
      {
      humanLoopName: HumanLoopName.t
        [@ocaml.doc "The name of the human loop that you want to stop."]}
    let context_ = "StopHumanLoopRequest"
    let make ~humanLoopName = fun () -> { humanLoopName }
    let to_value x =
      structure_to_value
        [("HumanLoopName", (Some (HumanLoopName.to_value x.humanLoopName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let humanLoopName =
        HumanLoopName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "HumanLoopName") in
      make ~humanLoopName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let humanLoopName =
        field_map_exn json__ "HumanLoopName" HumanLoopName.of_json in
      make ~humanLoopName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops the specified human loop."]
module StartHumanLoopResponse =
  struct
    type nonrec t =
      {
      humanLoopArn: HumanLoopArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the human loop."]}
    type nonrec error =
      [ `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 ?humanLoopArn = fun () -> { humanLoopArn }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("HumanLoopArn",
           (Option.map x.humanLoopArn ~f:HumanLoopArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let humanLoopArn =
        (Option.map ~f:HumanLoopArn.of_xml)
          (Xml.child xml_arg0 "HumanLoopArn") in
      make ?humanLoopArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let humanLoopArn = field_map json__ "HumanLoopArn" HumanLoopArn.of_json in
      make ?humanLoopArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a human loop, provided that at least one activation condition is met."]
module StartHumanLoopRequest =
  struct
    type nonrec t =
      {
      humanLoopName: HumanLoopName.t
        [@ocaml.doc "The name of the human loop."];
      flowDefinitionArn: FlowDefinitionArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the flow definition associated with this human loop."];
      humanLoopInput: HumanLoopInput.t
        [@ocaml.doc
          "An object that contains information about the human loop."];
      dataAttributes: HumanLoopDataAttributes.t option
        [@ocaml.doc
          "Attributes of the specified data. Use DataAttributes to specify if your data is free of personally identifiable information and/or free of adult content."]}
    let context_ = "StartHumanLoopRequest"
    let make ?dataAttributes =
      fun ~humanLoopName ->
        fun ~flowDefinitionArn ->
          fun ~humanLoopInput ->
            fun () ->
              {
                dataAttributes;
                humanLoopName;
                flowDefinitionArn;
                humanLoopInput
              }
    let to_value x =
      structure_to_value
        [("HumanLoopName", (Some (HumanLoopName.to_value x.humanLoopName)));
        ("FlowDefinitionArn",
          (Some (FlowDefinitionArn.to_value x.flowDefinitionArn)));
        ("HumanLoopInput", (Some (HumanLoopInput.to_value x.humanLoopInput)));
        ("DataAttributes",
          (Option.map x.dataAttributes ~f:HumanLoopDataAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataAttributes =
        (Option.map ~f:HumanLoopDataAttributes.of_xml)
          (Xml.child xml_arg0 "DataAttributes") in
      let humanLoopInput =
        HumanLoopInput.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "HumanLoopInput") in
      let flowDefinitionArn =
        FlowDefinitionArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FlowDefinitionArn") in
      let humanLoopName =
        HumanLoopName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "HumanLoopName") in
      make ?dataAttributes ~humanLoopInput ~flowDefinitionArn ~humanLoopName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataAttributes =
        field_map json__ "DataAttributes" HumanLoopDataAttributes.of_json in
      let humanLoopInput =
        field_map_exn json__ "HumanLoopInput" HumanLoopInput.of_json in
      let flowDefinitionArn =
        field_map_exn json__ "FlowDefinitionArn" FlowDefinitionArn.of_json in
      let humanLoopName =
        field_map_exn json__ "HumanLoopName" HumanLoopName.of_json in
      make ?dataAttributes ~humanLoopInput ~flowDefinitionArn ~humanLoopName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a human loop, provided that at least one activation condition is met."]
module ListHumanLoopsResponse =
  struct
    type nonrec t =
      {
      humanLoopSummaries: HumanLoopSummaries.t option
        [@ocaml.doc
          "An array of objects that contain information about the human loops."];
      nextToken: NextToken.t option
        [@ocaml.doc "A token to display the next page of results."]}
    type nonrec error =
      [ `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 ?humanLoopSummaries =
      fun ?nextToken -> fun () -> { humanLoopSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("HumanLoopSummaries",
           (Option.map x.humanLoopSummaries ~f:HumanLoopSummaries.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 humanLoopSummaries =
        (Option.map ~f:HumanLoopSummaries.of_xml)
          (Xml.child xml_arg0 "HumanLoopSummaries") in
      make ?nextToken ?humanLoopSummaries ()
    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 humanLoopSummaries =
        field_map json__ "HumanLoopSummaries" HumanLoopSummaries.of_json in
      make ?nextToken ?humanLoopSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about human loops, given the specified parameters. If a human loop was deleted, it will not be included."]
module ListHumanLoopsRequest =
  struct
    type nonrec t =
      {
      creationTimeAfter: Timestamp.t option
        [@ocaml.doc
          "(Optional) The timestamp of the date when you want the human loops to begin in ISO 8601 format. For example, 2020-02-24."];
      creationTimeBefore: Timestamp.t option
        [@ocaml.doc
          "(Optional) The timestamp of the date before which you want the human loops to begin in ISO 8601 format. For example, 2020-02-24."];
      flowDefinitionArn: FlowDefinitionArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of a flow definition."];
      sortOrder: SortOrder.t option
        [@ocaml.doc
          "Optional. The order for displaying results. Valid values: Ascending and Descending."];
      nextToken: NextToken.t option
        [@ocaml.doc "A token to display the next page of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The total number of items to return. If the total number of available items is more than the value specified in MaxResults, then a NextToken is returned in the output. You can use this token to display the next page of results."]}
    let context_ = "ListHumanLoopsRequest"
    let make ?creationTimeAfter =
      fun ?creationTimeBefore ->
        fun ?sortOrder ->
          fun ?nextToken ->
            fun ?maxResults ->
              fun ~flowDefinitionArn ->
                fun () ->
                  {
                    creationTimeAfter;
                    creationTimeBefore;
                    sortOrder;
                    nextToken;
                    maxResults;
                    flowDefinitionArn
                  }
    let to_value x =
      structure_to_value
        [("CreationTimeAfter",
           (Option.map x.creationTimeAfter ~f:Timestamp.to_value));
        ("CreationTimeBefore",
          (Option.map x.creationTimeBefore ~f:Timestamp.to_value));
        ("FlowDefinitionArn",
          (Some (FlowDefinitionArn.to_value x.flowDefinitionArn)));
        ("SortOrder", (Option.map x.sortOrder ~f:SortOrder.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let sortOrder =
        (Option.map ~f:SortOrder.of_xml) (Xml.child xml_arg0 "SortOrder") in
      let flowDefinitionArn =
        FlowDefinitionArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FlowDefinitionArn") in
      let creationTimeBefore =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreationTimeBefore") in
      let creationTimeAfter =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreationTimeAfter") in
      make ?maxResults ?nextToken ?sortOrder ~flowDefinitionArn
        ?creationTimeBefore ?creationTimeAfter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let sortOrder = field_map json__ "SortOrder" SortOrder.of_json in
      let flowDefinitionArn =
        field_map_exn json__ "FlowDefinitionArn" FlowDefinitionArn.of_json in
      let creationTimeBefore =
        field_map json__ "CreationTimeBefore" Timestamp.of_json in
      let creationTimeAfter =
        field_map json__ "CreationTimeAfter" Timestamp.of_json in
      make ?maxResults ?nextToken ?sortOrder ~flowDefinitionArn
        ?creationTimeBefore ?creationTimeAfter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about human loops, given the specified parameters. If a human loop was deleted, it will not be included."]
module DescribeHumanLoopResponse =
  struct
    type nonrec t =
      {
      creationTime: Timestamp.t option
        [@ocaml.doc
          "The creation time when Amazon Augmented AI created the human loop."];
      failureReason: String_.t option
        [@ocaml.doc
          "The reason why a human loop failed. The failure reason is returned when the status of the human loop is Failed."];
      failureCode: String_.t option
        [@ocaml.doc
          "A failure code that identifies the type of failure. Possible values: ValidationError, Expired, InternalError"];
      humanLoopStatus: HumanLoopStatus.t option
        [@ocaml.doc "The status of the human loop."];
      humanLoopName: HumanLoopName.t option
        [@ocaml.doc
          "The name of the human loop. The name must be lowercase, unique within the Region in your account, and can have up to 63 characters. Valid characters: a-z, 0-9, and - (hyphen)."];
      humanLoopArn: HumanLoopArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the human loop."];
      flowDefinitionArn: FlowDefinitionArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the flow definition."];
      humanLoopOutput: HumanLoopOutput.t option
        [@ocaml.doc
          "An object that contains information about the output of the human loop."]}
    type nonrec error =
      [ `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 ?creationTime =
      fun ?failureReason ->
        fun ?failureCode ->
          fun ?humanLoopStatus ->
            fun ?humanLoopName ->
              fun ?humanLoopArn ->
                fun ?flowDefinitionArn ->
                  fun ?humanLoopOutput ->
                    fun () ->
                      {
                        creationTime;
                        failureReason;
                        failureCode;
                        humanLoopStatus;
                        humanLoopName;
                        humanLoopArn;
                        flowDefinitionArn;
                        humanLoopOutput
                      }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("FailureReason", (Option.map x.failureReason ~f:String_.to_value));
        ("FailureCode", (Option.map x.failureCode ~f:String_.to_value));
        ("HumanLoopStatus",
          (Option.map x.humanLoopStatus ~f:HumanLoopStatus.to_value));
        ("HumanLoopName",
          (Option.map x.humanLoopName ~f:HumanLoopName.to_value));
        ("HumanLoopArn",
          (Option.map x.humanLoopArn ~f:HumanLoopArn.to_value));
        ("FlowDefinitionArn",
          (Option.map x.flowDefinitionArn ~f:FlowDefinitionArn.to_value));
        ("HumanLoopOutput",
          (Option.map x.humanLoopOutput ~f:HumanLoopOutput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let humanLoopOutput =
        (Option.map ~f:HumanLoopOutput.of_xml)
          (Xml.child xml_arg0 "HumanLoopOutput") in
      let flowDefinitionArn =
        (Option.map ~f:FlowDefinitionArn.of_xml)
          (Xml.child xml_arg0 "FlowDefinitionArn") in
      let humanLoopArn =
        (Option.map ~f:HumanLoopArn.of_xml)
          (Xml.child xml_arg0 "HumanLoopArn") in
      let humanLoopName =
        (Option.map ~f:HumanLoopName.of_xml)
          (Xml.child xml_arg0 "HumanLoopName") in
      let humanLoopStatus =
        (Option.map ~f:HumanLoopStatus.of_xml)
          (Xml.child xml_arg0 "HumanLoopStatus") in
      let failureCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "FailureCode") in
      let failureReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "FailureReason") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      make ?humanLoopOutput ?flowDefinitionArn ?humanLoopArn ?humanLoopName
        ?humanLoopStatus ?failureCode ?failureReason ?creationTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let humanLoopOutput =
        field_map json__ "HumanLoopOutput" HumanLoopOutput.of_json in
      let flowDefinitionArn =
        field_map json__ "FlowDefinitionArn" FlowDefinitionArn.of_json in
      let humanLoopArn = field_map json__ "HumanLoopArn" HumanLoopArn.of_json in
      let humanLoopName =
        field_map json__ "HumanLoopName" HumanLoopName.of_json in
      let humanLoopStatus =
        field_map json__ "HumanLoopStatus" HumanLoopStatus.of_json in
      let failureCode = field_map json__ "FailureCode" String_.of_json in
      let failureReason = field_map json__ "FailureReason" String_.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      make ?humanLoopOutput ?flowDefinitionArn ?humanLoopArn ?humanLoopName
        ?humanLoopStatus ?failureCode ?failureReason ?creationTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the specified human loop. If the human loop was deleted, this operation will return a ResourceNotFoundException error."]
module DescribeHumanLoopRequest =
  struct
    type nonrec t =
      {
      humanLoopName: HumanLoopName.t
        [@ocaml.doc
          "The name of the human loop that you want information about."]}
    let context_ = "DescribeHumanLoopRequest"
    let make ~humanLoopName = fun () -> { humanLoopName }
    let to_value x =
      structure_to_value
        [("HumanLoopName", (Some (HumanLoopName.to_value x.humanLoopName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let humanLoopName =
        HumanLoopName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "HumanLoopName") in
      make ~humanLoopName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let humanLoopName =
        field_map_exn json__ "HumanLoopName" HumanLoopName.of_json in
      make ~humanLoopName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the specified human loop. If the human loop was deleted, this operation will return a ResourceNotFoundException error."]
module DeleteHumanLoopResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `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
      | "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
      | "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
      | `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
       "Deletes the specified human loop for a flow definition. If the human loop was deleted, this operation will return a ResourceNotFoundException."]
module DeleteHumanLoopRequest =
  struct
    type nonrec t =
      {
      humanLoopName: HumanLoopName.t
        [@ocaml.doc "The name of the human loop that you want to delete."]}
    let context_ = "DeleteHumanLoopRequest"
    let make ~humanLoopName = fun () -> { humanLoopName }
    let to_value x =
      structure_to_value
        [("HumanLoopName", (Some (HumanLoopName.to_value x.humanLoopName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let humanLoopName =
        HumanLoopName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "HumanLoopName") in
      make ~humanLoopName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let humanLoopName =
        field_map_exn json__ "HumanLoopName" HumanLoopName.of_json in
      make ~humanLoopName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified human loop for a flow definition. If the human loop was deleted, this operation will return a ResourceNotFoundException."]