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.security_ir
let apiVersion = "2018-05-10"
let endpointPrefix = "security-ir"
let serviceFullName = "Security Incident Response"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module CommunicationType =
  struct
    type nonrec t =
      | Case_Created 
      | Case_Updated 
      | Case_Acknowledged 
      | Case_Closed 
      | Case_Updated_To_Service_Managed 
      | Case_Status_Updated 
      | Case_Pending_Customer_Action_Reminder 
      | Case_Attachment_Url_Uploaded 
      | Case_Comment_Added 
      | Case_Comment_Updated 
      | Membership_Created 
      | Membership_Updated 
      | Membership_Cancelled 
      | Register_Delegated_Administrator 
      | Deregister_Delegated_Administrator 
      | Disable_AWS_Service_Access 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Case_Created -> "Case Created"
      | Case_Updated -> "Case Updated"
      | Case_Acknowledged -> "Case Acknowledged"
      | Case_Closed -> "Case Closed"
      | Case_Updated_To_Service_Managed -> "Case Updated To Service Managed"
      | Case_Status_Updated -> "Case Status Updated"
      | Case_Pending_Customer_Action_Reminder ->
          "Case Pending Customer Action Reminder"
      | Case_Attachment_Url_Uploaded -> "Case Attachment Url Uploaded"
      | Case_Comment_Added -> "Case Comment Added"
      | Case_Comment_Updated -> "Case Comment Updated"
      | Membership_Created -> "Membership Created"
      | Membership_Updated -> "Membership Updated"
      | Membership_Cancelled -> "Membership Cancelled"
      | Register_Delegated_Administrator ->
          "Register Delegated Administrator"
      | Deregister_Delegated_Administrator ->
          "Deregister Delegated Administrator"
      | Disable_AWS_Service_Access -> "Disable AWS Service Access"
      | Non_static_id s -> s
    let of_string =
      function
      | "Case Created" -> Case_Created
      | "Case Updated" -> Case_Updated
      | "Case Acknowledged" -> Case_Acknowledged
      | "Case Closed" -> Case_Closed
      | "Case Updated To Service Managed" -> Case_Updated_To_Service_Managed
      | "Case Status Updated" -> Case_Status_Updated
      | "Case Pending Customer Action Reminder" ->
          Case_Pending_Customer_Action_Reminder
      | "Case Attachment Url Uploaded" -> Case_Attachment_Url_Uploaded
      | "Case Comment Added" -> Case_Comment_Added
      | "Case Comment Updated" -> Case_Comment_Updated
      | "Membership Created" -> Membership_Created
      | "Membership Updated" -> Membership_Updated
      | "Membership Cancelled" -> Membership_Cancelled
      | "Register Delegated Administrator" ->
          Register_Delegated_Administrator
      | "Deregister Delegated Administrator" ->
          Deregister_Delegated_Administrator
      | "Disable AWS Service Access" -> Disable_AWS_Service_Access
      | 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 CommunicationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CommunicationType" j)
    let to_json = simple_to_json to_value
  end
module FeedbackComment =
  struct
    type nonrec t = string
    let context_ = "FeedbackComment"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (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:"FeedbackComment" j
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module UsefulnessRating =
  struct
    type nonrec t =
      | USEFUL 
      | NOT_USEFUL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | USEFUL -> "USEFUL"
      | NOT_USEFUL -> "NOT_USEFUL"
      | Non_static_id s -> s
    let of_string =
      function
      | "USEFUL" -> USEFUL
      | "NOT_USEFUL" -> NOT_USEFUL
      | 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 UsefulnessRating" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UsefulnessRating" j)
    let to_json = simple_to_json to_value
  end
module ValidationExceptionField =
  struct
    type nonrec t = {
      name: String_.t option ;
      message: String_.t option }
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end
module CommunicationPreferences =
  struct
    type nonrec t = CommunicationType.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:CommunicationType.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:CommunicationType.of_xml)
    let of_json j =
      list_of_json ~kind:"CommunicationPreferences"
        ~of_json:CommunicationType.of_json j
    let to_json v = composed_to_json to_value v
  end
module EmailAddress =
  struct
    type nonrec t = string
    let context_ = "EmailAddress"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () ->
                (check_string_max i ~max:254) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9.!#$%&'*+/=?^_`{|}~-]+@[a-zA-Z0-9-]+(?:\\.[a-zA-Z0-9-]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EmailAddress" j
    let to_json = simple_to_json to_value
  end
module IncidentResponderName =
  struct
    type nonrec t = string
    let context_ = "IncidentResponderName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:3));
        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:"IncidentResponderName" j
    let to_json = simple_to_json to_value
  end
module JobTitle =
  struct
    type nonrec t = string
    let context_ = "JobTitle"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (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:"JobTitle" j
    let to_json = simple_to_json to_value
  end
module OrganizationalUnitId =
  struct
    type nonrec t = string
    let context_ = "OrganizationalUnitId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"ou-[0-9a-z]{4,32}-[a-z0-9]{8,32}");
        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:"OrganizationalUnitId" 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 OptInFeatureName =
  struct
    type nonrec t =
      | Triage 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Triage -> "Triage" | Non_static_id s -> s
    let of_string = function | "Triage" -> Triage | 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 OptInFeatureName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OptInFeatureName" j)
    let to_json = simple_to_json to_value
  end
module CaseMetadataEntryKeyString =
  struct
    type nonrec t = string
    let context_ = "CaseMetadataEntryKeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"CaseMetadataEntryKeyString" j
    let to_json = simple_to_json to_value
  end
module CaseMetadataEntryValueString =
  struct
    type nonrec t = string
    let context_ = "CaseMetadataEntryValueString"
    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:"CaseMetadataEntryValueString" j
    let to_json = simple_to_json to_value
  end
module AwsRegion =
  struct
    type nonrec t =
      | Af_south_1 
      | Ap_east_1 
      | Ap_east_2 
      | Ap_northeast_1 
      | Ap_northeast_2 
      | Ap_northeast_3 
      | Ap_south_1 
      | Ap_south_2 
      | Ap_southeast_1 
      | Ap_southeast_2 
      | Ap_southeast_3 
      | Ap_southeast_4 
      | Ap_southeast_5 
      | Ap_southeast_6 
      | Ap_southeast_7 
      | Ca_central_1 
      | Ca_west_1 
      | Cn_north_1 
      | Cn_northwest_1 
      | Eu_central_1 
      | Eu_central_2 
      | Eu_north_1 
      | Eu_south_1 
      | Eu_south_2 
      | Eu_west_1 
      | Eu_west_2 
      | Eu_west_3 
      | Il_central_1 
      | Me_central_1 
      | Me_south_1 
      | Mx_central_1 
      | Sa_east_1 
      | Us_east_1 
      | Us_east_2 
      | Us_west_1 
      | Us_west_2 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Af_south_1 -> "af-south-1"
      | Ap_east_1 -> "ap-east-1"
      | Ap_east_2 -> "ap-east-2"
      | Ap_northeast_1 -> "ap-northeast-1"
      | Ap_northeast_2 -> "ap-northeast-2"
      | Ap_northeast_3 -> "ap-northeast-3"
      | Ap_south_1 -> "ap-south-1"
      | Ap_south_2 -> "ap-south-2"
      | Ap_southeast_1 -> "ap-southeast-1"
      | Ap_southeast_2 -> "ap-southeast-2"
      | Ap_southeast_3 -> "ap-southeast-3"
      | Ap_southeast_4 -> "ap-southeast-4"
      | Ap_southeast_5 -> "ap-southeast-5"
      | Ap_southeast_6 -> "ap-southeast-6"
      | Ap_southeast_7 -> "ap-southeast-7"
      | Ca_central_1 -> "ca-central-1"
      | Ca_west_1 -> "ca-west-1"
      | Cn_north_1 -> "cn-north-1"
      | Cn_northwest_1 -> "cn-northwest-1"
      | Eu_central_1 -> "eu-central-1"
      | Eu_central_2 -> "eu-central-2"
      | Eu_north_1 -> "eu-north-1"
      | Eu_south_1 -> "eu-south-1"
      | Eu_south_2 -> "eu-south-2"
      | Eu_west_1 -> "eu-west-1"
      | Eu_west_2 -> "eu-west-2"
      | Eu_west_3 -> "eu-west-3"
      | Il_central_1 -> "il-central-1"
      | Me_central_1 -> "me-central-1"
      | Me_south_1 -> "me-south-1"
      | Mx_central_1 -> "mx-central-1"
      | Sa_east_1 -> "sa-east-1"
      | Us_east_1 -> "us-east-1"
      | Us_east_2 -> "us-east-2"
      | Us_west_1 -> "us-west-1"
      | Us_west_2 -> "us-west-2"
      | Non_static_id s -> s
    let of_string =
      function
      | "af-south-1" -> Af_south_1
      | "ap-east-1" -> Ap_east_1
      | "ap-east-2" -> Ap_east_2
      | "ap-northeast-1" -> Ap_northeast_1
      | "ap-northeast-2" -> Ap_northeast_2
      | "ap-northeast-3" -> Ap_northeast_3
      | "ap-south-1" -> Ap_south_1
      | "ap-south-2" -> Ap_south_2
      | "ap-southeast-1" -> Ap_southeast_1
      | "ap-southeast-2" -> Ap_southeast_2
      | "ap-southeast-3" -> Ap_southeast_3
      | "ap-southeast-4" -> Ap_southeast_4
      | "ap-southeast-5" -> Ap_southeast_5
      | "ap-southeast-6" -> Ap_southeast_6
      | "ap-southeast-7" -> Ap_southeast_7
      | "ca-central-1" -> Ca_central_1
      | "ca-west-1" -> Ca_west_1
      | "cn-north-1" -> Cn_north_1
      | "cn-northwest-1" -> Cn_northwest_1
      | "eu-central-1" -> Eu_central_1
      | "eu-central-2" -> Eu_central_2
      | "eu-north-1" -> Eu_north_1
      | "eu-south-1" -> Eu_south_1
      | "eu-south-2" -> Eu_south_2
      | "eu-west-1" -> Eu_west_1
      | "eu-west-2" -> Eu_west_2
      | "eu-west-3" -> Eu_west_3
      | "il-central-1" -> Il_central_1
      | "me-central-1" -> Me_central_1
      | "me-south-1" -> Me_south_1
      | "mx-central-1" -> Mx_central_1
      | "sa-east-1" -> Sa_east_1
      | "us-east-1" -> Us_east_1
      | "us-east-2" -> Us_east_2
      | "us-west-1" -> Us_west_1
      | "us-west-2" -> Us_west_2
      | 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 AwsRegion" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AwsRegion" j)
    let to_json = simple_to_json to_value
  end
module IPAddress =
  struct
    type nonrec t = string
    let context_ = "IPAddress"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(?:(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?))|(?:(?:[A-F0-9]{1,4}:){7}[A-F0-9]{1,4})|(?:(?:[A-F0-9]{1,4}:){6}(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-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:"IPAddress" j
    let to_json = simple_to_json to_value
  end
module UserAgent =
  struct
    type nonrec t = string
    let context_ = "UserAgent"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"UserAgent" j
    let to_json = simple_to_json to_value
  end
module PersonName =
  struct
    type nonrec t = string
    let context_ = "PersonName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (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:"PersonName" j
    let to_json = simple_to_json to_value
  end
module AWSAccountId =
  struct
    type nonrec t = string
    let context_ = "AWSAccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AWSAccountId" j
    let to_json = simple_to_json to_value
  end
module MembershipArn =
  struct
    type nonrec t = string
    let context_ = "MembershipArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:80) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:security-ir:\\w+?-\\w+?-\\d+:[0-9]{12}:membership/m-[a-z0-9]{10,32}")));
        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:"MembershipArn" j
    let to_json = simple_to_json to_value
  end
module MembershipId =
  struct
    type nonrec t = string
    let context_ = "MembershipId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:34) >>=
                  (fun () -> check_pattern i ~pattern:"m-[a-z0-9]{10,32}")));
        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:"MembershipId" j
    let to_json = simple_to_json to_value
  end
module MembershipStatus =
  struct
    type nonrec t =
      | Active 
      | Cancelled 
      | Terminated 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "Active"
      | Cancelled -> "Cancelled"
      | Terminated -> "Terminated"
      | Non_static_id s -> s
    let of_string =
      function
      | "Active" -> Active
      | "Cancelled" -> Cancelled
      | "Terminated" -> Terminated
      | 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 MembershipStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MembershipStatus" j)
    let to_json = simple_to_json to_value
  end
module ActionType =
  struct
    type nonrec t =
      | Evidence 
      | Investigation 
      | Summarization 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Evidence -> "Evidence"
      | Investigation -> "Investigation"
      | Summarization -> "Summarization"
      | Non_static_id s -> s
    let of_string =
      function
      | "Evidence" -> Evidence
      | "Investigation" -> Investigation
      | "Summarization" -> Summarization
      | 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 ActionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ActionType" j)
    let to_json = simple_to_json to_value
  end
module ExecutionStatus =
  struct
    type nonrec t =
      | Pending 
      | InProgress 
      | Waiting 
      | Completed 
      | Failed 
      | Cancelled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Pending -> "Pending"
      | InProgress -> "InProgress"
      | Waiting -> "Waiting"
      | Completed -> "Completed"
      | Failed -> "Failed"
      | Cancelled -> "Cancelled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Pending" -> Pending
      | "InProgress" -> InProgress
      | "Waiting" -> Waiting
      | "Completed" -> Completed
      | "Failed" -> Failed
      | "Cancelled" -> 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 ExecutionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExecutionStatus" j)
    let to_json = simple_to_json to_value
  end
