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.frauddetector
let apiVersion = "2019-11-15"
let endpointPrefix = "frauddetector"
let serviceFullName = "Amazon Fraud Detector"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "AWSHawksNestServiceFacade"
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 ListOfStrings =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfStrings" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Float_ =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Float x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a float" xml_arg0)
    let of_json j = float_of_json ~kind:"a float" j
    let to_json = simple_to_json to_value
  end
module AggregatedVariablesImpactExplanation =
  struct
    type nonrec t =
      {
      eventVariableNames: ListOfStrings.t option
        [@ocaml.doc
          "The names of all the event variables that were used to derive the aggregated variables."];
      relativeImpact: String_.t option
        [@ocaml.doc
          "The relative impact of the aggregated variables in terms of magnitude on the prediction scores."];
      logOddsImpact: Float_.t option
        [@ocaml.doc
          "The raw, uninterpreted value represented as log-odds of the fraud. These values are usually between -10 to +10, but range from -infinity to +infinity. A positive value indicates that the variables drove the risk score up. A negative value indicates that the variables drove the risk score down."]}
    let make ?eventVariableNames =
      fun ?relativeImpact ->
        fun ?logOddsImpact ->
          fun () -> { eventVariableNames; relativeImpact; logOddsImpact }
    let to_value x =
      structure_to_value
        [("eventVariableNames",
           (Option.map x.eventVariableNames ~f:ListOfStrings.to_value));
        ("relativeImpact", (Option.map x.relativeImpact ~f:String_.to_value));
        ("logOddsImpact", (Option.map x.logOddsImpact ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logOddsImpact =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "logOddsImpact") in
      let relativeImpact =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "relativeImpact") in
      let eventVariableNames =
        (Option.map ~f:ListOfStrings.of_xml)
          (Xml.child xml_arg0 "eventVariableNames") in
      make ?logOddsImpact ?relativeImpact ?eventVariableNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logOddsImpact = field_map json__ "logOddsImpact" Float_.of_json in
      let relativeImpact = field_map json__ "relativeImpact" String_.of_json in
      let eventVariableNames =
        field_map json__ "eventVariableNames" ListOfStrings.of_json in
      make ?logOddsImpact ?relativeImpact ?eventVariableNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of the impact of aggregated variables on the prediction score. Account Takeover Insights (ATI) model uses the login data you provide to continuously calculate a set of variables (aggregated variables) based on historical events. For example, the model might calculate the number of times an user has logged in using the same IP address. In this case, event variables used to derive the aggregated variables are IP address and user."]
module VariableImpactExplanation =
  struct
    type nonrec t =
      {
      eventVariableName: String_.t option
        [@ocaml.doc "The event variable name."];
      relativeImpact: String_.t option
        [@ocaml.doc
          "The event variable's relative impact in terms of magnitude on the prediction scores. The relative impact values consist of a numerical rating (0-5, 5 being the highest) and direction (increased/decreased) impact of the fraud risk."];
      logOddsImpact: Float_.t option
        [@ocaml.doc
          "The raw, uninterpreted value represented as log-odds of the fraud. These values are usually between -10 to +10, but range from - infinity to + infinity. A positive value indicates that the variable drove the risk score up. A negative value indicates that the variable drove the risk score down."]}
    let make ?eventVariableName =
      fun ?relativeImpact ->
        fun ?logOddsImpact ->
          fun () -> { eventVariableName; relativeImpact; logOddsImpact }
    let to_value x =
      structure_to_value
        [("eventVariableName",
           (Option.map x.eventVariableName ~f:String_.to_value));
        ("relativeImpact", (Option.map x.relativeImpact ~f:String_.to_value));
        ("logOddsImpact", (Option.map x.logOddsImpact ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logOddsImpact =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "logOddsImpact") in
      let relativeImpact =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "relativeImpact") in
      let eventVariableName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "eventVariableName") in
      make ?logOddsImpact ?relativeImpact ?eventVariableName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logOddsImpact = field_map json__ "logOddsImpact" Float_.of_json in
      let relativeImpact = field_map json__ "relativeImpact" String_.of_json in
      let eventVariableName =
        field_map json__ "eventVariableName" String_.of_json in
      make ?logOddsImpact ?relativeImpact ?eventVariableName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of the event variable's impact on the prediction score."]
module ATIMetricDataPoint =
  struct
    type nonrec t =
      {
      cr: Float_.t option
        [@ocaml.doc
          "The challenge rate. This indicates the percentage of login events that the model recommends to challenge such as one-time password, multi-factor authentication, and investigations."];
      adr: Float_.t option
        [@ocaml.doc
          "The anomaly discovery rate. This metric quantifies the percentage of anomalies that can be detected by the model at the selected score threshold. A lower score threshold increases the percentage of anomalies captured by the model, but would also require challenging a larger percentage of login events, leading to a higher customer friction."];
      threshold: Float_.t option
        [@ocaml.doc
          "The model's threshold that specifies an acceptable fraud capture rate. For example, a threshold of 500 means any model score 500 or above is labeled as fraud."];
      atodr: Float_.t option
        [@ocaml.doc
          "The account takeover discovery rate. This metric quantifies the percentage of account compromise events that can be detected by the model at the selected score threshold. This metric is only available if 50 or more entities with at-least one labeled account takeover event is present in the ingested dataset."]}
    let make ?cr =
      fun ?adr ->
        fun ?threshold ->
          fun ?atodr -> fun () -> { cr; adr; threshold; atodr }
    let to_value x =
      structure_to_value
        [("cr", (Option.map x.cr ~f:Float_.to_value));
        ("adr", (Option.map x.adr ~f:Float_.to_value));
        ("threshold", (Option.map x.threshold ~f:Float_.to_value));
        ("atodr", (Option.map x.atodr ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let atodr = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "atodr") in
      let threshold =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "threshold") in
      let adr = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "adr") in
      let cr = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "cr") in
      make ?atodr ?threshold ?adr ?cr ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let atodr = field_map json__ "atodr" Float_.of_json in
      let threshold = field_map json__ "threshold" Float_.of_json in
      let adr = field_map json__ "adr" Float_.of_json in
      let cr = field_map json__ "cr" Float_.of_json in
      make ?atodr ?threshold ?adr ?cr ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Account Takeover Insights (ATI) model performance metrics data points."]
module OFIMetricDataPoint =
  struct
    type nonrec t =
      {
      fpr: Float_.t option
        [@ocaml.doc
          "The false positive rate. This is the percentage of total legitimate events that are incorrectly predicted as fraud."];
      precision: Float_.t option
        [@ocaml.doc
          "The percentage of fraud events correctly predicted as fraudulent as compared to all events predicted as fraudulent."];
      tpr: Float_.t option
        [@ocaml.doc
          "The true positive rate. This is the percentage of total fraud the model detects. Also known as capture rate."];
      threshold: Float_.t option
        [@ocaml.doc
          "The model threshold that specifies an acceptable fraud capture rate. For example, a threshold of 500 means any model score 500 or above is labeled as fraud."]}
    let make ?fpr =
      fun ?precision ->
        fun ?tpr ->
          fun ?threshold -> fun () -> { fpr; precision; tpr; threshold }
    let to_value x =
      structure_to_value
        [("fpr", (Option.map x.fpr ~f:Float_.to_value));
        ("precision", (Option.map x.precision ~f:Float_.to_value));
        ("tpr", (Option.map x.tpr ~f:Float_.to_value));
        ("threshold", (Option.map x.threshold ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let threshold =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "threshold") in
      let tpr = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "tpr") in
      let precision =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "precision") in
      let fpr = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "fpr") in
      make ?threshold ?tpr ?precision ?fpr ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let threshold = field_map json__ "threshold" Float_.of_json in
      let tpr = field_map json__ "tpr" Float_.of_json in
      let precision = field_map json__ "precision" Float_.of_json in
      let fpr = field_map json__ "fpr" Float_.of_json in
      make ?threshold ?tpr ?precision ?fpr ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Online Fraud Insights (OFI) model performance metrics data points."]
module UncertaintyRange =
  struct
    type nonrec t =
      {
      lowerBoundValue: Float_.t option
        [@ocaml.doc "The lower bound value of the area under curve (auc)."];
      upperBoundValue: Float_.t option
        [@ocaml.doc "The upper bound value of the area under curve (auc)."]}
    let make ?lowerBoundValue =
      fun ?upperBoundValue -> fun () -> { lowerBoundValue; upperBoundValue }
    let to_value x =
      structure_to_value
        [("lowerBoundValue",
           (Option.map x.lowerBoundValue ~f:Float_.to_value));
        ("upperBoundValue",
          (Option.map x.upperBoundValue ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let upperBoundValue =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "upperBoundValue") in
      let lowerBoundValue =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "lowerBoundValue") in
      make ?upperBoundValue ?lowerBoundValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let upperBoundValue = field_map json__ "upperBoundValue" Float_.of_json in
      let lowerBoundValue = field_map json__ "lowerBoundValue" Float_.of_json in
      make ?upperBoundValue ?lowerBoundValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Range of area under curve (auc) expected from the model. A range greater than 0.1 indicates higher model uncertainity. A range is the difference between upper and lower bound of auc."]
module TFIMetricDataPoint =
  struct
    type nonrec t =
      {
      fpr: Float_.t option
        [@ocaml.doc
          "The false positive rate. This is the percentage of total legitimate events that are incorrectly predicted as fraud."];
      precision: Float_.t option
        [@ocaml.doc
          "The percentage of fraud events correctly predicted as fraudulent as compared to all events predicted as fraudulent."];
      tpr: Float_.t option
        [@ocaml.doc
          "The true positive rate. This is the percentage of total fraud the model detects. Also known as capture rate."];
      threshold: Float_.t option
        [@ocaml.doc
          "The model threshold that specifies an acceptable fraud capture rate. For example, a threshold of 500 means any model score 500 or above is labeled as fraud."]}
    let make ?fpr =
      fun ?precision ->
        fun ?tpr ->
          fun ?threshold -> fun () -> { fpr; precision; tpr; threshold }
    let to_value x =
      structure_to_value
        [("fpr", (Option.map x.fpr ~f:Float_.to_value));
        ("precision", (Option.map x.precision ~f:Float_.to_value));
        ("tpr", (Option.map x.tpr ~f:Float_.to_value));
        ("threshold", (Option.map x.threshold ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let threshold =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "threshold") in
      let tpr = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "tpr") in
      let precision =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "precision") in
      let fpr = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "fpr") in
      make ?threshold ?tpr ?precision ?fpr ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let threshold = field_map json__ "threshold" Float_.of_json in
      let tpr = field_map json__ "tpr" Float_.of_json in
      let precision = field_map json__ "precision" Float_.of_json in
      let fpr = field_map json__ "fpr" Float_.of_json in
      make ?threshold ?tpr ?precision ?fpr ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The performance metrics data points for Transaction Fraud Insights (TFI) model."]
module ListOfAggregatedVariablesImpactExplanations =
  struct
    type nonrec t = AggregatedVariablesImpactExplanation.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:AggregatedVariablesImpactExplanation.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:AggregatedVariablesImpactExplanation.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfAggregatedVariablesImpactExplanations"
        ~of_json:AggregatedVariablesImpactExplanation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOfVariableImpactExplanations =
  struct
    type nonrec t = VariableImpactExplanation.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:VariableImpactExplanation.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:VariableImpactExplanation.of_xml)
    let of_json j =
      list_of_json ~kind:"listOfVariableImpactExplanations"
        ~of_json:VariableImpactExplanation.of_json j
    let to_json v = composed_to_json to_value v
  end
module FieldValidationMessage =
  struct
    type nonrec t =
      {
      fieldName: String_.t option [@ocaml.doc "The field name."];
      identifier: String_.t option [@ocaml.doc "The message ID."];
      title: String_.t option [@ocaml.doc "The message title."];
      content: String_.t option [@ocaml.doc "The message content."];
      type_: String_.t option [@ocaml.doc "The message type."]}
    let make ?fieldName =
      fun ?identifier ->
        fun ?title ->
          fun ?content ->
            fun ?type_ ->
              fun () -> { fieldName; identifier; title; content; type_ }
    let to_value x =
      structure_to_value
        [("fieldName", (Option.map x.fieldName ~f:String_.to_value));
        ("identifier", (Option.map x.identifier ~f:String_.to_value));
        ("title", (Option.map x.title ~f:String_.to_value));
        ("content", (Option.map x.content ~f:String_.to_value));
        ("type", (Option.map x.type_ ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      let content =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "content") in
      let title = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "title") in
      let identifier =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "identifier") in
      let fieldName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "fieldName") in
      make ?type_ ?content ?title ?identifier ?fieldName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "type" String_.of_json in
      let content = field_map json__ "content" String_.of_json in
      let title = field_map json__ "title" String_.of_json in
      let identifier = field_map json__ "identifier" String_.of_json in
      let fieldName = field_map json__ "fieldName" String_.of_json in
      make ?type_ ?content ?title ?identifier ?fieldName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The message details."]
module FileValidationMessage =
  struct
    type nonrec t =
      {
      title: String_.t option [@ocaml.doc "The message title."];
      content: String_.t option [@ocaml.doc "The message content."];
      type_: String_.t option [@ocaml.doc "The message type."]}
    let make ?title =
      fun ?content -> fun ?type_ -> fun () -> { title; content; type_ }
    let to_value x =
      structure_to_value
        [("title", (Option.map x.title ~f:String_.to_value));
        ("content", (Option.map x.content ~f:String_.to_value));
        ("type", (Option.map x.type_ ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "type") in
      let content =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "content") in
      let title = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "title") in
      make ?type_ ?content ?title ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "type" String_.of_json in
      let content = field_map json__ "content" String_.of_json in
      let title = field_map json__ "title" String_.of_json in
      make ?type_ ?content ?title ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The message details."]
module MetricDataPoint =
  struct
    type nonrec t =
      {
      fpr: Float_.t option
        [@ocaml.doc
          "The false positive rate. This is the percentage of total legitimate events that are incorrectly predicted as fraud."];
      precision: Float_.t option
        [@ocaml.doc
          "The percentage of fraud events correctly predicted as fraudulent as compared to all events predicted as fraudulent."];
      tpr: Float_.t option
        [@ocaml.doc
          "The true positive rate. This is the percentage of total fraud the model detects. Also known as capture rate."];
      threshold: Float_.t option
        [@ocaml.doc
          "The model threshold that specifies an acceptable fraud capture rate. For example, a threshold of 500 means any model score 500 or above is labeled as fraud."]}
    let make ?fpr =
      fun ?precision ->
        fun ?tpr ->
          fun ?threshold -> fun () -> { fpr; precision; tpr; threshold }
    let to_value x =
      structure_to_value
        [("fpr", (Option.map x.fpr ~f:Float_.to_value));
        ("precision", (Option.map x.precision ~f:Float_.to_value));
        ("tpr", (Option.map x.tpr ~f:Float_.to_value));
        ("threshold", (Option.map x.threshold ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let threshold =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "threshold") in
      let tpr = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "tpr") in
      let precision =
        (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "precision") in
      let fpr = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "fpr") in
      make ?threshold ?tpr ?precision ?fpr ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let threshold = field_map json__ "threshold" Float_.of_json in
      let tpr = field_map json__ "tpr" Float_.of_json in
      let precision = field_map json__ "precision" Float_.of_json in
      let fpr = field_map json__ "fpr" Float_.of_json in
      make ?threshold ?tpr ?precision ?fpr ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Model performance metrics data points."]