module InvestigationContent =
  struct
    type nonrec t = string
    let context_ = "InvestigationContent"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:5000) >>=
             (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:"InvestigationContent" j
    let to_json = simple_to_json to_value
  end
module InvestigationFeedback =
  struct
    type nonrec t =
      {
      usefulness: UsefulnessRating.t option
        [@ocaml.doc
          "User assessment of the investigation result's quality and helpfulness. This rating indicates how valuable the investigation findings were in addressing the case."];
      comment: FeedbackComment.t option
        [@ocaml.doc
          "Optional user comments providing additional context about the investigation feedback. This allows users to explain their rating or provide suggestions for improvement."];
      submittedAt: Timestamp.t option
        [@ocaml.doc
          "ISO 8601 timestamp when the feedback was submitted. This records when the user provided their assessment of the investigation results."]}
    let make ?usefulness =
      fun ?comment ->
        fun ?submittedAt -> fun () -> { usefulness; comment; submittedAt }
    let to_value x =
      structure_to_value
        [("usefulness",
           (Option.map x.usefulness ~f:UsefulnessRating.to_value));
        ("comment", (Option.map x.comment ~f:FeedbackComment.to_value));
        ("submittedAt", (Option.map x.submittedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let submittedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "submittedAt") in
      let comment =
        (Option.map ~f:FeedbackComment.of_xml) (Xml.child xml_arg0 "comment") in
      let usefulness =
        (Option.map ~f:UsefulnessRating.of_xml)
          (Xml.child xml_arg0 "usefulness") in
      make ?submittedAt ?comment ?usefulness ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let submittedAt = field_map json__ "submittedAt" Timestamp.of_json in
      let comment = field_map json__ "comment" FeedbackComment.of_json in
      let usefulness = field_map json__ "usefulness" UsefulnessRating.of_json in
      make ?submittedAt ?comment ?usefulness ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents user feedback for an investigation result. This structure captures the user's evaluation of the investigation's quality, usefulness, and any additional comments."]
module InvestigationId =
  struct
    type nonrec t = string
    let context_ = "InvestigationId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"inv-[a-z0-9]{10,32}"); 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:"InvestigationId" j
    let to_json = simple_to_json to_value
  end
module InvestigationTitle =
  struct
    type nonrec t = string
    let context_ = "InvestigationTitle"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (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:"InvestigationTitle" j
    let to_json = simple_to_json to_value
  end
module CommentBody =
  struct
    type nonrec t = string
    let context_ = "CommentBody"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:12000) >>=
             (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:"CommentBody" j
    let to_json = simple_to_json to_value
  end
module CommentId =
  struct
    type nonrec t = string
    let context_ = "CommentId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () ->
                (check_string_max i ~max:6) >>=
                  (fun () -> check_pattern i ~pattern:"\\d{6}")));
        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:"CommentId" j
    let to_json = simple_to_json to_value
  end
module PrincipalId =
  struct
    type nonrec t = string
    let context_ = "PrincipalId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:".*((^AWS Responder)|(^\\d{12}$)|(^arn:([^:]*aws[^:]*):(?:(?:iam)::\\d{12}:(?:user|role|group|root)(?:(?:/[^/]+)+)?|(?:sts)::\\d{12}:assumed-role/[^/]+/[^/]+)$)|(^security-ir.amazonaws.com)).*");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PrincipalId" j
    let to_json = simple_to_json to_value
  end
module CaseArn =
  struct
    type nonrec t = string
    let context_ = "CaseArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:80) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:security-ir:\\w+?-\\w+?-\\d+:[0-9]{12}:case/[0-9]{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:"CaseArn" j
    let to_json = simple_to_json to_value
  end
module CaseId =
  struct
    type nonrec t = string
    let context_ = "CaseId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:10) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () -> check_pattern i ~pattern:"\\d{10,32}.*")));
        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:"CaseId" j
    let to_json = simple_to_json to_value
  end
module CaseStatus =
  struct
    type nonrec t =
      | Submitted 
      | Acknowledged 
      | Detection_and_Analysis 
      | Containment__Eradication_and_Recovery 
      | Post_incident_Activities 
      | Ready_to_Close 
      | Closed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Submitted -> "Submitted"
      | Acknowledged -> "Acknowledged"
      | Detection_and_Analysis -> "Detection and Analysis"
      | Containment__Eradication_and_Recovery ->
          "Containment, Eradication and Recovery"
      | Post_incident_Activities -> "Post-incident Activities"
      | Ready_to_Close -> "Ready to Close"
      | Closed -> "Closed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Submitted" -> Submitted
      | "Acknowledged" -> Acknowledged
      | "Detection and Analysis" -> Detection_and_Analysis
      | "Containment, Eradication and Recovery" ->
          Containment__Eradication_and_Recovery
      | "Post-incident Activities" -> Post_incident_Activities
      | "Ready to Close" -> Ready_to_Close
      | "Closed" -> Closed
      | 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 CaseStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CaseStatus" j)
    let to_json = simple_to_json to_value
  end
module CaseTitle =
  struct
    type nonrec t = string
    let context_ = "CaseTitle"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:300) >>=
             (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:"CaseTitle" j
    let to_json = simple_to_json to_value
  end
module EngagementType =
  struct
    type nonrec t =
      | Security_Incident 
      | Investigation 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Security_Incident -> "Security Incident"
      | Investigation -> "Investigation"
      | Non_static_id s -> s
    let of_string =
      function
      | "Security Incident" -> Security_Incident
      | "Investigation" -> Investigation
      | 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 EngagementType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EngagementType" j)
    let to_json = simple_to_json to_value
  end
module PendingAction =
  struct
    type nonrec t =
      | Customer 
      | None 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Customer -> "Customer"
      | None -> "None"
      | Non_static_id s -> s
    let of_string =
      function
      | "Customer" -> Customer
      | "None" -> None
      | 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 PendingAction" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PendingAction" j)
    let to_json = simple_to_json to_value
  end
module ResolverType =
  struct
    type nonrec t =
      | AWS 
      | Self 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | AWS -> "AWS" | Self -> "Self" | Non_static_id s -> s
    let of_string =
      function | "AWS" -> AWS | "Self" -> Self | 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 ResolverType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResolverType" j)
    let to_json = simple_to_json to_value
  end
module CaseEditAction =
  struct
    type nonrec t = string
    let context_ = "CaseEditAction"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CaseEditAction" j
    let to_json = simple_to_json to_value
  end
module CaseEditMessage =
  struct
    type nonrec t = string
    let context_ = "CaseEditMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:4096) >>=
             (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:"CaseEditMessage" j
    let to_json = simple_to_json to_value
  end
module AttachmentId =
  struct
    type nonrec t = string
    let context_ = "AttachmentId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[0-9a-fA-F]{8}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AttachmentId" j
    let to_json = simple_to_json to_value
  end
module CaseAttachmentStatus =
  struct
    type nonrec t =
      | Verified 
      | Failed 
      | Pending 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Verified -> "Verified"
      | Failed -> "Failed"
      | Pending -> "Pending"
      | Non_static_id s -> s
    let of_string =
      function
      | "Verified" -> Verified
      | "Failed" -> Failed
      | "Pending" -> Pending
      | 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 CaseAttachmentStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CaseAttachmentStatus" j)
    let to_json = simple_to_json to_value
  end
module FileName =
  struct
    type nonrec t = string
    let context_ = "FileName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9._-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FileName" j
    let to_json = simple_to_json to_value
  end
module MembershipAccountRelationshipStatus =
  struct
    type nonrec t =
      | Associated 
      | Disassociated 
      | Unassociated 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Associated -> "Associated"
      | Disassociated -> "Disassociated"
      | Unassociated -> "Unassociated"
      | Non_static_id s -> s
    let of_string =
      function
      | "Associated" -> Associated
      | "Disassociated" -> Disassociated
      | "Unassociated" -> Unassociated
      | 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 MembershipAccountRelationshipStatus" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"MembershipAccountRelationshipStatus" j)
    let to_json = simple_to_json to_value
  end
module MembershipAccountRelationshipType =
  struct
    type nonrec t =
      | Organization 
      | Unrelated 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Organization -> "Organization"
      | Unrelated -> "Unrelated"
      | Non_static_id s -> s
    let of_string =
      function
      | "Organization" -> Organization
      | "Unrelated" -> Unrelated
      | 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 MembershipAccountRelationshipType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"MembershipAccountRelationshipType" 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 ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ValidationExceptionField.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | UNKNOWN_OPERATION 
      | CANNOT_PARSE 
      | FIELD_VALIDATION_FAILED 
      | OTHER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNKNOWN_OPERATION -> "UNKNOWN_OPERATION"
      | CANNOT_PARSE -> "CANNOT_PARSE"
      | FIELD_VALIDATION_FAILED -> "FIELD_VALIDATION_FAILED"
      | OTHER -> "OTHER"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNKNOWN_OPERATION" -> UNKNOWN_OPERATION
      | "CANNOT_PARSE" -> CANNOT_PARSE
      | "FIELD_VALIDATION_FAILED" -> FIELD_VALIDATION_FAILED
      | "OTHER" -> OTHER
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module IncidentResponder =
  struct
    type nonrec t =
      {
      name: IncidentResponderName.t ;
      jobTitle: JobTitle.t ;
      email: EmailAddress.t ;
      communicationPreferences: CommunicationPreferences.t option }
    let context_ = "IncidentResponder"
    let make ?communicationPreferences =
      fun ~name ->
        fun ~jobTitle ->
          fun ~email ->
            fun () -> { communicationPreferences; name; jobTitle; email }
    let to_value x =
      structure_to_value
        [("name", (Some (IncidentResponderName.to_value x.name)));
        ("jobTitle", (Some (JobTitle.to_value x.jobTitle)));
        ("email", (Some (EmailAddress.to_value x.email)));
        ("communicationPreferences",
          (Option.map x.communicationPreferences
             ~f:CommunicationPreferences.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let communicationPreferences =
        (Option.map ~f:CommunicationPreferences.of_xml)
          (Xml.child xml_arg0 "communicationPreferences") in
      let email =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "email") in
      let jobTitle =
        JobTitle.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobTitle") in
      let name =
        IncidentResponderName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?communicationPreferences ~email ~jobTitle ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let communicationPreferences =
        field_map json__ "communicationPreferences"
          CommunicationPreferences.of_json in
      let email = field_map_exn json__ "email" EmailAddress.of_json in
      let jobTitle = field_map_exn json__ "jobTitle" JobTitle.of_json in
      let name = field_map_exn json__ "name" IncidentResponderName.of_json in
      make ?communicationPreferences ~email ~jobTitle ~name ()
    let to_json v = composed_to_json to_value v
  end
module MembershipAccountsConfigurationsUpdateOrganizationalUnitsToAddList =
  struct
    type nonrec t = OrganizationalUnitId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:OrganizationalUnitId.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:OrganizationalUnitId.of_xml)
    let of_json j =
      list_of_json
        ~kind:"MembershipAccountsConfigurationsUpdateOrganizationalUnitsToAddList"
        ~of_json:OrganizationalUnitId.of_json j
    let to_json v = composed_to_json to_value v
  end
module MembershipAccountsConfigurationsUpdateOrganizationalUnitsToRemoveList =
  struct
    type nonrec t = OrganizationalUnitId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:OrganizationalUnitId.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:OrganizationalUnitId.of_xml)
    let of_json j =
      list_of_json
        ~kind:"MembershipAccountsConfigurationsUpdateOrganizationalUnitsToRemoveList"
        ~of_json:OrganizationalUnitId.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptInFeature =
  struct
    type nonrec t = {
      featureName: OptInFeatureName.t ;
      isEnabled: Boolean.t }
    let context_ = "OptInFeature"
    let make ~featureName =
      fun ~isEnabled -> fun () -> { featureName; isEnabled }
    let to_value x =
      structure_to_value
        [("featureName", (Some (OptInFeatureName.to_value x.featureName)));
        ("isEnabled", (Some (Boolean.to_value x.isEnabled)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isEnabled =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "isEnabled") in
      let featureName =
        OptInFeatureName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "featureName") in
      make ~isEnabled ~featureName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isEnabled = field_map_exn json__ "isEnabled" Boolean.of_json in
      let featureName =
        field_map_exn json__ "featureName" OptInFeatureName.of_json in
      make ~isEnabled ~featureName ()
    let to_json v = composed_to_json to_value v
  end
module CaseMetadataEntry =
  struct
    type nonrec t =
      {
      key: CaseMetadataEntryKeyString.t
        [@ocaml.doc
          "The identifier for the metadata field. This key uniquely identifies the type of metadata being stored, such as \"severity\", \"category\", or \"assignee\"."];
      value: CaseMetadataEntryValueString.t
        [@ocaml.doc
          "The value associated with the metadata key. This contains the actual data for the metadata field identified by the key."]}
    let context_ = "CaseMetadataEntry"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Some (CaseMetadataEntryKeyString.to_value x.key)));
        ("value", (Some (CaseMetadataEntryValueString.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        CaseMetadataEntryValueString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let key =
        CaseMetadataEntryKeyString.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" CaseMetadataEntryValueString.of_json in
      let key = field_map_exn json__ "key" CaseMetadataEntryKeyString.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a single metadata entry associated with a case. Each entry consists of a key-value pair that provides additional contextual information about the case, such as classification tags, custom attributes, or system-generated properties."]
module ImpactedAwsRegion =
  struct
    type nonrec t = {
      region: AwsRegion.t }
    let context_ = "ImpactedAwsRegion"
    let make ~region = fun () -> { region }
    let to_value x =
      structure_to_value [("region", (Some (AwsRegion.to_value x.region)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let region =
        AwsRegion.of_xml (Xml.child_exn ~context:context_ xml_arg0 "region") in
      make ~region ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let region = field_map_exn json__ "region" AwsRegion.of_json in
      make ~region ()
    let to_json v = composed_to_json to_value v
  end
module AwsService =
  struct
    type nonrec t = string
    let context_ = "AwsService"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9 -.():]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AwsService" j
    let to_json = simple_to_json to_value
  end
module ThreatActorIp =
  struct
    type nonrec t = {
      ipAddress: IPAddress.t ;
      userAgent: UserAgent.t option }
    let context_ = "ThreatActorIp"
    let make ?userAgent =
      fun ~ipAddress -> fun () -> { userAgent; ipAddress }
    let to_value x =
      structure_to_value
        [("ipAddress", (Some (IPAddress.to_value x.ipAddress)));
        ("userAgent", (Option.map x.userAgent ~f:UserAgent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userAgent =
        (Option.map ~f:UserAgent.of_xml) (Xml.child xml_arg0 "userAgent") in
      let ipAddress =
        IPAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ipAddress") in
      make ?userAgent ~ipAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userAgent = field_map json__ "userAgent" UserAgent.of_json in
      let ipAddress = field_map_exn json__ "ipAddress" IPAddress.of_json in
      make ?userAgent ~ipAddress ()
    let to_json v = composed_to_json to_value v
  end
module Watcher =
  struct
    type nonrec t =
      {
      email: EmailAddress.t ;
      name: PersonName.t option ;
      jobTitle: JobTitle.t option }
    let context_ = "Watcher"
    let make ?name =
      fun ?jobTitle -> fun ~email -> fun () -> { name; jobTitle; email }
    let to_value x =
      structure_to_value
        [("email", (Some (EmailAddress.to_value x.email)));
        ("name", (Option.map x.name ~f:PersonName.to_value));
        ("jobTitle", (Option.map x.jobTitle ~f:JobTitle.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobTitle =
        (Option.map ~f:JobTitle.of_xml) (Xml.child xml_arg0 "jobTitle") in
      let name =
        (Option.map ~f:PersonName.of_xml) (Xml.child xml_arg0 "name") in
      let email =
        EmailAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "email") in
      make ?jobTitle ?name ~email ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobTitle = field_map json__ "jobTitle" JobTitle.of_json in
      let name = field_map json__ "name" PersonName.of_json in
      let email = field_map_exn json__ "email" EmailAddress.of_json in
      make ?jobTitle ?name ~email ()
    let to_json v = composed_to_json to_value v
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    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:"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 ListMembershipItem =
  struct
    type nonrec t =
      {
      membershipId: MembershipId.t option ;
      accountId: AWSAccountId.t option ;
      region: AwsRegion.t option ;
      membershipArn: MembershipArn.t option ;
      membershipStatus: MembershipStatus.t option }
    let make ?membershipId =
      fun ?accountId ->
        fun ?region ->
          fun ?membershipArn ->
            fun ?membershipStatus ->
              fun () ->
                {
                  membershipId;
                  accountId;
                  region;
                  membershipArn;
                  membershipStatus
                }
    let to_value x =
      structure_to_value
        [("membershipId",
           (Option.map x.membershipId ~f:MembershipId.to_value));
        ("accountId", (Option.map x.accountId ~f:AWSAccountId.to_value));
        ("region", (Option.map x.region ~f:AwsRegion.to_value));
        ("membershipArn",
          (Option.map x.membershipArn ~f:MembershipArn.to_value));
        ("membershipStatus",
          (Option.map x.membershipStatus ~f:MembershipStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let membershipStatus =
        (Option.map ~f:MembershipStatus.of_xml)
          (Xml.child xml_arg0 "membershipStatus") in
      let membershipArn =
        (Option.map ~f:MembershipArn.of_xml)
          (Xml.child xml_arg0 "membershipArn") in
      let region =
        (Option.map ~f:AwsRegion.of_xml) (Xml.child xml_arg0 "region") in
      let accountId =
        (Option.map ~f:AWSAccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let membershipId =
        (Option.map ~f:MembershipId.of_xml)
          (Xml.child xml_arg0 "membershipId") in
      make ?membershipStatus ?membershipArn ?region ?accountId ?membershipId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let membershipStatus =
        field_map json__ "membershipStatus" MembershipStatus.of_json in
      let membershipArn =
        field_map json__ "membershipArn" MembershipArn.of_json in
      let region = field_map json__ "region" AwsRegion.of_json in
      let accountId = field_map json__ "accountId" AWSAccountId.of_json in
      let membershipId = field_map json__ "membershipId" MembershipId.of_json in
      make ?membershipStatus ?membershipArn ?region ?accountId ?membershipId
        ()
    let to_json v = composed_to_json to_value v
  end
module InvestigationAction =
  struct
    type nonrec t =
      {
      investigationId: InvestigationId.t option
        [@ocaml.doc
          "The unique identifier for this investigation action. This ID is used to track and reference the specific investigation throughout its lifecycle."];
      actionType: ActionType.t option
        [@ocaml.doc
          "The type of investigation action being performed. This categorizes the investigation method or approach used in the case."];
      title: InvestigationTitle.t option
        [@ocaml.doc
          "Human-readable summary of the investigation focus. This provides a brief description of what the investigation is examining or analyzing."];
      content: InvestigationContent.t option
        [@ocaml.doc
          "Detailed investigation results in rich markdown format. This field contains the comprehensive findings, analysis, and conclusions from the investigation."];
      status: ExecutionStatus.t option
        [@ocaml.doc
          "The current execution status of the investigation. This indicates whether the investigation is pending, in progress, completed, or failed."];
      lastUpdated: Timestamp.t option
        [@ocaml.doc
          "ISO 8601 timestamp of the most recent status update. This indicates when the investigation was last modified or when its status last changed."];
      feedback: InvestigationFeedback.t option
        [@ocaml.doc
          "User feedback for this investigation result. This contains the user's assessment and comments about the quality and usefulness of the investigation findings."]}
    let make ?investigationId =
      fun ?actionType ->
        fun ?title ->
          fun ?content ->
            fun ?status ->
              fun ?lastUpdated ->
                fun ?feedback ->
                  fun () ->
                    {
                      investigationId;
                      actionType;
                      title;
                      content;
                      status;
                      lastUpdated;
                      feedback
                    }
    let to_value x =
      structure_to_value
        [("investigationId",
           (Option.map x.investigationId ~f:InvestigationId.to_value));
        ("actionType", (Option.map x.actionType ~f:ActionType.to_value));
        ("title", (Option.map x.title ~f:InvestigationTitle.to_value));
        ("content", (Option.map x.content ~f:InvestigationContent.to_value));
        ("status", (Option.map x.status ~f:ExecutionStatus.to_value));
        ("lastUpdated", (Option.map x.lastUpdated ~f:Timestamp.to_value));
        ("feedback",
          (Option.map x.feedback ~f:InvestigationFeedback.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let feedback =
        (Option.map ~f:InvestigationFeedback.of_xml)
          (Xml.child xml_arg0 "feedback") in
      let lastUpdated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdated") in
      let status =
        (Option.map ~f:ExecutionStatus.of_xml) (Xml.child xml_arg0 "status") in
      let content =
        (Option.map ~f:InvestigationContent.of_xml)
          (Xml.child xml_arg0 "content") in
      let title =
        (Option.map ~f:InvestigationTitle.of_xml)
          (Xml.child xml_arg0 "title") in
      let actionType =
        (Option.map ~f:ActionType.of_xml) (Xml.child xml_arg0 "actionType") in
      let investigationId =
        (Option.map ~f:InvestigationId.of_xml)
          (Xml.child xml_arg0 "investigationId") in
      make ?feedback ?lastUpdated ?status ?content ?title ?actionType
        ?investigationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let feedback =
        field_map json__ "feedback" InvestigationFeedback.of_json in
      let lastUpdated = field_map json__ "lastUpdated" Timestamp.of_json in
      let status = field_map json__ "status" ExecutionStatus.of_json in
      let content = field_map json__ "content" InvestigationContent.of_json in
      let title = field_map json__ "title" InvestigationTitle.of_json in
      let actionType = field_map json__ "actionType" ActionType.of_json in
      let investigationId =
        field_map json__ "investigationId" InvestigationId.of_json in
      make ?feedback ?lastUpdated ?status ?content ?title ?actionType
        ?investigationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents an investigation action performed within a case. This structure captures the details of an automated or manual investigation, including its status, results, and user feedback."]
module ListCommentsItem =
  struct
    type nonrec t =
      {
      commentId: CommentId.t option ;
      createdDate: Timestamp.t option ;
      lastUpdatedDate: Timestamp.t option ;
      creator: PrincipalId.t option ;
      lastUpdatedBy: PrincipalId.t option ;
      body: CommentBody.t option }
    let make ?commentId =
      fun ?createdDate ->
        fun ?lastUpdatedDate ->
          fun ?creator ->
            fun ?lastUpdatedBy ->
              fun ?body ->
                fun () ->
                  {
                    commentId;
                    createdDate;
                    lastUpdatedDate;
                    creator;
                    lastUpdatedBy;
                    body
                  }
    let to_value x =
      structure_to_value
        [("commentId", (Option.map x.commentId ~f:CommentId.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Timestamp.to_value));
        ("lastUpdatedDate",
          (Option.map x.lastUpdatedDate ~f:Timestamp.to_value));
        ("creator", (Option.map x.creator ~f:PrincipalId.to_value));
        ("lastUpdatedBy",
          (Option.map x.lastUpdatedBy ~f:PrincipalId.to_value));
        ("body", (Option.map x.body ~f:CommentBody.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let body =
        (Option.map ~f:CommentBody.of_xml) (Xml.child xml_arg0 "body") in
      let lastUpdatedBy =
        (Option.map ~f:PrincipalId.of_xml)
          (Xml.child xml_arg0 "lastUpdatedBy") in
      let creator =
        (Option.map ~f:PrincipalId.of_xml) (Xml.child xml_arg0 "creator") in
      let lastUpdatedDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdatedDate") in
      let createdDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdDate") in
      let commentId =
        (Option.map ~f:CommentId.of_xml) (Xml.child xml_arg0 "commentId") in
      make ?body ?lastUpdatedBy ?creator ?lastUpdatedDate ?createdDate
        ?commentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let body = field_map json__ "body" CommentBody.of_json in
      let lastUpdatedBy =
        field_map json__ "lastUpdatedBy" PrincipalId.of_json in
      let creator = field_map json__ "creator" PrincipalId.of_json in
      let lastUpdatedDate =
        field_map json__ "lastUpdatedDate" Timestamp.of_json in
      let createdDate = field_map json__ "createdDate" Timestamp.of_json in
      let commentId = field_map json__ "commentId" CommentId.of_json in
      make ?body ?lastUpdatedBy ?creator ?lastUpdatedDate ?createdDate
        ?commentId ()
    let to_json v = composed_to_json to_value v
  end
module ListCasesItem =
  struct
    type nonrec t =
      {
      caseId: CaseId.t option ;
      lastUpdatedDate: Timestamp.t option ;
      title: CaseTitle.t option ;
      caseArn: CaseArn.t option ;
      engagementType: EngagementType.t option ;
      caseStatus: CaseStatus.t option ;
      createdDate: Timestamp.t option ;
      closedDate: Timestamp.t option ;
      resolverType: ResolverType.t option ;
      pendingAction: PendingAction.t option }
    let make ?caseId =
      fun ?lastUpdatedDate ->
        fun ?title ->
          fun ?caseArn ->
            fun ?engagementType ->
              fun ?caseStatus ->
                fun ?createdDate ->
                  fun ?closedDate ->
                    fun ?resolverType ->
                      fun ?pendingAction ->
                        fun () ->
                          {
                            caseId;
                            lastUpdatedDate;
                            title;
                            caseArn;
                            engagementType;
                            caseStatus;
                            createdDate;
                            closedDate;
                            resolverType;
                            pendingAction
                          }
    let to_value x =
      structure_to_value
        [("caseId", (Option.map x.caseId ~f:CaseId.to_value));
        ("lastUpdatedDate",
          (Option.map x.lastUpdatedDate ~f:Timestamp.to_value));
        ("title", (Option.map x.title ~f:CaseTitle.to_value));
        ("caseArn", (Option.map x.caseArn ~f:CaseArn.to_value));
        ("engagementType",
          (Option.map x.engagementType ~f:EngagementType.to_value));
        ("caseStatus", (Option.map x.caseStatus ~f:CaseStatus.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Timestamp.to_value));
        ("closedDate", (Option.map x.closedDate ~f:Timestamp.to_value));
        ("resolverType",
          (Option.map x.resolverType ~f:ResolverType.to_value));
        ("pendingAction",
          (Option.map x.pendingAction ~f:PendingAction.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pendingAction =
        (Option.map ~f:PendingAction.of_xml)
          (Xml.child xml_arg0 "pendingAction") in
      let resolverType =
        (Option.map ~f:ResolverType.of_xml)
          (Xml.child xml_arg0 "resolverType") in
      let closedDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "closedDate") in
      let createdDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdDate") in
      let caseStatus =
        (Option.map ~f:CaseStatus.of_xml) (Xml.child xml_arg0 "caseStatus") in
      let engagementType =
        (Option.map ~f:EngagementType.of_xml)
          (Xml.child xml_arg0 "engagementType") in
      let caseArn =
        (Option.map ~f:CaseArn.of_xml) (Xml.child xml_arg0 "caseArn") in
      let title =
        (Option.map ~f:CaseTitle.of_xml) (Xml.child xml_arg0 "title") in
      let lastUpdatedDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdatedDate") in
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "caseId") in
      make ?pendingAction ?resolverType ?closedDate ?createdDate ?caseStatus
        ?engagementType ?caseArn ?title ?lastUpdatedDate ?caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pendingAction =
        field_map json__ "pendingAction" PendingAction.of_json in
      let resolverType = field_map json__ "resolverType" ResolverType.of_json in
      let closedDate = field_map json__ "closedDate" Timestamp.of_json in
      let createdDate = field_map json__ "createdDate" Timestamp.of_json in
      let caseStatus = field_map json__ "caseStatus" CaseStatus.of_json in
      let engagementType =
        field_map json__ "engagementType" EngagementType.of_json in
      let caseArn = field_map json__ "caseArn" CaseArn.of_json in
      let title = field_map json__ "title" CaseTitle.of_json in
      let lastUpdatedDate =
        field_map json__ "lastUpdatedDate" Timestamp.of_json in
      let caseId = field_map json__ "caseId" CaseId.of_json in
      make ?pendingAction ?resolverType ?closedDate ?createdDate ?caseStatus
        ?engagementType ?caseArn ?title ?lastUpdatedDate ?caseId ()
    let to_json v = composed_to_json to_value v
  end
module CaseEditItem =
  struct
    type nonrec t =
      {
      eventTimestamp: Timestamp.t option ;
      principal: String_.t option ;
      action: CaseEditAction.t option ;
      message: CaseEditMessage.t option }
    let make ?eventTimestamp =
      fun ?principal ->
        fun ?action ->
          fun ?message ->
            fun () -> { eventTimestamp; principal; action; message }
    let to_value x =
      structure_to_value
        [("eventTimestamp",
           (Option.map x.eventTimestamp ~f:Timestamp.to_value));
        ("principal", (Option.map x.principal ~f:String_.to_value));
        ("action", (Option.map x.action ~f:CaseEditAction.to_value));
        ("message", (Option.map x.message ~f:CaseEditMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:CaseEditMessage.of_xml) (Xml.child xml_arg0 "message") in
      let action =
        (Option.map ~f:CaseEditAction.of_xml) (Xml.child xml_arg0 "action") in
      let principal =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "principal") in
      let eventTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "eventTimestamp") in
      make ?message ?action ?principal ?eventTimestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" CaseEditMessage.of_json in
      let action = field_map json__ "action" CaseEditAction.of_json in
      let principal = field_map json__ "principal" String_.of_json in
      let eventTimestamp =
        field_map json__ "eventTimestamp" Timestamp.of_json in
      make ?message ?action ?principal ?eventTimestamp ()
    let to_json v = composed_to_json to_value v
  end
module OrganizationalUnits =
  struct
    type nonrec t = OrganizationalUnitId.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:OrganizationalUnitId.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:OrganizationalUnitId.of_xml)
    let of_json j =
      list_of_json ~kind:"OrganizationalUnits"
        ~of_json:OrganizationalUnitId.of_json j
    let to_json v = composed_to_json to_value v
  end
module CaseAttachmentAttributes =
  struct
    type nonrec t =
      {
      attachmentId: AttachmentId.t option ;
      fileName: FileName.t option ;
      attachmentStatus: CaseAttachmentStatus.t option ;
      creator: PrincipalId.t option ;
      createdDate: Timestamp.t option }
    let make ?attachmentId =
      fun ?fileName ->
        fun ?attachmentStatus ->
          fun ?creator ->
            fun ?createdDate ->
              fun () ->
                {
                  attachmentId;
                  fileName;
                  attachmentStatus;
                  creator;
                  createdDate
                }
    let to_value x =
      structure_to_value
        [("attachmentId",
           (Option.map x.attachmentId ~f:AttachmentId.to_value));
        ("fileName", (Option.map x.fileName ~f:FileName.to_value));
        ("attachmentStatus",
          (Option.map x.attachmentStatus ~f:CaseAttachmentStatus.to_value));
        ("creator", (Option.map x.creator ~f:PrincipalId.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdDate") in
      let creator =
        (Option.map ~f:PrincipalId.of_xml) (Xml.child xml_arg0 "creator") in
      let attachmentStatus =
        (Option.map ~f:CaseAttachmentStatus.of_xml)
          (Xml.child xml_arg0 "attachmentStatus") in
      let fileName =
        (Option.map ~f:FileName.of_xml) (Xml.child xml_arg0 "fileName") in
      let attachmentId =
        (Option.map ~f:AttachmentId.of_xml)
          (Xml.child xml_arg0 "attachmentId") in
      make ?createdDate ?creator ?attachmentStatus ?fileName ?attachmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdDate = field_map json__ "createdDate" Timestamp.of_json in
      let creator = field_map json__ "creator" PrincipalId.of_json in
      let attachmentStatus =
        field_map json__ "attachmentStatus" CaseAttachmentStatus.of_json in
      let fileName = field_map json__ "fileName" FileName.of_json in
      let attachmentId = field_map json__ "attachmentId" AttachmentId.of_json in
      make ?createdDate ?creator ?attachmentStatus ?fileName ?attachmentId ()
    let to_json v = composed_to_json to_value v
  end
module GetMembershipAccountDetailError =
  struct
    type nonrec t =
      {
      accountId: AWSAccountId.t option ;
      error: String_.t option ;
      message: String_.t option }
    let make ?accountId =
      fun ?error -> fun ?message -> fun () -> { accountId; error; message }
    let to_value x =
      structure_to_value
        [("accountId", (Option.map x.accountId ~f:AWSAccountId.to_value));
        ("error", (Option.map x.error ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let error = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "error") in
      let accountId =
        (Option.map ~f:AWSAccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      make ?message ?error ?accountId ()
    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 error = field_map json__ "error" String_.of_json in
      let accountId = field_map json__ "accountId" AWSAccountId.of_json in
      make ?message ?error ?accountId ()
    let to_json v = composed_to_json to_value v
  end
module GetMembershipAccountDetailItem =
  struct
    type nonrec t =
      {
      accountId: AWSAccountId.t option ;
      relationshipStatus: MembershipAccountRelationshipStatus.t option ;
      relationshipType: MembershipAccountRelationshipType.t option }
    let make ?accountId =
      fun ?relationshipStatus ->
        fun ?relationshipType ->
          fun () -> { accountId; relationshipStatus; relationshipType }
    let to_value x =
      structure_to_value
        [("accountId", (Option.map x.accountId ~f:AWSAccountId.to_value));
        ("relationshipStatus",
          (Option.map x.relationshipStatus
             ~f:MembershipAccountRelationshipStatus.to_value));
        ("relationshipType",
          (Option.map x.relationshipType
             ~f:MembershipAccountRelationshipType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relationshipType =
        (Option.map ~f:MembershipAccountRelationshipType.of_xml)
          (Xml.child xml_arg0 "relationshipType") in
      let relationshipStatus =
        (Option.map ~f:MembershipAccountRelationshipStatus.of_xml)
          (Xml.child xml_arg0 "relationshipStatus") in
      let accountId =
        (Option.map ~f:AWSAccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      make ?relationshipType ?relationshipStatus ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relationshipType =
        field_map json__ "relationshipType"
          MembershipAccountRelationshipType.of_json in
      let relationshipStatus =
        field_map json__ "relationshipStatus"
          MembershipAccountRelationshipStatus.of_json in
      let accountId = field_map json__ "accountId" AWSAccountId.of_json in
      make ?relationshipType ?relationshipStatus ?accountId ()
    let to_json v = composed_to_json to_value v
  end
module AccessDeniedException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc
          "The ID of the resource which lead to the access denial."]}
    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
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option [@ocaml.doc "The exception message."];
      resourceId: String_.t option
        [@ocaml.doc "The ID of the conflicting resource."];
      resourceType: String_.t option
        [@ocaml.doc "The type of the conflicting resource."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end
module InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option [@ocaml.doc "The exception message."];
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "The number of seconds after which to retry the request."]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end
module InvalidTokenException =
  struct
    type nonrec t =
      {
      message: String_.t option [@ocaml.doc "The exception message."]}
    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
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option [@ocaml.doc "The exception message."]}
    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
module SecurityIncidentResponseNotActiveException =
  struct
    type nonrec t =
      {
      message: String_.t option [@ocaml.doc "The exception message."]}
    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
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option [@ocaml.doc "The exception message."];
      resourceId: String_.t option
        [@ocaml.doc
          "The ID of the requested resource which lead to the service quota exception."];
      resourceType: String_.t option
        [@ocaml.doc
          "The type of the requested resource which lead to the service quota exception."];
      serviceCode: String_.t option
        [@ocaml.doc "The service code of the quota."];
      quotaCode: String_.t option [@ocaml.doc "The code of the quota."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?serviceCode ->
            fun ?quotaCode ->
              fun () ->
                { message; resourceId; resourceType; serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option [@ocaml.doc "The exception message."];
      serviceCode: String_.t option
        [@ocaml.doc "The service code of the exception."];
      quotaCode: String_.t option
        [@ocaml.doc "The quota code of the exception."];
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "The number of seconds after which to retry the request."]}
    let make ?message =
      fun ?serviceCode ->
        fun ?quotaCode ->
          fun ?retryAfterSeconds ->
            fun () -> { message; serviceCode; quotaCode; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let to_json v = composed_to_json to_value v
  end
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option [@ocaml.doc "The exception message."];
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The reason for the exception."];
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc "The fields which lead to the exception."]}
    let make ?message =
      fun ?reason ->
        fun ?fieldList -> fun () -> { message; reason; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("fieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fieldList") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?fieldList ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldList =
        field_map json__ "fieldList" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?fieldList ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end
module IncidentResponseTeam =
  struct
    type nonrec t = IncidentResponder.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:2));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IncidentResponder.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:IncidentResponder.of_xml)
    let of_json j =
      list_of_json ~kind:"IncidentResponseTeam"
        ~of_json:IncidentResponder.of_json j
    let to_json v = composed_to_json to_value v
  end
module MembershipAccountsConfigurationsUpdate =
  struct
    type nonrec t =
      {
      coverEntireOrganization: Boolean.t option
        [@ocaml.doc
          "The coverEntireOrganization field is a boolean value that determines whether the membership configuration should be applied across the entire Amazon Web Services Organization. When set to true, the configuration will be applied to all accounts within the organization. When set to false, the configuration will only apply to specifically designated accounts."];
      organizationalUnitsToAdd:
        MembershipAccountsConfigurationsUpdateOrganizationalUnitsToAddList.t
          option
        [@ocaml.doc
          "A list of organizational unit IDs to add to the membership configuration. Each organizational unit ID must match the pattern ou-\\[0-9a-z\\]\\{4,32\\}-\\[a-z0-9\\]\\{8,32\\}. The list must contain between 1 and 5 organizational unit IDs."];
      organizationalUnitsToRemove:
        MembershipAccountsConfigurationsUpdateOrganizationalUnitsToRemoveList.t
          option
        [@ocaml.doc
          "A list of organizational unit IDs to remove from the membership configuration. Each organizational unit ID must match the pattern ou-\\[0-9a-z\\]\\{4,32\\}-\\[a-z0-9\\]\\{8,32\\}. The list must contain between 1 and 5 organizational unit IDs per invocation of the API request."]}
    let make ?coverEntireOrganization =
      fun ?organizationalUnitsToAdd ->
        fun ?organizationalUnitsToRemove ->
          fun () ->
            {
              coverEntireOrganization;
              organizationalUnitsToAdd;
              organizationalUnitsToRemove
            }
    let to_value x =
      structure_to_value
        [("coverEntireOrganization",
           (Option.map x.coverEntireOrganization ~f:Boolean.to_value));
        ("organizationalUnitsToAdd",
          (Option.map x.organizationalUnitsToAdd
             ~f:MembershipAccountsConfigurationsUpdateOrganizationalUnitsToAddList.to_value));
        ("organizationalUnitsToRemove",
          (Option.map x.organizationalUnitsToRemove
             ~f:MembershipAccountsConfigurationsUpdateOrganizationalUnitsToRemoveList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationalUnitsToRemove =
        (Option.map
           ~f:MembershipAccountsConfigurationsUpdateOrganizationalUnitsToRemoveList.of_xml)
          (Xml.child xml_arg0 "organizationalUnitsToRemove") in
      let organizationalUnitsToAdd =
        (Option.map
           ~f:MembershipAccountsConfigurationsUpdateOrganizationalUnitsToAddList.of_xml)
          (Xml.child xml_arg0 "organizationalUnitsToAdd") in
      let coverEntireOrganization =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "coverEntireOrganization") in
      make ?organizationalUnitsToRemove ?organizationalUnitsToAdd
        ?coverEntireOrganization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationalUnitsToRemove =
        field_map json__ "organizationalUnitsToRemove"
          MembershipAccountsConfigurationsUpdateOrganizationalUnitsToRemoveList.of_json in
      let organizationalUnitsToAdd =
        field_map json__ "organizationalUnitsToAdd"
          MembershipAccountsConfigurationsUpdateOrganizationalUnitsToAddList.of_json in
      let coverEntireOrganization =
        field_map json__ "coverEntireOrganization" Boolean.of_json in
      make ?organizationalUnitsToRemove ?organizationalUnitsToAdd
        ?coverEntireOrganization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The MembershipAccountsConfigurationsUpdatestructure represents the configuration updates for member accounts within an Amazon Web Services organization. This structure is used to modify existing account configurations and settings for members in the organization. When applying updates, ensure all required fields are properly specified to maintain account consistency. Key considerations when using this structure: All configuration changes are validated before being applied Updates are processed asynchronously in the background Configuration changes may take several minutes to propagate across all affected accounts"]
module MembershipName =
  struct
    type nonrec t = string
    let context_ = "MembershipName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:3));
        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:"MembershipName" j
    let to_json = simple_to_json to_value
  end
module OptInFeatures =
  struct
    type nonrec t = OptInFeature.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (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:OptInFeature.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:OptInFeature.of_xml)
    let of_json j =
      list_of_json ~kind:"OptInFeatures" ~of_json:OptInFeature.of_json j
    let to_json v = composed_to_json to_value v
  end
module SelfManagedCaseStatus =
  struct
    type nonrec t =
      | Submitted 
      | Detection_and_Analysis 
      | Containment__Eradication_and_Recovery 
      | Post_incident_Activities 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Submitted -> "Submitted"
      | Detection_and_Analysis -> "Detection and Analysis"
      | Containment__Eradication_and_Recovery ->
          "Containment, Eradication and Recovery"
      | Post_incident_Activities -> "Post-incident Activities"
      | Non_static_id s -> s
    let of_string =
      function
      | "Submitted" -> Submitted
      | "Detection and Analysis" -> Detection_and_Analysis
      | "Containment, Eradication and Recovery" ->
          Containment__Eradication_and_Recovery
      | "Post-incident Activities" -> Post_incident_Activities
      | 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 SelfManagedCaseStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SelfManagedCaseStatus" j)
    let to_json = simple_to_json to_value
  end
module CaseDescription =
  struct
    type nonrec t = string
    let context_ = "CaseDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:8000) >>=
             (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:"CaseDescription" j
    let to_json = simple_to_json to_value
  end
module CaseMetadata =
  struct
    type nonrec t = CaseMetadataEntry.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (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:CaseMetadataEntry.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:CaseMetadataEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"CaseMetadata" ~of_json:CaseMetadataEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImpactedAccounts =
  struct
    type nonrec t = AWSAccountId.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:AWSAccountId.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:AWSAccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"ImpactedAccounts" ~of_json:AWSAccountId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImpactedAwsRegionList =
  struct
    type nonrec t = ImpactedAwsRegion.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:ImpactedAwsRegion.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:ImpactedAwsRegion.of_xml)
    let of_json j =
      list_of_json ~kind:"ImpactedAwsRegionList"
        ~of_json:ImpactedAwsRegion.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImpactedServicesList =
  struct
    type nonrec t = AwsService.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:600) >>=
             (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:AwsService.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:AwsService.of_xml)
    let of_json j =
      list_of_json ~kind:"ImpactedServicesList" ~of_json:AwsService.of_json j
    let to_json v = composed_to_json to_value v
  end
module ThreatActorIpList =
  struct
    type nonrec t = ThreatActorIp.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:ThreatActorIp.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:ThreatActorIp.of_xml)
    let of_json j =
      list_of_json ~kind:"ThreatActorIpList" ~of_json:ThreatActorIp.of_json j
    let to_json v = composed_to_json to_value v
  end
module Watchers =
  struct
    type nonrec t = Watcher.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (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:Watcher.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:Watcher.of_xml)
    let of_json j = list_of_json ~kind:"Watchers" ~of_json:Watcher.of_json j
    let to_json v = composed_to_json to_value v
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:1010) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:security-ir:\\w+?-\\w+?-\\d+:[0-9]{12}:(membership/m-[a-z0-9]{10,32}|case/[0-9]{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:"Arn" j
    let to_json = simple_to_json to_value
  end
module TagKeys =
  struct
    type nonrec t = TagKey.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeys" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.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_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResultId =
  struct
    type nonrec t = string
    let context_ = "ResultId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"inv-[a-z0-9]{10,32}"); 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:"ResultId" j
    let to_json = simple_to_json to_value
  end
module ListMembershipItems =
  struct
    type nonrec t = ListMembershipItem.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:ListMembershipItem.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:ListMembershipItem.of_xml)
    let of_json j =
      list_of_json ~kind:"ListMembershipItems"
        ~of_json:ListMembershipItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListMembershipsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:25) >>= (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 ListMembershipsRequestMaxResultsInteger"
           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 ListMembershipsRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListMembershipsRequestNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000) >>=
             (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:"ListMembershipsRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module InvestigationActionList =
  struct
    type nonrec t = InvestigationAction.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:InvestigationAction.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:InvestigationAction.of_xml)
    let of_json j =
      list_of_json ~kind:"InvestigationActionList"
        ~of_json:InvestigationAction.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListInvestigationsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:25) >>= (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 ListInvestigationsRequestMaxResultsInteger"
           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 ListInvestigationsRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListInvestigationsRequestNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000) >>=
             (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:"ListInvestigationsRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ListCommentsItems =
  struct
    type nonrec t = ListCommentsItem.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:ListCommentsItem.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:ListCommentsItem.of_xml)
    let of_json j =
      list_of_json ~kind:"ListCommentsItems"
        ~of_json:ListCommentsItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListCommentsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:25) >>= (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 ListCommentsRequestMaxResultsInteger"
           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 ListCommentsRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListCommentsRequestNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000) >>=
             (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:"ListCommentsRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ListCasesItems =
  struct
    type nonrec t = ListCasesItem.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:ListCasesItem.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:ListCasesItem.of_xml)
    let of_json j =
      list_of_json ~kind:"ListCasesItems" ~of_json:ListCasesItem.of_json j
    let to_json v = composed_to_json to_value v
  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 ListCasesRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:25) >>= (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 ListCasesRequestMaxResultsInteger" 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 ListCasesRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListCasesRequestNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000) >>=
             (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:"ListCasesRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module CaseEditItems =
  struct
    type nonrec t = CaseEditItem.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:CaseEditItem.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:CaseEditItem.of_xml)
    let of_json j =
      list_of_json ~kind:"CaseEditItems" ~of_json:CaseEditItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListCaseEditsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:25) >>= (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 ListCaseEditsRequestMaxResultsInteger"
           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 ListCaseEditsRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListCaseEditsRequestNextTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000) >>=
             (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:"ListCaseEditsRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module CustomerType =
  struct
    type nonrec t =
      | Standalone 
      | Organization 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Standalone -> "Standalone"
      | Organization -> "Organization"
      | Non_static_id s -> s
    let of_string =
      function
      | "Standalone" -> Standalone
      | "Organization" -> Organization
      | 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 CustomerType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CustomerType" j)
    let to_json = simple_to_json to_value
  end
module MembershipAccountsConfigurations =
  struct
    type nonrec t =
      {
      coverEntireOrganization: Boolean.t option
        [@ocaml.doc
          "The coverEntireOrganization field is a boolean value that determines whether the membership configuration applies to all accounts within an Amazon Web Services Organization. When set to true, the configuration will be applied across all accounts in the organization. When set to false, the configuration will only apply to specifically designated accounts under the AWS Organizational Units specificied."];
      organizationalUnits: OrganizationalUnits.t option
        [@ocaml.doc
          "A list of organizational unit IDs that follow the pattern ou-\\[0-9a-z\\]\\{4,32\\}-\\[a-z0-9\\]\\{8,32\\}. These IDs represent the organizational units within an Amazon Web Services Organizations structure that are covered by the membership. Each organizational unit ID in the list must: Begin with the prefix 'ou-' Contain between 4 and 32 alphanumeric characters in the first segment Contain between 8 and 32 alphanumeric characters in the second segment"]}
    let make ?coverEntireOrganization =
      fun ?organizationalUnits ->
        fun () -> { coverEntireOrganization; organizationalUnits }
    let to_value x =
      structure_to_value
        [("coverEntireOrganization",
           (Option.map x.coverEntireOrganization ~f:Boolean.to_value));
        ("organizationalUnits",
          (Option.map x.organizationalUnits ~f:OrganizationalUnits.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationalUnits =
        (Option.map ~f:OrganizationalUnits.of_xml)
          (Xml.child xml_arg0 "organizationalUnits") in
      let coverEntireOrganization =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "coverEntireOrganization") in
      make ?organizationalUnits ?coverEntireOrganization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationalUnits =
        field_map json__ "organizationalUnits" OrganizationalUnits.of_json in
      let coverEntireOrganization =
        field_map json__ "coverEntireOrganization" Boolean.of_json in
      make ?organizationalUnits ?coverEntireOrganization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The MembershipAccountsConfigurations structure defines the configuration settings for managing membership accounts withinAmazon Web Services. This structure contains settings that determine how member accounts are configured and managed within your organization, including: Account configuration preferences Membership validation rules Account access settings You can use this structure to define and maintain standardized configurations across multiple member accounts in your organization."]
module CaseAttachmentsList =
  struct
    type nonrec t = CaseAttachmentAttributes.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:CaseAttachmentAttributes.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:CaseAttachmentAttributes.of_xml)
    let of_json j =
      list_of_json ~kind:"CaseAttachmentsList"
        ~of_json:CaseAttachmentAttributes.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClosureCode =
  struct
    type nonrec t =
      | Investigation_Completed 
      | Not_Resolved 
      | False_Positive 
      | Duplicate 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Investigation_Completed -> "Investigation Completed"
      | Not_Resolved -> "Not Resolved"
      | False_Positive -> "False Positive"
      | Duplicate -> "Duplicate"
      | Non_static_id s -> s
    let of_string =
      function
      | "Investigation Completed" -> Investigation_Completed
      | "Not Resolved" -> Not_Resolved
      | "False Positive" -> False_Positive
      | "Duplicate" -> Duplicate
      | 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 ClosureCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ClosureCode" j)
    let to_json = simple_to_json to_value
  end
module Url =
  struct
    type nonrec t = string
    let context_ = "Url"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"https?://(?:www.)?[a-zA-Z0-9@:._+~#=-]{2,256}\\.[a-z]{2,6}\\b(?:[-a-zA-Z0-9@:%_+.~#?&/=]{0,2048})");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Url" j
    let to_json = simple_to_json to_value
  end
module ContentLength =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:104857600L) >>=
             (fun () -> check_int64_min i ~min:1L));
        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 GetCaseAttachmentUploadUrlRequestClientTokenString =
  struct
    type nonrec t = string
    let context_ = "GetCaseAttachmentUploadUrlRequestClientTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json
        ~kind:"GetCaseAttachmentUploadUrlRequestClientTokenString" j
    let to_json = simple_to_json to_value
  end
module CreateMembershipRequestClientTokenString =
  struct
    type nonrec t = string
    let context_ = "CreateMembershipRequestClientTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"CreateMembershipRequestClientTokenString" j
    let to_json = simple_to_json to_value
  end
module CreateCaseRequestClientTokenString =
  struct
    type nonrec t = string
    let context_ = "CreateCaseRequestClientTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"CreateCaseRequestClientTokenString" j
    let to_json = simple_to_json to_value
  end
module CreateCaseCommentRequestClientTokenString =
  struct
    type nonrec t = string
    let context_ = "CreateCaseCommentRequestClientTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"CreateCaseCommentRequestClientTokenString" j
    let to_json = simple_to_json to_value
  end
module GetMembershipAccountDetailErrors =
  struct
    type nonrec t = GetMembershipAccountDetailError.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:GetMembershipAccountDetailError.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:GetMembershipAccountDetailError.of_xml)
    let of_json j =
      list_of_json ~kind:"GetMembershipAccountDetailErrors"
        ~of_json:GetMembershipAccountDetailError.of_json j
    let to_json v = composed_to_json to_value v
  end
module GetMembershipAccountDetailItems =
  struct
    type nonrec t = GetMembershipAccountDetailItem.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:GetMembershipAccountDetailItem.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:GetMembershipAccountDetailItem.of_xml)
    let of_json j =
      list_of_json ~kind:"GetMembershipAccountDetailItems"
        ~of_json:GetMembershipAccountDetailItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module AWSAccountIds =
  struct
    type nonrec t = AWSAccountId.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:AWSAccountId.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:AWSAccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"AWSAccountIds" ~of_json:AWSAccountId.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateResolverTypeResponse =
  struct
    type nonrec t =
      {
      caseId: CaseId.t option
        [@ocaml.doc
          "Response element for UpdateResolver identifying the case ID being updated."];
      caseStatus: CaseStatus.t option
        [@ocaml.doc
          "Response element for UpdateResolver identifying the current status of the case."];
      resolverType: ResolverType.t option
        [@ocaml.doc
          "Response element for UpdateResolver identifying the current resolver of the case."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?caseId =
      fun ?caseStatus ->
        fun ?resolverType -> fun () -> { caseId; caseStatus; resolverType }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("caseId", (Option.map x.caseId ~f:CaseId.to_value));
        ("caseStatus", (Option.map x.caseStatus ~f:CaseStatus.to_value));
        ("resolverType",
          (Option.map x.resolverType ~f:ResolverType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverType =
        (Option.map ~f:ResolverType.of_xml)
          (Xml.child xml_arg0 "resolverType") in
      let caseStatus =
        (Option.map ~f:CaseStatus.of_xml) (Xml.child xml_arg0 "caseStatus") in
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "caseId") in
      make ?resolverType ?caseStatus ?caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverType = field_map json__ "resolverType" ResolverType.of_json in
      let caseStatus = field_map json__ "caseStatus" CaseStatus.of_json in
      let caseId = field_map json__ "caseId" CaseId.of_json in
      make ?resolverType ?caseStatus ?caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the resolver type for a case. This is a one-way action and cannot be reversed."]
module UpdateResolverTypeRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t
        [@ocaml.doc
          "Required element for UpdateResolverType to identify the case to update."];
      resolverType: ResolverType.t
        [@ocaml.doc
          "Required element for UpdateResolverType to identify the new resolver."]}
    let context_ = "UpdateResolverTypeRequest"
    let make ~caseId =
      fun ~resolverType -> fun () -> { caseId; resolverType }
    let to_value x =
      structure_to_value
        [("caseId", (Some (CaseId.to_value x.caseId)));
        ("resolverType", (Some (ResolverType.to_value x.resolverType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolverType =
        ResolverType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resolverType") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      make ~resolverType ~caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolverType =
        field_map_exn json__ "resolverType" ResolverType.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      make ~resolverType ~caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the resolver type for a case. This is a one-way action and cannot be reversed."]
module UpdateMembershipResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates membership configuration."]
module UpdateMembershipRequest =
  struct
    type nonrec t =
      {
      membershipId: MembershipId.t
        [@ocaml.doc
          "Required element for UpdateMembership to identify the membership to update."];
      membershipName: MembershipName.t option
        [@ocaml.doc
          "Optional element for UpdateMembership to update the membership name."];
      incidentResponseTeam: IncidentResponseTeam.t option
        [@ocaml.doc
          "Optional element for UpdateMembership to update the membership name."];
      optInFeatures: OptInFeatures.t option
        [@ocaml.doc
          "Optional element for UpdateMembership to enable or disable opt-in features for the service."];
      membershipAccountsConfigurationsUpdate:
        MembershipAccountsConfigurationsUpdate.t option
        [@ocaml.doc
          "The membershipAccountsConfigurationsUpdate field in the UpdateMembershipRequest structure allows you to update the configuration settings for accounts within a membership. This field is optional and contains a structure of type MembershipAccountsConfigurationsUpdate that specifies the updated account configurations for the membership."];
      undoMembershipCancellation: Boolean.t option
        [@ocaml.doc
          "The undoMembershipCancellation parameter is a boolean flag that indicates whether to reverse a previously requested membership cancellation. When set to true, this will revoke the cancellation request and maintain the membership status. This parameter is optional and can be used in scenarios where you need to restore a membership that was marked for cancellation but hasn't been fully terminated yet. If set to true, the cancellation request will be revoked If set to false the service will throw a ValidationException."]}
    let context_ = "UpdateMembershipRequest"
    let make ?membershipName =
      fun ?incidentResponseTeam ->
        fun ?optInFeatures ->
          fun ?membershipAccountsConfigurationsUpdate ->
            fun ?undoMembershipCancellation ->
              fun ~membershipId ->
                fun () ->
                  {
                    membershipName;
                    incidentResponseTeam;
                    optInFeatures;
                    membershipAccountsConfigurationsUpdate;
                    undoMembershipCancellation;
                    membershipId
                  }
    let to_value x =
      structure_to_value
        [("membershipId", (Some (MembershipId.to_value x.membershipId)));
        ("membershipName",
          (Option.map x.membershipName ~f:MembershipName.to_value));
        ("incidentResponseTeam",
          (Option.map x.incidentResponseTeam ~f:IncidentResponseTeam.to_value));
        ("optInFeatures",
          (Option.map x.optInFeatures ~f:OptInFeatures.to_value));
        ("membershipAccountsConfigurationsUpdate",
          (Option.map x.membershipAccountsConfigurationsUpdate
             ~f:MembershipAccountsConfigurationsUpdate.to_value));
        ("undoMembershipCancellation",
          (Option.map x.undoMembershipCancellation ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let undoMembershipCancellation =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "undoMembershipCancellation") in
      let membershipAccountsConfigurationsUpdate =
        (Option.map ~f:MembershipAccountsConfigurationsUpdate.of_xml)
          (Xml.child xml_arg0 "membershipAccountsConfigurationsUpdate") in
      let optInFeatures =
        (Option.map ~f:OptInFeatures.of_xml)
          (Xml.child xml_arg0 "optInFeatures") in
      let incidentResponseTeam =
        (Option.map ~f:IncidentResponseTeam.of_xml)
          (Xml.child xml_arg0 "incidentResponseTeam") in
      let membershipName =
        (Option.map ~f:MembershipName.of_xml)
          (Xml.child xml_arg0 "membershipName") in
      let membershipId =
        MembershipId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "membershipId") in
      make ?undoMembershipCancellation
        ?membershipAccountsConfigurationsUpdate ?optInFeatures
        ?incidentResponseTeam ?membershipName ~membershipId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let undoMembershipCancellation =
        field_map json__ "undoMembershipCancellation" Boolean.of_json in
      let membershipAccountsConfigurationsUpdate =
        field_map json__ "membershipAccountsConfigurationsUpdate"
          MembershipAccountsConfigurationsUpdate.of_json in
      let optInFeatures =
        field_map json__ "optInFeatures" OptInFeatures.of_json in
      let incidentResponseTeam =
        field_map json__ "incidentResponseTeam" IncidentResponseTeam.of_json in
      let membershipName =
        field_map json__ "membershipName" MembershipName.of_json in
      let membershipId =
        field_map_exn json__ "membershipId" MembershipId.of_json in
      make ?undoMembershipCancellation
        ?membershipAccountsConfigurationsUpdate ?optInFeatures
        ?incidentResponseTeam ?membershipName ~membershipId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates membership configuration."]
module UpdateCaseStatusResponse =
  struct
    type nonrec t =
      {
      caseStatus: SelfManagedCaseStatus.t option
        [@ocaml.doc
          "Response element for UpdateCaseStatus showing the newly configured status."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?caseStatus = fun () -> { caseStatus }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("caseStatus",
           (Option.map x.caseStatus ~f:SelfManagedCaseStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseStatus =
        (Option.map ~f:SelfManagedCaseStatus.of_xml)
          (Xml.child xml_arg0 "caseStatus") in
      make ?caseStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseStatus =
        field_map json__ "caseStatus" SelfManagedCaseStatus.of_json in
      make ?caseStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the state transitions for a designated cases. Self-managed: the following states are available for self-managed cases. Submitted \226\134\146 Detection and Analysis Detection and Analysis \226\134\146 Containment, Eradication, and Recovery Detection and Analysis \226\134\146 Post-incident Activities Containment, Eradication, and Recovery \226\134\146 Detection and Analysis Containment, Eradication, and Recovery \226\134\146 Post-incident Activities Post-incident Activities \226\134\146 Containment, Eradication, and Recovery Post-incident Activities \226\134\146 Detection and Analysis Any \226\134\146 Closed AWS supported: You must use the CloseCase API to close."]
module UpdateCaseStatusRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t
        [@ocaml.doc
          "Required element for UpdateCaseStatus to identify the case to update."];
      caseStatus: SelfManagedCaseStatus.t
        [@ocaml.doc
          "Required element for UpdateCaseStatus to identify the status for a case. Options include Submitted | Detection and Analysis | Containment, Eradication and Recovery | Post-incident Activities."]}
    let context_ = "UpdateCaseStatusRequest"
    let make ~caseId = fun ~caseStatus -> fun () -> { caseId; caseStatus }
    let to_value x =
      structure_to_value
        [("caseId", (Some (CaseId.to_value x.caseId)));
        ("caseStatus", (Some (SelfManagedCaseStatus.to_value x.caseStatus)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseStatus =
        SelfManagedCaseStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "caseStatus") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      make ~caseStatus ~caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseStatus =
        field_map_exn json__ "caseStatus" SelfManagedCaseStatus.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      make ~caseStatus ~caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the state transitions for a designated cases. Self-managed: the following states are available for self-managed cases. Submitted \226\134\146 Detection and Analysis Detection and Analysis \226\134\146 Containment, Eradication, and Recovery Detection and Analysis \226\134\146 Post-incident Activities Containment, Eradication, and Recovery \226\134\146 Detection and Analysis Containment, Eradication, and Recovery \226\134\146 Post-incident Activities Post-incident Activities \226\134\146 Containment, Eradication, and Recovery Post-incident Activities \226\134\146 Detection and Analysis Any \226\134\146 Closed AWS supported: You must use the CloseCase API to close."]
module UpdateCaseResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing case."]
module UpdateCaseRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t
        [@ocaml.doc
          "Required element for UpdateCase to identify the case ID for updates."];
      title: CaseTitle.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content for the title field."];
      description: CaseDescription.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content for the description field."];
      reportedIncidentStartDate: Timestamp.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content for the customer reported incident start date field."];
      actualIncidentStartDate: Timestamp.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content for the incident start date field."];
      engagementType: EngagementType.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content for the engagement type field. Available engagement types include Security Incident | Investigation."];
      watchersToAdd: Watchers.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content to add additional watchers to a case."];
      watchersToDelete: Watchers.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content to remove existing watchers from a case."];
      threatActorIpAddressesToAdd: ThreatActorIpList.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content to add additional suspicious IP addresses related to a case."];
      threatActorIpAddressesToDelete: ThreatActorIpList.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content to remove suspicious IP addresses from a case."];
      impactedServicesToAdd: ImpactedServicesList.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content to add services impacted."];
      impactedServicesToDelete: ImpactedServicesList.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content to remove services impacted."];
      impactedAwsRegionsToAdd: ImpactedAwsRegionList.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content to add regions impacted."];
      impactedAwsRegionsToDelete: ImpactedAwsRegionList.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content to remove regions impacted."];
      impactedAccountsToAdd: ImpactedAccounts.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content to add accounts impacted. AWS account ID's may appear less than 12 characters and need to be zero-prepended. An example would be 123123123 which is nine digits, and with zero-prepend would be 000123123123. Not zero-prepending to 12 digits could result in errors."];
      impactedAccountsToDelete: ImpactedAccounts.t option
        [@ocaml.doc
          "Optional element for UpdateCase to provide content to add accounts impacted. AWS account ID's may appear less than 12 characters and need to be zero-prepended. An example would be 123123123 which is nine digits, and with zero-prepend would be 000123123123. Not zero-prepending to 12 digits could result in errors."];
      caseMetadata: CaseMetadata.t option
        [@ocaml.doc "Update the case request with case metadata"]}
    let context_ = "UpdateCaseRequest"
    let make ?title =
      fun ?description ->
        fun ?reportedIncidentStartDate ->
          fun ?actualIncidentStartDate ->
            fun ?engagementType ->
              fun ?watchersToAdd ->
                fun ?watchersToDelete ->
                  fun ?threatActorIpAddressesToAdd ->
                    fun ?threatActorIpAddressesToDelete ->
                      fun ?impactedServicesToAdd ->
                        fun ?impactedServicesToDelete ->
                          fun ?impactedAwsRegionsToAdd ->
                            fun ?impactedAwsRegionsToDelete ->
                              fun ?impactedAccountsToAdd ->
                                fun ?impactedAccountsToDelete ->
                                  fun ?caseMetadata ->
                                    fun ~caseId ->
                                      fun () ->
                                        {
                                          title;
                                          description;
                                          reportedIncidentStartDate;
                                          actualIncidentStartDate;
                                          engagementType;
                                          watchersToAdd;
                                          watchersToDelete;
                                          threatActorIpAddressesToAdd;
                                          threatActorIpAddressesToDelete;
                                          impactedServicesToAdd;
                                          impactedServicesToDelete;
                                          impactedAwsRegionsToAdd;
                                          impactedAwsRegionsToDelete;
                                          impactedAccountsToAdd;
                                          impactedAccountsToDelete;
                                          caseMetadata;
                                          caseId
                                        }
    let to_value x =
      structure_to_value
        [("caseId", (Some (CaseId.to_value x.caseId)));
        ("title", (Option.map x.title ~f:CaseTitle.to_value));
        ("description",
          (Option.map x.description ~f:CaseDescription.to_value));
        ("reportedIncidentStartDate",
          (Option.map x.reportedIncidentStartDate ~f:Timestamp.to_value));
        ("actualIncidentStartDate",
          (Option.map x.actualIncidentStartDate ~f:Timestamp.to_value));
        ("engagementType",
          (Option.map x.engagementType ~f:EngagementType.to_value));
        ("watchersToAdd", (Option.map x.watchersToAdd ~f:Watchers.to_value));
        ("watchersToDelete",
          (Option.map x.watchersToDelete ~f:Watchers.to_value));
        ("threatActorIpAddressesToAdd",
          (Option.map x.threatActorIpAddressesToAdd
             ~f:ThreatActorIpList.to_value));
        ("threatActorIpAddressesToDelete",
          (Option.map x.threatActorIpAddressesToDelete
             ~f:ThreatActorIpList.to_value));
        ("impactedServicesToAdd",
          (Option.map x.impactedServicesToAdd
             ~f:ImpactedServicesList.to_value));
        ("impactedServicesToDelete",
          (Option.map x.impactedServicesToDelete
             ~f:ImpactedServicesList.to_value));
        ("impactedAwsRegionsToAdd",
          (Option.map x.impactedAwsRegionsToAdd
             ~f:ImpactedAwsRegionList.to_value));
        ("impactedAwsRegionsToDelete",
          (Option.map x.impactedAwsRegionsToDelete
             ~f:ImpactedAwsRegionList.to_value));
        ("impactedAccountsToAdd",
          (Option.map x.impactedAccountsToAdd ~f:ImpactedAccounts.to_value));
        ("impactedAccountsToDelete",
          (Option.map x.impactedAccountsToDelete ~f:ImpactedAccounts.to_value));
        ("caseMetadata",
          (Option.map x.caseMetadata ~f:CaseMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseMetadata =
        (Option.map ~f:CaseMetadata.of_xml)
          (Xml.child xml_arg0 "caseMetadata") in
      let impactedAccountsToDelete =
        (Option.map ~f:ImpactedAccounts.of_xml)
          (Xml.child xml_arg0 "impactedAccountsToDelete") in
      let impactedAccountsToAdd =
        (Option.map ~f:ImpactedAccounts.of_xml)
          (Xml.child xml_arg0 "impactedAccountsToAdd") in
      let impactedAwsRegionsToDelete =
        (Option.map ~f:ImpactedAwsRegionList.of_xml)
          (Xml.child xml_arg0 "impactedAwsRegionsToDelete") in
      let impactedAwsRegionsToAdd =
        (Option.map ~f:ImpactedAwsRegionList.of_xml)
          (Xml.child xml_arg0 "impactedAwsRegionsToAdd") in
      let impactedServicesToDelete =
        (Option.map ~f:ImpactedServicesList.of_xml)
          (Xml.child xml_arg0 "impactedServicesToDelete") in
      let impactedServicesToAdd =
        (Option.map ~f:ImpactedServicesList.of_xml)
          (Xml.child xml_arg0 "impactedServicesToAdd") in
      let threatActorIpAddressesToDelete =
        (Option.map ~f:ThreatActorIpList.of_xml)
          (Xml.child xml_arg0 "threatActorIpAddressesToDelete") in
      let threatActorIpAddressesToAdd =
        (Option.map ~f:ThreatActorIpList.of_xml)
          (Xml.child xml_arg0 "threatActorIpAddressesToAdd") in
      let watchersToDelete =
        (Option.map ~f:Watchers.of_xml)
          (Xml.child xml_arg0 "watchersToDelete") in
      let watchersToAdd =
        (Option.map ~f:Watchers.of_xml) (Xml.child xml_arg0 "watchersToAdd") in
      let engagementType =
        (Option.map ~f:EngagementType.of_xml)
          (Xml.child xml_arg0 "engagementType") in
      let actualIncidentStartDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "actualIncidentStartDate") in
      let reportedIncidentStartDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "reportedIncidentStartDate") in
      let description =
        (Option.map ~f:CaseDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let title =
        (Option.map ~f:CaseTitle.of_xml) (Xml.child xml_arg0 "title") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      make ?caseMetadata ?impactedAccountsToDelete ?impactedAccountsToAdd
        ?impactedAwsRegionsToDelete ?impactedAwsRegionsToAdd
        ?impactedServicesToDelete ?impactedServicesToAdd
        ?threatActorIpAddressesToDelete ?threatActorIpAddressesToAdd
        ?watchersToDelete ?watchersToAdd ?engagementType
        ?actualIncidentStartDate ?reportedIncidentStartDate ?description
        ?title ~caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseMetadata = field_map json__ "caseMetadata" CaseMetadata.of_json in
      let impactedAccountsToDelete =
        field_map json__ "impactedAccountsToDelete" ImpactedAccounts.of_json in
      let impactedAccountsToAdd =
        field_map json__ "impactedAccountsToAdd" ImpactedAccounts.of_json in
      let impactedAwsRegionsToDelete =
        field_map json__ "impactedAwsRegionsToDelete"
          ImpactedAwsRegionList.of_json in
      let impactedAwsRegionsToAdd =
        field_map json__ "impactedAwsRegionsToAdd"
          ImpactedAwsRegionList.of_json in
      let impactedServicesToDelete =
        field_map json__ "impactedServicesToDelete"
          ImpactedServicesList.of_json in
      let impactedServicesToAdd =
        field_map json__ "impactedServicesToAdd" ImpactedServicesList.of_json in
      let threatActorIpAddressesToDelete =
        field_map json__ "threatActorIpAddressesToDelete"
          ThreatActorIpList.of_json in
      let threatActorIpAddressesToAdd =
        field_map json__ "threatActorIpAddressesToAdd"
          ThreatActorIpList.of_json in
      let watchersToDelete =
        field_map json__ "watchersToDelete" Watchers.of_json in
      let watchersToAdd = field_map json__ "watchersToAdd" Watchers.of_json in
      let engagementType =
        field_map json__ "engagementType" EngagementType.of_json in
      let actualIncidentStartDate =
        field_map json__ "actualIncidentStartDate" Timestamp.of_json in
      let reportedIncidentStartDate =
        field_map json__ "reportedIncidentStartDate" Timestamp.of_json in
      let description =
        field_map json__ "description" CaseDescription.of_json in
      let title = field_map json__ "title" CaseTitle.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      make ?caseMetadata ?impactedAccountsToDelete ?impactedAccountsToAdd
        ?impactedAwsRegionsToDelete ?impactedAwsRegionsToAdd
        ?impactedServicesToDelete ?impactedServicesToAdd
        ?threatActorIpAddressesToDelete ?threatActorIpAddressesToAdd
        ?watchersToDelete ?watchersToAdd ?engagementType
        ?actualIncidentStartDate ?reportedIncidentStartDate ?description
        ?title ~caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing case."]
module UpdateCaseCommentResponse =
  struct
    type nonrec t =
      {
      commentId: CommentId.t option
        [@ocaml.doc
          "Response element for UpdateCaseComment providing the updated comment ID."];
      body: CommentBody.t option
        [@ocaml.doc
          "Response element for UpdateCaseComment providing the updated comment content."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commentId = fun ?body -> fun () -> { commentId; body }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("commentId", (Option.map x.commentId ~f:CommentId.to_value));
        ("body", (Option.map x.body ~f:CommentBody.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let body =
        (Option.map ~f:CommentBody.of_xml) (Xml.child xml_arg0 "body") in
      let commentId =
        (Option.map ~f:CommentId.of_xml) (Xml.child xml_arg0 "commentId") in
      make ?body ?commentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let body = field_map json__ "body" CommentBody.of_json in
      let commentId = field_map json__ "commentId" CommentId.of_json in
      make ?body ?commentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing case comment."]
module UpdateCaseCommentRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t
        [@ocaml.doc
          "Required element for UpdateCaseComment to identify the case ID containing the comment to be updated."];
      commentId: CommentId.t
        [@ocaml.doc
          "Required element for UpdateCaseComment to identify the case ID to be updated."];
      body: CommentBody.t
        [@ocaml.doc
          "Required element for UpdateCaseComment to identify the content for the comment to be updated."]}
    let context_ = "UpdateCaseCommentRequest"
    let make ~caseId =
      fun ~commentId -> fun ~body -> fun () -> { caseId; commentId; body }
    let to_value x =
      structure_to_value
        [("caseId", (Some (CaseId.to_value x.caseId)));
        ("commentId", (Some (CommentId.to_value x.commentId)));
        ("body", (Some (CommentBody.to_value x.body)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let body =
        CommentBody.of_xml (Xml.child_exn ~context:context_ xml_arg0 "body") in
      let commentId =
        CommentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "commentId") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      make ~body ~commentId ~caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let body = field_map_exn json__ "body" CommentBody.of_json in
      let commentId = field_map_exn json__ "commentId" CommentId.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      make ~body ~commentId ~caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates an existing case comment."]
module UntagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a tag(s) from a designate resource."]
module UntagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "Required element for UnTagResource to identify the ARN for the resource to remove a tag from."];
      tagKeys: TagKeys.t
        [@ocaml.doc
          "Required element for UnTagResource to identify tag to remove."]}
    let context_ = "UntagResourceInput"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeys.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeys.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        Arn.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" TagKeys.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a tag(s) from a designate resource."]
module TagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds a tag(s) to a designated resource."]
module TagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "Required element for TagResource to identify the ARN for the resource to add a tag to."];
      tags: TagMap.t
        [@ocaml.doc
          "Required element for ListTagsForResource to provide the content for a tag."]}
    let context_ = "TagResourceInput"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tags", (Some (TagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        Arn.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" TagMap.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds a tag(s) to a designated resource."]
module SendFeedbackResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Send feedback based on response investigation action"]
module SendFeedbackRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t [@ocaml.doc "Send feedback based on request caseID"];
      resultId: ResultId.t
        [@ocaml.doc "Send feedback based on request result ID"];
      usefulness: UsefulnessRating.t
        [@ocaml.doc
          "Required enum value indicating user assessment of result q....."];
      comment: FeedbackComment.t option
        [@ocaml.doc "Send feedback based on request comments"]}
    let context_ = "SendFeedbackRequest"
    let make ?comment =
      fun ~caseId ->
        fun ~resultId ->
          fun ~usefulness ->
            fun () -> { comment; caseId; resultId; usefulness }
    let to_value x =
      structure_to_value
        [("caseId", (Some (CaseId.to_value x.caseId)));
        ("resultId", (Some (ResultId.to_value x.resultId)));
        ("usefulness", (Some (UsefulnessRating.to_value x.usefulness)));
        ("comment", (Option.map x.comment ~f:FeedbackComment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comment =
        (Option.map ~f:FeedbackComment.of_xml) (Xml.child xml_arg0 "comment") in
      let usefulness =
        UsefulnessRating.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "usefulness") in
      let resultId =
        ResultId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resultId") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      make ?comment ~usefulness ~resultId ~caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comment = field_map json__ "comment" FeedbackComment.of_json in
      let usefulness =
        field_map_exn json__ "usefulness" UsefulnessRating.of_json in
      let resultId = field_map_exn json__ "resultId" ResultId.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      make ?comment ~usefulness ~resultId ~caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Send feedback based on response investigation action"]
module ListTagsForResourceOutput =
  struct
    type nonrec t =
      {
      tags: TagMap.t option
        [@ocaml.doc
          "Response element for ListTagsForResource providing content for each configured tag."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns currently configured tags on a resource."]
module ListTagsForResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "Required element for ListTagsForResource to provide the ARN to identify a specific resource."]}
    let context_ = "ListTagsForResourceInput"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns currently configured tags on a resource."]
module ListMembershipsResponse =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "An optional string that, if supplied on subsequent calls to ListMemberships, allows the API to fetch the next page of results."];
      items: ListMembershipItems.t option
        [@ocaml.doc
          "Request element for ListMemberships including the accountID, membershipARN, membershipID, membershipStatus, and region for each response."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?items -> fun () -> { nextToken; items }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("items", (Option.map x.items ~f:ListMembershipItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let items =
        (Option.map ~f:ListMembershipItems.of_xml)
          (Xml.child xml_arg0 "items") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?items ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let items = field_map json__ "items" ListMembershipItems.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?items ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the memberships that the calling principal can access."]
module ListMembershipsRequest =
  struct
    type nonrec t =
      {
      nextToken: ListMembershipsRequestNextTokenString.t option
        [@ocaml.doc
          "An optional string that, if supplied, must be copied from the output of a previous call to ListMemberships. When provided in this manner, the API fetches the next page of results."];
      maxResults: ListMembershipsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "Request element for ListMemberships to limit the number of responses."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken",
           (Option.map x.nextToken
              ~f:ListMembershipsRequestNextTokenString.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListMembershipsRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListMembershipsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ListMembershipsRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListMembershipsRequestMaxResultsInteger.of_json in
      let nextToken =
        field_map json__ "nextToken"
          ListMembershipsRequestNextTokenString.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the memberships that the calling principal can access."]
module ListInvestigationsResponse =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "Investigation performed by an agent for a security incident for next Token"];
      investigationActions: InvestigationActionList.t option
        [@ocaml.doc
          "Investigation performed by an agent for a security incid\226\128\166Unique identifier for the specific investigation>"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?investigationActions ->
        fun () -> { nextToken; investigationActions }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("investigationActions",
          (Option.map x.investigationActions
             ~f:InvestigationActionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let investigationActions =
        (Option.map ~f:InvestigationActionList.of_xml)
          (Xml.child xml_arg0 "investigationActions") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?investigationActions ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let investigationActions =
        field_map json__ "investigationActions"
          InvestigationActionList.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?investigationActions ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Investigation performed by an agent for a security incident..."]
module ListInvestigationsRequest =
  struct
    type nonrec t =
      {
      nextToken: ListInvestigationsRequestNextTokenString.t option
        [@ocaml.doc
          "Investigation performed by an agent for a security incident request"];
      maxResults: ListInvestigationsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "Investigation performed by an agent for a security incident request, returning max results"];
      caseId: CaseId.t
        [@ocaml.doc
          "Investigation performed by an agent for a security incident per caseID"]}
    let context_ = "ListInvestigationsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~caseId -> fun () -> { nextToken; maxResults; caseId }
    let to_value x =
      structure_to_value
        [("nextToken",
           (Option.map x.nextToken
              ~f:ListInvestigationsRequestNextTokenString.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListInvestigationsRequestMaxResultsInteger.to_value));
        ("caseId", (Some (CaseId.to_value x.caseId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      let maxResults =
        (Option.map ~f:ListInvestigationsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ListInvestigationsRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ~caseId ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListInvestigationsRequestMaxResultsInteger.of_json in
      let nextToken =
        field_map json__ "nextToken"
          ListInvestigationsRequestNextTokenString.of_json in
      make ~caseId ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Investigation performed by an agent for a security incident..."]
module ListCommentsResponse =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "An optional string that, if supplied on subsequent calls to ListComments, allows the API to fetch the next page of results."];
      items: ListCommentsItems.t option
        [@ocaml.doc
          "Response element for ListComments providing the body, commentID, createDate, creator, lastUpdatedBy and lastUpdatedDate for each response."];
      total: Integer.t option
        [@ocaml.doc
          "Response element for ListComments identifying the number of responses."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?items -> fun ?total -> fun () -> { nextToken; items; total }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("items", (Option.map x.items ~f:ListCommentsItems.to_value));
        ("total", (Option.map x.total ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let total = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "total") in
      let items =
        (Option.map ~f:ListCommentsItems.of_xml) (Xml.child xml_arg0 "items") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?total ?items ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let total = field_map json__ "total" Integer.of_json in
      let items = field_map json__ "items" ListCommentsItems.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?total ?items ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns comments for a designated case."]
module ListCommentsRequest =
  struct
    type nonrec t =
      {
      nextToken: ListCommentsRequestNextTokenString.t option
        [@ocaml.doc
          "An optional string that, if supplied, must be copied from the output of a previous call to ListComments. When provided in this manner, the API fetches the next page of results."];
      maxResults: ListCommentsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "Optional element for ListComments to limit the number of responses."];
      caseId: CaseId.t
        [@ocaml.doc
          "Required element for ListComments to designate the case to query."]}
    let context_ = "ListCommentsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~caseId -> fun () -> { nextToken; maxResults; caseId }
    let to_value x =
      structure_to_value
        [("nextToken",
           (Option.map x.nextToken
              ~f:ListCommentsRequestNextTokenString.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListCommentsRequestMaxResultsInteger.to_value));
        ("caseId", (Some (CaseId.to_value x.caseId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      let maxResults =
        (Option.map ~f:ListCommentsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ListCommentsRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ~caseId ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListCommentsRequestMaxResultsInteger.of_json in
      let nextToken =
        field_map json__ "nextToken"
          ListCommentsRequestNextTokenString.of_json in
      make ~caseId ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns comments for a designated case."]
module ListCasesResponse =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "An optional string that, if supplied on subsequent calls to ListCases, allows the API to fetch the next page of results."];
      items: ListCasesItems.t option
        [@ocaml.doc
          "Response element for ListCases that includes caseARN, caseID, caseStatus, closedDate, createdDate, engagementType, lastUpdatedDate, pendingAction, resolverType, and title for each response."];
      total: Long.t option
        [@ocaml.doc
          "Response element for ListCases providing the total number of responses."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?items -> fun ?total -> fun () -> { nextToken; items; total }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("items", (Option.map x.items ~f:ListCasesItems.to_value));
        ("total", (Option.map x.total ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let total = (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "total") in
      let items =
        (Option.map ~f:ListCasesItems.of_xml) (Xml.child xml_arg0 "items") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?total ?items ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let total = field_map json__ "total" Long.of_json in
      let items = field_map json__ "items" ListCasesItems.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?total ?items ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all cases the requester has access to."]
module ListCasesRequest =
  struct
    type nonrec t =
      {
      nextToken: ListCasesRequestNextTokenString.t option
        [@ocaml.doc
          "An optional string that, if supplied, must be copied from the output of a previous call to ListCases. When provided in this manner, the API fetches the next page of results."];
      maxResults: ListCasesRequestMaxResultsInteger.t option
        [@ocaml.doc
          "Optional element for ListCases to limit the number of responses."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken",
           (Option.map x.nextToken
              ~f:ListCasesRequestNextTokenString.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListCasesRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListCasesRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ListCasesRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListCasesRequestMaxResultsInteger.of_json in
      let nextToken =
        field_map json__ "nextToken" ListCasesRequestNextTokenString.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all cases the requester has access to."]
module ListCaseEditsResponse =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "An optional string that, if supplied on subsequent calls to ListCaseEdits, allows the API to fetch the next page of results."];
      items: CaseEditItems.t option
        [@ocaml.doc
          "Response element for ListCaseEdits that includes the action, event timestamp, message, and principal for the response."];
      total: Integer.t option
        [@ocaml.doc
          "Response element for ListCaseEdits that identifies the total number of edits."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?items -> fun ?total -> fun () -> { nextToken; items; total }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("items", (Option.map x.items ~f:CaseEditItems.to_value));
        ("total", (Option.map x.total ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let total = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "total") in
      let items =
        (Option.map ~f:CaseEditItems.of_xml) (Xml.child xml_arg0 "items") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?total ?items ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let total = field_map json__ "total" Integer.of_json in
      let items = field_map json__ "items" CaseEditItems.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?total ?items ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Views the case history for edits made to a designated case."]
module ListCaseEditsRequest =
  struct
    type nonrec t =
      {
      nextToken: ListCaseEditsRequestNextTokenString.t option
        [@ocaml.doc
          "An optional string that, if supplied, must be copied from the output of a previous call to ListCaseEdits. When provided in this manner, the API fetches the next page of results."];
      maxResults: ListCaseEditsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "Optional element to identify how many results to obtain. There is a maximum value of 25."];
      caseId: CaseId.t
        [@ocaml.doc
          "Required element used with ListCaseEdits to identify the case to query."]}
    let context_ = "ListCaseEditsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~caseId -> fun () -> { nextToken; maxResults; caseId }
    let to_value x =
      structure_to_value
        [("nextToken",
           (Option.map x.nextToken
              ~f:ListCaseEditsRequestNextTokenString.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListCaseEditsRequestMaxResultsInteger.to_value));
        ("caseId", (Some (CaseId.to_value x.caseId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      let maxResults =
        (Option.map ~f:ListCaseEditsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ListCaseEditsRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ~caseId ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListCaseEditsRequestMaxResultsInteger.of_json in
      let nextToken =
        field_map json__ "nextToken"
          ListCaseEditsRequestNextTokenString.of_json in
      make ~caseId ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Views the case history for edits made to a designated case."]
module GetMembershipResponse =
  struct
    type nonrec t =
      {
      membershipId: MembershipId.t option
        [@ocaml.doc
          "Response element for GetMembership that provides the queried membership ID."];
      accountId: AWSAccountId.t option
        [@ocaml.doc
          "Response element for GetMembership that provides the account configured to manage the membership."];
      region: AwsRegion.t option
        [@ocaml.doc
          "Response element for GetMembership that provides the region configured to manage the membership."];
      membershipName: MembershipName.t option
        [@ocaml.doc
          "Response element for GetMembership that provides the configured membership name."];
      membershipArn: MembershipArn.t option
        [@ocaml.doc
          "Response element for GetMembership that provides the membership ARN."];
      membershipStatus: MembershipStatus.t option
        [@ocaml.doc
          "Response element for GetMembership that provides the current membership status."];
      membershipActivationTimestamp: Timestamp.t option
        [@ocaml.doc
          "Response element for GetMembership that provides the configured membership activation timestamp."];
      membershipDeactivationTimestamp: Timestamp.t option
        [@ocaml.doc
          "Response element for GetMembership that provides the configured membership name deactivation timestamp."];
      customerType: CustomerType.t option
        [@ocaml.doc
          "Response element for GetMembership that provides the configured membership type. Options include Standalone | Organizations."];
      numberOfAccountsCovered: Long.t option
        [@ocaml.doc
          "Response element for GetMembership that provides the number of accounts in the membership."];
      incidentResponseTeam: IncidentResponseTeam.t option
        [@ocaml.doc
          "Response element for GetMembership that provides the configured membership incident response team members."];
      optInFeatures: OptInFeatures.t option
        [@ocaml.doc
          "Response element for GetMembership that provides the if opt-in features have been enabled."];
      membershipAccountsConfigurations:
        MembershipAccountsConfigurations.t option
        [@ocaml.doc
          "The membershipAccountsConfigurations field contains the configuration details for member accounts within the Amazon Web Services Organizations membership structure. This field returns a structure containing information about: Account configurations for member accounts Membership settings and preferences Account-level permissions and roles"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?membershipId =
      fun ?accountId ->
        fun ?region ->
          fun ?membershipName ->
            fun ?membershipArn ->
              fun ?membershipStatus ->
                fun ?membershipActivationTimestamp ->
                  fun ?membershipDeactivationTimestamp ->
                    fun ?customerType ->
                      fun ?numberOfAccountsCovered ->
                        fun ?incidentResponseTeam ->
                          fun ?optInFeatures ->
                            fun ?membershipAccountsConfigurations ->
                              fun () ->
                                {
                                  membershipId;
                                  accountId;
                                  region;
                                  membershipName;
                                  membershipArn;
                                  membershipStatus;
                                  membershipActivationTimestamp;
                                  membershipDeactivationTimestamp;
                                  customerType;
                                  numberOfAccountsCovered;
                                  incidentResponseTeam;
                                  optInFeatures;
                                  membershipAccountsConfigurations
                                }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("membershipId",
           (Option.map x.membershipId ~f:MembershipId.to_value));
        ("accountId", (Option.map x.accountId ~f:AWSAccountId.to_value));
        ("region", (Option.map x.region ~f:AwsRegion.to_value));
        ("membershipName",
          (Option.map x.membershipName ~f:MembershipName.to_value));
        ("membershipArn",
          (Option.map x.membershipArn ~f:MembershipArn.to_value));
        ("membershipStatus",
          (Option.map x.membershipStatus ~f:MembershipStatus.to_value));
        ("membershipActivationTimestamp",
          (Option.map x.membershipActivationTimestamp ~f:Timestamp.to_value));
        ("membershipDeactivationTimestamp",
          (Option.map x.membershipDeactivationTimestamp ~f:Timestamp.to_value));
        ("customerType",
          (Option.map x.customerType ~f:CustomerType.to_value));
        ("numberOfAccountsCovered",
          (Option.map x.numberOfAccountsCovered ~f:Long.to_value));
        ("incidentResponseTeam",
          (Option.map x.incidentResponseTeam ~f:IncidentResponseTeam.to_value));
        ("optInFeatures",
          (Option.map x.optInFeatures ~f:OptInFeatures.to_value));
        ("membershipAccountsConfigurations",
          (Option.map x.membershipAccountsConfigurations
             ~f:MembershipAccountsConfigurations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let membershipAccountsConfigurations =
        (Option.map ~f:MembershipAccountsConfigurations.of_xml)
          (Xml.child xml_arg0 "membershipAccountsConfigurations") in
      let optInFeatures =
        (Option.map ~f:OptInFeatures.of_xml)
          (Xml.child xml_arg0 "optInFeatures") in
      let incidentResponseTeam =
        (Option.map ~f:IncidentResponseTeam.of_xml)
          (Xml.child xml_arg0 "incidentResponseTeam") in
      let numberOfAccountsCovered =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "numberOfAccountsCovered") in
      let customerType =
        (Option.map ~f:CustomerType.of_xml)
          (Xml.child xml_arg0 "customerType") in
      let membershipDeactivationTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "membershipDeactivationTimestamp") in
      let membershipActivationTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "membershipActivationTimestamp") in
      let membershipStatus =
        (Option.map ~f:MembershipStatus.of_xml)
          (Xml.child xml_arg0 "membershipStatus") in
      let membershipArn =
        (Option.map ~f:MembershipArn.of_xml)
          (Xml.child xml_arg0 "membershipArn") in
      let membershipName =
        (Option.map ~f:MembershipName.of_xml)
          (Xml.child xml_arg0 "membershipName") in
      let region =
        (Option.map ~f:AwsRegion.of_xml) (Xml.child xml_arg0 "region") in
      let accountId =
        (Option.map ~f:AWSAccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let membershipId =
        (Option.map ~f:MembershipId.of_xml)
          (Xml.child xml_arg0 "membershipId") in
      make ?membershipAccountsConfigurations ?optInFeatures
        ?incidentResponseTeam ?numberOfAccountsCovered ?customerType
        ?membershipDeactivationTimestamp ?membershipActivationTimestamp
        ?membershipStatus ?membershipArn ?membershipName ?region ?accountId
        ?membershipId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let membershipAccountsConfigurations =
        field_map json__ "membershipAccountsConfigurations"
          MembershipAccountsConfigurations.of_json in
      let optInFeatures =
        field_map json__ "optInFeatures" OptInFeatures.of_json in
      let incidentResponseTeam =
        field_map json__ "incidentResponseTeam" IncidentResponseTeam.of_json in
      let numberOfAccountsCovered =
        field_map json__ "numberOfAccountsCovered" Long.of_json in
      let customerType = field_map json__ "customerType" CustomerType.of_json in
      let membershipDeactivationTimestamp =
        field_map json__ "membershipDeactivationTimestamp" Timestamp.of_json in
      let membershipActivationTimestamp =
        field_map json__ "membershipActivationTimestamp" Timestamp.of_json in
      let membershipStatus =
        field_map json__ "membershipStatus" MembershipStatus.of_json in
      let membershipArn =
        field_map json__ "membershipArn" MembershipArn.of_json in
      let membershipName =
        field_map json__ "membershipName" MembershipName.of_json in
      let region = field_map json__ "region" AwsRegion.of_json in
      let accountId = field_map json__ "accountId" AWSAccountId.of_json in
      let membershipId = field_map json__ "membershipId" MembershipId.of_json in
      make ?membershipAccountsConfigurations ?optInFeatures
        ?incidentResponseTeam ?numberOfAccountsCovered ?customerType
        ?membershipDeactivationTimestamp ?membershipActivationTimestamp
        ?membershipStatus ?membershipArn ?membershipName ?region ?accountId
        ?membershipId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the attributes of a membership."]
module GetMembershipRequest =
  struct
    type nonrec t =
      {
      membershipId: MembershipId.t
        [@ocaml.doc
          "Required element for GetMembership to identify the membership ID to query."]}
    let context_ = "GetMembershipRequest"
    let make ~membershipId = fun () -> { membershipId }
    let to_value x =
      structure_to_value
        [("membershipId", (Some (MembershipId.to_value x.membershipId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let membershipId =
        MembershipId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "membershipId") in
      make ~membershipId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let membershipId =
        field_map_exn json__ "membershipId" MembershipId.of_json in
      make ~membershipId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the attributes of a membership."]
module GetCaseResponse =
  struct
    type nonrec t =
      {
      title: CaseTitle.t option
        [@ocaml.doc
          "Response element for GetCase that provides the case title."];
      caseArn: CaseArn.t option
        [@ocaml.doc
          "Response element for GetCase that provides the case ARN"];
      description: CaseDescription.t option
        [@ocaml.doc
          "Response element for GetCase that provides contents of the case description."];
      caseStatus: CaseStatus.t option
        [@ocaml.doc
          "Response element for GetCase that provides the case status. Options for statuses include Submitted | Detection and Analysis | Eradication, Containment and Recovery | Post-Incident Activities | Closed"];
      engagementType: EngagementType.t option
        [@ocaml.doc
          "Response element for GetCase that provides the engagement type. Options for engagement type include Active Security Event | Investigations"];
      reportedIncidentStartDate: Timestamp.t option
        [@ocaml.doc
          "Response element for GetCase that provides the customer provided incident start date."];
      actualIncidentStartDate: Timestamp.t option
        [@ocaml.doc
          "Response element for GetCase that provides the actual incident start date as identified by data analysis during the investigation."];
      impactedAwsRegions: ImpactedAwsRegionList.t option
        [@ocaml.doc
          "Response element for GetCase that provides the impacted regions."];
      threatActorIpAddresses: ThreatActorIpList.t option
        [@ocaml.doc
          "Response element for GetCase that provides a list of suspicious IP addresses associated with unauthorized activity."];
      pendingAction: PendingAction.t option
        [@ocaml.doc
          "Response element for GetCase that identifies the case is waiting on customer input."];
      impactedAccounts: ImpactedAccounts.t option
        [@ocaml.doc
          "Response element for GetCase that provides a list of impacted accounts."];
      watchers: Watchers.t option
        [@ocaml.doc
          "Response element for GetCase that provides a list of Watchers added to the case."];
      createdDate: Timestamp.t option
        [@ocaml.doc
          "Response element for GetCase that provides the date the case was created."];
      lastUpdatedDate: Timestamp.t option
        [@ocaml.doc
          "Response element for GetCase that provides the date a case was last modified."];
      closureCode: ClosureCode.t option
        [@ocaml.doc
          "Response element for GetCase that provides the summary code for why a case was closed."];
      resolverType: ResolverType.t option
        [@ocaml.doc
          "Response element for GetCase that provides the current resolver types."];
      impactedServices: ImpactedServicesList.t option
        [@ocaml.doc
          "Response element for GetCase that provides a list of impacted services."];
      caseAttachments: CaseAttachmentsList.t option
        [@ocaml.doc
          "Response element for GetCase that provides a list of current case attachments."];
      closedDate: Timestamp.t option
        [@ocaml.doc
          "Response element for GetCase that provides the date a specified case was closed."];
      caseMetadata: CaseMetadata.t option
        [@ocaml.doc "Case response metadata"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?title =
      fun ?caseArn ->
        fun ?description ->
          fun ?caseStatus ->
            fun ?engagementType ->
              fun ?reportedIncidentStartDate ->
                fun ?actualIncidentStartDate ->
                  fun ?impactedAwsRegions ->
                    fun ?threatActorIpAddresses ->
                      fun ?pendingAction ->
                        fun ?impactedAccounts ->
                          fun ?watchers ->
                            fun ?createdDate ->
                              fun ?lastUpdatedDate ->
                                fun ?closureCode ->
                                  fun ?resolverType ->
                                    fun ?impactedServices ->
                                      fun ?caseAttachments ->
                                        fun ?closedDate ->
                                          fun ?caseMetadata ->
                                            fun () ->
                                              {
                                                title;
                                                caseArn;
                                                description;
                                                caseStatus;
                                                engagementType;
                                                reportedIncidentStartDate;
                                                actualIncidentStartDate;
                                                impactedAwsRegions;
                                                threatActorIpAddresses;
                                                pendingAction;
                                                impactedAccounts;
                                                watchers;
                                                createdDate;
                                                lastUpdatedDate;
                                                closureCode;
                                                resolverType;
                                                impactedServices;
                                                caseAttachments;
                                                closedDate;
                                                caseMetadata
                                              }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("title", (Option.map x.title ~f:CaseTitle.to_value));
        ("caseArn", (Option.map x.caseArn ~f:CaseArn.to_value));
        ("description",
          (Option.map x.description ~f:CaseDescription.to_value));
        ("caseStatus", (Option.map x.caseStatus ~f:CaseStatus.to_value));
        ("engagementType",
          (Option.map x.engagementType ~f:EngagementType.to_value));
        ("reportedIncidentStartDate",
          (Option.map x.reportedIncidentStartDate ~f:Timestamp.to_value));
        ("actualIncidentStartDate",
          (Option.map x.actualIncidentStartDate ~f:Timestamp.to_value));
        ("impactedAwsRegions",
          (Option.map x.impactedAwsRegions ~f:ImpactedAwsRegionList.to_value));
        ("threatActorIpAddresses",
          (Option.map x.threatActorIpAddresses ~f:ThreatActorIpList.to_value));
        ("pendingAction",
          (Option.map x.pendingAction ~f:PendingAction.to_value));
        ("impactedAccounts",
          (Option.map x.impactedAccounts ~f:ImpactedAccounts.to_value));
        ("watchers", (Option.map x.watchers ~f:Watchers.to_value));
        ("createdDate", (Option.map x.createdDate ~f:Timestamp.to_value));
        ("lastUpdatedDate",
          (Option.map x.lastUpdatedDate ~f:Timestamp.to_value));
        ("closureCode", (Option.map x.closureCode ~f:ClosureCode.to_value));
        ("resolverType",
          (Option.map x.resolverType ~f:ResolverType.to_value));
        ("impactedServices",
          (Option.map x.impactedServices ~f:ImpactedServicesList.to_value));
        ("caseAttachments",
          (Option.map x.caseAttachments ~f:CaseAttachmentsList.to_value));
        ("closedDate", (Option.map x.closedDate ~f:Timestamp.to_value));
        ("caseMetadata",
          (Option.map x.caseMetadata ~f:CaseMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseMetadata =
        (Option.map ~f:CaseMetadata.of_xml)
          (Xml.child xml_arg0 "caseMetadata") in
      let closedDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "closedDate") in
      let caseAttachments =
        (Option.map ~f:CaseAttachmentsList.of_xml)
          (Xml.child xml_arg0 "caseAttachments") in
      let impactedServices =
        (Option.map ~f:ImpactedServicesList.of_xml)
          (Xml.child xml_arg0 "impactedServices") in
      let resolverType =
        (Option.map ~f:ResolverType.of_xml)
          (Xml.child xml_arg0 "resolverType") in
      let closureCode =
        (Option.map ~f:ClosureCode.of_xml) (Xml.child xml_arg0 "closureCode") in
      let lastUpdatedDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdatedDate") in
      let createdDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdDate") in
      let watchers =
        (Option.map ~f:Watchers.of_xml) (Xml.child xml_arg0 "watchers") in
      let impactedAccounts =
        (Option.map ~f:ImpactedAccounts.of_xml)
          (Xml.child xml_arg0 "impactedAccounts") in
      let pendingAction =
        (Option.map ~f:PendingAction.of_xml)
          (Xml.child xml_arg0 "pendingAction") in
      let threatActorIpAddresses =
        (Option.map ~f:ThreatActorIpList.of_xml)
          (Xml.child xml_arg0 "threatActorIpAddresses") in
      let impactedAwsRegions =
        (Option.map ~f:ImpactedAwsRegionList.of_xml)
          (Xml.child xml_arg0 "impactedAwsRegions") in
      let actualIncidentStartDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "actualIncidentStartDate") in
      let reportedIncidentStartDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "reportedIncidentStartDate") in
      let engagementType =
        (Option.map ~f:EngagementType.of_xml)
          (Xml.child xml_arg0 "engagementType") in
      let caseStatus =
        (Option.map ~f:CaseStatus.of_xml) (Xml.child xml_arg0 "caseStatus") in
      let description =
        (Option.map ~f:CaseDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let caseArn =
        (Option.map ~f:CaseArn.of_xml) (Xml.child xml_arg0 "caseArn") in
      let title =
        (Option.map ~f:CaseTitle.of_xml) (Xml.child xml_arg0 "title") in
      make ?caseMetadata ?closedDate ?caseAttachments ?impactedServices
        ?resolverType ?closureCode ?lastUpdatedDate ?createdDate ?watchers
        ?impactedAccounts ?pendingAction ?threatActorIpAddresses
        ?impactedAwsRegions ?actualIncidentStartDate
        ?reportedIncidentStartDate ?engagementType ?caseStatus ?description
        ?caseArn ?title ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseMetadata = field_map json__ "caseMetadata" CaseMetadata.of_json in
      let closedDate = field_map json__ "closedDate" Timestamp.of_json in
      let caseAttachments =
        field_map json__ "caseAttachments" CaseAttachmentsList.of_json in
      let impactedServices =
        field_map json__ "impactedServices" ImpactedServicesList.of_json in
      let resolverType = field_map json__ "resolverType" ResolverType.of_json in
      let closureCode = field_map json__ "closureCode" ClosureCode.of_json in
      let lastUpdatedDate =
        field_map json__ "lastUpdatedDate" Timestamp.of_json in
      let createdDate = field_map json__ "createdDate" Timestamp.of_json in
      let watchers = field_map json__ "watchers" Watchers.of_json in
      let impactedAccounts =
        field_map json__ "impactedAccounts" ImpactedAccounts.of_json in
      let pendingAction =
        field_map json__ "pendingAction" PendingAction.of_json in
      let threatActorIpAddresses =
        field_map json__ "threatActorIpAddresses" ThreatActorIpList.of_json in
      let impactedAwsRegions =
        field_map json__ "impactedAwsRegions" ImpactedAwsRegionList.of_json in
      let actualIncidentStartDate =
        field_map json__ "actualIncidentStartDate" Timestamp.of_json in
      let reportedIncidentStartDate =
        field_map json__ "reportedIncidentStartDate" Timestamp.of_json in
      let engagementType =
        field_map json__ "engagementType" EngagementType.of_json in
      let caseStatus = field_map json__ "caseStatus" CaseStatus.of_json in
      let description =
        field_map json__ "description" CaseDescription.of_json in
      let caseArn = field_map json__ "caseArn" CaseArn.of_json in
      let title = field_map json__ "title" CaseTitle.of_json in
      make ?caseMetadata ?closedDate ?caseAttachments ?impactedServices
        ?resolverType ?closureCode ?lastUpdatedDate ?createdDate ?watchers
        ?impactedAccounts ?pendingAction ?threatActorIpAddresses
        ?impactedAwsRegions ?actualIncidentStartDate
        ?reportedIncidentStartDate ?engagementType ?caseStatus ?description
        ?caseArn ?title ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the attributes of a case."]
module GetCaseRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t
        [@ocaml.doc
          "Required element for GetCase to identify the requested case ID."]}
    let context_ = "GetCaseRequest"
    let make ~caseId = fun () -> { caseId }
    let to_value x =
      structure_to_value [("caseId", (Some (CaseId.to_value x.caseId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      make ~caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      make ~caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the attributes of a case."]
module GetCaseAttachmentUploadUrlResponse =
  struct
    type nonrec t =
      {
      attachmentPresignedUrl: Url.t option
        [@ocaml.doc
          "Response element providing the Amazon S3 presigned URL to upload the attachment."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attachmentPresignedUrl = fun () -> { attachmentPresignedUrl }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("attachmentPresignedUrl",
           (Option.map x.attachmentPresignedUrl ~f:Url.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentPresignedUrl =
        (Option.map ~f:Url.of_xml)
          (Xml.child xml_arg0 "attachmentPresignedUrl") in
      make ?attachmentPresignedUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentPresignedUrl =
        field_map json__ "attachmentPresignedUrl" Url.of_json in
      make ?attachmentPresignedUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Uploads an attachment to a case."]
module GetCaseAttachmentUploadUrlRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t
        [@ocaml.doc
          "Required element for GetCaseAttachmentUploadUrl to identify the case ID for uploading an attachment."];
      fileName: FileName.t
        [@ocaml.doc
          "Required element for GetCaseAttachmentUploadUrl to identify the file name of the attachment to upload."];
      contentLength: ContentLength.t
        [@ocaml.doc
          "Required element for GetCaseAttachmentUploadUrl to identify the size of the file attachment."];
      clientToken:
        GetCaseAttachmentUploadUrlRequestClientTokenString.t option
        [@ocaml.doc
          "The clientToken field is an idempotency key used to ensure that repeated attempts for a single action will be ignored by the server during retries. A caller supplied unique ID (typically a UUID) should be provided."]}
    let context_ = "GetCaseAttachmentUploadUrlRequest"
    let make ?clientToken =
      fun ~caseId ->
        fun ~fileName ->
          fun ~contentLength ->
            fun () -> { clientToken; caseId; fileName; contentLength }
    let to_value x =
      structure_to_value
        [("caseId", (Some (CaseId.to_value x.caseId)));
        ("fileName", (Some (FileName.to_value x.fileName)));
        ("contentLength", (Some (ContentLength.to_value x.contentLength)));
        ("clientToken",
          (Option.map x.clientToken
             ~f:GetCaseAttachmentUploadUrlRequestClientTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map
           ~f:GetCaseAttachmentUploadUrlRequestClientTokenString.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      let contentLength =
        ContentLength.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "contentLength") in
      let fileName =
        FileName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "fileName") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      make ?clientToken ~contentLength ~fileName ~caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken =
        field_map json__ "clientToken"
          GetCaseAttachmentUploadUrlRequestClientTokenString.of_json in
      let contentLength =
        field_map_exn json__ "contentLength" ContentLength.of_json in
      let fileName = field_map_exn json__ "fileName" FileName.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      make ?clientToken ~contentLength ~fileName ~caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Uploads an attachment to a case."]
module GetCaseAttachmentDownloadUrlResponse =
  struct
    type nonrec t =
      {
      attachmentPresignedUrl: Url.t option
        [@ocaml.doc
          "Response element providing the Amazon S3 presigned URL to download an attachment."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?attachmentPresignedUrl = fun () -> { attachmentPresignedUrl }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("attachmentPresignedUrl",
           (Option.map x.attachmentPresignedUrl ~f:Url.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentPresignedUrl =
        (Option.map ~f:Url.of_xml)
          (Xml.child xml_arg0 "attachmentPresignedUrl") in
      make ?attachmentPresignedUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentPresignedUrl =
        field_map json__ "attachmentPresignedUrl" Url.of_json in
      make ?attachmentPresignedUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a Pre-Signed URL for uploading attachments into a case."]
module GetCaseAttachmentDownloadUrlRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t
        [@ocaml.doc
          "Required element for GetCaseAttachmentDownloadUrl to identify the case ID for downloading an attachment from."];
      attachmentId: AttachmentId.t
        [@ocaml.doc
          "Required element for GetCaseAttachmentDownloadUrl to identify the attachment ID for downloading an attachment."]}
    let context_ = "GetCaseAttachmentDownloadUrlRequest"
    let make ~caseId =
      fun ~attachmentId -> fun () -> { caseId; attachmentId }
    let to_value x =
      structure_to_value
        [("caseId", (Some (CaseId.to_value x.caseId)));
        ("attachmentId", (Some (AttachmentId.to_value x.attachmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attachmentId =
        AttachmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attachmentId") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      make ~attachmentId ~caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attachmentId =
        field_map_exn json__ "attachmentId" AttachmentId.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      make ~attachmentId ~caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a Pre-Signed URL for uploading attachments into a case."]
module CreateMembershipResponse =
  struct
    type nonrec t =
      {
      membershipId: MembershipId.t option
        [@ocaml.doc
          "Response element for CreateMembership providing the newly created membership ID."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?membershipId = fun () -> { membershipId }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("membershipId",
           (Option.map x.membershipId ~f:MembershipId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let membershipId =
        (Option.map ~f:MembershipId.of_xml)
          (Xml.child xml_arg0 "membershipId") in
      make ?membershipId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let membershipId = field_map json__ "membershipId" MembershipId.of_json in
      make ?membershipId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new membership."]
module CreateMembershipRequest =
  struct
    type nonrec t =
      {
      clientToken: CreateMembershipRequestClientTokenString.t option
        [@ocaml.doc
          "The clientToken field is an idempotency key used to ensure that repeated attempts for a single action will be ignored by the server during retries. A caller supplied unique ID (typically a UUID) should be provided."];
      membershipName: MembershipName.t
        [@ocaml.doc
          "Required element used in combination with CreateMembership to create a name for the membership."];
      incidentResponseTeam: IncidentResponseTeam.t
        [@ocaml.doc
          "Required element used in combination with CreateMembership to add customer incident response team members and trusted partners to the membership."];
      optInFeatures: OptInFeatures.t option
        [@ocaml.doc
          "Optional element to enable the monitoring and investigation opt-in features for the service."];
      tags: TagMap.t option
        [@ocaml.doc "Optional element for customer configured tags."];
      coverEntireOrganization: Boolean.t option
        [@ocaml.doc
          "The coverEntireOrganization parameter is a boolean flag that determines whether the membership should be applied to the entire Amazon Web Services Organization. When set to true, the membership will be created for all accounts within the organization. When set to false, the membership will only be created for specified accounts. This parameter is optional. If not specified, the default value is false. If set to true: The membership will automatically include all existing and future accounts in the Amazon Web Services Organization. If set to false: The membership will only apply to explicitly specified accounts."]}
    let context_ = "CreateMembershipRequest"
    let make ?clientToken =
      fun ?optInFeatures ->
        fun ?tags ->
          fun ?coverEntireOrganization ->
            fun ~membershipName ->
              fun ~incidentResponseTeam ->
                fun () ->
                  {
                    clientToken;
                    optInFeatures;
                    tags;
                    coverEntireOrganization;
                    membershipName;
                    incidentResponseTeam
                  }
    let to_value x =
      structure_to_value
        [("clientToken",
           (Option.map x.clientToken
              ~f:CreateMembershipRequestClientTokenString.to_value));
        ("membershipName", (Some (MembershipName.to_value x.membershipName)));
        ("incidentResponseTeam",
          (Some (IncidentResponseTeam.to_value x.incidentResponseTeam)));
        ("optInFeatures",
          (Option.map x.optInFeatures ~f:OptInFeatures.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("coverEntireOrganization",
          (Option.map x.coverEntireOrganization ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let coverEntireOrganization =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "coverEntireOrganization") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let optInFeatures =
        (Option.map ~f:OptInFeatures.of_xml)
          (Xml.child xml_arg0 "optInFeatures") in
      let incidentResponseTeam =
        IncidentResponseTeam.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "incidentResponseTeam") in
      let membershipName =
        MembershipName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "membershipName") in
      let clientToken =
        (Option.map ~f:CreateMembershipRequestClientTokenString.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      make ?coverEntireOrganization ?tags ?optInFeatures
        ~incidentResponseTeam ~membershipName ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let coverEntireOrganization =
        field_map json__ "coverEntireOrganization" Boolean.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let optInFeatures =
        field_map json__ "optInFeatures" OptInFeatures.of_json in
      let incidentResponseTeam =
        field_map_exn json__ "incidentResponseTeam"
          IncidentResponseTeam.of_json in
      let membershipName =
        field_map_exn json__ "membershipName" MembershipName.of_json in
      let clientToken =
        field_map json__ "clientToken"
          CreateMembershipRequestClientTokenString.of_json in
      make ?coverEntireOrganization ?tags ?optInFeatures
        ~incidentResponseTeam ~membershipName ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new membership."]
module CreateCaseResponse =
  struct
    type nonrec t =
      {
      caseId: CaseId.t option
        [@ocaml.doc
          "A response element providing responses for requests to CreateCase. This element responds with the case ID."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?caseId = fun () -> { caseId }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("caseId", (Option.map x.caseId ~f:CaseId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "caseId") in
      make ?caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseId = field_map json__ "caseId" CaseId.of_json in
      make ?caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new case."]
module CreateCaseRequest =
  struct
    type nonrec t =
      {
      clientToken: CreateCaseRequestClientTokenString.t option
        [@ocaml.doc
          "The clientToken field is an idempotency key used to ensure that repeated attempts for a single action will be ignored by the server during retries. A caller supplied unique ID (typically a UUID) should be provided."];
      resolverType: ResolverType.t
        [@ocaml.doc
          "Required element used in combination with CreateCase to identify the resolver type."];
      title: CaseTitle.t
        [@ocaml.doc
          "Required element used in combination with CreateCase to provide a title for the new case."];
      description: CaseDescription.t
        [@ocaml.doc
          "Required element used in combination with CreateCase to provide a description for the new case."];
      engagementType: EngagementType.t
        [@ocaml.doc
          "Required element used in combination with CreateCase to provide an engagement type for the new cases. Available engagement types include Security Incident | Investigation"];
      reportedIncidentStartDate: Timestamp.t
        [@ocaml.doc
          "Required element used in combination with CreateCase to provide an initial start date for the unauthorized activity."];
      impactedAccounts: ImpactedAccounts.t
        [@ocaml.doc
          "Required element used in combination with CreateCase to provide a list of impacted accounts. AWS account ID's may appear less than 12 characters and need to be zero-prepended. An example would be 123123123 which is nine digits, and with zero-prepend would be 000123123123. Not zero-prepending to 12 digits could result in errors."];
      watchers: Watchers.t
        [@ocaml.doc
          "Required element used in combination with CreateCase to provide a list of entities to receive notifications for case updates."];
      threatActorIpAddresses: ThreatActorIpList.t option
        [@ocaml.doc
          "An optional element used in combination with CreateCase to provide a list of suspicious internet protocol addresses associated with unauthorized activity."];
      impactedServices: ImpactedServicesList.t option
        [@ocaml.doc
          "An optional element used in combination with CreateCase to provide a list of services impacted."];
      impactedAwsRegions: ImpactedAwsRegionList.t option
        [@ocaml.doc
          "An optional element used in combination with CreateCase to provide a list of impacted regions."];
      tags: TagMap.t option
        [@ocaml.doc
          "An optional element used in combination with CreateCase to add customer specified tags to a case."]}
    let context_ = "CreateCaseRequest"
    let make ?clientToken =
      fun ?threatActorIpAddresses ->
        fun ?impactedServices ->
          fun ?impactedAwsRegions ->
            fun ?tags ->
              fun ~resolverType ->
                fun ~title ->
                  fun ~description ->
                    fun ~engagementType ->
                      fun ~reportedIncidentStartDate ->
                        fun ~impactedAccounts ->
                          fun ~watchers ->
                            fun () ->
                              {
                                clientToken;
                                threatActorIpAddresses;
                                impactedServices;
                                impactedAwsRegions;
                                tags;
                                resolverType;
                                title;
                                description;
                                engagementType;
                                reportedIncidentStartDate;
                                impactedAccounts;
                                watchers
                              }
    let to_value x =
      structure_to_value
        [("clientToken",
           (Option.map x.clientToken
              ~f:CreateCaseRequestClientTokenString.to_value));
        ("resolverType", (Some (ResolverType.to_value x.resolverType)));
        ("title", (Some (CaseTitle.to_value x.title)));
        ("description", (Some (CaseDescription.to_value x.description)));
        ("engagementType", (Some (EngagementType.to_value x.engagementType)));
        ("reportedIncidentStartDate",
          (Some (Timestamp.to_value x.reportedIncidentStartDate)));
        ("impactedAccounts",
          (Some (ImpactedAccounts.to_value x.impactedAccounts)));
        ("watchers", (Some (Watchers.to_value x.watchers)));
        ("threatActorIpAddresses",
          (Option.map x.threatActorIpAddresses ~f:ThreatActorIpList.to_value));
        ("impactedServices",
          (Option.map x.impactedServices ~f:ImpactedServicesList.to_value));
        ("impactedAwsRegions",
          (Option.map x.impactedAwsRegions ~f:ImpactedAwsRegionList.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let impactedAwsRegions =
        (Option.map ~f:ImpactedAwsRegionList.of_xml)
          (Xml.child xml_arg0 "impactedAwsRegions") in
      let impactedServices =
        (Option.map ~f:ImpactedServicesList.of_xml)
          (Xml.child xml_arg0 "impactedServices") in
      let threatActorIpAddresses =
        (Option.map ~f:ThreatActorIpList.of_xml)
          (Xml.child xml_arg0 "threatActorIpAddresses") in
      let watchers =
        Watchers.of_xml (Xml.child_exn ~context:context_ xml_arg0 "watchers") in
      let impactedAccounts =
        ImpactedAccounts.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "impactedAccounts") in
      let reportedIncidentStartDate =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "reportedIncidentStartDate") in
      let engagementType =
        EngagementType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "engagementType") in
      let description =
        CaseDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "description") in
      let title =
        CaseTitle.of_xml (Xml.child_exn ~context:context_ xml_arg0 "title") in
      let resolverType =
        ResolverType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resolverType") in
      let clientToken =
        (Option.map ~f:CreateCaseRequestClientTokenString.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      make ?tags ?impactedAwsRegions ?impactedServices
        ?threatActorIpAddresses ~watchers ~impactedAccounts
        ~reportedIncidentStartDate ~engagementType ~description ~title
        ~resolverType ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let impactedAwsRegions =
        field_map json__ "impactedAwsRegions" ImpactedAwsRegionList.of_json in
      let impactedServices =
        field_map json__ "impactedServices" ImpactedServicesList.of_json in
      let threatActorIpAddresses =
        field_map json__ "threatActorIpAddresses" ThreatActorIpList.of_json in
      let watchers = field_map_exn json__ "watchers" Watchers.of_json in
      let impactedAccounts =
        field_map_exn json__ "impactedAccounts" ImpactedAccounts.of_json in
      let reportedIncidentStartDate =
        field_map_exn json__ "reportedIncidentStartDate" Timestamp.of_json in
      let engagementType =
        field_map_exn json__ "engagementType" EngagementType.of_json in
      let description =
        field_map_exn json__ "description" CaseDescription.of_json in
      let title = field_map_exn json__ "title" CaseTitle.of_json in
      let resolverType =
        field_map_exn json__ "resolverType" ResolverType.of_json in
      let clientToken =
        field_map json__ "clientToken"
          CreateCaseRequestClientTokenString.of_json in
      make ?tags ?impactedAwsRegions ?impactedServices
        ?threatActorIpAddresses ~watchers ~impactedAccounts
        ~reportedIncidentStartDate ~engagementType ~description ~title
        ~resolverType ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new case."]
module CreateCaseCommentResponse =
  struct
    type nonrec t =
      {
      commentId: CommentId.t option
        [@ocaml.doc "Response element indicating the new comment ID."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commentId = fun () -> { commentId }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("commentId", (Option.map x.commentId ~f:CommentId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let commentId =
        (Option.map ~f:CommentId.of_xml) (Xml.child xml_arg0 "commentId") in
      make ?commentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let commentId = field_map json__ "commentId" CommentId.of_json in
      make ?commentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds a comment to an existing case."]
module CreateCaseCommentRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t
        [@ocaml.doc
          "Required element used in combination with CreateCaseComment to specify a case ID."];
      clientToken: CreateCaseCommentRequestClientTokenString.t option
        [@ocaml.doc
          "The clientToken field is an idempotency key used to ensure that repeated attempts for a single action will be ignored by the server during retries. A caller supplied unique ID (typically a UUID) should be provided."];
      body: CommentBody.t
        [@ocaml.doc
          "Required element used in combination with CreateCaseComment to add content for the new comment."]}
    let context_ = "CreateCaseCommentRequest"
    let make ?clientToken =
      fun ~caseId -> fun ~body -> fun () -> { clientToken; caseId; body }
    let to_value x =
      structure_to_value
        [("caseId", (Some (CaseId.to_value x.caseId)));
        ("clientToken",
          (Option.map x.clientToken
             ~f:CreateCaseCommentRequestClientTokenString.to_value));
        ("body", (Some (CommentBody.to_value x.body)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let body =
        CommentBody.of_xml (Xml.child_exn ~context:context_ xml_arg0 "body") in
      let clientToken =
        (Option.map ~f:CreateCaseCommentRequestClientTokenString.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      make ~body ?clientToken ~caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let body = field_map_exn json__ "body" CommentBody.of_json in
      let clientToken =
        field_map json__ "clientToken"
          CreateCaseCommentRequestClientTokenString.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      make ~body ?clientToken ~caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds a comment to an existing case."]
module CloseCaseResponse =
  struct
    type nonrec t =
      {
      caseStatus: CaseStatus.t option
        [@ocaml.doc
          "A response element providing responses for requests to CloseCase. This element responds Closed if successful."];
      closedDate: Timestamp.t option
        [@ocaml.doc
          "A response element providing responses for requests to CloseCase. This element responds with the ISO-8601 formatted timestamp of the moment when the case was closed."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?caseStatus =
      fun ?closedDate -> fun () -> { caseStatus; closedDate }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("caseStatus", (Option.map x.caseStatus ~f:CaseStatus.to_value));
        ("closedDate", (Option.map x.closedDate ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let closedDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "closedDate") in
      let caseStatus =
        (Option.map ~f:CaseStatus.of_xml) (Xml.child xml_arg0 "caseStatus") in
      make ?closedDate ?caseStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let closedDate = field_map json__ "closedDate" Timestamp.of_json in
      let caseStatus = field_map json__ "caseStatus" CaseStatus.of_json in
      make ?closedDate ?caseStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Closes an existing case."]
module CloseCaseRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t
        [@ocaml.doc
          "Required element used in combination with CloseCase to identify the case ID to close."]}
    let context_ = "CloseCaseRequest"
    let make ~caseId = fun () -> { caseId }
    let to_value x =
      structure_to_value [("caseId", (Some (CaseId.to_value x.caseId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      make ~caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      make ~caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Closes an existing case."]
module CancelMembershipResponse =
  struct
    type nonrec t =
      {
      membershipId: MembershipId.t option
        [@ocaml.doc
          "The response element providing responses for requests to CancelMembershipRequest."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?membershipId = fun () -> { membershipId }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("membershipId",
           (Option.map x.membershipId ~f:MembershipId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let membershipId =
        (Option.map ~f:MembershipId.of_xml)
          (Xml.child xml_arg0 "membershipId") in
      make ?membershipId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let membershipId = field_map json__ "membershipId" MembershipId.of_json in
      make ?membershipId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Cancels an existing membership."]
module CancelMembershipRequest =
  struct
    type nonrec t =
      {
      membershipId: MembershipId.t
        [@ocaml.doc
          "Required element used in combination with CancelMembershipRequest to identify the membership ID to cancel."]}
    let context_ = "CancelMembershipRequest"
    let make ~membershipId = fun () -> { membershipId }
    let to_value x =
      structure_to_value
        [("membershipId", (Some (MembershipId.to_value x.membershipId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let membershipId =
        MembershipId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "membershipId") in
      make ~membershipId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let membershipId =
        field_map_exn json__ "membershipId" MembershipId.of_json in
      make ~membershipId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Cancels an existing membership."]
module BatchGetMemberAccountDetailsResponse =
  struct
    type nonrec t =
      {
      items: GetMembershipAccountDetailItems.t option
        [@ocaml.doc
          "The response element providing responses for requests to GetMembershipAccountDetails."];
      errors: GetMembershipAccountDetailErrors.t option
        [@ocaml.doc
          "The response element providing error messages for requests to GetMembershipAccountDetails."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `InvalidTokenException of InvalidTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `SecurityIncidentResponseNotActiveException of
          SecurityIncidentResponseNotActiveException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?errors -> fun () -> { items; errors }
    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)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "InvalidTokenException" ->
          `InvalidTokenException (InvalidTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "SecurityIncidentResponseNotActiveException" ->
          `SecurityIncidentResponseNotActiveException
            (SecurityIncidentResponseNotActiveException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `InvalidTokenException e ->
          `Assoc
            [("error", (`String "InvalidTokenException"));
            ("details", (InvalidTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `SecurityIncidentResponseNotActiveException e ->
          `Assoc
            [("error",
               (`String "SecurityIncidentResponseNotActiveException"));
            ("details",
              (SecurityIncidentResponseNotActiveException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("items",
           (Option.map x.items ~f:GetMembershipAccountDetailItems.to_value));
        ("errors",
          (Option.map x.errors ~f:GetMembershipAccountDetailErrors.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:GetMembershipAccountDetailErrors.of_xml)
          (Xml.child xml_arg0 "errors") in
      let items =
        (Option.map ~f:GetMembershipAccountDetailItems.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?errors ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors" GetMembershipAccountDetailErrors.of_json in
      let items =
        field_map json__ "items" GetMembershipAccountDetailItems.of_json in
      make ?errors ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information on whether the supplied account IDs are associated with a membership. AWS account ID's may appear less than 12 characters and need to be zero-prepended. An example would be 123123123 which is nine digits, and with zero-prepend would be 000123123123. Not zero-prepending to 12 digits could result in errors."]
module BatchGetMemberAccountDetailsRequest =
  struct
    type nonrec t =
      {
      membershipId: MembershipId.t
        [@ocaml.doc
          "Required element used in combination with BatchGetMemberAccountDetails to identify the membership ID to query."];
      accountIds: AWSAccountIds.t
        [@ocaml.doc
          "Optional element to query the membership relationship status to a provided list of account IDs. AWS account ID's may appear less than 12 characters and need to be zero-prepended. An example would be 123123123 which is nine digits, and with zero-prepend would be 000123123123. Not zero-prepending to 12 digits could result in errors."]}
    let context_ = "BatchGetMemberAccountDetailsRequest"
    let make ~membershipId =
      fun ~accountIds -> fun () -> { membershipId; accountIds }
    let to_value x =
      structure_to_value
        [("membershipId", (Some (MembershipId.to_value x.membershipId)));
        ("accountIds", (Some (AWSAccountIds.to_value x.accountIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountIds =
        AWSAccountIds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "accountIds") in
      let membershipId =
        MembershipId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "membershipId") in
      make ~accountIds ~membershipId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountIds =
        field_map_exn json__ "accountIds" AWSAccountIds.of_json in
      let membershipId =
        field_map_exn json__ "membershipId" MembershipId.of_json in
      make ~accountIds ~membershipId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information on whether the supplied account IDs are associated with a membership. AWS account ID's may appear less than 12 characters and need to be zero-prepended. An example would be 123123123 which is nine digits, and with zero-prepend would be 000123123123. Not zero-prepending to 12 digits could result in errors."]