module LogOddsMetric =
  struct
    type nonrec t =
      {
      variableName: String_.t option [@ocaml.doc "The name of the variable."];
      variableType: String_.t option [@ocaml.doc "The type of variable."];
      variableImportance: Float_.t option
        [@ocaml.doc
          "The relative importance of the variable. For more information, see Model variable importance."]}
    let make ?variableName =
      fun ?variableType ->
        fun ?variableImportance ->
          fun () -> { variableName; variableType; variableImportance }
    let to_value x =
      structure_to_value
        [("variableName", (Option.map x.variableName ~f:String_.to_value));
        ("variableType", (Option.map x.variableType ~f:String_.to_value));
        ("variableImportance",
          (Option.map x.variableImportance ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let variableImportance =
        (Option.map ~f:Float_.of_xml)
          (Xml.child xml_arg0 "variableImportance") in
      let variableType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "variableType") in
      let variableName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "variableName") in
      make ?variableImportance ?variableType ?variableName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let variableImportance =
        field_map json__ "variableImportance" Float_.of_json in
      let variableType = field_map json__ "variableType" String_.of_json in
      let variableName = field_map json__ "variableName" String_.of_json in
      make ?variableImportance ?variableType ?variableName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The log odds metric details."]
module AggregatedLogOddsMetric =
  struct
    type nonrec t =
      {
      variableNames: ListOfStrings.t option
        [@ocaml.doc "The names of all the variables."];
      aggregatedVariablesImportance: Float_.t option
        [@ocaml.doc
          "The relative importance of the variables in the list to the other event variable."]}
    let make ?variableNames =
      fun ?aggregatedVariablesImportance ->
        fun () -> { variableNames; aggregatedVariablesImportance }
    let to_value x =
      structure_to_value
        [("variableNames",
           (Option.map x.variableNames ~f:ListOfStrings.to_value));
        ("aggregatedVariablesImportance",
          (Option.map x.aggregatedVariablesImportance ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aggregatedVariablesImportance =
        (Option.map ~f:Float_.of_xml)
          (Xml.child xml_arg0 "aggregatedVariablesImportance") in
      let variableNames =
        (Option.map ~f:ListOfStrings.of_xml)
          (Xml.child xml_arg0 "variableNames") in
      make ?aggregatedVariablesImportance ?variableNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aggregatedVariablesImportance =
        field_map json__ "aggregatedVariablesImportance" Float_.of_json in
      let variableNames =
        field_map json__ "variableNames" ListOfStrings.of_json in
      make ?aggregatedVariablesImportance ?variableNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The log odds metric details. Account Takeover Insights (ATI) model uses event variables from the login data you provide to continuously calculate a set of variables (aggregated variables) based on historical events. For example, your ATI model might calculate the number of times an user has logged in using the same IP address. In this case, event variables used to derive the aggregated variables are IP address and user."]
module ATIMetricDataPointsList =
  struct
    type nonrec t = ATIMetricDataPoint.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:ATIMetricDataPoint.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:ATIMetricDataPoint.of_xml)
    let of_json j =
      list_of_json ~kind:"ATIMetricDataPointsList"
        ~of_json:ATIMetricDataPoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module ATIModelPerformance =
  struct
    type nonrec t =
      {
      asi: Float_.t option
        [@ocaml.doc
          "The anomaly separation index (ASI) score. This metric summarizes the overall ability of the model to separate anomalous activities from the normal behavior. Depending on the business, a large fraction of these anomalous activities can be malicious and correspond to the account takeover attacks. A model with no separability power will have the lowest possible ASI score of 0.5, whereas the a model with a high separability power will have the highest possible ASI score of 1.0"]}
    let make ?asi = fun () -> { asi }
    let to_value x =
      structure_to_value [("asi", (Option.map x.asi ~f:Float_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let asi = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "asi") in
      make ?asi ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let asi = field_map json__ "asi" Float_.of_json in make ?asi ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Account Takeover Insights (ATI) model performance score."]
module OFIMetricDataPointsList =
  struct
    type nonrec t = OFIMetricDataPoint.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:OFIMetricDataPoint.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:OFIMetricDataPoint.of_xml)
    let of_json j =
      list_of_json ~kind:"OFIMetricDataPointsList"
        ~of_json:OFIMetricDataPoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module OFIModelPerformance =
  struct
    type nonrec t =
      {
      auc: Float_.t option
        [@ocaml.doc
          "The area under the curve (auc). This summarizes the total positive rate (tpr) and false positive rate (FPR) across all possible model score thresholds."];
      uncertaintyRange: UncertaintyRange.t option
        [@ocaml.doc
          "Indicates the range of area under curve (auc) expected from the OFI model. A range greater than 0.1 indicates higher model uncertainity."]}
    let make ?auc =
      fun ?uncertaintyRange -> fun () -> { auc; uncertaintyRange }
    let to_value x =
      structure_to_value
        [("auc", (Option.map x.auc ~f:Float_.to_value));
        ("uncertaintyRange",
          (Option.map x.uncertaintyRange ~f:UncertaintyRange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uncertaintyRange =
        (Option.map ~f:UncertaintyRange.of_xml)
          (Xml.child xml_arg0 "uncertaintyRange") in
      let auc = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "auc") in
      make ?uncertaintyRange ?auc ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uncertaintyRange =
        field_map json__ "uncertaintyRange" UncertaintyRange.of_json in
      let auc = field_map json__ "auc" Float_.of_json in
      make ?uncertaintyRange ?auc ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The Online Fraud Insights (OFI) model performance score."]
module TFIMetricDataPointsList =
  struct
    type nonrec t = TFIMetricDataPoint.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:TFIMetricDataPoint.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:TFIMetricDataPoint.of_xml)
    let of_json j =
      list_of_json ~kind:"TFIMetricDataPointsList"
        ~of_json:TFIMetricDataPoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module TFIModelPerformance =
  struct
    type nonrec t =
      {
      auc: Float_.t option
        [@ocaml.doc
          "The area under the curve (auc). This summarizes the total positive rate (tpr) and false positive rate (FPR) across all possible model score thresholds."];
      uncertaintyRange: UncertaintyRange.t option
        [@ocaml.doc
          "Indicates the range of area under curve (auc) expected from the TFI model. A range greater than 0.1 indicates higher model uncertainity."]}
    let make ?auc =
      fun ?uncertaintyRange -> fun () -> { auc; uncertaintyRange }
    let to_value x =
      structure_to_value
        [("auc", (Option.map x.auc ~f:Float_.to_value));
        ("uncertaintyRange",
          (Option.map x.uncertaintyRange ~f:UncertaintyRange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uncertaintyRange =
        (Option.map ~f:UncertaintyRange.of_xml)
          (Xml.child xml_arg0 "uncertaintyRange") in
      let auc = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "auc") in
      make ?uncertaintyRange ?auc ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uncertaintyRange =
        field_map json__ "uncertaintyRange" UncertaintyRange.of_json in
      let auc = field_map json__ "auc" Float_.of_json in
      make ?uncertaintyRange ?auc ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Transaction Fraud Insights (TFI) model performance score."]
module PredictionExplanations =
  struct
    type nonrec t =
      {
      variableImpactExplanations: ListOfVariableImpactExplanations.t option
        [@ocaml.doc
          "The details of the event variable's impact on the prediction score."];
      aggregatedVariablesImpactExplanations:
        ListOfAggregatedVariablesImpactExplanations.t option
        [@ocaml.doc
          "The details of the aggregated variables impact on the prediction score. Account Takeover Insights (ATI) model uses event variables from the login data you provide to continuously calculate a set of variables (aggregated variables) based on historical events. For example, your ATI model might calculate the number of times an user has logged in using the same IP address. In this case, event variables used to derive the aggregated variables are IP address and user."]}
    let make ?variableImpactExplanations =
      fun ?aggregatedVariablesImpactExplanations ->
        fun () ->
          { variableImpactExplanations; aggregatedVariablesImpactExplanations
          }
    let to_value x =
      structure_to_value
        [("variableImpactExplanations",
           (Option.map x.variableImpactExplanations
              ~f:ListOfVariableImpactExplanations.to_value));
        ("aggregatedVariablesImpactExplanations",
          (Option.map x.aggregatedVariablesImpactExplanations
             ~f:ListOfAggregatedVariablesImpactExplanations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aggregatedVariablesImpactExplanations =
        (Option.map ~f:ListOfAggregatedVariablesImpactExplanations.of_xml)
          (Xml.child xml_arg0 "aggregatedVariablesImpactExplanations") in
      let variableImpactExplanations =
        (Option.map ~f:ListOfVariableImpactExplanations.of_xml)
          (Xml.child xml_arg0 "variableImpactExplanations") in
      make ?aggregatedVariablesImpactExplanations ?variableImpactExplanations
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aggregatedVariablesImpactExplanations =
        field_map json__ "aggregatedVariablesImpactExplanations"
          ListOfAggregatedVariablesImpactExplanations.of_json in
      let variableImpactExplanations =
        field_map json__ "variableImpactExplanations"
          ListOfVariableImpactExplanations.of_json in
      make ?aggregatedVariablesImpactExplanations ?variableImpactExplanations
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The prediction explanations that provide insight into how each event variable impacted the model version's fraud prediction score."]
module Time =
  struct
    type nonrec t = string
    let context_ = "time"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:30) >>=
             (fun () -> check_string_min i ~min:11));
        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:"time" j
    let to_json = simple_to_json to_value
  end
module UnlabeledEventsTreatment =
  struct
    type nonrec t =
      | IGNORE 
      | FRAUD 
      | LEGIT 
      | AUTO 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IGNORE -> "IGNORE"
      | FRAUD -> "FRAUD"
      | LEGIT -> "LEGIT"
      | AUTO -> "AUTO"
      | Non_static_id s -> s
    let of_string =
      function
      | "IGNORE" -> IGNORE
      | "FRAUD" -> FRAUD
      | "LEGIT" -> LEGIT
      | "AUTO" -> AUTO
      | 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 UnlabeledEventsTreatment" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"UnlabeledEventsTreatment" j)
    let to_json = simple_to_json to_value
  end
module LabelMapper =
  struct
    type nonrec t = (String_.t * ListOfStrings.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types string ListOfStrings"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (ListOfStrings.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:ListOfStrings.of_json j
    let to_json v = composed_to_json to_value v
  end
module FieldValidationMessageList =
  struct
    type nonrec t = FieldValidationMessage.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:FieldValidationMessage.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:FieldValidationMessage.of_xml)
    let of_json j =
      list_of_json ~kind:"fieldValidationMessageList"
        ~of_json:FieldValidationMessage.of_json j
    let to_json v = composed_to_json to_value v
  end
module FileValidationMessageList =
  struct
    type nonrec t = FileValidationMessage.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:FileValidationMessage.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:FileValidationMessage.of_xml)
    let of_json j =
      list_of_json ~kind:"fileValidationMessageList"
        ~of_json:FileValidationMessage.of_json j
    let to_json v = composed_to_json to_value v
  end
module MetricDataPointsList =
  struct
    type nonrec t = MetricDataPoint.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:MetricDataPoint.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:MetricDataPoint.of_xml)
    let of_json j =
      list_of_json ~kind:"metricDataPointsList"
        ~of_json:MetricDataPoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOfLogOddsMetrics =
  struct
    type nonrec t = LogOddsMetric.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:LogOddsMetric.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:LogOddsMetric.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfLogOddsMetrics"
        ~of_json:LogOddsMetric.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOfAggregatedLogOddsMetrics =
  struct
    type nonrec t = AggregatedLogOddsMetric.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:AggregatedLogOddsMetric.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:AggregatedLogOddsMetric.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfAggregatedLogOddsMetrics"
        ~of_json:AggregatedLogOddsMetric.of_json j
    let to_json v = composed_to_json to_value v
  end
module ATITrainingMetricsValue =
  struct
    type nonrec t =
      {
      metricDataPoints: ATIMetricDataPointsList.t option
        [@ocaml.doc "The model's performance metrics data points."];
      modelPerformance: ATIModelPerformance.t option
        [@ocaml.doc "The model's overall performance scores."]}
    let make ?metricDataPoints =
      fun ?modelPerformance ->
        fun () -> { metricDataPoints; modelPerformance }
    let to_value x =
      structure_to_value
        [("metricDataPoints",
           (Option.map x.metricDataPoints ~f:ATIMetricDataPointsList.to_value));
        ("modelPerformance",
          (Option.map x.modelPerformance ~f:ATIModelPerformance.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modelPerformance =
        (Option.map ~f:ATIModelPerformance.of_xml)
          (Xml.child xml_arg0 "modelPerformance") in
      let metricDataPoints =
        (Option.map ~f:ATIMetricDataPointsList.of_xml)
          (Xml.child xml_arg0 "metricDataPoints") in
      make ?modelPerformance ?metricDataPoints ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modelPerformance =
        field_map json__ "modelPerformance" ATIModelPerformance.of_json in
      let metricDataPoints =
        field_map json__ "metricDataPoints" ATIMetricDataPointsList.of_json in
      make ?modelPerformance ?metricDataPoints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Account Takeover Insights (ATI) model training metric details."]
module OFITrainingMetricsValue =
  struct
    type nonrec t =
      {
      metricDataPoints: OFIMetricDataPointsList.t option
        [@ocaml.doc "The model's performance metrics data points."];
      modelPerformance: OFIModelPerformance.t option
        [@ocaml.doc "The model's overall performance score."]}
    let make ?metricDataPoints =
      fun ?modelPerformance ->
        fun () -> { metricDataPoints; modelPerformance }
    let to_value x =
      structure_to_value
        [("metricDataPoints",
           (Option.map x.metricDataPoints ~f:OFIMetricDataPointsList.to_value));
        ("modelPerformance",
          (Option.map x.modelPerformance ~f:OFIModelPerformance.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modelPerformance =
        (Option.map ~f:OFIModelPerformance.of_xml)
          (Xml.child xml_arg0 "modelPerformance") in
      let metricDataPoints =
        (Option.map ~f:OFIMetricDataPointsList.of_xml)
          (Xml.child xml_arg0 "metricDataPoints") in
      make ?modelPerformance ?metricDataPoints ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modelPerformance =
        field_map json__ "modelPerformance" OFIModelPerformance.of_json in
      let metricDataPoints =
        field_map json__ "metricDataPoints" OFIMetricDataPointsList.of_json in
      make ?modelPerformance ?metricDataPoints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Online Fraud Insights (OFI) model training metric details."]
module TFITrainingMetricsValue =
  struct
    type nonrec t =
      {
      metricDataPoints: TFIMetricDataPointsList.t option
        [@ocaml.doc "The model's performance metrics data points."];
      modelPerformance: TFIModelPerformance.t option
        [@ocaml.doc "The model performance score."]}
    let make ?metricDataPoints =
      fun ?modelPerformance ->
        fun () -> { metricDataPoints; modelPerformance }
    let to_value x =
      structure_to_value
        [("metricDataPoints",
           (Option.map x.metricDataPoints ~f:TFIMetricDataPointsList.to_value));
        ("modelPerformance",
          (Option.map x.modelPerformance ~f:TFIModelPerformance.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modelPerformance =
        (Option.map ~f:TFIModelPerformance.of_xml)
          (Xml.child xml_arg0 "modelPerformance") in
      let metricDataPoints =
        (Option.map ~f:TFIMetricDataPointsList.of_xml)
          (Xml.child xml_arg0 "metricDataPoints") in
      make ?modelPerformance ?metricDataPoints ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modelPerformance =
        field_map json__ "modelPerformance" TFIModelPerformance.of_json in
      let metricDataPoints =
        field_map json__ "metricDataPoints" TFIMetricDataPointsList.of_json in
      make ?modelPerformance ?metricDataPoints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Transaction Fraud Insights (TFI) model training metric details."]
module ModelInputDataFormat =
  struct
    type nonrec t =
      | TEXT_CSV 
      | APPLICATION_JSON 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TEXT_CSV -> "TEXT_CSV"
      | APPLICATION_JSON -> "APPLICATION_JSON"
      | Non_static_id s -> s
    let of_string =
      function
      | "TEXT_CSV" -> TEXT_CSV
      | "APPLICATION_JSON" -> APPLICATION_JSON
      | 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 ModelInputDataFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ModelInputDataFormat" j)
    let to_json = simple_to_json to_value
  end
module UseEventVariables =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module Identifier =
  struct
    type nonrec t = string
    let context_ = "identifier"
    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:"^[0-9a-z_-]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"identifier" j
    let to_json = simple_to_json to_value
  end
module ModelInputTemplate =
  struct
    type nonrec t = string
    let context_ = "modelInputTemplate"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000) >>=
             (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:"modelInputTemplate" j
    let to_json = simple_to_json to_value
  end
module CsvIndexToVariableMap =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module JsonKeyToVariableMap =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ModelOutputDataFormat =
  struct
    type nonrec t =
      | TEXT_CSV 
      | APPLICATION_JSONLINES 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TEXT_CSV -> "TEXT_CSV"
      | APPLICATION_JSONLINES -> "APPLICATION_JSONLINES"
      | Non_static_id s -> s
    let of_string =
      function
      | "TEXT_CSV" -> TEXT_CSV
      | "APPLICATION_JSONLINES" -> APPLICATION_JSONLINES
      | 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 ModelOutputDataFormat" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ModelOutputDataFormat" j)
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module EntityRestrictedString =
  struct
    type nonrec t = string
    let context_ = "entityRestrictedString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"^[0-9A-Za-z_.@+-]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"entityRestrictedString" j
    let to_json = simple_to_json to_value
  end
module ModelSource =
  struct
    type nonrec t =
      | SAGEMAKER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | SAGEMAKER -> "SAGEMAKER" | Non_static_id s -> s
    let of_string =
      function | "SAGEMAKER" -> SAGEMAKER | 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 ModelSource" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ModelSource" j)
    let to_json = simple_to_json to_value
  end
module ModelTypeEnum =
  struct
    type nonrec t =
      | ONLINE_FRAUD_INSIGHTS 
      | TRANSACTION_FRAUD_INSIGHTS 
      | ACCOUNT_TAKEOVER_INSIGHTS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ONLINE_FRAUD_INSIGHTS -> "ONLINE_FRAUD_INSIGHTS"
      | TRANSACTION_FRAUD_INSIGHTS -> "TRANSACTION_FRAUD_INSIGHTS"
      | ACCOUNT_TAKEOVER_INSIGHTS -> "ACCOUNT_TAKEOVER_INSIGHTS"
      | Non_static_id s -> s
    let of_string =
      function
      | "ONLINE_FRAUD_INSIGHTS" -> ONLINE_FRAUD_INSIGHTS
      | "TRANSACTION_FRAUD_INSIGHTS" -> TRANSACTION_FRAUD_INSIGHTS
      | "ACCOUNT_TAKEOVER_INSIGHTS" -> ACCOUNT_TAKEOVER_INSIGHTS
      | 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 ModelTypeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ModelTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module FloatVersionString =
  struct
    type nonrec t = string
    let context_ = "floatVersionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:7) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[1-9][0-9]{0,3}\\.[0-9]{1,2}$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"floatVersionString" j
    let to_json = simple_to_json to_value
  end
module FraudDetectorArn =
  struct
    type nonrec t = string
    let context_ = "fraudDetectorArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn\\:aws[a-z-]{0,15}\\:frauddetector\\:[a-z0-9-]{3,20}\\:[0-9]{12}\\:[^\\s]{2,128}$")));
        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:"fraudDetectorArn" j
    let to_json = simple_to_json to_value
  end
module ModelIdentifier =
  struct
    type nonrec t = string
    let context_ = "modelIdentifier"
    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:"^[0-9a-z_]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"modelIdentifier" j
    let to_json = simple_to_json to_value
  end
module ModelVersionEvaluation =
  struct
    type nonrec t =
      {
      outputVariableName: String_.t option
        [@ocaml.doc "The output variable name."];
      evaluationScore: String_.t option
        [@ocaml.doc "The evaluation score generated for the model version."];
      predictionExplanations: PredictionExplanations.t option
        [@ocaml.doc
          "The prediction explanations generated for the model version."]}
    let make ?outputVariableName =
      fun ?evaluationScore ->
        fun ?predictionExplanations ->
          fun () ->
            { outputVariableName; evaluationScore; predictionExplanations }
    let to_value x =
      structure_to_value
        [("outputVariableName",
           (Option.map x.outputVariableName ~f:String_.to_value));
        ("evaluationScore",
          (Option.map x.evaluationScore ~f:String_.to_value));
        ("predictionExplanations",
          (Option.map x.predictionExplanations
             ~f:PredictionExplanations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let predictionExplanations =
        (Option.map ~f:PredictionExplanations.of_xml)
          (Xml.child xml_arg0 "predictionExplanations") in
      let evaluationScore =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "evaluationScore") in
      let outputVariableName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "outputVariableName") in
      make ?predictionExplanations ?evaluationScore ?outputVariableName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let predictionExplanations =
        field_map json__ "predictionExplanations"
          PredictionExplanations.of_json in
      let evaluationScore =
        field_map json__ "evaluationScore" String_.of_json in
      let outputVariableName =
        field_map json__ "outputVariableName" String_.of_json in
      make ?predictionExplanations ?evaluationScore ?outputVariableName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The model version evalutions."]
module IamRoleArn =
  struct
    type nonrec t = string
    let context_ = "iamRoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn\\:aws[a-z-]{0,15}\\:iam\\:\\:[0-9]{12}\\:role\\/[^\\s]{2,64}$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"iamRoleArn" j
    let to_json = simple_to_json to_value
  end
module S3BucketLocation =
  struct
    type nonrec t = string
    let context_ = "s3BucketLocation"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () -> check_pattern i ~pattern:"^s3:\\/\\/(.+)$")));
        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:"s3BucketLocation" j
    let to_json = simple_to_json to_value
  end
module IngestedEventsTimeWindow =
  struct
    type nonrec t =
      {
      startTime: Time.t
        [@ocaml.doc "Timestamp of the first ingensted event."];
      endTime: Time.t [@ocaml.doc "Timestamp of the final ingested event."]}
    let context_ = "IngestedEventsTimeWindow"
    let make ~startTime = fun ~endTime -> fun () -> { startTime; endTime }
    let to_value x =
      structure_to_value
        [("startTime", (Some (Time.to_value x.startTime)));
        ("endTime", (Some (Time.to_value x.endTime)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTime =
        Time.of_xml (Xml.child_exn ~context:context_ xml_arg0 "endTime") in
      let startTime =
        Time.of_xml (Xml.child_exn ~context:context_ xml_arg0 "startTime") in
      make ~endTime ~startTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTime = field_map_exn json__ "endTime" Time.of_json in
      let startTime = field_map_exn json__ "startTime" Time.of_json in
      make ~endTime ~startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The start and stop time of the ingested events."]
module LabelSchema =
  struct
    type nonrec t =
      {
      labelMapper: LabelMapper.t option
        [@ocaml.doc
          "The label mapper maps the Amazon Fraud Detector supported model classification labels (FRAUD, LEGIT) to the appropriate event type labels. For example, if \"FRAUD\" and \"LEGIT\" are Amazon Fraud Detector supported labels, this mapper could be: \\{\"FRAUD\" => \\[\"0\"\\], \"LEGIT\" => \\[\"1\"\\]\\} or \\{\"FRAUD\" => \\[\"false\"\\], \"LEGIT\" => \\[\"true\"\\]\\} or \\{\"FRAUD\" => \\[\"fraud\", \"abuse\"\\], \"LEGIT\" => \\[\"legit\", \"safe\"\\]\\}. The value part of the mapper is a list, because you may have multiple label variants from your event type for a single Amazon Fraud Detector label."];
      unlabeledEventsTreatment: UnlabeledEventsTreatment.t option
        [@ocaml.doc
          "The action to take for unlabeled events. Use IGNORE if you want the unlabeled events to be ignored. This is recommended when the majority of the events in the dataset are labeled. Use FRAUD if you want to categorize all unlabeled events as \226\128\156Fraud\226\128\157. This is recommended when most of the events in your dataset are fraudulent. Use LEGIT if you want to categorize all unlabeled events as \226\128\156Legit\226\128\157. This is recommended when most of the events in your dataset are legitimate. Use AUTO if you want Amazon Fraud Detector to decide how to use the unlabeled data. This is recommended when there is significant unlabeled events in the dataset. By default, Amazon Fraud Detector ignores the unlabeled data."]}
    let make ?labelMapper =
      fun ?unlabeledEventsTreatment ->
        fun () -> { labelMapper; unlabeledEventsTreatment }
    let to_value x =
      structure_to_value
        [("labelMapper", (Option.map x.labelMapper ~f:LabelMapper.to_value));
        ("unlabeledEventsTreatment",
          (Option.map x.unlabeledEventsTreatment
             ~f:UnlabeledEventsTreatment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unlabeledEventsTreatment =
        (Option.map ~f:UnlabeledEventsTreatment.of_xml)
          (Xml.child xml_arg0 "unlabeledEventsTreatment") in
      let labelMapper =
        (Option.map ~f:LabelMapper.of_xml) (Xml.child xml_arg0 "labelMapper") in
      make ?unlabeledEventsTreatment ?labelMapper ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unlabeledEventsTreatment =
        field_map json__ "unlabeledEventsTreatment"
          UnlabeledEventsTreatment.of_json in
      let labelMapper = field_map json__ "labelMapper" LabelMapper.of_json in
      make ?unlabeledEventsTreatment ?labelMapper ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The label schema."]
module DataValidationMetrics =
  struct
    type nonrec t =
      {
      fileLevelMessages: FileValidationMessageList.t option
        [@ocaml.doc
          "The file-specific model training data validation messages."];
      fieldLevelMessages: FieldValidationMessageList.t option
        [@ocaml.doc "The field-specific model training validation messages."]}
    let make ?fileLevelMessages =
      fun ?fieldLevelMessages ->
        fun () -> { fileLevelMessages; fieldLevelMessages }
    let to_value x =
      structure_to_value
        [("fileLevelMessages",
           (Option.map x.fileLevelMessages
              ~f:FileValidationMessageList.to_value));
        ("fieldLevelMessages",
          (Option.map x.fieldLevelMessages
             ~f:FieldValidationMessageList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldLevelMessages =
        (Option.map ~f:FieldValidationMessageList.of_xml)
          (Xml.child xml_arg0 "fieldLevelMessages") in
      let fileLevelMessages =
        (Option.map ~f:FileValidationMessageList.of_xml)
          (Xml.child xml_arg0 "fileLevelMessages") in
      make ?fieldLevelMessages ?fileLevelMessages ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldLevelMessages =
        field_map json__ "fieldLevelMessages"
          FieldValidationMessageList.of_json in
      let fileLevelMessages =
        field_map json__ "fileLevelMessages"
          FileValidationMessageList.of_json in
      make ?fieldLevelMessages ?fileLevelMessages ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The model training data validation metrics."]
module TrainingMetrics =
  struct
    type nonrec t =
      {
      auc: Float_.t option
        [@ocaml.doc
          "The area under the curve. This summarizes true positive rate (TPR) and false positive rate (FPR) across all possible model score thresholds. A model with no predictive power has an AUC of 0.5, whereas a perfect model has a score of 1.0."];
      metricDataPoints: MetricDataPointsList.t option
        [@ocaml.doc "The data points details."]}
    let make ?auc =
      fun ?metricDataPoints -> fun () -> { auc; metricDataPoints }
    let to_value x =
      structure_to_value
        [("auc", (Option.map x.auc ~f:Float_.to_value));
        ("metricDataPoints",
          (Option.map x.metricDataPoints ~f:MetricDataPointsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metricDataPoints =
        (Option.map ~f:MetricDataPointsList.of_xml)
          (Xml.child xml_arg0 "metricDataPoints") in
      let auc = (Option.map ~f:Float_.of_xml) (Xml.child xml_arg0 "auc") in
      make ?metricDataPoints ?auc ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metricDataPoints =
        field_map json__ "metricDataPoints" MetricDataPointsList.of_json in
      let auc = field_map json__ "auc" Float_.of_json in
      make ?metricDataPoints ?auc ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The training metric details."]
module VariableImportanceMetrics =
  struct
    type nonrec t =
      {
      logOddsMetrics: ListOfLogOddsMetrics.t option
        [@ocaml.doc "List of variable metrics."]}
    let make ?logOddsMetrics = fun () -> { logOddsMetrics }
    let to_value x =
      structure_to_value
        [("logOddsMetrics",
           (Option.map x.logOddsMetrics ~f:ListOfLogOddsMetrics.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logOddsMetrics =
        (Option.map ~f:ListOfLogOddsMetrics.of_xml)
          (Xml.child xml_arg0 "logOddsMetrics") in
      make ?logOddsMetrics ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logOddsMetrics =
        field_map json__ "logOddsMetrics" ListOfLogOddsMetrics.of_json in
      make ?logOddsMetrics ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The variable importance metrics details."]
module AggregatedVariablesImportanceMetrics =
  struct
    type nonrec t =
      {
      logOddsMetrics: ListOfAggregatedLogOddsMetrics.t option
        [@ocaml.doc "List of variables' metrics."]}
    let make ?logOddsMetrics = fun () -> { logOddsMetrics }
    let to_value x =
      structure_to_value
        [("logOddsMetrics",
           (Option.map x.logOddsMetrics
              ~f:ListOfAggregatedLogOddsMetrics.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logOddsMetrics =
        (Option.map ~f:ListOfAggregatedLogOddsMetrics.of_xml)
          (Xml.child xml_arg0 "logOddsMetrics") in
      make ?logOddsMetrics ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logOddsMetrics =
        field_map json__ "logOddsMetrics"
          ListOfAggregatedLogOddsMetrics.of_json in
      make ?logOddsMetrics ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of the relative importance of the aggregated variables. Account Takeover Insights (ATI) model uses event variables from the login data you provide to continuously calculate a set of variables (aggregated variables) based on historical events. For example, your ATI model might calculate the number of times an user has logged in using the same IP address. In this case, event variables used to derive the aggregated variables are IP address and user."]
module TrainingMetricsV2 =
  struct
    type nonrec t =
      {
      ofi: OFITrainingMetricsValue.t option
        [@ocaml.doc
          "The Online Fraud Insights (OFI) model training metric details."];
      tfi: TFITrainingMetricsValue.t option
        [@ocaml.doc
          "The Transaction Fraud Insights (TFI) model training metric details."];
      ati: ATITrainingMetricsValue.t option
        [@ocaml.doc
          "The Account Takeover Insights (ATI) model training metric details."]}
    let make ?ofi = fun ?tfi -> fun ?ati -> fun () -> { ofi; tfi; ati }
    let to_value x =
      structure_to_value
        [("ofi", (Option.map x.ofi ~f:OFITrainingMetricsValue.to_value));
        ("tfi", (Option.map x.tfi ~f:TFITrainingMetricsValue.to_value));
        ("ati", (Option.map x.ati ~f:ATITrainingMetricsValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ati =
        (Option.map ~f:ATITrainingMetricsValue.of_xml)
          (Xml.child xml_arg0 "ati") in
      let tfi =
        (Option.map ~f:TFITrainingMetricsValue.of_xml)
          (Xml.child xml_arg0 "tfi") in
      let ofi =
        (Option.map ~f:OFITrainingMetricsValue.of_xml)
          (Xml.child xml_arg0 "ofi") in
      make ?ati ?tfi ?ofi ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ati = field_map json__ "ati" ATITrainingMetricsValue.of_json in
      let tfi = field_map json__ "tfi" TFITrainingMetricsValue.of_json in
      let ofi = field_map json__ "ofi" OFITrainingMetricsValue.of_json in
      make ?ati ?tfi ?ofi ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The training metrics details."]
module TagKey =
  struct
    type nonrec t = string
    let context_ = "tagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"tagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "tagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"tagValue" j
    let to_json = simple_to_json to_value
  end
module WholeNumberVersionString =
  struct
    type nonrec t = string
    let context_ = "wholeNumberVersionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:5) >>=
                  (fun () -> check_pattern i ~pattern:"^([1-9][0-9]*)$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"wholeNumberVersionString" j
    let to_json = simple_to_json to_value
  end
module DataSource =
  struct
    type nonrec t =
      | EVENT 
      | MODEL_SCORE 
      | EXTERNAL_MODEL_SCORE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EVENT -> "EVENT"
      | MODEL_SCORE -> "MODEL_SCORE"
      | EXTERNAL_MODEL_SCORE -> "EXTERNAL_MODEL_SCORE"
      | Non_static_id s -> s
    let of_string =
      function
      | "EVENT" -> EVENT
      | "MODEL_SCORE" -> MODEL_SCORE
      | "EXTERNAL_MODEL_SCORE" -> EXTERNAL_MODEL_SCORE
      | 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 DataSource" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DataSource" j)
    let to_json = simple_to_json to_value
  end
module DataType =
  struct
    type nonrec t =
      | STRING 
      | INTEGER 
      | FLOAT 
      | BOOLEAN 
      | DATETIME 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STRING -> "STRING"
      | INTEGER -> "INTEGER"
      | FLOAT -> "FLOAT"
      | BOOLEAN -> "BOOLEAN"
      | DATETIME -> "DATETIME"
      | Non_static_id s -> s
    let of_string =
      function
      | "STRING" -> STRING
      | "INTEGER" -> INTEGER
      | "FLOAT" -> FLOAT
      | "BOOLEAN" -> BOOLEAN
      | "DATETIME" -> DATETIME
      | 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 DataType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DataType" j)
    let to_json = simple_to_json to_value
  end
module Language =
  struct
    type nonrec t =
      | DETECTORPL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | DETECTORPL -> "DETECTORPL" | Non_static_id s -> s
    let of_string =
      function | "DETECTORPL" -> DETECTORPL | 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 Language" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Language" j)
    let to_json = simple_to_json to_value
  end
module NonEmptyListOfStrings =
  struct
    type nonrec t = String_.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"NonEmptyListOfStrings" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Description =
  struct
    type nonrec t = string
    let context_ = "description"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (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:"description" j
    let to_json = simple_to_json to_value
  end
module RuleExpression =
  struct
    type nonrec t = string
    let context_ = "ruleExpression"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:4096) >>=
             (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:"ruleExpression" j
    let to_json = simple_to_json to_value
  end
module NoDashIdentifier =
  struct
    type nonrec t = string
    let context_ = "noDashIdentifier"
    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:"^[0-9a-z_]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"noDashIdentifier" j
    let to_json = simple_to_json to_value
  end
module VariableType =
  struct
    type nonrec t = string
    let context_ = "variableType"
    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-Z_]{1,64}$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"variableType" j
    let to_json = simple_to_json to_value
  end
module ModelEndpointStatus =
  struct
    type nonrec t =
      | ASSOCIATED 
      | DISSOCIATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ASSOCIATED -> "ASSOCIATED"
      | DISSOCIATED -> "DISSOCIATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ASSOCIATED" -> ASSOCIATED
      | "DISSOCIATED" -> DISSOCIATED
      | 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 ModelEndpointStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ModelEndpointStatus" j)
    let to_json = simple_to_json to_value
  end
module ModelInputConfiguration =
  struct
    type nonrec t =
      {
      eventTypeName: Identifier.t option [@ocaml.doc "The event type name."];
      format: ModelInputDataFormat.t option
        [@ocaml.doc
          "The format of the model input configuration. The format differs depending on if it is passed through to SageMaker or constructed by Amazon Fraud Detector."];
      useEventVariables: UseEventVariables.t
        [@ocaml.doc "The event variables."];
      jsonInputTemplate: ModelInputTemplate.t option
        [@ocaml.doc
          "Template for constructing the JSON input-data sent to SageMaker. At event-evaluation, the placeholders for variable names in the template will be replaced with the variable values before being sent to SageMaker."];
      csvInputTemplate: ModelInputTemplate.t option
        [@ocaml.doc
          "Template for constructing the CSV input-data sent to SageMaker. At event-evaluation, the placeholders for variable-names in the template will be replaced with the variable values before being sent to SageMaker."]}
    let context_ = "ModelInputConfiguration"
    let make ?eventTypeName =
      fun ?format ->
        fun ?jsonInputTemplate ->
          fun ?csvInputTemplate ->
            fun ~useEventVariables ->
              fun () ->
                {
                  eventTypeName;
                  format;
                  jsonInputTemplate;
                  csvInputTemplate;
                  useEventVariables
                }
    let to_value x =
      structure_to_value
        [("eventTypeName",
           (Option.map x.eventTypeName ~f:Identifier.to_value));
        ("format", (Option.map x.format ~f:ModelInputDataFormat.to_value));
        ("useEventVariables",
          (Some (UseEventVariables.to_value x.useEventVariables)));
        ("jsonInputTemplate",
          (Option.map x.jsonInputTemplate ~f:ModelInputTemplate.to_value));
        ("csvInputTemplate",
          (Option.map x.csvInputTemplate ~f:ModelInputTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let csvInputTemplate =
        (Option.map ~f:ModelInputTemplate.of_xml)
          (Xml.child xml_arg0 "csvInputTemplate") in
      let jsonInputTemplate =
        (Option.map ~f:ModelInputTemplate.of_xml)
          (Xml.child xml_arg0 "jsonInputTemplate") in
      let useEventVariables =
        UseEventVariables.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "useEventVariables") in
      let format =
        (Option.map ~f:ModelInputDataFormat.of_xml)
          (Xml.child xml_arg0 "format") in
      let eventTypeName =
        (Option.map ~f:Identifier.of_xml)
          (Xml.child xml_arg0 "eventTypeName") in
      make ?csvInputTemplate ?jsonInputTemplate ~useEventVariables ?format
        ?eventTypeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let csvInputTemplate =
        field_map json__ "csvInputTemplate" ModelInputTemplate.of_json in
      let jsonInputTemplate =
        field_map json__ "jsonInputTemplate" ModelInputTemplate.of_json in
      let useEventVariables =
        field_map_exn json__ "useEventVariables" UseEventVariables.of_json in
      let format = field_map json__ "format" ModelInputDataFormat.of_json in
      let eventTypeName = field_map json__ "eventTypeName" Identifier.of_json in
      make ?csvInputTemplate ?jsonInputTemplate ~useEventVariables ?format
        ?eventTypeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The Amazon SageMaker model input configuration."]
module ModelOutputConfiguration =
  struct
    type nonrec t =
      {
      format: ModelOutputDataFormat.t
        [@ocaml.doc "The format of the model output configuration."];
      jsonKeyToVariableMap: JsonKeyToVariableMap.t option
        [@ocaml.doc
          "A map of JSON keys in response from SageMaker to the Amazon Fraud Detector variables."];
      csvIndexToVariableMap: CsvIndexToVariableMap.t option
        [@ocaml.doc
          "A map of CSV index values in the SageMaker response to the Amazon Fraud Detector variables."]}
    let context_ = "ModelOutputConfiguration"
    let make ?jsonKeyToVariableMap =
      fun ?csvIndexToVariableMap ->
        fun ~format ->
          fun () -> { jsonKeyToVariableMap; csvIndexToVariableMap; format }
    let to_value x =
      structure_to_value
        [("format", (Some (ModelOutputDataFormat.to_value x.format)));
        ("jsonKeyToVariableMap",
          (Option.map x.jsonKeyToVariableMap ~f:JsonKeyToVariableMap.to_value));
        ("csvIndexToVariableMap",
          (Option.map x.csvIndexToVariableMap
             ~f:CsvIndexToVariableMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let csvIndexToVariableMap =
        (Option.map ~f:CsvIndexToVariableMap.of_xml)
          (Xml.child xml_arg0 "csvIndexToVariableMap") in
      let jsonKeyToVariableMap =
        (Option.map ~f:JsonKeyToVariableMap.of_xml)
          (Xml.child xml_arg0 "jsonKeyToVariableMap") in
      let format =
        ModelOutputDataFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "format") in
      make ?csvIndexToVariableMap ?jsonKeyToVariableMap ~format ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let csvIndexToVariableMap =
        field_map json__ "csvIndexToVariableMap"
          CsvIndexToVariableMap.of_json in
      let jsonKeyToVariableMap =
        field_map json__ "jsonKeyToVariableMap" JsonKeyToVariableMap.of_json in
      let format =
        field_map_exn json__ "format" ModelOutputDataFormat.of_json in
      make ?csvIndexToVariableMap ?jsonKeyToVariableMap ~format ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides the Amazon Sagemaker model output configuration."]
module EventIngestion =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration EventIngestion" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EventIngestion" j)
    let to_json = simple_to_json to_value
  end
module EventOrchestration =
  struct
    type nonrec t =
      {
      eventBridgeEnabled: Boolean.t
        [@ocaml.doc
          "Specifies if event orchestration is enabled through Amazon EventBridge."]}
    let context_ = "EventOrchestration"
    let make ~eventBridgeEnabled = fun () -> { eventBridgeEnabled }
    let to_value x =
      structure_to_value
        [("eventBridgeEnabled",
           (Some (Boolean.to_value x.eventBridgeEnabled)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventBridgeEnabled =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventBridgeEnabled") in
      make ~eventBridgeEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventBridgeEnabled =
        field_map_exn json__ "eventBridgeEnabled" Boolean.of_json in
      make ~eventBridgeEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The event orchestration status."]
module IngestedEventStatistics =
  struct
    type nonrec t =
      {
      numberOfEvents: Long.t option
        [@ocaml.doc "The number of stored events."];
      eventDataSizeInBytes: Long.t option
        [@ocaml.doc "The total size of the stored events."];
      leastRecentEvent: Time.t option [@ocaml.doc "The oldest stored event."];
      mostRecentEvent: Time.t option [@ocaml.doc "The newest stored event."];
      lastUpdatedTime: Time.t option
        [@ocaml.doc "Timestamp of when the stored event was last updated."]}
    let make ?numberOfEvents =
      fun ?eventDataSizeInBytes ->
        fun ?leastRecentEvent ->
          fun ?mostRecentEvent ->
            fun ?lastUpdatedTime ->
              fun () ->
                {
                  numberOfEvents;
                  eventDataSizeInBytes;
                  leastRecentEvent;
                  mostRecentEvent;
                  lastUpdatedTime
                }
    let to_value x =
      structure_to_value
        [("numberOfEvents", (Option.map x.numberOfEvents ~f:Long.to_value));
        ("eventDataSizeInBytes",
          (Option.map x.eventDataSizeInBytes ~f:Long.to_value));
        ("leastRecentEvent",
          (Option.map x.leastRecentEvent ~f:Time.to_value));
        ("mostRecentEvent", (Option.map x.mostRecentEvent ~f:Time.to_value));
        ("lastUpdatedTime", (Option.map x.lastUpdatedTime ~f:Time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "lastUpdatedTime") in
      let mostRecentEvent =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "mostRecentEvent") in
      let leastRecentEvent =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "leastRecentEvent") in
      let eventDataSizeInBytes =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "eventDataSizeInBytes") in
      let numberOfEvents =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "numberOfEvents") in
      make ?lastUpdatedTime ?mostRecentEvent ?leastRecentEvent
        ?eventDataSizeInBytes ?numberOfEvents ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTime = field_map json__ "lastUpdatedTime" Time.of_json in
      let mostRecentEvent = field_map json__ "mostRecentEvent" Time.of_json in
      let leastRecentEvent = field_map json__ "leastRecentEvent" Time.of_json in
      let eventDataSizeInBytes =
        field_map json__ "eventDataSizeInBytes" Long.of_json in
      let numberOfEvents = field_map json__ "numberOfEvents" Long.of_json in
      make ?lastUpdatedTime ?mostRecentEvent ?leastRecentEvent
        ?eventDataSizeInBytes ?numberOfEvents ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Data about the stored events."]
module AttributeKey =
  struct
    type nonrec t = string
    let context_ = "attributeKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (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:"attributeKey" j
    let to_json = simple_to_json to_value
  end
module AttributeValue =
  struct
    type nonrec t = string
    let context_ = "attributeValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"attributeValue" j
    let to_json = simple_to_json to_value
  end
module Entity =
  struct
    type nonrec t =
      {
      entityType: String_.t [@ocaml.doc "The entity type."];
      entityId: EntityRestrictedString.t
        [@ocaml.doc
          "The entity ID. If you do not know the entityId, you can pass unknown, which is areserved string literal."]}
    let context_ = "Entity"
    let make ~entityType =
      fun ~entityId -> fun () -> { entityType; entityId }
    let to_value x =
      structure_to_value
        [("entityType", (Some (String_.to_value x.entityType)));
        ("entityId", (Some (EntityRestrictedString.to_value x.entityId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entityId =
        EntityRestrictedString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "entityId") in
      let entityType =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "entityType") in
      make ~entityId ~entityType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entityId =
        field_map_exn json__ "entityId" EntityRestrictedString.of_json in
      let entityType = field_map_exn json__ "entityType" String_.of_json in
      make ~entityId ~entityType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The entity details."]
module ExternalModelPredictionMap =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExternalModelSummary =
  struct
    type nonrec t =
      {
      modelEndpoint: String_.t option
        [@ocaml.doc "The endpoint of the Amazon SageMaker model."];
      modelSource: ModelSource.t option
        [@ocaml.doc "The source of the model."]}
    let make ?modelEndpoint =
      fun ?modelSource -> fun () -> { modelEndpoint; modelSource }
    let to_value x =
      structure_to_value
        [("modelEndpoint", (Option.map x.modelEndpoint ~f:String_.to_value));
        ("modelSource", (Option.map x.modelSource ~f:ModelSource.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modelSource =
        (Option.map ~f:ModelSource.of_xml) (Xml.child xml_arg0 "modelSource") in
      let modelEndpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "modelEndpoint") in
      make ?modelSource ?modelEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modelSource = field_map json__ "modelSource" ModelSource.of_json in
      let modelEndpoint = field_map json__ "modelEndpoint" String_.of_json in
      make ?modelSource ?modelEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The Amazon SageMaker model."]
module ModelPredictionMap =
  struct
    type nonrec t = (String_.t * Float_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (Float_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (Float_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string ~of_json:Float_.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ModelVersion =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t [@ocaml.doc "The model ID."];
      modelType: ModelTypeEnum.t [@ocaml.doc "The model type."];
      modelVersionNumber: FloatVersionString.t
        [@ocaml.doc "The model version number."];
      arn: FraudDetectorArn.t option [@ocaml.doc "The model version ARN."]}
    let context_ = "ModelVersion"
    let make ?arn =
      fun ~modelId ->
        fun ~modelType ->
          fun ~modelVersionNumber ->
            fun () -> { arn; modelId; modelType; modelVersionNumber }
    let to_value x =
      structure_to_value
        [("modelId", (Some (ModelIdentifier.to_value x.modelId)));
        ("modelType", (Some (ModelTypeEnum.to_value x.modelType)));
        ("modelVersionNumber",
          (Some (FloatVersionString.to_value x.modelVersionNumber)));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let modelVersionNumber =
        FloatVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelVersionNumber") in
      let modelType =
        ModelTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelType") in
      let modelId =
        ModelIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelId") in
      make ?arn ~modelVersionNumber ~modelType ~modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let modelVersionNumber =
        field_map_exn json__ "modelVersionNumber" FloatVersionString.of_json in
      let modelType = field_map_exn json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map_exn json__ "modelId" ModelIdentifier.of_json in
      make ?arn ~modelVersionNumber ~modelType ~modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The model version."]
module Blob =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module ContentType =
  struct
    type nonrec t = string
    let context_ = "contentType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"contentType" j
    let to_json = simple_to_json to_value
  end
module SensitiveString =
  struct
    type nonrec t = string
    let context_ = "sensitiveString"
    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:"sensitiveString" j
    let to_json = simple_to_json to_value
  end
module MapOfStrings =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOfModelVersionEvaluations =
  struct
    type nonrec t = ModelVersionEvaluation.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:ModelVersionEvaluation.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:ModelVersionEvaluation.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfModelVersionEvaluations"
        ~of_json:ModelVersionEvaluation.of_json j
    let to_json v = composed_to_json to_value v
  end
module AsyncJobStatus =
  struct
    type nonrec t =
      | IN_PROGRESS_INITIALIZING 
      | IN_PROGRESS 
      | CANCEL_IN_PROGRESS 
      | CANCELED 
      | COMPLETE 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS_INITIALIZING -> "IN_PROGRESS_INITIALIZING"
      | IN_PROGRESS -> "IN_PROGRESS"
      | CANCEL_IN_PROGRESS -> "CANCEL_IN_PROGRESS"
      | CANCELED -> "CANCELED"
      | COMPLETE -> "COMPLETE"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS_INITIALIZING" -> IN_PROGRESS_INITIALIZING
      | "IN_PROGRESS" -> IN_PROGRESS
      | "CANCEL_IN_PROGRESS" -> CANCEL_IN_PROGRESS
      | "CANCELED" -> CANCELED
      | "COMPLETE" -> COMPLETE
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration AsyncJobStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AsyncJobStatus" 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 ExternalEventsDetail =
  struct
    type nonrec t =
      {
      dataLocation: S3BucketLocation.t
        [@ocaml.doc "The Amazon S3 bucket location for the data."];
      dataAccessRoleArn: IamRoleArn.t
        [@ocaml.doc
          "The ARN of the role that provides Amazon Fraud Detector access to the data location."]}
    let context_ = "ExternalEventsDetail"
    let make ~dataLocation =
      fun ~dataAccessRoleArn -> fun () -> { dataLocation; dataAccessRoleArn }
    let to_value x =
      structure_to_value
        [("dataLocation", (Some (S3BucketLocation.to_value x.dataLocation)));
        ("dataAccessRoleArn",
          (Some (IamRoleArn.to_value x.dataAccessRoleArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataAccessRoleArn =
        IamRoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "dataAccessRoleArn") in
      let dataLocation =
        S3BucketLocation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "dataLocation") in
      make ~dataAccessRoleArn ~dataLocation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataAccessRoleArn =
        field_map_exn json__ "dataAccessRoleArn" IamRoleArn.of_json in
      let dataLocation =
        field_map_exn json__ "dataLocation" S3BucketLocation.of_json in
      make ~dataAccessRoleArn ~dataLocation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details for the external events data used for model version training."]
module IngestedEventsDetail =
  struct
    type nonrec t =
      {
      ingestedEventsTimeWindow: IngestedEventsTimeWindow.t
        [@ocaml.doc "The start and stop time of the ingested events."]}
    let context_ = "IngestedEventsDetail"
    let make ~ingestedEventsTimeWindow =
      fun () -> { ingestedEventsTimeWindow }
    let to_value x =
      structure_to_value
        [("ingestedEventsTimeWindow",
           (Some
              (IngestedEventsTimeWindow.to_value x.ingestedEventsTimeWindow)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestedEventsTimeWindow =
        IngestedEventsTimeWindow.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ingestedEventsTimeWindow") in
      make ~ingestedEventsTimeWindow ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestedEventsTimeWindow =
        field_map_exn json__ "ingestedEventsTimeWindow"
          IngestedEventsTimeWindow.of_json in
      make ~ingestedEventsTimeWindow ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of the ingested event."]
module TrainingDataSchema =
  struct
    type nonrec t =
      {
      modelVariables: ListOfStrings.t
        [@ocaml.doc "The training data schema variables."];
      labelSchema: LabelSchema.t option }
    let context_ = "TrainingDataSchema"
    let make ?labelSchema =
      fun ~modelVariables -> fun () -> { labelSchema; modelVariables }
    let to_value x =
      structure_to_value
        [("modelVariables", (Some (ListOfStrings.to_value x.modelVariables)));
        ("labelSchema", (Option.map x.labelSchema ~f:LabelSchema.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let labelSchema =
        (Option.map ~f:LabelSchema.of_xml) (Xml.child xml_arg0 "labelSchema") in
      let modelVariables =
        ListOfStrings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelVariables") in
      make ?labelSchema ~modelVariables ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let labelSchema = field_map json__ "labelSchema" LabelSchema.of_json in
      let modelVariables =
        field_map_exn json__ "modelVariables" ListOfStrings.of_json in
      make ?labelSchema ~modelVariables ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The training data schema."]
module TrainingDataSourceEnum =
  struct
    type nonrec t =
      | EXTERNAL_EVENTS 
      | INGESTED_EVENTS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EXTERNAL_EVENTS -> "EXTERNAL_EVENTS"
      | INGESTED_EVENTS -> "INGESTED_EVENTS"
      | Non_static_id s -> s
    let of_string =
      function
      | "EXTERNAL_EVENTS" -> EXTERNAL_EVENTS
      | "INGESTED_EVENTS" -> INGESTED_EVENTS
      | 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 TrainingDataSourceEnum" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TrainingDataSourceEnum" j)
    let to_json = simple_to_json to_value
  end
module TrainingResult =
  struct
    type nonrec t =
      {
      dataValidationMetrics: DataValidationMetrics.t option
        [@ocaml.doc "The validation metrics."];
      trainingMetrics: TrainingMetrics.t option
        [@ocaml.doc "The training metric details."];
      variableImportanceMetrics: VariableImportanceMetrics.t option
        [@ocaml.doc "The variable importance metrics."]}
    let make ?dataValidationMetrics =
      fun ?trainingMetrics ->
        fun ?variableImportanceMetrics ->
          fun () ->
            {
              dataValidationMetrics;
              trainingMetrics;
              variableImportanceMetrics
            }
    let to_value x =
      structure_to_value
        [("dataValidationMetrics",
           (Option.map x.dataValidationMetrics
              ~f:DataValidationMetrics.to_value));
        ("trainingMetrics",
          (Option.map x.trainingMetrics ~f:TrainingMetrics.to_value));
        ("variableImportanceMetrics",
          (Option.map x.variableImportanceMetrics
             ~f:VariableImportanceMetrics.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let variableImportanceMetrics =
        (Option.map ~f:VariableImportanceMetrics.of_xml)
          (Xml.child xml_arg0 "variableImportanceMetrics") in
      let trainingMetrics =
        (Option.map ~f:TrainingMetrics.of_xml)
          (Xml.child xml_arg0 "trainingMetrics") in
      let dataValidationMetrics =
        (Option.map ~f:DataValidationMetrics.of_xml)
          (Xml.child xml_arg0 "dataValidationMetrics") in
      make ?variableImportanceMetrics ?trainingMetrics ?dataValidationMetrics
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let variableImportanceMetrics =
        field_map json__ "variableImportanceMetrics"
          VariableImportanceMetrics.of_json in
      let trainingMetrics =
        field_map json__ "trainingMetrics" TrainingMetrics.of_json in
      let dataValidationMetrics =
        field_map json__ "dataValidationMetrics"
          DataValidationMetrics.of_json in
      make ?variableImportanceMetrics ?trainingMetrics ?dataValidationMetrics
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The training result details."]
module TrainingResultV2 =
  struct
    type nonrec t =
      {
      dataValidationMetrics: DataValidationMetrics.t option ;
      trainingMetricsV2: TrainingMetricsV2.t option
        [@ocaml.doc "The training metric details."];
      variableImportanceMetrics: VariableImportanceMetrics.t option ;
      aggregatedVariablesImportanceMetrics:
        AggregatedVariablesImportanceMetrics.t option
        [@ocaml.doc
          "The variable importance metrics of the aggregated variables. Account Takeover Insights (ATI) model uses event variables from the login data you provide to continuously calculate a set of variables (aggregated variables) based on historical events. For example, your ATI model might calculate the number of times an user has logged in using the same IP address. In this case, event variables used to derive the aggregated variables are IP address and user."]}
    let make ?dataValidationMetrics =
      fun ?trainingMetricsV2 ->
        fun ?variableImportanceMetrics ->
          fun ?aggregatedVariablesImportanceMetrics ->
            fun () ->
              {
                dataValidationMetrics;
                trainingMetricsV2;
                variableImportanceMetrics;
                aggregatedVariablesImportanceMetrics
              }
    let to_value x =
      structure_to_value
        [("dataValidationMetrics",
           (Option.map x.dataValidationMetrics
              ~f:DataValidationMetrics.to_value));
        ("trainingMetricsV2",
          (Option.map x.trainingMetricsV2 ~f:TrainingMetricsV2.to_value));
        ("variableImportanceMetrics",
          (Option.map x.variableImportanceMetrics
             ~f:VariableImportanceMetrics.to_value));
        ("aggregatedVariablesImportanceMetrics",
          (Option.map x.aggregatedVariablesImportanceMetrics
             ~f:AggregatedVariablesImportanceMetrics.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aggregatedVariablesImportanceMetrics =
        (Option.map ~f:AggregatedVariablesImportanceMetrics.of_xml)
          (Xml.child xml_arg0 "aggregatedVariablesImportanceMetrics") in
      let variableImportanceMetrics =
        (Option.map ~f:VariableImportanceMetrics.of_xml)
          (Xml.child xml_arg0 "variableImportanceMetrics") in
      let trainingMetricsV2 =
        (Option.map ~f:TrainingMetricsV2.of_xml)
          (Xml.child xml_arg0 "trainingMetricsV2") in
      let dataValidationMetrics =
        (Option.map ~f:DataValidationMetrics.of_xml)
          (Xml.child xml_arg0 "dataValidationMetrics") in
      make ?aggregatedVariablesImportanceMetrics ?variableImportanceMetrics
        ?trainingMetricsV2 ?dataValidationMetrics ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aggregatedVariablesImportanceMetrics =
        field_map json__ "aggregatedVariablesImportanceMetrics"
          AggregatedVariablesImportanceMetrics.of_json in
      let variableImportanceMetrics =
        field_map json__ "variableImportanceMetrics"
          VariableImportanceMetrics.of_json in
      let trainingMetricsV2 =
        field_map json__ "trainingMetricsV2" TrainingMetricsV2.of_json in
      let dataValidationMetrics =
        field_map json__ "dataValidationMetrics"
          DataValidationMetrics.of_json in
      make ?aggregatedVariablesImportanceMetrics ?variableImportanceMetrics
        ?trainingMetricsV2 ?dataValidationMetrics ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The training result details."]
module DetectorVersionStatus =
  struct
    type nonrec t =
      | DRAFT 
      | ACTIVE 
      | INACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DRAFT -> "DRAFT"
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "DRAFT" -> DRAFT
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | 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 DetectorVersionStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DetectorVersionStatus" j)
    let to_json = simple_to_json to_value
  end
module Integer__lc1 =
  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__lc1" 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 Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "A tag key."];
      value: TagValue.t [@ocaml.doc "A value assigned to a tag key."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Some (TagKey.to_value x.key)));
        ("value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "value" TagValue.of_json in
      let key = field_map_exn json__ "key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A key and value pair."]
module Elements =
  struct
    type nonrec t = string
    let context_ = "Elements"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:320) >>=
                  (fun () -> 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:"Elements" j
    let to_json = simple_to_json to_value
  end
module Rule =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t
        [@ocaml.doc "The detector for which the rule is associated."];
      ruleId: Identifier.t [@ocaml.doc "The rule ID."];
      ruleVersion: WholeNumberVersionString.t
        [@ocaml.doc "The rule version."]}
    let context_ = "Rule"
    let make ~detectorId =
      fun ~ruleId ->
        fun ~ruleVersion -> fun () -> { detectorId; ruleId; ruleVersion }
    let to_value x =
      structure_to_value
        [("detectorId", (Some (Identifier.to_value x.detectorId)));
        ("ruleId", (Some (Identifier.to_value x.ruleId)));
        ("ruleVersion",
          (Some (WholeNumberVersionString.to_value x.ruleVersion)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleVersion =
        WholeNumberVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ruleVersion") in
      let ruleId =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleId") in
      let detectorId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorId") in
      make ~ruleVersion ~ruleId ~detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleVersion =
        field_map_exn json__ "ruleVersion" WholeNumberVersionString.of_json in
      let ruleId = field_map_exn json__ "ruleId" Identifier.of_json in
      let detectorId = field_map_exn json__ "detectorId" Identifier.of_json in
      make ~ruleVersion ~ruleId ~detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A rule."]
module VariableName =
  struct
    type nonrec t = string
    let context_ = "variableName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (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:"variableName" j
    let to_json = simple_to_json to_value
  end
module VariableValue =
  struct
    type nonrec t = string
    let context_ = "variableValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:8192) >>=
             (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:"variableValue" j
    let to_json = simple_to_json to_value
  end
module EventPredictionSummary =
  struct
    type nonrec t =
      {
      eventId: Identifier.t option [@ocaml.doc "The event ID."];
      eventTypeName: Identifier.t option [@ocaml.doc "The event type."];
      eventTimestamp: Time.t option
        [@ocaml.doc "The timestamp of the event."];
      predictionTimestamp: Time.t option
        [@ocaml.doc "The timestamp when the prediction was generated."];
      detectorId: Identifier.t option [@ocaml.doc "The detector ID."];
      detectorVersionId: WholeNumberVersionString.t option
        [@ocaml.doc "The detector version ID."]}
    let make ?eventId =
      fun ?eventTypeName ->
        fun ?eventTimestamp ->
          fun ?predictionTimestamp ->
            fun ?detectorId ->
              fun ?detectorVersionId ->
                fun () ->
                  {
                    eventId;
                    eventTypeName;
                    eventTimestamp;
                    predictionTimestamp;
                    detectorId;
                    detectorVersionId
                  }
    let to_value x =
      structure_to_value
        [("eventId", (Option.map x.eventId ~f:Identifier.to_value));
        ("eventTypeName",
          (Option.map x.eventTypeName ~f:Identifier.to_value));
        ("eventTimestamp", (Option.map x.eventTimestamp ~f:Time.to_value));
        ("predictionTimestamp",
          (Option.map x.predictionTimestamp ~f:Time.to_value));
        ("detectorId", (Option.map x.detectorId ~f:Identifier.to_value));
        ("detectorVersionId",
          (Option.map x.detectorVersionId
             ~f:WholeNumberVersionString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let detectorVersionId =
        (Option.map ~f:WholeNumberVersionString.of_xml)
          (Xml.child xml_arg0 "detectorVersionId") in
      let detectorId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "detectorId") in
      let predictionTimestamp =
        (Option.map ~f:Time.of_xml)
          (Xml.child xml_arg0 "predictionTimestamp") in
      let eventTimestamp =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "eventTimestamp") in
      let eventTypeName =
        (Option.map ~f:Identifier.of_xml)
          (Xml.child xml_arg0 "eventTypeName") in
      let eventId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "eventId") in
      make ?detectorVersionId ?detectorId ?predictionTimestamp
        ?eventTimestamp ?eventTypeName ?eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let detectorVersionId =
        field_map json__ "detectorVersionId" WholeNumberVersionString.of_json in
      let detectorId = field_map json__ "detectorId" Identifier.of_json in
      let predictionTimestamp =
        field_map json__ "predictionTimestamp" Time.of_json in
      let eventTimestamp = field_map json__ "eventTimestamp" Time.of_json in
      let eventTypeName = field_map json__ "eventTypeName" Identifier.of_json in
      let eventId = field_map json__ "eventId" Identifier.of_json in
      make ?detectorVersionId ?detectorId ?predictionTimestamp
        ?eventTimestamp ?eventTypeName ?eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the summary of an event prediction."]
module FilterString =
  struct
    type nonrec t = string
    let context_ = "filterString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"^[0-9A-Za-z_-]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"filterString" j
    let to_json = simple_to_json to_value
  end
module Variable =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the variable."];
      dataType: DataType.t option
        [@ocaml.doc
          "The data type of the variable. For more information see Variable types."];
      dataSource: DataSource.t option
        [@ocaml.doc "The data source of the variable."];
      defaultValue: String_.t option
        [@ocaml.doc "The default value of the variable."];
      description: String_.t option
        [@ocaml.doc "The description of the variable."];
      variableType: String_.t option
        [@ocaml.doc
          "The variable type of the variable. Valid Values: AUTH_CODE | AVS | BILLING_ADDRESS_L1 | BILLING_ADDRESS_L2 | BILLING_CITY | BILLING_COUNTRY | BILLING_NAME | BILLING_PHONE | BILLING_STATE | BILLING_ZIP | CARD_BIN | CATEGORICAL | CURRENCY_CODE | EMAIL_ADDRESS | FINGERPRINT | FRAUD_LABEL | FREE_FORM_TEXT | IP_ADDRESS | NUMERIC | ORDER_ID | PAYMENT_TYPE | PHONE_NUMBER | PRICE | PRODUCT_CATEGORY | SHIPPING_ADDRESS_L1 | SHIPPING_ADDRESS_L2 | SHIPPING_CITY | SHIPPING_COUNTRY | SHIPPING_NAME | SHIPPING_PHONE | SHIPPING_STATE | SHIPPING_ZIP | USERAGENT"];
      lastUpdatedTime: Time.t option
        [@ocaml.doc "The time when variable was last updated."];
      createdTime: Time.t option
        [@ocaml.doc "The time when the variable was created."];
      arn: FraudDetectorArn.t option [@ocaml.doc "The ARN of the variable."]}
    let make ?name =
      fun ?dataType ->
        fun ?dataSource ->
          fun ?defaultValue ->
            fun ?description ->
              fun ?variableType ->
                fun ?lastUpdatedTime ->
                  fun ?createdTime ->
                    fun ?arn ->
                      fun () ->
                        {
                          name;
                          dataType;
                          dataSource;
                          defaultValue;
                          description;
                          variableType;
                          lastUpdatedTime;
                          createdTime;
                          arn
                        }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("dataType", (Option.map x.dataType ~f:DataType.to_value));
        ("dataSource", (Option.map x.dataSource ~f:DataSource.to_value));
        ("defaultValue", (Option.map x.defaultValue ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("variableType", (Option.map x.variableType ~f:String_.to_value));
        ("lastUpdatedTime", (Option.map x.lastUpdatedTime ~f:Time.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Time.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let createdTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createdTime") in
      let lastUpdatedTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "lastUpdatedTime") in
      let variableType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "variableType") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let defaultValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "defaultValue") in
      let dataSource =
        (Option.map ~f:DataSource.of_xml) (Xml.child xml_arg0 "dataSource") in
      let dataType =
        (Option.map ~f:DataType.of_xml) (Xml.child xml_arg0 "dataType") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?arn ?createdTime ?lastUpdatedTime ?variableType ?description
        ?defaultValue ?dataSource ?dataType ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let createdTime = field_map json__ "createdTime" Time.of_json in
      let lastUpdatedTime = field_map json__ "lastUpdatedTime" Time.of_json in
      let variableType = field_map json__ "variableType" String_.of_json in
      let description = field_map json__ "description" String_.of_json in
      let defaultValue = field_map json__ "defaultValue" String_.of_json in
      let dataSource = field_map json__ "dataSource" DataSource.of_json in
      let dataType = field_map json__ "dataType" DataType.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?arn ?createdTime ?lastUpdatedTime ?variableType ?description
        ?defaultValue ?dataSource ?dataType ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The variable."]
module RuleDetail =
  struct
    type nonrec t =
      {
      ruleId: Identifier.t option [@ocaml.doc "The rule ID."];
      description: Description.t option [@ocaml.doc "The rule description."];
      detectorId: Identifier.t option
        [@ocaml.doc "The detector for which the rule is associated."];
      ruleVersion: WholeNumberVersionString.t option
        [@ocaml.doc "The rule version."];
      expression: RuleExpression.t option [@ocaml.doc "The rule expression."];
      language: Language.t option [@ocaml.doc "The rule language."];
      outcomes: NonEmptyListOfStrings.t option
        [@ocaml.doc "The rule outcomes."];
      lastUpdatedTime: Time.t option
        [@ocaml.doc "Timestamp of the last time the rule was updated."];
      createdTime: Time.t option
        [@ocaml.doc "The timestamp of when the rule was created."];
      arn: FraudDetectorArn.t option [@ocaml.doc "The rule ARN."]}
    let make ?ruleId =
      fun ?description ->
        fun ?detectorId ->
          fun ?ruleVersion ->
            fun ?expression ->
              fun ?language ->
                fun ?outcomes ->
                  fun ?lastUpdatedTime ->
                    fun ?createdTime ->
                      fun ?arn ->
                        fun () ->
                          {
                            ruleId;
                            description;
                            detectorId;
                            ruleVersion;
                            expression;
                            language;
                            outcomes;
                            lastUpdatedTime;
                            createdTime;
                            arn
                          }
    let to_value x =
      structure_to_value
        [("ruleId", (Option.map x.ruleId ~f:Identifier.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("detectorId", (Option.map x.detectorId ~f:Identifier.to_value));
        ("ruleVersion",
          (Option.map x.ruleVersion ~f:WholeNumberVersionString.to_value));
        ("expression", (Option.map x.expression ~f:RuleExpression.to_value));
        ("language", (Option.map x.language ~f:Language.to_value));
        ("outcomes",
          (Option.map x.outcomes ~f:NonEmptyListOfStrings.to_value));
        ("lastUpdatedTime", (Option.map x.lastUpdatedTime ~f:Time.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Time.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let createdTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createdTime") in
      let lastUpdatedTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "lastUpdatedTime") in
      let outcomes =
        (Option.map ~f:NonEmptyListOfStrings.of_xml)
          (Xml.child xml_arg0 "outcomes") in
      let language =
        (Option.map ~f:Language.of_xml) (Xml.child xml_arg0 "language") in
      let expression =
        (Option.map ~f:RuleExpression.of_xml)
          (Xml.child xml_arg0 "expression") in
      let ruleVersion =
        (Option.map ~f:WholeNumberVersionString.of_xml)
          (Xml.child xml_arg0 "ruleVersion") in
      let detectorId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "detectorId") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let ruleId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "ruleId") in
      make ?arn ?createdTime ?lastUpdatedTime ?outcomes ?language ?expression
        ?ruleVersion ?detectorId ?description ?ruleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let createdTime = field_map json__ "createdTime" Time.of_json in
      let lastUpdatedTime = field_map json__ "lastUpdatedTime" Time.of_json in
      let outcomes =
        field_map json__ "outcomes" NonEmptyListOfStrings.of_json in
      let language = field_map json__ "language" Language.of_json in
      let expression = field_map json__ "expression" RuleExpression.of_json in
      let ruleVersion =
        field_map json__ "ruleVersion" WholeNumberVersionString.of_json in
      let detectorId = field_map json__ "detectorId" Identifier.of_json in
      let description = field_map json__ "description" Description.of_json in
      let ruleId = field_map json__ "ruleId" Identifier.of_json in
      make ?arn ?createdTime ?lastUpdatedTime ?outcomes ?language ?expression
        ?ruleVersion ?detectorId ?description ?ruleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of the rule."]
module Outcome =
  struct
    type nonrec t =
      {
      name: Identifier.t option [@ocaml.doc "The outcome name."];
      description: Description.t option
        [@ocaml.doc "The outcome description."];
      lastUpdatedTime: Time.t option
        [@ocaml.doc "The timestamp when the outcome was last updated."];
      createdTime: Time.t option
        [@ocaml.doc "The timestamp when the outcome was created."];
      arn: FraudDetectorArn.t option [@ocaml.doc "The outcome ARN."]}
    let make ?name =
      fun ?description ->
        fun ?lastUpdatedTime ->
          fun ?createdTime ->
            fun ?arn ->
              fun () ->
                { name; description; lastUpdatedTime; createdTime; arn }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:Identifier.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("lastUpdatedTime", (Option.map x.lastUpdatedTime ~f:Time.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Time.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let createdTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createdTime") in
      let lastUpdatedTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "lastUpdatedTime") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "name") in
      make ?arn ?createdTime ?lastUpdatedTime ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let createdTime = field_map json__ "createdTime" Time.of_json in
      let lastUpdatedTime = field_map json__ "lastUpdatedTime" Time.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" Identifier.of_json in
      make ?arn ?createdTime ?lastUpdatedTime ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The outcome."]
module Model =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t option [@ocaml.doc "The model ID."];
      modelType: ModelTypeEnum.t option [@ocaml.doc "The model type."];
      description: Description.t option [@ocaml.doc "The model description."];
      eventTypeName: String_.t option
        [@ocaml.doc "The name of the event type."];
      createdTime: Time.t option
        [@ocaml.doc "Timestamp of when the model was created."];
      lastUpdatedTime: Time.t option
        [@ocaml.doc "Timestamp of last time the model was updated."];
      arn: FraudDetectorArn.t option [@ocaml.doc "The ARN of the model."]}
    let make ?modelId =
      fun ?modelType ->
        fun ?description ->
          fun ?eventTypeName ->
            fun ?createdTime ->
              fun ?lastUpdatedTime ->
                fun ?arn ->
                  fun () ->
                    {
                      modelId;
                      modelType;
                      description;
                      eventTypeName;
                      createdTime;
                      lastUpdatedTime;
                      arn
                    }
    let to_value x =
      structure_to_value
        [("modelId", (Option.map x.modelId ~f:ModelIdentifier.to_value));
        ("modelType", (Option.map x.modelType ~f:ModelTypeEnum.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("eventTypeName", (Option.map x.eventTypeName ~f:String_.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Time.to_value));
        ("lastUpdatedTime", (Option.map x.lastUpdatedTime ~f:Time.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let lastUpdatedTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "lastUpdatedTime") in
      let createdTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createdTime") in
      let eventTypeName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "eventTypeName") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let modelType =
        (Option.map ~f:ModelTypeEnum.of_xml) (Xml.child xml_arg0 "modelType") in
      let modelId =
        (Option.map ~f:ModelIdentifier.of_xml) (Xml.child xml_arg0 "modelId") in
      make ?arn ?lastUpdatedTime ?createdTime ?eventTypeName ?description
        ?modelType ?modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let lastUpdatedTime = field_map json__ "lastUpdatedTime" Time.of_json in
      let createdTime = field_map json__ "createdTime" Time.of_json in
      let eventTypeName = field_map json__ "eventTypeName" String_.of_json in
      let description = field_map json__ "description" Description.of_json in
      let modelType = field_map json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map json__ "modelId" ModelIdentifier.of_json in
      make ?arn ?lastUpdatedTime ?createdTime ?eventTypeName ?description
        ?modelType ?modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The model."]
module AllowDenyList =
  struct
    type nonrec t =
      {
      name: NoDashIdentifier.t option [@ocaml.doc "The name of the list."];
      description: Description.t option
        [@ocaml.doc "The description of the list."];
      variableType: VariableType.t option
        [@ocaml.doc "The variable type of the list."];
      createdTime: Time.t option
        [@ocaml.doc "The time the list was created."];
      updatedTime: Time.t option
        [@ocaml.doc "The time the list was last updated."];
      arn: FraudDetectorArn.t option [@ocaml.doc "The ARN of the list."]}
    let make ?name =
      fun ?description ->
        fun ?variableType ->
          fun ?createdTime ->
            fun ?updatedTime ->
              fun ?arn ->
                fun () ->
                  {
                    name;
                    description;
                    variableType;
                    createdTime;
                    updatedTime;
                    arn
                  }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:NoDashIdentifier.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("variableType",
          (Option.map x.variableType ~f:VariableType.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Time.to_value));
        ("updatedTime", (Option.map x.updatedTime ~f:Time.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let updatedTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "updatedTime") in
      let createdTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createdTime") in
      let variableType =
        (Option.map ~f:VariableType.of_xml)
          (Xml.child xml_arg0 "variableType") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:NoDashIdentifier.of_xml) (Xml.child xml_arg0 "name") in
      make ?arn ?updatedTime ?createdTime ?variableType ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let updatedTime = field_map json__ "updatedTime" Time.of_json in
      let createdTime = field_map json__ "createdTime" Time.of_json in
      let variableType = field_map json__ "variableType" VariableType.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" NoDashIdentifier.of_json in
      make ?arn ?updatedTime ?createdTime ?variableType ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The metadata of a list."]
module Label =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The label name."];
      description: Description.t option [@ocaml.doc "The label description."];
      lastUpdatedTime: Time.t option
        [@ocaml.doc "Timestamp of when the label was last updated."];
      createdTime: Time.t option
        [@ocaml.doc "Timestamp of when the event type was created."];
      arn: FraudDetectorArn.t option [@ocaml.doc "The label ARN."]}
    let make ?name =
      fun ?description ->
        fun ?lastUpdatedTime ->
          fun ?createdTime ->
            fun ?arn ->
              fun () ->
                { name; description; lastUpdatedTime; createdTime; arn }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("lastUpdatedTime", (Option.map x.lastUpdatedTime ~f:Time.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Time.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let createdTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createdTime") in
      let lastUpdatedTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "lastUpdatedTime") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?arn ?createdTime ?lastUpdatedTime ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let createdTime = field_map json__ "createdTime" Time.of_json in
      let lastUpdatedTime = field_map json__ "lastUpdatedTime" Time.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?arn ?createdTime ?lastUpdatedTime ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The label details."]
module KmsEncryptionKeyArn =
  struct
    type nonrec t = string
    let context_ = "KmsEncryptionKeyArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:7) >>=
             (fun () ->
                (check_string_max i ~max:90) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^DEFAULT|arn:[a-zA-Z0-9-]+:kms:[a-zA-Z0-9-]+:\\d{12}:key\\/\\w{8}-\\w{4}-\\w{4}-\\w{4}-\\w{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:"KmsEncryptionKeyArn" j
    let to_json = simple_to_json to_value
  end
module ExternalModel =
  struct
    type nonrec t =
      {
      modelEndpoint: String_.t option
        [@ocaml.doc "The Amazon SageMaker model endpoints."];
      modelSource: ModelSource.t option
        [@ocaml.doc "The source of the model."];
      invokeModelEndpointRoleArn: String_.t option
        [@ocaml.doc "The role used to invoke the model."];
      inputConfiguration: ModelInputConfiguration.t option
        [@ocaml.doc "The input configuration."];
      outputConfiguration: ModelOutputConfiguration.t option
        [@ocaml.doc "The output configuration."];
      modelEndpointStatus: ModelEndpointStatus.t option
        [@ocaml.doc
          "The Amazon Fraud Detector status for the external model endpoint"];
      lastUpdatedTime: Time.t option
        [@ocaml.doc "Timestamp of when the model was last updated."];
      createdTime: Time.t option
        [@ocaml.doc "Timestamp of when the model was last created."];
      arn: FraudDetectorArn.t option [@ocaml.doc "The model ARN."]}
    let make ?modelEndpoint =
      fun ?modelSource ->
        fun ?invokeModelEndpointRoleArn ->
          fun ?inputConfiguration ->
            fun ?outputConfiguration ->
              fun ?modelEndpointStatus ->
                fun ?lastUpdatedTime ->
                  fun ?createdTime ->
                    fun ?arn ->
                      fun () ->
                        {
                          modelEndpoint;
                          modelSource;
                          invokeModelEndpointRoleArn;
                          inputConfiguration;
                          outputConfiguration;
                          modelEndpointStatus;
                          lastUpdatedTime;
                          createdTime;
                          arn
                        }
    let to_value x =
      structure_to_value
        [("modelEndpoint", (Option.map x.modelEndpoint ~f:String_.to_value));
        ("modelSource", (Option.map x.modelSource ~f:ModelSource.to_value));
        ("invokeModelEndpointRoleArn",
          (Option.map x.invokeModelEndpointRoleArn ~f:String_.to_value));
        ("inputConfiguration",
          (Option.map x.inputConfiguration
             ~f:ModelInputConfiguration.to_value));
        ("outputConfiguration",
          (Option.map x.outputConfiguration
             ~f:ModelOutputConfiguration.to_value));
        ("modelEndpointStatus",
          (Option.map x.modelEndpointStatus ~f:ModelEndpointStatus.to_value));
        ("lastUpdatedTime", (Option.map x.lastUpdatedTime ~f:Time.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Time.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let createdTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createdTime") in
      let lastUpdatedTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "lastUpdatedTime") in
      let modelEndpointStatus =
        (Option.map ~f:ModelEndpointStatus.of_xml)
          (Xml.child xml_arg0 "modelEndpointStatus") in
      let outputConfiguration =
        (Option.map ~f:ModelOutputConfiguration.of_xml)
          (Xml.child xml_arg0 "outputConfiguration") in
      let inputConfiguration =
        (Option.map ~f:ModelInputConfiguration.of_xml)
          (Xml.child xml_arg0 "inputConfiguration") in
      let invokeModelEndpointRoleArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "invokeModelEndpointRoleArn") in
      let modelSource =
        (Option.map ~f:ModelSource.of_xml) (Xml.child xml_arg0 "modelSource") in
      let modelEndpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "modelEndpoint") in
      make ?arn ?createdTime ?lastUpdatedTime ?modelEndpointStatus
        ?outputConfiguration ?inputConfiguration ?invokeModelEndpointRoleArn
        ?modelSource ?modelEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let createdTime = field_map json__ "createdTime" Time.of_json in
      let lastUpdatedTime = field_map json__ "lastUpdatedTime" Time.of_json in
      let modelEndpointStatus =
        field_map json__ "modelEndpointStatus" ModelEndpointStatus.of_json in
      let outputConfiguration =
        field_map json__ "outputConfiguration"
          ModelOutputConfiguration.of_json in
      let inputConfiguration =
        field_map json__ "inputConfiguration" ModelInputConfiguration.of_json in
      let invokeModelEndpointRoleArn =
        field_map json__ "invokeModelEndpointRoleArn" String_.of_json in
      let modelSource = field_map json__ "modelSource" ModelSource.of_json in
      let modelEndpoint = field_map json__ "modelEndpoint" String_.of_json in
      make ?arn ?createdTime ?lastUpdatedTime ?modelEndpointStatus
        ?outputConfiguration ?inputConfiguration ?invokeModelEndpointRoleArn
        ?modelSource ?modelEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The Amazon SageMaker model."]
module EventType =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The event type name."];
      description: Description.t option
        [@ocaml.doc "The event type description."];
      eventVariables: ListOfStrings.t option
        [@ocaml.doc "The event type event variables."];
      labels: ListOfStrings.t option [@ocaml.doc "The event type labels."];
      entityTypes: NonEmptyListOfStrings.t option
        [@ocaml.doc "The event type entity types."];
      eventIngestion: EventIngestion.t option
        [@ocaml.doc
          "If Enabled, Amazon Fraud Detector stores event data when you generate a prediction and uses that data to update calculated variables in near real-time. Amazon Fraud Detector uses this data, known as INGESTED_EVENTS, to train your model and improve fraud predictions."];
      ingestedEventStatistics: IngestedEventStatistics.t option
        [@ocaml.doc "Data about the stored events."];
      lastUpdatedTime: Time.t option
        [@ocaml.doc "Timestamp of when the event type was last updated."];
      createdTime: Time.t option
        [@ocaml.doc "Timestamp of when the event type was created."];
      arn: FraudDetectorArn.t option [@ocaml.doc "The entity type ARN."];
      eventOrchestration: EventOrchestration.t option
        [@ocaml.doc "The event orchestration status."]}
    let make ?name =
      fun ?description ->
        fun ?eventVariables ->
          fun ?labels ->
            fun ?entityTypes ->
              fun ?eventIngestion ->
                fun ?ingestedEventStatistics ->
                  fun ?lastUpdatedTime ->
                    fun ?createdTime ->
                      fun ?arn ->
                        fun ?eventOrchestration ->
                          fun () ->
                            {
                              name;
                              description;
                              eventVariables;
                              labels;
                              entityTypes;
                              eventIngestion;
                              ingestedEventStatistics;
                              lastUpdatedTime;
                              createdTime;
                              arn;
                              eventOrchestration
                            }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("eventVariables",
          (Option.map x.eventVariables ~f:ListOfStrings.to_value));
        ("labels", (Option.map x.labels ~f:ListOfStrings.to_value));
        ("entityTypes",
          (Option.map x.entityTypes ~f:NonEmptyListOfStrings.to_value));
        ("eventIngestion",
          (Option.map x.eventIngestion ~f:EventIngestion.to_value));
        ("ingestedEventStatistics",
          (Option.map x.ingestedEventStatistics
             ~f:IngestedEventStatistics.to_value));
        ("lastUpdatedTime", (Option.map x.lastUpdatedTime ~f:Time.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Time.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value));
        ("eventOrchestration",
          (Option.map x.eventOrchestration ~f:EventOrchestration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventOrchestration =
        (Option.map ~f:EventOrchestration.of_xml)
          (Xml.child xml_arg0 "eventOrchestration") in
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let createdTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createdTime") in
      let lastUpdatedTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "lastUpdatedTime") in
      let ingestedEventStatistics =
        (Option.map ~f:IngestedEventStatistics.of_xml)
          (Xml.child xml_arg0 "ingestedEventStatistics") in
      let eventIngestion =
        (Option.map ~f:EventIngestion.of_xml)
          (Xml.child xml_arg0 "eventIngestion") in
      let entityTypes =
        (Option.map ~f:NonEmptyListOfStrings.of_xml)
          (Xml.child xml_arg0 "entityTypes") in
      let labels =
        (Option.map ~f:ListOfStrings.of_xml) (Xml.child xml_arg0 "labels") in
      let eventVariables =
        (Option.map ~f:ListOfStrings.of_xml)
          (Xml.child xml_arg0 "eventVariables") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?eventOrchestration ?arn ?createdTime ?lastUpdatedTime
        ?ingestedEventStatistics ?eventIngestion ?entityTypes ?labels
        ?eventVariables ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventOrchestration =
        field_map json__ "eventOrchestration" EventOrchestration.of_json in
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let createdTime = field_map json__ "createdTime" Time.of_json in
      let lastUpdatedTime = field_map json__ "lastUpdatedTime" Time.of_json in
      let ingestedEventStatistics =
        field_map json__ "ingestedEventStatistics"
          IngestedEventStatistics.of_json in
      let eventIngestion =
        field_map json__ "eventIngestion" EventIngestion.of_json in
      let entityTypes =
        field_map json__ "entityTypes" NonEmptyListOfStrings.of_json in
      let labels = field_map json__ "labels" ListOfStrings.of_json in
      let eventVariables =
        field_map json__ "eventVariables" ListOfStrings.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?eventOrchestration ?arn ?createdTime ?lastUpdatedTime
        ?ingestedEventStatistics ?eventIngestion ?entityTypes ?labels
        ?eventVariables ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The event type details."]
module EventAttributeMap =
  struct
    type nonrec t = (AttributeKey.t * AttributeValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((AttributeKey.of_string chopped),
                              (AttributeValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (AttributeKey.to_value x) |>
                    (fun x ->
                       (AttributeValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:AttributeKey.of_string
        ~of_json:AttributeValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOfEntities =
  struct
    type nonrec t = Entity.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:Entity.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:Entity.of_xml)
    let of_json j =
      list_of_json ~kind:"listOfEntities" ~of_json:Entity.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExternalModelOutputs =
  struct
    type nonrec t =
      {
      externalModel: ExternalModelSummary.t option
        [@ocaml.doc "The Amazon SageMaker model."];
      outputs: ExternalModelPredictionMap.t option
        [@ocaml.doc
          "The fraud prediction scores from Amazon SageMaker model."]}
    let make ?externalModel =
      fun ?outputs -> fun () -> { externalModel; outputs }
    let to_value x =
      structure_to_value
        [("externalModel",
           (Option.map x.externalModel ~f:ExternalModelSummary.to_value));
        ("outputs",
          (Option.map x.outputs ~f:ExternalModelPredictionMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outputs =
        (Option.map ~f:ExternalModelPredictionMap.of_xml)
          (Xml.child xml_arg0 "outputs") in
      let externalModel =
        (Option.map ~f:ExternalModelSummary.of_xml)
          (Xml.child xml_arg0 "externalModel") in
      make ?outputs ?externalModel ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outputs =
        field_map json__ "outputs" ExternalModelPredictionMap.of_json in
      let externalModel =
        field_map json__ "externalModel" ExternalModelSummary.of_json in
      make ?outputs ?externalModel ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The fraud prediction scores from Amazon SageMaker model."]
module ModelScores =
  struct
    type nonrec t =
      {
      modelVersion: ModelVersion.t option [@ocaml.doc "The model version."];
      scores: ModelPredictionMap.t option
        [@ocaml.doc "The model's fraud prediction scores."]}
    let make ?modelVersion =
      fun ?scores -> fun () -> { modelVersion; scores }
    let to_value x =
      structure_to_value
        [("modelVersion",
           (Option.map x.modelVersion ~f:ModelVersion.to_value));
        ("scores", (Option.map x.scores ~f:ModelPredictionMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scores =
        (Option.map ~f:ModelPredictionMap.of_xml)
          (Xml.child xml_arg0 "scores") in
      let modelVersion =
        (Option.map ~f:ModelVersion.of_xml)
          (Xml.child xml_arg0 "modelVersion") in
      make ?scores ?modelVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scores = field_map json__ "scores" ModelPredictionMap.of_json in
      let modelVersion = field_map json__ "modelVersion" ModelVersion.of_json in
      make ?scores ?modelVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The fraud prediction scores."]
module RuleResult =
  struct
    type nonrec t =
      {
      ruleId: String_.t option
        [@ocaml.doc
          "The rule ID that was matched, based on the rule execution mode."];
      outcomes: ListOfStrings.t option
        [@ocaml.doc
          "The outcomes of the matched rule, based on the rule execution mode."]}
    let make ?ruleId = fun ?outcomes -> fun () -> { ruleId; outcomes }
    let to_value x =
      structure_to_value
        [("ruleId", (Option.map x.ruleId ~f:String_.to_value));
        ("outcomes", (Option.map x.outcomes ~f:ListOfStrings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outcomes =
        (Option.map ~f:ListOfStrings.of_xml) (Xml.child xml_arg0 "outcomes") in
      let ruleId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ruleId") in
      make ?outcomes ?ruleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outcomes = field_map json__ "outcomes" ListOfStrings.of_json in
      let ruleId = field_map json__ "ruleId" String_.of_json in
      make ?outcomes ?ruleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The rule results."]
module ModelEndpointDataBlob =
  struct
    type nonrec t =
      {
      byteBuffer: Blob.t option
        [@ocaml.doc
          "The byte buffer of the Amazon SageMaker model endpoint input data blob."];
      contentType: ContentType.t option
        [@ocaml.doc
          "The content type of the Amazon SageMaker model endpoint input data blob."]}
    let make ?byteBuffer =
      fun ?contentType -> fun () -> { byteBuffer; contentType }
    let to_value x =
      structure_to_value
        [("byteBuffer", (Option.map x.byteBuffer ~f:Blob.to_value));
        ("contentType", (Option.map x.contentType ~f:ContentType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contentType =
        (Option.map ~f:ContentType.of_xml) (Xml.child xml_arg0 "contentType") in
      let byteBuffer =
        (Option.map ~f:Blob.of_xml) (Xml.child xml_arg0 "byteBuffer") in
      make ?contentType ?byteBuffer ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contentType = field_map json__ "contentType" ContentType.of_json in
      let byteBuffer = field_map json__ "byteBuffer" Blob.of_json in
      make ?contentType ?byteBuffer ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A pre-formed Amazon SageMaker model input you can include if your detector version includes an imported Amazon SageMaker model endpoint with pass-through input configuration."]
module SageMakerEndpointIdentifier =
  struct
    type nonrec t = string
    let context_ = "sageMakerEndpointIdentifier"
    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:"^[0-9A-Za-z_-]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"sageMakerEndpointIdentifier" j
    let to_json = simple_to_json to_value
  end
module EvaluatedRule =
  struct
    type nonrec t =
      {
      ruleId: Identifier.t option [@ocaml.doc "The rule ID."];
      ruleVersion: WholeNumberVersionString.t option
        [@ocaml.doc "The rule version."];
      expression: SensitiveString.t option
        [@ocaml.doc "The rule expression."];
      expressionWithValues: SensitiveString.t option
        [@ocaml.doc "The rule expression value."];
      outcomes: ListOfStrings.t option [@ocaml.doc "The rule outcome."];
      evaluated: Boolean.t option
        [@ocaml.doc "Indicates whether the rule was evaluated."];
      matched: Boolean.t option
        [@ocaml.doc "Indicates whether the rule matched."]}
    let make ?ruleId =
      fun ?ruleVersion ->
        fun ?expression ->
          fun ?expressionWithValues ->
            fun ?outcomes ->
              fun ?evaluated ->
                fun ?matched ->
                  fun () ->
                    {
                      ruleId;
                      ruleVersion;
                      expression;
                      expressionWithValues;
                      outcomes;
                      evaluated;
                      matched
                    }
    let to_value x =
      structure_to_value
        [("ruleId", (Option.map x.ruleId ~f:Identifier.to_value));
        ("ruleVersion",
          (Option.map x.ruleVersion ~f:WholeNumberVersionString.to_value));
        ("expression", (Option.map x.expression ~f:SensitiveString.to_value));
        ("expressionWithValues",
          (Option.map x.expressionWithValues ~f:SensitiveString.to_value));
        ("outcomes", (Option.map x.outcomes ~f:ListOfStrings.to_value));
        ("evaluated", (Option.map x.evaluated ~f:Boolean.to_value));
        ("matched", (Option.map x.matched ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let matched =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "matched") in
      let evaluated =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "evaluated") in
      let outcomes =
        (Option.map ~f:ListOfStrings.of_xml) (Xml.child xml_arg0 "outcomes") in
      let expressionWithValues =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "expressionWithValues") in
      let expression =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "expression") in
      let ruleVersion =
        (Option.map ~f:WholeNumberVersionString.of_xml)
          (Xml.child xml_arg0 "ruleVersion") in
      let ruleId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "ruleId") in
      make ?matched ?evaluated ?outcomes ?expressionWithValues ?expression
        ?ruleVersion ?ruleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let matched = field_map json__ "matched" Boolean.of_json in
      let evaluated = field_map json__ "evaluated" Boolean.of_json in
      let outcomes = field_map json__ "outcomes" ListOfStrings.of_json in
      let expressionWithValues =
        field_map json__ "expressionWithValues" SensitiveString.of_json in
      let expression = field_map json__ "expression" SensitiveString.of_json in
      let ruleVersion =
        field_map json__ "ruleVersion" WholeNumberVersionString.of_json in
      let ruleId = field_map json__ "ruleId" Identifier.of_json in
      make ?matched ?evaluated ?outcomes ?expressionWithValues ?expression
        ?ruleVersion ?ruleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of the rule used for evaluating variable values."]
module EvaluatedExternalModel =
  struct
    type nonrec t =
      {
      modelEndpoint: String_.t option
        [@ocaml.doc "The endpoint of the external (Amazon Sagemaker) model."];
      useEventVariables: Boolean.t option
        [@ocaml.doc
          "Indicates whether event variables were used to generate predictions."];
      inputVariables: MapOfStrings.t option
        [@ocaml.doc "Input variables use for generating predictions."];
      outputVariables: MapOfStrings.t option [@ocaml.doc "Output variables."]}
    let make ?modelEndpoint =
      fun ?useEventVariables ->
        fun ?inputVariables ->
          fun ?outputVariables ->
            fun () ->
              {
                modelEndpoint;
                useEventVariables;
                inputVariables;
                outputVariables
              }
    let to_value x =
      structure_to_value
        [("modelEndpoint", (Option.map x.modelEndpoint ~f:String_.to_value));
        ("useEventVariables",
          (Option.map x.useEventVariables ~f:Boolean.to_value));
        ("inputVariables",
          (Option.map x.inputVariables ~f:MapOfStrings.to_value));
        ("outputVariables",
          (Option.map x.outputVariables ~f:MapOfStrings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outputVariables =
        (Option.map ~f:MapOfStrings.of_xml)
          (Xml.child xml_arg0 "outputVariables") in
      let inputVariables =
        (Option.map ~f:MapOfStrings.of_xml)
          (Xml.child xml_arg0 "inputVariables") in
      let useEventVariables =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "useEventVariables") in
      let modelEndpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "modelEndpoint") in
      make ?outputVariables ?inputVariables ?useEventVariables ?modelEndpoint
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outputVariables =
        field_map json__ "outputVariables" MapOfStrings.of_json in
      let inputVariables =
        field_map json__ "inputVariables" MapOfStrings.of_json in
      let useEventVariables =
        field_map json__ "useEventVariables" Boolean.of_json in
      let modelEndpoint = field_map json__ "modelEndpoint" String_.of_json in
      make ?outputVariables ?inputVariables ?useEventVariables ?modelEndpoint
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of the external (Amazon Sagemaker) model evaluated for generating predictions."]
module EvaluatedModelVersion =
  struct
    type nonrec t =
      {
      modelId: String_.t option [@ocaml.doc "The model ID."];
      modelVersion: String_.t option [@ocaml.doc "The model version."];
      modelType: String_.t option
        [@ocaml.doc
          "The model type. Valid values: ONLINE_FRAUD_INSIGHTS | TRANSACTION_FRAUD_INSIGHTS"];
      evaluations: ListOfModelVersionEvaluations.t option
        [@ocaml.doc "Evaluations generated for the model version."]}
    let make ?modelId =
      fun ?modelVersion ->
        fun ?modelType ->
          fun ?evaluations ->
            fun () -> { modelId; modelVersion; modelType; evaluations }
    let to_value x =
      structure_to_value
        [("modelId", (Option.map x.modelId ~f:String_.to_value));
        ("modelVersion", (Option.map x.modelVersion ~f:String_.to_value));
        ("modelType", (Option.map x.modelType ~f:String_.to_value));
        ("evaluations",
          (Option.map x.evaluations ~f:ListOfModelVersionEvaluations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let evaluations =
        (Option.map ~f:ListOfModelVersionEvaluations.of_xml)
          (Xml.child xml_arg0 "evaluations") in
      let modelType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "modelType") in
      let modelVersion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "modelVersion") in
      let modelId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "modelId") in
      make ?evaluations ?modelType ?modelVersion ?modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let evaluations =
        field_map json__ "evaluations" ListOfModelVersionEvaluations.of_json in
      let modelType = field_map json__ "modelType" String_.of_json in
      let modelVersion = field_map json__ "modelVersion" String_.of_json in
      let modelId = field_map json__ "modelId" String_.of_json in
      make ?evaluations ?modelType ?modelVersion ?modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The model version evaluated for generating prediction."]
module EventVariableSummary =
  struct
    type nonrec t =
      {
      name: SensitiveString.t option [@ocaml.doc "The event variable name."];
      value: SensitiveString.t option
        [@ocaml.doc "The value of the event variable."];
      source: SensitiveString.t option
        [@ocaml.doc "The event variable source."]}
    let make ?name =
      fun ?value -> fun ?source -> fun () -> { name; value; source }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:SensitiveString.to_value));
        ("value", (Option.map x.value ~f:SensitiveString.to_value));
        ("source", (Option.map x.source ~f:SensitiveString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let source =
        (Option.map ~f:SensitiveString.of_xml) (Xml.child xml_arg0 "source") in
      let value =
        (Option.map ~f:SensitiveString.of_xml) (Xml.child xml_arg0 "value") in
      let name =
        (Option.map ~f:SensitiveString.of_xml) (Xml.child xml_arg0 "name") in
      make ?source ?value ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let source = field_map json__ "source" SensitiveString.of_json in
      let value = field_map json__ "value" SensitiveString.of_json in
      let name = field_map json__ "name" SensitiveString.of_json in
      make ?source ?value ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the summary of an event variable that was evaluated for generating prediction."]
module EntityType =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The entity type name."];
      description: Description.t option
        [@ocaml.doc "The entity type description."];
      lastUpdatedTime: Time.t option
        [@ocaml.doc "Timestamp of when the entity type was last updated."];
      createdTime: Time.t option
        [@ocaml.doc "Timestamp of when the entity type was created."];
      arn: FraudDetectorArn.t option [@ocaml.doc "The entity type ARN."]}
    let make ?name =
      fun ?description ->
        fun ?lastUpdatedTime ->
          fun ?createdTime ->
            fun ?arn ->
              fun () ->
                { name; description; lastUpdatedTime; createdTime; arn }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("lastUpdatedTime", (Option.map x.lastUpdatedTime ~f:Time.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Time.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let createdTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createdTime") in
      let lastUpdatedTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "lastUpdatedTime") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?arn ?createdTime ?lastUpdatedTime ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let createdTime = field_map json__ "createdTime" Time.of_json in
      let lastUpdatedTime = field_map json__ "lastUpdatedTime" Time.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?arn ?createdTime ?lastUpdatedTime ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The entity type details."]
module Detector =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t option [@ocaml.doc "The detector ID."];
      description: Description.t option
        [@ocaml.doc "The detector description."];
      eventTypeName: Identifier.t option
        [@ocaml.doc "The name of the event type."];
      lastUpdatedTime: Time.t option
        [@ocaml.doc "Timestamp of when the detector was last updated."];
      createdTime: Time.t option
        [@ocaml.doc "Timestamp of when the detector was created."];
      arn: FraudDetectorArn.t option [@ocaml.doc "The detector ARN."]}
    let make ?detectorId =
      fun ?description ->
        fun ?eventTypeName ->
          fun ?lastUpdatedTime ->
            fun ?createdTime ->
              fun ?arn ->
                fun () ->
                  {
                    detectorId;
                    description;
                    eventTypeName;
                    lastUpdatedTime;
                    createdTime;
                    arn
                  }
    let to_value x =
      structure_to_value
        [("detectorId", (Option.map x.detectorId ~f:Identifier.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("eventTypeName",
          (Option.map x.eventTypeName ~f:Identifier.to_value));
        ("lastUpdatedTime", (Option.map x.lastUpdatedTime ~f:Time.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Time.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let createdTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createdTime") in
      let lastUpdatedTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "lastUpdatedTime") in
      let eventTypeName =
        (Option.map ~f:Identifier.of_xml)
          (Xml.child xml_arg0 "eventTypeName") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let detectorId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "detectorId") in
      make ?arn ?createdTime ?lastUpdatedTime ?eventTypeName ?description
        ?detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let createdTime = field_map json__ "createdTime" Time.of_json in
      let lastUpdatedTime = field_map json__ "lastUpdatedTime" Time.of_json in
      let eventTypeName = field_map json__ "eventTypeName" Identifier.of_json in
      let description = field_map json__ "description" Description.of_json in
      let detectorId = field_map json__ "detectorId" Identifier.of_json in
      make ?arn ?createdTime ?lastUpdatedTime ?eventTypeName ?description
        ?detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The detector."]
module BatchPrediction =
  struct
    type nonrec t =
      {
      jobId: Identifier.t option
        [@ocaml.doc "The job ID for the batch prediction."];
      status: AsyncJobStatus.t option
        [@ocaml.doc "The batch prediction status."];
      failureReason: String_.t option
        [@ocaml.doc "The reason a batch prediction job failed."];
      startTime: Time.t option
        [@ocaml.doc "Timestamp of when the batch prediction job started."];
      completionTime: Time.t option
        [@ocaml.doc "Timestamp of when the batch prediction job completed."];
      lastHeartbeatTime: Time.t option
        [@ocaml.doc
          "Timestamp of most recent heartbeat indicating the batch prediction job was making progress."];
      inputPath: S3BucketLocation.t option
        [@ocaml.doc "The Amazon S3 location of your training file."];
      outputPath: S3BucketLocation.t option
        [@ocaml.doc "The Amazon S3 location of your output file."];
      eventTypeName: Identifier.t option
        [@ocaml.doc "The name of the event type."];
      detectorName: Identifier.t option
        [@ocaml.doc "The name of the detector."];
      detectorVersion: FloatVersionString.t option
        [@ocaml.doc "The detector version."];
      iamRoleArn: IamRoleArn.t option
        [@ocaml.doc "The ARN of the IAM role to use for this job request."];
      arn: FraudDetectorArn.t option
        [@ocaml.doc "The ARN of batch prediction job."];
      processedRecordsCount: Integer.t option
        [@ocaml.doc
          "The number of records processed by the batch prediction job."];
      totalRecordsCount: Integer.t option
        [@ocaml.doc
          "The total number of records in the batch prediction job."]}
    let make ?jobId =
      fun ?status ->
        fun ?failureReason ->
          fun ?startTime ->
            fun ?completionTime ->
              fun ?lastHeartbeatTime ->
                fun ?inputPath ->
                  fun ?outputPath ->
                    fun ?eventTypeName ->
                      fun ?detectorName ->
                        fun ?detectorVersion ->
                          fun ?iamRoleArn ->
                            fun ?arn ->
                              fun ?processedRecordsCount ->
                                fun ?totalRecordsCount ->
                                  fun () ->
                                    {
                                      jobId;
                                      status;
                                      failureReason;
                                      startTime;
                                      completionTime;
                                      lastHeartbeatTime;
                                      inputPath;
                                      outputPath;
                                      eventTypeName;
                                      detectorName;
                                      detectorVersion;
                                      iamRoleArn;
                                      arn;
                                      processedRecordsCount;
                                      totalRecordsCount
                                    }
    let to_value x =
      structure_to_value
        [("jobId", (Option.map x.jobId ~f:Identifier.to_value));
        ("status", (Option.map x.status ~f:AsyncJobStatus.to_value));
        ("failureReason", (Option.map x.failureReason ~f:String_.to_value));
        ("startTime", (Option.map x.startTime ~f:Time.to_value));
        ("completionTime", (Option.map x.completionTime ~f:Time.to_value));
        ("lastHeartbeatTime",
          (Option.map x.lastHeartbeatTime ~f:Time.to_value));
        ("inputPath", (Option.map x.inputPath ~f:S3BucketLocation.to_value));
        ("outputPath",
          (Option.map x.outputPath ~f:S3BucketLocation.to_value));
        ("eventTypeName",
          (Option.map x.eventTypeName ~f:Identifier.to_value));
        ("detectorName", (Option.map x.detectorName ~f:Identifier.to_value));
        ("detectorVersion",
          (Option.map x.detectorVersion ~f:FloatVersionString.to_value));
        ("iamRoleArn", (Option.map x.iamRoleArn ~f:IamRoleArn.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value));
        ("processedRecordsCount",
          (Option.map x.processedRecordsCount ~f:Integer.to_value));
        ("totalRecordsCount",
          (Option.map x.totalRecordsCount ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let totalRecordsCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "totalRecordsCount") in
      let processedRecordsCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "processedRecordsCount") in
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let iamRoleArn =
        (Option.map ~f:IamRoleArn.of_xml) (Xml.child xml_arg0 "iamRoleArn") in
      let detectorVersion =
        (Option.map ~f:FloatVersionString.of_xml)
          (Xml.child xml_arg0 "detectorVersion") in
      let detectorName =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "detectorName") in
      let eventTypeName =
        (Option.map ~f:Identifier.of_xml)
          (Xml.child xml_arg0 "eventTypeName") in
      let outputPath =
        (Option.map ~f:S3BucketLocation.of_xml)
          (Xml.child xml_arg0 "outputPath") in
      let inputPath =
        (Option.map ~f:S3BucketLocation.of_xml)
          (Xml.child xml_arg0 "inputPath") in
      let lastHeartbeatTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "lastHeartbeatTime") in
      let completionTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "completionTime") in
      let startTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "startTime") in
      let failureReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureReason") in
      let status =
        (Option.map ~f:AsyncJobStatus.of_xml) (Xml.child xml_arg0 "status") in
      let jobId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "jobId") in
      make ?totalRecordsCount ?processedRecordsCount ?arn ?iamRoleArn
        ?detectorVersion ?detectorName ?eventTypeName ?outputPath ?inputPath
        ?lastHeartbeatTime ?completionTime ?startTime ?failureReason ?status
        ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let totalRecordsCount =
        field_map json__ "totalRecordsCount" Integer.of_json in
      let processedRecordsCount =
        field_map json__ "processedRecordsCount" Integer.of_json in
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let iamRoleArn = field_map json__ "iamRoleArn" IamRoleArn.of_json in
      let detectorVersion =
        field_map json__ "detectorVersion" FloatVersionString.of_json in
      let detectorName = field_map json__ "detectorName" Identifier.of_json in
      let eventTypeName = field_map json__ "eventTypeName" Identifier.of_json in
      let outputPath = field_map json__ "outputPath" S3BucketLocation.of_json in
      let inputPath = field_map json__ "inputPath" S3BucketLocation.of_json in
      let lastHeartbeatTime =
        field_map json__ "lastHeartbeatTime" Time.of_json in
      let completionTime = field_map json__ "completionTime" Time.of_json in
      let startTime = field_map json__ "startTime" Time.of_json in
      let failureReason = field_map json__ "failureReason" String_.of_json in
      let status = field_map json__ "status" AsyncJobStatus.of_json in
      let jobId = field_map json__ "jobId" Identifier.of_json in
      make ?totalRecordsCount ?processedRecordsCount ?arn ?iamRoleArn
        ?detectorVersion ?detectorName ?eventTypeName ?outputPath ?inputPath
        ?lastHeartbeatTime ?completionTime ?startTime ?failureReason ?status
        ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The batch prediction details."]
module BatchImport =
  struct
    type nonrec t =
      {
      jobId: Identifier.t option
        [@ocaml.doc "The ID of the batch import job."];
      status: AsyncJobStatus.t option
        [@ocaml.doc "The status of the batch import job."];
      failureReason: String_.t option
        [@ocaml.doc "The reason batch import job failed."];
      startTime: Time.t option
        [@ocaml.doc "Timestamp of when the batch import job started."];
      completionTime: Time.t option
        [@ocaml.doc "Timestamp of when batch import job completed."];
      inputPath: S3BucketLocation.t option
        [@ocaml.doc
          "The Amazon S3 location of your data file for batch import."];
      outputPath: S3BucketLocation.t option
        [@ocaml.doc "The Amazon S3 location of your output file."];
      eventTypeName: Identifier.t option
        [@ocaml.doc "The name of the event type."];
      iamRoleArn: IamRoleArn.t option
        [@ocaml.doc "The ARN of the IAM role to use for this job request."];
      arn: FraudDetectorArn.t option
        [@ocaml.doc "The ARN of the batch import job."];
      processedRecordsCount: Integer.t option
        [@ocaml.doc "The number of records processed by batch import job."];
      failedRecordsCount: Integer.t option
        [@ocaml.doc "The number of records that failed to import."];
      totalRecordsCount: Integer.t option
        [@ocaml.doc "The total number of records in the batch import job."]}
    let make ?jobId =
      fun ?status ->
        fun ?failureReason ->
          fun ?startTime ->
            fun ?completionTime ->
              fun ?inputPath ->
                fun ?outputPath ->
                  fun ?eventTypeName ->
                    fun ?iamRoleArn ->
                      fun ?arn ->
                        fun ?processedRecordsCount ->
                          fun ?failedRecordsCount ->
                            fun ?totalRecordsCount ->
                              fun () ->
                                {
                                  jobId;
                                  status;
                                  failureReason;
                                  startTime;
                                  completionTime;
                                  inputPath;
                                  outputPath;
                                  eventTypeName;
                                  iamRoleArn;
                                  arn;
                                  processedRecordsCount;
                                  failedRecordsCount;
                                  totalRecordsCount
                                }
    let to_value x =
      structure_to_value
        [("jobId", (Option.map x.jobId ~f:Identifier.to_value));
        ("status", (Option.map x.status ~f:AsyncJobStatus.to_value));
        ("failureReason", (Option.map x.failureReason ~f:String_.to_value));
        ("startTime", (Option.map x.startTime ~f:Time.to_value));
        ("completionTime", (Option.map x.completionTime ~f:Time.to_value));
        ("inputPath", (Option.map x.inputPath ~f:S3BucketLocation.to_value));
        ("outputPath",
          (Option.map x.outputPath ~f:S3BucketLocation.to_value));
        ("eventTypeName",
          (Option.map x.eventTypeName ~f:Identifier.to_value));
        ("iamRoleArn", (Option.map x.iamRoleArn ~f:IamRoleArn.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value));
        ("processedRecordsCount",
          (Option.map x.processedRecordsCount ~f:Integer.to_value));
        ("failedRecordsCount",
          (Option.map x.failedRecordsCount ~f:Integer.to_value));
        ("totalRecordsCount",
          (Option.map x.totalRecordsCount ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let totalRecordsCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "totalRecordsCount") in
      let failedRecordsCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "failedRecordsCount") in
      let processedRecordsCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "processedRecordsCount") in
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let iamRoleArn =
        (Option.map ~f:IamRoleArn.of_xml) (Xml.child xml_arg0 "iamRoleArn") in
      let eventTypeName =
        (Option.map ~f:Identifier.of_xml)
          (Xml.child xml_arg0 "eventTypeName") in
      let outputPath =
        (Option.map ~f:S3BucketLocation.of_xml)
          (Xml.child xml_arg0 "outputPath") in
      let inputPath =
        (Option.map ~f:S3BucketLocation.of_xml)
          (Xml.child xml_arg0 "inputPath") in
      let completionTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "completionTime") in
      let startTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "startTime") in
      let failureReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "failureReason") in
      let status =
        (Option.map ~f:AsyncJobStatus.of_xml) (Xml.child xml_arg0 "status") in
      let jobId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "jobId") in
      make ?totalRecordsCount ?failedRecordsCount ?processedRecordsCount ?arn
        ?iamRoleArn ?eventTypeName ?outputPath ?inputPath ?completionTime
        ?startTime ?failureReason ?status ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let totalRecordsCount =
        field_map json__ "totalRecordsCount" Integer.of_json in
      let failedRecordsCount =
        field_map json__ "failedRecordsCount" Integer.of_json in
      let processedRecordsCount =
        field_map json__ "processedRecordsCount" Integer.of_json in
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let iamRoleArn = field_map json__ "iamRoleArn" IamRoleArn.of_json in
      let eventTypeName = field_map json__ "eventTypeName" Identifier.of_json in
      let outputPath = field_map json__ "outputPath" S3BucketLocation.of_json in
      let inputPath = field_map json__ "inputPath" S3BucketLocation.of_json in
      let completionTime = field_map json__ "completionTime" Time.of_json in
      let startTime = field_map json__ "startTime" Time.of_json in
      let failureReason = field_map json__ "failureReason" String_.of_json in
      let status = field_map json__ "status" AsyncJobStatus.of_json in
      let jobId = field_map json__ "jobId" Identifier.of_json in
      make ?totalRecordsCount ?failedRecordsCount ?processedRecordsCount ?arn
        ?iamRoleArn ?eventTypeName ?outputPath ?inputPath ?completionTime
        ?startTime ?failureReason ?status ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The batch import job details."]
module ModelVersionDetail =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t option [@ocaml.doc "The model ID."];
      modelType: ModelTypeEnum.t option [@ocaml.doc "The model type."];
      modelVersionNumber: FloatVersionString.t option
        [@ocaml.doc "The model version number."];
      status: String_.t option
        [@ocaml.doc "The status of the model version."];
      trainingDataSource: TrainingDataSourceEnum.t option
        [@ocaml.doc "The model version training data source."];
      trainingDataSchema: TrainingDataSchema.t option
        [@ocaml.doc "The training data schema."];
      externalEventsDetail: ExternalEventsDetail.t option
        [@ocaml.doc
          "The external events data details. This will be populated if the trainingDataSource for the model version is specified as EXTERNAL_EVENTS."];
      ingestedEventsDetail: IngestedEventsDetail.t option
        [@ocaml.doc
          "The ingested events data details. This will be populated if the trainingDataSource for the model version is specified as INGESTED_EVENTS."];
      trainingResult: TrainingResult.t option
        [@ocaml.doc "The training results."];
      lastUpdatedTime: Time.t option
        [@ocaml.doc "The timestamp when the model was last updated."];
      createdTime: Time.t option
        [@ocaml.doc "The timestamp when the model was created."];
      arn: FraudDetectorArn.t option [@ocaml.doc "The model version ARN."];
      trainingResultV2: TrainingResultV2.t option
        [@ocaml.doc
          "The training result details. The details include the relative importance of the variables."]}
    let make ?modelId =
      fun ?modelType ->
        fun ?modelVersionNumber ->
          fun ?status ->
            fun ?trainingDataSource ->
              fun ?trainingDataSchema ->
                fun ?externalEventsDetail ->
                  fun ?ingestedEventsDetail ->
                    fun ?trainingResult ->
                      fun ?lastUpdatedTime ->
                        fun ?createdTime ->
                          fun ?arn ->
                            fun ?trainingResultV2 ->
                              fun () ->
                                {
                                  modelId;
                                  modelType;
                                  modelVersionNumber;
                                  status;
                                  trainingDataSource;
                                  trainingDataSchema;
                                  externalEventsDetail;
                                  ingestedEventsDetail;
                                  trainingResult;
                                  lastUpdatedTime;
                                  createdTime;
                                  arn;
                                  trainingResultV2
                                }
    let to_value x =
      structure_to_value
        [("modelId", (Option.map x.modelId ~f:ModelIdentifier.to_value));
        ("modelType", (Option.map x.modelType ~f:ModelTypeEnum.to_value));
        ("modelVersionNumber",
          (Option.map x.modelVersionNumber ~f:FloatVersionString.to_value));
        ("status", (Option.map x.status ~f:String_.to_value));
        ("trainingDataSource",
          (Option.map x.trainingDataSource ~f:TrainingDataSourceEnum.to_value));
        ("trainingDataSchema",
          (Option.map x.trainingDataSchema ~f:TrainingDataSchema.to_value));
        ("externalEventsDetail",
          (Option.map x.externalEventsDetail ~f:ExternalEventsDetail.to_value));
        ("ingestedEventsDetail",
          (Option.map x.ingestedEventsDetail ~f:IngestedEventsDetail.to_value));
        ("trainingResult",
          (Option.map x.trainingResult ~f:TrainingResult.to_value));
        ("lastUpdatedTime", (Option.map x.lastUpdatedTime ~f:Time.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Time.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value));
        ("trainingResultV2",
          (Option.map x.trainingResultV2 ~f:TrainingResultV2.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let trainingResultV2 =
        (Option.map ~f:TrainingResultV2.of_xml)
          (Xml.child xml_arg0 "trainingResultV2") in
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let createdTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createdTime") in
      let lastUpdatedTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "lastUpdatedTime") in
      let trainingResult =
        (Option.map ~f:TrainingResult.of_xml)
          (Xml.child xml_arg0 "trainingResult") in
      let ingestedEventsDetail =
        (Option.map ~f:IngestedEventsDetail.of_xml)
          (Xml.child xml_arg0 "ingestedEventsDetail") in
      let externalEventsDetail =
        (Option.map ~f:ExternalEventsDetail.of_xml)
          (Xml.child xml_arg0 "externalEventsDetail") in
      let trainingDataSchema =
        (Option.map ~f:TrainingDataSchema.of_xml)
          (Xml.child xml_arg0 "trainingDataSchema") in
      let trainingDataSource =
        (Option.map ~f:TrainingDataSourceEnum.of_xml)
          (Xml.child xml_arg0 "trainingDataSource") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let modelVersionNumber =
        (Option.map ~f:FloatVersionString.of_xml)
          (Xml.child xml_arg0 "modelVersionNumber") in
      let modelType =
        (Option.map ~f:ModelTypeEnum.of_xml) (Xml.child xml_arg0 "modelType") in
      let modelId =
        (Option.map ~f:ModelIdentifier.of_xml) (Xml.child xml_arg0 "modelId") in
      make ?trainingResultV2 ?arn ?createdTime ?lastUpdatedTime
        ?trainingResult ?ingestedEventsDetail ?externalEventsDetail
        ?trainingDataSchema ?trainingDataSource ?status ?modelVersionNumber
        ?modelType ?modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let trainingResultV2 =
        field_map json__ "trainingResultV2" TrainingResultV2.of_json in
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let createdTime = field_map json__ "createdTime" Time.of_json in
      let lastUpdatedTime = field_map json__ "lastUpdatedTime" Time.of_json in
      let trainingResult =
        field_map json__ "trainingResult" TrainingResult.of_json in
      let ingestedEventsDetail =
        field_map json__ "ingestedEventsDetail" IngestedEventsDetail.of_json in
      let externalEventsDetail =
        field_map json__ "externalEventsDetail" ExternalEventsDetail.of_json in
      let trainingDataSchema =
        field_map json__ "trainingDataSchema" TrainingDataSchema.of_json in
      let trainingDataSource =
        field_map json__ "trainingDataSource" TrainingDataSourceEnum.of_json in
      let status = field_map json__ "status" String_.of_json in
      let modelVersionNumber =
        field_map json__ "modelVersionNumber" FloatVersionString.of_json in
      let modelType = field_map json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map json__ "modelId" ModelIdentifier.of_json in
      make ?trainingResultV2 ?arn ?createdTime ?lastUpdatedTime
        ?trainingResult ?ingestedEventsDetail ?externalEventsDetail
        ?trainingDataSchema ?trainingDataSource ?status ?modelVersionNumber
        ?modelType ?modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of the model version."]
module DetectorVersionSummary =
  struct
    type nonrec t =
      {
      detectorVersionId: WholeNumberVersionString.t option
        [@ocaml.doc "The detector version ID."];
      status: DetectorVersionStatus.t option
        [@ocaml.doc "The detector version status."];
      description: Description.t option
        [@ocaml.doc "The detector version description."];
      lastUpdatedTime: Time.t option
        [@ocaml.doc
          "Timestamp of when the detector version was last updated."]}
    let make ?detectorVersionId =
      fun ?status ->
        fun ?description ->
          fun ?lastUpdatedTime ->
            fun () ->
              { detectorVersionId; status; description; lastUpdatedTime }
    let to_value x =
      structure_to_value
        [("detectorVersionId",
           (Option.map x.detectorVersionId
              ~f:WholeNumberVersionString.to_value));
        ("status", (Option.map x.status ~f:DetectorVersionStatus.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("lastUpdatedTime", (Option.map x.lastUpdatedTime ~f:Time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "lastUpdatedTime") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let status =
        (Option.map ~f:DetectorVersionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let detectorVersionId =
        (Option.map ~f:WholeNumberVersionString.of_xml)
          (Xml.child xml_arg0 "detectorVersionId") in
      make ?lastUpdatedTime ?description ?status ?detectorVersionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTime = field_map json__ "lastUpdatedTime" Time.of_json in
      let description = field_map json__ "description" Description.of_json in
      let status = field_map json__ "status" DetectorVersionStatus.of_json in
      let detectorVersionId =
        field_map json__ "detectorVersionId" WholeNumberVersionString.of_json in
      make ?lastUpdatedTime ?description ?status ?detectorVersionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The summary of the detector version."]
module BatchGetVariableError =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The error name."];
      code: Integer__lc1.t option [@ocaml.doc "The error code."];
      message: String_.t option [@ocaml.doc "The error message."]}
    let make ?name =
      fun ?code -> fun ?message -> fun () -> { name; code; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("code", (Option.map x.code ~f:Integer__lc1.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code =
        (Option.map ~f:Integer__lc1.of_xml) (Xml.child xml_arg0 "code") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?code ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let code = field_map json__ "code" Integer__lc1.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?message ?code ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides the error of the batch get variable API."]
module BatchCreateVariableError =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name."];
      code: Integer__lc1.t option [@ocaml.doc "The error code."];
      message: String_.t option [@ocaml.doc "The error message."]}
    let make ?name =
      fun ?code -> fun ?message -> fun () -> { name; code; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("code", (Option.map x.code ~f:Integer__lc1.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let code =
        (Option.map ~f:Integer__lc1.of_xml) (Xml.child xml_arg0 "code") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?code ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let code = field_map json__ "code" Integer__lc1.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?message ?code ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides the error of the batch create variable API."]
module VariableEntry =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the variable."];
      dataType: String_.t option
        [@ocaml.doc "The data type of the variable."];
      dataSource: String_.t option
        [@ocaml.doc "The data source of the variable."];
      defaultValue: String_.t option
        [@ocaml.doc "The default value of the variable."];
      description: String_.t option
        [@ocaml.doc "The description of the variable."];
      variableType: String_.t option
        [@ocaml.doc
          "The type of the variable. For more information see Variable types. Valid Values: AUTH_CODE | AVS | BILLING_ADDRESS_L1 | BILLING_ADDRESS_L2 | BILLING_CITY | BILLING_COUNTRY | BILLING_NAME | BILLING_PHONE | BILLING_STATE | BILLING_ZIP | CARD_BIN | CATEGORICAL | CURRENCY_CODE | EMAIL_ADDRESS | FINGERPRINT | FRAUD_LABEL | FREE_FORM_TEXT | IP_ADDRESS | NUMERIC | ORDER_ID | PAYMENT_TYPE | PHONE_NUMBER | PRICE | PRODUCT_CATEGORY | SHIPPING_ADDRESS_L1 | SHIPPING_ADDRESS_L2 | SHIPPING_CITY | SHIPPING_COUNTRY | SHIPPING_NAME | SHIPPING_PHONE | SHIPPING_STATE | SHIPPING_ZIP | USERAGENT"]}
    let make ?name =
      fun ?dataType ->
        fun ?dataSource ->
          fun ?defaultValue ->
            fun ?description ->
              fun ?variableType ->
                fun () ->
                  {
                    name;
                    dataType;
                    dataSource;
                    defaultValue;
                    description;
                    variableType
                  }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("dataType", (Option.map x.dataType ~f:String_.to_value));
        ("dataSource", (Option.map x.dataSource ~f:String_.to_value));
        ("defaultValue", (Option.map x.defaultValue ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("variableType", (Option.map x.variableType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let variableType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "variableType") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let defaultValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "defaultValue") in
      let dataSource =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "dataSource") in
      let dataType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "dataType") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?variableType ?description ?defaultValue ?dataSource ?dataType
        ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let variableType = field_map json__ "variableType" String_.of_json in
      let description = field_map json__ "description" String_.of_json in
      let defaultValue = field_map json__ "defaultValue" String_.of_json in
      let dataSource = field_map json__ "dataSource" String_.of_json in
      let dataType = field_map json__ "dataType" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?variableType ?description ?defaultValue ?dataSource ?dataType
        ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A variable in the list of variables for the batch create variable request."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An exception indicating Amazon Fraud Detector does not have the needed permissions. This can occur if you submit a request, such as PutExternalModel, that specifies a role that is not in your account."]
module ConflictException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An exception indicating there was a conflict during a delete operation."]
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An exception indicating an internal server error."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An exception indicating the specified resource was not found."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An exception indicating a throttling error."]
module ValidationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An exception indicating a specified value is not allowed."]
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (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:Tag.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:Tag.of_xml)
    let of_json j = list_of_json ~kind:"tagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module ModelVersionStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | INACTIVE 
      | TRAINING_CANCELLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | TRAINING_CANCELLED -> "TRAINING_CANCELLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | "TRAINING_CANCELLED" -> TRAINING_CANCELLED
      | 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 ModelVersionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ModelVersionStatus" j)
    let to_json = simple_to_json to_value
  end
module ElementsList =
  struct
    type nonrec t = Elements.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100000) >>=
             (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:Elements.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:Elements.of_xml)
    let of_json j =
      list_of_json ~kind:"ElementsList" ~of_json:Elements.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListUpdateMode =
  struct
    type nonrec t =
      | REPLACE 
      | APPEND 
      | REMOVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REPLACE -> "REPLACE"
      | APPEND -> "APPEND"
      | REMOVE -> "REMOVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "REPLACE" -> REPLACE
      | "APPEND" -> APPEND
      | "REMOVE" -> REMOVE
      | 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 ListUpdateMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ListUpdateMode" j)
    let to_json = simple_to_json to_value
  end
module UtcTimestampISO8601 =
  struct
    type nonrec t = string
    let context_ = "utcTimestampISO8601"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:30) >>=
             (fun () -> check_string_min i ~min:10));
        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:"utcTimestampISO8601" j
    let to_json = simple_to_json to_value
  end
module ListOfModelVersions =
  struct
    type nonrec t = ModelVersion.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:ModelVersion.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:ModelVersion.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfModelVersions" ~of_json:ModelVersion.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module RuleExecutionMode =
  struct
    type nonrec t =
      | ALL_MATCHED 
      | FIRST_MATCHED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALL_MATCHED -> "ALL_MATCHED"
      | FIRST_MATCHED -> "FIRST_MATCHED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALL_MATCHED" -> ALL_MATCHED
      | "FIRST_MATCHED" -> FIRST_MATCHED
      | 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 RuleExecutionMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleExecutionMode" j)
    let to_json = simple_to_json to_value
  end
module RuleList =
  struct
    type nonrec t = Rule.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:Rule.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:Rule.of_xml)
    let of_json j = list_of_json ~kind:"RuleList" ~of_json:Rule.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (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:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"tagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventVariableMap =
  struct
    type nonrec t = (VariableName.t * VariableValue.t) list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((VariableName.of_string chopped),
                              (VariableValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (VariableName.to_value x) |>
                    (fun x -> (VariableValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:VariableName.of_string
        ~of_json:VariableValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagsMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (fun () -> check_int_min i ~min:50));
        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 TagsMaxResults" 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 ListOfEventPredictionSummaries =
  struct
    type nonrec t = EventPredictionSummary.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:EventPredictionSummary.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:EventPredictionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfEventPredictionSummaries"
        ~of_json:EventPredictionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventPredictionsMaxResults =
  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:50));
        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 EventPredictionsMaxResults"
           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 FilterCondition =
  struct
    type nonrec t =
      {
      value: FilterString.t option
        [@ocaml.doc
          "A statement containing a resource property and a value to specify filter condition."]}
    let make ?value = fun () -> { value }
    let to_value x =
      structure_to_value
        [("value", (Option.map x.value ~f:FilterString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:FilterString.of_xml) (Xml.child xml_arg0 "value") in
      make ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "value" FilterString.of_json in
      make ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A conditional statement for filtering a list of past predictions."]
module PredictionTimeRange =
  struct
    type nonrec t =
      {
      startTime: Time.t
        [@ocaml.doc
          "The start time of the time period for when the predictions were generated."];
      endTime: Time.t
        [@ocaml.doc
          "The end time of the time period for when the predictions were generated."]}
    let context_ = "PredictionTimeRange"
    let make ~startTime = fun ~endTime -> fun () -> { startTime; endTime }
    let to_value x =
      structure_to_value
        [("startTime", (Some (Time.to_value x.startTime)));
        ("endTime", (Some (Time.to_value x.endTime)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTime =
        Time.of_xml (Xml.child_exn ~context:context_ xml_arg0 "endTime") in
      let startTime =
        Time.of_xml (Xml.child_exn ~context:context_ xml_arg0 "startTime") in
      make ~endTime ~startTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTime = field_map_exn json__ "endTime" Time.of_json in
      let startTime = field_map_exn json__ "startTime" Time.of_json in
      make ~endTime ~startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The time period for when the predictions were generated."]
module VariableList =
  struct
    type nonrec t = Variable.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:Variable.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:Variable.of_xml)
    let of_json j =
      list_of_json ~kind:"VariableList" ~of_json:Variable.of_json j
    let to_json v = composed_to_json to_value v
  end
module VariablesMaxResults =
  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:50));
        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 VariablesMaxResults" 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 RuleDetailList =
  struct
    type nonrec t = RuleDetail.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:RuleDetail.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:RuleDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleDetailList" ~of_json:RuleDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module RulesMaxResults =
  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:50));
        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 RulesMaxResults" 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 OutcomeList =
  struct
    type nonrec t = Outcome.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:Outcome.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:Outcome.of_xml)
    let of_json j =
      list_of_json ~kind:"OutcomeList" ~of_json:Outcome.of_json j
    let to_json v = composed_to_json to_value v
  end
module OutcomesMaxResults =
  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:50));
        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 OutcomesMaxResults" 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 ModelList =
  struct
    type nonrec t = Model.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:Model.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:Model.of_xml)
    let of_json j = list_of_json ~kind:"modelList" ~of_json:Model.of_json j
    let to_json v = composed_to_json to_value v
  end
module ModelsMaxPageSize =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for modelsMaxPageSize" 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 AllowDenyLists =
  struct
    type nonrec t = AllowDenyList.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:AllowDenyList.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:AllowDenyList.of_xml)
    let of_json j =
      list_of_json ~kind:"AllowDenyLists" ~of_json:AllowDenyList.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_min i ~min:0) >>=
             (fun () ->
                (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 ListsMetadataMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (fun () -> check_int_min i ~min:5));
        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 ListsMetadataMaxResults"
           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 ListsElementsMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:5000) >>=
             (fun () -> check_int_min i ~min:500));
        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 ListsElementsMaxResults"
           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 LabelList =
  struct
    type nonrec t = Label.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:Label.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:Label.of_xml)
    let of_json j = list_of_json ~kind:"labelList" ~of_json:Label.of_json j
    let to_json v = composed_to_json to_value v
  end
module LabelsMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (fun () -> check_int_min i ~min:10));
        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 labelsMaxResults" 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 KMSKey =
  struct
    type nonrec t =
      {
      kmsEncryptionKeyArn: KmsEncryptionKeyArn.t option
        [@ocaml.doc "The encryption key ARN."]}
    let make ?kmsEncryptionKeyArn = fun () -> { kmsEncryptionKeyArn }
    let to_value x =
      structure_to_value
        [("kmsEncryptionKeyArn",
           (Option.map x.kmsEncryptionKeyArn ~f:KmsEncryptionKeyArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsEncryptionKeyArn =
        (Option.map ~f:KmsEncryptionKeyArn.of_xml)
          (Xml.child xml_arg0 "kmsEncryptionKeyArn") in
      make ?kmsEncryptionKeyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsEncryptionKeyArn =
        field_map json__ "kmsEncryptionKeyArn" KmsEncryptionKeyArn.of_json in
      make ?kmsEncryptionKeyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The KMS key details."]
module ExternalModelList =
  struct
    type nonrec t = ExternalModel.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:ExternalModel.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:ExternalModel.of_xml)
    let of_json j =
      list_of_json ~kind:"ExternalModelList" ~of_json:ExternalModel.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExternalModelsMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min:5));
        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 ExternalModelsMaxResults"
           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 EventTypeList =
  struct
    type nonrec t = EventType.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:EventType.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:EventType.of_xml)
    let of_json j =
      list_of_json ~kind:"eventTypeList" ~of_json:EventType.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventTypesMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min:5));
        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 eventTypesMaxResults" 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 Event =
  struct
    type nonrec t =
      {
      eventId: String_.t option [@ocaml.doc "The event ID."];
      eventTypeName: String_.t option [@ocaml.doc "The event type."];
      eventTimestamp: String_.t option
        [@ocaml.doc
          "The timestamp that defines when the event under evaluation occurred. The timestamp must be specified using ISO 8601 standard in UTC."];
      eventVariables: EventAttributeMap.t option
        [@ocaml.doc
          "Names of the event type's variables you defined in Amazon Fraud Detector to represent data elements and their corresponding values for the event you are sending for evaluation."];
      currentLabel: String_.t option
        [@ocaml.doc "The label associated with the event."];
      labelTimestamp: String_.t option
        [@ocaml.doc
          "The timestamp associated with the label to update. The timestamp must be specified using ISO 8601 standard in UTC."];
      entities: ListOfEntities.t option [@ocaml.doc "The event entities."]}
    let make ?eventId =
      fun ?eventTypeName ->
        fun ?eventTimestamp ->
          fun ?eventVariables ->
            fun ?currentLabel ->
              fun ?labelTimestamp ->
                fun ?entities ->
                  fun () ->
                    {
                      eventId;
                      eventTypeName;
                      eventTimestamp;
                      eventVariables;
                      currentLabel;
                      labelTimestamp;
                      entities
                    }
    let to_value x =
      structure_to_value
        [("eventId", (Option.map x.eventId ~f:String_.to_value));
        ("eventTypeName", (Option.map x.eventTypeName ~f:String_.to_value));
        ("eventTimestamp", (Option.map x.eventTimestamp ~f:String_.to_value));
        ("eventVariables",
          (Option.map x.eventVariables ~f:EventAttributeMap.to_value));
        ("currentLabel", (Option.map x.currentLabel ~f:String_.to_value));
        ("labelTimestamp", (Option.map x.labelTimestamp ~f:String_.to_value));
        ("entities", (Option.map x.entities ~f:ListOfEntities.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entities =
        (Option.map ~f:ListOfEntities.of_xml) (Xml.child xml_arg0 "entities") in
      let labelTimestamp =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "labelTimestamp") in
      let currentLabel =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "currentLabel") in
      let eventVariables =
        (Option.map ~f:EventAttributeMap.of_xml)
          (Xml.child xml_arg0 "eventVariables") in
      let eventTimestamp =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "eventTimestamp") in
      let eventTypeName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "eventTypeName") in
      let eventId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "eventId") in
      make ?entities ?labelTimestamp ?currentLabel ?eventVariables
        ?eventTimestamp ?eventTypeName ?eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entities = field_map json__ "entities" ListOfEntities.of_json in
      let labelTimestamp = field_map json__ "labelTimestamp" String_.of_json in
      let currentLabel = field_map json__ "currentLabel" String_.of_json in
      let eventVariables =
        field_map json__ "eventVariables" EventAttributeMap.of_json in
      let eventTimestamp = field_map json__ "eventTimestamp" String_.of_json in
      let eventTypeName = field_map json__ "eventTypeName" String_.of_json in
      let eventId = field_map json__ "eventId" String_.of_json in
      make ?entities ?labelTimestamp ?currentLabel ?eventVariables
        ?eventTimestamp ?eventTypeName ?eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The event details."]
module ListOfExternalModelOutputs =
  struct
    type nonrec t = ExternalModelOutputs.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:ExternalModelOutputs.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:ExternalModelOutputs.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfExternalModelOutputs"
        ~of_json:ExternalModelOutputs.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOfModelScores =
  struct
    type nonrec t = ModelScores.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:ModelScores.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:ModelScores.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfModelScores" ~of_json:ModelScores.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOfRuleResults =
  struct
    type nonrec t = RuleResult.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:RuleResult.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:RuleResult.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfRuleResults" ~of_json:RuleResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceUnavailableException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An exception indicating that the attached customer-owned (external) model threw an exception when Amazon Fraud Detector invoked the model."]
module ExternalModelEndpointDataBlobMap =
  struct
    type nonrec t =
      (SageMakerEndpointIdentifier.t * ModelEndpointDataBlob.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types sageMakerEndpointIdentifier ModelEndpointDataBlob"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (SageMakerEndpointIdentifier.to_value x) |>
                    (fun x ->
                       (ModelEndpointDataBlob.to_value y) |>
                         (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:SageMakerEndpointIdentifier.of_string
        ~of_json:ModelEndpointDataBlob.of_json j
    let to_json v = composed_to_json to_value v
  end
module EvaluatedRuleList =
  struct
    type nonrec t = EvaluatedRule.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:EvaluatedRule.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:EvaluatedRule.of_xml)
    let of_json j =
      list_of_json ~kind:"EvaluatedRuleList" ~of_json:EvaluatedRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOfEvaluatedExternalModels =
  struct
    type nonrec t = EvaluatedExternalModel.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:EvaluatedExternalModel.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:EvaluatedExternalModel.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfEvaluatedExternalModels"
        ~of_json:EvaluatedExternalModel.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOfEvaluatedModelVersions =
  struct
    type nonrec t = EvaluatedModelVersion.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:EvaluatedModelVersion.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:EvaluatedModelVersion.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfEvaluatedModelVersions"
        ~of_json:EvaluatedModelVersion.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListOfEventVariableSummaries =
  struct
    type nonrec t = EventVariableSummary.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:EventVariableSummary.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:EventVariableSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListOfEventVariableSummaries"
        ~of_json:EventVariableSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module EntityTypeList =
  struct
    type nonrec t = EntityType.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:EntityType.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:EntityType.of_xml)
    let of_json j =
      list_of_json ~kind:"entityTypeList" ~of_json:EntityType.of_json j
    let to_json v = composed_to_json to_value v
  end
module EntityTypesMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min:5));
        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 entityTypesMaxResults" 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 DetectorList =
  struct
    type nonrec t = Detector.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:Detector.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:Detector.of_xml)
    let of_json j =
      list_of_json ~kind:"DetectorList" ~of_json:Detector.of_json j
    let to_json v = composed_to_json to_value v
  end
module DetectorsMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min:5));
        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 DetectorsMaxResults" 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 BatchPredictionList =
  struct
    type nonrec t = BatchPrediction.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:BatchPrediction.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:BatchPrediction.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchPredictionList"
        ~of_json:BatchPrediction.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchPredictionsMaxPageSize =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for batchPredictionsMaxPageSize"
           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 BatchImportList =
  struct
    type nonrec t = BatchImport.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:BatchImport.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:BatchImport.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchImportList" ~of_json:BatchImport.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchImportsMaxPageSize =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for batchImportsMaxPageSize"
           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 ModelVersionDetailList =
  struct
    type nonrec t = ModelVersionDetail.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:ModelVersionDetail.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:ModelVersionDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"modelVersionDetailList"
        ~of_json:ModelVersionDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module DetectorVersionSummaryList =
  struct
    type nonrec t = DetectorVersionSummary.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:DetectorVersionSummary.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:DetectorVersionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DetectorVersionSummaryList"
        ~of_json:DetectorVersionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module DetectorVersionMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:2500) >>=
             (fun () -> check_int_min i ~min:1000));
        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 DetectorVersionMaxResults"
           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 DeleteAuditHistory =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module BatchGetVariableErrorList =
  struct
    type nonrec t = BatchGetVariableError.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:BatchGetVariableError.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:BatchGetVariableError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchGetVariableErrorList"
        ~of_json:BatchGetVariableError.of_json j
    let to_json v = composed_to_json to_value v
  end
module NameList =
  struct
    type nonrec t = String_.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:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j = list_of_json ~kind:"NameList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchCreateVariableErrorList =
  struct
    type nonrec t = BatchCreateVariableError.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:BatchCreateVariableError.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:BatchCreateVariableError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchCreateVariableErrorList"
        ~of_json:BatchCreateVariableError.of_json j
    let to_json v = composed_to_json to_value v
  end
module VariableEntryList =
  struct
    type nonrec t = VariableEntry.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:VariableEntry.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:VariableEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"VariableEntryList" ~of_json:VariableEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateVariableResult =
  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 a variable."]
module UpdateVariableRequest =
  struct
    type nonrec t =
      {
      name: String_.t [@ocaml.doc "The name of the variable."];
      defaultValue: String_.t option
        [@ocaml.doc "The new default value of the variable."];
      description: String_.t option [@ocaml.doc "The new description."];
      variableType: String_.t option
        [@ocaml.doc
          "The variable type. For more information see Variable types."]}
    let context_ = "UpdateVariableRequest"
    let make ?defaultValue =
      fun ?description ->
        fun ?variableType ->
          fun ~name ->
            fun () -> { defaultValue; description; variableType; name }
    let to_value x =
      structure_to_value
        [("name", (Some (String_.to_value x.name)));
        ("defaultValue", (Option.map x.defaultValue ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("variableType", (Option.map x.variableType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let variableType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "variableType") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let defaultValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "defaultValue") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?variableType ?description ?defaultValue ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let variableType = field_map json__ "variableType" String_.of_json in
      let description = field_map json__ "description" String_.of_json in
      let defaultValue = field_map json__ "defaultValue" String_.of_json in
      let name = field_map_exn json__ "name" String_.of_json in
      make ?variableType ?description ?defaultValue ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a variable."]
module UpdateRuleVersionResult =
  struct
    type nonrec t =
      {
      rule: Rule.t option
        [@ocaml.doc "The new rule version that was created."]}
    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 ?rule = fun () -> { rule }
    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 [("rule", (Option.map x.rule ~f:Rule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rule = (Option.map ~f:Rule.of_xml) (Xml.child xml_arg0 "rule") in
      make ?rule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rule = field_map json__ "rule" Rule.of_json in make ?rule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a rule version resulting in a new rule version. Updates a rule version resulting in a new rule version (version 1, 2, 3 ...)."]
module UpdateRuleVersionRequest =
  struct
    type nonrec t =
      {
      rule: Rule.t [@ocaml.doc "The rule to update."];
      description: Description.t option [@ocaml.doc "The description."];
      expression: RuleExpression.t [@ocaml.doc "The rule expression."];
      language: Language.t [@ocaml.doc "The language."];
      outcomes: NonEmptyListOfStrings.t [@ocaml.doc "The outcomes."];
      tags: TagList.t option
        [@ocaml.doc "The tags to assign to the rule version."]}
    let context_ = "UpdateRuleVersionRequest"
    let make ?description =
      fun ?tags ->
        fun ~rule ->
          fun ~expression ->
            fun ~language ->
              fun ~outcomes ->
                fun () ->
                  { description; tags; rule; expression; language; outcomes }
    let to_value x =
      structure_to_value
        [("rule", (Some (Rule.to_value x.rule)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("expression", (Some (RuleExpression.to_value x.expression)));
        ("language", (Some (Language.to_value x.language)));
        ("outcomes", (Some (NonEmptyListOfStrings.to_value x.outcomes)));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let outcomes =
        NonEmptyListOfStrings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "outcomes") in
      let language =
        Language.of_xml (Xml.child_exn ~context:context_ xml_arg0 "language") in
      let expression =
        RuleExpression.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "expression") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let rule =
        Rule.of_xml (Xml.child_exn ~context:context_ xml_arg0 "rule") in
      make ?tags ~outcomes ~language ~expression ?description ~rule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let outcomes =
        field_map_exn json__ "outcomes" NonEmptyListOfStrings.of_json in
      let language = field_map_exn json__ "language" Language.of_json in
      let expression =
        field_map_exn json__ "expression" RuleExpression.of_json in
      let description = field_map json__ "description" Description.of_json in
      let rule = field_map_exn json__ "rule" Rule.of_json in
      make ?tags ~outcomes ~language ~expression ?description ~rule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a rule version resulting in a new rule version. Updates a rule version resulting in a new rule version (version 1, 2, 3 ...)."]
module UpdateRuleMetadataResult =
  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 a rule's metadata. The description attribute can be updated."]
module UpdateRuleMetadataRequest =
  struct
    type nonrec t =
      {
      rule: Rule.t [@ocaml.doc "The rule to update."];
      description: Description.t [@ocaml.doc "The rule description."]}
    let context_ = "UpdateRuleMetadataRequest"
    let make ~rule = fun ~description -> fun () -> { rule; description }
    let to_value x =
      structure_to_value
        [("rule", (Some (Rule.to_value x.rule)));
        ("description", (Some (Description.to_value x.description)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        Description.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "description") in
      let rule =
        Rule.of_xml (Xml.child_exn ~context:context_ xml_arg0 "rule") in
      make ~description ~rule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map_exn json__ "description" Description.of_json in
      let rule = field_map_exn json__ "rule" Rule.of_json in
      make ~description ~rule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a rule's metadata. The description attribute can be updated."]
module UpdateModelVersionStatusResult =
  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 status of a model version. You can perform the following status updates: Change the TRAINING_IN_PROGRESS status to TRAINING_CANCELLED. Change the TRAINING_COMPLETE status to ACTIVE. Change ACTIVE to INACTIVE."]
module UpdateModelVersionStatusRequest =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t
        [@ocaml.doc "The model ID of the model version to update."];
      modelType: ModelTypeEnum.t [@ocaml.doc "The model type."];
      modelVersionNumber: FloatVersionString.t
        [@ocaml.doc "The model version number."];
      status: ModelVersionStatus.t [@ocaml.doc "The model version status."]}
    let context_ = "UpdateModelVersionStatusRequest"
    let make ~modelId =
      fun ~modelType ->
        fun ~modelVersionNumber ->
          fun ~status ->
            fun () -> { modelId; modelType; modelVersionNumber; status }
    let to_value x =
      structure_to_value
        [("modelId", (Some (ModelIdentifier.to_value x.modelId)));
        ("modelType", (Some (ModelTypeEnum.to_value x.modelType)));
        ("modelVersionNumber",
          (Some (FloatVersionString.to_value x.modelVersionNumber)));
        ("status", (Some (ModelVersionStatus.to_value x.status)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        ModelVersionStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "status") in
      let modelVersionNumber =
        FloatVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelVersionNumber") in
      let modelType =
        ModelTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelType") in
      let modelId =
        ModelIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelId") in
      make ~status ~modelVersionNumber ~modelType ~modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map_exn json__ "status" ModelVersionStatus.of_json in
      let modelVersionNumber =
        field_map_exn json__ "modelVersionNumber" FloatVersionString.of_json in
      let modelType = field_map_exn json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map_exn json__ "modelId" ModelIdentifier.of_json in
      make ~status ~modelVersionNumber ~modelType ~modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the status of a model version. You can perform the following status updates: Change the TRAINING_IN_PROGRESS status to TRAINING_CANCELLED. Change the TRAINING_COMPLETE status to ACTIVE. Change ACTIVE to INACTIVE."]
module UpdateModelVersionResult =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t option [@ocaml.doc "The model ID."];
      modelType: ModelTypeEnum.t option [@ocaml.doc "The model type."];
      modelVersionNumber: FloatVersionString.t option
        [@ocaml.doc "The model version number of the model version updated."];
      status: String_.t option
        [@ocaml.doc "The status of the updated model version."]}
    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 ?modelId =
      fun ?modelType ->
        fun ?modelVersionNumber ->
          fun ?status ->
            fun () -> { modelId; modelType; modelVersionNumber; 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
        [("modelId", (Option.map x.modelId ~f:ModelIdentifier.to_value));
        ("modelType", (Option.map x.modelType ~f:ModelTypeEnum.to_value));
        ("modelVersionNumber",
          (Option.map x.modelVersionNumber ~f:FloatVersionString.to_value));
        ("status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let modelVersionNumber =
        (Option.map ~f:FloatVersionString.of_xml)
          (Xml.child xml_arg0 "modelVersionNumber") in
      let modelType =
        (Option.map ~f:ModelTypeEnum.of_xml) (Xml.child xml_arg0 "modelType") in
      let modelId =
        (Option.map ~f:ModelIdentifier.of_xml) (Xml.child xml_arg0 "modelId") in
      make ?status ?modelVersionNumber ?modelType ?modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" String_.of_json in
      let modelVersionNumber =
        field_map json__ "modelVersionNumber" FloatVersionString.of_json in
      let modelType = field_map json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map json__ "modelId" ModelIdentifier.of_json in
      make ?status ?modelVersionNumber ?modelType ?modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a model version. Updating a model version retrains an existing model version using updated training data and produces a new minor version of the model. You can update the training data set location and data access role attributes using this action. This action creates and trains a new minor version of the model, for example version 1.01, 1.02, 1.03."]
module UpdateModelVersionRequest =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t [@ocaml.doc "The model ID."];
      modelType: ModelTypeEnum.t [@ocaml.doc "The model type."];
      majorVersionNumber: WholeNumberVersionString.t
        [@ocaml.doc "The major version number."];
      externalEventsDetail: ExternalEventsDetail.t option
        [@ocaml.doc
          "The details of the external events data used for training the model version. Required if trainingDataSource is EXTERNAL_EVENTS."];
      ingestedEventsDetail: IngestedEventsDetail.t option
        [@ocaml.doc
          "The details of the ingested event used for training the model version. Required if your trainingDataSource is INGESTED_EVENTS."];
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."]}
    let context_ = "UpdateModelVersionRequest"
    let make ?externalEventsDetail =
      fun ?ingestedEventsDetail ->
        fun ?tags ->
          fun ~modelId ->
            fun ~modelType ->
              fun ~majorVersionNumber ->
                fun () ->
                  {
                    externalEventsDetail;
                    ingestedEventsDetail;
                    tags;
                    modelId;
                    modelType;
                    majorVersionNumber
                  }
    let to_value x =
      structure_to_value
        [("modelId", (Some (ModelIdentifier.to_value x.modelId)));
        ("modelType", (Some (ModelTypeEnum.to_value x.modelType)));
        ("majorVersionNumber",
          (Some (WholeNumberVersionString.to_value x.majorVersionNumber)));
        ("externalEventsDetail",
          (Option.map x.externalEventsDetail ~f:ExternalEventsDetail.to_value));
        ("ingestedEventsDetail",
          (Option.map x.ingestedEventsDetail ~f:IngestedEventsDetail.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let ingestedEventsDetail =
        (Option.map ~f:IngestedEventsDetail.of_xml)
          (Xml.child xml_arg0 "ingestedEventsDetail") in
      let externalEventsDetail =
        (Option.map ~f:ExternalEventsDetail.of_xml)
          (Xml.child xml_arg0 "externalEventsDetail") in
      let majorVersionNumber =
        WholeNumberVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "majorVersionNumber") in
      let modelType =
        ModelTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelType") in
      let modelId =
        ModelIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelId") in
      make ?tags ?ingestedEventsDetail ?externalEventsDetail
        ~majorVersionNumber ~modelType ~modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let ingestedEventsDetail =
        field_map json__ "ingestedEventsDetail" IngestedEventsDetail.of_json in
      let externalEventsDetail =
        field_map json__ "externalEventsDetail" ExternalEventsDetail.of_json in
      let majorVersionNumber =
        field_map_exn json__ "majorVersionNumber"
          WholeNumberVersionString.of_json in
      let modelType = field_map_exn json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map_exn json__ "modelId" ModelIdentifier.of_json in
      make ?tags ?ingestedEventsDetail ?externalEventsDetail
        ~majorVersionNumber ~modelType ~modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a model version. Updating a model version retrains an existing model version using updated training data and produces a new minor version of the model. You can update the training data set location and data access role attributes using this action. This action creates and trains a new minor version of the model, for example version 1.01, 1.02, 1.03."]
module UpdateModelResult =
  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 model description."]
module UpdateModelRequest =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t [@ocaml.doc "The model ID."];
      modelType: ModelTypeEnum.t [@ocaml.doc "The model type."];
      description: Description.t option
        [@ocaml.doc "The new model description."]}
    let context_ = "UpdateModelRequest"
    let make ?description =
      fun ~modelId ->
        fun ~modelType -> fun () -> { description; modelId; modelType }
    let to_value x =
      structure_to_value
        [("modelId", (Some (ModelIdentifier.to_value x.modelId)));
        ("modelType", (Some (ModelTypeEnum.to_value x.modelType)));
        ("description", (Option.map x.description ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let modelType =
        ModelTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelType") in
      let modelId =
        ModelIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelId") in
      make ?description ~modelType ~modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "description" Description.of_json in
      let modelType = field_map_exn json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map_exn json__ "modelId" ModelIdentifier.of_json in
      make ?description ~modelType ~modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates model description."]
module UpdateListResult =
  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 a list."]
module UpdateListRequest =
  struct
    type nonrec t =
      {
      name: NoDashIdentifier.t [@ocaml.doc "The name of the list to update."];
      elements: ElementsList.t option
        [@ocaml.doc
          "One or more list elements to add or replace. If you are providing the elements, make sure to specify the updateMode to use. If you are deleting all elements from the list, use REPLACE for the updateMode and provide an empty list (0 elements)."];
      description: Description.t option [@ocaml.doc "The new description."];
      updateMode: ListUpdateMode.t option
        [@ocaml.doc
          "The update mode (type). Use APPEND if you are adding elements to the list. Use REPLACE if you replacing existing elements in the list. Use REMOVE if you are removing elements from the list."];
      variableType: VariableType.t option
        [@ocaml.doc
          "The variable type you want to assign to the list. You cannot update a variable type of a list that already has a variable type assigned to it. You can assign a variable type to a list only if the list does not already have a variable type."]}
    let context_ = "UpdateListRequest"
    let make ?elements =
      fun ?description ->
        fun ?updateMode ->
          fun ?variableType ->
            fun ~name ->
              fun () ->
                { elements; description; updateMode; variableType; name }
    let to_value x =
      structure_to_value
        [("name", (Some (NoDashIdentifier.to_value x.name)));
        ("elements", (Option.map x.elements ~f:ElementsList.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("updateMode", (Option.map x.updateMode ~f:ListUpdateMode.to_value));
        ("variableType",
          (Option.map x.variableType ~f:VariableType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let variableType =
        (Option.map ~f:VariableType.of_xml)
          (Xml.child xml_arg0 "variableType") in
      let updateMode =
        (Option.map ~f:ListUpdateMode.of_xml)
          (Xml.child xml_arg0 "updateMode") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let elements =
        (Option.map ~f:ElementsList.of_xml) (Xml.child xml_arg0 "elements") in
      let name =
        NoDashIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?variableType ?updateMode ?description ?elements ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let variableType = field_map json__ "variableType" VariableType.of_json in
      let updateMode = field_map json__ "updateMode" ListUpdateMode.of_json in
      let description = field_map json__ "description" Description.of_json in
      let elements = field_map json__ "elements" ElementsList.of_json in
      let name = field_map_exn json__ "name" NoDashIdentifier.of_json in
      make ?variableType ?updateMode ?description ?elements ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a list."]
module UpdateEventLabelResult =
  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 specified event with a new label."]
module UpdateEventLabelRequest =
  struct
    type nonrec t =
      {
      eventId: Identifier.t
        [@ocaml.doc
          "The ID of the event associated with the label to update."];
      eventTypeName: Identifier.t
        [@ocaml.doc
          "The event type of the event associated with the label to update."];
      assignedLabel: Identifier.t
        [@ocaml.doc "The new label to assign to the event."];
      labelTimestamp: UtcTimestampISO8601.t
        [@ocaml.doc
          "The timestamp associated with the label. The timestamp must be specified using ISO 8601 standard in UTC."]}
    let context_ = "UpdateEventLabelRequest"
    let make ~eventId =
      fun ~eventTypeName ->
        fun ~assignedLabel ->
          fun ~labelTimestamp ->
            fun () ->
              { eventId; eventTypeName; assignedLabel; labelTimestamp }
    let to_value x =
      structure_to_value
        [("eventId", (Some (Identifier.to_value x.eventId)));
        ("eventTypeName", (Some (Identifier.to_value x.eventTypeName)));
        ("assignedLabel", (Some (Identifier.to_value x.assignedLabel)));
        ("labelTimestamp",
          (Some (UtcTimestampISO8601.to_value x.labelTimestamp)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let labelTimestamp =
        UtcTimestampISO8601.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "labelTimestamp") in
      let assignedLabel =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "assignedLabel") in
      let eventTypeName =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventTypeName") in
      let eventId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventId") in
      make ~labelTimestamp ~assignedLabel ~eventTypeName ~eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let labelTimestamp =
        field_map_exn json__ "labelTimestamp" UtcTimestampISO8601.of_json in
      let assignedLabel =
        field_map_exn json__ "assignedLabel" Identifier.of_json in
      let eventTypeName =
        field_map_exn json__ "eventTypeName" Identifier.of_json in
      let eventId = field_map_exn json__ "eventId" Identifier.of_json in
      make ~labelTimestamp ~assignedLabel ~eventTypeName ~eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the specified event with a new label."]
module UpdateDetectorVersionStatusResult =
  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 detector version\226\128\153s status. You can perform the following promotions or demotions using UpdateDetectorVersionStatus: DRAFT to ACTIVE, ACTIVE to INACTIVE, and INACTIVE to ACTIVE."]
module UpdateDetectorVersionStatusRequest =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t [@ocaml.doc "The detector ID."];
      detectorVersionId: WholeNumberVersionString.t
        [@ocaml.doc "The detector version ID."];
      status: DetectorVersionStatus.t
        [@ocaml.doc
          "The new status. The only supported values are ACTIVE and INACTIVE"]}
    let context_ = "UpdateDetectorVersionStatusRequest"
    let make ~detectorId =
      fun ~detectorVersionId ->
        fun ~status -> fun () -> { detectorId; detectorVersionId; status }
    let to_value x =
      structure_to_value
        [("detectorId", (Some (Identifier.to_value x.detectorId)));
        ("detectorVersionId",
          (Some (WholeNumberVersionString.to_value x.detectorVersionId)));
        ("status", (Some (DetectorVersionStatus.to_value x.status)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        DetectorVersionStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "status") in
      let detectorVersionId =
        WholeNumberVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorVersionId") in
      let detectorId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorId") in
      make ~status ~detectorVersionId ~detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map_exn json__ "status" DetectorVersionStatus.of_json in
      let detectorVersionId =
        field_map_exn json__ "detectorVersionId"
          WholeNumberVersionString.of_json in
      let detectorId = field_map_exn json__ "detectorId" Identifier.of_json in
      make ~status ~detectorVersionId ~detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the detector version\226\128\153s status. You can perform the following promotions or demotions using UpdateDetectorVersionStatus: DRAFT to ACTIVE, ACTIVE to INACTIVE, and INACTIVE to ACTIVE."]
module UpdateDetectorVersionResult =
  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 a detector version. The detector version attributes that you can update include models, external model endpoints, rules, rule execution mode, and description. You can only update a DRAFT detector version."]
module UpdateDetectorVersionRequest =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t
        [@ocaml.doc
          "The parent detector ID for the detector version you want to update."];
      detectorVersionId: WholeNumberVersionString.t
        [@ocaml.doc "The detector version ID."];
      externalModelEndpoints: ListOfStrings.t
        [@ocaml.doc
          "The Amazon SageMaker model endpoints to include in the detector version."];
      rules: RuleList.t
        [@ocaml.doc "The rules to include in the detector version."];
      description: Description.t option
        [@ocaml.doc "The detector version description."];
      modelVersions: ListOfModelVersions.t option
        [@ocaml.doc "The model versions to include in the detector version."];
      ruleExecutionMode: RuleExecutionMode.t option
        [@ocaml.doc
          "The rule execution mode to add to the detector. If you specify FIRST_MATCHED, Amazon Fraud Detector evaluates rules sequentially, first to last, stopping at the first matched rule. Amazon Fraud dectector then provides the outcomes for that single rule. If you specifiy ALL_MATCHED, Amazon Fraud Detector evaluates all rules and returns the outcomes for all matched rules. You can define and edit the rule mode at the detector version level, when it is in draft status. The default behavior is FIRST_MATCHED."]}
    let context_ = "UpdateDetectorVersionRequest"
    let make ?description =
      fun ?modelVersions ->
        fun ?ruleExecutionMode ->
          fun ~detectorId ->
            fun ~detectorVersionId ->
              fun ~externalModelEndpoints ->
                fun ~rules ->
                  fun () ->
                    {
                      description;
                      modelVersions;
                      ruleExecutionMode;
                      detectorId;
                      detectorVersionId;
                      externalModelEndpoints;
                      rules
                    }
    let to_value x =
      structure_to_value
        [("detectorId", (Some (Identifier.to_value x.detectorId)));
        ("detectorVersionId",
          (Some (WholeNumberVersionString.to_value x.detectorVersionId)));
        ("externalModelEndpoints",
          (Some (ListOfStrings.to_value x.externalModelEndpoints)));
        ("rules", (Some (RuleList.to_value x.rules)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("modelVersions",
          (Option.map x.modelVersions ~f:ListOfModelVersions.to_value));
        ("ruleExecutionMode",
          (Option.map x.ruleExecutionMode ~f:RuleExecutionMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleExecutionMode =
        (Option.map ~f:RuleExecutionMode.of_xml)
          (Xml.child xml_arg0 "ruleExecutionMode") in
      let modelVersions =
        (Option.map ~f:ListOfModelVersions.of_xml)
          (Xml.child xml_arg0 "modelVersions") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let rules =
        RuleList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "rules") in
      let externalModelEndpoints =
        ListOfStrings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "externalModelEndpoints") in
      let detectorVersionId =
        WholeNumberVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorVersionId") in
      let detectorId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorId") in
      make ?ruleExecutionMode ?modelVersions ?description ~rules
        ~externalModelEndpoints ~detectorVersionId ~detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleExecutionMode =
        field_map json__ "ruleExecutionMode" RuleExecutionMode.of_json in
      let modelVersions =
        field_map json__ "modelVersions" ListOfModelVersions.of_json in
      let description = field_map json__ "description" Description.of_json in
      let rules = field_map_exn json__ "rules" RuleList.of_json in
      let externalModelEndpoints =
        field_map_exn json__ "externalModelEndpoints" ListOfStrings.of_json in
      let detectorVersionId =
        field_map_exn json__ "detectorVersionId"
          WholeNumberVersionString.of_json in
      let detectorId = field_map_exn json__ "detectorId" Identifier.of_json in
      make ?ruleExecutionMode ?modelVersions ?description ~rules
        ~externalModelEndpoints ~detectorVersionId ~detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a detector version. The detector version attributes that you can update include models, external model endpoints, rules, rule execution mode, and description. You can only update a DRAFT detector version."]
module UpdateDetectorVersionMetadataResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 detector version's description. You can update the metadata for any detector version (DRAFT, ACTIVE, or INACTIVE)."]
module UpdateDetectorVersionMetadataRequest =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t [@ocaml.doc "The detector ID."];
      detectorVersionId: WholeNumberVersionString.t
        [@ocaml.doc "The detector version ID."];
      description: Description.t [@ocaml.doc "The description."]}
    let context_ = "UpdateDetectorVersionMetadataRequest"
    let make ~detectorId =
      fun ~detectorVersionId ->
        fun ~description ->
          fun () -> { detectorId; detectorVersionId; description }
    let to_value x =
      structure_to_value
        [("detectorId", (Some (Identifier.to_value x.detectorId)));
        ("detectorVersionId",
          (Some (WholeNumberVersionString.to_value x.detectorVersionId)));
        ("description", (Some (Description.to_value x.description)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        Description.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "description") in
      let detectorVersionId =
        WholeNumberVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorVersionId") in
      let detectorId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorId") in
      make ~description ~detectorVersionId ~detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map_exn json__ "description" Description.of_json in
      let detectorVersionId =
        field_map_exn json__ "detectorVersionId"
          WholeNumberVersionString.of_json in
      let detectorId = field_map_exn json__ "detectorId" Identifier.of_json in
      make ~description ~detectorVersionId ~detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the detector version's description. You can update the metadata for any detector version (DRAFT, ACTIVE, or INACTIVE)."]
module UntagResourceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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)
      | "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)
      | "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))]
      | `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 "Removes tags from a resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: FraudDetectorArn.t
        [@ocaml.doc "The ARN of the resource from which to remove the tag."];
      tagKeys: TagKeyList.t [@ocaml.doc "The resource ARN."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceARN =
      fun ~tagKeys -> fun () -> { resourceARN; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceARN", (Some (FraudDetectorArn.to_value x.resourceARN)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceARN =
        FraudDetectorArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceARN") in
      make ~tagKeys ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeyList.of_json in
      let resourceARN =
        field_map_exn json__ "resourceARN" FraudDetectorArn.of_json in
      make ~tagKeys ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from a resource."]
module TagResourceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.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)
      | "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)
      | "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))]
      | `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 "Assigns tags to a resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: FraudDetectorArn.t [@ocaml.doc "The resource ARN."];
      tags: TagList.t [@ocaml.doc "The tags to assign to the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceARN = fun ~tags -> fun () -> { resourceARN; tags }
    let to_value x =
      structure_to_value
        [("resourceARN", (Some (FraudDetectorArn.to_value x.resourceARN)));
        ("tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceARN =
        FraudDetectorArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceARN") in
      make ~tags ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagList.of_json in
      let resourceARN =
        field_map_exn json__ "resourceARN" FraudDetectorArn.of_json in
      make ~tags ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Assigns tags to a resource."]
module SendEventResult =
  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
       "Stores events in Amazon Fraud Detector without generating fraud predictions for those events. For example, you can use SendEvent to upload a historical dataset, which you can then later use to train a model."]
module SendEventRequest =
  struct
    type nonrec t =
      {
      eventId: Identifier.t [@ocaml.doc "The event ID to upload."];
      eventTypeName: Identifier.t
        [@ocaml.doc "The event type name of the event."];
      eventTimestamp: UtcTimestampISO8601.t
        [@ocaml.doc
          "The timestamp that defines when the event under evaluation occurred. The timestamp must be specified using ISO 8601 standard in UTC."];
      eventVariables: EventVariableMap.t
        [@ocaml.doc
          "Names of the event type's variables you defined in Amazon Fraud Detector to represent data elements and their corresponding values for the event you are sending for evaluation."];
      assignedLabel: Identifier.t option
        [@ocaml.doc
          "The label to associate with the event. Required if specifying labelTimestamp."];
      labelTimestamp: UtcTimestampISO8601.t option
        [@ocaml.doc
          "The timestamp associated with the label. Required if specifying assignedLabel."];
      entities: ListOfEntities.t [@ocaml.doc "An array of entities."]}
    let context_ = "SendEventRequest"
    let make ?assignedLabel =
      fun ?labelTimestamp ->
        fun ~eventId ->
          fun ~eventTypeName ->
            fun ~eventTimestamp ->
              fun ~eventVariables ->
                fun ~entities ->
                  fun () ->
                    {
                      assignedLabel;
                      labelTimestamp;
                      eventId;
                      eventTypeName;
                      eventTimestamp;
                      eventVariables;
                      entities
                    }
    let to_value x =
      structure_to_value
        [("eventId", (Some (Identifier.to_value x.eventId)));
        ("eventTypeName", (Some (Identifier.to_value x.eventTypeName)));
        ("eventTimestamp",
          (Some (UtcTimestampISO8601.to_value x.eventTimestamp)));
        ("eventVariables",
          (Some (EventVariableMap.to_value x.eventVariables)));
        ("assignedLabel",
          (Option.map x.assignedLabel ~f:Identifier.to_value));
        ("labelTimestamp",
          (Option.map x.labelTimestamp ~f:UtcTimestampISO8601.to_value));
        ("entities", (Some (ListOfEntities.to_value x.entities)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entities =
        ListOfEntities.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "entities") in
      let labelTimestamp =
        (Option.map ~f:UtcTimestampISO8601.of_xml)
          (Xml.child xml_arg0 "labelTimestamp") in
      let assignedLabel =
        (Option.map ~f:Identifier.of_xml)
          (Xml.child xml_arg0 "assignedLabel") in
      let eventVariables =
        EventVariableMap.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventVariables") in
      let eventTimestamp =
        UtcTimestampISO8601.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventTimestamp") in
      let eventTypeName =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventTypeName") in
      let eventId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventId") in
      make ~entities ?labelTimestamp ?assignedLabel ~eventVariables
        ~eventTimestamp ~eventTypeName ~eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entities = field_map_exn json__ "entities" ListOfEntities.of_json in
      let labelTimestamp =
        field_map json__ "labelTimestamp" UtcTimestampISO8601.of_json in
      let assignedLabel = field_map json__ "assignedLabel" Identifier.of_json in
      let eventVariables =
        field_map_exn json__ "eventVariables" EventVariableMap.of_json in
      let eventTimestamp =
        field_map_exn json__ "eventTimestamp" UtcTimestampISO8601.of_json in
      let eventTypeName =
        field_map_exn json__ "eventTypeName" Identifier.of_json in
      let eventId = field_map_exn json__ "eventId" Identifier.of_json in
      make ~entities ?labelTimestamp ?assignedLabel ~eventVariables
        ~eventTimestamp ~eventTypeName ~eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stores events in Amazon Fraud Detector without generating fraud predictions for those events. For example, you can use SendEvent to upload a historical dataset, which you can then later use to train a model."]
module PutOutcomeResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 "Creates or updates an outcome."]
module PutOutcomeRequest =
  struct
    type nonrec t =
      {
      name: Identifier.t [@ocaml.doc "The name of the outcome."];
      description: Description.t option
        [@ocaml.doc "The outcome description."];
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."]}
    let context_ = "PutOutcomeRequest"
    let make ?description =
      fun ?tags -> fun ~name -> fun () -> { description; tags; name }
    let to_value x =
      structure_to_value
        [("name", (Some (Identifier.to_value x.name)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map_exn json__ "name" Identifier.of_json in
      make ?tags ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates or updates an outcome."]
module PutLabelResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Creates or updates label. A label classifies an event as fraudulent or legitimate. Labels are associated with event types and used to train supervised machine learning models in Amazon Fraud Detector."]
module PutLabelRequest =
  struct
    type nonrec t =
      {
      name: Identifier.t [@ocaml.doc "The label name."];
      description: Description.t option [@ocaml.doc "The label description."];
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."]}
    let context_ = "PutLabelRequest"
    let make ?description =
      fun ?tags -> fun ~name -> fun () -> { description; tags; name }
    let to_value x =
      structure_to_value
        [("name", (Some (Identifier.to_value x.name)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map_exn json__ "name" Identifier.of_json in
      make ?tags ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates label. A label classifies an event as fraudulent or legitimate. Labels are associated with event types and used to train supervised machine learning models in Amazon Fraud Detector."]
module PutKMSEncryptionKeyResult =
  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
       "Specifies the KMS key to be used to encrypt content in Amazon Fraud Detector."]
module PutKMSEncryptionKeyRequest =
  struct
    type nonrec t =
      {
      kmsEncryptionKeyArn: KmsEncryptionKeyArn.t
        [@ocaml.doc
          "The KMS encryption key ARN. The KMS key must be single-Region key. Amazon Fraud Detector does not support multi-Region KMS key."]}
    let context_ = "PutKMSEncryptionKeyRequest"
    let make ~kmsEncryptionKeyArn = fun () -> { kmsEncryptionKeyArn }
    let to_value x =
      structure_to_value
        [("kmsEncryptionKeyArn",
           (Some (KmsEncryptionKeyArn.to_value x.kmsEncryptionKeyArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsEncryptionKeyArn =
        KmsEncryptionKeyArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "kmsEncryptionKeyArn") in
      make ~kmsEncryptionKeyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsEncryptionKeyArn =
        field_map_exn json__ "kmsEncryptionKeyArn"
          KmsEncryptionKeyArn.of_json in
      make ~kmsEncryptionKeyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the KMS key to be used to encrypt content in Amazon Fraud Detector."]
module PutExternalModelResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Creates or updates an Amazon SageMaker model endpoint. You can also use this action to update the configuration of the model endpoint, including the IAM role and/or the mapped variables."]
module PutExternalModelRequest =
  struct
    type nonrec t =
      {
      modelEndpoint: SageMakerEndpointIdentifier.t
        [@ocaml.doc "The model endpoints name."];
      modelSource: ModelSource.t [@ocaml.doc "The source of the model."];
      invokeModelEndpointRoleArn: String_.t
        [@ocaml.doc "The IAM role used to invoke the model endpoint."];
      inputConfiguration: ModelInputConfiguration.t
        [@ocaml.doc "The model endpoint input configuration."];
      outputConfiguration: ModelOutputConfiguration.t
        [@ocaml.doc "The model endpoint output configuration."];
      modelEndpointStatus: ModelEndpointStatus.t
        [@ocaml.doc
          "The model endpoint\226\128\153s status in Amazon Fraud Detector."];
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."]}
    let context_ = "PutExternalModelRequest"
    let make ?tags =
      fun ~modelEndpoint ->
        fun ~modelSource ->
          fun ~invokeModelEndpointRoleArn ->
            fun ~inputConfiguration ->
              fun ~outputConfiguration ->
                fun ~modelEndpointStatus ->
                  fun () ->
                    {
                      tags;
                      modelEndpoint;
                      modelSource;
                      invokeModelEndpointRoleArn;
                      inputConfiguration;
                      outputConfiguration;
                      modelEndpointStatus
                    }
    let to_value x =
      structure_to_value
        [("modelEndpoint",
           (Some (SageMakerEndpointIdentifier.to_value x.modelEndpoint)));
        ("modelSource", (Some (ModelSource.to_value x.modelSource)));
        ("invokeModelEndpointRoleArn",
          (Some (String_.to_value x.invokeModelEndpointRoleArn)));
        ("inputConfiguration",
          (Some (ModelInputConfiguration.to_value x.inputConfiguration)));
        ("outputConfiguration",
          (Some (ModelOutputConfiguration.to_value x.outputConfiguration)));
        ("modelEndpointStatus",
          (Some (ModelEndpointStatus.to_value x.modelEndpointStatus)));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let modelEndpointStatus =
        ModelEndpointStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelEndpointStatus") in
      let outputConfiguration =
        ModelOutputConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "outputConfiguration") in
      let inputConfiguration =
        ModelInputConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "inputConfiguration") in
      let invokeModelEndpointRoleArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "invokeModelEndpointRoleArn") in
      let modelSource =
        ModelSource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelSource") in
      let modelEndpoint =
        SageMakerEndpointIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelEndpoint") in
      make ?tags ~modelEndpointStatus ~outputConfiguration
        ~inputConfiguration ~invokeModelEndpointRoleArn ~modelSource
        ~modelEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let modelEndpointStatus =
        field_map_exn json__ "modelEndpointStatus"
          ModelEndpointStatus.of_json in
      let outputConfiguration =
        field_map_exn json__ "outputConfiguration"
          ModelOutputConfiguration.of_json in
      let inputConfiguration =
        field_map_exn json__ "inputConfiguration"
          ModelInputConfiguration.of_json in
      let invokeModelEndpointRoleArn =
        field_map_exn json__ "invokeModelEndpointRoleArn" String_.of_json in
      let modelSource =
        field_map_exn json__ "modelSource" ModelSource.of_json in
      let modelEndpoint =
        field_map_exn json__ "modelEndpoint"
          SageMakerEndpointIdentifier.of_json in
      make ?tags ~modelEndpointStatus ~outputConfiguration
        ~inputConfiguration ~invokeModelEndpointRoleArn ~modelSource
        ~modelEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates an Amazon SageMaker model endpoint. You can also use this action to update the configuration of the model endpoint, including the IAM role and/or the mapped variables."]
module PutEventTypeResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Creates or updates an event type. An event is a business activity that is evaluated for fraud risk. With Amazon Fraud Detector, you generate fraud predictions for events. An event type defines the structure for an event sent to Amazon Fraud Detector. This includes the variables sent as part of the event, the entity performing the event (such as a customer), and the labels that classify the event. Example event types include online payment transactions, account registrations, and authentications."]
module PutEventTypeRequest =
  struct
    type nonrec t =
      {
      name: Identifier.t [@ocaml.doc "The name."];
      description: Description.t option
        [@ocaml.doc "The description of the event type."];
      eventVariables: NonEmptyListOfStrings.t
        [@ocaml.doc "The event type variables."];
      labels: ListOfStrings.t option [@ocaml.doc "The event type labels."];
      entityTypes: NonEmptyListOfStrings.t
        [@ocaml.doc
          "The entity type for the event type. Example entity types: customer, merchant, account."];
      eventIngestion: EventIngestion.t option
        [@ocaml.doc "Specifies if ingestion is enabled or disabled."];
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."];
      eventOrchestration: EventOrchestration.t option
        [@ocaml.doc
          "Enables or disables event orchestration. If enabled, you can send event predictions to select AWS services for downstream processing of the events."]}
    let context_ = "PutEventTypeRequest"
    let make ?description =
      fun ?labels ->
        fun ?eventIngestion ->
          fun ?tags ->
            fun ?eventOrchestration ->
              fun ~name ->
                fun ~eventVariables ->
                  fun ~entityTypes ->
                    fun () ->
                      {
                        description;
                        labels;
                        eventIngestion;
                        tags;
                        eventOrchestration;
                        name;
                        eventVariables;
                        entityTypes
                      }
    let to_value x =
      structure_to_value
        [("name", (Some (Identifier.to_value x.name)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("eventVariables",
          (Some (NonEmptyListOfStrings.to_value x.eventVariables)));
        ("labels", (Option.map x.labels ~f:ListOfStrings.to_value));
        ("entityTypes",
          (Some (NonEmptyListOfStrings.to_value x.entityTypes)));
        ("eventIngestion",
          (Option.map x.eventIngestion ~f:EventIngestion.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value));
        ("eventOrchestration",
          (Option.map x.eventOrchestration ~f:EventOrchestration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventOrchestration =
        (Option.map ~f:EventOrchestration.of_xml)
          (Xml.child xml_arg0 "eventOrchestration") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let eventIngestion =
        (Option.map ~f:EventIngestion.of_xml)
          (Xml.child xml_arg0 "eventIngestion") in
      let entityTypes =
        NonEmptyListOfStrings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "entityTypes") in
      let labels =
        (Option.map ~f:ListOfStrings.of_xml) (Xml.child xml_arg0 "labels") in
      let eventVariables =
        NonEmptyListOfStrings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventVariables") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?eventOrchestration ?tags ?eventIngestion ~entityTypes ?labels
        ~eventVariables ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventOrchestration =
        field_map json__ "eventOrchestration" EventOrchestration.of_json in
      let tags = field_map json__ "tags" TagList.of_json in
      let eventIngestion =
        field_map json__ "eventIngestion" EventIngestion.of_json in
      let entityTypes =
        field_map_exn json__ "entityTypes" NonEmptyListOfStrings.of_json in
      let labels = field_map json__ "labels" ListOfStrings.of_json in
      let eventVariables =
        field_map_exn json__ "eventVariables" NonEmptyListOfStrings.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map_exn json__ "name" Identifier.of_json in
      make ?eventOrchestration ?tags ?eventIngestion ~entityTypes ?labels
        ~eventVariables ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates an event type. An event is a business activity that is evaluated for fraud risk. With Amazon Fraud Detector, you generate fraud predictions for events. An event type defines the structure for an event sent to Amazon Fraud Detector. This includes the variables sent as part of the event, the entity performing the event (such as a customer), and the labels that classify the event. Example event types include online payment transactions, account registrations, and authentications."]
module PutEntityTypeResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Creates or updates an entity type. An entity represents who is performing the event. As part of a fraud prediction, you pass the entity ID to indicate the specific entity who performed the event. An entity type classifies the entity. Example classifications include customer, merchant, or account."]
module PutEntityTypeRequest =
  struct
    type nonrec t =
      {
      name: Identifier.t [@ocaml.doc "The name of the entity type."];
      description: Description.t option [@ocaml.doc "The description."];
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."]}
    let context_ = "PutEntityTypeRequest"
    let make ?description =
      fun ?tags -> fun ~name -> fun () -> { description; tags; name }
    let to_value x =
      structure_to_value
        [("name", (Some (Identifier.to_value x.name)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map_exn json__ "name" Identifier.of_json in
      make ?tags ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates an entity type. An entity represents who is performing the event. As part of a fraud prediction, you pass the entity ID to indicate the specific entity who performed the event. An entity type classifies the entity. Example classifications include customer, merchant, or account."]
module PutDetectorResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 "Creates or updates a detector."]
module PutDetectorRequest =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t [@ocaml.doc "The detector ID."];
      description: Description.t option
        [@ocaml.doc "The description of the detector."];
      eventTypeName: Identifier.t [@ocaml.doc "The name of the event type."];
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."]}
    let context_ = "PutDetectorRequest"
    let make ?description =
      fun ?tags ->
        fun ~detectorId ->
          fun ~eventTypeName ->
            fun () -> { description; tags; detectorId; eventTypeName }
    let to_value x =
      structure_to_value
        [("detectorId", (Some (Identifier.to_value x.detectorId)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("eventTypeName", (Some (Identifier.to_value x.eventTypeName)));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let eventTypeName =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventTypeName") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let detectorId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorId") in
      make ?tags ~eventTypeName ?description ~detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let eventTypeName =
        field_map_exn json__ "eventTypeName" Identifier.of_json in
      let description = field_map json__ "description" Description.of_json in
      let detectorId = field_map_exn json__ "detectorId" Identifier.of_json in
      make ?tags ~eventTypeName ?description ~detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates or updates a detector."]
module ListTagsForResourceResult =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."];
      nextToken: String_.t option
        [@ocaml.doc "The next token for subsequent requests."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun ?nextToken -> fun () -> { tags; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.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)
      | "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))]
      | `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
        [("tags", (Option.map x.tags ~f:TagList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      make ?nextToken ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let tags = field_map json__ "tags" TagList.of_json in
      make ?nextToken ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all tags associated with the resource. This is a paginated API. To get the next page results, provide the pagination token from the response as part of your request. A null pagination token fetches the records from the beginning."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: FraudDetectorArn.t
        [@ocaml.doc
          "The ARN that specifies the resource whose tags you want to list."];
      nextToken: String_.t option
        [@ocaml.doc "The next token from the previous results."];
      maxResults: TagsMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects to return for the request."]}
    let context_ = "ListTagsForResourceRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~resourceARN -> fun () -> { nextToken; maxResults; resourceARN }
    let to_value x =
      structure_to_value
        [("resourceARN", (Some (FraudDetectorArn.to_value x.resourceARN)));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults", (Option.map x.maxResults ~f:TagsMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:TagsMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let resourceARN =
        FraudDetectorArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceARN") in
      make ?maxResults ?nextToken ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" TagsMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let resourceARN =
        field_map_exn json__ "resourceARN" FraudDetectorArn.of_json in
      make ?maxResults ?nextToken ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all tags associated with the resource. This is a paginated API. To get the next page results, provide the pagination token from the response as part of your request. A null pagination token fetches the records from the beginning."]
module ListEventPredictionsResult =
  struct
    type nonrec t =
      {
      eventPredictionSummaries: ListOfEventPredictionSummaries.t option
        [@ocaml.doc "The summary of the past predictions."];
      nextToken: String_.t option
        [@ocaml.doc
          "Identifies the next page of results to return. Use the token to make the call again to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?eventPredictionSummaries =
      fun ?nextToken -> fun () -> { eventPredictionSummaries; 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
        [("eventPredictionSummaries",
           (Option.map x.eventPredictionSummaries
              ~f:ListOfEventPredictionSummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let eventPredictionSummaries =
        (Option.map ~f:ListOfEventPredictionSummaries.of_xml)
          (Xml.child xml_arg0 "eventPredictionSummaries") in
      make ?nextToken ?eventPredictionSummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let eventPredictionSummaries =
        field_map json__ "eventPredictionSummaries"
          ListOfEventPredictionSummaries.of_json in
      make ?nextToken ?eventPredictionSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a list of past predictions. The list can be filtered by detector ID, detector version ID, event ID, event type, or by specifying a time period. If filter is not specified, the most recent prediction is returned. For example, the following filter lists all past predictions for xyz event type - \\{ \"eventType\":\\{ \"value\": \"xyz\" \\}\226\128\157 \\} This is a paginated API. If you provide a null maxResults, this action will retrieve a maximum of 10 records per page. If you provide a maxResults, the value must be between 50 and 100. To get the next page results, provide the nextToken from the response as part of your request. A null nextToken fetches the records from the beginning."]
module ListEventPredictionsRequest =
  struct
    type nonrec t =
      {
      eventId: FilterCondition.t option [@ocaml.doc "The event ID."];
      eventType: FilterCondition.t option
        [@ocaml.doc "The event type associated with the detector."];
      detectorId: FilterCondition.t option [@ocaml.doc "The detector ID."];
      detectorVersionId: FilterCondition.t option
        [@ocaml.doc "The detector version ID."];
      predictionTimeRange: PredictionTimeRange.t option
        [@ocaml.doc
          "The time period for when the predictions were generated."];
      nextToken: String_.t option
        [@ocaml.doc
          "Identifies the next page of results to return. Use the token to make the call again to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours."];
      maxResults: EventPredictionsMaxResults.t option
        [@ocaml.doc
          "The maximum number of predictions to return for the request."]}
    let make ?eventId =
      fun ?eventType ->
        fun ?detectorId ->
          fun ?detectorVersionId ->
            fun ?predictionTimeRange ->
              fun ?nextToken ->
                fun ?maxResults ->
                  fun () ->
                    {
                      eventId;
                      eventType;
                      detectorId;
                      detectorVersionId;
                      predictionTimeRange;
                      nextToken;
                      maxResults
                    }
    let to_value x =
      structure_to_value
        [("eventId", (Option.map x.eventId ~f:FilterCondition.to_value));
        ("eventType", (Option.map x.eventType ~f:FilterCondition.to_value));
        ("detectorId", (Option.map x.detectorId ~f:FilterCondition.to_value));
        ("detectorVersionId",
          (Option.map x.detectorVersionId ~f:FilterCondition.to_value));
        ("predictionTimeRange",
          (Option.map x.predictionTimeRange ~f:PredictionTimeRange.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:EventPredictionsMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:EventPredictionsMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let predictionTimeRange =
        (Option.map ~f:PredictionTimeRange.of_xml)
          (Xml.child xml_arg0 "predictionTimeRange") in
      let detectorVersionId =
        (Option.map ~f:FilterCondition.of_xml)
          (Xml.child xml_arg0 "detectorVersionId") in
      let detectorId =
        (Option.map ~f:FilterCondition.of_xml)
          (Xml.child xml_arg0 "detectorId") in
      let eventType =
        (Option.map ~f:FilterCondition.of_xml)
          (Xml.child xml_arg0 "eventType") in
      let eventId =
        (Option.map ~f:FilterCondition.of_xml) (Xml.child xml_arg0 "eventId") in
      make ?maxResults ?nextToken ?predictionTimeRange ?detectorVersionId
        ?detectorId ?eventType ?eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" EventPredictionsMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let predictionTimeRange =
        field_map json__ "predictionTimeRange" PredictionTimeRange.of_json in
      let detectorVersionId =
        field_map json__ "detectorVersionId" FilterCondition.of_json in
      let detectorId = field_map json__ "detectorId" FilterCondition.of_json in
      let eventType = field_map json__ "eventType" FilterCondition.of_json in
      let eventId = field_map json__ "eventId" FilterCondition.of_json in
      make ?maxResults ?nextToken ?predictionTimeRange ?detectorVersionId
        ?detectorId ?eventType ?eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a list of past predictions. The list can be filtered by detector ID, detector version ID, event ID, event type, or by specifying a time period. If filter is not specified, the most recent prediction is returned. For example, the following filter lists all past predictions for xyz event type - \\{ \"eventType\":\\{ \"value\": \"xyz\" \\}\226\128\157 \\} This is a paginated API. If you provide a null maxResults, this action will retrieve a maximum of 10 records per page. If you provide a maxResults, the value must be between 50 and 100. To get the next page results, provide the nextToken from the response as part of your request. A null nextToken fetches the records from the beginning."]
module GetVariablesResult =
  struct
    type nonrec t =
      {
      variables: VariableList.t option
        [@ocaml.doc "The names of the variables returned."];
      nextToken: String_.t option
        [@ocaml.doc "The next page token to be used in subsequent requests."]}
    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 ?variables =
      fun ?nextToken -> fun () -> { variables; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("variables", (Option.map x.variables ~f:VariableList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let variables =
        (Option.map ~f:VariableList.of_xml) (Xml.child xml_arg0 "variables") in
      make ?nextToken ?variables ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let variables = field_map json__ "variables" VariableList.of_json in
      make ?nextToken ?variables ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all of the variables or the specific variable. This is a paginated API. Providing null maxSizePerPage results in retrieving maximum of 100 records per page. If you provide maxSizePerPage the value must be between 50 and 100. To get the next page result, a provide a pagination token from GetVariablesResult as part of your request. Null pagination token fetches the records from the beginning."]
module GetVariablesRequest =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the variable."];
      nextToken: String_.t option
        [@ocaml.doc "The next page token of the get variable request."];
      maxResults: VariablesMaxResults.t option
        [@ocaml.doc
          "The max size per page determined for the get variable request."]}
    let make ?name =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { name; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:VariablesMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:VariablesMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?maxResults ?nextToken ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" VariablesMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?maxResults ?nextToken ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all of the variables or the specific variable. This is a paginated API. Providing null maxSizePerPage results in retrieving maximum of 100 records per page. If you provide maxSizePerPage the value must be between 50 and 100. To get the next page result, a provide a pagination token from GetVariablesResult as part of your request. Null pagination token fetches the records from the beginning."]
module GetRulesResult =
  struct
    type nonrec t =
      {
      ruleDetails: RuleDetailList.t option
        [@ocaml.doc "The details of the requested rule."];
      nextToken: String_.t option
        [@ocaml.doc "The next page token to be used in subsequent requests."]}
    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 ?ruleDetails =
      fun ?nextToken -> fun () -> { ruleDetails; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ruleDetails",
           (Option.map x.ruleDetails ~f:RuleDetailList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let ruleDetails =
        (Option.map ~f:RuleDetailList.of_xml)
          (Xml.child xml_arg0 "ruleDetails") in
      make ?nextToken ?ruleDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let ruleDetails = field_map json__ "ruleDetails" RuleDetailList.of_json in
      make ?nextToken ?ruleDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get all rules for a detector (paginated) if ruleId and ruleVersion are not specified. Gets all rules for the detector and the ruleId if present (paginated). Gets a specific rule if both the ruleId and the ruleVersion are specified. This is a paginated API. Providing null maxResults results in retrieving maximum of 100 records per page. If you provide maxResults the value must be between 50 and 100. To get the next page result, a provide a pagination token from GetRulesResult as part of your request. Null pagination token fetches the records from the beginning."]
module GetRulesRequest =
  struct
    type nonrec t =
      {
      ruleId: Identifier.t option [@ocaml.doc "The rule ID."];
      detectorId: Identifier.t [@ocaml.doc "The detector ID."];
      ruleVersion: WholeNumberVersionString.t option
        [@ocaml.doc "The rule version."];
      nextToken: String_.t option [@ocaml.doc "The next page token."];
      maxResults: RulesMaxResults.t option
        [@ocaml.doc "The maximum number of rules to return for the request."]}
    let context_ = "GetRulesRequest"
    let make ?ruleId =
      fun ?ruleVersion ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~detectorId ->
              fun () ->
                { ruleId; ruleVersion; nextToken; maxResults; detectorId }
    let to_value x =
      structure_to_value
        [("ruleId", (Option.map x.ruleId ~f:Identifier.to_value));
        ("detectorId", (Some (Identifier.to_value x.detectorId)));
        ("ruleVersion",
          (Option.map x.ruleVersion ~f:WholeNumberVersionString.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults", (Option.map x.maxResults ~f:RulesMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:RulesMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let ruleVersion =
        (Option.map ~f:WholeNumberVersionString.of_xml)
          (Xml.child xml_arg0 "ruleVersion") in
      let detectorId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorId") in
      let ruleId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "ruleId") in
      make ?maxResults ?nextToken ?ruleVersion ~detectorId ?ruleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" RulesMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let ruleVersion =
        field_map json__ "ruleVersion" WholeNumberVersionString.of_json in
      let detectorId = field_map_exn json__ "detectorId" Identifier.of_json in
      let ruleId = field_map json__ "ruleId" Identifier.of_json in
      make ?maxResults ?nextToken ?ruleVersion ~detectorId ?ruleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get all rules for a detector (paginated) if ruleId and ruleVersion are not specified. Gets all rules for the detector and the ruleId if present (paginated). Gets a specific rule if both the ruleId and the ruleVersion are specified. This is a paginated API. Providing null maxResults results in retrieving maximum of 100 records per page. If you provide maxResults the value must be between 50 and 100. To get the next page result, a provide a pagination token from GetRulesResult as part of your request. Null pagination token fetches the records from the beginning."]
module GetOutcomesResult =
  struct
    type nonrec t =
      {
      outcomes: OutcomeList.t option [@ocaml.doc "The outcomes."];
      nextToken: String_.t option
        [@ocaml.doc "The next page token for subsequent requests."]}
    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 ?outcomes = fun ?nextToken -> fun () -> { outcomes; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("outcomes", (Option.map x.outcomes ~f:OutcomeList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let outcomes =
        (Option.map ~f:OutcomeList.of_xml) (Xml.child xml_arg0 "outcomes") in
      make ?nextToken ?outcomes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let outcomes = field_map json__ "outcomes" OutcomeList.of_json in
      make ?nextToken ?outcomes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets one or more outcomes. This is a paginated API. If you provide a null maxResults, this actions retrieves a maximum of 100 records per page. If you provide a maxResults, the value must be between 50 and 100. To get the next page results, provide the pagination token from the GetOutcomesResult as part of your request. A null pagination token fetches the records from the beginning."]
module GetOutcomesRequest =
  struct
    type nonrec t =
      {
      name: Identifier.t option
        [@ocaml.doc "The name of the outcome or outcomes to get."];
      nextToken: String_.t option
        [@ocaml.doc "The next page token for the request."];
      maxResults: OutcomesMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects to return for the request."]}
    let make ?name =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { name; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:Identifier.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:OutcomesMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:OutcomesMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let name =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "name") in
      make ?maxResults ?nextToken ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" OutcomesMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let name = field_map json__ "name" Identifier.of_json in
      make ?maxResults ?nextToken ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets one or more outcomes. This is a paginated API. If you provide a null maxResults, this actions retrieves a maximum of 100 records per page. If you provide a maxResults, the value must be between 50 and 100. To get the next page results, provide the pagination token from the GetOutcomesResult as part of your request. A null pagination token fetches the records from the beginning."]
module GetModelsResult =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc "The next page token to be used in subsequent requests."];
      models: ModelList.t option [@ocaml.doc "The array of models."]}
    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 ?nextToken = fun ?models -> fun () -> { nextToken; models }
    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
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("models", (Option.map x.models ~f:ModelList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let models =
        (Option.map ~f:ModelList.of_xml) (Xml.child xml_arg0 "models") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?models ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let models = field_map json__ "models" ModelList.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?models ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets one or more models. Gets all models for the Amazon Web Services account if no model type and no model id provided. Gets all models for the Amazon Web Services account and model type, if the model type is specified but model id is not provided. Gets a specific model if (model type, model id) tuple is specified. This is a paginated API. If you provide a null maxResults, this action retrieves a maximum of 10 records per page. If you provide a maxResults, the value must be between 1 and 10. To get the next page results, provide the pagination token from the response as part of your request. A null pagination token fetches the records from the beginning."]
module GetModelsRequest =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t option [@ocaml.doc "The model ID."];
      modelType: ModelTypeEnum.t option [@ocaml.doc "The model type."];
      nextToken: String_.t option
        [@ocaml.doc "The next token for the subsequent request."];
      maxResults: ModelsMaxPageSize.t option
        [@ocaml.doc
          "The maximum number of objects to return for the request."]}
    let make ?modelId =
      fun ?modelType ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { modelId; modelType; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("modelId", (Option.map x.modelId ~f:ModelIdentifier.to_value));
        ("modelType", (Option.map x.modelType ~f:ModelTypeEnum.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:ModelsMaxPageSize.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ModelsMaxPageSize.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let modelType =
        (Option.map ~f:ModelTypeEnum.of_xml) (Xml.child xml_arg0 "modelType") in
      let modelId =
        (Option.map ~f:ModelIdentifier.of_xml) (Xml.child xml_arg0 "modelId") in
      make ?maxResults ?nextToken ?modelType ?modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" ModelsMaxPageSize.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let modelType = field_map json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map json__ "modelId" ModelIdentifier.of_json in
      make ?maxResults ?nextToken ?modelType ?modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets one or more models. Gets all models for the Amazon Web Services account if no model type and no model id provided. Gets all models for the Amazon Web Services account and model type, if the model type is specified but model id is not provided. Gets a specific model if (model type, model id) tuple is specified. This is a paginated API. If you provide a null maxResults, this action retrieves a maximum of 10 records per page. If you provide a maxResults, the value must be between 1 and 10. To get the next page results, provide the pagination token from the response as part of your request. A null pagination token fetches the records from the beginning."]
module GetModelVersionResult =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t option [@ocaml.doc "The model ID."];
      modelType: ModelTypeEnum.t option [@ocaml.doc "The model type."];
      modelVersionNumber: FloatVersionString.t option
        [@ocaml.doc "The model version number."];
      trainingDataSource: TrainingDataSourceEnum.t option
        [@ocaml.doc "The training data source."];
      trainingDataSchema: TrainingDataSchema.t option
        [@ocaml.doc "The training data schema."];
      externalEventsDetail: ExternalEventsDetail.t option
        [@ocaml.doc
          "The details of the external events data used for training the model version. This will be populated if the trainingDataSource is EXTERNAL_EVENTS"];
      ingestedEventsDetail: IngestedEventsDetail.t option
        [@ocaml.doc
          "The details of the ingested events data used for training the model version. This will be populated if the trainingDataSource is INGESTED_EVENTS."];
      status: String_.t option
        [@ocaml.doc
          "The model version status. Possible values are: TRAINING_IN_PROGRESS TRAINING_COMPLETE ACTIVATE_REQUESTED ACTIVATE_IN_PROGRESS ACTIVE INACTIVATE_REQUESTED INACTIVATE_IN_PROGRESS INACTIVE ERROR"];
      arn: FraudDetectorArn.t option [@ocaml.doc "The model version ARN."]}
    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 ?modelId =
      fun ?modelType ->
        fun ?modelVersionNumber ->
          fun ?trainingDataSource ->
            fun ?trainingDataSchema ->
              fun ?externalEventsDetail ->
                fun ?ingestedEventsDetail ->
                  fun ?status ->
                    fun ?arn ->
                      fun () ->
                        {
                          modelId;
                          modelType;
                          modelVersionNumber;
                          trainingDataSource;
                          trainingDataSchema;
                          externalEventsDetail;
                          ingestedEventsDetail;
                          status;
                          arn
                        }
    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
        [("modelId", (Option.map x.modelId ~f:ModelIdentifier.to_value));
        ("modelType", (Option.map x.modelType ~f:ModelTypeEnum.to_value));
        ("modelVersionNumber",
          (Option.map x.modelVersionNumber ~f:FloatVersionString.to_value));
        ("trainingDataSource",
          (Option.map x.trainingDataSource ~f:TrainingDataSourceEnum.to_value));
        ("trainingDataSchema",
          (Option.map x.trainingDataSchema ~f:TrainingDataSchema.to_value));
        ("externalEventsDetail",
          (Option.map x.externalEventsDetail ~f:ExternalEventsDetail.to_value));
        ("ingestedEventsDetail",
          (Option.map x.ingestedEventsDetail ~f:IngestedEventsDetail.to_value));
        ("status", (Option.map x.status ~f:String_.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let ingestedEventsDetail =
        (Option.map ~f:IngestedEventsDetail.of_xml)
          (Xml.child xml_arg0 "ingestedEventsDetail") in
      let externalEventsDetail =
        (Option.map ~f:ExternalEventsDetail.of_xml)
          (Xml.child xml_arg0 "externalEventsDetail") in
      let trainingDataSchema =
        (Option.map ~f:TrainingDataSchema.of_xml)
          (Xml.child xml_arg0 "trainingDataSchema") in
      let trainingDataSource =
        (Option.map ~f:TrainingDataSourceEnum.of_xml)
          (Xml.child xml_arg0 "trainingDataSource") in
      let modelVersionNumber =
        (Option.map ~f:FloatVersionString.of_xml)
          (Xml.child xml_arg0 "modelVersionNumber") in
      let modelType =
        (Option.map ~f:ModelTypeEnum.of_xml) (Xml.child xml_arg0 "modelType") in
      let modelId =
        (Option.map ~f:ModelIdentifier.of_xml) (Xml.child xml_arg0 "modelId") in
      make ?arn ?status ?ingestedEventsDetail ?externalEventsDetail
        ?trainingDataSchema ?trainingDataSource ?modelVersionNumber
        ?modelType ?modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let status = field_map json__ "status" String_.of_json in
      let ingestedEventsDetail =
        field_map json__ "ingestedEventsDetail" IngestedEventsDetail.of_json in
      let externalEventsDetail =
        field_map json__ "externalEventsDetail" ExternalEventsDetail.of_json in
      let trainingDataSchema =
        field_map json__ "trainingDataSchema" TrainingDataSchema.of_json in
      let trainingDataSource =
        field_map json__ "trainingDataSource" TrainingDataSourceEnum.of_json in
      let modelVersionNumber =
        field_map json__ "modelVersionNumber" FloatVersionString.of_json in
      let modelType = field_map json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map json__ "modelId" ModelIdentifier.of_json in
      make ?arn ?status ?ingestedEventsDetail ?externalEventsDetail
        ?trainingDataSchema ?trainingDataSource ?modelVersionNumber
        ?modelType ?modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the details of the specified model version."]
module GetModelVersionRequest =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t [@ocaml.doc "The model ID."];
      modelType: ModelTypeEnum.t [@ocaml.doc "The model type."];
      modelVersionNumber: FloatVersionString.t
        [@ocaml.doc "The model version number."]}
    let context_ = "GetModelVersionRequest"
    let make ~modelId =
      fun ~modelType ->
        fun ~modelVersionNumber ->
          fun () -> { modelId; modelType; modelVersionNumber }
    let to_value x =
      structure_to_value
        [("modelId", (Some (ModelIdentifier.to_value x.modelId)));
        ("modelType", (Some (ModelTypeEnum.to_value x.modelType)));
        ("modelVersionNumber",
          (Some (FloatVersionString.to_value x.modelVersionNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modelVersionNumber =
        FloatVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelVersionNumber") in
      let modelType =
        ModelTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelType") in
      let modelId =
        ModelIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelId") in
      make ~modelVersionNumber ~modelType ~modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modelVersionNumber =
        field_map_exn json__ "modelVersionNumber" FloatVersionString.of_json in
      let modelType = field_map_exn json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map_exn json__ "modelId" ModelIdentifier.of_json in
      make ~modelVersionNumber ~modelType ~modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the details of the specified model version."]
module GetListsMetadataResult =
  struct
    type nonrec t =
      {
      lists: AllowDenyLists.t option
        [@ocaml.doc
          "The metadata of the specified list or all lists under the account."];
      nextToken: NextToken.t option [@ocaml.doc "The next page token."]}
    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 ?lists = fun ?nextToken -> fun () -> { lists; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("lists", (Option.map x.lists ~f:AllowDenyLists.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 lists =
        (Option.map ~f:AllowDenyLists.of_xml) (Xml.child xml_arg0 "lists") in
      make ?nextToken ?lists ()
    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 lists = field_map json__ "lists" AllowDenyLists.of_json in
      make ?nextToken ?lists ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the metadata of either all the lists under the account or the specified list."]
module GetListsMetadataRequest =
  struct
    type nonrec t =
      {
      name: NoDashIdentifier.t option [@ocaml.doc "The name of the list."];
      nextToken: NextToken.t option
        [@ocaml.doc "The next token for the subsequent request."];
      maxResults: ListsMetadataMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects to return for the request."]}
    let make ?name =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { name; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:NoDashIdentifier.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:ListsMetadataMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListsMetadataMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let name =
        (Option.map ~f:NoDashIdentifier.of_xml) (Xml.child xml_arg0 "name") in
      make ?maxResults ?nextToken ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" ListsMetadataMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let name = field_map json__ "name" NoDashIdentifier.of_json in
      make ?maxResults ?nextToken ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the metadata of either all the lists under the account or the specified list."]
module GetListElementsResult =
  struct
    type nonrec t =
      {
      elements: ElementsList.t option [@ocaml.doc "The list elements."];
      nextToken: NextToken.t option [@ocaml.doc "The next page token."]}
    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 ?elements = fun ?nextToken -> fun () -> { elements; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("elements", (Option.map x.elements ~f:ElementsList.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 elements =
        (Option.map ~f:ElementsList.of_xml) (Xml.child xml_arg0 "elements") in
      make ?nextToken ?elements ()
    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 elements = field_map json__ "elements" ElementsList.of_json in
      make ?nextToken ?elements ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets all the elements in the specified list."]
module GetListElementsRequest =
  struct
    type nonrec t =
      {
      name: NoDashIdentifier.t [@ocaml.doc "The name of the list."];
      nextToken: NextToken.t option
        [@ocaml.doc "The next token for the subsequent request."];
      maxResults: ListsElementsMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects to return for the request."]}
    let context_ = "GetListElementsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~name -> fun () -> { nextToken; maxResults; name }
    let to_value x =
      structure_to_value
        [("name", (Some (NoDashIdentifier.to_value x.name)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:ListsElementsMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListsElementsMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let name =
        NoDashIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?maxResults ?nextToken ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" ListsElementsMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let name = field_map_exn json__ "name" NoDashIdentifier.of_json in
      make ?maxResults ?nextToken ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets all the elements in the specified list."]
module GetLabelsResult =
  struct
    type nonrec t =
      {
      labels: LabelList.t option [@ocaml.doc "An array of labels."];
      nextToken: String_.t option [@ocaml.doc "The next page token."]}
    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 ?labels = fun ?nextToken -> fun () -> { labels; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("labels", (Option.map x.labels ~f:LabelList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let labels =
        (Option.map ~f:LabelList.of_xml) (Xml.child xml_arg0 "labels") in
      make ?nextToken ?labels ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let labels = field_map json__ "labels" LabelList.of_json in
      make ?nextToken ?labels ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all labels or a specific label if name is provided. This is a paginated API. If you provide a null maxResults, this action retrieves a maximum of 50 records per page. If you provide a maxResults, the value must be between 10 and 50. To get the next page results, provide the pagination token from the GetGetLabelsResponse as part of your request. A null pagination token fetches the records from the beginning."]
module GetLabelsRequest =
  struct
    type nonrec t =
      {
      name: Identifier.t option
        [@ocaml.doc "The name of the label or labels to get."];
      nextToken: String_.t option
        [@ocaml.doc "The next token for the subsequent request."];
      maxResults: LabelsMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects to return for the request."]}
    let make ?name =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { name; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:Identifier.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:LabelsMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:LabelsMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let name =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "name") in
      make ?maxResults ?nextToken ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" LabelsMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let name = field_map json__ "name" Identifier.of_json in
      make ?maxResults ?nextToken ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all labels or a specific label if name is provided. This is a paginated API. If you provide a null maxResults, this action retrieves a maximum of 50 records per page. If you provide a maxResults, the value must be between 10 and 50. To get the next page results, provide the pagination token from the GetGetLabelsResponse as part of your request. A null pagination token fetches the records from the beginning."]
module GetKMSEncryptionKeyResult =
  struct
    type nonrec t =
      {
      kmsKey: KMSKey.t option [@ocaml.doc "The KMS encryption key."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?kmsKey = fun () -> { kmsKey }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("kmsKey", (Option.map x.kmsKey ~f:KMSKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "kmsKey") in
      make ?kmsKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKey = field_map json__ "kmsKey" KMSKey.of_json in
      make ?kmsKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the encryption key if a KMS key has been specified to be used to encrypt content in Amazon Fraud Detector."]
module GetExternalModelsResult =
  struct
    type nonrec t =
      {
      externalModels: ExternalModelList.t option
        [@ocaml.doc "Gets the Amazon SageMaker models."];
      nextToken: String_.t option
        [@ocaml.doc "The next page token to be used in subsequent requests."]}
    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 ?externalModels =
      fun ?nextToken -> fun () -> { externalModels; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("externalModels",
           (Option.map x.externalModels ~f:ExternalModelList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let externalModels =
        (Option.map ~f:ExternalModelList.of_xml)
          (Xml.child xml_arg0 "externalModels") in
      make ?nextToken ?externalModels ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let externalModels =
        field_map json__ "externalModels" ExternalModelList.of_json in
      make ?nextToken ?externalModels ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the details for one or more Amazon SageMaker models that have been imported into the service. This is a paginated API. If you provide a null maxResults, this actions retrieves a maximum of 10 records per page. If you provide a maxResults, the value must be between 5 and 10. To get the next page results, provide the pagination token from the GetExternalModelsResult as part of your request. A null pagination token fetches the records from the beginning."]
module GetExternalModelsRequest =
  struct
    type nonrec t =
      {
      modelEndpoint: String_.t option
        [@ocaml.doc "The Amazon SageMaker model endpoint."];
      nextToken: String_.t option
        [@ocaml.doc "The next page token for the request."];
      maxResults: ExternalModelsMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects to return for the request."]}
    let make ?modelEndpoint =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { modelEndpoint; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("modelEndpoint", (Option.map x.modelEndpoint ~f:String_.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:ExternalModelsMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ExternalModelsMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let modelEndpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "modelEndpoint") in
      make ?maxResults ?nextToken ?modelEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" ExternalModelsMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let modelEndpoint = field_map json__ "modelEndpoint" String_.of_json in
      make ?maxResults ?nextToken ?modelEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the details for one or more Amazon SageMaker models that have been imported into the service. This is a paginated API. If you provide a null maxResults, this actions retrieves a maximum of 10 records per page. If you provide a maxResults, the value must be between 5 and 10. To get the next page results, provide the pagination token from the GetExternalModelsResult as part of your request. A null pagination token fetches the records from the beginning."]
module GetEventTypesResult =
  struct
    type nonrec t =
      {
      eventTypes: EventTypeList.t option
        [@ocaml.doc "An array of event types."];
      nextToken: String_.t option [@ocaml.doc "The next page token."]}
    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 ?eventTypes =
      fun ?nextToken -> fun () -> { eventTypes; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("eventTypes", (Option.map x.eventTypes ~f:EventTypeList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let eventTypes =
        (Option.map ~f:EventTypeList.of_xml)
          (Xml.child xml_arg0 "eventTypes") in
      make ?nextToken ?eventTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let eventTypes = field_map json__ "eventTypes" EventTypeList.of_json in
      make ?nextToken ?eventTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all event types or a specific event type if name is provided. This is a paginated API. If you provide a null maxResults, this action retrieves a maximum of 10 records per page. If you provide a maxResults, the value must be between 5 and 10. To get the next page results, provide the pagination token from the GetEventTypesResponse as part of your request. A null pagination token fetches the records from the beginning."]
module GetEventTypesRequest =
  struct
    type nonrec t =
      {
      name: Identifier.t option [@ocaml.doc "The name."];
      nextToken: String_.t option
        [@ocaml.doc "The next token for the subsequent request."];
      maxResults: EventTypesMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects to return for the request."]}
    let make ?name =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { name; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:Identifier.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:EventTypesMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:EventTypesMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let name =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "name") in
      make ?maxResults ?nextToken ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" EventTypesMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let name = field_map json__ "name" Identifier.of_json in
      make ?maxResults ?nextToken ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all event types or a specific event type if name is provided. This is a paginated API. If you provide a null maxResults, this action retrieves a maximum of 10 records per page. If you provide a maxResults, the value must be between 5 and 10. To get the next page results, provide the pagination token from the GetEventTypesResponse as part of your request. A null pagination token fetches the records from the beginning."]
module GetEventResult =
  struct
    type nonrec t =
      {
      event: Event.t option [@ocaml.doc "The details of the event."]}
    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 ?event = fun () -> { event }
    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 [("event", (Option.map x.event ~f:Event.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let event = (Option.map ~f:Event.of_xml) (Xml.child xml_arg0 "event") in
      make ?event ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let event = field_map json__ "event" Event.of_json in make ?event ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details of events stored with Amazon Fraud Detector. This action does not retrieve prediction results."]
module GetEventRequest =
  struct
    type nonrec t =
      {
      eventId: String_.t [@ocaml.doc "The ID of the event to retrieve."];
      eventTypeName: String_.t
        [@ocaml.doc "The event type of the event to retrieve."]}
    let context_ = "GetEventRequest"
    let make ~eventId =
      fun ~eventTypeName -> fun () -> { eventId; eventTypeName }
    let to_value x =
      structure_to_value
        [("eventId", (Some (String_.to_value x.eventId)));
        ("eventTypeName", (Some (String_.to_value x.eventTypeName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventTypeName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventTypeName") in
      let eventId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "eventId") in
      make ~eventTypeName ~eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventTypeName =
        field_map_exn json__ "eventTypeName" String_.of_json in
      let eventId = field_map_exn json__ "eventId" String_.of_json in
      make ~eventTypeName ~eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details of events stored with Amazon Fraud Detector. This action does not retrieve prediction results."]
module GetEventPredictionResult =
  struct
    type nonrec t =
      {
      modelScores: ListOfModelScores.t option
        [@ocaml.doc
          "The model scores. Amazon Fraud Detector generates model scores between 0 and 1000, where 0 is low fraud risk and 1000 is high fraud risk. Model scores are directly related to the false positive rate (FPR). For example, a score of 600 corresponds to an estimated 10% false positive rate whereas a score of 900 corresponds to an estimated 2% false positive rate."];
      ruleResults: ListOfRuleResults.t option
        [@ocaml.doc "The results from the rules."];
      externalModelOutputs: ListOfExternalModelOutputs.t option
        [@ocaml.doc "The model scores for Amazon SageMaker models."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ResourceUnavailableException of ResourceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?modelScores =
      fun ?ruleResults ->
        fun ?externalModelOutputs ->
          fun () -> { modelScores; ruleResults; externalModelOutputs }
    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)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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)
      | "ResourceUnavailableException" ->
          `ResourceUnavailableException
            (ResourceUnavailableException.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))]
      | `ResourceUnavailableException e ->
          `Assoc
            [("error", (`String "ResourceUnavailableException"));
            ("details", (ResourceUnavailableException.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
        [("modelScores",
           (Option.map x.modelScores ~f:ListOfModelScores.to_value));
        ("ruleResults",
          (Option.map x.ruleResults ~f:ListOfRuleResults.to_value));
        ("externalModelOutputs",
          (Option.map x.externalModelOutputs
             ~f:ListOfExternalModelOutputs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let externalModelOutputs =
        (Option.map ~f:ListOfExternalModelOutputs.of_xml)
          (Xml.child xml_arg0 "externalModelOutputs") in
      let ruleResults =
        (Option.map ~f:ListOfRuleResults.of_xml)
          (Xml.child xml_arg0 "ruleResults") in
      let modelScores =
        (Option.map ~f:ListOfModelScores.of_xml)
          (Xml.child xml_arg0 "modelScores") in
      make ?externalModelOutputs ?ruleResults ?modelScores ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let externalModelOutputs =
        field_map json__ "externalModelOutputs"
          ListOfExternalModelOutputs.of_json in
      let ruleResults =
        field_map json__ "ruleResults" ListOfRuleResults.of_json in
      let modelScores =
        field_map json__ "modelScores" ListOfModelScores.of_json in
      make ?externalModelOutputs ?ruleResults ?modelScores ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Evaluates an event against a detector version. If a version ID is not provided, the detector\226\128\153s (ACTIVE) version is used."]
module GetEventPredictionRequest =
  struct
    type nonrec t =
      {
      detectorId: String_.t [@ocaml.doc "The detector ID."];
      detectorVersionId: WholeNumberVersionString.t option
        [@ocaml.doc "The detector version ID."];
      eventId: String_.t
        [@ocaml.doc "The unique ID used to identify the event."];
      eventTypeName: String_.t
        [@ocaml.doc
          "The event type associated with the detector specified for the prediction."];
      entities: ListOfEntities.t
        [@ocaml.doc
          "The entity type (associated with the detector's event type) and specific entity ID representing who performed the event. If an entity id is not available, use \"UNKNOWN.\""];
      eventTimestamp: UtcTimestampISO8601.t
        [@ocaml.doc
          "Timestamp that defines when the event under evaluation occurred. The timestamp must be specified using ISO 8601 standard in UTC."];
      eventVariables: EventVariableMap.t
        [@ocaml.doc
          "Names of the event type's variables you defined in Amazon Fraud Detector to represent data elements and their corresponding values for the event you are sending for evaluation. You must provide at least one eventVariable To ensure most accurate fraud prediction and to simplify your data preparation, Amazon Fraud Detector will replace all missing variables or values as follows: For Amazon Fraud Detector trained models: If a null value is provided explicitly for a variable or if a variable is missing, model will replace the null value or the missing variable (no variable name in the eventVariables map) with calculated default mean/medians for numeric variables and with special values for categorical variables. For imported SageMaker models: If a null value is provided explicitly for a variable, the model and rules will use \226\128\156null\226\128\157 as the value. If a variable is not provided (no variable name in the eventVariables map), model and rules will use the default value that is provided for the variable."];
      externalModelEndpointDataBlobs:
        ExternalModelEndpointDataBlobMap.t option
        [@ocaml.doc "The Amazon SageMaker model endpoint input data blobs."]}
    let context_ = "GetEventPredictionRequest"
    let make ?detectorVersionId =
      fun ?externalModelEndpointDataBlobs ->
        fun ~detectorId ->
          fun ~eventId ->
            fun ~eventTypeName ->
              fun ~entities ->
                fun ~eventTimestamp ->
                  fun ~eventVariables ->
                    fun () ->
                      {
                        detectorVersionId;
                        externalModelEndpointDataBlobs;
                        detectorId;
                        eventId;
                        eventTypeName;
                        entities;
                        eventTimestamp;
                        eventVariables
                      }
    let to_value x =
      structure_to_value
        [("detectorId", (Some (String_.to_value x.detectorId)));
        ("detectorVersionId",
          (Option.map x.detectorVersionId
             ~f:WholeNumberVersionString.to_value));
        ("eventId", (Some (String_.to_value x.eventId)));
        ("eventTypeName", (Some (String_.to_value x.eventTypeName)));
        ("entities", (Some (ListOfEntities.to_value x.entities)));
        ("eventTimestamp",
          (Some (UtcTimestampISO8601.to_value x.eventTimestamp)));
        ("eventVariables",
          (Some (EventVariableMap.to_value x.eventVariables)));
        ("externalModelEndpointDataBlobs",
          (Option.map x.externalModelEndpointDataBlobs
             ~f:ExternalModelEndpointDataBlobMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let externalModelEndpointDataBlobs =
        (Option.map ~f:ExternalModelEndpointDataBlobMap.of_xml)
          (Xml.child xml_arg0 "externalModelEndpointDataBlobs") in
      let eventVariables =
        EventVariableMap.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventVariables") in
      let eventTimestamp =
        UtcTimestampISO8601.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventTimestamp") in
      let entities =
        ListOfEntities.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "entities") in
      let eventTypeName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventTypeName") in
      let eventId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "eventId") in
      let detectorVersionId =
        (Option.map ~f:WholeNumberVersionString.of_xml)
          (Xml.child xml_arg0 "detectorVersionId") in
      let detectorId =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorId") in
      make ?externalModelEndpointDataBlobs ~eventVariables ~eventTimestamp
        ~entities ~eventTypeName ~eventId ?detectorVersionId ~detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let externalModelEndpointDataBlobs =
        field_map json__ "externalModelEndpointDataBlobs"
          ExternalModelEndpointDataBlobMap.of_json in
      let eventVariables =
        field_map_exn json__ "eventVariables" EventVariableMap.of_json in
      let eventTimestamp =
        field_map_exn json__ "eventTimestamp" UtcTimestampISO8601.of_json in
      let entities = field_map_exn json__ "entities" ListOfEntities.of_json in
      let eventTypeName =
        field_map_exn json__ "eventTypeName" String_.of_json in
      let eventId = field_map_exn json__ "eventId" String_.of_json in
      let detectorVersionId =
        field_map json__ "detectorVersionId" WholeNumberVersionString.of_json in
      let detectorId = field_map_exn json__ "detectorId" String_.of_json in
      make ?externalModelEndpointDataBlobs ~eventVariables ~eventTimestamp
        ~entities ~eventTypeName ~eventId ?detectorVersionId ~detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Evaluates an event against a detector version. If a version ID is not provided, the detector\226\128\153s (ACTIVE) version is used."]
module GetEventPredictionMetadataResult =
  struct
    type nonrec t =
      {
      eventId: Identifier.t option [@ocaml.doc "The event ID."];
      eventTypeName: Identifier.t option
        [@ocaml.doc
          "The event type associated with the detector specified for this prediction."];
      entityId: String_.t option [@ocaml.doc "The entity ID."];
      entityType: String_.t option [@ocaml.doc "The entity type."];
      eventTimestamp: Time.t option
        [@ocaml.doc
          "The timestamp for when the prediction was generated for the associated event ID."];
      detectorId: Identifier.t option [@ocaml.doc "The detector ID."];
      detectorVersionId: WholeNumberVersionString.t option
        [@ocaml.doc "The detector version ID."];
      detectorVersionStatus: String_.t option
        [@ocaml.doc "The status of the detector version."];
      eventVariables: ListOfEventVariableSummaries.t option
        [@ocaml.doc
          "A list of event variables that influenced the prediction scores."];
      rules: EvaluatedRuleList.t option
        [@ocaml.doc
          "List of rules associated with the detector version that were used for evaluating variable values."];
      ruleExecutionMode: RuleExecutionMode.t option
        [@ocaml.doc
          "The execution mode of the rule used for evaluating variable values."];
      outcomes: ListOfStrings.t option
        [@ocaml.doc
          "The outcomes of the matched rule, based on the rule execution mode."];
      evaluatedModelVersions: ListOfEvaluatedModelVersions.t option
        [@ocaml.doc
          "Model versions that were evaluated for generating predictions."];
      evaluatedExternalModels: ListOfEvaluatedExternalModels.t option
        [@ocaml.doc
          "External (Amazon SageMaker) models that were evaluated for generating predictions."];
      predictionTimestamp: Time.t option
        [@ocaml.doc
          "The timestamp that defines when the prediction was generated."]}
    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 ?eventId =
      fun ?eventTypeName ->
        fun ?entityId ->
          fun ?entityType ->
            fun ?eventTimestamp ->
              fun ?detectorId ->
                fun ?detectorVersionId ->
                  fun ?detectorVersionStatus ->
                    fun ?eventVariables ->
                      fun ?rules ->
                        fun ?ruleExecutionMode ->
                          fun ?outcomes ->
                            fun ?evaluatedModelVersions ->
                              fun ?evaluatedExternalModels ->
                                fun ?predictionTimestamp ->
                                  fun () ->
                                    {
                                      eventId;
                                      eventTypeName;
                                      entityId;
                                      entityType;
                                      eventTimestamp;
                                      detectorId;
                                      detectorVersionId;
                                      detectorVersionStatus;
                                      eventVariables;
                                      rules;
                                      ruleExecutionMode;
                                      outcomes;
                                      evaluatedModelVersions;
                                      evaluatedExternalModels;
                                      predictionTimestamp
                                    }
    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
        [("eventId", (Option.map x.eventId ~f:Identifier.to_value));
        ("eventTypeName",
          (Option.map x.eventTypeName ~f:Identifier.to_value));
        ("entityId", (Option.map x.entityId ~f:String_.to_value));
        ("entityType", (Option.map x.entityType ~f:String_.to_value));
        ("eventTimestamp", (Option.map x.eventTimestamp ~f:Time.to_value));
        ("detectorId", (Option.map x.detectorId ~f:Identifier.to_value));
        ("detectorVersionId",
          (Option.map x.detectorVersionId
             ~f:WholeNumberVersionString.to_value));
        ("detectorVersionStatus",
          (Option.map x.detectorVersionStatus ~f:String_.to_value));
        ("eventVariables",
          (Option.map x.eventVariables
             ~f:ListOfEventVariableSummaries.to_value));
        ("rules", (Option.map x.rules ~f:EvaluatedRuleList.to_value));
        ("ruleExecutionMode",
          (Option.map x.ruleExecutionMode ~f:RuleExecutionMode.to_value));
        ("outcomes", (Option.map x.outcomes ~f:ListOfStrings.to_value));
        ("evaluatedModelVersions",
          (Option.map x.evaluatedModelVersions
             ~f:ListOfEvaluatedModelVersions.to_value));
        ("evaluatedExternalModels",
          (Option.map x.evaluatedExternalModels
             ~f:ListOfEvaluatedExternalModels.to_value));
        ("predictionTimestamp",
          (Option.map x.predictionTimestamp ~f:Time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let predictionTimestamp =
        (Option.map ~f:Time.of_xml)
          (Xml.child xml_arg0 "predictionTimestamp") in
      let evaluatedExternalModels =
        (Option.map ~f:ListOfEvaluatedExternalModels.of_xml)
          (Xml.child xml_arg0 "evaluatedExternalModels") in
      let evaluatedModelVersions =
        (Option.map ~f:ListOfEvaluatedModelVersions.of_xml)
          (Xml.child xml_arg0 "evaluatedModelVersions") in
      let outcomes =
        (Option.map ~f:ListOfStrings.of_xml) (Xml.child xml_arg0 "outcomes") in
      let ruleExecutionMode =
        (Option.map ~f:RuleExecutionMode.of_xml)
          (Xml.child xml_arg0 "ruleExecutionMode") in
      let rules =
        (Option.map ~f:EvaluatedRuleList.of_xml) (Xml.child xml_arg0 "rules") in
      let eventVariables =
        (Option.map ~f:ListOfEventVariableSummaries.of_xml)
          (Xml.child xml_arg0 "eventVariables") in
      let detectorVersionStatus =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "detectorVersionStatus") in
      let detectorVersionId =
        (Option.map ~f:WholeNumberVersionString.of_xml)
          (Xml.child xml_arg0 "detectorVersionId") in
      let detectorId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "detectorId") in
      let eventTimestamp =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "eventTimestamp") in
      let entityType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "entityType") in
      let entityId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "entityId") in
      let eventTypeName =
        (Option.map ~f:Identifier.of_xml)
          (Xml.child xml_arg0 "eventTypeName") in
      let eventId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "eventId") in
      make ?predictionTimestamp ?evaluatedExternalModels
        ?evaluatedModelVersions ?outcomes ?ruleExecutionMode ?rules
        ?eventVariables ?detectorVersionStatus ?detectorVersionId ?detectorId
        ?eventTimestamp ?entityType ?entityId ?eventTypeName ?eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let predictionTimestamp =
        field_map json__ "predictionTimestamp" Time.of_json in
      let evaluatedExternalModels =
        field_map json__ "evaluatedExternalModels"
          ListOfEvaluatedExternalModels.of_json in
      let evaluatedModelVersions =
        field_map json__ "evaluatedModelVersions"
          ListOfEvaluatedModelVersions.of_json in
      let outcomes = field_map json__ "outcomes" ListOfStrings.of_json in
      let ruleExecutionMode =
        field_map json__ "ruleExecutionMode" RuleExecutionMode.of_json in
      let rules = field_map json__ "rules" EvaluatedRuleList.of_json in
      let eventVariables =
        field_map json__ "eventVariables"
          ListOfEventVariableSummaries.of_json in
      let detectorVersionStatus =
        field_map json__ "detectorVersionStatus" String_.of_json in
      let detectorVersionId =
        field_map json__ "detectorVersionId" WholeNumberVersionString.of_json in
      let detectorId = field_map json__ "detectorId" Identifier.of_json in
      let eventTimestamp = field_map json__ "eventTimestamp" Time.of_json in
      let entityType = field_map json__ "entityType" String_.of_json in
      let entityId = field_map json__ "entityId" String_.of_json in
      let eventTypeName = field_map json__ "eventTypeName" Identifier.of_json in
      let eventId = field_map json__ "eventId" Identifier.of_json in
      make ?predictionTimestamp ?evaluatedExternalModels
        ?evaluatedModelVersions ?outcomes ?ruleExecutionMode ?rules
        ?eventVariables ?detectorVersionStatus ?detectorVersionId ?detectorId
        ?eventTimestamp ?entityType ?entityId ?eventTypeName ?eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details of the past fraud predictions for the specified event ID, event type, detector ID, and detector version ID that was generated in the specified time period."]
module GetEventPredictionMetadataRequest =
  struct
    type nonrec t =
      {
      eventId: Identifier.t [@ocaml.doc "The event ID."];
      eventTypeName: Identifier.t
        [@ocaml.doc
          "The event type associated with the detector specified for the prediction."];
      detectorId: Identifier.t [@ocaml.doc "The detector ID."];
      detectorVersionId: WholeNumberVersionString.t
        [@ocaml.doc "The detector version ID."];
      predictionTimestamp: Time.t
        [@ocaml.doc
          "The timestamp that defines when the prediction was generated. The timestamp must be specified using ISO 8601 standard in UTC. We recommend calling ListEventPredictions first, and using the predictionTimestamp value in the response to provide an accurate prediction timestamp value."]}
    let context_ = "GetEventPredictionMetadataRequest"
    let make ~eventId =
      fun ~eventTypeName ->
        fun ~detectorId ->
          fun ~detectorVersionId ->
            fun ~predictionTimestamp ->
              fun () ->
                {
                  eventId;
                  eventTypeName;
                  detectorId;
                  detectorVersionId;
                  predictionTimestamp
                }
    let to_value x =
      structure_to_value
        [("eventId", (Some (Identifier.to_value x.eventId)));
        ("eventTypeName", (Some (Identifier.to_value x.eventTypeName)));
        ("detectorId", (Some (Identifier.to_value x.detectorId)));
        ("detectorVersionId",
          (Some (WholeNumberVersionString.to_value x.detectorVersionId)));
        ("predictionTimestamp", (Some (Time.to_value x.predictionTimestamp)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let predictionTimestamp =
        Time.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "predictionTimestamp") in
      let detectorVersionId =
        WholeNumberVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorVersionId") in
      let detectorId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorId") in
      let eventTypeName =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventTypeName") in
      let eventId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventId") in
      make ~predictionTimestamp ~detectorVersionId ~detectorId ~eventTypeName
        ~eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let predictionTimestamp =
        field_map_exn json__ "predictionTimestamp" Time.of_json in
      let detectorVersionId =
        field_map_exn json__ "detectorVersionId"
          WholeNumberVersionString.of_json in
      let detectorId = field_map_exn json__ "detectorId" Identifier.of_json in
      let eventTypeName =
        field_map_exn json__ "eventTypeName" Identifier.of_json in
      let eventId = field_map_exn json__ "eventId" Identifier.of_json in
      make ~predictionTimestamp ~detectorVersionId ~detectorId ~eventTypeName
        ~eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets details of the past fraud predictions for the specified event ID, event type, detector ID, and detector version ID that was generated in the specified time period."]
module GetEntityTypesResult =
  struct
    type nonrec t =
      {
      entityTypes: EntityTypeList.t option
        [@ocaml.doc "An array of entity types."];
      nextToken: String_.t option [@ocaml.doc "The next page token."]}
    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 ?entityTypes =
      fun ?nextToken -> fun () -> { entityTypes; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("entityTypes",
           (Option.map x.entityTypes ~f:EntityTypeList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let entityTypes =
        (Option.map ~f:EntityTypeList.of_xml)
          (Xml.child xml_arg0 "entityTypes") in
      make ?nextToken ?entityTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let entityTypes = field_map json__ "entityTypes" EntityTypeList.of_json in
      make ?nextToken ?entityTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all entity types or a specific entity type if a name is specified. This is a paginated API. If you provide a null maxResults, this action retrieves a maximum of 10 records per page. If you provide a maxResults, the value must be between 5 and 10. To get the next page results, provide the pagination token from the GetEntityTypesResponse as part of your request. A null pagination token fetches the records from the beginning."]
module GetEntityTypesRequest =
  struct
    type nonrec t =
      {
      name: Identifier.t option [@ocaml.doc "The name."];
      nextToken: String_.t option
        [@ocaml.doc "The next token for the subsequent request."];
      maxResults: EntityTypesMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects to return for the request."]}
    let make ?name =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { name; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:Identifier.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:EntityTypesMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:EntityTypesMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let name =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "name") in
      make ?maxResults ?nextToken ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" EntityTypesMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let name = field_map json__ "name" Identifier.of_json in
      make ?maxResults ?nextToken ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all entity types or a specific entity type if a name is specified. This is a paginated API. If you provide a null maxResults, this action retrieves a maximum of 10 records per page. If you provide a maxResults, the value must be between 5 and 10. To get the next page results, provide the pagination token from the GetEntityTypesResponse as part of your request. A null pagination token fetches the records from the beginning."]
module GetDetectorsResult =
  struct
    type nonrec t =
      {
      detectors: DetectorList.t option [@ocaml.doc "The detectors."];
      nextToken: String_.t option [@ocaml.doc "The next page token."]}
    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 ?detectors =
      fun ?nextToken -> fun () -> { detectors; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("detectors", (Option.map x.detectors ~f:DetectorList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let detectors =
        (Option.map ~f:DetectorList.of_xml) (Xml.child xml_arg0 "detectors") in
      make ?nextToken ?detectors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let detectors = field_map json__ "detectors" DetectorList.of_json in
      make ?nextToken ?detectors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all detectors or a single detector if a detectorId is specified. This is a paginated API. If you provide a null maxResults, this action retrieves a maximum of 10 records per page. If you provide a maxResults, the value must be between 5 and 10. To get the next page results, provide the pagination token from the GetDetectorsResponse as part of your request. A null pagination token fetches the records from the beginning."]
module GetDetectorsRequest =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t option [@ocaml.doc "The detector ID."];
      nextToken: String_.t option
        [@ocaml.doc "The next token for the subsequent request."];
      maxResults: DetectorsMaxResults.t option
        [@ocaml.doc
          "The maximum number of objects to return for the request."]}
    let make ?detectorId =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { detectorId; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("detectorId", (Option.map x.detectorId ~f:Identifier.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:DetectorsMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:DetectorsMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let detectorId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "detectorId") in
      make ?maxResults ?nextToken ?detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" DetectorsMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let detectorId = field_map json__ "detectorId" Identifier.of_json in
      make ?maxResults ?nextToken ?detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all detectors or a single detector if a detectorId is specified. This is a paginated API. If you provide a null maxResults, this action retrieves a maximum of 10 records per page. If you provide a maxResults, the value must be between 5 and 10. To get the next page results, provide the pagination token from the GetDetectorsResponse as part of your request. A null pagination token fetches the records from the beginning."]
module GetDetectorVersionResult =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t option [@ocaml.doc "The detector ID."];
      detectorVersionId: WholeNumberVersionString.t option
        [@ocaml.doc "The detector version ID."];
      description: Description.t option
        [@ocaml.doc "The detector version description."];
      externalModelEndpoints: ListOfStrings.t option
        [@ocaml.doc
          "The Amazon SageMaker model endpoints included in the detector version."];
      modelVersions: ListOfModelVersions.t option
        [@ocaml.doc "The model versions included in the detector version."];
      rules: RuleList.t option
        [@ocaml.doc "The rules included in the detector version."];
      status: DetectorVersionStatus.t option
        [@ocaml.doc "The status of the detector version."];
      lastUpdatedTime: Time.t option
        [@ocaml.doc
          "The timestamp when the detector version was last updated."];
      createdTime: Time.t option
        [@ocaml.doc "The timestamp when the detector version was created."];
      ruleExecutionMode: RuleExecutionMode.t option
        [@ocaml.doc
          "The execution mode of the rule in the dectector FIRST_MATCHED indicates that Amazon Fraud Detector evaluates rules sequentially, first to last, stopping at the first matched rule. Amazon Fraud dectector then provides the outcomes for that single rule. ALL_MATCHED indicates that Amazon Fraud Detector evaluates all rules and returns the outcomes for all matched rules. You can define and edit the rule mode at the detector version level, when it is in draft status."];
      arn: FraudDetectorArn.t option [@ocaml.doc "The detector version ARN."]}
    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 ?detectorId =
      fun ?detectorVersionId ->
        fun ?description ->
          fun ?externalModelEndpoints ->
            fun ?modelVersions ->
              fun ?rules ->
                fun ?status ->
                  fun ?lastUpdatedTime ->
                    fun ?createdTime ->
                      fun ?ruleExecutionMode ->
                        fun ?arn ->
                          fun () ->
                            {
                              detectorId;
                              detectorVersionId;
                              description;
                              externalModelEndpoints;
                              modelVersions;
                              rules;
                              status;
                              lastUpdatedTime;
                              createdTime;
                              ruleExecutionMode;
                              arn
                            }
    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
        [("detectorId", (Option.map x.detectorId ~f:Identifier.to_value));
        ("detectorVersionId",
          (Option.map x.detectorVersionId
             ~f:WholeNumberVersionString.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("externalModelEndpoints",
          (Option.map x.externalModelEndpoints ~f:ListOfStrings.to_value));
        ("modelVersions",
          (Option.map x.modelVersions ~f:ListOfModelVersions.to_value));
        ("rules", (Option.map x.rules ~f:RuleList.to_value));
        ("status", (Option.map x.status ~f:DetectorVersionStatus.to_value));
        ("lastUpdatedTime", (Option.map x.lastUpdatedTime ~f:Time.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Time.to_value));
        ("ruleExecutionMode",
          (Option.map x.ruleExecutionMode ~f:RuleExecutionMode.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let ruleExecutionMode =
        (Option.map ~f:RuleExecutionMode.of_xml)
          (Xml.child xml_arg0 "ruleExecutionMode") in
      let createdTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "createdTime") in
      let lastUpdatedTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "lastUpdatedTime") in
      let status =
        (Option.map ~f:DetectorVersionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let rules =
        (Option.map ~f:RuleList.of_xml) (Xml.child xml_arg0 "rules") in
      let modelVersions =
        (Option.map ~f:ListOfModelVersions.of_xml)
          (Xml.child xml_arg0 "modelVersions") in
      let externalModelEndpoints =
        (Option.map ~f:ListOfStrings.of_xml)
          (Xml.child xml_arg0 "externalModelEndpoints") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let detectorVersionId =
        (Option.map ~f:WholeNumberVersionString.of_xml)
          (Xml.child xml_arg0 "detectorVersionId") in
      let detectorId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "detectorId") in
      make ?arn ?ruleExecutionMode ?createdTime ?lastUpdatedTime ?status
        ?rules ?modelVersions ?externalModelEndpoints ?description
        ?detectorVersionId ?detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let ruleExecutionMode =
        field_map json__ "ruleExecutionMode" RuleExecutionMode.of_json in
      let createdTime = field_map json__ "createdTime" Time.of_json in
      let lastUpdatedTime = field_map json__ "lastUpdatedTime" Time.of_json in
      let status = field_map json__ "status" DetectorVersionStatus.of_json in
      let rules = field_map json__ "rules" RuleList.of_json in
      let modelVersions =
        field_map json__ "modelVersions" ListOfModelVersions.of_json in
      let externalModelEndpoints =
        field_map json__ "externalModelEndpoints" ListOfStrings.of_json in
      let description = field_map json__ "description" Description.of_json in
      let detectorVersionId =
        field_map json__ "detectorVersionId" WholeNumberVersionString.of_json in
      let detectorId = field_map json__ "detectorId" Identifier.of_json in
      make ?arn ?ruleExecutionMode ?createdTime ?lastUpdatedTime ?status
        ?rules ?modelVersions ?externalModelEndpoints ?description
        ?detectorVersionId ?detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets a particular detector version."]
module GetDetectorVersionRequest =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t [@ocaml.doc "The detector ID."];
      detectorVersionId: WholeNumberVersionString.t
        [@ocaml.doc "The detector version ID."]}
    let context_ = "GetDetectorVersionRequest"
    let make ~detectorId =
      fun ~detectorVersionId -> fun () -> { detectorId; detectorVersionId }
    let to_value x =
      structure_to_value
        [("detectorId", (Some (Identifier.to_value x.detectorId)));
        ("detectorVersionId",
          (Some (WholeNumberVersionString.to_value x.detectorVersionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let detectorVersionId =
        WholeNumberVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorVersionId") in
      let detectorId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorId") in
      make ~detectorVersionId ~detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let detectorVersionId =
        field_map_exn json__ "detectorVersionId"
          WholeNumberVersionString.of_json in
      let detectorId = field_map_exn json__ "detectorId" Identifier.of_json in
      make ~detectorVersionId ~detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets a particular detector version."]
module GetDeleteEventsByEventTypeStatusResult =
  struct
    type nonrec t =
      {
      eventTypeName: Identifier.t option [@ocaml.doc "The event type name."];
      eventsDeletionStatus: AsyncJobStatus.t option
        [@ocaml.doc "The deletion status."]}
    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 ?eventTypeName =
      fun ?eventsDeletionStatus ->
        fun () -> { eventTypeName; eventsDeletionStatus }
    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
        [("eventTypeName",
           (Option.map x.eventTypeName ~f:Identifier.to_value));
        ("eventsDeletionStatus",
          (Option.map x.eventsDeletionStatus ~f:AsyncJobStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventsDeletionStatus =
        (Option.map ~f:AsyncJobStatus.of_xml)
          (Xml.child xml_arg0 "eventsDeletionStatus") in
      let eventTypeName =
        (Option.map ~f:Identifier.of_xml)
          (Xml.child xml_arg0 "eventTypeName") in
      make ?eventsDeletionStatus ?eventTypeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventsDeletionStatus =
        field_map json__ "eventsDeletionStatus" AsyncJobStatus.of_json in
      let eventTypeName = field_map json__ "eventTypeName" Identifier.of_json in
      make ?eventsDeletionStatus ?eventTypeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the status of a DeleteEventsByEventType action."]
module GetDeleteEventsByEventTypeStatusRequest =
  struct
    type nonrec t =
      {
      eventTypeName: Identifier.t
        [@ocaml.doc
          "Name of event type for which to get the deletion status."]}
    let context_ = "GetDeleteEventsByEventTypeStatusRequest"
    let make ~eventTypeName = fun () -> { eventTypeName }
    let to_value x =
      structure_to_value
        [("eventTypeName", (Some (Identifier.to_value x.eventTypeName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventTypeName =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventTypeName") in
      make ~eventTypeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventTypeName =
        field_map_exn json__ "eventTypeName" Identifier.of_json in
      make ~eventTypeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the status of a DeleteEventsByEventType action."]
module GetBatchPredictionJobsResult =
  struct
    type nonrec t =
      {
      batchPredictions: BatchPredictionList.t option
        [@ocaml.doc
          "An array containing the details of each batch prediction job."];
      nextToken: String_.t option
        [@ocaml.doc "The next token for the subsequent request."]}
    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 ?batchPredictions =
      fun ?nextToken -> fun () -> { batchPredictions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("batchPredictions",
           (Option.map x.batchPredictions ~f:BatchPredictionList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let batchPredictions =
        (Option.map ~f:BatchPredictionList.of_xml)
          (Xml.child xml_arg0 "batchPredictions") in
      make ?nextToken ?batchPredictions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let batchPredictions =
        field_map json__ "batchPredictions" BatchPredictionList.of_json in
      make ?nextToken ?batchPredictions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all batch prediction jobs or a specific job if you specify a job ID. This is a paginated API. If you provide a null maxResults, this action retrieves a maximum of 50 records per page. If you provide a maxResults, the value must be between 1 and 50. To get the next page results, provide the pagination token from the GetBatchPredictionJobsResponse as part of your request. A null pagination token fetches the records from the beginning."]
module GetBatchPredictionJobsRequest =
  struct
    type nonrec t =
      {
      jobId: Identifier.t option
        [@ocaml.doc "The batch prediction job for which to get the details."];
      maxResults: BatchPredictionsMaxPageSize.t option
        [@ocaml.doc
          "The maximum number of objects to return for the request."];
      nextToken: String_.t option
        [@ocaml.doc "The next token from the previous request."]}
    let make ?jobId =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { jobId; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("jobId", (Option.map x.jobId ~f:Identifier.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:BatchPredictionsMaxPageSize.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:BatchPredictionsMaxPageSize.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let jobId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "jobId") in
      make ?nextToken ?maxResults ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let maxResults =
        field_map json__ "maxResults" BatchPredictionsMaxPageSize.of_json in
      let jobId = field_map json__ "jobId" Identifier.of_json in
      make ?nextToken ?maxResults ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all batch prediction jobs or a specific job if you specify a job ID. This is a paginated API. If you provide a null maxResults, this action retrieves a maximum of 50 records per page. If you provide a maxResults, the value must be between 1 and 50. To get the next page results, provide the pagination token from the GetBatchPredictionJobsResponse as part of your request. A null pagination token fetches the records from the beginning."]
module GetBatchImportJobsResult =
  struct
    type nonrec t =
      {
      batchImports: BatchImportList.t option
        [@ocaml.doc
          "An array containing the details of each batch import job."];
      nextToken: String_.t option
        [@ocaml.doc "The next token for the subsequent resquest."]}
    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 ?batchImports =
      fun ?nextToken -> fun () -> { batchImports; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("batchImports",
           (Option.map x.batchImports ~f:BatchImportList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let batchImports =
        (Option.map ~f:BatchImportList.of_xml)
          (Xml.child xml_arg0 "batchImports") in
      make ?nextToken ?batchImports ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let batchImports =
        field_map json__ "batchImports" BatchImportList.of_json in
      make ?nextToken ?batchImports ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all batch import jobs or a specific job of the specified ID. This is a paginated API. If you provide a null maxResults, this action retrieves a maximum of 50 records per page. If you provide a maxResults, the value must be between 1 and 50. To get the next page results, provide the pagination token from the GetBatchImportJobsResponse as part of your request. A null pagination token fetches the records from the beginning."]
module GetBatchImportJobsRequest =
  struct
    type nonrec t =
      {
      jobId: Identifier.t option
        [@ocaml.doc "The ID of the batch import job to get."];
      maxResults: BatchImportsMaxPageSize.t option
        [@ocaml.doc "The maximum number of objects to return for request."];
      nextToken: String_.t option
        [@ocaml.doc "The next token from the previous request."]}
    let make ?jobId =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { jobId; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("jobId", (Option.map x.jobId ~f:Identifier.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:BatchImportsMaxPageSize.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:BatchImportsMaxPageSize.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let jobId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "jobId") in
      make ?nextToken ?maxResults ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let maxResults =
        field_map json__ "maxResults" BatchImportsMaxPageSize.of_json in
      let jobId = field_map json__ "jobId" Identifier.of_json in
      make ?nextToken ?maxResults ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all batch import jobs or a specific job of the specified ID. This is a paginated API. If you provide a null maxResults, this action retrieves a maximum of 50 records per page. If you provide a maxResults, the value must be between 1 and 50. To get the next page results, provide the pagination token from the GetBatchImportJobsResponse as part of your request. A null pagination token fetches the records from the beginning."]
module DescribeModelVersionsResult =
  struct
    type nonrec t =
      {
      modelVersionDetails: ModelVersionDetailList.t option
        [@ocaml.doc "The model version details."];
      nextToken: String_.t option [@ocaml.doc "The next token."]}
    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 ?modelVersionDetails =
      fun ?nextToken -> fun () -> { modelVersionDetails; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("modelVersionDetails",
           (Option.map x.modelVersionDetails
              ~f:ModelVersionDetailList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let modelVersionDetails =
        (Option.map ~f:ModelVersionDetailList.of_xml)
          (Xml.child xml_arg0 "modelVersionDetails") in
      make ?nextToken ?modelVersionDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let modelVersionDetails =
        field_map json__ "modelVersionDetails" ModelVersionDetailList.of_json in
      make ?nextToken ?modelVersionDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all of the model versions for the specified model type or for the specified model type and model ID. You can also get details for a single, specified model version."]
module DescribeModelVersionsRequest =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t option [@ocaml.doc "The model ID."];
      modelVersionNumber: FloatVersionString.t option
        [@ocaml.doc "The model version number."];
      modelType: ModelTypeEnum.t option [@ocaml.doc "The model type."];
      nextToken: String_.t option
        [@ocaml.doc "The next token from the previous results."];
      maxResults: ModelsMaxPageSize.t option
        [@ocaml.doc "The maximum number of results to return."]}
    let make ?modelId =
      fun ?modelVersionNumber ->
        fun ?modelType ->
          fun ?nextToken ->
            fun ?maxResults ->
              fun () ->
                {
                  modelId;
                  modelVersionNumber;
                  modelType;
                  nextToken;
                  maxResults
                }
    let to_value x =
      structure_to_value
        [("modelId", (Option.map x.modelId ~f:ModelIdentifier.to_value));
        ("modelVersionNumber",
          (Option.map x.modelVersionNumber ~f:FloatVersionString.to_value));
        ("modelType", (Option.map x.modelType ~f:ModelTypeEnum.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:ModelsMaxPageSize.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ModelsMaxPageSize.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let modelType =
        (Option.map ~f:ModelTypeEnum.of_xml) (Xml.child xml_arg0 "modelType") in
      let modelVersionNumber =
        (Option.map ~f:FloatVersionString.of_xml)
          (Xml.child xml_arg0 "modelVersionNumber") in
      let modelId =
        (Option.map ~f:ModelIdentifier.of_xml) (Xml.child xml_arg0 "modelId") in
      make ?maxResults ?nextToken ?modelType ?modelVersionNumber ?modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" ModelsMaxPageSize.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let modelType = field_map json__ "modelType" ModelTypeEnum.of_json in
      let modelVersionNumber =
        field_map json__ "modelVersionNumber" FloatVersionString.of_json in
      let modelId = field_map json__ "modelId" ModelIdentifier.of_json in
      make ?maxResults ?nextToken ?modelType ?modelVersionNumber ?modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all of the model versions for the specified model type or for the specified model type and model ID. You can also get details for a single, specified model version."]
module DescribeDetectorResult =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t option [@ocaml.doc "The detector ID."];
      detectorVersionSummaries: DetectorVersionSummaryList.t option
        [@ocaml.doc "The status and description for each detector version."];
      nextToken: String_.t option
        [@ocaml.doc "The next token to be used for subsequent requests."];
      arn: FraudDetectorArn.t option [@ocaml.doc "The detector ARN."]}
    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 ?detectorId =
      fun ?detectorVersionSummaries ->
        fun ?nextToken ->
          fun ?arn ->
            fun () ->
              { detectorId; detectorVersionSummaries; nextToken; arn }
    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
        [("detectorId", (Option.map x.detectorId ~f:Identifier.to_value));
        ("detectorVersionSummaries",
          (Option.map x.detectorVersionSummaries
             ~f:DetectorVersionSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("arn", (Option.map x.arn ~f:FraudDetectorArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:FraudDetectorArn.of_xml) (Xml.child xml_arg0 "arn") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let detectorVersionSummaries =
        (Option.map ~f:DetectorVersionSummaryList.of_xml)
          (Xml.child xml_arg0 "detectorVersionSummaries") in
      let detectorId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "detectorId") in
      make ?arn ?nextToken ?detectorVersionSummaries ?detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" FraudDetectorArn.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let detectorVersionSummaries =
        field_map json__ "detectorVersionSummaries"
          DetectorVersionSummaryList.of_json in
      let detectorId = field_map json__ "detectorId" Identifier.of_json in
      make ?arn ?nextToken ?detectorVersionSummaries ?detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets all versions for a specified detector."]
module DescribeDetectorRequest =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t [@ocaml.doc "The detector ID."];
      nextToken: String_.t option
        [@ocaml.doc "The next token from the previous response."];
      maxResults: DetectorVersionMaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return for the request."]}
    let context_ = "DescribeDetectorRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~detectorId -> fun () -> { nextToken; maxResults; detectorId }
    let to_value x =
      structure_to_value
        [("detectorId", (Some (Identifier.to_value x.detectorId)));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:DetectorVersionMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:DetectorVersionMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let detectorId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorId") in
      make ?maxResults ?nextToken ~detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" DetectorVersionMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let detectorId = field_map_exn json__ "detectorId" Identifier.of_json in
      make ?maxResults ?nextToken ~detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets all versions for a specified detector."]
module DeleteVariableResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 a variable. You can't delete variables that are included in an event type in Amazon Fraud Detector. Amazon Fraud Detector automatically deletes model output variables and SageMaker model output variables when you delete the model. You can't delete these variables manually. When you delete a variable, Amazon Fraud Detector permanently deletes that variable and the data is no longer stored in Amazon Fraud Detector."]
module DeleteVariableRequest =
  struct
    type nonrec t =
      {
      name: String_.t [@ocaml.doc "The name of the variable to delete."]}
    let context_ = "DeleteVariableRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("name", (Some (String_.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" String_.of_json in make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a variable. You can't delete variables that are included in an event type in Amazon Fraud Detector. Amazon Fraud Detector automatically deletes model output variables and SageMaker model output variables when you delete the model. You can't delete these variables manually. When you delete a variable, Amazon Fraud Detector permanently deletes that variable and the data is no longer stored in Amazon Fraud Detector."]
module DeleteRuleResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 rule. You cannot delete a rule if it is used by an ACTIVE or INACTIVE detector version. When you delete a rule, Amazon Fraud Detector permanently deletes that rule and the data is no longer stored in Amazon Fraud Detector."]
module DeleteRuleRequest =
  struct
    type nonrec t = {
      rule: Rule.t }
    let context_ = "DeleteRuleRequest"
    let make ~rule = fun () -> { rule }
    let to_value x =
      structure_to_value [("rule", (Some (Rule.to_value x.rule)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rule =
        Rule.of_xml (Xml.child_exn ~context:context_ xml_arg0 "rule") in
      make ~rule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rule = field_map_exn json__ "rule" Rule.of_json in make ~rule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the rule. You cannot delete a rule if it is used by an ACTIVE or INACTIVE detector version. When you delete a rule, Amazon Fraud Detector permanently deletes that rule and the data is no longer stored in Amazon Fraud Detector."]
module DeleteOutcomeResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 an outcome. You cannot delete an outcome that is used in a rule version. When you delete an outcome, Amazon Fraud Detector permanently deletes that outcome and the data is no longer stored in Amazon Fraud Detector."]
module DeleteOutcomeRequest =
  struct
    type nonrec t =
      {
      name: Identifier.t [@ocaml.doc "The name of the outcome to delete."]}
    let context_ = "DeleteOutcomeRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("name", (Some (Identifier.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" Identifier.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an outcome. You cannot delete an outcome that is used in a rule version. When you delete an outcome, Amazon Fraud Detector permanently deletes that outcome and the data is no longer stored in Amazon Fraud Detector."]
module DeleteModelVersionResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 a model version. You can delete models and model versions in Amazon Fraud Detector, provided that they are not associated with a detector version. When you delete a model version, Amazon Fraud Detector permanently deletes that model version and the data is no longer stored in Amazon Fraud Detector."]
module DeleteModelVersionRequest =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t
        [@ocaml.doc "The model ID of the model version to delete."];
      modelType: ModelTypeEnum.t
        [@ocaml.doc "The model type of the model version to delete."];
      modelVersionNumber: FloatVersionString.t
        [@ocaml.doc
          "The model version number of the model version to delete."]}
    let context_ = "DeleteModelVersionRequest"
    let make ~modelId =
      fun ~modelType ->
        fun ~modelVersionNumber ->
          fun () -> { modelId; modelType; modelVersionNumber }
    let to_value x =
      structure_to_value
        [("modelId", (Some (ModelIdentifier.to_value x.modelId)));
        ("modelType", (Some (ModelTypeEnum.to_value x.modelType)));
        ("modelVersionNumber",
          (Some (FloatVersionString.to_value x.modelVersionNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modelVersionNumber =
        FloatVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelVersionNumber") in
      let modelType =
        ModelTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelType") in
      let modelId =
        ModelIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelId") in
      make ~modelVersionNumber ~modelType ~modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modelVersionNumber =
        field_map_exn json__ "modelVersionNumber" FloatVersionString.of_json in
      let modelType = field_map_exn json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map_exn json__ "modelId" ModelIdentifier.of_json in
      make ~modelVersionNumber ~modelType ~modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a model version. You can delete models and model versions in Amazon Fraud Detector, provided that they are not associated with a detector version. When you delete a model version, Amazon Fraud Detector permanently deletes that model version and the data is no longer stored in Amazon Fraud Detector."]
module DeleteModelResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 a model. You can delete models and model versions in Amazon Fraud Detector, provided that they are not associated with a detector version. When you delete a model, Amazon Fraud Detector permanently deletes that model and the data is no longer stored in Amazon Fraud Detector."]
module DeleteModelRequest =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t
        [@ocaml.doc "The model ID of the model to delete."];
      modelType: ModelTypeEnum.t
        [@ocaml.doc "The model type of the model to delete."]}
    let context_ = "DeleteModelRequest"
    let make ~modelId = fun ~modelType -> fun () -> { modelId; modelType }
    let to_value x =
      structure_to_value
        [("modelId", (Some (ModelIdentifier.to_value x.modelId)));
        ("modelType", (Some (ModelTypeEnum.to_value x.modelType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modelType =
        ModelTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelType") in
      let modelId =
        ModelIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelId") in
      make ~modelType ~modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modelType = field_map_exn json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map_exn json__ "modelId" ModelIdentifier.of_json in
      make ~modelType ~modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a model. You can delete models and model versions in Amazon Fraud Detector, provided that they are not associated with a detector version. When you delete a model, Amazon Fraud Detector permanently deletes that model and the data is no longer stored in Amazon Fraud Detector."]
module DeleteListResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 list, provided it is not used in a rule. When you delete a list, Amazon Fraud Detector permanently deletes that list and the elements in the list."]
module DeleteListRequest =
  struct
    type nonrec t =
      {
      name: NoDashIdentifier.t [@ocaml.doc "The name of the list to delete."]}
    let context_ = "DeleteListRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value
        [("name", (Some (NoDashIdentifier.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        NoDashIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" NoDashIdentifier.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the list, provided it is not used in a rule. When you delete a list, Amazon Fraud Detector permanently deletes that list and the elements in the list."]
module DeleteLabelResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 a label. You cannot delete labels that are included in an event type in Amazon Fraud Detector. You cannot delete a label assigned to an event ID. You must first delete the relevant event ID. When you delete a label, Amazon Fraud Detector permanently deletes that label and the data is no longer stored in Amazon Fraud Detector."]
module DeleteLabelRequest =
  struct
    type nonrec t =
      {
      name: Identifier.t [@ocaml.doc "The name of the label to delete."]}
    let context_ = "DeleteLabelRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("name", (Some (Identifier.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" Identifier.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a label. You cannot delete labels that are included in an event type in Amazon Fraud Detector. You cannot delete a label assigned to an event ID. You must first delete the relevant event ID. When you delete a label, Amazon Fraud Detector permanently deletes that label and the data is no longer stored in Amazon Fraud Detector."]
module DeleteExternalModelResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes a SageMaker model from Amazon Fraud Detector. You can remove an Amazon SageMaker model if it is not associated with a detector version. Removing a SageMaker model disconnects it from Amazon Fraud Detector, but the model remains available in SageMaker."]
module DeleteExternalModelRequest =
  struct
    type nonrec t =
      {
      modelEndpoint: SageMakerEndpointIdentifier.t
        [@ocaml.doc "The endpoint of the Amazon Sagemaker model to delete."]}
    let context_ = "DeleteExternalModelRequest"
    let make ~modelEndpoint = fun () -> { modelEndpoint }
    let to_value x =
      structure_to_value
        [("modelEndpoint",
           (Some (SageMakerEndpointIdentifier.to_value x.modelEndpoint)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modelEndpoint =
        SageMakerEndpointIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelEndpoint") in
      make ~modelEndpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modelEndpoint =
        field_map_exn json__ "modelEndpoint"
          SageMakerEndpointIdentifier.of_json in
      make ~modelEndpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes a SageMaker model from Amazon Fraud Detector. You can remove an Amazon SageMaker model if it is not associated with a detector version. Removing a SageMaker model disconnects it from Amazon Fraud Detector, but the model remains available in SageMaker."]
module DeleteEventsByEventTypeResult =
  struct
    type nonrec t =
      {
      eventTypeName: Identifier.t option
        [@ocaml.doc "Name of event type for which to delete the events."];
      eventsDeletionStatus: String_.t option
        [@ocaml.doc "The status of the delete 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 ?eventTypeName =
      fun ?eventsDeletionStatus ->
        fun () -> { eventTypeName; eventsDeletionStatus }
    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
        [("eventTypeName",
           (Option.map x.eventTypeName ~f:Identifier.to_value));
        ("eventsDeletionStatus",
          (Option.map x.eventsDeletionStatus ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventsDeletionStatus =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "eventsDeletionStatus") in
      let eventTypeName =
        (Option.map ~f:Identifier.of_xml)
          (Xml.child xml_arg0 "eventTypeName") in
      make ?eventsDeletionStatus ?eventTypeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventsDeletionStatus =
        field_map json__ "eventsDeletionStatus" String_.of_json in
      let eventTypeName = field_map json__ "eventTypeName" Identifier.of_json in
      make ?eventsDeletionStatus ?eventTypeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes all events of a particular event type."]
module DeleteEventsByEventTypeRequest =
  struct
    type nonrec t =
      {
      eventTypeName: Identifier.t [@ocaml.doc "The name of the event type."]}
    let context_ = "DeleteEventsByEventTypeRequest"
    let make ~eventTypeName = fun () -> { eventTypeName }
    let to_value x =
      structure_to_value
        [("eventTypeName", (Some (Identifier.to_value x.eventTypeName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventTypeName =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventTypeName") in
      make ~eventTypeName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventTypeName =
        field_map_exn json__ "eventTypeName" Identifier.of_json in
      make ~eventTypeName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes all events of a particular event type."]
module DeleteEventTypeResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 an event type. You cannot delete an event type that is used in a detector or a model. When you delete an event type, Amazon Fraud Detector permanently deletes that event type and the data is no longer stored in Amazon Fraud Detector."]
module DeleteEventTypeRequest =
  struct
    type nonrec t =
      {
      name: Identifier.t [@ocaml.doc "The name of the event type to delete."]}
    let context_ = "DeleteEventTypeRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("name", (Some (Identifier.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" Identifier.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an event type. You cannot delete an event type that is used in a detector or a model. When you delete an event type, Amazon Fraud Detector permanently deletes that event type and the data is no longer stored in Amazon Fraud Detector."]
module DeleteEventResult =
  struct
    type nonrec t = unit
    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 () = ()
    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 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 event. When you delete an event, Amazon Fraud Detector permanently deletes that event and the event data is no longer stored in Amazon Fraud Detector. If deleteAuditHistory is True, event data is available through search for up to 30 seconds after the delete operation is completed."]
module DeleteEventRequest =
  struct
    type nonrec t =
      {
      eventId: Identifier.t [@ocaml.doc "The ID of the event to delete."];
      eventTypeName: Identifier.t [@ocaml.doc "The name of the event type."];
      deleteAuditHistory: DeleteAuditHistory.t option
        [@ocaml.doc
          "Specifies whether or not to delete any predictions associated with the event. If set to True,"]}
    let context_ = "DeleteEventRequest"
    let make ?deleteAuditHistory =
      fun ~eventId ->
        fun ~eventTypeName ->
          fun () -> { deleteAuditHistory; eventId; eventTypeName }
    let to_value x =
      structure_to_value
        [("eventId", (Some (Identifier.to_value x.eventId)));
        ("eventTypeName", (Some (Identifier.to_value x.eventTypeName)));
        ("deleteAuditHistory",
          (Option.map x.deleteAuditHistory ~f:DeleteAuditHistory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deleteAuditHistory =
        (Option.map ~f:DeleteAuditHistory.of_xml)
          (Xml.child xml_arg0 "deleteAuditHistory") in
      let eventTypeName =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventTypeName") in
      let eventId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventId") in
      make ?deleteAuditHistory ~eventTypeName ~eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deleteAuditHistory =
        field_map json__ "deleteAuditHistory" DeleteAuditHistory.of_json in
      let eventTypeName =
        field_map_exn json__ "eventTypeName" Identifier.of_json in
      let eventId = field_map_exn json__ "eventId" Identifier.of_json in
      make ?deleteAuditHistory ~eventTypeName ~eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified event. When you delete an event, Amazon Fraud Detector permanently deletes that event and the event data is no longer stored in Amazon Fraud Detector. If deleteAuditHistory is True, event data is available through search for up to 30 seconds after the delete operation is completed."]
module DeleteEntityTypeResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 an entity type. You cannot delete an entity type that is included in an event type. When you delete an entity type, Amazon Fraud Detector permanently deletes that entity type and the data is no longer stored in Amazon Fraud Detector."]
module DeleteEntityTypeRequest =
  struct
    type nonrec t =
      {
      name: Identifier.t
        [@ocaml.doc "The name of the entity type to delete."]}
    let context_ = "DeleteEntityTypeRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("name", (Some (Identifier.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" Identifier.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an entity type. You cannot delete an entity type that is included in an event type. When you delete an entity type, Amazon Fraud Detector permanently deletes that entity type and the data is no longer stored in Amazon Fraud Detector."]
module DeleteDetectorVersionResult =
  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
       "Deletes the detector version. You cannot delete detector versions that are in ACTIVE status. When you delete a detector version, Amazon Fraud Detector permanently deletes the detector and the data is no longer stored in Amazon Fraud Detector."]
module DeleteDetectorVersionRequest =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t
        [@ocaml.doc
          "The ID of the parent detector for the detector version to delete."];
      detectorVersionId: WholeNumberVersionString.t
        [@ocaml.doc "The ID of the detector version to delete."]}
    let context_ = "DeleteDetectorVersionRequest"
    let make ~detectorId =
      fun ~detectorVersionId -> fun () -> { detectorId; detectorVersionId }
    let to_value x =
      structure_to_value
        [("detectorId", (Some (Identifier.to_value x.detectorId)));
        ("detectorVersionId",
          (Some (WholeNumberVersionString.to_value x.detectorVersionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let detectorVersionId =
        WholeNumberVersionString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorVersionId") in
      let detectorId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorId") in
      make ~detectorVersionId ~detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let detectorVersionId =
        field_map_exn json__ "detectorVersionId"
          WholeNumberVersionString.of_json in
      let detectorId = field_map_exn json__ "detectorId" Identifier.of_json in
      make ~detectorVersionId ~detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the detector version. You cannot delete detector versions that are in ACTIVE status. When you delete a detector version, Amazon Fraud Detector permanently deletes the detector and the data is no longer stored in Amazon Fraud Detector."]
module DeleteDetectorResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 detector. Before deleting a detector, you must first delete all detector versions and rule versions associated with the detector. When you delete a detector, Amazon Fraud Detector permanently deletes the detector and the data is no longer stored in Amazon Fraud Detector."]
module DeleteDetectorRequest =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t
        [@ocaml.doc "The ID of the detector to delete."]}
    let context_ = "DeleteDetectorRequest"
    let make ~detectorId = fun () -> { detectorId }
    let to_value x =
      structure_to_value
        [("detectorId", (Some (Identifier.to_value x.detectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let detectorId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorId") in
      make ~detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let detectorId = field_map_exn json__ "detectorId" Identifier.of_json in
      make ~detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the detector. Before deleting a detector, you must first delete all detector versions and rule versions associated with the detector. When you delete a detector, Amazon Fraud Detector permanently deletes the detector and the data is no longer stored in Amazon Fraud Detector."]
module DeleteBatchPredictionJobResult =
  struct
    type nonrec t = unit
    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 () = ()
    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 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 a batch prediction job."]
module DeleteBatchPredictionJobRequest =
  struct
    type nonrec t =
      {
      jobId: Identifier.t
        [@ocaml.doc "The ID of the batch prediction job to delete."]}
    let context_ = "DeleteBatchPredictionJobRequest"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("jobId", (Some (Identifier.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "jobId" Identifier.of_json in
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a batch prediction job."]
module DeleteBatchImportJobResult =
  struct
    type nonrec t = unit
    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 () = ()
    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 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 batch import job ID record. This action does not delete the data that was batch imported."]
module DeleteBatchImportJobRequest =
  struct
    type nonrec t =
      {
      jobId: Identifier.t
        [@ocaml.doc "The ID of the batch import job to delete."]}
    let context_ = "DeleteBatchImportJobRequest"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("jobId", (Some (Identifier.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "jobId" Identifier.of_json in
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified batch import job ID record. This action does not delete the data that was batch imported."]
module CreateVariableResult =
  struct
    type nonrec t = unit
    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 () = ()
    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 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 "Creates a variable."]
module CreateVariableRequest =
  struct
    type nonrec t =
      {
      name: String_.t [@ocaml.doc "The name of the variable."];
      dataType: DataType.t [@ocaml.doc "The data type of the variable."];
      dataSource: DataSource.t [@ocaml.doc "The source of the data."];
      defaultValue: String_.t
        [@ocaml.doc
          "The default value for the variable when no value is received."];
      description: String_.t option [@ocaml.doc "The description."];
      variableType: String_.t option
        [@ocaml.doc
          "The variable type. For more information see Variable types. Valid Values: AUTH_CODE | AVS | BILLING_ADDRESS_L1 | BILLING_ADDRESS_L2 | BILLING_CITY | BILLING_COUNTRY | BILLING_NAME | BILLING_PHONE | BILLING_STATE | BILLING_ZIP | CARD_BIN | CATEGORICAL | CURRENCY_CODE | EMAIL_ADDRESS | FINGERPRINT | FRAUD_LABEL | FREE_FORM_TEXT | IP_ADDRESS | NUMERIC | ORDER_ID | PAYMENT_TYPE | PHONE_NUMBER | PRICE | PRODUCT_CATEGORY | SHIPPING_ADDRESS_L1 | SHIPPING_ADDRESS_L2 | SHIPPING_CITY | SHIPPING_COUNTRY | SHIPPING_NAME | SHIPPING_PHONE | SHIPPING_STATE | SHIPPING_ZIP | USERAGENT"];
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."]}
    let context_ = "CreateVariableRequest"
    let make ?description =
      fun ?variableType ->
        fun ?tags ->
          fun ~name ->
            fun ~dataType ->
              fun ~dataSource ->
                fun ~defaultValue ->
                  fun () ->
                    {
                      description;
                      variableType;
                      tags;
                      name;
                      dataType;
                      dataSource;
                      defaultValue
                    }
    let to_value x =
      structure_to_value
        [("name", (Some (String_.to_value x.name)));
        ("dataType", (Some (DataType.to_value x.dataType)));
        ("dataSource", (Some (DataSource.to_value x.dataSource)));
        ("defaultValue", (Some (String_.to_value x.defaultValue)));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("variableType", (Option.map x.variableType ~f:String_.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let variableType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "variableType") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let defaultValue =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "defaultValue") in
      let dataSource =
        DataSource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "dataSource") in
      let dataType =
        DataType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "dataType") in
      let name =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ?variableType ?description ~defaultValue ~dataSource
        ~dataType ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let variableType = field_map json__ "variableType" String_.of_json in
      let description = field_map json__ "description" String_.of_json in
      let defaultValue = field_map_exn json__ "defaultValue" String_.of_json in
      let dataSource = field_map_exn json__ "dataSource" DataSource.of_json in
      let dataType = field_map_exn json__ "dataType" DataType.of_json in
      let name = field_map_exn json__ "name" String_.of_json in
      make ?tags ?variableType ?description ~defaultValue ~dataSource
        ~dataType ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a variable."]
module CreateRuleResult =
  struct
    type nonrec t = {
      rule: Rule.t option [@ocaml.doc "The created rule."]}
    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 ?rule = fun () -> { rule }
    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 [("rule", (Option.map x.rule ~f:Rule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rule = (Option.map ~f:Rule.of_xml) (Xml.child xml_arg0 "rule") in
      make ?rule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rule = field_map json__ "rule" Rule.of_json in make ?rule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a rule for use with the specified detector."]
module CreateRuleRequest =
  struct
    type nonrec t =
      {
      ruleId: Identifier.t [@ocaml.doc "The rule ID."];
      detectorId: Identifier.t
        [@ocaml.doc "The detector ID for the rule's parent detector."];
      description: Description.t option [@ocaml.doc "The rule description."];
      expression: RuleExpression.t [@ocaml.doc "The rule expression."];
      language: Language.t [@ocaml.doc "The language of the rule."];
      outcomes: NonEmptyListOfStrings.t
        [@ocaml.doc
          "The outcome or outcomes returned when the rule expression matches."];
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."]}
    let context_ = "CreateRuleRequest"
    let make ?description =
      fun ?tags ->
        fun ~ruleId ->
          fun ~detectorId ->
            fun ~expression ->
              fun ~language ->
                fun ~outcomes ->
                  fun () ->
                    {
                      description;
                      tags;
                      ruleId;
                      detectorId;
                      expression;
                      language;
                      outcomes
                    }
    let to_value x =
      structure_to_value
        [("ruleId", (Some (Identifier.to_value x.ruleId)));
        ("detectorId", (Some (Identifier.to_value x.detectorId)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("expression", (Some (RuleExpression.to_value x.expression)));
        ("language", (Some (Language.to_value x.language)));
        ("outcomes", (Some (NonEmptyListOfStrings.to_value x.outcomes)));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let outcomes =
        NonEmptyListOfStrings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "outcomes") in
      let language =
        Language.of_xml (Xml.child_exn ~context:context_ xml_arg0 "language") in
      let expression =
        RuleExpression.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "expression") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let detectorId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorId") in
      let ruleId =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ruleId") in
      make ?tags ~outcomes ~language ~expression ?description ~detectorId
        ~ruleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let outcomes =
        field_map_exn json__ "outcomes" NonEmptyListOfStrings.of_json in
      let language = field_map_exn json__ "language" Language.of_json in
      let expression =
        field_map_exn json__ "expression" RuleExpression.of_json in
      let description = field_map json__ "description" Description.of_json in
      let detectorId = field_map_exn json__ "detectorId" Identifier.of_json in
      let ruleId = field_map_exn json__ "ruleId" Identifier.of_json in
      make ?tags ~outcomes ~language ~expression ?description ~detectorId
        ~ruleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a rule for use with the specified detector."]
module CreateModelVersionResult =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t option [@ocaml.doc "The model ID."];
      modelType: ModelTypeEnum.t option [@ocaml.doc "The model type."];
      modelVersionNumber: FloatVersionString.t option
        [@ocaml.doc "The model version number of the model version created."];
      status: String_.t option [@ocaml.doc "The model version status."]}
    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 ?modelId =
      fun ?modelType ->
        fun ?modelVersionNumber ->
          fun ?status ->
            fun () -> { modelId; modelType; modelVersionNumber; 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
        [("modelId", (Option.map x.modelId ~f:ModelIdentifier.to_value));
        ("modelType", (Option.map x.modelType ~f:ModelTypeEnum.to_value));
        ("modelVersionNumber",
          (Option.map x.modelVersionNumber ~f:FloatVersionString.to_value));
        ("status", (Option.map x.status ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let modelVersionNumber =
        (Option.map ~f:FloatVersionString.of_xml)
          (Xml.child xml_arg0 "modelVersionNumber") in
      let modelType =
        (Option.map ~f:ModelTypeEnum.of_xml) (Xml.child xml_arg0 "modelType") in
      let modelId =
        (Option.map ~f:ModelIdentifier.of_xml) (Xml.child xml_arg0 "modelId") in
      make ?status ?modelVersionNumber ?modelType ?modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" String_.of_json in
      let modelVersionNumber =
        field_map json__ "modelVersionNumber" FloatVersionString.of_json in
      let modelType = field_map json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map json__ "modelId" ModelIdentifier.of_json in
      make ?status ?modelVersionNumber ?modelType ?modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a version of the model using the specified model type and model id."]
module CreateModelVersionRequest =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t [@ocaml.doc "The model ID."];
      modelType: ModelTypeEnum.t [@ocaml.doc "The model type."];
      trainingDataSource: TrainingDataSourceEnum.t
        [@ocaml.doc "The training data source location in Amazon S3."];
      trainingDataSchema: TrainingDataSchema.t
        [@ocaml.doc "The training data schema."];
      externalEventsDetail: ExternalEventsDetail.t option
        [@ocaml.doc
          "Details of the external events data used for model version training. Required if trainingDataSource is EXTERNAL_EVENTS."];
      ingestedEventsDetail: IngestedEventsDetail.t option
        [@ocaml.doc
          "Details of the ingested events data used for model version training. Required if trainingDataSource is INGESTED_EVENTS."];
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."]}
    let context_ = "CreateModelVersionRequest"
    let make ?externalEventsDetail =
      fun ?ingestedEventsDetail ->
        fun ?tags ->
          fun ~modelId ->
            fun ~modelType ->
              fun ~trainingDataSource ->
                fun ~trainingDataSchema ->
                  fun () ->
                    {
                      externalEventsDetail;
                      ingestedEventsDetail;
                      tags;
                      modelId;
                      modelType;
                      trainingDataSource;
                      trainingDataSchema
                    }
    let to_value x =
      structure_to_value
        [("modelId", (Some (ModelIdentifier.to_value x.modelId)));
        ("modelType", (Some (ModelTypeEnum.to_value x.modelType)));
        ("trainingDataSource",
          (Some (TrainingDataSourceEnum.to_value x.trainingDataSource)));
        ("trainingDataSchema",
          (Some (TrainingDataSchema.to_value x.trainingDataSchema)));
        ("externalEventsDetail",
          (Option.map x.externalEventsDetail ~f:ExternalEventsDetail.to_value));
        ("ingestedEventsDetail",
          (Option.map x.ingestedEventsDetail ~f:IngestedEventsDetail.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let ingestedEventsDetail =
        (Option.map ~f:IngestedEventsDetail.of_xml)
          (Xml.child xml_arg0 "ingestedEventsDetail") in
      let externalEventsDetail =
        (Option.map ~f:ExternalEventsDetail.of_xml)
          (Xml.child xml_arg0 "externalEventsDetail") in
      let trainingDataSchema =
        TrainingDataSchema.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "trainingDataSchema") in
      let trainingDataSource =
        TrainingDataSourceEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "trainingDataSource") in
      let modelType =
        ModelTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelType") in
      let modelId =
        ModelIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelId") in
      make ?tags ?ingestedEventsDetail ?externalEventsDetail
        ~trainingDataSchema ~trainingDataSource ~modelType ~modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let ingestedEventsDetail =
        field_map json__ "ingestedEventsDetail" IngestedEventsDetail.of_json in
      let externalEventsDetail =
        field_map json__ "externalEventsDetail" ExternalEventsDetail.of_json in
      let trainingDataSchema =
        field_map_exn json__ "trainingDataSchema" TrainingDataSchema.of_json in
      let trainingDataSource =
        field_map_exn json__ "trainingDataSource"
          TrainingDataSourceEnum.of_json in
      let modelType = field_map_exn json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map_exn json__ "modelId" ModelIdentifier.of_json in
      make ?tags ?ingestedEventsDetail ?externalEventsDetail
        ~trainingDataSchema ~trainingDataSource ~modelType ~modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a version of the model using the specified model type and model id."]
module CreateModelResult =
  struct
    type nonrec t = unit
    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 () = ()
    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 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 "Creates a model using the specified model type."]
module CreateModelRequest =
  struct
    type nonrec t =
      {
      modelId: ModelIdentifier.t [@ocaml.doc "The model ID."];
      modelType: ModelTypeEnum.t [@ocaml.doc "The model type."];
      description: Description.t option [@ocaml.doc "The model description."];
      eventTypeName: String_.t [@ocaml.doc "The name of the event type."];
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."]}
    let context_ = "CreateModelRequest"
    let make ?description =
      fun ?tags ->
        fun ~modelId ->
          fun ~modelType ->
            fun ~eventTypeName ->
              fun () ->
                { description; tags; modelId; modelType; eventTypeName }
    let to_value x =
      structure_to_value
        [("modelId", (Some (ModelIdentifier.to_value x.modelId)));
        ("modelType", (Some (ModelTypeEnum.to_value x.modelType)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("eventTypeName", (Some (String_.to_value x.eventTypeName)));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let eventTypeName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventTypeName") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let modelType =
        ModelTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelType") in
      let modelId =
        ModelIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "modelId") in
      make ?tags ~eventTypeName ?description ~modelType ~modelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let eventTypeName =
        field_map_exn json__ "eventTypeName" String_.of_json in
      let description = field_map json__ "description" Description.of_json in
      let modelType = field_map_exn json__ "modelType" ModelTypeEnum.of_json in
      let modelId = field_map_exn json__ "modelId" ModelIdentifier.of_json in
      make ?tags ~eventTypeName ?description ~modelType ~modelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a model using the specified model type."]
module CreateListResult =
  struct
    type nonrec t = unit
    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 () = ()
    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 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
       "Creates a list. List is a set of input data for a variable in your event dataset. You use the input data in a rule that's associated with your detector. For more information, see Lists."]
module CreateListRequest =
  struct
    type nonrec t =
      {
      name: NoDashIdentifier.t [@ocaml.doc "The name of the list."];
      elements: ElementsList.t option
        [@ocaml.doc
          "The names of the elements, if providing. You can also create an empty list and add elements later using the UpdateList API."];
      variableType: VariableType.t option
        [@ocaml.doc
          "The variable type of the list. You can only assign the variable type with String data type. For more information, see Variable types."];
      description: Description.t option
        [@ocaml.doc "The description of the list."];
      tags: TagList.t option
        [@ocaml.doc "A collection of the key and value pairs."]}
    let context_ = "CreateListRequest"
    let make ?elements =
      fun ?variableType ->
        fun ?description ->
          fun ?tags ->
            fun ~name ->
              fun () -> { elements; variableType; description; tags; name }
    let to_value x =
      structure_to_value
        [("name", (Some (NoDashIdentifier.to_value x.name)));
        ("elements", (Option.map x.elements ~f:ElementsList.to_value));
        ("variableType",
          (Option.map x.variableType ~f:VariableType.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let variableType =
        (Option.map ~f:VariableType.of_xml)
          (Xml.child xml_arg0 "variableType") in
      let elements =
        (Option.map ~f:ElementsList.of_xml) (Xml.child xml_arg0 "elements") in
      let name =
        NoDashIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ?description ?variableType ?elements ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let description = field_map json__ "description" Description.of_json in
      let variableType = field_map json__ "variableType" VariableType.of_json in
      let elements = field_map json__ "elements" ElementsList.of_json in
      let name = field_map_exn json__ "name" NoDashIdentifier.of_json in
      make ?tags ?description ?variableType ?elements ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a list. List is a set of input data for a variable in your event dataset. You use the input data in a rule that's associated with your detector. For more information, see Lists."]
module CreateDetectorVersionResult =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t option
        [@ocaml.doc "The ID for the created version's parent detector."];
      detectorVersionId: WholeNumberVersionString.t option
        [@ocaml.doc "The ID for the created detector."];
      status: DetectorVersionStatus.t option
        [@ocaml.doc "The status of the detector version."]}
    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 ?detectorId =
      fun ?detectorVersionId ->
        fun ?status -> fun () -> { detectorId; detectorVersionId; 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
        [("detectorId", (Option.map x.detectorId ~f:Identifier.to_value));
        ("detectorVersionId",
          (Option.map x.detectorVersionId
             ~f:WholeNumberVersionString.to_value));
        ("status", (Option.map x.status ~f:DetectorVersionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:DetectorVersionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let detectorVersionId =
        (Option.map ~f:WholeNumberVersionString.of_xml)
          (Xml.child xml_arg0 "detectorVersionId") in
      let detectorId =
        (Option.map ~f:Identifier.of_xml) (Xml.child xml_arg0 "detectorId") in
      make ?status ?detectorVersionId ?detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" DetectorVersionStatus.of_json in
      let detectorVersionId =
        field_map json__ "detectorVersionId" WholeNumberVersionString.of_json in
      let detectorId = field_map json__ "detectorId" Identifier.of_json in
      make ?status ?detectorVersionId ?detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a detector version. The detector version starts in a DRAFT status."]
module CreateDetectorVersionRequest =
  struct
    type nonrec t =
      {
      detectorId: Identifier.t
        [@ocaml.doc
          "The ID of the detector under which you want to create a new version."];
      description: Description.t option
        [@ocaml.doc "The description of the detector version."];
      externalModelEndpoints: ListOfStrings.t option
        [@ocaml.doc
          "The Amazon Sagemaker model endpoints to include in the detector version."];
      rules: RuleList.t
        [@ocaml.doc "The rules to include in the detector version."];
      modelVersions: ListOfModelVersions.t option
        [@ocaml.doc "The model versions to include in the detector version."];
      ruleExecutionMode: RuleExecutionMode.t option
        [@ocaml.doc
          "The rule execution mode for the rules included in the detector version. You can define and edit the rule mode at the detector version level, when it is in draft status. If you specify FIRST_MATCHED, Amazon Fraud Detector evaluates rules sequentially, first to last, stopping at the first matched rule. Amazon Fraud dectector then provides the outcomes for that single rule. If you specifiy ALL_MATCHED, Amazon Fraud Detector evaluates all rules and returns the outcomes for all matched rules. The default behavior is FIRST_MATCHED."];
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."]}
    let context_ = "CreateDetectorVersionRequest"
    let make ?description =
      fun ?externalModelEndpoints ->
        fun ?modelVersions ->
          fun ?ruleExecutionMode ->
            fun ?tags ->
              fun ~detectorId ->
                fun ~rules ->
                  fun () ->
                    {
                      description;
                      externalModelEndpoints;
                      modelVersions;
                      ruleExecutionMode;
                      tags;
                      detectorId;
                      rules
                    }
    let to_value x =
      structure_to_value
        [("detectorId", (Some (Identifier.to_value x.detectorId)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("externalModelEndpoints",
          (Option.map x.externalModelEndpoints ~f:ListOfStrings.to_value));
        ("rules", (Some (RuleList.to_value x.rules)));
        ("modelVersions",
          (Option.map x.modelVersions ~f:ListOfModelVersions.to_value));
        ("ruleExecutionMode",
          (Option.map x.ruleExecutionMode ~f:RuleExecutionMode.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let ruleExecutionMode =
        (Option.map ~f:RuleExecutionMode.of_xml)
          (Xml.child xml_arg0 "ruleExecutionMode") in
      let modelVersions =
        (Option.map ~f:ListOfModelVersions.of_xml)
          (Xml.child xml_arg0 "modelVersions") in
      let rules =
        RuleList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "rules") in
      let externalModelEndpoints =
        (Option.map ~f:ListOfStrings.of_xml)
          (Xml.child xml_arg0 "externalModelEndpoints") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let detectorId =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorId") in
      make ?tags ?ruleExecutionMode ?modelVersions ~rules
        ?externalModelEndpoints ?description ~detectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let ruleExecutionMode =
        field_map json__ "ruleExecutionMode" RuleExecutionMode.of_json in
      let modelVersions =
        field_map json__ "modelVersions" ListOfModelVersions.of_json in
      let rules = field_map_exn json__ "rules" RuleList.of_json in
      let externalModelEndpoints =
        field_map json__ "externalModelEndpoints" ListOfStrings.of_json in
      let description = field_map json__ "description" Description.of_json in
      let detectorId = field_map_exn json__ "detectorId" Identifier.of_json in
      make ?tags ?ruleExecutionMode ?modelVersions ~rules
        ?externalModelEndpoints ?description ~detectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a detector version. The detector version starts in a DRAFT status."]
module CreateBatchPredictionJobResult =
  struct
    type nonrec t = unit
    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 () = ()
    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 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 "Creates a batch prediction job."]
module CreateBatchPredictionJobRequest =
  struct
    type nonrec t =
      {
      jobId: Identifier.t [@ocaml.doc "The ID of the batch prediction job."];
      inputPath: S3BucketLocation.t
        [@ocaml.doc "The Amazon S3 location of your training file."];
      outputPath: S3BucketLocation.t
        [@ocaml.doc "The Amazon S3 location of your output file."];
      eventTypeName: Identifier.t [@ocaml.doc "The name of the event type."];
      detectorName: Identifier.t [@ocaml.doc "The name of the detector."];
      detectorVersion: WholeNumberVersionString.t option
        [@ocaml.doc "The detector version."];
      iamRoleArn: IamRoleArn.t
        [@ocaml.doc
          "The ARN of the IAM role to use for this job request. The IAM Role must have read permissions to your input S3 bucket and write permissions to your output S3 bucket. For more information about bucket permissions, see User policy examples in the Amazon S3 User Guide."];
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."]}
    let context_ = "CreateBatchPredictionJobRequest"
    let make ?detectorVersion =
      fun ?tags ->
        fun ~jobId ->
          fun ~inputPath ->
            fun ~outputPath ->
              fun ~eventTypeName ->
                fun ~detectorName ->
                  fun ~iamRoleArn ->
                    fun () ->
                      {
                        detectorVersion;
                        tags;
                        jobId;
                        inputPath;
                        outputPath;
                        eventTypeName;
                        detectorName;
                        iamRoleArn
                      }
    let to_value x =
      structure_to_value
        [("jobId", (Some (Identifier.to_value x.jobId)));
        ("inputPath", (Some (S3BucketLocation.to_value x.inputPath)));
        ("outputPath", (Some (S3BucketLocation.to_value x.outputPath)));
        ("eventTypeName", (Some (Identifier.to_value x.eventTypeName)));
        ("detectorName", (Some (Identifier.to_value x.detectorName)));
        ("detectorVersion",
          (Option.map x.detectorVersion ~f:WholeNumberVersionString.to_value));
        ("iamRoleArn", (Some (IamRoleArn.to_value x.iamRoleArn)));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let iamRoleArn =
        IamRoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "iamRoleArn") in
      let detectorVersion =
        (Option.map ~f:WholeNumberVersionString.of_xml)
          (Xml.child xml_arg0 "detectorVersion") in
      let detectorName =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectorName") in
      let eventTypeName =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventTypeName") in
      let outputPath =
        S3BucketLocation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "outputPath") in
      let inputPath =
        S3BucketLocation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "inputPath") in
      let jobId =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ?tags ~iamRoleArn ?detectorVersion ~detectorName ~eventTypeName
        ~outputPath ~inputPath ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let iamRoleArn = field_map_exn json__ "iamRoleArn" IamRoleArn.of_json in
      let detectorVersion =
        field_map json__ "detectorVersion" WholeNumberVersionString.of_json in
      let detectorName =
        field_map_exn json__ "detectorName" Identifier.of_json in
      let eventTypeName =
        field_map_exn json__ "eventTypeName" Identifier.of_json in
      let outputPath =
        field_map_exn json__ "outputPath" S3BucketLocation.of_json in
      let inputPath =
        field_map_exn json__ "inputPath" S3BucketLocation.of_json in
      let jobId = field_map_exn json__ "jobId" Identifier.of_json in
      make ?tags ~iamRoleArn ?detectorVersion ~detectorName ~eventTypeName
        ~outputPath ~inputPath ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a batch prediction job."]
module CreateBatchImportJobResult =
  struct
    type nonrec t = unit
    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 () = ()
    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 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 "Creates a batch import job."]
module CreateBatchImportJobRequest =
  struct
    type nonrec t =
      {
      jobId: Identifier.t
        [@ocaml.doc
          "The ID of the batch import job. The ID cannot be of a past job, unless the job exists in CREATE_FAILED state."];
      inputPath: S3BucketLocation.t
        [@ocaml.doc
          "The URI that points to the Amazon S3 location of your data file."];
      outputPath: S3BucketLocation.t
        [@ocaml.doc
          "The URI that points to the Amazon S3 location for storing your results."];
      eventTypeName: Identifier.t [@ocaml.doc "The name of the event type."];
      iamRoleArn: IamRoleArn.t
        [@ocaml.doc
          "The ARN of the IAM role created for Amazon S3 bucket that holds your data file. The IAM role must have read permissions to your input S3 bucket and write permissions to your output S3 bucket. For more information about bucket permissions, see User policy examples in the Amazon S3 User Guide."];
      tags: TagList.t option
        [@ocaml.doc
          "A collection of key-value pairs associated with this request."]}
    let context_ = "CreateBatchImportJobRequest"
    let make ?tags =
      fun ~jobId ->
        fun ~inputPath ->
          fun ~outputPath ->
            fun ~eventTypeName ->
              fun ~iamRoleArn ->
                fun () ->
                  {
                    tags;
                    jobId;
                    inputPath;
                    outputPath;
                    eventTypeName;
                    iamRoleArn
                  }
    let to_value x =
      structure_to_value
        [("jobId", (Some (Identifier.to_value x.jobId)));
        ("inputPath", (Some (S3BucketLocation.to_value x.inputPath)));
        ("outputPath", (Some (S3BucketLocation.to_value x.outputPath)));
        ("eventTypeName", (Some (Identifier.to_value x.eventTypeName)));
        ("iamRoleArn", (Some (IamRoleArn.to_value x.iamRoleArn)));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let iamRoleArn =
        IamRoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "iamRoleArn") in
      let eventTypeName =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventTypeName") in
      let outputPath =
        S3BucketLocation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "outputPath") in
      let inputPath =
        S3BucketLocation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "inputPath") in
      let jobId =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ?tags ~iamRoleArn ~eventTypeName ~outputPath ~inputPath ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let iamRoleArn = field_map_exn json__ "iamRoleArn" IamRoleArn.of_json in
      let eventTypeName =
        field_map_exn json__ "eventTypeName" Identifier.of_json in
      let outputPath =
        field_map_exn json__ "outputPath" S3BucketLocation.of_json in
      let inputPath =
        field_map_exn json__ "inputPath" S3BucketLocation.of_json in
      let jobId = field_map_exn json__ "jobId" Identifier.of_json in
      make ?tags ~iamRoleArn ~eventTypeName ~outputPath ~inputPath ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a batch import job."]
module CancelBatchPredictionJobResult =
  struct
    type nonrec t = unit
    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 () = ()
    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 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 "Cancels the specified batch prediction job."]
module CancelBatchPredictionJobRequest =
  struct
    type nonrec t =
      {
      jobId: Identifier.t
        [@ocaml.doc "The ID of the batch prediction job to cancel."]}
    let context_ = "CancelBatchPredictionJobRequest"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("jobId", (Some (Identifier.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "jobId" Identifier.of_json in
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Cancels the specified batch prediction job."]
module CancelBatchImportJobResult =
  struct
    type nonrec t = unit
    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 () = ()
    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 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 "Cancels an in-progress batch import job."]
module CancelBatchImportJobRequest =
  struct
    type nonrec t =
      {
      jobId: Identifier.t
        [@ocaml.doc
          "The ID of an in-progress batch import job to cancel. Amazon Fraud Detector will throw an error if the batch import job is in FAILED, CANCELED, or COMPLETED state."]}
    let context_ = "CancelBatchImportJobRequest"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("jobId", (Some (Identifier.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        Identifier.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "jobId" Identifier.of_json in
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Cancels an in-progress batch import job."]
module BatchGetVariableResult =
  struct
    type nonrec t =
      {
      variables: VariableList.t option [@ocaml.doc "The returned variables."];
      errors: BatchGetVariableErrorList.t option
        [@ocaml.doc "The errors from the request."]}
    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 ?variables = fun ?errors -> fun () -> { variables; errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "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
        [("variables", (Option.map x.variables ~f:VariableList.to_value));
        ("errors",
          (Option.map x.errors ~f:BatchGetVariableErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchGetVariableErrorList.of_xml)
          (Xml.child xml_arg0 "errors") in
      let variables =
        (Option.map ~f:VariableList.of_xml) (Xml.child xml_arg0 "variables") in
      make ?errors ?variables ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors" BatchGetVariableErrorList.of_json in
      let variables = field_map json__ "variables" VariableList.of_json in
      make ?errors ?variables ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets a batch of variables."]
module BatchGetVariableRequest =
  struct
    type nonrec t =
      {
      names: NameList.t [@ocaml.doc "The list of variable names to get."]}
    let context_ = "BatchGetVariableRequest"
    let make ~names = fun () -> { names }
    let to_value x =
      structure_to_value [("names", (Some (NameList.to_value x.names)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let names =
        NameList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "names") in
      make ~names ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let names = field_map_exn json__ "names" NameList.of_json in
      make ~names ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets a batch of variables."]
module BatchCreateVariableResult =
  struct
    type nonrec t =
      {
      errors: BatchCreateVariableErrorList.t option
        [@ocaml.doc
          "Provides the errors for the BatchCreateVariable request."]}
    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 ?errors = fun () -> { errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "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
        [("errors",
           (Option.map x.errors ~f:BatchCreateVariableErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchCreateVariableErrorList.of_xml)
          (Xml.child xml_arg0 "errors") in
      make ?errors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors" BatchCreateVariableErrorList.of_json in
      make ?errors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a batch of variables."]
module BatchCreateVariableRequest =
  struct
    type nonrec t =
      {
      variableEntries: VariableEntryList.t
        [@ocaml.doc
          "The list of variables for the batch create variable request."];
      tags: TagList.t option
        [@ocaml.doc "A collection of key and value pairs."]}
    let context_ = "BatchCreateVariableRequest"
    let make ?tags =
      fun ~variableEntries -> fun () -> { tags; variableEntries }
    let to_value x =
      structure_to_value
        [("variableEntries",
           (Some (VariableEntryList.to_value x.variableEntries)));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let variableEntries =
        VariableEntryList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "variableEntries") in
      make ?tags ~variableEntries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let variableEntries =
        field_map_exn json__ "variableEntries" VariableEntryList.of_json in
      make ?tags ~variableEntries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a batch of variables."]