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.auditmanager
let apiVersion = "2017-07-25"
let endpointPrefix = "auditmanager"
let serviceFullName = "AWS Audit Manager"
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 ControlCommentBody =
  struct
    type nonrec t = string
    let context_ = "ControlCommentBody"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ControlCommentBody" 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 Username =
  struct
    type nonrec t = string
    let context_ = "Username"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[a-zA-Z0-9-_()\\s\\+=,.@]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Username" j
    let to_json = simple_to_json to_value
  end
module KeywordInputType =
  struct
    type nonrec t =
      | SELECT_FROM_LIST 
      | UPLOAD_FILE 
      | INPUT_TEXT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SELECT_FROM_LIST -> "SELECT_FROM_LIST"
      | UPLOAD_FILE -> "UPLOAD_FILE"
      | INPUT_TEXT -> "INPUT_TEXT"
      | Non_static_id s -> s
    let of_string =
      function
      | "SELECT_FROM_LIST" -> SELECT_FROM_LIST
      | "UPLOAD_FILE" -> UPLOAD_FILE
      | "INPUT_TEXT" -> INPUT_TEXT
      | 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 KeywordInputType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"KeywordInputType" j)
    let to_json = simple_to_json to_value
  end
module KeywordValue =
  struct
    type nonrec t = string
    let context_ = "KeywordValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[a-zA-Z_0-9-\\s().:\\/]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"KeywordValue" j
    let to_json = simple_to_json to_value
  end
module ControlComment =
  struct
    type nonrec t =
      {
      authorName: Username.t option
        [@ocaml.doc "The name of the user who authored the comment."];
      commentBody: ControlCommentBody.t option
        [@ocaml.doc "The body text of a control comment."];
      postedDate: Timestamp.t option
        [@ocaml.doc "The time when the comment was posted."]}
    let make ?authorName =
      fun ?commentBody ->
        fun ?postedDate -> fun () -> { authorName; commentBody; postedDate }
    let to_value x =
      structure_to_value
        [("authorName", (Option.map x.authorName ~f:Username.to_value));
        ("commentBody",
          (Option.map x.commentBody ~f:ControlCommentBody.to_value));
        ("postedDate", (Option.map x.postedDate ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let postedDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "postedDate") in
      let commentBody =
        (Option.map ~f:ControlCommentBody.of_xml)
          (Xml.child xml_arg0 "commentBody") in
      let authorName =
        (Option.map ~f:Username.of_xml) (Xml.child xml_arg0 "authorName") in
      make ?postedDate ?commentBody ?authorName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let postedDate = field_map json__ "postedDate" Timestamp.of_json in
      let commentBody =
        field_map json__ "commentBody" ControlCommentBody.of_json in
      let authorName = field_map json__ "authorName" Username.of_json in
      make ?postedDate ?commentBody ?authorName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A comment that's posted by a user on a control. This includes the author's name, the comment text, and a timestamp."]
module NonEmptyString =
  struct
    type nonrec t = string
    let context_ = "NonEmptyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NonEmptyString" j
    let to_json = simple_to_json to_value
  end
module SourceDescription =
  struct
    type nonrec t = string
    let context_ = "SourceDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SourceDescription" j
    let to_json = simple_to_json to_value
  end
module SourceFrequency =
  struct
    type nonrec t =
      | DAILY 
      | WEEKLY 
      | MONTHLY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DAILY -> "DAILY"
      | WEEKLY -> "WEEKLY"
      | MONTHLY -> "MONTHLY"
      | Non_static_id s -> s
    let of_string =
      function
      | "DAILY" -> DAILY
      | "WEEKLY" -> WEEKLY
      | "MONTHLY" -> MONTHLY
      | 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 SourceFrequency" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SourceFrequency" j)
    let to_json = simple_to_json to_value
  end
module SourceKeyword =
  struct
    type nonrec t =
      {
      keywordInputType: KeywordInputType.t option
        [@ocaml.doc
          "The input method for the keyword. SELECT_FROM_LIST is used when mapping a data source for automated evidence. When keywordInputType is SELECT_FROM_LIST, a keyword must be selected to collect automated evidence. For example, this keyword can be a CloudTrail event name, a rule name for Config, a Security Hub control, or the name of an Amazon Web Services API call. UPLOAD_FILE and INPUT_TEXT are only used when mapping a data source for manual evidence. When keywordInputType is UPLOAD_FILE, a file must be uploaded as manual evidence. When keywordInputType is INPUT_TEXT, text must be entered as manual evidence."];
      keywordValue: KeywordValue.t option
        [@ocaml.doc
          "The value of the keyword that's used when mapping a control data source. For example, this can be a CloudTrail event name, a rule name for Config, a Security Hub control, or the name of an Amazon Web Services API call. If you\226\128\153re mapping a data source to a rule in Config, the keywordValue that you specify depends on the type of rule: For managed rules, you can use the rule identifier as the keywordValue. You can find the rule identifier from the list of Config managed rules. For some rules, the rule identifier is different from the rule name. For example, the rule name restricted-ssh has the following rule identifier: INCOMING_SSH_DISABLED. Make sure to use the rule identifier, not the rule name. Keyword example for managed rules: Managed rule name: s3-bucket-acl-prohibited keywordValue: S3_BUCKET_ACL_PROHIBITED For custom rules, you form the keywordValue by adding the Custom_ prefix to the rule name. This prefix distinguishes the custom rule from a managed rule. Keyword example for custom rules: Custom rule name: my-custom-config-rule keywordValue: Custom_my-custom-config-rule For service-linked rules, you form the keywordValue by adding the Custom_ prefix to the rule name. In addition, you remove the suffix ID that appears at the end of the rule name. Keyword examples for service-linked rules: Service-linked rule name: CustomRuleForAccount-conformance-pack-szsm1uv0w keywordValue: Custom_CustomRuleForAccount-conformance-pack Service-linked rule name: OrgConfigRule-s3-bucket-versioning-enabled-dbgzf8ba keywordValue: Custom_OrgConfigRule-s3-bucket-versioning-enabled The keywordValue is case sensitive. If you enter a value incorrectly, Audit Manager might not recognize the data source mapping. As a result, you might not successfully collect evidence from that data source as intended. Keep in mind the following requirements, depending on the data source type that you're using. For Config: For managed rules, make sure that the keywordValue is the rule identifier in ALL_CAPS_WITH_UNDERSCORES. For example, CLOUDWATCH_LOG_GROUP_ENCRYPTED. For accuracy, we recommend that you reference the list of supported Config managed rules. For custom rules, make sure that the keywordValue has the Custom_ prefix followed by the custom rule name. The format of the custom rule name itself may vary. For accuracy, we recommend that you visit the Config console to verify your custom rule name. For Security Hub: The format varies for Security Hub control names. For accuracy, we recommend that you reference the list of supported Security Hub controls. For Amazon Web Services API calls: Make sure that the keywordValue is written as serviceprefix_ActionName. For example, iam_ListGroups. For accuracy, we recommend that you reference the list of supported API calls. For CloudTrail: Make sure that the keywordValue is written as serviceprefix_ActionName. For example, cloudtrail_StartLogging. For accuracy, we recommend that you review the Amazon Web Services service prefix and action names in the Service Authorization Reference."]}
    let make ?keywordInputType =
      fun ?keywordValue -> fun () -> { keywordInputType; keywordValue }
    let to_value x =
      structure_to_value
        [("keywordInputType",
           (Option.map x.keywordInputType ~f:KeywordInputType.to_value));
        ("keywordValue",
          (Option.map x.keywordValue ~f:KeywordValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keywordValue =
        (Option.map ~f:KeywordValue.of_xml)
          (Xml.child xml_arg0 "keywordValue") in
      let keywordInputType =
        (Option.map ~f:KeywordInputType.of_xml)
          (Xml.child xml_arg0 "keywordInputType") in
      make ?keywordValue ?keywordInputType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keywordValue = field_map json__ "keywordValue" KeywordValue.of_json in
      let keywordInputType =
        field_map json__ "keywordInputType" KeywordInputType.of_json in
      make ?keywordValue ?keywordInputType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A keyword that relates to the control data source. For manual evidence, this keyword indicates if the manual evidence is a file or text. For automated evidence, this keyword identifies a specific CloudTrail event, Config rule, Security Hub control, or Amazon Web Services API name. To learn more about the supported keywords that you can use when mapping a control data source, see the following pages in the Audit Manager User Guide: Config rules supported by Audit Manager Security Hub controls supported by Audit Manager API calls supported by Audit Manager CloudTrail event names supported by Audit Manager"]
module SourceName =
  struct
    type nonrec t = string
    let context_ = "SourceName"
    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:"SourceName" j
    let to_json = simple_to_json to_value
  end
module SourceSetUpOption =
  struct
    type nonrec t =
      | System_Controls_Mapping 
      | Procedural_Controls_Mapping 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | System_Controls_Mapping -> "System_Controls_Mapping"
      | Procedural_Controls_Mapping -> "Procedural_Controls_Mapping"
      | Non_static_id s -> s
    let of_string =
      function
      | "System_Controls_Mapping" -> System_Controls_Mapping
      | "Procedural_Controls_Mapping" -> Procedural_Controls_Mapping
      | 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 SourceSetUpOption" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SourceSetUpOption" j)
    let to_json = simple_to_json to_value
  end
module SourceType =
  struct
    type nonrec t =
      | AWS_Cloudtrail 
      | AWS_Config 
      | AWS_Security_Hub 
      | AWS_API_Call 
      | MANUAL 
      | Common_Control 
      | Core_Control 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AWS_Cloudtrail -> "AWS_Cloudtrail"
      | AWS_Config -> "AWS_Config"
      | AWS_Security_Hub -> "AWS_Security_Hub"
      | AWS_API_Call -> "AWS_API_Call"
      | MANUAL -> "MANUAL"
      | Common_Control -> "Common_Control"
      | Core_Control -> "Core_Control"
      | Non_static_id s -> s
    let of_string =
      function
      | "AWS_Cloudtrail" -> AWS_Cloudtrail
      | "AWS_Config" -> AWS_Config
      | "AWS_Security_Hub" -> AWS_Security_Hub
      | "AWS_API_Call" -> AWS_API_Call
      | "MANUAL" -> MANUAL
      | "Common_Control" -> Common_Control
      | "Core_Control" -> Core_Control
      | 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 SourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SourceType" j)
    let to_json = simple_to_json to_value
  end
module TroubleshootingText =
  struct
    type nonrec t = string
    let context_ = "TroubleshootingText"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TroubleshootingText" j
    let to_json = simple_to_json to_value
  end
module UUID =
  struct
    type nonrec t = string
    let context_ = "UUID"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:36) >>=
             (fun () ->
                (check_string_max i ~max:36) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-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:"UUID" j
    let to_json = simple_to_json to_value
  end
module ControlComments =
  struct
    type nonrec t = ControlComment.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:ControlComment.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:ControlComment.of_xml)
    let of_json j =
      list_of_json ~kind:"ControlComments" ~of_json:ControlComment.of_json j
    let to_json v = composed_to_json to_value v
  end
module ControlDescription =
  struct
    type nonrec t = string
    let context_ = "ControlDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ControlDescription" j
    let to_json = simple_to_json to_value
  end
module ControlName =
  struct
    type nonrec t = string
    let context_ = "ControlName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:300) >>=
                  (fun () -> check_pattern i ~pattern:"^[^\\\\]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ControlName" j
    let to_json = simple_to_json to_value
  end
module ControlResponse =
  struct
    type nonrec t =
      | MANUAL 
      | AUTOMATE 
      | DEFER 
      | IGNORE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MANUAL -> "MANUAL"
      | AUTOMATE -> "AUTOMATE"
      | DEFER -> "DEFER"
      | IGNORE -> "IGNORE"
      | Non_static_id s -> s
    let of_string =
      function
      | "MANUAL" -> MANUAL
      | "AUTOMATE" -> AUTOMATE
      | "DEFER" -> DEFER
      | "IGNORE" -> IGNORE
      | 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 ControlResponse" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ControlResponse" j)
    let to_json = simple_to_json to_value
  end
module ControlStatus =
  struct
    type nonrec t =
      | UNDER_REVIEW 
      | REVIEWED 
      | INACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNDER_REVIEW -> "UNDER_REVIEW"
      | REVIEWED -> "REVIEWED"
      | INACTIVE -> "INACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNDER_REVIEW" -> UNDER_REVIEW
      | "REVIEWED" -> REVIEWED
      | "INACTIVE" -> INACTIVE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ControlStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ControlStatus" j)
    let to_json = simple_to_json to_value
  end
module EvidenceSources =
  struct
    type nonrec t = NonEmptyString.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:NonEmptyString.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:NonEmptyString.of_xml)
    let of_json j =
      list_of_json ~kind:"EvidenceSources" ~of_json:NonEmptyString.of_json j
    let to_json v = composed_to_json to_value v
  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 AssessmentName =
  struct
    type nonrec t = string
    let context_ = "AssessmentName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:300) >>=
                  (fun () -> check_pattern i ~pattern:"^[^\\\\]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AssessmentName" j
    let to_json = simple_to_json to_value
  end
module ControlSetId =
  struct
    type nonrec t = string
    let context_ = "ControlSetId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:300) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ControlSetId" j
    let to_json = simple_to_json to_value
  end
module CreatedBy =
  struct
    type nonrec t = string
    let context_ = "CreatedBy"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[a-zA-Z0-9\\s-_()\\[\\]]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CreatedBy" j
    let to_json = simple_to_json to_value
  end
module DelegationComment =
  struct
    type nonrec t = string
    let context_ = "DelegationComment"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:350) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DelegationComment" j
    let to_json = simple_to_json to_value
  end
module DelegationStatus =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | UNDER_REVIEW 
      | COMPLETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | UNDER_REVIEW -> "UNDER_REVIEW"
      | COMPLETE -> "COMPLETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "UNDER_REVIEW" -> UNDER_REVIEW
      | "COMPLETE" -> COMPLETE
      | 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 DelegationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DelegationStatus" j)
    let to_json = simple_to_json to_value
  end
module IamArn =
  struct
    type nonrec t = string
    let context_ = "IamArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"^arn:.*:iam:.*")));
        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:"IamArn" j
    let to_json = simple_to_json to_value
  end
module RoleType =
  struct
    type nonrec t =
      | PROCESS_OWNER 
      | RESOURCE_OWNER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PROCESS_OWNER -> "PROCESS_OWNER"
      | RESOURCE_OWNER -> "RESOURCE_OWNER"
      | Non_static_id s -> s
    let of_string =
      function
      | "PROCESS_OWNER" -> PROCESS_OWNER
      | "RESOURCE_OWNER" -> RESOURCE_OWNER
      | 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 RoleType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RoleType" j)
    let to_json = simple_to_json to_value
  end
module ControlMappingSource =
  struct
    type nonrec t =
      {
      sourceId: UUID.t option
        [@ocaml.doc "The unique identifier for the source."];
      sourceName: SourceName.t option [@ocaml.doc "The name of the source."];
      sourceDescription: SourceDescription.t option
        [@ocaml.doc "The description of the source."];
      sourceSetUpOption: SourceSetUpOption.t option
        [@ocaml.doc
          "The setup option for the data source. This option reflects if the evidence collection method is automated or manual. If you don\226\128\153t provide a value for sourceSetUpOption, Audit Manager automatically infers and populates the correct value based on the sourceType that you specify."];
      sourceType: SourceType.t option
        [@ocaml.doc
          "Specifies which type of data source is used to collect evidence. The source can be an individual data source type, such as AWS_Cloudtrail, AWS_Config, AWS_Security_Hub, AWS_API_Call, or MANUAL. The source can also be a managed grouping of data sources, such as a Core_Control or a Common_Control."];
      sourceKeyword: SourceKeyword.t option ;
      sourceFrequency: SourceFrequency.t option
        [@ocaml.doc
          "Specifies how often evidence is collected from the control mapping source."];
      troubleshootingText: TroubleshootingText.t option
        [@ocaml.doc "The instructions for troubleshooting the control."]}
    let make ?sourceId =
      fun ?sourceName ->
        fun ?sourceDescription ->
          fun ?sourceSetUpOption ->
            fun ?sourceType ->
              fun ?sourceKeyword ->
                fun ?sourceFrequency ->
                  fun ?troubleshootingText ->
                    fun () ->
                      {
                        sourceId;
                        sourceName;
                        sourceDescription;
                        sourceSetUpOption;
                        sourceType;
                        sourceKeyword;
                        sourceFrequency;
                        troubleshootingText
                      }
    let to_value x =
      structure_to_value
        [("sourceId", (Option.map x.sourceId ~f:UUID.to_value));
        ("sourceName", (Option.map x.sourceName ~f:SourceName.to_value));
        ("sourceDescription",
          (Option.map x.sourceDescription ~f:SourceDescription.to_value));
        ("sourceSetUpOption",
          (Option.map x.sourceSetUpOption ~f:SourceSetUpOption.to_value));
        ("sourceType", (Option.map x.sourceType ~f:SourceType.to_value));
        ("sourceKeyword",
          (Option.map x.sourceKeyword ~f:SourceKeyword.to_value));
        ("sourceFrequency",
          (Option.map x.sourceFrequency ~f:SourceFrequency.to_value));
        ("troubleshootingText",
          (Option.map x.troubleshootingText ~f:TroubleshootingText.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let troubleshootingText =
        (Option.map ~f:TroubleshootingText.of_xml)
          (Xml.child xml_arg0 "troubleshootingText") in
      let sourceFrequency =
        (Option.map ~f:SourceFrequency.of_xml)
          (Xml.child xml_arg0 "sourceFrequency") in
      let sourceKeyword =
        (Option.map ~f:SourceKeyword.of_xml)
          (Xml.child xml_arg0 "sourceKeyword") in
      let sourceType =
        (Option.map ~f:SourceType.of_xml) (Xml.child xml_arg0 "sourceType") in
      let sourceSetUpOption =
        (Option.map ~f:SourceSetUpOption.of_xml)
          (Xml.child xml_arg0 "sourceSetUpOption") in
      let sourceDescription =
        (Option.map ~f:SourceDescription.of_xml)
          (Xml.child xml_arg0 "sourceDescription") in
      let sourceName =
        (Option.map ~f:SourceName.of_xml) (Xml.child xml_arg0 "sourceName") in
      let sourceId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "sourceId") in
      make ?troubleshootingText ?sourceFrequency ?sourceKeyword ?sourceType
        ?sourceSetUpOption ?sourceDescription ?sourceName ?sourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let troubleshootingText =
        field_map json__ "troubleshootingText" TroubleshootingText.of_json in
      let sourceFrequency =
        field_map json__ "sourceFrequency" SourceFrequency.of_json in
      let sourceKeyword =
        field_map json__ "sourceKeyword" SourceKeyword.of_json in
      let sourceType = field_map json__ "sourceType" SourceType.of_json in
      let sourceSetUpOption =
        field_map json__ "sourceSetUpOption" SourceSetUpOption.of_json in
      let sourceDescription =
        field_map json__ "sourceDescription" SourceDescription.of_json in
      let sourceName = field_map json__ "sourceName" SourceName.of_json in
      let sourceId = field_map json__ "sourceId" UUID.of_json in
      make ?troubleshootingText ?sourceFrequency ?sourceKeyword ?sourceType
        ?sourceSetUpOption ?sourceDescription ?sourceName ?sourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The data source that determines where Audit Manager collects evidence from for the control."]
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^(?!aws:)[a-zA-Z+-=._:/]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"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_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:".{0,255}")));
        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 AssessmentControl =
  struct
    type nonrec t =
      {
      id: UUID.t option [@ocaml.doc "The identifier for the control."];
      name: ControlName.t option [@ocaml.doc "The name of the control."];
      description: ControlDescription.t option
        [@ocaml.doc "The description of the control."];
      status: ControlStatus.t option
        [@ocaml.doc "The status of the control."];
      response: ControlResponse.t option
        [@ocaml.doc "The response of the control."];
      comments: ControlComments.t option
        [@ocaml.doc "The list of comments that's attached to the control."];
      evidenceSources: EvidenceSources.t option
        [@ocaml.doc "The list of data sources for the evidence."];
      evidenceCount: Integer.t option
        [@ocaml.doc
          "The amount of evidence that's collected for the control."];
      assessmentReportEvidenceCount: Integer.t option
        [@ocaml.doc "The amount of evidence in the assessment report."]}
    let make ?id =
      fun ?name ->
        fun ?description ->
          fun ?status ->
            fun ?response ->
              fun ?comments ->
                fun ?evidenceSources ->
                  fun ?evidenceCount ->
                    fun ?assessmentReportEvidenceCount ->
                      fun () ->
                        {
                          id;
                          name;
                          description;
                          status;
                          response;
                          comments;
                          evidenceSources;
                          evidenceCount;
                          assessmentReportEvidenceCount
                        }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("name", (Option.map x.name ~f:ControlName.to_value));
        ("description",
          (Option.map x.description ~f:ControlDescription.to_value));
        ("status", (Option.map x.status ~f:ControlStatus.to_value));
        ("response", (Option.map x.response ~f:ControlResponse.to_value));
        ("comments", (Option.map x.comments ~f:ControlComments.to_value));
        ("evidenceSources",
          (Option.map x.evidenceSources ~f:EvidenceSources.to_value));
        ("evidenceCount", (Option.map x.evidenceCount ~f:Integer.to_value));
        ("assessmentReportEvidenceCount",
          (Option.map x.assessmentReportEvidenceCount ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentReportEvidenceCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "assessmentReportEvidenceCount") in
      let evidenceCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "evidenceCount") in
      let evidenceSources =
        (Option.map ~f:EvidenceSources.of_xml)
          (Xml.child xml_arg0 "evidenceSources") in
      let comments =
        (Option.map ~f:ControlComments.of_xml)
          (Xml.child xml_arg0 "comments") in
      let response =
        (Option.map ~f:ControlResponse.of_xml)
          (Xml.child xml_arg0 "response") in
      let status =
        (Option.map ~f:ControlStatus.of_xml) (Xml.child xml_arg0 "status") in
      let description =
        (Option.map ~f:ControlDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:ControlName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?assessmentReportEvidenceCount ?evidenceCount ?evidenceSources
        ?comments ?response ?status ?description ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentReportEvidenceCount =
        field_map json__ "assessmentReportEvidenceCount" Integer.of_json in
      let evidenceCount = field_map json__ "evidenceCount" Integer.of_json in
      let evidenceSources =
        field_map json__ "evidenceSources" EvidenceSources.of_json in
      let comments = field_map json__ "comments" ControlComments.of_json in
      let response = field_map json__ "response" ControlResponse.of_json in
      let status = field_map json__ "status" ControlStatus.of_json in
      let description =
        field_map json__ "description" ControlDescription.of_json in
      let name = field_map json__ "name" ControlName.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?assessmentReportEvidenceCount ?evidenceCount ?evidenceSources
        ?comments ?response ?status ?description ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The control entity that represents a standard control or a custom control in an Audit Manager assessment."]
module Delegation =
  struct
    type nonrec t =
      {
      id: UUID.t option
        [@ocaml.doc "The unique identifier for the delegation."];
      assessmentName: AssessmentName.t option
        [@ocaml.doc
          "The name of the assessment that's associated with the delegation."];
      assessmentId: UUID.t option
        [@ocaml.doc
          "The identifier for the assessment that's associated with the delegation."];
      status: DelegationStatus.t option
        [@ocaml.doc "The status of the delegation."];
      roleArn: IamArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the IAM role."];
      roleType: RoleType.t option
        [@ocaml.doc
          "The type of customer persona. In CreateAssessment, roleType can only be PROCESS_OWNER. In UpdateSettings, roleType can only be PROCESS_OWNER. In BatchCreateDelegationByAssessment, roleType can only be RESOURCE_OWNER."];
      creationTime: Timestamp.t option
        [@ocaml.doc "Specifies when the delegation was created."];
      lastUpdated: Timestamp.t option
        [@ocaml.doc "Specifies when the delegation was last updated."];
      controlSetId: ControlSetId.t option
        [@ocaml.doc
          "The identifier for the control set that's associated with the delegation."];
      comment: DelegationComment.t option
        [@ocaml.doc "The comment that's related to the delegation."];
      createdBy: CreatedBy.t option
        [@ocaml.doc "The user or role that created the delegation."]}
    let make ?id =
      fun ?assessmentName ->
        fun ?assessmentId ->
          fun ?status ->
            fun ?roleArn ->
              fun ?roleType ->
                fun ?creationTime ->
                  fun ?lastUpdated ->
                    fun ?controlSetId ->
                      fun ?comment ->
                        fun ?createdBy ->
                          fun () ->
                            {
                              id;
                              assessmentName;
                              assessmentId;
                              status;
                              roleArn;
                              roleType;
                              creationTime;
                              lastUpdated;
                              controlSetId;
                              comment;
                              createdBy
                            }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("assessmentName",
          (Option.map x.assessmentName ~f:AssessmentName.to_value));
        ("assessmentId", (Option.map x.assessmentId ~f:UUID.to_value));
        ("status", (Option.map x.status ~f:DelegationStatus.to_value));
        ("roleArn", (Option.map x.roleArn ~f:IamArn.to_value));
        ("roleType", (Option.map x.roleType ~f:RoleType.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("lastUpdated", (Option.map x.lastUpdated ~f:Timestamp.to_value));
        ("controlSetId",
          (Option.map x.controlSetId ~f:ControlSetId.to_value));
        ("comment", (Option.map x.comment ~f:DelegationComment.to_value));
        ("createdBy", (Option.map x.createdBy ~f:CreatedBy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdBy =
        (Option.map ~f:CreatedBy.of_xml) (Xml.child xml_arg0 "createdBy") in
      let comment =
        (Option.map ~f:DelegationComment.of_xml)
          (Xml.child xml_arg0 "comment") in
      let controlSetId =
        (Option.map ~f:ControlSetId.of_xml)
          (Xml.child xml_arg0 "controlSetId") in
      let lastUpdated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdated") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let roleType =
        (Option.map ~f:RoleType.of_xml) (Xml.child xml_arg0 "roleType") in
      let roleArn =
        (Option.map ~f:IamArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let status =
        (Option.map ~f:DelegationStatus.of_xml) (Xml.child xml_arg0 "status") in
      let assessmentId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "assessmentId") in
      let assessmentName =
        (Option.map ~f:AssessmentName.of_xml)
          (Xml.child xml_arg0 "assessmentName") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?createdBy ?comment ?controlSetId ?lastUpdated ?creationTime
        ?roleType ?roleArn ?status ?assessmentId ?assessmentName ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdBy = field_map json__ "createdBy" CreatedBy.of_json in
      let comment = field_map json__ "comment" DelegationComment.of_json in
      let controlSetId = field_map json__ "controlSetId" ControlSetId.of_json in
      let lastUpdated = field_map json__ "lastUpdated" Timestamp.of_json in
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let roleType = field_map json__ "roleType" RoleType.of_json in
      let roleArn = field_map json__ "roleArn" IamArn.of_json in
      let status = field_map json__ "status" DelegationStatus.of_json in
      let assessmentId = field_map json__ "assessmentId" UUID.of_json in
      let assessmentName =
        field_map json__ "assessmentName" AssessmentName.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?createdBy ?comment ?controlSetId ?lastUpdated ?creationTime
        ?roleType ?roleArn ?status ?assessmentId ?assessmentName ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The assignment of a control set to a delegate for review."]
module Role =
  struct
    type nonrec t =
      {
      roleType: RoleType.t
        [@ocaml.doc
          "The type of customer persona. In CreateAssessment, roleType can only be PROCESS_OWNER. In UpdateSettings, roleType can only be PROCESS_OWNER. In BatchCreateDelegationByAssessment, roleType can only be RESOURCE_OWNER."];
      roleArn: IamArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the IAM role."]}
    let context_ = "Role"
    let make ~roleType = fun ~roleArn -> fun () -> { roleType; roleArn }
    let to_value x =
      structure_to_value
        [("roleType", (Some (RoleType.to_value x.roleType)));
        ("roleArn", (Some (IamArn.to_value x.roleArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleArn =
        IamArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "roleArn") in
      let roleType =
        RoleType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "roleType") in
      make ~roleArn ~roleType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleArn = field_map_exn json__ "roleArn" IamArn.of_json in
      let roleType = field_map_exn json__ "roleType" RoleType.of_json in
      make ~roleArn ~roleType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The wrapper that contains the Audit Manager role information of the current user. This includes the role type and IAM Amazon Resource Name (ARN)."]
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    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:"AccountId" j
    let to_json = simple_to_json to_value
  end
module AccountName =
  struct
    type nonrec t = string
    let context_ = "AccountName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\u0020-\\u007E]+$")));
        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:"AccountName" j
    let to_json = simple_to_json to_value
  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:1) >>=
             (fun () ->
                (check_string_max i ~max:320) >>=
                  (fun () -> check_pattern i ~pattern:"^.*@.*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EmailAddress" j
    let to_json = simple_to_json to_value
  end
module AWSServiceName =
  struct
    type nonrec t = string
    let context_ = "AWSServiceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:40) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9-\\s().]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AWSServiceName" j
    let to_json = simple_to_json to_value
  end
module ActionPlanInstructions =
  struct
    type nonrec t = string
    let context_ = "ActionPlanInstructions"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ActionPlanInstructions" j
    let to_json = simple_to_json to_value
  end
module ActionPlanTitle =
  struct
    type nonrec t = string
    let context_ = "ActionPlanTitle"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:300) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ActionPlanTitle" j
    let to_json = simple_to_json to_value
  end
module AuditManagerArn =
  struct
    type nonrec t = string
    let context_ = "AuditManagerArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^arn:.*:auditmanager:.*")));
        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:"AuditManagerArn" j
    let to_json = simple_to_json to_value
  end
module ControlMappingSources =
  struct
    type nonrec t = ControlMappingSource.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ControlMappingSource.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:ControlMappingSource.of_xml)
    let of_json j =
      list_of_json ~kind:"ControlMappingSources"
        ~of_json:ControlMappingSource.of_json j
    let to_json v = composed_to_json to_value v
  end
module ControlSources =
  struct
    type nonrec t = string
    let context_ = "ControlSources"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z_0-9-\\s.,]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ControlSources" j
    let to_json = simple_to_json to_value
  end
module ControlState =
  struct
    type nonrec t =
      | ACTIVE 
      | END_OF_SUPPORT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | END_OF_SUPPORT -> "END_OF_SUPPORT"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "END_OF_SUPPORT" -> END_OF_SUPPORT
      | 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 ControlState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ControlState" j)
    let to_json = simple_to_json to_value
  end
module ControlType =
  struct
    type nonrec t =
      | Standard 
      | Custom 
      | Core_ 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Standard -> "Standard"
      | Custom -> "Custom"
      | Core_ -> "Core"
      | Non_static_id s -> s
    let of_string =
      function
      | "Standard" -> Standard
      | "Custom" -> Custom
      | "Core" -> Core_
      | 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 ControlType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ControlType" j)
    let to_json = simple_to_json to_value
  end
module LastUpdatedBy =
  struct
    type nonrec t = string
    let context_ = "LastUpdatedBy"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^[a-zA-Z0-9\\s-_()\\[\\]]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LastUpdatedBy" j
    let to_json = simple_to_json to_value
  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:50) >>= (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 TestingInformation =
  struct
    type nonrec t = string
    let context_ = "TestingInformation"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TestingInformation" j
    let to_json = simple_to_json to_value
  end
module AssessmentControls =
  struct
    type nonrec t = AssessmentControl.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:AssessmentControl.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:AssessmentControl.of_xml)
    let of_json j =
      list_of_json ~kind:"AssessmentControls"
        ~of_json:AssessmentControl.of_json j
    let to_json v = composed_to_json to_value v
  end
module ControlSetStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | UNDER_REVIEW 
      | REVIEWED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | UNDER_REVIEW -> "UNDER_REVIEW"
      | REVIEWED -> "REVIEWED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "UNDER_REVIEW" -> UNDER_REVIEW
      | "REVIEWED" -> REVIEWED
      | 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 ControlSetStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ControlSetStatus" j)
    let to_json = simple_to_json to_value
  end
module Delegations =
  struct
    type nonrec t = Delegation.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:Delegation.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:Delegation.of_xml)
    let of_json j =
      list_of_json ~kind:"Delegations" ~of_json:Delegation.of_json j
    let to_json v = composed_to_json to_value v
  end
module Roles =
  struct
    type nonrec t = Role.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:Role.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:Role.of_xml)
    let of_json j = list_of_json ~kind:"Roles" ~of_json:Role.of_json j
    let to_json v = composed_to_json to_value v
  end
module AWSAccount =
  struct
    type nonrec t =
      {
      id: AccountId.t option
        [@ocaml.doc "The identifier for the Amazon Web Services account."];
      emailAddress: EmailAddress.t option
        [@ocaml.doc
          "The email address that's associated with the Amazon Web Services account."];
      name: AccountName.t option
        [@ocaml.doc "The name of the Amazon Web Services account."]}
    let make ?id =
      fun ?emailAddress -> fun ?name -> fun () -> { id; emailAddress; name }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:AccountId.to_value));
        ("emailAddress",
          (Option.map x.emailAddress ~f:EmailAddress.to_value));
        ("name", (Option.map x.name ~f:AccountName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:AccountName.of_xml) (Xml.child xml_arg0 "name") in
      let emailAddress =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "emailAddress") in
      let id = (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "id") in
      make ?name ?emailAddress ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" AccountName.of_json in
      let emailAddress = field_map json__ "emailAddress" EmailAddress.of_json in
      let id = field_map json__ "id" AccountId.of_json in
      make ?name ?emailAddress ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The wrapper of Amazon Web Services account details, such as account ID or email address."]
module AWSService =
  struct
    type nonrec t =
      {
      serviceName: AWSServiceName.t option
        [@ocaml.doc "The name of the Amazon Web Services service."]}
    let make ?serviceName = fun () -> { serviceName }
    let to_value x =
      structure_to_value
        [("serviceName",
           (Option.map x.serviceName ~f:AWSServiceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceName =
        (Option.map ~f:AWSServiceName.of_xml)
          (Xml.child xml_arg0 "serviceName") in
      make ?serviceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceName = field_map json__ "serviceName" AWSServiceName.of_json in
      make ?serviceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An Amazon Web Services service such as Amazon S3 or CloudTrail. For an example of how to find an Amazon Web Services service name and how to define it in your assessment scope, see the following: Finding an Amazon Web Services service name to use in your assessment scope Defining an Amazon Web Services service name in your assessment scope"]
module Control =
  struct
    type nonrec t =
      {
      arn: AuditManagerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the control."];
      id: UUID.t option [@ocaml.doc "The unique identifier for the control."];
      type_: ControlType.t option
        [@ocaml.doc
          "Specifies whether the control is a standard control or a custom control."];
      name: ControlName.t option [@ocaml.doc "The name of the control."];
      description: ControlDescription.t option
        [@ocaml.doc "The description of the control."];
      testingInformation: TestingInformation.t option
        [@ocaml.doc
          "The steps that you should follow to determine if the control has been satisfied."];
      actionPlanTitle: ActionPlanTitle.t option
        [@ocaml.doc
          "The title of the action plan for remediating the control."];
      actionPlanInstructions: ActionPlanInstructions.t option
        [@ocaml.doc
          "The recommended actions to carry out if the control isn't fulfilled."];
      controlSources: ControlSources.t option
        [@ocaml.doc
          "The data source types that determine where Audit Manager collects evidence from for the control."];
      controlMappingSources: ControlMappingSources.t option
        [@ocaml.doc "The data mapping sources for the control."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The time when the control was created."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc "The time when the control was most recently updated."];
      createdBy: CreatedBy.t option
        [@ocaml.doc "The user or role that created the control."];
      lastUpdatedBy: LastUpdatedBy.t option
        [@ocaml.doc
          "The user or role that most recently updated the control."];
      tags: TagMap.t option
        [@ocaml.doc "The tags associated with the control."];
      state: ControlState.t option
        [@ocaml.doc
          "The state of the control. The END_OF_SUPPORT state is applicable to standard controls only. This state indicates that the standard control can still be used to collect evidence, but Audit Manager is no longer updating or maintaining that control."]}
    let make ?arn =
      fun ?id ->
        fun ?type_ ->
          fun ?name ->
            fun ?description ->
              fun ?testingInformation ->
                fun ?actionPlanTitle ->
                  fun ?actionPlanInstructions ->
                    fun ?controlSources ->
                      fun ?controlMappingSources ->
                        fun ?createdAt ->
                          fun ?lastUpdatedAt ->
                            fun ?createdBy ->
                              fun ?lastUpdatedBy ->
                                fun ?tags ->
                                  fun ?state ->
                                    fun () ->
                                      {
                                        arn;
                                        id;
                                        type_;
                                        name;
                                        description;
                                        testingInformation;
                                        actionPlanTitle;
                                        actionPlanInstructions;
                                        controlSources;
                                        controlMappingSources;
                                        createdAt;
                                        lastUpdatedAt;
                                        createdBy;
                                        lastUpdatedBy;
                                        tags;
                                        state
                                      }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:AuditManagerArn.to_value));
        ("id", (Option.map x.id ~f:UUID.to_value));
        ("type", (Option.map x.type_ ~f:ControlType.to_value));
        ("name", (Option.map x.name ~f:ControlName.to_value));
        ("description",
          (Option.map x.description ~f:ControlDescription.to_value));
        ("testingInformation",
          (Option.map x.testingInformation ~f:TestingInformation.to_value));
        ("actionPlanTitle",
          (Option.map x.actionPlanTitle ~f:ActionPlanTitle.to_value));
        ("actionPlanInstructions",
          (Option.map x.actionPlanInstructions
             ~f:ActionPlanInstructions.to_value));
        ("controlSources",
          (Option.map x.controlSources ~f:ControlSources.to_value));
        ("controlMappingSources",
          (Option.map x.controlMappingSources
             ~f:ControlMappingSources.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value));
        ("createdBy", (Option.map x.createdBy ~f:CreatedBy.to_value));
        ("lastUpdatedBy",
          (Option.map x.lastUpdatedBy ~f:LastUpdatedBy.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("state", (Option.map x.state ~f:ControlState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:ControlState.of_xml) (Xml.child xml_arg0 "state") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let lastUpdatedBy =
        (Option.map ~f:LastUpdatedBy.of_xml)
          (Xml.child xml_arg0 "lastUpdatedBy") in
      let createdBy =
        (Option.map ~f:CreatedBy.of_xml) (Xml.child xml_arg0 "createdBy") in
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let controlMappingSources =
        (Option.map ~f:ControlMappingSources.of_xml)
          (Xml.child xml_arg0 "controlMappingSources") in
      let controlSources =
        (Option.map ~f:ControlSources.of_xml)
          (Xml.child xml_arg0 "controlSources") in
      let actionPlanInstructions =
        (Option.map ~f:ActionPlanInstructions.of_xml)
          (Xml.child xml_arg0 "actionPlanInstructions") in
      let actionPlanTitle =
        (Option.map ~f:ActionPlanTitle.of_xml)
          (Xml.child xml_arg0 "actionPlanTitle") in
      let testingInformation =
        (Option.map ~f:TestingInformation.of_xml)
          (Xml.child xml_arg0 "testingInformation") in
      let description =
        (Option.map ~f:ControlDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:ControlName.of_xml) (Xml.child xml_arg0 "name") in
      let type_ =
        (Option.map ~f:ControlType.of_xml) (Xml.child xml_arg0 "type") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      let arn =
        (Option.map ~f:AuditManagerArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?state ?tags ?lastUpdatedBy ?createdBy ?lastUpdatedAt ?createdAt
        ?controlMappingSources ?controlSources ?actionPlanInstructions
        ?actionPlanTitle ?testingInformation ?description ?name ?type_ ?id
        ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "state" ControlState.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let lastUpdatedBy =
        field_map json__ "lastUpdatedBy" LastUpdatedBy.of_json in
      let createdBy = field_map json__ "createdBy" CreatedBy.of_json in
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let controlMappingSources =
        field_map json__ "controlMappingSources"
          ControlMappingSources.of_json in
      let controlSources =
        field_map json__ "controlSources" ControlSources.of_json in
      let actionPlanInstructions =
        field_map json__ "actionPlanInstructions"
          ActionPlanInstructions.of_json in
      let actionPlanTitle =
        field_map json__ "actionPlanTitle" ActionPlanTitle.of_json in
      let testingInformation =
        field_map json__ "testingInformation" TestingInformation.of_json in
      let description =
        field_map json__ "description" ControlDescription.of_json in
      let name = field_map json__ "name" ControlName.of_json in
      let type_ = field_map json__ "type" ControlType.of_json in
      let id = field_map json__ "id" UUID.of_json in
      let arn = field_map json__ "arn" AuditManagerArn.of_json in
      make ?state ?tags ?lastUpdatedBy ?createdBy ?lastUpdatedAt ?createdAt
        ?controlMappingSources ?controlSources ?actionPlanInstructions
        ?actionPlanTitle ?testingInformation ?description ?name ?type_ ?id
        ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A control in Audit Manager."]
module GenericArn =
  struct
    type nonrec t = string
    let context_ = "GenericArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"^arn:.*")));
        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:"GenericArn" j
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module AssessmentControlSet =
  struct
    type nonrec t =
      {
      id: ControlSetId.t option
        [@ocaml.doc
          "The identifier of the control set in the assessment. This is the control set name in a plain string format."];
      description: NonEmptyString.t option
        [@ocaml.doc "The description for the control set."];
      status: ControlSetStatus.t option
        [@ocaml.doc "The current status of the control set."];
      roles: Roles.t option
        [@ocaml.doc "The roles that are associated with the control set."];
      controls: AssessmentControls.t option
        [@ocaml.doc
          "The list of controls that's contained with the control set."];
      delegations: Delegations.t option
        [@ocaml.doc
          "The delegations that are associated with the control set."];
      systemEvidenceCount: Integer.t option
        [@ocaml.doc
          "The total number of evidence objects that are retrieved automatically for the control set."];
      manualEvidenceCount: Integer.t option
        [@ocaml.doc
          "The total number of evidence objects that are uploaded manually to the control set."]}
    let make ?id =
      fun ?description ->
        fun ?status ->
          fun ?roles ->
            fun ?controls ->
              fun ?delegations ->
                fun ?systemEvidenceCount ->
                  fun ?manualEvidenceCount ->
                    fun () ->
                      {
                        id;
                        description;
                        status;
                        roles;
                        controls;
                        delegations;
                        systemEvidenceCount;
                        manualEvidenceCount
                      }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ControlSetId.to_value));
        ("description",
          (Option.map x.description ~f:NonEmptyString.to_value));
        ("status", (Option.map x.status ~f:ControlSetStatus.to_value));
        ("roles", (Option.map x.roles ~f:Roles.to_value));
        ("controls", (Option.map x.controls ~f:AssessmentControls.to_value));
        ("delegations", (Option.map x.delegations ~f:Delegations.to_value));
        ("systemEvidenceCount",
          (Option.map x.systemEvidenceCount ~f:Integer.to_value));
        ("manualEvidenceCount",
          (Option.map x.manualEvidenceCount ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let manualEvidenceCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "manualEvidenceCount") in
      let systemEvidenceCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "systemEvidenceCount") in
      let delegations =
        (Option.map ~f:Delegations.of_xml) (Xml.child xml_arg0 "delegations") in
      let controls =
        (Option.map ~f:AssessmentControls.of_xml)
          (Xml.child xml_arg0 "controls") in
      let roles = (Option.map ~f:Roles.of_xml) (Xml.child xml_arg0 "roles") in
      let status =
        (Option.map ~f:ControlSetStatus.of_xml) (Xml.child xml_arg0 "status") in
      let description =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "description") in
      let id = (Option.map ~f:ControlSetId.of_xml) (Xml.child xml_arg0 "id") in
      make ?manualEvidenceCount ?systemEvidenceCount ?delegations ?controls
        ?roles ?status ?description ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let manualEvidenceCount =
        field_map json__ "manualEvidenceCount" Integer.of_json in
      let systemEvidenceCount =
        field_map json__ "systemEvidenceCount" Integer.of_json in
      let delegations = field_map json__ "delegations" Delegations.of_json in
      let controls = field_map json__ "controls" AssessmentControls.of_json in
      let roles = field_map json__ "roles" Roles.of_json in
      let status = field_map json__ "status" ControlSetStatus.of_json in
      let description = field_map json__ "description" NonEmptyString.of_json in
      let id = field_map json__ "id" ControlSetId.of_json in
      make ?manualEvidenceCount ?systemEvidenceCount ?delegations ?controls
        ?roles ?status ?description ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a set of controls in an Audit Manager assessment."]
module AssessmentFrameworkDescription =
  struct
    type nonrec t = string
    let context_ = "AssessmentFrameworkDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AssessmentFrameworkDescription" j
    let to_json = simple_to_json to_value
  end
module ComplianceType =
  struct
    type nonrec t = string
    let context_ = "ComplianceType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ComplianceType" 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:"^[\\w,\\s-]+\\.[A-Za-z]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Filename" j
    let to_json = simple_to_json to_value
  end
module AssessmentReportDestinationType =
  struct
    type nonrec t =
      | S3 
      | Non_static_id of string 
    let make i = i
    let to_string = function | S3 -> "S3" | Non_static_id s -> s
    let of_string = function | "S3" -> S3 | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration AssessmentReportDestinationType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AssessmentReportDestinationType" j)
    let to_json = simple_to_json to_value
  end
module S3Url =
  struct
    type nonrec t = string
    let context_ = "S3Url"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(S|s)3:\\/\\/[a-zA-Z0-9\\-\\.\\(\\)\\'\\*\\_\\!\\=\\+\\@\\:\\s\\,\\?\\/]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3Url" j
    let to_json = simple_to_json to_value
  end
module AWSAccounts =
  struct
    type nonrec t = AWSAccount.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (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:AWSAccount.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:AWSAccount.of_xml)
    let of_json j =
      list_of_json ~kind:"AWSAccounts" ~of_json:AWSAccount.of_json j
    let to_json v = composed_to_json to_value v
  end
module AWSServices =
  struct
    type nonrec t = AWSService.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: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:"AWSServices" ~of_json:AWSService.of_json j
    let to_json v = composed_to_json to_value v
  end
module ControlSetName =
  struct
    type nonrec t = string
    let context_ = "ControlSetName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:300) >>=
                  (fun () -> check_pattern i ~pattern:"^[^\\\\\\_]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ControlSetName" j
    let to_json = simple_to_json to_value
  end
module Controls =
  struct
    type nonrec t = Control.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Control.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:Control.of_xml)
    let of_json j = list_of_json ~kind:"Controls" ~of_json:Control.of_json j
    let to_json v = composed_to_json to_value v
  end
module CreateAssessmentFrameworkControl =
  struct
    type nonrec t =
      {
      id: UUID.t [@ocaml.doc "The unique identifier of the control."]}
    let context_ = "CreateAssessmentFrameworkControl"
    let make ~id = fun () -> { id }
    let to_value x = structure_to_value [("id", (Some (UUID.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" UUID.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The control entity attributes that uniquely identify an existing control to be added to a framework in Audit Manager."]
module NullableInteger =
  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 NullableInteger" 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 EvidenceAttributeKey =
  struct
    type nonrec t = string
    let context_ = "EvidenceAttributeKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EvidenceAttributeKey" j
    let to_json = simple_to_json to_value
  end
module EvidenceAttributeValue =
  struct
    type nonrec t = string
    let context_ = "EvidenceAttributeValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EvidenceAttributeValue" j
    let to_json = simple_to_json to_value
  end
module Resource =
  struct
    type nonrec t =
      {
      arn: GenericArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the resource."];
      value: String_.t option [@ocaml.doc "The value of the resource."];
      complianceCheck: String_.t option
        [@ocaml.doc
          "The evaluation status for a resource that was assessed when collecting compliance check evidence. Audit Manager classes the resource as non-compliant if Security Hub reports a Fail result, or if Config reports a Non-compliant result. Audit Manager classes the resource as compliant if Security Hub reports a Pass result, or if Config reports a Compliant result. If a compliance check isn't available or applicable, then no compliance evaluation can be made for that resource. This is the case if a resource assessment uses Config or Security Hub as the underlying data source type, but those services aren't enabled. This is also the case if the resource assessment uses an underlying data source type that doesn't support compliance checks (such as manual evidence, Amazon Web Services API calls, or CloudTrail)."]}
    let make ?arn =
      fun ?value ->
        fun ?complianceCheck -> fun () -> { arn; value; complianceCheck }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:GenericArn.to_value));
        ("value", (Option.map x.value ~f:String_.to_value));
        ("complianceCheck",
          (Option.map x.complianceCheck ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let complianceCheck =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "complianceCheck") in
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      let arn = (Option.map ~f:GenericArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?complianceCheck ?value ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let complianceCheck =
        field_map json__ "complianceCheck" String_.of_json in
      let value = field_map json__ "value" String_.of_json in
      let arn = field_map json__ "arn" GenericArn.of_json in
      make ?complianceCheck ?value ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A system asset that's evaluated in an Audit Manager assessment."]
module ManualEvidenceLocalFileName =
  struct
    type nonrec t = string
    let context_ = "ManualEvidenceLocalFileName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:300) >>=
                  (fun () -> check_pattern i ~pattern:"[^\\/]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ManualEvidenceLocalFileName" j
    let to_json = simple_to_json to_value
  end
module ManualEvidenceTextResponse =
  struct
    type nonrec t = string
    let context_ = "ManualEvidenceTextResponse"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ManualEvidenceTextResponse" j
    let to_json = simple_to_json to_value
  end
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the validation error."];
      message: String_.t option [@ocaml.doc "The body of the error message."]}
    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[@@ocaml.doc
       "Indicates that the request has invalid or missing parameters for the field."]
module ExportDestinationType =
  struct
    type nonrec t =
      | S3 
      | Non_static_id of string 
    let make i = i
    let to_string = function | S3 -> "S3" | Non_static_id s -> s
    let of_string = function | "S3" -> S3 | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ExportDestinationType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ExportDestinationType" j)
    let to_json = simple_to_json to_value
  end
module DeleteResources =
  struct
    type nonrec t =
      | ALL 
      | DEFAULT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ALL -> "ALL" | DEFAULT -> "DEFAULT" | Non_static_id s -> s
    let of_string =
      function | "ALL" -> ALL | "DEFAULT" -> DEFAULT | 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 DeleteResources" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeleteResources" j)
    let to_json = simple_to_json to_value
  end
module CloudTrailArn =
  struct
    type nonrec t = string
    let context_ = "CloudTrailArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"^arn:.*:cloudtrail:.*")));
        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:"CloudTrailArn" j
    let to_json = simple_to_json to_value
  end
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:300) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module EvidenceFinderBackfillStatus =
  struct
    type nonrec t =
      | NOT_STARTED 
      | IN_PROGRESS 
      | COMPLETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_STARTED -> "NOT_STARTED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | COMPLETED -> "COMPLETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_STARTED" -> NOT_STARTED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "COMPLETED" -> COMPLETED
      | 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 EvidenceFinderBackfillStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"EvidenceFinderBackfillStatus" j)
    let to_json = simple_to_json to_value
  end
module EvidenceFinderEnablementStatus =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | ENABLE_IN_PROGRESS 
      | DISABLE_IN_PROGRESS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | ENABLE_IN_PROGRESS -> "ENABLE_IN_PROGRESS"
      | DISABLE_IN_PROGRESS -> "DISABLE_IN_PROGRESS"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | "ENABLE_IN_PROGRESS" -> ENABLE_IN_PROGRESS
      | "DISABLE_IN_PROGRESS" -> DISABLE_IN_PROGRESS
      | 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 EvidenceFinderEnablementStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"EvidenceFinderEnablementStatus" j)
    let to_json = simple_to_json to_value
  end
module AssessmentControlSets =
  struct
    type nonrec t = AssessmentControlSet.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:AssessmentControlSet.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:AssessmentControlSet.of_xml)
    let of_json j =
      list_of_json ~kind:"AssessmentControlSets"
        ~of_json:AssessmentControlSet.of_json j
    let to_json v = composed_to_json to_value v
  end
module FrameworkMetadata =
  struct
    type nonrec t =
      {
      name: AssessmentName.t option [@ocaml.doc "The name of the framework."];
      description: AssessmentFrameworkDescription.t option
        [@ocaml.doc "The description of the framework."];
      logo: Filename.t option
        [@ocaml.doc "The logo that's associated with the framework."];
      complianceType: ComplianceType.t option
        [@ocaml.doc
          "The compliance standard that's associated with the framework. For example, this could be PCI DSS or HIPAA."]}
    let make ?name =
      fun ?description ->
        fun ?logo ->
          fun ?complianceType ->
            fun () -> { name; description; logo; complianceType }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:AssessmentName.to_value));
        ("description",
          (Option.map x.description
             ~f:AssessmentFrameworkDescription.to_value));
        ("logo", (Option.map x.logo ~f:Filename.to_value));
        ("complianceType",
          (Option.map x.complianceType ~f:ComplianceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let complianceType =
        (Option.map ~f:ComplianceType.of_xml)
          (Xml.child xml_arg0 "complianceType") in
      let logo = (Option.map ~f:Filename.of_xml) (Xml.child xml_arg0 "logo") in
      let description =
        (Option.map ~f:AssessmentFrameworkDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:AssessmentName.of_xml) (Xml.child xml_arg0 "name") in
      make ?complianceType ?logo ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let complianceType =
        field_map json__ "complianceType" ComplianceType.of_json in
      let logo = field_map json__ "logo" Filename.of_json in
      let description =
        field_map json__ "description" AssessmentFrameworkDescription.of_json in
      let name = field_map json__ "name" AssessmentName.of_json in
      make ?complianceType ?logo ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The metadata of a framework, such as the name, ID, or description."]
module AssessmentDescription =
  struct
    type nonrec t = string
    let context_ = "AssessmentDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AssessmentDescription" j
    let to_json = simple_to_json to_value
  end
module AssessmentReportsDestination =
  struct
    type nonrec t =
      {
      destinationType: AssessmentReportDestinationType.t option
        [@ocaml.doc "The destination type, such as Amazon S3."];
      destination: S3Url.t option
        [@ocaml.doc
          "The destination bucket where Audit Manager stores assessment reports."]}
    let make ?destinationType =
      fun ?destination -> fun () -> { destinationType; destination }
    let to_value x =
      structure_to_value
        [("destinationType",
           (Option.map x.destinationType
              ~f:AssessmentReportDestinationType.to_value));
        ("destination", (Option.map x.destination ~f:S3Url.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destination =
        (Option.map ~f:S3Url.of_xml) (Xml.child xml_arg0 "destination") in
      let destinationType =
        (Option.map ~f:AssessmentReportDestinationType.of_xml)
          (Xml.child xml_arg0 "destinationType") in
      make ?destination ?destinationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destination = field_map json__ "destination" S3Url.of_json in
      let destinationType =
        field_map json__ "destinationType"
          AssessmentReportDestinationType.of_json in
      make ?destination ?destinationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The location where Audit Manager saves assessment reports for the given assessment."]
module AssessmentStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | INACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration AssessmentStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AssessmentStatus" j)
    let to_json = simple_to_json to_value
  end
module Scope =
  struct
    type nonrec t =
      {
      awsAccounts: AWSAccounts.t option
        [@ocaml.doc
          "The Amazon Web Services accounts that are included in the scope of the assessment."];
      awsServices: AWSServices.t option
        [@ocaml.doc
          "The Amazon Web Services services that are included in the scope of the assessment. This API parameter is no longer supported. If you use this parameter to specify one or more Amazon Web Services services, Audit Manager ignores this input. Instead, the value for awsServices will show as empty."]}
    let make ?awsAccounts =
      fun ?awsServices -> fun () -> { awsAccounts; awsServices }
    let to_value x =
      structure_to_value
        [("awsAccounts", (Option.map x.awsAccounts ~f:AWSAccounts.to_value));
        ("awsServices", (Option.map x.awsServices ~f:AWSServices.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let awsServices =
        (Option.map ~f:AWSServices.of_xml) (Xml.child xml_arg0 "awsServices") in
      let awsAccounts =
        (Option.map ~f:AWSAccounts.of_xml) (Xml.child xml_arg0 "awsAccounts") in
      make ?awsServices ?awsAccounts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let awsServices = field_map json__ "awsServices" AWSServices.of_json in
      let awsAccounts = field_map json__ "awsAccounts" AWSAccounts.of_json in
      make ?awsServices ?awsAccounts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The wrapper that contains the Amazon Web Services accounts that are in scope for the assessment. You no longer need to specify which Amazon Web Services services are in scope when you create or update an assessment. Audit Manager infers the services in scope by examining your assessment controls and their data sources, and then mapping this information to the relevant Amazon Web Services services. If an underlying data source changes for your assessment, we automatically update the services scope as needed to reflect the correct Amazon Web Services services. This ensures that your assessment collects accurate and comprehensive evidence about all of the relevant services in your AWS environment."]
module ControlSet =
  struct
    type nonrec t =
      {
      id: UUID.t option
        [@ocaml.doc
          "The identifier of the control set in the assessment. This is the control set name in a plain string format."];
      name: ControlSetName.t option
        [@ocaml.doc "The name of the control set."];
      controls: Controls.t option
        [@ocaml.doc "The list of controls within the control set."]}
    let make ?id =
      fun ?name -> fun ?controls -> fun () -> { id; name; controls }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("name", (Option.map x.name ~f:ControlSetName.to_value));
        ("controls", (Option.map x.controls ~f:Controls.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controls =
        (Option.map ~f:Controls.of_xml) (Xml.child xml_arg0 "controls") in
      let name =
        (Option.map ~f:ControlSetName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?controls ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controls = field_map json__ "controls" Controls.of_json in
      let name = field_map json__ "name" ControlSetName.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?controls ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A set of controls in Audit Manager."]
module CreateAssessmentFrameworkControls =
  struct
    type nonrec t = CreateAssessmentFrameworkControl.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CreateAssessmentFrameworkControl.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:CreateAssessmentFrameworkControl.of_xml)
    let of_json j =
      list_of_json ~kind:"CreateAssessmentFrameworkControls"
        ~of_json:CreateAssessmentFrameworkControl.of_json j
    let to_json v = composed_to_json to_value v
  end
module TimestampUUID =
  struct
    type nonrec t = string
    let context_ = "TimestampUUID"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:47) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[0-9]{10,13}_[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-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:"TimestampUUID" j
    let to_json = simple_to_json to_value
  end
module ControlDomainId =
  struct
    type nonrec t = string
    let context_ = "ControlDomainId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:13) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:.*:controlcatalog:.*:.*:domain/.*|UNCATEGORIZED|^[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-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:"ControlDomainId" j
    let to_json = simple_to_json to_value
  end
module EvidenceInsights =
  struct
    type nonrec t =
      {
      noncompliantEvidenceCount: NullableInteger.t option
        [@ocaml.doc
          "The number of compliance check evidence that Audit Manager classified as non-compliant. This includes evidence that was collected from Security Hub with a Fail ruling, or collected from Config with a Non-compliant ruling."];
      compliantEvidenceCount: NullableInteger.t option
        [@ocaml.doc
          "The number of compliance check evidence that Audit Manager classified as compliant. This includes evidence that was collected from Security Hub with a Pass ruling, or collected from Config with a Compliant ruling."];
      inconclusiveEvidenceCount: NullableInteger.t option
        [@ocaml.doc
          "The number of evidence that a compliance check ruling isn't available for. Evidence is inconclusive when the associated control uses Security Hub or Config as a data source but you didn't enable those services. This is also the case when a control uses a data source that doesn\226\128\153t support compliance checks (for example, manual evidence, API calls, or CloudTrail). If evidence has a compliance check status of not applicable in the console, it's classified as inconclusive in EvidenceInsights data."]}
    let make ?noncompliantEvidenceCount =
      fun ?compliantEvidenceCount ->
        fun ?inconclusiveEvidenceCount ->
          fun () ->
            {
              noncompliantEvidenceCount;
              compliantEvidenceCount;
              inconclusiveEvidenceCount
            }
    let to_value x =
      structure_to_value
        [("noncompliantEvidenceCount",
           (Option.map x.noncompliantEvidenceCount
              ~f:NullableInteger.to_value));
        ("compliantEvidenceCount",
          (Option.map x.compliantEvidenceCount ~f:NullableInteger.to_value));
        ("inconclusiveEvidenceCount",
          (Option.map x.inconclusiveEvidenceCount ~f:NullableInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inconclusiveEvidenceCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "inconclusiveEvidenceCount") in
      let compliantEvidenceCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "compliantEvidenceCount") in
      let noncompliantEvidenceCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "noncompliantEvidenceCount") in
      make ?inconclusiveEvidenceCount ?compliantEvidenceCount
        ?noncompliantEvidenceCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inconclusiveEvidenceCount =
        field_map json__ "inconclusiveEvidenceCount" NullableInteger.of_json in
      let compliantEvidenceCount =
        field_map json__ "compliantEvidenceCount" NullableInteger.of_json in
      let noncompliantEvidenceCount =
        field_map json__ "noncompliantEvidenceCount" NullableInteger.of_json in
      make ?inconclusiveEvidenceCount ?compliantEvidenceCount
        ?noncompliantEvidenceCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A breakdown of the latest compliance check status for the evidence in your Audit Manager assessments."]
module AssessmentReportDescription =
  struct
    type nonrec t = string
    let context_ = "AssessmentReportDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AssessmentReportDescription" j
    let to_json = simple_to_json to_value
  end
module AssessmentReportName =
  struct
    type nonrec t = string
    let context_ = "AssessmentReportName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:300) >>=
                  (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:"AssessmentReportName" j
    let to_json = simple_to_json to_value
  end
module AssessmentReportStatus =
  struct
    type nonrec t =
      | COMPLETE 
      | IN_PROGRESS 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLETE -> "COMPLETE"
      | IN_PROGRESS -> "IN_PROGRESS"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLETE" -> COMPLETE
      | "IN_PROGRESS" -> IN_PROGRESS
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration AssessmentReportStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AssessmentReportStatus" j)
    let to_json = simple_to_json to_value
  end
module ControlSetsCount =
  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 ControlSetsCount" 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 ControlsCount =
  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 ControlsCount" 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 FrameworkDescription =
  struct
    type nonrec t = string
    let context_ = "FrameworkDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FrameworkDescription" j
    let to_json = simple_to_json to_value
  end
module FrameworkName =
  struct
    type nonrec t = string
    let context_ = "FrameworkName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:300) >>=
                  (fun () -> check_pattern i ~pattern:"^[^\\\\]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FrameworkName" j
    let to_json = simple_to_json to_value
  end
module FrameworkType =
  struct
    type nonrec t =
      | Standard 
      | Custom 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Standard -> "Standard"
      | Custom -> "Custom"
      | Non_static_id s -> s
    let of_string =
      function
      | "Standard" -> Standard
      | "Custom" -> Custom
      | 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 FrameworkType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FrameworkType" j)
    let to_json = simple_to_json to_value
  end
module Region =
  struct
    type nonrec t = string
    let context_ = "Region"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^[a-z]{2}-[a-z]+-[0-9]{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:"Region" j
    let to_json = simple_to_json to_value
  end
module ShareRequestComment =
  struct
    type nonrec t = string
    let context_ = "ShareRequestComment"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ShareRequestComment" j
    let to_json = simple_to_json to_value
  end
module ShareRequestStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | REPLICATING 
      | SHARED 
      | EXPIRING 
      | FAILED 
      | EXPIRED 
      | DECLINED 
      | REVOKED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | REPLICATING -> "REPLICATING"
      | SHARED -> "SHARED"
      | EXPIRING -> "EXPIRING"
      | FAILED -> "FAILED"
      | EXPIRED -> "EXPIRED"
      | DECLINED -> "DECLINED"
      | REVOKED -> "REVOKED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "REPLICATING" -> REPLICATING
      | "SHARED" -> SHARED
      | "EXPIRING" -> EXPIRING
      | "FAILED" -> FAILED
      | "EXPIRED" -> EXPIRED
      | "DECLINED" -> DECLINED
      | "REVOKED" -> REVOKED
      | 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 ShareRequestStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ShareRequestStatus" j)
    let to_json = simple_to_json to_value
  end
module AssessmentEvidenceFolderName =
  struct
    type nonrec t = string
    let context_ = "AssessmentEvidenceFolderName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:300) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AssessmentEvidenceFolderName" j
    let to_json = simple_to_json to_value
  end
module EventName =
  struct
    type nonrec t = string
    let context_ = "EventName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EventName" j
    let to_json = simple_to_json to_value
  end
module EvidenceAttributes =
  struct
    type nonrec t = (EvidenceAttributeKey.t * EvidenceAttributeValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((EvidenceAttributeKey.of_string chopped),
                              (EvidenceAttributeValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (EvidenceAttributeKey.to_value x) |>
                    (fun x ->
                       (EvidenceAttributeValue.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:EvidenceAttributeKey.of_string
        ~of_json:EvidenceAttributeValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Resources =
  struct
    type nonrec t = Resource.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:Resource.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:Resource.of_xml)
    let of_json j =
      list_of_json ~kind:"Resources" ~of_json:Resource.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActionEnum =
  struct
    type nonrec t =
      | CREATE 
      | UPDATE_METADATA 
      | ACTIVE 
      | INACTIVE 
      | DELETE 
      | UNDER_REVIEW 
      | REVIEWED 
      | IMPORT_EVIDENCE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE -> "CREATE"
      | UPDATE_METADATA -> "UPDATE_METADATA"
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | DELETE -> "DELETE"
      | UNDER_REVIEW -> "UNDER_REVIEW"
      | REVIEWED -> "REVIEWED"
      | IMPORT_EVIDENCE -> "IMPORT_EVIDENCE"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE" -> CREATE
      | "UPDATE_METADATA" -> UPDATE_METADATA
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | "DELETE" -> DELETE
      | "UNDER_REVIEW" -> UNDER_REVIEW
      | "REVIEWED" -> REVIEWED
      | "IMPORT_EVIDENCE" -> IMPORT_EVIDENCE
      | 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 ActionEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ActionEnum" j)
    let to_json = simple_to_json to_value
  end
module ObjectTypeEnum =
  struct
    type nonrec t =
      | ASSESSMENT 
      | CONTROL_SET 
      | CONTROL 
      | DELEGATION 
      | ASSESSMENT_REPORT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ASSESSMENT -> "ASSESSMENT"
      | CONTROL_SET -> "CONTROL_SET"
      | CONTROL -> "CONTROL"
      | DELEGATION -> "DELEGATION"
      | ASSESSMENT_REPORT -> "ASSESSMENT_REPORT"
      | Non_static_id s -> s
    let of_string =
      function
      | "ASSESSMENT" -> ASSESSMENT
      | "CONTROL_SET" -> CONTROL_SET
      | "CONTROL" -> CONTROL
      | "DELEGATION" -> DELEGATION
      | "ASSESSMENT_REPORT" -> ASSESSMENT_REPORT
      | 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 ObjectTypeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ObjectTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module ErrorCode =
  struct
    type nonrec t = string
    let context_ = "ErrorCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:3) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9]{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:"ErrorCode" j
    let to_json = simple_to_json to_value
  end
module ManualEvidence =
  struct
    type nonrec t =
      {
      s3ResourcePath: S3Url.t option
        [@ocaml.doc
          "The S3 URL of the object that's imported as manual evidence."];
      textResponse: ManualEvidenceTextResponse.t option
        [@ocaml.doc
          "The plain text response that's entered and saved as manual evidence."];
      evidenceFileName: ManualEvidenceLocalFileName.t option
        [@ocaml.doc
          "The name of the file that's uploaded as manual evidence. This name is populated using the evidenceFileName value from the GetEvidenceFileUploadUrl API response."]}
    let make ?s3ResourcePath =
      fun ?textResponse ->
        fun ?evidenceFileName ->
          fun () -> { s3ResourcePath; textResponse; evidenceFileName }
    let to_value x =
      structure_to_value
        [("s3ResourcePath", (Option.map x.s3ResourcePath ~f:S3Url.to_value));
        ("textResponse",
          (Option.map x.textResponse ~f:ManualEvidenceTextResponse.to_value));
        ("evidenceFileName",
          (Option.map x.evidenceFileName
             ~f:ManualEvidenceLocalFileName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let evidenceFileName =
        (Option.map ~f:ManualEvidenceLocalFileName.of_xml)
          (Xml.child xml_arg0 "evidenceFileName") in
      let textResponse =
        (Option.map ~f:ManualEvidenceTextResponse.of_xml)
          (Xml.child xml_arg0 "textResponse") in
      let s3ResourcePath =
        (Option.map ~f:S3Url.of_xml) (Xml.child xml_arg0 "s3ResourcePath") in
      make ?evidenceFileName ?textResponse ?s3ResourcePath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let evidenceFileName =
        field_map json__ "evidenceFileName"
          ManualEvidenceLocalFileName.of_json in
      let textResponse =
        field_map json__ "textResponse" ManualEvidenceTextResponse.of_json in
      let s3ResourcePath = field_map json__ "s3ResourcePath" S3Url.of_json in
      make ?evidenceFileName ?textResponse ?s3ResourcePath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Evidence that's manually added to a control in Audit Manager. manualEvidence can be one of the following: evidenceFileName, s3ResourcePath, or textResponse."]
module CreateDelegationRequest =
  struct
    type nonrec t =
      {
      comment: DelegationComment.t option
        [@ocaml.doc "A comment that's related to the delegation request."];
      controlSetId: ControlSetId.t option
        [@ocaml.doc "The unique identifier for the control set."];
      roleArn: IamArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the IAM role."];
      roleType: RoleType.t option
        [@ocaml.doc
          "The type of customer persona. In CreateAssessment, roleType can only be PROCESS_OWNER. In UpdateSettings, roleType can only be PROCESS_OWNER. In BatchCreateDelegationByAssessment, roleType can only be RESOURCE_OWNER."]}
    let make ?comment =
      fun ?controlSetId ->
        fun ?roleArn ->
          fun ?roleType ->
            fun () -> { comment; controlSetId; roleArn; roleType }
    let to_value x =
      structure_to_value
        [("comment", (Option.map x.comment ~f:DelegationComment.to_value));
        ("controlSetId",
          (Option.map x.controlSetId ~f:ControlSetId.to_value));
        ("roleArn", (Option.map x.roleArn ~f:IamArn.to_value));
        ("roleType", (Option.map x.roleType ~f:RoleType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleType =
        (Option.map ~f:RoleType.of_xml) (Xml.child xml_arg0 "roleType") in
      let roleArn =
        (Option.map ~f:IamArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let controlSetId =
        (Option.map ~f:ControlSetId.of_xml)
          (Xml.child xml_arg0 "controlSetId") in
      let comment =
        (Option.map ~f:DelegationComment.of_xml)
          (Xml.child xml_arg0 "comment") in
      make ?roleType ?roleArn ?controlSetId ?comment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleType = field_map json__ "roleType" RoleType.of_json in
      let roleArn = field_map json__ "roleArn" IamArn.of_json in
      let controlSetId = field_map json__ "controlSetId" ControlSetId.of_json in
      let comment = field_map json__ "comment" DelegationComment.of_json in
      make ?roleType ?roleArn ?controlSetId ?comment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A collection of attributes that's used to create a delegation for an assessment in Audit Manager."]
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 =
      | UnknownOperation 
      | CannotParse 
      | FieldValidationFailed 
      | Other 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UnknownOperation -> "unknownOperation"
      | CannotParse -> "cannotParse"
      | FieldValidationFailed -> "fieldValidationFailed"
      | Other -> "other"
      | Non_static_id s -> s
    let of_string =
      function
      | "unknownOperation" -> UnknownOperation
      | "cannotParse" -> CannotParse
      | "fieldValidationFailed" -> FieldValidationFailed
      | "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 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 DefaultExportDestination =
  struct
    type nonrec t =
      {
      destinationType: ExportDestinationType.t option
        [@ocaml.doc "The destination type, such as Amazon S3."];
      destination: S3Url.t option
        [@ocaml.doc
          "The destination bucket where Audit Manager stores exported files."]}
    let make ?destinationType =
      fun ?destination -> fun () -> { destinationType; destination }
    let to_value x =
      structure_to_value
        [("destinationType",
           (Option.map x.destinationType ~f:ExportDestinationType.to_value));
        ("destination", (Option.map x.destination ~f:S3Url.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destination =
        (Option.map ~f:S3Url.of_xml) (Xml.child xml_arg0 "destination") in
      let destinationType =
        (Option.map ~f:ExportDestinationType.of_xml)
          (Xml.child xml_arg0 "destinationType") in
      make ?destination ?destinationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destination = field_map json__ "destination" S3Url.of_json in
      let destinationType =
        field_map json__ "destinationType" ExportDestinationType.of_json in
      make ?destination ?destinationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The default s3 bucket where Audit Manager saves the files that you export from evidence finder."]
module DeregistrationPolicy =
  struct
    type nonrec t =
      {
      deleteResources: DeleteResources.t option
        [@ocaml.doc
          "Specifies which Audit Manager data will be deleted when you deregister Audit Manager. If you set the value to ALL, all of your data is deleted within seven days of deregistration. If you set the value to DEFAULT, none of your data is deleted at the time of deregistration. However, keep in mind that the Audit Manager data retention policy still applies. As a result, any evidence data will be deleted two years after its creation date. Your other Audit Manager resources will continue to exist indefinitely."]}
    let make ?deleteResources = fun () -> { deleteResources }
    let to_value x =
      structure_to_value
        [("deleteResources",
           (Option.map x.deleteResources ~f:DeleteResources.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deleteResources =
        (Option.map ~f:DeleteResources.of_xml)
          (Xml.child xml_arg0 "deleteResources") in
      make ?deleteResources ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deleteResources =
        field_map json__ "deleteResources" DeleteResources.of_json in
      make ?deleteResources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The deregistration policy for the data that's stored in Audit Manager. You can use this attribute to determine how your data is handled when you deregister Audit Manager. By default, Audit Manager retains evidence data for two years from the time of its creation. Other Audit Manager resources (including assessments, custom controls, and custom frameworks) remain in Audit Manager indefinitely, and are available if you re-register Audit Manager in the future. For more information about data retention, see Data Protection in the Audit Manager User Guide. If you choose to delete all data, this action permanently deletes all evidence data in your account within seven days. It also deletes all of the Audit Manager resources that you created, including assessments, custom controls, and custom frameworks. Your data will not be available if you re-register Audit Manager in the future."]
module EvidenceFinderEnablement =
  struct
    type nonrec t =
      {
      eventDataStoreArn: CloudTrailArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the CloudTrail Lake event data store that\226\128\153s used by evidence finder. The event data store is the lake of evidence data that evidence finder runs queries against."];
      enablementStatus: EvidenceFinderEnablementStatus.t option
        [@ocaml.doc
          "The current status of the evidence finder feature and the related event data store. ENABLE_IN_PROGRESS means that you requested to enable evidence finder. An event data store is currently being created to support evidence finder queries. ENABLED means that an event data store was successfully created and evidence finder is enabled. We recommend that you wait 7 days until the event data store is backfilled with your past two years\226\128\153 worth of evidence data. You can use evidence finder in the meantime, but not all data might be available until the backfill is complete. DISABLE_IN_PROGRESS means that you requested to disable evidence finder, and your request is pending the deletion of the event data store. DISABLED means that you have permanently disabled evidence finder and the event data store has been deleted. You can't re-enable evidence finder after this point."];
      backfillStatus: EvidenceFinderBackfillStatus.t option
        [@ocaml.doc
          "The current status of the evidence data backfill process. The backfill starts after you enable evidence finder. During this task, Audit Manager populates an event data store with your past two years\226\128\153 worth of evidence data so that your evidence can be queried. NOT_STARTED means that the backfill hasn\226\128\153t started yet. IN_PROGRESS means that the backfill is in progress. This can take up to 7 days to complete, depending on the amount of evidence data. COMPLETED means that the backfill is complete. All of your past evidence is now queryable."];
      error: ErrorMessage.t option
        [@ocaml.doc
          "Represents any errors that occurred when enabling or disabling evidence finder."]}
    let make ?eventDataStoreArn =
      fun ?enablementStatus ->
        fun ?backfillStatus ->
          fun ?error ->
            fun () ->
              { eventDataStoreArn; enablementStatus; backfillStatus; error }
    let to_value x =
      structure_to_value
        [("eventDataStoreArn",
           (Option.map x.eventDataStoreArn ~f:CloudTrailArn.to_value));
        ("enablementStatus",
          (Option.map x.enablementStatus
             ~f:EvidenceFinderEnablementStatus.to_value));
        ("backfillStatus",
          (Option.map x.backfillStatus
             ~f:EvidenceFinderBackfillStatus.to_value));
        ("error", (Option.map x.error ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let error =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "error") in
      let backfillStatus =
        (Option.map ~f:EvidenceFinderBackfillStatus.of_xml)
          (Xml.child xml_arg0 "backfillStatus") in
      let enablementStatus =
        (Option.map ~f:EvidenceFinderEnablementStatus.of_xml)
          (Xml.child xml_arg0 "enablementStatus") in
      let eventDataStoreArn =
        (Option.map ~f:CloudTrailArn.of_xml)
          (Xml.child xml_arg0 "eventDataStoreArn") in
      make ?error ?backfillStatus ?enablementStatus ?eventDataStoreArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let error = field_map json__ "error" ErrorMessage.of_json in
      let backfillStatus =
        field_map json__ "backfillStatus"
          EvidenceFinderBackfillStatus.of_json in
      let enablementStatus =
        field_map json__ "enablementStatus"
          EvidenceFinderEnablementStatus.of_json in
      let eventDataStoreArn =
        field_map json__ "eventDataStoreArn" CloudTrailArn.of_json in
      make ?error ?backfillStatus ?enablementStatus ?eventDataStoreArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The settings object that specifies whether evidence finder is enabled. This object also describes the related event data store, and the backfill status for populating the event data store with evidence data."]
module KmsKey =
  struct
    type nonrec t = string
    let context_ = "KmsKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:7) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^arn:.*:kms:.*|DEFAULT")));
        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:"KmsKey" j
    let to_json = simple_to_json to_value
  end
module SNSTopic =
  struct
    type nonrec t = string
    let context_ = "SNSTopic"
    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:"SNSTopic" j
    let to_json = simple_to_json to_value
  end
module AssessmentFramework =
  struct
    type nonrec t =
      {
      id: UUID.t option
        [@ocaml.doc "The unique identifier for the framework."];
      arn: AuditManagerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the framework."];
      metadata: FrameworkMetadata.t option ;
      controlSets: AssessmentControlSets.t option
        [@ocaml.doc
          "The control sets that are associated with the framework."]}
    let make ?id =
      fun ?arn ->
        fun ?metadata ->
          fun ?controlSets -> fun () -> { id; arn; metadata; controlSets }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("arn", (Option.map x.arn ~f:AuditManagerArn.to_value));
        ("metadata", (Option.map x.metadata ~f:FrameworkMetadata.to_value));
        ("controlSets",
          (Option.map x.controlSets ~f:AssessmentControlSets.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlSets =
        (Option.map ~f:AssessmentControlSets.of_xml)
          (Xml.child xml_arg0 "controlSets") in
      let metadata =
        (Option.map ~f:FrameworkMetadata.of_xml)
          (Xml.child xml_arg0 "metadata") in
      let arn =
        (Option.map ~f:AuditManagerArn.of_xml) (Xml.child xml_arg0 "arn") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?controlSets ?metadata ?arn ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlSets =
        field_map json__ "controlSets" AssessmentControlSets.of_json in
      let metadata = field_map json__ "metadata" FrameworkMetadata.of_json in
      let arn = field_map json__ "arn" AuditManagerArn.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?controlSets ?metadata ?arn ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The file used to structure and automate Audit Manager assessments for a given compliance standard."]
module AssessmentMetadata =
  struct
    type nonrec t =
      {
      name: AssessmentName.t option
        [@ocaml.doc "The name of the assessment."];
      id: UUID.t option
        [@ocaml.doc "The unique identifier for the assessment."];
      description: AssessmentDescription.t option
        [@ocaml.doc "The description of the assessment."];
      complianceType: ComplianceType.t option
        [@ocaml.doc
          "The name of the compliance standard that's related to the assessment, such as PCI-DSS."];
      status: AssessmentStatus.t option
        [@ocaml.doc "The overall status of the assessment."];
      assessmentReportsDestination: AssessmentReportsDestination.t option
        [@ocaml.doc
          "The destination that evidence reports are stored in for the assessment."];
      scope: Scope.t option
        [@ocaml.doc
          "The wrapper of Amazon Web Services accounts and services that are in scope for the assessment."];
      roles: Roles.t option
        [@ocaml.doc "The roles that are associated with the assessment."];
      delegations: Delegations.t option
        [@ocaml.doc
          "The delegations that are associated with the assessment."];
      creationTime: Timestamp.t option
        [@ocaml.doc "Specifies when the assessment was created."];
      lastUpdated: Timestamp.t option
        [@ocaml.doc "The time of the most recent update."]}
    let make ?name =
      fun ?id ->
        fun ?description ->
          fun ?complianceType ->
            fun ?status ->
              fun ?assessmentReportsDestination ->
                fun ?scope ->
                  fun ?roles ->
                    fun ?delegations ->
                      fun ?creationTime ->
                        fun ?lastUpdated ->
                          fun () ->
                            {
                              name;
                              id;
                              description;
                              complianceType;
                              status;
                              assessmentReportsDestination;
                              scope;
                              roles;
                              delegations;
                              creationTime;
                              lastUpdated
                            }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:AssessmentName.to_value));
        ("id", (Option.map x.id ~f:UUID.to_value));
        ("description",
          (Option.map x.description ~f:AssessmentDescription.to_value));
        ("complianceType",
          (Option.map x.complianceType ~f:ComplianceType.to_value));
        ("status", (Option.map x.status ~f:AssessmentStatus.to_value));
        ("assessmentReportsDestination",
          (Option.map x.assessmentReportsDestination
             ~f:AssessmentReportsDestination.to_value));
        ("scope", (Option.map x.scope ~f:Scope.to_value));
        ("roles", (Option.map x.roles ~f:Roles.to_value));
        ("delegations", (Option.map x.delegations ~f:Delegations.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("lastUpdated", (Option.map x.lastUpdated ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdated") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let delegations =
        (Option.map ~f:Delegations.of_xml) (Xml.child xml_arg0 "delegations") in
      let roles = (Option.map ~f:Roles.of_xml) (Xml.child xml_arg0 "roles") in
      let scope = (Option.map ~f:Scope.of_xml) (Xml.child xml_arg0 "scope") in
      let assessmentReportsDestination =
        (Option.map ~f:AssessmentReportsDestination.of_xml)
          (Xml.child xml_arg0 "assessmentReportsDestination") in
      let status =
        (Option.map ~f:AssessmentStatus.of_xml) (Xml.child xml_arg0 "status") in
      let complianceType =
        (Option.map ~f:ComplianceType.of_xml)
          (Xml.child xml_arg0 "complianceType") in
      let description =
        (Option.map ~f:AssessmentDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      let name =
        (Option.map ~f:AssessmentName.of_xml) (Xml.child xml_arg0 "name") in
      make ?lastUpdated ?creationTime ?delegations ?roles ?scope
        ?assessmentReportsDestination ?status ?complianceType ?description
        ?id ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdated = field_map json__ "lastUpdated" Timestamp.of_json in
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let delegations = field_map json__ "delegations" Delegations.of_json in
      let roles = field_map json__ "roles" Roles.of_json in
      let scope = field_map json__ "scope" Scope.of_json in
      let assessmentReportsDestination =
        field_map json__ "assessmentReportsDestination"
          AssessmentReportsDestination.of_json in
      let status = field_map json__ "status" AssessmentStatus.of_json in
      let complianceType =
        field_map json__ "complianceType" ComplianceType.of_json in
      let description =
        field_map json__ "description" AssessmentDescription.of_json in
      let id = field_map json__ "id" UUID.of_json in
      let name = field_map json__ "name" AssessmentName.of_json in
      make ?lastUpdated ?creationTime ?delegations ?roles ?scope
        ?assessmentReportsDestination ?status ?complianceType ?description
        ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The metadata that's associated with the specified assessment."]
module ControlSets =
  struct
    type nonrec t = ControlSet.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ControlSet.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:ControlSet.of_xml)
    let of_json j =
      list_of_json ~kind:"ControlSets" ~of_json:ControlSet.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateAssessmentFrameworkControlSet =
  struct
    type nonrec t =
      {
      id: ControlSetName.t option
        [@ocaml.doc "The unique identifier for the control set."];
      name: ControlSetName.t [@ocaml.doc "The name of the control set."];
      controls: CreateAssessmentFrameworkControls.t
        [@ocaml.doc
          "The list of controls that are contained within the control set."]}
    let context_ = "UpdateAssessmentFrameworkControlSet"
    let make ?id =
      fun ~name -> fun ~controls -> fun () -> { id; name; controls }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ControlSetName.to_value));
        ("name", (Some (ControlSetName.to_value x.name)));
        ("controls",
          (Some (CreateAssessmentFrameworkControls.to_value x.controls)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controls =
        CreateAssessmentFrameworkControls.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controls") in
      let name =
        ControlSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let id =
        (Option.map ~f:ControlSetName.of_xml) (Xml.child xml_arg0 "id") in
      make ~controls ~name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controls =
        field_map_exn json__ "controls"
          CreateAssessmentFrameworkControls.of_json in
      let name = field_map_exn json__ "name" ControlSetName.of_json in
      let id = field_map json__ "id" ControlSetName.of_json in
      make ~controls ~name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A controlSet entity that represents a collection of controls in Audit Manager. This doesn't contain the control set ID."]
module Notification =
  struct
    type nonrec t =
      {
      id: TimestampUUID.t option
        [@ocaml.doc "The unique identifier for the notification."];
      assessmentId: UUID.t option
        [@ocaml.doc "The identifier for the assessment."];
      assessmentName: AssessmentName.t option
        [@ocaml.doc "The name of the related assessment."];
      controlSetId: ControlSetId.t option
        [@ocaml.doc "The identifier for the control set."];
      controlSetName: NonEmptyString.t option
        [@ocaml.doc
          "Specifies the name of the control set that the notification is about."];
      description: NonEmptyString.t option
        [@ocaml.doc "The description of the notification."];
      eventTime: Timestamp.t option
        [@ocaml.doc "The time when the notification was sent."];
      source: NonEmptyString.t option
        [@ocaml.doc "The sender of the notification."]}
    let make ?id =
      fun ?assessmentId ->
        fun ?assessmentName ->
          fun ?controlSetId ->
            fun ?controlSetName ->
              fun ?description ->
                fun ?eventTime ->
                  fun ?source ->
                    fun () ->
                      {
                        id;
                        assessmentId;
                        assessmentName;
                        controlSetId;
                        controlSetName;
                        description;
                        eventTime;
                        source
                      }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:TimestampUUID.to_value));
        ("assessmentId", (Option.map x.assessmentId ~f:UUID.to_value));
        ("assessmentName",
          (Option.map x.assessmentName ~f:AssessmentName.to_value));
        ("controlSetId",
          (Option.map x.controlSetId ~f:ControlSetId.to_value));
        ("controlSetName",
          (Option.map x.controlSetName ~f:NonEmptyString.to_value));
        ("description",
          (Option.map x.description ~f:NonEmptyString.to_value));
        ("eventTime", (Option.map x.eventTime ~f:Timestamp.to_value));
        ("source", (Option.map x.source ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let source =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "source") in
      let eventTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "eventTime") in
      let description =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "description") in
      let controlSetName =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "controlSetName") in
      let controlSetId =
        (Option.map ~f:ControlSetId.of_xml)
          (Xml.child xml_arg0 "controlSetId") in
      let assessmentName =
        (Option.map ~f:AssessmentName.of_xml)
          (Xml.child xml_arg0 "assessmentName") in
      let assessmentId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "assessmentId") in
      let id = (Option.map ~f:TimestampUUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?source ?eventTime ?description ?controlSetName ?controlSetId
        ?assessmentName ?assessmentId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let source = field_map json__ "source" NonEmptyString.of_json in
      let eventTime = field_map json__ "eventTime" Timestamp.of_json in
      let description = field_map json__ "description" NonEmptyString.of_json in
      let controlSetName =
        field_map json__ "controlSetName" NonEmptyString.of_json in
      let controlSetId = field_map json__ "controlSetId" ControlSetId.of_json in
      let assessmentName =
        field_map json__ "assessmentName" AssessmentName.of_json in
      let assessmentId = field_map json__ "assessmentId" UUID.of_json in
      let id = field_map json__ "id" TimestampUUID.of_json in
      make ?source ?eventTime ?description ?controlSetName ?controlSetId
        ?assessmentName ?assessmentId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The notification that informs a user of an update in Audit Manager. For example, this includes the notification that's sent when a control set is delegated for review."]
module ControlMetadata =
  struct
    type nonrec t =
      {
      arn: AuditManagerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the control."];
      id: UUID.t option [@ocaml.doc "The unique identifier for the control."];
      name: ControlName.t option [@ocaml.doc "The name of the control."];
      controlSources: ControlSources.t option
        [@ocaml.doc
          "The data source that determines where Audit Manager collects evidence from for the control."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The time when the control was created."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc "The time when the control was most recently updated."]}
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?controlSources ->
            fun ?createdAt ->
              fun ?lastUpdatedAt ->
                fun () ->
                  { arn; id; name; controlSources; createdAt; lastUpdatedAt }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:AuditManagerArn.to_value));
        ("id", (Option.map x.id ~f:UUID.to_value));
        ("name", (Option.map x.name ~f:ControlName.to_value));
        ("controlSources",
          (Option.map x.controlSources ~f:ControlSources.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let controlSources =
        (Option.map ~f:ControlSources.of_xml)
          (Xml.child xml_arg0 "controlSources") in
      let name =
        (Option.map ~f:ControlName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      let arn =
        (Option.map ~f:AuditManagerArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?lastUpdatedAt ?createdAt ?controlSources ?name ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let controlSources =
        field_map json__ "controlSources" ControlSources.of_json in
      let name = field_map json__ "name" ControlName.of_json in
      let id = field_map json__ "id" UUID.of_json in
      let arn = field_map json__ "arn" AuditManagerArn.of_json in
      make ?lastUpdatedAt ?createdAt ?controlSources ?name ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The metadata that's associated with the standard control or custom control."]
module ControlInsightsMetadataItem =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the control."];
      id: ControlDomainId.t option
        [@ocaml.doc "The unique identifier for the control."];
      evidenceInsights: EvidenceInsights.t option
        [@ocaml.doc
          "A breakdown of the compliance check status for the evidence that\226\128\153s associated with the control."];
      lastUpdated: Timestamp.t option
        [@ocaml.doc "The time when the control insights were last updated."]}
    let make ?name =
      fun ?id ->
        fun ?evidenceInsights ->
          fun ?lastUpdated ->
            fun () -> { name; id; evidenceInsights; lastUpdated }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("id", (Option.map x.id ~f:ControlDomainId.to_value));
        ("evidenceInsights",
          (Option.map x.evidenceInsights ~f:EvidenceInsights.to_value));
        ("lastUpdated", (Option.map x.lastUpdated ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdated") in
      let evidenceInsights =
        (Option.map ~f:EvidenceInsights.of_xml)
          (Xml.child xml_arg0 "evidenceInsights") in
      let id =
        (Option.map ~f:ControlDomainId.of_xml) (Xml.child xml_arg0 "id") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?lastUpdated ?evidenceInsights ?id ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdated = field_map json__ "lastUpdated" Timestamp.of_json in
      let evidenceInsights =
        field_map json__ "evidenceInsights" EvidenceInsights.of_json in
      let id = field_map json__ "id" ControlDomainId.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?lastUpdated ?evidenceInsights ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary of the latest analytics data for a specific control. This data reflects the total counts for the specified control across all active assessments. Control insights are grouped by control domain, and ranked by the highest total count of non-compliant evidence."]
module ControlDomainInsights =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the control domain."];
      id: ControlDomainId.t option
        [@ocaml.doc
          "The unique identifier for the control domain. Audit Manager supports the control domains that are provided by Amazon Web Services Control Catalog. For information about how to find a list of available control domains, see ListDomains in the Amazon Web Services Control Catalog API Reference."];
      controlsCountByNoncompliantEvidence: NullableInteger.t option
        [@ocaml.doc
          "The number of controls in the control domain that collected non-compliant evidence on the lastUpdated date."];
      totalControlsCount: NullableInteger.t option
        [@ocaml.doc "The total number of controls in the control domain."];
      evidenceInsights: EvidenceInsights.t option
        [@ocaml.doc
          "A breakdown of the compliance check status for the evidence that\226\128\153s associated with the control domain."];
      lastUpdated: Timestamp.t option
        [@ocaml.doc
          "The time when the control domain insights were last updated."]}
    let make ?name =
      fun ?id ->
        fun ?controlsCountByNoncompliantEvidence ->
          fun ?totalControlsCount ->
            fun ?evidenceInsights ->
              fun ?lastUpdated ->
                fun () ->
                  {
                    name;
                    id;
                    controlsCountByNoncompliantEvidence;
                    totalControlsCount;
                    evidenceInsights;
                    lastUpdated
                  }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("id", (Option.map x.id ~f:ControlDomainId.to_value));
        ("controlsCountByNoncompliantEvidence",
          (Option.map x.controlsCountByNoncompliantEvidence
             ~f:NullableInteger.to_value));
        ("totalControlsCount",
          (Option.map x.totalControlsCount ~f:NullableInteger.to_value));
        ("evidenceInsights",
          (Option.map x.evidenceInsights ~f:EvidenceInsights.to_value));
        ("lastUpdated", (Option.map x.lastUpdated ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdated") in
      let evidenceInsights =
        (Option.map ~f:EvidenceInsights.of_xml)
          (Xml.child xml_arg0 "evidenceInsights") in
      let totalControlsCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "totalControlsCount") in
      let controlsCountByNoncompliantEvidence =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "controlsCountByNoncompliantEvidence") in
      let id =
        (Option.map ~f:ControlDomainId.of_xml) (Xml.child xml_arg0 "id") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?lastUpdated ?evidenceInsights ?totalControlsCount
        ?controlsCountByNoncompliantEvidence ?id ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdated = field_map json__ "lastUpdated" Timestamp.of_json in
      let evidenceInsights =
        field_map json__ "evidenceInsights" EvidenceInsights.of_json in
      let totalControlsCount =
        field_map json__ "totalControlsCount" NullableInteger.of_json in
      let controlsCountByNoncompliantEvidence =
        field_map json__ "controlsCountByNoncompliantEvidence"
          NullableInteger.of_json in
      let id = field_map json__ "id" ControlDomainId.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?lastUpdated ?evidenceInsights ?totalControlsCount
        ?controlsCountByNoncompliantEvidence ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary of the latest analytics data for a specific control domain. Control domain insights are grouped by control domain, and ranked by the highest total count of non-compliant evidence."]
module AssessmentMetadataItem =
  struct
    type nonrec t =
      {
      name: AssessmentName.t option
        [@ocaml.doc "The name of the assessment."];
      id: UUID.t option
        [@ocaml.doc "The unique identifier for the assessment."];
      complianceType: ComplianceType.t option
        [@ocaml.doc
          "The name of the compliance standard that's related to the assessment, such as PCI-DSS."];
      status: AssessmentStatus.t option
        [@ocaml.doc "The current status of the assessment."];
      roles: Roles.t option
        [@ocaml.doc "The roles that are associated with the assessment."];
      delegations: Delegations.t option
        [@ocaml.doc
          "The delegations that are associated with the assessment."];
      creationTime: Timestamp.t option
        [@ocaml.doc "Specifies when the assessment was created."];
      lastUpdated: Timestamp.t option
        [@ocaml.doc "The time of the most recent update."]}
    let make ?name =
      fun ?id ->
        fun ?complianceType ->
          fun ?status ->
            fun ?roles ->
              fun ?delegations ->
                fun ?creationTime ->
                  fun ?lastUpdated ->
                    fun () ->
                      {
                        name;
                        id;
                        complianceType;
                        status;
                        roles;
                        delegations;
                        creationTime;
                        lastUpdated
                      }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:AssessmentName.to_value));
        ("id", (Option.map x.id ~f:UUID.to_value));
        ("complianceType",
          (Option.map x.complianceType ~f:ComplianceType.to_value));
        ("status", (Option.map x.status ~f:AssessmentStatus.to_value));
        ("roles", (Option.map x.roles ~f:Roles.to_value));
        ("delegations", (Option.map x.delegations ~f:Delegations.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("lastUpdated", (Option.map x.lastUpdated ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdated") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let delegations =
        (Option.map ~f:Delegations.of_xml) (Xml.child xml_arg0 "delegations") in
      let roles = (Option.map ~f:Roles.of_xml) (Xml.child xml_arg0 "roles") in
      let status =
        (Option.map ~f:AssessmentStatus.of_xml) (Xml.child xml_arg0 "status") in
      let complianceType =
        (Option.map ~f:ComplianceType.of_xml)
          (Xml.child xml_arg0 "complianceType") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      let name =
        (Option.map ~f:AssessmentName.of_xml) (Xml.child xml_arg0 "name") in
      make ?lastUpdated ?creationTime ?delegations ?roles ?status
        ?complianceType ?id ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdated = field_map json__ "lastUpdated" Timestamp.of_json in
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let delegations = field_map json__ "delegations" Delegations.of_json in
      let roles = field_map json__ "roles" Roles.of_json in
      let status = field_map json__ "status" AssessmentStatus.of_json in
      let complianceType =
        field_map json__ "complianceType" ComplianceType.of_json in
      let id = field_map json__ "id" UUID.of_json in
      let name = field_map json__ "name" AssessmentName.of_json in
      make ?lastUpdated ?creationTime ?delegations ?roles ?status
        ?complianceType ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A metadata object that's associated with an assessment in Audit Manager."]
module AssessmentReportMetadata =
  struct
    type nonrec t =
      {
      id: UUID.t option
        [@ocaml.doc "The unique identifier for the assessment report."];
      name: AssessmentReportName.t option
        [@ocaml.doc "The name of the assessment report."];
      description: AssessmentReportDescription.t option
        [@ocaml.doc "The description of the assessment report."];
      assessmentId: UUID.t option
        [@ocaml.doc "The unique identifier for the associated assessment."];
      assessmentName: AssessmentName.t option
        [@ocaml.doc "The name of the associated assessment."];
      author: Username.t option
        [@ocaml.doc
          "The name of the user who created the assessment report."];
      status: AssessmentReportStatus.t option
        [@ocaml.doc "The current status of the assessment report."];
      creationTime: Timestamp.t option
        [@ocaml.doc "Specifies when the assessment report was created."]}
    let make ?id =
      fun ?name ->
        fun ?description ->
          fun ?assessmentId ->
            fun ?assessmentName ->
              fun ?author ->
                fun ?status ->
                  fun ?creationTime ->
                    fun () ->
                      {
                        id;
                        name;
                        description;
                        assessmentId;
                        assessmentName;
                        author;
                        status;
                        creationTime
                      }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("name", (Option.map x.name ~f:AssessmentReportName.to_value));
        ("description",
          (Option.map x.description ~f:AssessmentReportDescription.to_value));
        ("assessmentId", (Option.map x.assessmentId ~f:UUID.to_value));
        ("assessmentName",
          (Option.map x.assessmentName ~f:AssessmentName.to_value));
        ("author", (Option.map x.author ~f:Username.to_value));
        ("status", (Option.map x.status ~f:AssessmentReportStatus.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let status =
        (Option.map ~f:AssessmentReportStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let author =
        (Option.map ~f:Username.of_xml) (Xml.child xml_arg0 "author") in
      let assessmentName =
        (Option.map ~f:AssessmentName.of_xml)
          (Xml.child xml_arg0 "assessmentName") in
      let assessmentId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "assessmentId") in
      let description =
        (Option.map ~f:AssessmentReportDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:AssessmentReportName.of_xml)
          (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?creationTime ?status ?author ?assessmentName ?assessmentId
        ?description ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let status = field_map json__ "status" AssessmentReportStatus.of_json in
      let author = field_map json__ "author" Username.of_json in
      let assessmentName =
        field_map json__ "assessmentName" AssessmentName.of_json in
      let assessmentId = field_map json__ "assessmentId" UUID.of_json in
      let description =
        field_map json__ "description" AssessmentReportDescription.of_json in
      let name = field_map json__ "name" AssessmentReportName.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?creationTime ?status ?author ?assessmentName ?assessmentId
        ?description ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The metadata objects that are associated with the specified assessment report."]
module AssessmentFrameworkMetadata =
  struct
    type nonrec t =
      {
      arn: AuditManagerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the framework."];
      id: UUID.t option
        [@ocaml.doc "The unique identifier for the framework."];
      type_: FrameworkType.t option
        [@ocaml.doc
          "The framework type, such as a standard framework or a custom framework."];
      name: FrameworkName.t option [@ocaml.doc "The name of the framework."];
      description: FrameworkDescription.t option
        [@ocaml.doc "The description of the framework."];
      logo: Filename.t option
        [@ocaml.doc "The logo that's associated with the framework."];
      complianceType: ComplianceType.t option
        [@ocaml.doc
          "The compliance type that the new custom framework supports, such as CIS or HIPAA."];
      controlsCount: ControlsCount.t option
        [@ocaml.doc
          "The number of controls that are associated with the framework."];
      controlSetsCount: ControlSetsCount.t option
        [@ocaml.doc
          "The number of control sets that are associated with the framework."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The time when the framework was created."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc "The time when the framework was most recently updated."]}
    let make ?arn =
      fun ?id ->
        fun ?type_ ->
          fun ?name ->
            fun ?description ->
              fun ?logo ->
                fun ?complianceType ->
                  fun ?controlsCount ->
                    fun ?controlSetsCount ->
                      fun ?createdAt ->
                        fun ?lastUpdatedAt ->
                          fun () ->
                            {
                              arn;
                              id;
                              type_;
                              name;
                              description;
                              logo;
                              complianceType;
                              controlsCount;
                              controlSetsCount;
                              createdAt;
                              lastUpdatedAt
                            }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:AuditManagerArn.to_value));
        ("id", (Option.map x.id ~f:UUID.to_value));
        ("type", (Option.map x.type_ ~f:FrameworkType.to_value));
        ("name", (Option.map x.name ~f:FrameworkName.to_value));
        ("description",
          (Option.map x.description ~f:FrameworkDescription.to_value));
        ("logo", (Option.map x.logo ~f:Filename.to_value));
        ("complianceType",
          (Option.map x.complianceType ~f:ComplianceType.to_value));
        ("controlsCount",
          (Option.map x.controlsCount ~f:ControlsCount.to_value));
        ("controlSetsCount",
          (Option.map x.controlSetsCount ~f:ControlSetsCount.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let controlSetsCount =
        (Option.map ~f:ControlSetsCount.of_xml)
          (Xml.child xml_arg0 "controlSetsCount") in
      let controlsCount =
        (Option.map ~f:ControlsCount.of_xml)
          (Xml.child xml_arg0 "controlsCount") in
      let complianceType =
        (Option.map ~f:ComplianceType.of_xml)
          (Xml.child xml_arg0 "complianceType") in
      let logo = (Option.map ~f:Filename.of_xml) (Xml.child xml_arg0 "logo") in
      let description =
        (Option.map ~f:FrameworkDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:FrameworkName.of_xml) (Xml.child xml_arg0 "name") in
      let type_ =
        (Option.map ~f:FrameworkType.of_xml) (Xml.child xml_arg0 "type") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      let arn =
        (Option.map ~f:AuditManagerArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?lastUpdatedAt ?createdAt ?controlSetsCount ?controlsCount
        ?complianceType ?logo ?description ?name ?type_ ?id ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let controlSetsCount =
        field_map json__ "controlSetsCount" ControlSetsCount.of_json in
      let controlsCount =
        field_map json__ "controlsCount" ControlsCount.of_json in
      let complianceType =
        field_map json__ "complianceType" ComplianceType.of_json in
      let logo = field_map json__ "logo" Filename.of_json in
      let description =
        field_map json__ "description" FrameworkDescription.of_json in
      let name = field_map json__ "name" FrameworkName.of_json in
      let type_ = field_map json__ "type" FrameworkType.of_json in
      let id = field_map json__ "id" UUID.of_json in
      let arn = field_map json__ "arn" AuditManagerArn.of_json in
      make ?lastUpdatedAt ?createdAt ?controlSetsCount ?controlsCount
        ?complianceType ?logo ?description ?name ?type_ ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The metadata that's associated with a standard framework or a custom framework."]
module AssessmentFrameworkShareRequest =
  struct
    type nonrec t =
      {
      id: UUID.t option
        [@ocaml.doc "The unique identifier for the share request."];
      frameworkId: UUID.t option
        [@ocaml.doc "The unique identifier for the shared custom framework."];
      frameworkName: FrameworkName.t option
        [@ocaml.doc
          "The name of the custom framework that the share request is for."];
      frameworkDescription: FrameworkDescription.t option
        [@ocaml.doc "The description of the shared custom framework."];
      status: ShareRequestStatus.t option
        [@ocaml.doc "The status of the share request."];
      sourceAccount: AccountId.t option
        [@ocaml.doc "The Amazon Web Services account of the sender."];
      destinationAccount: AccountId.t option
        [@ocaml.doc "The Amazon Web Services account of the recipient."];
      destinationRegion: Region.t option
        [@ocaml.doc "The Amazon Web Services Region of the recipient."];
      expirationTime: Timestamp.t option
        [@ocaml.doc "The time when the share request expires."];
      creationTime: Timestamp.t option
        [@ocaml.doc "The time when the share request was created."];
      lastUpdated: Timestamp.t option
        [@ocaml.doc "Specifies when the share request was last updated."];
      comment: ShareRequestComment.t option
        [@ocaml.doc
          "An optional comment from the sender about the share request."];
      standardControlsCount: NullableInteger.t option
        [@ocaml.doc
          "The number of standard controls that are part of the shared custom framework."];
      customControlsCount: NullableInteger.t option
        [@ocaml.doc
          "The number of custom controls that are part of the shared custom framework."];
      complianceType: ComplianceType.t option
        [@ocaml.doc
          "The compliance type that the shared custom framework supports, such as CIS or HIPAA."]}
    let make ?id =
      fun ?frameworkId ->
        fun ?frameworkName ->
          fun ?frameworkDescription ->
            fun ?status ->
              fun ?sourceAccount ->
                fun ?destinationAccount ->
                  fun ?destinationRegion ->
                    fun ?expirationTime ->
                      fun ?creationTime ->
                        fun ?lastUpdated ->
                          fun ?comment ->
                            fun ?standardControlsCount ->
                              fun ?customControlsCount ->
                                fun ?complianceType ->
                                  fun () ->
                                    {
                                      id;
                                      frameworkId;
                                      frameworkName;
                                      frameworkDescription;
                                      status;
                                      sourceAccount;
                                      destinationAccount;
                                      destinationRegion;
                                      expirationTime;
                                      creationTime;
                                      lastUpdated;
                                      comment;
                                      standardControlsCount;
                                      customControlsCount;
                                      complianceType
                                    }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("frameworkId", (Option.map x.frameworkId ~f:UUID.to_value));
        ("frameworkName",
          (Option.map x.frameworkName ~f:FrameworkName.to_value));
        ("frameworkDescription",
          (Option.map x.frameworkDescription ~f:FrameworkDescription.to_value));
        ("status", (Option.map x.status ~f:ShareRequestStatus.to_value));
        ("sourceAccount", (Option.map x.sourceAccount ~f:AccountId.to_value));
        ("destinationAccount",
          (Option.map x.destinationAccount ~f:AccountId.to_value));
        ("destinationRegion",
          (Option.map x.destinationRegion ~f:Region.to_value));
        ("expirationTime",
          (Option.map x.expirationTime ~f:Timestamp.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("lastUpdated", (Option.map x.lastUpdated ~f:Timestamp.to_value));
        ("comment", (Option.map x.comment ~f:ShareRequestComment.to_value));
        ("standardControlsCount",
          (Option.map x.standardControlsCount ~f:NullableInteger.to_value));
        ("customControlsCount",
          (Option.map x.customControlsCount ~f:NullableInteger.to_value));
        ("complianceType",
          (Option.map x.complianceType ~f:ComplianceType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let complianceType =
        (Option.map ~f:ComplianceType.of_xml)
          (Xml.child xml_arg0 "complianceType") in
      let customControlsCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "customControlsCount") in
      let standardControlsCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "standardControlsCount") in
      let comment =
        (Option.map ~f:ShareRequestComment.of_xml)
          (Xml.child xml_arg0 "comment") in
      let lastUpdated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdated") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let expirationTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "expirationTime") in
      let destinationRegion =
        (Option.map ~f:Region.of_xml)
          (Xml.child xml_arg0 "destinationRegion") in
      let destinationAccount =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "destinationAccount") in
      let sourceAccount =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "sourceAccount") in
      let status =
        (Option.map ~f:ShareRequestStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let frameworkDescription =
        (Option.map ~f:FrameworkDescription.of_xml)
          (Xml.child xml_arg0 "frameworkDescription") in
      let frameworkName =
        (Option.map ~f:FrameworkName.of_xml)
          (Xml.child xml_arg0 "frameworkName") in
      let frameworkId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "frameworkId") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?complianceType ?customControlsCount ?standardControlsCount
        ?comment ?lastUpdated ?creationTime ?expirationTime
        ?destinationRegion ?destinationAccount ?sourceAccount ?status
        ?frameworkDescription ?frameworkName ?frameworkId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let complianceType =
        field_map json__ "complianceType" ComplianceType.of_json in
      let customControlsCount =
        field_map json__ "customControlsCount" NullableInteger.of_json in
      let standardControlsCount =
        field_map json__ "standardControlsCount" NullableInteger.of_json in
      let comment = field_map json__ "comment" ShareRequestComment.of_json in
      let lastUpdated = field_map json__ "lastUpdated" Timestamp.of_json in
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let expirationTime =
        field_map json__ "expirationTime" Timestamp.of_json in
      let destinationRegion =
        field_map json__ "destinationRegion" Region.of_json in
      let destinationAccount =
        field_map json__ "destinationAccount" AccountId.of_json in
      let sourceAccount = field_map json__ "sourceAccount" AccountId.of_json in
      let status = field_map json__ "status" ShareRequestStatus.of_json in
      let frameworkDescription =
        field_map json__ "frameworkDescription" FrameworkDescription.of_json in
      let frameworkName =
        field_map json__ "frameworkName" FrameworkName.of_json in
      let frameworkId = field_map json__ "frameworkId" UUID.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?complianceType ?customControlsCount ?standardControlsCount
        ?comment ?lastUpdated ?creationTime ?expirationTime
        ?destinationRegion ?destinationAccount ?sourceAccount ?status
        ?frameworkDescription ?frameworkName ?frameworkId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a share request for a custom framework in Audit Manager."]
module ControlInsightsMetadataByAssessmentItem =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the assessment control."];
      id: ControlDomainId.t option
        [@ocaml.doc "The unique identifier for the assessment control."];
      evidenceInsights: EvidenceInsights.t option
        [@ocaml.doc
          "A breakdown of the compliance check status for the evidence that\226\128\153s associated with the assessment control."];
      controlSetName: NonEmptyString.t option
        [@ocaml.doc
          "The name of the control set that the assessment control belongs to."];
      lastUpdated: Timestamp.t option
        [@ocaml.doc
          "The time when the assessment control insights were last updated."]}
    let make ?name =
      fun ?id ->
        fun ?evidenceInsights ->
          fun ?controlSetName ->
            fun ?lastUpdated ->
              fun () ->
                { name; id; evidenceInsights; controlSetName; lastUpdated }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("id", (Option.map x.id ~f:ControlDomainId.to_value));
        ("evidenceInsights",
          (Option.map x.evidenceInsights ~f:EvidenceInsights.to_value));
        ("controlSetName",
          (Option.map x.controlSetName ~f:NonEmptyString.to_value));
        ("lastUpdated", (Option.map x.lastUpdated ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdated") in
      let controlSetName =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "controlSetName") in
      let evidenceInsights =
        (Option.map ~f:EvidenceInsights.of_xml)
          (Xml.child xml_arg0 "evidenceInsights") in
      let id =
        (Option.map ~f:ControlDomainId.of_xml) (Xml.child xml_arg0 "id") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?lastUpdated ?controlSetName ?evidenceInsights ?id ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdated = field_map json__ "lastUpdated" Timestamp.of_json in
      let controlSetName =
        field_map json__ "controlSetName" NonEmptyString.of_json in
      let evidenceInsights =
        field_map json__ "evidenceInsights" EvidenceInsights.of_json in
      let id = field_map json__ "id" ControlDomainId.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?lastUpdated ?controlSetName ?evidenceInsights ?id ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary of the latest analytics data for a specific control in a specific active assessment. Control insights are grouped by control domain, and ranked by the highest total count of non-compliant evidence."]
module ServiceMetadata =
  struct
    type nonrec t =
      {
      name: AWSServiceName.t option
        [@ocaml.doc "The name of the Amazon Web Services service."];
      displayName: NonEmptyString.t option
        [@ocaml.doc "The display name of the Amazon Web Services service."];
      description: NonEmptyString.t option
        [@ocaml.doc "The description of the Amazon Web Services service."];
      category: NonEmptyString.t option
        [@ocaml.doc
          "The category that the Amazon Web Services service belongs to, such as compute, storage, or database."]}
    let make ?name =
      fun ?displayName ->
        fun ?description ->
          fun ?category ->
            fun () -> { name; displayName; description; category }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:AWSServiceName.to_value));
        ("displayName",
          (Option.map x.displayName ~f:NonEmptyString.to_value));
        ("description",
          (Option.map x.description ~f:NonEmptyString.to_value));
        ("category", (Option.map x.category ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let category =
        (Option.map ~f:NonEmptyString.of_xml) (Xml.child xml_arg0 "category") in
      let description =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "description") in
      let displayName =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "displayName") in
      let name =
        (Option.map ~f:AWSServiceName.of_xml) (Xml.child xml_arg0 "name") in
      make ?category ?description ?displayName ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let category = field_map json__ "category" NonEmptyString.of_json in
      let description = field_map json__ "description" NonEmptyString.of_json in
      let displayName = field_map json__ "displayName" NonEmptyString.of_json in
      let name = field_map json__ "name" AWSServiceName.of_json in
      make ?category ?description ?displayName ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The metadata that's associated with the Amazon Web Services service."]
module AssessmentEvidenceFolder =
  struct
    type nonrec t =
      {
      name: AssessmentEvidenceFolderName.t option
        [@ocaml.doc "The name of the evidence folder."];
      date: Timestamp.t option
        [@ocaml.doc
          "The date when the first evidence was added to the evidence folder."];
      assessmentId: UUID.t option
        [@ocaml.doc "The identifier for the assessment."];
      controlSetId: ControlSetId.t option
        [@ocaml.doc "The identifier for the control set."];
      controlId: UUID.t option
        [@ocaml.doc "The unique identifier for the control."];
      id: UUID.t option
        [@ocaml.doc
          "The identifier for the folder that the evidence is stored in."];
      dataSource: String_.t option
        [@ocaml.doc
          "The Amazon Web Services service that the evidence was collected from."];
      author: String_.t option
        [@ocaml.doc "The name of the user who created the evidence folder."];
      totalEvidence: Integer.t option
        [@ocaml.doc "The total amount of evidence in the evidence folder."];
      assessmentReportSelectionCount: Integer.t option
        [@ocaml.doc
          "The total count of evidence that's included in the assessment report."];
      controlName: ControlName.t option
        [@ocaml.doc "The name of the control."];
      evidenceResourcesIncludedCount: Integer.t option
        [@ocaml.doc
          "The amount of evidence that's included in the evidence folder."];
      evidenceByTypeConfigurationDataCount: Integer.t option
        [@ocaml.doc
          "The number of evidence that falls under the configuration data category. This evidence is collected from configuration snapshots of other Amazon Web Services services such as Amazon EC2, Amazon S3, or IAM."];
      evidenceByTypeManualCount: Integer.t option
        [@ocaml.doc
          "The number of evidence that falls under the manual category. This evidence is imported manually."];
      evidenceByTypeComplianceCheckCount: Integer.t option
        [@ocaml.doc
          "The number of evidence that falls under the compliance check category. This evidence is collected from Config or Security Hub."];
      evidenceByTypeComplianceCheckIssuesCount: Integer.t option
        [@ocaml.doc
          "The total number of issues that were reported directly from Security Hub, Config, or both."];
      evidenceByTypeUserActivityCount: Integer.t option
        [@ocaml.doc
          "The number of evidence that falls under the user activity category. This evidence is collected from CloudTrail logs."];
      evidenceAwsServiceSourceCount: Integer.t option
        [@ocaml.doc
          "The total number of Amazon Web Services resources that were assessed to generate the evidence."]}
    let make ?name =
      fun ?date ->
        fun ?assessmentId ->
          fun ?controlSetId ->
            fun ?controlId ->
              fun ?id ->
                fun ?dataSource ->
                  fun ?author ->
                    fun ?totalEvidence ->
                      fun ?assessmentReportSelectionCount ->
                        fun ?controlName ->
                          fun ?evidenceResourcesIncludedCount ->
                            fun ?evidenceByTypeConfigurationDataCount ->
                              fun ?evidenceByTypeManualCount ->
                                fun ?evidenceByTypeComplianceCheckCount ->
                                  fun
                                    ?evidenceByTypeComplianceCheckIssuesCount
                                    ->
                                    fun ?evidenceByTypeUserActivityCount ->
                                      fun ?evidenceAwsServiceSourceCount ->
                                        fun () ->
                                          {
                                            name;
                                            date;
                                            assessmentId;
                                            controlSetId;
                                            controlId;
                                            id;
                                            dataSource;
                                            author;
                                            totalEvidence;
                                            assessmentReportSelectionCount;
                                            controlName;
                                            evidenceResourcesIncludedCount;
                                            evidenceByTypeConfigurationDataCount;
                                            evidenceByTypeManualCount;
                                            evidenceByTypeComplianceCheckCount;
                                            evidenceByTypeComplianceCheckIssuesCount;
                                            evidenceByTypeUserActivityCount;
                                            evidenceAwsServiceSourceCount
                                          }
    let to_value x =
      structure_to_value
        [("name",
           (Option.map x.name ~f:AssessmentEvidenceFolderName.to_value));
        ("date", (Option.map x.date ~f:Timestamp.to_value));
        ("assessmentId", (Option.map x.assessmentId ~f:UUID.to_value));
        ("controlSetId",
          (Option.map x.controlSetId ~f:ControlSetId.to_value));
        ("controlId", (Option.map x.controlId ~f:UUID.to_value));
        ("id", (Option.map x.id ~f:UUID.to_value));
        ("dataSource", (Option.map x.dataSource ~f:String_.to_value));
        ("author", (Option.map x.author ~f:String_.to_value));
        ("totalEvidence", (Option.map x.totalEvidence ~f:Integer.to_value));
        ("assessmentReportSelectionCount",
          (Option.map x.assessmentReportSelectionCount ~f:Integer.to_value));
        ("controlName", (Option.map x.controlName ~f:ControlName.to_value));
        ("evidenceResourcesIncludedCount",
          (Option.map x.evidenceResourcesIncludedCount ~f:Integer.to_value));
        ("evidenceByTypeConfigurationDataCount",
          (Option.map x.evidenceByTypeConfigurationDataCount
             ~f:Integer.to_value));
        ("evidenceByTypeManualCount",
          (Option.map x.evidenceByTypeManualCount ~f:Integer.to_value));
        ("evidenceByTypeComplianceCheckCount",
          (Option.map x.evidenceByTypeComplianceCheckCount
             ~f:Integer.to_value));
        ("evidenceByTypeComplianceCheckIssuesCount",
          (Option.map x.evidenceByTypeComplianceCheckIssuesCount
             ~f:Integer.to_value));
        ("evidenceByTypeUserActivityCount",
          (Option.map x.evidenceByTypeUserActivityCount ~f:Integer.to_value));
        ("evidenceAwsServiceSourceCount",
          (Option.map x.evidenceAwsServiceSourceCount ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let evidenceAwsServiceSourceCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "evidenceAwsServiceSourceCount") in
      let evidenceByTypeUserActivityCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "evidenceByTypeUserActivityCount") in
      let evidenceByTypeComplianceCheckIssuesCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "evidenceByTypeComplianceCheckIssuesCount") in
      let evidenceByTypeComplianceCheckCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "evidenceByTypeComplianceCheckCount") in
      let evidenceByTypeManualCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "evidenceByTypeManualCount") in
      let evidenceByTypeConfigurationDataCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "evidenceByTypeConfigurationDataCount") in
      let evidenceResourcesIncludedCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "evidenceResourcesIncludedCount") in
      let controlName =
        (Option.map ~f:ControlName.of_xml) (Xml.child xml_arg0 "controlName") in
      let assessmentReportSelectionCount =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "assessmentReportSelectionCount") in
      let totalEvidence =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "totalEvidence") in
      let author =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "author") in
      let dataSource =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "dataSource") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      let controlId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "controlId") in
      let controlSetId =
        (Option.map ~f:ControlSetId.of_xml)
          (Xml.child xml_arg0 "controlSetId") in
      let assessmentId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "assessmentId") in
      let date = (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "date") in
      let name =
        (Option.map ~f:AssessmentEvidenceFolderName.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?evidenceAwsServiceSourceCount ?evidenceByTypeUserActivityCount
        ?evidenceByTypeComplianceCheckIssuesCount
        ?evidenceByTypeComplianceCheckCount ?evidenceByTypeManualCount
        ?evidenceByTypeConfigurationDataCount ?evidenceResourcesIncludedCount
        ?controlName ?assessmentReportSelectionCount ?totalEvidence ?author
        ?dataSource ?id ?controlId ?controlSetId ?assessmentId ?date ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let evidenceAwsServiceSourceCount =
        field_map json__ "evidenceAwsServiceSourceCount" Integer.of_json in
      let evidenceByTypeUserActivityCount =
        field_map json__ "evidenceByTypeUserActivityCount" Integer.of_json in
      let evidenceByTypeComplianceCheckIssuesCount =
        field_map json__ "evidenceByTypeComplianceCheckIssuesCount"
          Integer.of_json in
      let evidenceByTypeComplianceCheckCount =
        field_map json__ "evidenceByTypeComplianceCheckCount" Integer.of_json in
      let evidenceByTypeManualCount =
        field_map json__ "evidenceByTypeManualCount" Integer.of_json in
      let evidenceByTypeConfigurationDataCount =
        field_map json__ "evidenceByTypeConfigurationDataCount"
          Integer.of_json in
      let evidenceResourcesIncludedCount =
        field_map json__ "evidenceResourcesIncludedCount" Integer.of_json in
      let controlName = field_map json__ "controlName" ControlName.of_json in
      let assessmentReportSelectionCount =
        field_map json__ "assessmentReportSelectionCount" Integer.of_json in
      let totalEvidence = field_map json__ "totalEvidence" Integer.of_json in
      let author = field_map json__ "author" String_.of_json in
      let dataSource = field_map json__ "dataSource" String_.of_json in
      let id = field_map json__ "id" UUID.of_json in
      let controlId = field_map json__ "controlId" UUID.of_json in
      let controlSetId = field_map json__ "controlSetId" ControlSetId.of_json in
      let assessmentId = field_map json__ "assessmentId" UUID.of_json in
      let date = field_map json__ "date" Timestamp.of_json in
      let name = field_map json__ "name" AssessmentEvidenceFolderName.of_json in
      make ?evidenceAwsServiceSourceCount ?evidenceByTypeUserActivityCount
        ?evidenceByTypeComplianceCheckIssuesCount
        ?evidenceByTypeComplianceCheckCount ?evidenceByTypeManualCount
        ?evidenceByTypeConfigurationDataCount ?evidenceResourcesIncludedCount
        ?controlName ?assessmentReportSelectionCount ?totalEvidence ?author
        ?dataSource ?id ?controlId ?controlSetId ?assessmentId ?date ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The folder where Audit Manager stores evidence for an assessment."]
module Evidence =
  struct
    type nonrec t =
      {
      dataSource: String_.t option
        [@ocaml.doc "The data source where the evidence was collected from."];
      evidenceAwsAccountId: AccountId.t option
        [@ocaml.doc "The identifier for the Amazon Web Services account."];
      time: Timestamp.t option
        [@ocaml.doc
          "The timestamp that represents when the evidence was collected."];
      eventSource: AWSServiceName.t option
        [@ocaml.doc
          "The Amazon Web Services service that the evidence is collected from."];
      eventName: EventName.t option
        [@ocaml.doc "The name of the evidence event."];
      evidenceByType: String_.t option
        [@ocaml.doc "The type of automated evidence."];
      resourcesIncluded: Resources.t option
        [@ocaml.doc
          "The list of resources that are assessed to generate the evidence."];
      attributes: EvidenceAttributes.t option
        [@ocaml.doc
          "The names and values that are used by the evidence event. This includes an attribute name (such as allowUsersToChangePassword) and value (such as true or false)."];
      iamId: IamArn.t option
        [@ocaml.doc
          "The unique identifier for the user or role that's associated with the evidence."];
      complianceCheck: String_.t option
        [@ocaml.doc
          "The evaluation status for automated evidence that falls under the compliance check category. Audit Manager classes evidence as non-compliant if Security Hub reports a Fail result, or if Config reports a Non-compliant result. Audit Manager classes evidence as compliant if Security Hub reports a Pass result, or if Config reports a Compliant result. If a compliance check isn't available or applicable, then no compliance evaluation can be made for that evidence. This is the case if the evidence uses Config or Security Hub as the underlying data source type, but those services aren't enabled. This is also the case if the evidence uses an underlying data source type that doesn't support compliance checks (such as manual evidence, Amazon Web Services API calls, or CloudTrail)."];
      awsOrganization: String_.t option
        [@ocaml.doc
          "The Amazon Web Services account that the evidence is collected from, and its organization path."];
      awsAccountId: AccountId.t option
        [@ocaml.doc "The identifier for the Amazon Web Services account."];
      evidenceFolderId: UUID.t option
        [@ocaml.doc
          "The identifier for the folder that the evidence is stored in."];
      id: UUID.t option [@ocaml.doc "The identifier for the evidence."];
      assessmentReportSelection: String_.t option
        [@ocaml.doc
          "Specifies whether the evidence is included in the assessment report."]}
    let make ?dataSource =
      fun ?evidenceAwsAccountId ->
        fun ?time ->
          fun ?eventSource ->
            fun ?eventName ->
              fun ?evidenceByType ->
                fun ?resourcesIncluded ->
                  fun ?attributes ->
                    fun ?iamId ->
                      fun ?complianceCheck ->
                        fun ?awsOrganization ->
                          fun ?awsAccountId ->
                            fun ?evidenceFolderId ->
                              fun ?id ->
                                fun ?assessmentReportSelection ->
                                  fun () ->
                                    {
                                      dataSource;
                                      evidenceAwsAccountId;
                                      time;
                                      eventSource;
                                      eventName;
                                      evidenceByType;
                                      resourcesIncluded;
                                      attributes;
                                      iamId;
                                      complianceCheck;
                                      awsOrganization;
                                      awsAccountId;
                                      evidenceFolderId;
                                      id;
                                      assessmentReportSelection
                                    }
    let to_value x =
      structure_to_value
        [("dataSource", (Option.map x.dataSource ~f:String_.to_value));
        ("evidenceAwsAccountId",
          (Option.map x.evidenceAwsAccountId ~f:AccountId.to_value));
        ("time", (Option.map x.time ~f:Timestamp.to_value));
        ("eventSource",
          (Option.map x.eventSource ~f:AWSServiceName.to_value));
        ("eventName", (Option.map x.eventName ~f:EventName.to_value));
        ("evidenceByType", (Option.map x.evidenceByType ~f:String_.to_value));
        ("resourcesIncluded",
          (Option.map x.resourcesIncluded ~f:Resources.to_value));
        ("attributes",
          (Option.map x.attributes ~f:EvidenceAttributes.to_value));
        ("iamId", (Option.map x.iamId ~f:IamArn.to_value));
        ("complianceCheck",
          (Option.map x.complianceCheck ~f:String_.to_value));
        ("awsOrganization",
          (Option.map x.awsOrganization ~f:String_.to_value));
        ("awsAccountId", (Option.map x.awsAccountId ~f:AccountId.to_value));
        ("evidenceFolderId",
          (Option.map x.evidenceFolderId ~f:UUID.to_value));
        ("id", (Option.map x.id ~f:UUID.to_value));
        ("assessmentReportSelection",
          (Option.map x.assessmentReportSelection ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentReportSelection =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "assessmentReportSelection") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      let evidenceFolderId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "evidenceFolderId") in
      let awsAccountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "awsAccountId") in
      let awsOrganization =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "awsOrganization") in
      let complianceCheck =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "complianceCheck") in
      let iamId = (Option.map ~f:IamArn.of_xml) (Xml.child xml_arg0 "iamId") in
      let attributes =
        (Option.map ~f:EvidenceAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let resourcesIncluded =
        (Option.map ~f:Resources.of_xml)
          (Xml.child xml_arg0 "resourcesIncluded") in
      let evidenceByType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "evidenceByType") in
      let eventName =
        (Option.map ~f:EventName.of_xml) (Xml.child xml_arg0 "eventName") in
      let eventSource =
        (Option.map ~f:AWSServiceName.of_xml)
          (Xml.child xml_arg0 "eventSource") in
      let time = (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "time") in
      let evidenceAwsAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "evidenceAwsAccountId") in
      let dataSource =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "dataSource") in
      make ?assessmentReportSelection ?id ?evidenceFolderId ?awsAccountId
        ?awsOrganization ?complianceCheck ?iamId ?attributes
        ?resourcesIncluded ?evidenceByType ?eventName ?eventSource ?time
        ?evidenceAwsAccountId ?dataSource ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentReportSelection =
        field_map json__ "assessmentReportSelection" String_.of_json in
      let id = field_map json__ "id" UUID.of_json in
      let evidenceFolderId = field_map json__ "evidenceFolderId" UUID.of_json in
      let awsAccountId = field_map json__ "awsAccountId" AccountId.of_json in
      let awsOrganization =
        field_map json__ "awsOrganization" String_.of_json in
      let complianceCheck =
        field_map json__ "complianceCheck" String_.of_json in
      let iamId = field_map json__ "iamId" IamArn.of_json in
      let attributes =
        field_map json__ "attributes" EvidenceAttributes.of_json in
      let resourcesIncluded =
        field_map json__ "resourcesIncluded" Resources.of_json in
      let evidenceByType = field_map json__ "evidenceByType" String_.of_json in
      let eventName = field_map json__ "eventName" EventName.of_json in
      let eventSource = field_map json__ "eventSource" AWSServiceName.of_json in
      let time = field_map json__ "time" Timestamp.of_json in
      let evidenceAwsAccountId =
        field_map json__ "evidenceAwsAccountId" AccountId.of_json in
      let dataSource = field_map json__ "dataSource" String_.of_json in
      make ?assessmentReportSelection ?id ?evidenceFolderId ?awsAccountId
        ?awsOrganization ?complianceCheck ?iamId ?attributes
        ?resourcesIncluded ?evidenceByType ?eventName ?eventSource ?time
        ?evidenceAwsAccountId ?dataSource ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A record that contains the information needed to demonstrate compliance with the requirements specified by a control. Examples of evidence include change activity invoked by a user, or a system configuration snapshot."]
module DelegationMetadata =
  struct
    type nonrec t =
      {
      id: UUID.t option
        [@ocaml.doc "The unique identifier for the delegation."];
      assessmentName: AssessmentName.t option
        [@ocaml.doc "The name of the associated assessment."];
      assessmentId: UUID.t option
        [@ocaml.doc "The unique identifier for the assessment."];
      status: DelegationStatus.t option
        [@ocaml.doc "The current status of the delegation."];
      roleArn: IamArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the IAM role."];
      creationTime: Timestamp.t option
        [@ocaml.doc "Specifies when the delegation was created."];
      controlSetName: NonEmptyString.t option
        [@ocaml.doc
          "Specifies the name of the control set that was delegated for review."]}
    let make ?id =
      fun ?assessmentName ->
        fun ?assessmentId ->
          fun ?status ->
            fun ?roleArn ->
              fun ?creationTime ->
                fun ?controlSetName ->
                  fun () ->
                    {
                      id;
                      assessmentName;
                      assessmentId;
                      status;
                      roleArn;
                      creationTime;
                      controlSetName
                    }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("assessmentName",
          (Option.map x.assessmentName ~f:AssessmentName.to_value));
        ("assessmentId", (Option.map x.assessmentId ~f:UUID.to_value));
        ("status", (Option.map x.status ~f:DelegationStatus.to_value));
        ("roleArn", (Option.map x.roleArn ~f:IamArn.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("controlSetName",
          (Option.map x.controlSetName ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlSetName =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "controlSetName") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let roleArn =
        (Option.map ~f:IamArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let status =
        (Option.map ~f:DelegationStatus.of_xml) (Xml.child xml_arg0 "status") in
      let assessmentId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "assessmentId") in
      let assessmentName =
        (Option.map ~f:AssessmentName.of_xml)
          (Xml.child xml_arg0 "assessmentName") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?controlSetName ?creationTime ?roleArn ?status ?assessmentId
        ?assessmentName ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlSetName =
        field_map json__ "controlSetName" NonEmptyString.of_json in
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let roleArn = field_map json__ "roleArn" IamArn.of_json in
      let status = field_map json__ "status" DelegationStatus.of_json in
      let assessmentId = field_map json__ "assessmentId" UUID.of_json in
      let assessmentName =
        field_map json__ "assessmentName" AssessmentName.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?controlSetName ?creationTime ?roleArn ?status ?assessmentId
        ?assessmentName ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The metadata that's associated with the delegation."]
module ChangeLog =
  struct
    type nonrec t =
      {
      objectType: ObjectTypeEnum.t option
        [@ocaml.doc
          "The object that was changed, such as an assessment, control, or control set."];
      objectName: NonEmptyString.t option
        [@ocaml.doc
          "The name of the object that changed. This could be the name of an assessment, control, or control set."];
      action: ActionEnum.t option
        [@ocaml.doc "The action that was performed."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "The time when the action was performed and the changelog record was created."];
      createdBy: IamArn.t option
        [@ocaml.doc "The user or role that performed the action."]}
    let make ?objectType =
      fun ?objectName ->
        fun ?action ->
          fun ?createdAt ->
            fun ?createdBy ->
              fun () ->
                { objectType; objectName; action; createdAt; createdBy }
    let to_value x =
      structure_to_value
        [("objectType", (Option.map x.objectType ~f:ObjectTypeEnum.to_value));
        ("objectName", (Option.map x.objectName ~f:NonEmptyString.to_value));
        ("action", (Option.map x.action ~f:ActionEnum.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("createdBy", (Option.map x.createdBy ~f:IamArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdBy =
        (Option.map ~f:IamArn.of_xml) (Xml.child xml_arg0 "createdBy") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let action =
        (Option.map ~f:ActionEnum.of_xml) (Xml.child xml_arg0 "action") in
      let objectName =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "objectName") in
      let objectType =
        (Option.map ~f:ObjectTypeEnum.of_xml)
          (Xml.child xml_arg0 "objectType") in
      make ?createdBy ?createdAt ?action ?objectName ?objectType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdBy = field_map json__ "createdBy" IamArn.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let action = field_map json__ "action" ActionEnum.of_json in
      let objectName = field_map json__ "objectName" NonEmptyString.of_json in
      let objectType = field_map json__ "objectType" ObjectTypeEnum.of_json in
      make ?createdBy ?createdAt ?action ?objectName ?objectType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The record of a change within Audit Manager. For example, this could be the status change of an assessment or the delegation of a control set."]
module HyperlinkName =
  struct
    type nonrec t = string
    let context_ = "HyperlinkName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\w\\W\\s\\S]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"HyperlinkName" j
    let to_json = simple_to_json to_value
  end
module UrlLink =
  struct
    type nonrec t = string
    let context_ = "UrlLink"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:8192) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(https?:\\/\\/)?(www\\.)?[a-zA-Z0-9-_]+([\\.]+[a-zA-Z]+)+[\\/\\w]*$")));
        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:"UrlLink" j
    let to_json = simple_to_json to_value
  end
module CreateControlMappingSource =
  struct
    type nonrec t =
      {
      sourceName: SourceName.t option
        [@ocaml.doc "The name of the control mapping data source."];
      sourceDescription: SourceDescription.t option
        [@ocaml.doc
          "The description of the data source that determines where Audit Manager collects evidence from for the control."];
      sourceSetUpOption: SourceSetUpOption.t option
        [@ocaml.doc
          "The setup option for the data source. This option reflects if the evidence collection method is automated or manual. If you don\226\128\153t provide a value for sourceSetUpOption, Audit Manager automatically infers and populates the correct value based on the sourceType that you specify."];
      sourceType: SourceType.t option
        [@ocaml.doc
          "Specifies which type of data source is used to collect evidence. The source can be an individual data source type, such as AWS_Cloudtrail, AWS_Config, AWS_Security_Hub, AWS_API_Call, or MANUAL. The source can also be a managed grouping of data sources, such as a Core_Control or a Common_Control."];
      sourceKeyword: SourceKeyword.t option ;
      sourceFrequency: SourceFrequency.t option
        [@ocaml.doc
          "Specifies how often evidence is collected from the control mapping source."];
      troubleshootingText: TroubleshootingText.t option
        [@ocaml.doc "The instructions for troubleshooting the control."]}
    let make ?sourceName =
      fun ?sourceDescription ->
        fun ?sourceSetUpOption ->
          fun ?sourceType ->
            fun ?sourceKeyword ->
              fun ?sourceFrequency ->
                fun ?troubleshootingText ->
                  fun () ->
                    {
                      sourceName;
                      sourceDescription;
                      sourceSetUpOption;
                      sourceType;
                      sourceKeyword;
                      sourceFrequency;
                      troubleshootingText
                    }
    let to_value x =
      structure_to_value
        [("sourceName", (Option.map x.sourceName ~f:SourceName.to_value));
        ("sourceDescription",
          (Option.map x.sourceDescription ~f:SourceDescription.to_value));
        ("sourceSetUpOption",
          (Option.map x.sourceSetUpOption ~f:SourceSetUpOption.to_value));
        ("sourceType", (Option.map x.sourceType ~f:SourceType.to_value));
        ("sourceKeyword",
          (Option.map x.sourceKeyword ~f:SourceKeyword.to_value));
        ("sourceFrequency",
          (Option.map x.sourceFrequency ~f:SourceFrequency.to_value));
        ("troubleshootingText",
          (Option.map x.troubleshootingText ~f:TroubleshootingText.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let troubleshootingText =
        (Option.map ~f:TroubleshootingText.of_xml)
          (Xml.child xml_arg0 "troubleshootingText") in
      let sourceFrequency =
        (Option.map ~f:SourceFrequency.of_xml)
          (Xml.child xml_arg0 "sourceFrequency") in
      let sourceKeyword =
        (Option.map ~f:SourceKeyword.of_xml)
          (Xml.child xml_arg0 "sourceKeyword") in
      let sourceType =
        (Option.map ~f:SourceType.of_xml) (Xml.child xml_arg0 "sourceType") in
      let sourceSetUpOption =
        (Option.map ~f:SourceSetUpOption.of_xml)
          (Xml.child xml_arg0 "sourceSetUpOption") in
      let sourceDescription =
        (Option.map ~f:SourceDescription.of_xml)
          (Xml.child xml_arg0 "sourceDescription") in
      let sourceName =
        (Option.map ~f:SourceName.of_xml) (Xml.child xml_arg0 "sourceName") in
      make ?troubleshootingText ?sourceFrequency ?sourceKeyword ?sourceType
        ?sourceSetUpOption ?sourceDescription ?sourceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let troubleshootingText =
        field_map json__ "troubleshootingText" TroubleshootingText.of_json in
      let sourceFrequency =
        field_map json__ "sourceFrequency" SourceFrequency.of_json in
      let sourceKeyword =
        field_map json__ "sourceKeyword" SourceKeyword.of_json in
      let sourceType = field_map json__ "sourceType" SourceType.of_json in
      let sourceSetUpOption =
        field_map json__ "sourceSetUpOption" SourceSetUpOption.of_json in
      let sourceDescription =
        field_map json__ "sourceDescription" SourceDescription.of_json in
      let sourceName = field_map json__ "sourceName" SourceName.of_json in
      make ?troubleshootingText ?sourceFrequency ?sourceKeyword ?sourceType
        ?sourceSetUpOption ?sourceDescription ?sourceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The mapping attributes that determine the evidence source for a given control, along with related parameters and metadata. This doesn't contain mappingID."]
module CreateAssessmentFrameworkControlSet =
  struct
    type nonrec t =
      {
      name: ControlSetName.t [@ocaml.doc "The name of the control set."];
      controls: CreateAssessmentFrameworkControls.t option
        [@ocaml.doc
          "The list of controls within the control set. This doesn't contain the control set ID."]}
    let context_ = "CreateAssessmentFrameworkControlSet"
    let make ?controls = fun ~name -> fun () -> { controls; name }
    let to_value x =
      structure_to_value
        [("name", (Some (ControlSetName.to_value x.name)));
        ("controls",
          (Option.map x.controls
             ~f:CreateAssessmentFrameworkControls.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controls =
        (Option.map ~f:CreateAssessmentFrameworkControls.of_xml)
          (Xml.child xml_arg0 "controls") in
      let name =
        ControlSetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?controls ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controls =
        field_map json__ "controls" CreateAssessmentFrameworkControls.of_json in
      let name = field_map_exn json__ "name" ControlSetName.of_json in
      make ?controls ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A controlSet entity that represents a collection of controls in Audit Manager. This doesn't contain the control set ID."]
module BatchImportEvidenceToAssessmentControlError =
  struct
    type nonrec t =
      {
      manualEvidence: ManualEvidence.t option
        [@ocaml.doc
          "Manual evidence that can't be collected automatically by Audit Manager."];
      errorCode: ErrorCode.t option
        [@ocaml.doc
          "The error code that the BatchImportEvidenceToAssessmentControl API returned."];
      errorMessage: ErrorMessage.t option
        [@ocaml.doc
          "The error message that the BatchImportEvidenceToAssessmentControl API returned."]}
    let make ?manualEvidence =
      fun ?errorCode ->
        fun ?errorMessage ->
          fun () -> { manualEvidence; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("manualEvidence",
           (Option.map x.manualEvidence ~f:ManualEvidence.to_value));
        ("errorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("errorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "errorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "errorCode") in
      let manualEvidence =
        (Option.map ~f:ManualEvidence.of_xml)
          (Xml.child xml_arg0 "manualEvidence") in
      make ?errorMessage ?errorCode ?manualEvidence ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "errorMessage" ErrorMessage.of_json in
      let errorCode = field_map json__ "errorCode" ErrorCode.of_json in
      let manualEvidence =
        field_map json__ "manualEvidence" ManualEvidence.of_json in
      make ?errorMessage ?errorCode ?manualEvidence ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An error entity for the BatchImportEvidenceToAssessmentControl API. This is used to provide more meaningful errors than a simple string message."]
module AssessmentReportEvidenceError =
  struct
    type nonrec t =
      {
      evidenceId: UUID.t option
        [@ocaml.doc "The identifier for the evidence."];
      errorCode: ErrorCode.t option
        [@ocaml.doc "The error code that was returned."];
      errorMessage: ErrorMessage.t option
        [@ocaml.doc "The error message that was returned."]}
    let make ?evidenceId =
      fun ?errorCode ->
        fun ?errorMessage ->
          fun () -> { evidenceId; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("evidenceId", (Option.map x.evidenceId ~f:UUID.to_value));
        ("errorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("errorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "errorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "errorCode") in
      let evidenceId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "evidenceId") in
      make ?errorMessage ?errorCode ?evidenceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "errorMessage" ErrorMessage.of_json in
      let errorCode = field_map json__ "errorCode" ErrorCode.of_json in
      let evidenceId = field_map json__ "evidenceId" UUID.of_json in
      make ?errorMessage ?errorCode ?evidenceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An error entity for assessment report evidence errors. This is used to provide more meaningful errors than a simple string message."]
module BatchDeleteDelegationByAssessmentError =
  struct
    type nonrec t =
      {
      delegationId: UUID.t option
        [@ocaml.doc "The identifier for the delegation."];
      errorCode: ErrorCode.t option
        [@ocaml.doc
          "The error code that the BatchDeleteDelegationByAssessment API returned."];
      errorMessage: ErrorMessage.t option
        [@ocaml.doc
          "The error message that the BatchDeleteDelegationByAssessment API returned."]}
    let make ?delegationId =
      fun ?errorCode ->
        fun ?errorMessage ->
          fun () -> { delegationId; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("delegationId", (Option.map x.delegationId ~f:UUID.to_value));
        ("errorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("errorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "errorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "errorCode") in
      let delegationId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "delegationId") in
      make ?errorMessage ?errorCode ?delegationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "errorMessage" ErrorMessage.of_json in
      let errorCode = field_map json__ "errorCode" ErrorCode.of_json in
      let delegationId = field_map json__ "delegationId" UUID.of_json in
      make ?errorMessage ?errorCode ?delegationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An error entity for the BatchDeleteDelegationByAssessment API. This is used to provide more meaningful errors than a simple string message."]
module BatchCreateDelegationByAssessmentError =
  struct
    type nonrec t =
      {
      createDelegationRequest: CreateDelegationRequest.t option
        [@ocaml.doc
          "The API request to batch create delegations in Audit Manager."];
      errorCode: ErrorCode.t option
        [@ocaml.doc
          "The error code that the BatchCreateDelegationByAssessment API returned."];
      errorMessage: ErrorMessage.t option
        [@ocaml.doc
          "The error message that the BatchCreateDelegationByAssessment API returned."]}
    let make ?createDelegationRequest =
      fun ?errorCode ->
        fun ?errorMessage ->
          fun () -> { createDelegationRequest; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("createDelegationRequest",
           (Option.map x.createDelegationRequest
              ~f:CreateDelegationRequest.to_value));
        ("errorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("errorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "errorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "errorCode") in
      let createDelegationRequest =
        (Option.map ~f:CreateDelegationRequest.of_xml)
          (Xml.child xml_arg0 "createDelegationRequest") in
      make ?errorMessage ?errorCode ?createDelegationRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "errorMessage" ErrorMessage.of_json in
      let errorCode = field_map json__ "errorCode" ErrorCode.of_json in
      let createDelegationRequest =
        field_map json__ "createDelegationRequest"
          CreateDelegationRequest.of_json in
      make ?errorMessage ?errorCode ?createDelegationRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An error entity for the BatchCreateDelegationByAssessment API. This is used to provide more meaningful errors than a simple string message."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Your account isn't registered with Audit Manager. Check the delegated administrator setup on the Audit Manager settings page, and try again."]
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An internal service error occurred during the processing of your request. Try again later."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "The unique identifier for the resource."];
      resourceType: String_.t option
        [@ocaml.doc "The type of resource that's affected by the error."]}
    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[@@ocaml.doc
       "The resource that's specified in the request can't be found."]
module ValidationErrors =
  struct
    type nonrec t = NonEmptyString.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:NonEmptyString.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:NonEmptyString.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationErrors" ~of_json:NonEmptyString.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The reason the request failed validation."];
      fields: ValidationExceptionFieldList.t option
        [@ocaml.doc "The fields that caused the error, if applicable."]}
    let make ?message =
      fun ?reason -> fun ?fields -> fun () -> { message; reason; fields }
    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));
        ("fields",
          (Option.map x.fields ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fields") 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 ?fields ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields =
        field_map json__ "fields" 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 ?fields ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request has invalid or missing parameters."]
module Settings =
  struct
    type nonrec t =
      {
      isAwsOrgEnabled: Boolean.t option
        [@ocaml.doc "Specifies whether Organizations is enabled."];
      snsTopic: SNSTopic.t option
        [@ocaml.doc
          "The designated Amazon Simple Notification Service (Amazon SNS) topic."];
      defaultAssessmentReportsDestination:
        AssessmentReportsDestination.t option
        [@ocaml.doc
          "The default S3 destination bucket for storing assessment reports."];
      defaultProcessOwners: Roles.t option
        [@ocaml.doc "The designated default audit owners."];
      kmsKey: KmsKey.t option [@ocaml.doc "The KMS key details."];
      evidenceFinderEnablement: EvidenceFinderEnablement.t option
        [@ocaml.doc
          "The current evidence finder status and event data store details."];
      deregistrationPolicy: DeregistrationPolicy.t option
        [@ocaml.doc
          "The deregistration policy for your Audit Manager data. You can use this attribute to determine how your data is handled when you deregister Audit Manager."];
      defaultExportDestination: DefaultExportDestination.t option
        [@ocaml.doc
          "The default S3 destination bucket for storing evidence finder exports."]}
    let make ?isAwsOrgEnabled =
      fun ?snsTopic ->
        fun ?defaultAssessmentReportsDestination ->
          fun ?defaultProcessOwners ->
            fun ?kmsKey ->
              fun ?evidenceFinderEnablement ->
                fun ?deregistrationPolicy ->
                  fun ?defaultExportDestination ->
                    fun () ->
                      {
                        isAwsOrgEnabled;
                        snsTopic;
                        defaultAssessmentReportsDestination;
                        defaultProcessOwners;
                        kmsKey;
                        evidenceFinderEnablement;
                        deregistrationPolicy;
                        defaultExportDestination
                      }
    let to_value x =
      structure_to_value
        [("isAwsOrgEnabled",
           (Option.map x.isAwsOrgEnabled ~f:Boolean.to_value));
        ("snsTopic", (Option.map x.snsTopic ~f:SNSTopic.to_value));
        ("defaultAssessmentReportsDestination",
          (Option.map x.defaultAssessmentReportsDestination
             ~f:AssessmentReportsDestination.to_value));
        ("defaultProcessOwners",
          (Option.map x.defaultProcessOwners ~f:Roles.to_value));
        ("kmsKey", (Option.map x.kmsKey ~f:KmsKey.to_value));
        ("evidenceFinderEnablement",
          (Option.map x.evidenceFinderEnablement
             ~f:EvidenceFinderEnablement.to_value));
        ("deregistrationPolicy",
          (Option.map x.deregistrationPolicy ~f:DeregistrationPolicy.to_value));
        ("defaultExportDestination",
          (Option.map x.defaultExportDestination
             ~f:DefaultExportDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultExportDestination =
        (Option.map ~f:DefaultExportDestination.of_xml)
          (Xml.child xml_arg0 "defaultExportDestination") in
      let deregistrationPolicy =
        (Option.map ~f:DeregistrationPolicy.of_xml)
          (Xml.child xml_arg0 "deregistrationPolicy") in
      let evidenceFinderEnablement =
        (Option.map ~f:EvidenceFinderEnablement.of_xml)
          (Xml.child xml_arg0 "evidenceFinderEnablement") in
      let kmsKey =
        (Option.map ~f:KmsKey.of_xml) (Xml.child xml_arg0 "kmsKey") in
      let defaultProcessOwners =
        (Option.map ~f:Roles.of_xml)
          (Xml.child xml_arg0 "defaultProcessOwners") in
      let defaultAssessmentReportsDestination =
        (Option.map ~f:AssessmentReportsDestination.of_xml)
          (Xml.child xml_arg0 "defaultAssessmentReportsDestination") in
      let snsTopic =
        (Option.map ~f:SNSTopic.of_xml) (Xml.child xml_arg0 "snsTopic") in
      let isAwsOrgEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isAwsOrgEnabled") in
      make ?defaultExportDestination ?deregistrationPolicy
        ?evidenceFinderEnablement ?kmsKey ?defaultProcessOwners
        ?defaultAssessmentReportsDestination ?snsTopic ?isAwsOrgEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultExportDestination =
        field_map json__ "defaultExportDestination"
          DefaultExportDestination.of_json in
      let deregistrationPolicy =
        field_map json__ "deregistrationPolicy" DeregistrationPolicy.of_json in
      let evidenceFinderEnablement =
        field_map json__ "evidenceFinderEnablement"
          EvidenceFinderEnablement.of_json in
      let kmsKey = field_map json__ "kmsKey" KmsKey.of_json in
      let defaultProcessOwners =
        field_map json__ "defaultProcessOwners" Roles.of_json in
      let defaultAssessmentReportsDestination =
        field_map json__ "defaultAssessmentReportsDestination"
          AssessmentReportsDestination.of_json in
      let snsTopic = field_map json__ "snsTopic" SNSTopic.of_json in
      let isAwsOrgEnabled =
        field_map json__ "isAwsOrgEnabled" Boolean.of_json in
      make ?defaultExportDestination ?deregistrationPolicy
        ?evidenceFinderEnablement ?kmsKey ?defaultProcessOwners
        ?defaultAssessmentReportsDestination ?snsTopic ?isAwsOrgEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The settings object that holds all supported Audit Manager settings."]
module SnsArn =
  struct
    type nonrec t = string
    let context_ = "SnsArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"^arn:.*:sns:.*|NONE")));
        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:"SnsArn" j
    let to_json = simple_to_json to_value
  end
module Assessment =
  struct
    type nonrec t =
      {
      arn: AuditManagerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the assessment."];
      awsAccount: AWSAccount.t option
        [@ocaml.doc
          "The Amazon Web Services account that's associated with the assessment."];
      metadata: AssessmentMetadata.t option
        [@ocaml.doc "The metadata for the assessment."];
      framework: AssessmentFramework.t option
        [@ocaml.doc "The framework that the assessment was created from."];
      tags: TagMap.t option
        [@ocaml.doc "The tags that are associated with the assessment."]}
    let make ?arn =
      fun ?awsAccount ->
        fun ?metadata ->
          fun ?framework ->
            fun ?tags ->
              fun () -> { arn; awsAccount; metadata; framework; tags }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:AuditManagerArn.to_value));
        ("awsAccount", (Option.map x.awsAccount ~f:AWSAccount.to_value));
        ("metadata", (Option.map x.metadata ~f:AssessmentMetadata.to_value));
        ("framework",
          (Option.map x.framework ~f:AssessmentFramework.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 framework =
        (Option.map ~f:AssessmentFramework.of_xml)
          (Xml.child xml_arg0 "framework") in
      let metadata =
        (Option.map ~f:AssessmentMetadata.of_xml)
          (Xml.child xml_arg0 "metadata") in
      let awsAccount =
        (Option.map ~f:AWSAccount.of_xml) (Xml.child xml_arg0 "awsAccount") in
      let arn =
        (Option.map ~f:AuditManagerArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?framework ?metadata ?awsAccount ?arn ()
    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 framework =
        field_map json__ "framework" AssessmentFramework.of_json in
      let metadata = field_map json__ "metadata" AssessmentMetadata.of_json in
      let awsAccount = field_map json__ "awsAccount" AWSAccount.of_json in
      let arn = field_map json__ "arn" AuditManagerArn.of_json in
      make ?tags ?framework ?metadata ?awsAccount ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An entity that defines the scope of audit evidence collected by Audit Manager. An Audit Manager assessment is an implementation of an Audit Manager framework."]
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You've reached your account quota for this resource type. To perform the requested action, delete some existing resources or request a quota increase from the Service Quotas console. For a list of Audit Manager service quotas, see Quotas and restrictions for Audit Manager."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ShareRequestAction =
  struct
    type nonrec t =
      | ACCEPT 
      | DECLINE 
      | REVOKE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACCEPT -> "ACCEPT"
      | DECLINE -> "DECLINE"
      | REVOKE -> "REVOKE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACCEPT" -> ACCEPT
      | "DECLINE" -> DECLINE
      | "REVOKE" -> REVOKE
      | 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 ShareRequestAction" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ShareRequestAction" j)
    let to_json = simple_to_json to_value
  end
module ShareRequestType =
  struct
    type nonrec t =
      | SENT 
      | RECEIVED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SENT -> "SENT"
      | RECEIVED -> "RECEIVED"
      | Non_static_id s -> s
    let of_string =
      function
      | "SENT" -> SENT
      | "RECEIVED" -> RECEIVED
      | 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 ShareRequestType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ShareRequestType" j)
    let to_json = simple_to_json to_value
  end
module Framework =
  struct
    type nonrec t =
      {
      arn: AuditManagerArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the framework."];
      id: UUID.t option
        [@ocaml.doc "The unique identifier for the framework."];
      name: FrameworkName.t option [@ocaml.doc "The name of the framework."];
      type_: FrameworkType.t option
        [@ocaml.doc
          "Specifies whether the framework is a standard framework or a custom framework."];
      complianceType: ComplianceType.t option
        [@ocaml.doc
          "The compliance type that the framework supports, such as CIS or HIPAA."];
      description: FrameworkDescription.t option
        [@ocaml.doc "The description of the framework."];
      logo: Filename.t option
        [@ocaml.doc "The logo that's associated with the framework."];
      controlSources: ControlSources.t option
        [@ocaml.doc
          "The control data sources where Audit Manager collects evidence from. This API parameter is no longer supported."];
      controlSets: ControlSets.t option
        [@ocaml.doc
          "The control sets that are associated with the framework. The Controls object returns a partial response when called through Framework APIs. For a complete Controls object, use GetControl."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The time when the framework was created."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc "The time when the framework was most recently updated."];
      createdBy: CreatedBy.t option
        [@ocaml.doc "The user or role that created the framework."];
      lastUpdatedBy: LastUpdatedBy.t option
        [@ocaml.doc
          "The user or role that most recently updated the framework."];
      tags: TagMap.t option
        [@ocaml.doc "The tags that are associated with the framework."]}
    let make ?arn =
      fun ?id ->
        fun ?name ->
          fun ?type_ ->
            fun ?complianceType ->
              fun ?description ->
                fun ?logo ->
                  fun ?controlSources ->
                    fun ?controlSets ->
                      fun ?createdAt ->
                        fun ?lastUpdatedAt ->
                          fun ?createdBy ->
                            fun ?lastUpdatedBy ->
                              fun ?tags ->
                                fun () ->
                                  {
                                    arn;
                                    id;
                                    name;
                                    type_;
                                    complianceType;
                                    description;
                                    logo;
                                    controlSources;
                                    controlSets;
                                    createdAt;
                                    lastUpdatedAt;
                                    createdBy;
                                    lastUpdatedBy;
                                    tags
                                  }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:AuditManagerArn.to_value));
        ("id", (Option.map x.id ~f:UUID.to_value));
        ("name", (Option.map x.name ~f:FrameworkName.to_value));
        ("type", (Option.map x.type_ ~f:FrameworkType.to_value));
        ("complianceType",
          (Option.map x.complianceType ~f:ComplianceType.to_value));
        ("description",
          (Option.map x.description ~f:FrameworkDescription.to_value));
        ("logo", (Option.map x.logo ~f:Filename.to_value));
        ("controlSources",
          (Option.map x.controlSources ~f:ControlSources.to_value));
        ("controlSets", (Option.map x.controlSets ~f:ControlSets.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value));
        ("createdBy", (Option.map x.createdBy ~f:CreatedBy.to_value));
        ("lastUpdatedBy",
          (Option.map x.lastUpdatedBy ~f:LastUpdatedBy.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 lastUpdatedBy =
        (Option.map ~f:LastUpdatedBy.of_xml)
          (Xml.child xml_arg0 "lastUpdatedBy") in
      let createdBy =
        (Option.map ~f:CreatedBy.of_xml) (Xml.child xml_arg0 "createdBy") in
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let controlSets =
        (Option.map ~f:ControlSets.of_xml) (Xml.child xml_arg0 "controlSets") in
      let controlSources =
        (Option.map ~f:ControlSources.of_xml)
          (Xml.child xml_arg0 "controlSources") in
      let logo = (Option.map ~f:Filename.of_xml) (Xml.child xml_arg0 "logo") in
      let description =
        (Option.map ~f:FrameworkDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let complianceType =
        (Option.map ~f:ComplianceType.of_xml)
          (Xml.child xml_arg0 "complianceType") in
      let type_ =
        (Option.map ~f:FrameworkType.of_xml) (Xml.child xml_arg0 "type") in
      let name =
        (Option.map ~f:FrameworkName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      let arn =
        (Option.map ~f:AuditManagerArn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?tags ?lastUpdatedBy ?createdBy ?lastUpdatedAt ?createdAt
        ?controlSets ?controlSources ?logo ?description ?complianceType
        ?type_ ?name ?id ?arn ()
    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 lastUpdatedBy =
        field_map json__ "lastUpdatedBy" LastUpdatedBy.of_json in
      let createdBy = field_map json__ "createdBy" CreatedBy.of_json in
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let controlSets = field_map json__ "controlSets" ControlSets.of_json in
      let controlSources =
        field_map json__ "controlSources" ControlSources.of_json in
      let logo = field_map json__ "logo" Filename.of_json in
      let description =
        field_map json__ "description" FrameworkDescription.of_json in
      let complianceType =
        field_map json__ "complianceType" ComplianceType.of_json in
      let type_ = field_map json__ "type" FrameworkType.of_json in
      let name = field_map json__ "name" FrameworkName.of_json in
      let id = field_map json__ "id" UUID.of_json in
      let arn = field_map json__ "arn" AuditManagerArn.of_json in
      make ?tags ?lastUpdatedBy ?createdBy ?lastUpdatedAt ?createdAt
        ?controlSets ?controlSources ?logo ?description ?complianceType
        ?type_ ?name ?id ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The file that's used to structure and automate Audit Manager assessments for a given compliance standard."]
module UpdateAssessmentFrameworkControlSets =
  struct
    type nonrec t = UpdateAssessmentFrameworkControlSet.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:UpdateAssessmentFrameworkControlSet.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:UpdateAssessmentFrameworkControlSet.of_xml)
    let of_json j =
      list_of_json ~kind:"UpdateAssessmentFrameworkControlSets"
        ~of_json:UpdateAssessmentFrameworkControlSet.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min: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:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module OrganizationId =
  struct
    type nonrec t = string
    let context_ = "organizationId"
    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:"o-[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:"organizationId" j
    let to_json = simple_to_json to_value
  end
module AccountStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | INACTIVE 
      | PENDING_ACTIVATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | PENDING_ACTIVATION -> "PENDING_ACTIVATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | "PENDING_ACTIVATION" -> PENDING_ACTIVATION
      | 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 AccountStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AccountStatus" j)
    let to_json = simple_to_json to_value
  end
module Notifications =
  struct
    type nonrec t = Notification.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:Notification.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:Notification.of_xml)
    let of_json j =
      list_of_json ~kind:"Notifications" ~of_json:Notification.of_json j
    let to_json v = composed_to_json to_value v
  end
module Token =
  struct
    type nonrec t = string
    let context_ = "Token"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (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:"Token" j
    let to_json = simple_to_json to_value
  end
module MaxResults =
  struct
    type nonrec t = int[@@ocaml.doc "Max results in the page."]
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Max results in the page."]
module Keywords =
  struct
    type nonrec t = KeywordValue.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:KeywordValue.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:KeywordValue.of_xml)
    let of_json j =
      list_of_json ~kind:"Keywords" ~of_json:KeywordValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataSourceType =
  struct
    type nonrec t =
      | AWS_Cloudtrail 
      | AWS_Config 
      | AWS_Security_Hub 
      | AWS_API_Call 
      | MANUAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AWS_Cloudtrail -> "AWS_Cloudtrail"
      | AWS_Config -> "AWS_Config"
      | AWS_Security_Hub -> "AWS_Security_Hub"
      | AWS_API_Call -> "AWS_API_Call"
      | MANUAL -> "MANUAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "AWS_Cloudtrail" -> AWS_Cloudtrail
      | "AWS_Config" -> AWS_Config
      | "AWS_Security_Hub" -> AWS_Security_Hub
      | "AWS_API_Call" -> AWS_API_Call
      | "MANUAL" -> MANUAL
      | 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 DataSourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DataSourceType" j)
    let to_json = simple_to_json to_value
  end
module ControlMetadataList =
  struct
    type nonrec t = ControlMetadata.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:ControlMetadata.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:ControlMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"ControlMetadataList"
        ~of_json:ControlMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module ControlCatalogId =
  struct
    type nonrec t = string
    let context_ = "ControlCatalogId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:13) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:.*:controlcatalog:.*|UNCATEGORIZED")));
        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:"ControlCatalogId" j
    let to_json = simple_to_json to_value
  end
module ControlInsightsMetadata =
  struct
    type nonrec t = ControlInsightsMetadataItem.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:ControlInsightsMetadataItem.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:ControlInsightsMetadataItem.of_xml)
    let of_json j =
      list_of_json ~kind:"ControlInsightsMetadata"
        ~of_json:ControlInsightsMetadataItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module ControlDomainInsightsList =
  struct
    type nonrec t = ControlDomainInsights.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:ControlDomainInsights.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:ControlDomainInsights.of_xml)
    let of_json j =
      list_of_json ~kind:"ControlDomainInsightsList"
        ~of_json:ControlDomainInsights.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListAssessmentMetadata =
  struct
    type nonrec t = AssessmentMetadataItem.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:AssessmentMetadataItem.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:AssessmentMetadataItem.of_xml)
    let of_json j =
      list_of_json ~kind:"ListAssessmentMetadata"
        ~of_json:AssessmentMetadataItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssessmentReportsMetadata =
  struct
    type nonrec t = AssessmentReportMetadata.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:AssessmentReportMetadata.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:AssessmentReportMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"AssessmentReportsMetadata"
        ~of_json:AssessmentReportMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module FrameworkMetadataList =
  struct
    type nonrec t = AssessmentFrameworkMetadata.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:AssessmentFrameworkMetadata.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:AssessmentFrameworkMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"FrameworkMetadataList"
        ~of_json:AssessmentFrameworkMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssessmentFrameworkShareRequestList =
  struct
    type nonrec t = AssessmentFrameworkShareRequest.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:AssessmentFrameworkShareRequest.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:AssessmentFrameworkShareRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"AssessmentFrameworkShareRequestList"
        ~of_json:AssessmentFrameworkShareRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module ControlInsightsMetadataByAssessment =
  struct
    type nonrec t = ControlInsightsMetadataByAssessmentItem.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:ControlInsightsMetadataByAssessmentItem.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:ControlInsightsMetadataByAssessmentItem.of_xml)
    let of_json j =
      list_of_json ~kind:"ControlInsightsMetadataByAssessment"
        ~of_json:ControlInsightsMetadataByAssessmentItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module SettingAttribute =
  struct
    type nonrec t =
      | ALL 
      | IS_AWS_ORG_ENABLED 
      | SNS_TOPIC 
      | DEFAULT_ASSESSMENT_REPORTS_DESTINATION 
      | DEFAULT_PROCESS_OWNERS 
      | EVIDENCE_FINDER_ENABLEMENT 
      | DEREGISTRATION_POLICY 
      | DEFAULT_EXPORT_DESTINATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALL -> "ALL"
      | IS_AWS_ORG_ENABLED -> "IS_AWS_ORG_ENABLED"
      | SNS_TOPIC -> "SNS_TOPIC"
      | DEFAULT_ASSESSMENT_REPORTS_DESTINATION ->
          "DEFAULT_ASSESSMENT_REPORTS_DESTINATION"
      | DEFAULT_PROCESS_OWNERS -> "DEFAULT_PROCESS_OWNERS"
      | EVIDENCE_FINDER_ENABLEMENT -> "EVIDENCE_FINDER_ENABLEMENT"
      | DEREGISTRATION_POLICY -> "DEREGISTRATION_POLICY"
      | DEFAULT_EXPORT_DESTINATION -> "DEFAULT_EXPORT_DESTINATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALL" -> ALL
      | "IS_AWS_ORG_ENABLED" -> IS_AWS_ORG_ENABLED
      | "SNS_TOPIC" -> SNS_TOPIC
      | "DEFAULT_ASSESSMENT_REPORTS_DESTINATION" ->
          DEFAULT_ASSESSMENT_REPORTS_DESTINATION
      | "DEFAULT_PROCESS_OWNERS" -> DEFAULT_PROCESS_OWNERS
      | "EVIDENCE_FINDER_ENABLEMENT" -> EVIDENCE_FINDER_ENABLEMENT
      | "DEREGISTRATION_POLICY" -> DEREGISTRATION_POLICY
      | "DEFAULT_EXPORT_DESTINATION" -> DEFAULT_EXPORT_DESTINATION
      | 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 SettingAttribute" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SettingAttribute" j)
    let to_json = simple_to_json to_value
  end
module ServiceMetadataList =
  struct
    type nonrec t = ServiceMetadata.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:ServiceMetadata.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:ServiceMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceMetadataList"
        ~of_json:ServiceMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module Insights =
  struct
    type nonrec t =
      {
      activeAssessmentsCount: NullableInteger.t option
        [@ocaml.doc "The number of active assessments in Audit Manager."];
      noncompliantEvidenceCount: NullableInteger.t option
        [@ocaml.doc
          "The number of compliance check evidence that Audit Manager classified as non-compliant on the lastUpdated date. This includes evidence that was collected from Security Hub with a Fail ruling, or collected from Config with a Non-compliant ruling."];
      compliantEvidenceCount: NullableInteger.t option
        [@ocaml.doc
          "The number of compliance check evidence that Audit Manager classified as compliant on the lastUpdated date. This includes evidence that was collected from Security Hub with a Pass ruling, or collected from Config with a Compliant ruling."];
      inconclusiveEvidenceCount: NullableInteger.t option
        [@ocaml.doc
          "The number of evidence without a compliance check ruling. Evidence is inconclusive when the associated control uses Security Hub or Config as a data source but you didn't enable those services. This is also the case when a control uses a data source that doesn\226\128\153t support compliance checks (for example: manual evidence, API calls, or CloudTrail). If evidence has a compliance check status of not applicable, it's classed as inconclusive in Insights data."];
      assessmentControlsCountByNoncompliantEvidence: NullableInteger.t option
        [@ocaml.doc
          "The number of assessment controls that collected non-compliant evidence on the lastUpdated date."];
      totalAssessmentControlsCount: NullableInteger.t option
        [@ocaml.doc
          "The total number of controls across all active assessments."];
      lastUpdated: Timestamp.t option
        [@ocaml.doc
          "The time when the cross-assessment insights were last updated."]}
    let make ?activeAssessmentsCount =
      fun ?noncompliantEvidenceCount ->
        fun ?compliantEvidenceCount ->
          fun ?inconclusiveEvidenceCount ->
            fun ?assessmentControlsCountByNoncompliantEvidence ->
              fun ?totalAssessmentControlsCount ->
                fun ?lastUpdated ->
                  fun () ->
                    {
                      activeAssessmentsCount;
                      noncompliantEvidenceCount;
                      compliantEvidenceCount;
                      inconclusiveEvidenceCount;
                      assessmentControlsCountByNoncompliantEvidence;
                      totalAssessmentControlsCount;
                      lastUpdated
                    }
    let to_value x =
      structure_to_value
        [("activeAssessmentsCount",
           (Option.map x.activeAssessmentsCount ~f:NullableInteger.to_value));
        ("noncompliantEvidenceCount",
          (Option.map x.noncompliantEvidenceCount ~f:NullableInteger.to_value));
        ("compliantEvidenceCount",
          (Option.map x.compliantEvidenceCount ~f:NullableInteger.to_value));
        ("inconclusiveEvidenceCount",
          (Option.map x.inconclusiveEvidenceCount ~f:NullableInteger.to_value));
        ("assessmentControlsCountByNoncompliantEvidence",
          (Option.map x.assessmentControlsCountByNoncompliantEvidence
             ~f:NullableInteger.to_value));
        ("totalAssessmentControlsCount",
          (Option.map x.totalAssessmentControlsCount
             ~f:NullableInteger.to_value));
        ("lastUpdated", (Option.map x.lastUpdated ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdated") in
      let totalAssessmentControlsCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "totalAssessmentControlsCount") in
      let assessmentControlsCountByNoncompliantEvidence =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "assessmentControlsCountByNoncompliantEvidence") in
      let inconclusiveEvidenceCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "inconclusiveEvidenceCount") in
      let compliantEvidenceCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "compliantEvidenceCount") in
      let noncompliantEvidenceCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "noncompliantEvidenceCount") in
      let activeAssessmentsCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "activeAssessmentsCount") in
      make ?lastUpdated ?totalAssessmentControlsCount
        ?assessmentControlsCountByNoncompliantEvidence
        ?inconclusiveEvidenceCount ?compliantEvidenceCount
        ?noncompliantEvidenceCount ?activeAssessmentsCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdated = field_map json__ "lastUpdated" Timestamp.of_json in
      let totalAssessmentControlsCount =
        field_map json__ "totalAssessmentControlsCount"
          NullableInteger.of_json in
      let assessmentControlsCountByNoncompliantEvidence =
        field_map json__ "assessmentControlsCountByNoncompliantEvidence"
          NullableInteger.of_json in
      let inconclusiveEvidenceCount =
        field_map json__ "inconclusiveEvidenceCount" NullableInteger.of_json in
      let compliantEvidenceCount =
        field_map json__ "compliantEvidenceCount" NullableInteger.of_json in
      let noncompliantEvidenceCount =
        field_map json__ "noncompliantEvidenceCount" NullableInteger.of_json in
      let activeAssessmentsCount =
        field_map json__ "activeAssessmentsCount" NullableInteger.of_json in
      make ?lastUpdated ?totalAssessmentControlsCount
        ?assessmentControlsCountByNoncompliantEvidence
        ?inconclusiveEvidenceCount ?compliantEvidenceCount
        ?noncompliantEvidenceCount ?activeAssessmentsCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary of the latest analytics data for all your active assessments. This summary is a snapshot of the data that your active assessments collected on the lastUpdated date. It\226\128\153s important to understand that the following totals are daily counts based on this date \226\128\148 they aren\226\128\153t a total sum to date. The Insights data is eventually consistent. This means that, when you read data from Insights, the response might not instantly reflect the results of a recently completed write or update operation. If you repeat your read request after a few hours, the response should return the latest data. If you delete an assessment or change its status to inactive, InsightsByAssessment includes data for that assessment as follows. Inactive assessments - If Audit Manager collected evidence for your assessment before you changed it inactive, that evidence is included in the InsightsByAssessment counts for that day. Deleted assessments - If Audit Manager collected evidence for your assessment before you deleted it, that evidence isn't included in the InsightsByAssessment counts for that day."]
module InsightsByAssessment =
  struct
    type nonrec t =
      {
      noncompliantEvidenceCount: NullableInteger.t option
        [@ocaml.doc
          "The number of compliance check evidence that Audit Manager classified as non-compliant. This includes evidence that was collected from Security Hub with a Fail ruling, or collected from Config with a Non-compliant ruling."];
      compliantEvidenceCount: NullableInteger.t option
        [@ocaml.doc
          "The number of compliance check evidence that Audit Manager classified as compliant. This includes evidence that was collected from Security Hub with a Pass ruling, or collected from Config with a Compliant ruling."];
      inconclusiveEvidenceCount: NullableInteger.t option
        [@ocaml.doc
          "The amount of evidence without a compliance check ruling. Evidence is inconclusive if the associated control uses Security Hub or Config as a data source and you didn't enable those services. This is also the case if a control uses a data source that doesn\226\128\153t support compliance checks (for example, manual evidence, API calls, or CloudTrail). If evidence has a compliance check status of not applicable, it's classified as inconclusive in InsightsByAssessment data."];
      assessmentControlsCountByNoncompliantEvidence: NullableInteger.t option
        [@ocaml.doc
          "The number of assessment controls that collected non-compliant evidence on the lastUpdated date."];
      totalAssessmentControlsCount: NullableInteger.t option
        [@ocaml.doc "The total number of controls in the assessment."];
      lastUpdated: Timestamp.t option
        [@ocaml.doc
          "The time when the assessment insights were last updated."]}
    let make ?noncompliantEvidenceCount =
      fun ?compliantEvidenceCount ->
        fun ?inconclusiveEvidenceCount ->
          fun ?assessmentControlsCountByNoncompliantEvidence ->
            fun ?totalAssessmentControlsCount ->
              fun ?lastUpdated ->
                fun () ->
                  {
                    noncompliantEvidenceCount;
                    compliantEvidenceCount;
                    inconclusiveEvidenceCount;
                    assessmentControlsCountByNoncompliantEvidence;
                    totalAssessmentControlsCount;
                    lastUpdated
                  }
    let to_value x =
      structure_to_value
        [("noncompliantEvidenceCount",
           (Option.map x.noncompliantEvidenceCount
              ~f:NullableInteger.to_value));
        ("compliantEvidenceCount",
          (Option.map x.compliantEvidenceCount ~f:NullableInteger.to_value));
        ("inconclusiveEvidenceCount",
          (Option.map x.inconclusiveEvidenceCount ~f:NullableInteger.to_value));
        ("assessmentControlsCountByNoncompliantEvidence",
          (Option.map x.assessmentControlsCountByNoncompliantEvidence
             ~f:NullableInteger.to_value));
        ("totalAssessmentControlsCount",
          (Option.map x.totalAssessmentControlsCount
             ~f:NullableInteger.to_value));
        ("lastUpdated", (Option.map x.lastUpdated ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdated") in
      let totalAssessmentControlsCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "totalAssessmentControlsCount") in
      let assessmentControlsCountByNoncompliantEvidence =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "assessmentControlsCountByNoncompliantEvidence") in
      let inconclusiveEvidenceCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "inconclusiveEvidenceCount") in
      let compliantEvidenceCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "compliantEvidenceCount") in
      let noncompliantEvidenceCount =
        (Option.map ~f:NullableInteger.of_xml)
          (Xml.child xml_arg0 "noncompliantEvidenceCount") in
      make ?lastUpdated ?totalAssessmentControlsCount
        ?assessmentControlsCountByNoncompliantEvidence
        ?inconclusiveEvidenceCount ?compliantEvidenceCount
        ?noncompliantEvidenceCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdated = field_map json__ "lastUpdated" Timestamp.of_json in
      let totalAssessmentControlsCount =
        field_map json__ "totalAssessmentControlsCount"
          NullableInteger.of_json in
      let assessmentControlsCountByNoncompliantEvidence =
        field_map json__ "assessmentControlsCountByNoncompliantEvidence"
          NullableInteger.of_json in
      let inconclusiveEvidenceCount =
        field_map json__ "inconclusiveEvidenceCount" NullableInteger.of_json in
      let compliantEvidenceCount =
        field_map json__ "compliantEvidenceCount" NullableInteger.of_json in
      let noncompliantEvidenceCount =
        field_map json__ "noncompliantEvidenceCount" NullableInteger.of_json in
      make ?lastUpdated ?totalAssessmentControlsCount
        ?assessmentControlsCountByNoncompliantEvidence
        ?inconclusiveEvidenceCount ?compliantEvidenceCount
        ?noncompliantEvidenceCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A summary of the latest analytics data for a specific active assessment. This summary is a snapshot of the data that was collected on the lastUpdated date. It\226\128\153s important to understand that the totals in InsightsByAssessment are daily counts based on this date \226\128\148 they aren\226\128\153t a total sum to date. The InsightsByAssessment data is eventually consistent. This means that when you read data from InsightsByAssessment, the response might not instantly reflect the results of a recently completed write or update operation. If you repeat your read request after a few hours, the response returns the latest data. If you delete an assessment or change its status to inactive, InsightsByAssessment includes data for that assessment as follows. Inactive assessments - If Audit Manager collected evidence for your assessment before you changed it inactive, that evidence is included in the InsightsByAssessment counts for that day. Deleted assessments - If Audit Manager collected evidence for your assessment before you deleted it, that evidence isn't included in the InsightsByAssessment counts for that day."]
module AssessmentEvidenceFolders =
  struct
    type nonrec t = AssessmentEvidenceFolder.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:AssessmentEvidenceFolder.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:AssessmentEvidenceFolder.of_xml)
    let of_json j =
      list_of_json ~kind:"AssessmentEvidenceFolders"
        ~of_json:AssessmentEvidenceFolder.of_json j
    let to_json v = composed_to_json to_value v
  end
module EvidenceList =
  struct
    type nonrec t = Evidence.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:Evidence.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:Evidence.of_xml)
    let of_json j =
      list_of_json ~kind:"EvidenceList" ~of_json:Evidence.of_json j
    let to_json v = composed_to_json to_value v
  end
module DelegationMetadataList =
  struct
    type nonrec t = DelegationMetadata.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:DelegationMetadata.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:DelegationMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"DelegationMetadataList"
        ~of_json:DelegationMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChangeLogs =
  struct
    type nonrec t = ChangeLog.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:ChangeLog.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:ChangeLog.of_xml)
    let of_json j =
      list_of_json ~kind:"ChangeLogs" ~of_json:ChangeLog.of_json j
    let to_json v = composed_to_json to_value v
  end
module URL =
  struct
    type nonrec t =
      {
      hyperlinkName: HyperlinkName.t option
        [@ocaml.doc
          "The name or word that's used as a hyperlink to the URL."];
      link: UrlLink.t option
        [@ocaml.doc "The unique identifier for the internet resource."]}
    let make ?hyperlinkName = fun ?link -> fun () -> { hyperlinkName; link }
    let to_value x =
      structure_to_value
        [("hyperlinkName",
           (Option.map x.hyperlinkName ~f:HyperlinkName.to_value));
        ("link", (Option.map x.link ~f:UrlLink.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let link = (Option.map ~f:UrlLink.of_xml) (Xml.child xml_arg0 "link") in
      let hyperlinkName =
        (Option.map ~f:HyperlinkName.of_xml)
          (Xml.child xml_arg0 "hyperlinkName") in
      make ?link ?hyperlinkName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let link = field_map json__ "link" UrlLink.of_json in
      let hyperlinkName =
        field_map json__ "hyperlinkName" HyperlinkName.of_json in
      make ?link ?hyperlinkName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Short for uniform resource locator. A URL is used as a unique identifier to locate a resource on the internet."]
module CreateControlMappingSources =
  struct
    type nonrec t = CreateControlMappingSource.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CreateControlMappingSource.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:CreateControlMappingSource.of_xml)
    let of_json j =
      list_of_json ~kind:"CreateControlMappingSources"
        ~of_json:CreateControlMappingSource.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssessmentReport =
  struct
    type nonrec t =
      {
      id: UUID.t option
        [@ocaml.doc "The unique identifier for the assessment report."];
      name: AssessmentReportName.t option
        [@ocaml.doc "The name that's given to the assessment report."];
      description: AssessmentReportDescription.t option
        [@ocaml.doc "The description of the specified assessment report."];
      awsAccountId: AccountId.t option
        [@ocaml.doc
          "The identifier for the specified Amazon Web Services account."];
      assessmentId: UUID.t option
        [@ocaml.doc "The identifier for the specified assessment."];
      assessmentName: AssessmentName.t option
        [@ocaml.doc "The name of the associated assessment."];
      author: Username.t option
        [@ocaml.doc
          "The name of the user who created the assessment report."];
      status: AssessmentReportStatus.t option
        [@ocaml.doc "The current status of the specified assessment report."];
      creationTime: Timestamp.t option
        [@ocaml.doc "Specifies when the assessment report was created."]}
    let make ?id =
      fun ?name ->
        fun ?description ->
          fun ?awsAccountId ->
            fun ?assessmentId ->
              fun ?assessmentName ->
                fun ?author ->
                  fun ?status ->
                    fun ?creationTime ->
                      fun () ->
                        {
                          id;
                          name;
                          description;
                          awsAccountId;
                          assessmentId;
                          assessmentName;
                          author;
                          status;
                          creationTime
                        }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("name", (Option.map x.name ~f:AssessmentReportName.to_value));
        ("description",
          (Option.map x.description ~f:AssessmentReportDescription.to_value));
        ("awsAccountId", (Option.map x.awsAccountId ~f:AccountId.to_value));
        ("assessmentId", (Option.map x.assessmentId ~f:UUID.to_value));
        ("assessmentName",
          (Option.map x.assessmentName ~f:AssessmentName.to_value));
        ("author", (Option.map x.author ~f:Username.to_value));
        ("status", (Option.map x.status ~f:AssessmentReportStatus.to_value));
        ("creationTime", (Option.map x.creationTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "creationTime") in
      let status =
        (Option.map ~f:AssessmentReportStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let author =
        (Option.map ~f:Username.of_xml) (Xml.child xml_arg0 "author") in
      let assessmentName =
        (Option.map ~f:AssessmentName.of_xml)
          (Xml.child xml_arg0 "assessmentName") in
      let assessmentId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "assessmentId") in
      let awsAccountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "awsAccountId") in
      let description =
        (Option.map ~f:AssessmentReportDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:AssessmentReportName.of_xml)
          (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?creationTime ?status ?author ?assessmentName ?assessmentId
        ?awsAccountId ?description ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationTime = field_map json__ "creationTime" Timestamp.of_json in
      let status = field_map json__ "status" AssessmentReportStatus.of_json in
      let author = field_map json__ "author" Username.of_json in
      let assessmentName =
        field_map json__ "assessmentName" AssessmentName.of_json in
      let assessmentId = field_map json__ "assessmentId" UUID.of_json in
      let awsAccountId = field_map json__ "awsAccountId" AccountId.of_json in
      let description =
        field_map json__ "description" AssessmentReportDescription.of_json in
      let name = field_map json__ "name" AssessmentReportName.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?creationTime ?status ?author ?assessmentName ?assessmentId
        ?awsAccountId ?description ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A finalized document that's generated from an Audit Manager assessment. These reports summarize the relevant evidence that was collected for your audit, and link to the relevant evidence folders. These evidence folders are named and organized according to the controls that are specified in your assessment."]
module QueryStatement =
  struct
    type nonrec t = string
    let context_ = "QueryStatement"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:10000) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"QueryStatement" j
    let to_json = simple_to_json to_value
  end
module CreateAssessmentFrameworkControlSets =
  struct
    type nonrec t = CreateAssessmentFrameworkControlSet.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CreateAssessmentFrameworkControlSet.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:CreateAssessmentFrameworkControlSet.of_xml)
    let of_json j =
      list_of_json ~kind:"CreateAssessmentFrameworkControlSets"
        ~of_json:CreateAssessmentFrameworkControlSet.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchImportEvidenceToAssessmentControlErrors =
  struct
    type nonrec t = BatchImportEvidenceToAssessmentControlError.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:BatchImportEvidenceToAssessmentControlError.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:BatchImportEvidenceToAssessmentControlError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchImportEvidenceToAssessmentControlErrors"
        ~of_json:BatchImportEvidenceToAssessmentControlError.of_json j
    let to_json v = composed_to_json to_value v
  end
module ManualEvidenceList =
  struct
    type nonrec t = ManualEvidence.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (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:ManualEvidence.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:ManualEvidence.of_xml)
    let of_json j =
      list_of_json ~kind:"ManualEvidenceList" ~of_json:ManualEvidence.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module AssessmentReportEvidenceErrors =
  struct
    type nonrec t = AssessmentReportEvidenceError.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:AssessmentReportEvidenceError.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:AssessmentReportEvidenceError.of_xml)
    let of_json j =
      list_of_json ~kind:"AssessmentReportEvidenceErrors"
        ~of_json:AssessmentReportEvidenceError.of_json j
    let to_json v = composed_to_json to_value v
  end
module EvidenceIds =
  struct
    type nonrec t = UUID.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:UUID.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:UUID.of_xml)
    let of_json j = list_of_json ~kind:"EvidenceIds" ~of_json:UUID.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchDeleteDelegationByAssessmentErrors =
  struct
    type nonrec t = BatchDeleteDelegationByAssessmentError.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:BatchDeleteDelegationByAssessmentError.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:BatchDeleteDelegationByAssessmentError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchDeleteDelegationByAssessmentErrors"
        ~of_json:BatchDeleteDelegationByAssessmentError.of_json j
    let to_json v = composed_to_json to_value v
  end
module DelegationIds =
  struct
    type nonrec t = UUID.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (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:UUID.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:UUID.of_xml)
    let of_json j =
      list_of_json ~kind:"DelegationIds" ~of_json:UUID.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchCreateDelegationByAssessmentErrors =
  struct
    type nonrec t = BatchCreateDelegationByAssessmentError.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:BatchCreateDelegationByAssessmentError.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:BatchCreateDelegationByAssessmentError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchCreateDelegationByAssessmentErrors"
        ~of_json:BatchCreateDelegationByAssessmentError.of_json j
    let to_json v = composed_to_json to_value v
  end
module CreateDelegationRequests =
  struct
    type nonrec t = CreateDelegationRequest.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (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:CreateDelegationRequest.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:CreateDelegationRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"CreateDelegationRequests"
        ~of_json:CreateDelegationRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidateAssessmentReportIntegrityResponse =
  struct
    type nonrec t =
      {
      signatureValid: Boolean.t option
        [@ocaml.doc "Specifies whether the signature key is valid."];
      signatureAlgorithm: String_.t option
        [@ocaml.doc
          "The signature algorithm that's used to code sign the assessment report file."];
      signatureDateTime: String_.t option
        [@ocaml.doc
          "The date and time signature that specifies when the assessment report was created."];
      signatureKeyId: String_.t option
        [@ocaml.doc
          "The unique identifier for the validation signature key."];
      validationErrors: ValidationErrors.t option
        [@ocaml.doc
          "Represents any errors that occurred when validating the assessment report."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?signatureValid =
      fun ?signatureAlgorithm ->
        fun ?signatureDateTime ->
          fun ?signatureKeyId ->
            fun ?validationErrors ->
              fun () ->
                {
                  signatureValid;
                  signatureAlgorithm;
                  signatureDateTime;
                  signatureKeyId;
                  validationErrors
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("signatureValid",
           (Option.map x.signatureValid ~f:Boolean.to_value));
        ("signatureAlgorithm",
          (Option.map x.signatureAlgorithm ~f:String_.to_value));
        ("signatureDateTime",
          (Option.map x.signatureDateTime ~f:String_.to_value));
        ("signatureKeyId", (Option.map x.signatureKeyId ~f:String_.to_value));
        ("validationErrors",
          (Option.map x.validationErrors ~f:ValidationErrors.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationErrors =
        (Option.map ~f:ValidationErrors.of_xml)
          (Xml.child xml_arg0 "validationErrors") in
      let signatureKeyId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "signatureKeyId") in
      let signatureDateTime =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "signatureDateTime") in
      let signatureAlgorithm =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "signatureAlgorithm") in
      let signatureValid =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "signatureValid") in
      make ?validationErrors ?signatureKeyId ?signatureDateTime
        ?signatureAlgorithm ?signatureValid ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationErrors =
        field_map json__ "validationErrors" ValidationErrors.of_json in
      let signatureKeyId = field_map json__ "signatureKeyId" String_.of_json in
      let signatureDateTime =
        field_map json__ "signatureDateTime" String_.of_json in
      let signatureAlgorithm =
        field_map json__ "signatureAlgorithm" String_.of_json in
      let signatureValid = field_map json__ "signatureValid" Boolean.of_json in
      make ?validationErrors ?signatureKeyId ?signatureDateTime
        ?signatureAlgorithm ?signatureValid ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Validates the integrity of an assessment report in Audit Manager."]
module ValidateAssessmentReportIntegrityRequest =
  struct
    type nonrec t =
      {
      s3RelativePath: S3Url.t
        [@ocaml.doc
          "The relative path of the Amazon S3 bucket that the assessment report is stored in."]}
    let context_ = "ValidateAssessmentReportIntegrityRequest"
    let make ~s3RelativePath = fun () -> { s3RelativePath }
    let to_value x =
      structure_to_value
        [("s3RelativePath", (Some (S3Url.to_value x.s3RelativePath)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3RelativePath =
        S3Url.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "s3RelativePath") in
      make ~s3RelativePath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3RelativePath =
        field_map_exn json__ "s3RelativePath" S3Url.of_json in
      make ~s3RelativePath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Validates the integrity of an assessment report in Audit Manager."]
module UpdateSettingsResponse =
  struct
    type nonrec t =
      {
      settings: Settings.t option
        [@ocaml.doc "The current list of settings."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?settings = fun () -> { settings }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("settings", (Option.map x.settings ~f:Settings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let settings =
        (Option.map ~f:Settings.of_xml) (Xml.child xml_arg0 "settings") in
      make ?settings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let settings = field_map json__ "settings" Settings.of_json in
      make ?settings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates Audit Manager settings for the current account."]
module UpdateSettingsRequest =
  struct
    type nonrec t =
      {
      snsTopic: SnsArn.t option
        [@ocaml.doc
          "The Amazon Simple Notification Service (Amazon SNS) topic that Audit Manager sends notifications to."];
      defaultAssessmentReportsDestination:
        AssessmentReportsDestination.t option
        [@ocaml.doc
          "The default S3 destination bucket for storing assessment reports."];
      defaultProcessOwners: Roles.t option
        [@ocaml.doc "A list of the default audit owners."];
      kmsKey: KmsKey.t option [@ocaml.doc "The KMS key details."];
      evidenceFinderEnabled: Boolean.t option
        [@ocaml.doc
          "Specifies whether the evidence finder feature is enabled. Change this attribute to enable or disable evidence finder. When you use this attribute to disable evidence finder, Audit Manager deletes the event data store that\226\128\153s used to query your evidence data. As a result, you can\226\128\153t re-enable evidence finder and use the feature again. Your only alternative is to deregister and then re-register Audit Manager."];
      deregistrationPolicy: DeregistrationPolicy.t option
        [@ocaml.doc
          "The deregistration policy for your Audit Manager data. You can use this attribute to determine how your data is handled when you deregister Audit Manager."];
      defaultExportDestination: DefaultExportDestination.t option
        [@ocaml.doc
          "The default S3 destination bucket for storing evidence finder exports."]}
    let make ?snsTopic =
      fun ?defaultAssessmentReportsDestination ->
        fun ?defaultProcessOwners ->
          fun ?kmsKey ->
            fun ?evidenceFinderEnabled ->
              fun ?deregistrationPolicy ->
                fun ?defaultExportDestination ->
                  fun () ->
                    {
                      snsTopic;
                      defaultAssessmentReportsDestination;
                      defaultProcessOwners;
                      kmsKey;
                      evidenceFinderEnabled;
                      deregistrationPolicy;
                      defaultExportDestination
                    }
    let to_value x =
      structure_to_value
        [("snsTopic", (Option.map x.snsTopic ~f:SnsArn.to_value));
        ("defaultAssessmentReportsDestination",
          (Option.map x.defaultAssessmentReportsDestination
             ~f:AssessmentReportsDestination.to_value));
        ("defaultProcessOwners",
          (Option.map x.defaultProcessOwners ~f:Roles.to_value));
        ("kmsKey", (Option.map x.kmsKey ~f:KmsKey.to_value));
        ("evidenceFinderEnabled",
          (Option.map x.evidenceFinderEnabled ~f:Boolean.to_value));
        ("deregistrationPolicy",
          (Option.map x.deregistrationPolicy ~f:DeregistrationPolicy.to_value));
        ("defaultExportDestination",
          (Option.map x.defaultExportDestination
             ~f:DefaultExportDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultExportDestination =
        (Option.map ~f:DefaultExportDestination.of_xml)
          (Xml.child xml_arg0 "defaultExportDestination") in
      let deregistrationPolicy =
        (Option.map ~f:DeregistrationPolicy.of_xml)
          (Xml.child xml_arg0 "deregistrationPolicy") in
      let evidenceFinderEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "evidenceFinderEnabled") in
      let kmsKey =
        (Option.map ~f:KmsKey.of_xml) (Xml.child xml_arg0 "kmsKey") in
      let defaultProcessOwners =
        (Option.map ~f:Roles.of_xml)
          (Xml.child xml_arg0 "defaultProcessOwners") in
      let defaultAssessmentReportsDestination =
        (Option.map ~f:AssessmentReportsDestination.of_xml)
          (Xml.child xml_arg0 "defaultAssessmentReportsDestination") in
      let snsTopic =
        (Option.map ~f:SnsArn.of_xml) (Xml.child xml_arg0 "snsTopic") in
      make ?defaultExportDestination ?deregistrationPolicy
        ?evidenceFinderEnabled ?kmsKey ?defaultProcessOwners
        ?defaultAssessmentReportsDestination ?snsTopic ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultExportDestination =
        field_map json__ "defaultExportDestination"
          DefaultExportDestination.of_json in
      let deregistrationPolicy =
        field_map json__ "deregistrationPolicy" DeregistrationPolicy.of_json in
      let evidenceFinderEnabled =
        field_map json__ "evidenceFinderEnabled" Boolean.of_json in
      let kmsKey = field_map json__ "kmsKey" KmsKey.of_json in
      let defaultProcessOwners =
        field_map json__ "defaultProcessOwners" Roles.of_json in
      let defaultAssessmentReportsDestination =
        field_map json__ "defaultAssessmentReportsDestination"
          AssessmentReportsDestination.of_json in
      let snsTopic = field_map json__ "snsTopic" SnsArn.of_json in
      make ?defaultExportDestination ?deregistrationPolicy
        ?evidenceFinderEnabled ?kmsKey ?defaultProcessOwners
        ?defaultAssessmentReportsDestination ?snsTopic ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates Audit Manager settings for the current account."]
module UpdateControlResponse =
  struct
    type nonrec t =
      {
      control: Control.t option
        [@ocaml.doc
          "The name of the updated control set that the UpdateControl API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?control = fun () -> { control }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("control", (Option.map x.control ~f:Control.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let control =
        (Option.map ~f:Control.of_xml) (Xml.child xml_arg0 "control") in
      make ?control ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let control = field_map json__ "control" Control.of_json in
      make ?control ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a custom control in Audit Manager."]
module UpdateControlRequest =
  struct
    type nonrec t =
      {
      controlId: UUID.t [@ocaml.doc "The identifier for the control."];
      name: ControlName.t [@ocaml.doc "The name of the updated control."];
      description: ControlDescription.t option
        [@ocaml.doc "The optional description of the control."];
      testingInformation: TestingInformation.t option
        [@ocaml.doc
          "The steps that you should follow to determine if the control is met."];
      actionPlanTitle: ActionPlanTitle.t option
        [@ocaml.doc
          "The title of the action plan for remediating the control."];
      actionPlanInstructions: ActionPlanInstructions.t option
        [@ocaml.doc
          "The recommended actions to carry out if the control isn't fulfilled."];
      controlMappingSources: ControlMappingSources.t
        [@ocaml.doc "The data mapping sources for the control."]}
    let context_ = "UpdateControlRequest"
    let make ?description =
      fun ?testingInformation ->
        fun ?actionPlanTitle ->
          fun ?actionPlanInstructions ->
            fun ~controlId ->
              fun ~name ->
                fun ~controlMappingSources ->
                  fun () ->
                    {
                      description;
                      testingInformation;
                      actionPlanTitle;
                      actionPlanInstructions;
                      controlId;
                      name;
                      controlMappingSources
                    }
    let to_value x =
      structure_to_value
        [("controlId", (Some (UUID.to_value x.controlId)));
        ("name", (Some (ControlName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:ControlDescription.to_value));
        ("testingInformation",
          (Option.map x.testingInformation ~f:TestingInformation.to_value));
        ("actionPlanTitle",
          (Option.map x.actionPlanTitle ~f:ActionPlanTitle.to_value));
        ("actionPlanInstructions",
          (Option.map x.actionPlanInstructions
             ~f:ActionPlanInstructions.to_value));
        ("controlMappingSources",
          (Some (ControlMappingSources.to_value x.controlMappingSources)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlMappingSources =
        ControlMappingSources.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlMappingSources") in
      let actionPlanInstructions =
        (Option.map ~f:ActionPlanInstructions.of_xml)
          (Xml.child xml_arg0 "actionPlanInstructions") in
      let actionPlanTitle =
        (Option.map ~f:ActionPlanTitle.of_xml)
          (Xml.child xml_arg0 "actionPlanTitle") in
      let testingInformation =
        (Option.map ~f:TestingInformation.of_xml)
          (Xml.child xml_arg0 "testingInformation") in
      let description =
        (Option.map ~f:ControlDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        ControlName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let controlId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "controlId") in
      make ~controlMappingSources ?actionPlanInstructions ?actionPlanTitle
        ?testingInformation ?description ~name ~controlId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlMappingSources =
        field_map_exn json__ "controlMappingSources"
          ControlMappingSources.of_json in
      let actionPlanInstructions =
        field_map json__ "actionPlanInstructions"
          ActionPlanInstructions.of_json in
      let actionPlanTitle =
        field_map json__ "actionPlanTitle" ActionPlanTitle.of_json in
      let testingInformation =
        field_map json__ "testingInformation" TestingInformation.of_json in
      let description =
        field_map json__ "description" ControlDescription.of_json in
      let name = field_map_exn json__ "name" ControlName.of_json in
      let controlId = field_map_exn json__ "controlId" UUID.of_json in
      make ~controlMappingSources ?actionPlanInstructions ?actionPlanTitle
        ?testingInformation ?description ~name ~controlId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a custom control in Audit Manager."]
module UpdateAssessmentStatusResponse =
  struct
    type nonrec t =
      {
      assessment: Assessment.t option
        [@ocaml.doc
          "The name of the updated assessment that the UpdateAssessmentStatus API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessment = fun () -> { assessment }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("assessment", (Option.map x.assessment ~f:Assessment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessment =
        (Option.map ~f:Assessment.of_xml) (Xml.child xml_arg0 "assessment") in
      make ?assessment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessment = field_map json__ "assessment" Assessment.of_json in
      make ?assessment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the status of an assessment in Audit Manager."]
module UpdateAssessmentStatusRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment."];
      status: AssessmentStatus.t
        [@ocaml.doc "The current status of the assessment."]}
    let context_ = "UpdateAssessmentStatusRequest"
    let make ~assessmentId =
      fun ~status -> fun () -> { assessmentId; status }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("status", (Some (AssessmentStatus.to_value x.status)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        AssessmentStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "status") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ~status ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map_exn json__ "status" AssessmentStatus.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ~status ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the status of an assessment in Audit Manager."]
module UpdateAssessmentResponse =
  struct
    type nonrec t =
      {
      assessment: Assessment.t option
        [@ocaml.doc
          "The response object for the UpdateAssessment API. This is the name of the updated assessment."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessment = fun () -> { assessment }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "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)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("assessment", (Option.map x.assessment ~f:Assessment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessment =
        (Option.map ~f:Assessment.of_xml) (Xml.child xml_arg0 "assessment") in
      make ?assessment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessment = field_map json__ "assessment" Assessment.of_json in
      make ?assessment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Edits an Audit Manager assessment."]
module UpdateAssessmentRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment."];
      assessmentName: AssessmentName.t option
        [@ocaml.doc "The name of the assessment to be updated."];
      assessmentDescription: AssessmentDescription.t option
        [@ocaml.doc "The description of the assessment."];
      scope: Scope.t [@ocaml.doc "The scope of the assessment."];
      assessmentReportsDestination: AssessmentReportsDestination.t option
        [@ocaml.doc
          "The assessment report storage destination for the assessment that's being updated."];
      roles: Roles.t option
        [@ocaml.doc "The list of roles for the assessment."]}
    let context_ = "UpdateAssessmentRequest"
    let make ?assessmentName =
      fun ?assessmentDescription ->
        fun ?assessmentReportsDestination ->
          fun ?roles ->
            fun ~assessmentId ->
              fun ~scope ->
                fun () ->
                  {
                    assessmentName;
                    assessmentDescription;
                    assessmentReportsDestination;
                    roles;
                    assessmentId;
                    scope
                  }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("assessmentName",
          (Option.map x.assessmentName ~f:AssessmentName.to_value));
        ("assessmentDescription",
          (Option.map x.assessmentDescription
             ~f:AssessmentDescription.to_value));
        ("scope", (Some (Scope.to_value x.scope)));
        ("assessmentReportsDestination",
          (Option.map x.assessmentReportsDestination
             ~f:AssessmentReportsDestination.to_value));
        ("roles", (Option.map x.roles ~f:Roles.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roles = (Option.map ~f:Roles.of_xml) (Xml.child xml_arg0 "roles") in
      let assessmentReportsDestination =
        (Option.map ~f:AssessmentReportsDestination.of_xml)
          (Xml.child xml_arg0 "assessmentReportsDestination") in
      let scope =
        Scope.of_xml (Xml.child_exn ~context:context_ xml_arg0 "scope") in
      let assessmentDescription =
        (Option.map ~f:AssessmentDescription.of_xml)
          (Xml.child xml_arg0 "assessmentDescription") in
      let assessmentName =
        (Option.map ~f:AssessmentName.of_xml)
          (Xml.child xml_arg0 "assessmentName") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ?roles ?assessmentReportsDestination ~scope ?assessmentDescription
        ?assessmentName ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roles = field_map json__ "roles" Roles.of_json in
      let assessmentReportsDestination =
        field_map json__ "assessmentReportsDestination"
          AssessmentReportsDestination.of_json in
      let scope = field_map_exn json__ "scope" Scope.of_json in
      let assessmentDescription =
        field_map json__ "assessmentDescription"
          AssessmentDescription.of_json in
      let assessmentName =
        field_map json__ "assessmentName" AssessmentName.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ?roles ?assessmentReportsDestination ~scope ?assessmentDescription
        ?assessmentName ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Edits an Audit Manager assessment."]
module UpdateAssessmentFrameworkShareResponse =
  struct
    type nonrec t =
      {
      assessmentFrameworkShareRequest:
        AssessmentFrameworkShareRequest.t option
        [@ocaml.doc
          "The updated share request that's returned by the UpdateAssessmentFrameworkShare operation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessmentFrameworkShareRequest =
      fun () -> { assessmentFrameworkShareRequest }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("assessmentFrameworkShareRequest",
           (Option.map x.assessmentFrameworkShareRequest
              ~f:AssessmentFrameworkShareRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentFrameworkShareRequest =
        (Option.map ~f:AssessmentFrameworkShareRequest.of_xml)
          (Xml.child xml_arg0 "assessmentFrameworkShareRequest") in
      make ?assessmentFrameworkShareRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentFrameworkShareRequest =
        field_map json__ "assessmentFrameworkShareRequest"
          AssessmentFrameworkShareRequest.of_json in
      make ?assessmentFrameworkShareRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a share request for a custom framework in Audit Manager."]
module UpdateAssessmentFrameworkShareRequest =
  struct
    type nonrec t =
      {
      requestId: UUID.t
        [@ocaml.doc "The unique identifier for the share request."];
      requestType: ShareRequestType.t
        [@ocaml.doc
          "Specifies whether the share request is a sent request or a received request."];
      action: ShareRequestAction.t
        [@ocaml.doc "Specifies the update action for the share request."]}
    let context_ = "UpdateAssessmentFrameworkShareRequest"
    let make ~requestId =
      fun ~requestType ->
        fun ~action -> fun () -> { requestId; requestType; action }
    let to_value x =
      structure_to_value
        [("requestId", (Some (UUID.to_value x.requestId)));
        ("requestType", (Some (ShareRequestType.to_value x.requestType)));
        ("action", (Some (ShareRequestAction.to_value x.action)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let action =
        ShareRequestAction.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "action") in
      let requestType =
        ShareRequestType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "requestType") in
      let requestId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "requestId") in
      make ~action ~requestType ~requestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let action = field_map_exn json__ "action" ShareRequestAction.of_json in
      let requestType =
        field_map_exn json__ "requestType" ShareRequestType.of_json in
      let requestId = field_map_exn json__ "requestId" UUID.of_json in
      make ~action ~requestType ~requestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a share request for a custom framework in Audit Manager."]
module UpdateAssessmentFrameworkResponse =
  struct
    type nonrec t =
      {
      framework: Framework.t option [@ocaml.doc "The framework object."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?framework = fun () -> { framework }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("framework", (Option.map x.framework ~f:Framework.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let framework =
        (Option.map ~f:Framework.of_xml) (Xml.child xml_arg0 "framework") in
      make ?framework ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let framework = field_map json__ "framework" Framework.of_json in
      make ?framework ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a custom framework in Audit Manager."]
module UpdateAssessmentFrameworkRequest =
  struct
    type nonrec t =
      {
      frameworkId: UUID.t
        [@ocaml.doc "The unique identifier for the framework."];
      name: FrameworkName.t
        [@ocaml.doc "The name of the framework to be updated."];
      description: FrameworkDescription.t option
        [@ocaml.doc "The description of the updated framework."];
      complianceType: ComplianceType.t option
        [@ocaml.doc
          "The compliance type that the new custom framework supports, such as CIS or HIPAA."];
      controlSets: UpdateAssessmentFrameworkControlSets.t
        [@ocaml.doc
          "The control sets that are associated with the framework. The Controls object returns a partial response when called through Framework APIs. For a complete Controls object, use GetControl."]}
    let context_ = "UpdateAssessmentFrameworkRequest"
    let make ?description =
      fun ?complianceType ->
        fun ~frameworkId ->
          fun ~name ->
            fun ~controlSets ->
              fun () ->
                { description; complianceType; frameworkId; name; controlSets
                }
    let to_value x =
      structure_to_value
        [("frameworkId", (Some (UUID.to_value x.frameworkId)));
        ("name", (Some (FrameworkName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:FrameworkDescription.to_value));
        ("complianceType",
          (Option.map x.complianceType ~f:ComplianceType.to_value));
        ("controlSets",
          (Some (UpdateAssessmentFrameworkControlSets.to_value x.controlSets)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlSets =
        UpdateAssessmentFrameworkControlSets.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlSets") in
      let complianceType =
        (Option.map ~f:ComplianceType.of_xml)
          (Xml.child xml_arg0 "complianceType") in
      let description =
        (Option.map ~f:FrameworkDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        FrameworkName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let frameworkId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "frameworkId") in
      make ~controlSets ?complianceType ?description ~name ~frameworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlSets =
        field_map_exn json__ "controlSets"
          UpdateAssessmentFrameworkControlSets.of_json in
      let complianceType =
        field_map json__ "complianceType" ComplianceType.of_json in
      let description =
        field_map json__ "description" FrameworkDescription.of_json in
      let name = field_map_exn json__ "name" FrameworkName.of_json in
      let frameworkId = field_map_exn json__ "frameworkId" UUID.of_json in
      make ~controlSets ?complianceType ?description ~name ~frameworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a custom framework in Audit Manager."]
module UpdateAssessmentControlSetStatusResponse =
  struct
    type nonrec t =
      {
      controlSet: AssessmentControlSet.t option
        [@ocaml.doc
          "The name of the updated control set that the UpdateAssessmentControlSetStatus API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?controlSet = fun () -> { controlSet }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("controlSet",
           (Option.map x.controlSet ~f:AssessmentControlSet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlSet =
        (Option.map ~f:AssessmentControlSet.of_xml)
          (Xml.child xml_arg0 "controlSet") in
      make ?controlSet ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlSet =
        field_map json__ "controlSet" AssessmentControlSet.of_json in
      make ?controlSet ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the status of a control set in an Audit Manager assessment."]
module UpdateAssessmentControlSetStatusRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment."];
      controlSetId: String_.t
        [@ocaml.doc "The unique identifier for the control set."];
      status: ControlSetStatus.t
        [@ocaml.doc "The status of the control set that's being updated."];
      comment: DelegationComment.t
        [@ocaml.doc "The comment that's related to the status update."]}
    let context_ = "UpdateAssessmentControlSetStatusRequest"
    let make ~assessmentId =
      fun ~controlSetId ->
        fun ~status ->
          fun ~comment ->
            fun () -> { assessmentId; controlSetId; status; comment }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("controlSetId", (Some (String_.to_value x.controlSetId)));
        ("status", (Some (ControlSetStatus.to_value x.status)));
        ("comment", (Some (DelegationComment.to_value x.comment)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comment =
        DelegationComment.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "comment") in
      let status =
        ControlSetStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "status") in
      let controlSetId =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlSetId") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ~comment ~status ~controlSetId ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comment = field_map_exn json__ "comment" DelegationComment.of_json in
      let status = field_map_exn json__ "status" ControlSetStatus.of_json in
      let controlSetId = field_map_exn json__ "controlSetId" String_.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ~comment ~status ~controlSetId ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the status of a control set in an Audit Manager assessment."]
module UpdateAssessmentControlResponse =
  struct
    type nonrec t =
      {
      control: AssessmentControl.t option
        [@ocaml.doc
          "The name of the updated control set that the UpdateAssessmentControl API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?control = fun () -> { control }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("control", (Option.map x.control ~f:AssessmentControl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let control =
        (Option.map ~f:AssessmentControl.of_xml)
          (Xml.child xml_arg0 "control") in
      make ?control ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let control = field_map json__ "control" AssessmentControl.of_json in
      make ?control ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a control within an assessment in Audit Manager."]
module UpdateAssessmentControlRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment."];
      controlSetId: ControlSetId.t
        [@ocaml.doc "The unique identifier for the control set."];
      controlId: UUID.t [@ocaml.doc "The unique identifier for the control."];
      controlStatus: ControlStatus.t option
        [@ocaml.doc "The status of the control."];
      commentBody: ControlCommentBody.t option
        [@ocaml.doc "The comment body text for the control."]}
    let context_ = "UpdateAssessmentControlRequest"
    let make ?controlStatus =
      fun ?commentBody ->
        fun ~assessmentId ->
          fun ~controlSetId ->
            fun ~controlId ->
              fun () ->
                {
                  controlStatus;
                  commentBody;
                  assessmentId;
                  controlSetId;
                  controlId
                }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("controlSetId", (Some (ControlSetId.to_value x.controlSetId)));
        ("controlId", (Some (UUID.to_value x.controlId)));
        ("controlStatus",
          (Option.map x.controlStatus ~f:ControlStatus.to_value));
        ("commentBody",
          (Option.map x.commentBody ~f:ControlCommentBody.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let commentBody =
        (Option.map ~f:ControlCommentBody.of_xml)
          (Xml.child xml_arg0 "commentBody") in
      let controlStatus =
        (Option.map ~f:ControlStatus.of_xml)
          (Xml.child xml_arg0 "controlStatus") in
      let controlId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "controlId") in
      let controlSetId =
        ControlSetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlSetId") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ?commentBody ?controlStatus ~controlId ~controlSetId ~assessmentId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let commentBody =
        field_map json__ "commentBody" ControlCommentBody.of_json in
      let controlStatus =
        field_map json__ "controlStatus" ControlStatus.of_json in
      let controlId = field_map_exn json__ "controlId" UUID.of_json in
      let controlSetId =
        field_map_exn json__ "controlSetId" ControlSetId.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ?commentBody ?controlStatus ~controlId ~controlSetId ~assessmentId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a control within an assessment in Audit Manager."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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 from a resource in Audit Manager."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AuditManagerArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the specified resource."];
      tagKeys: TagKeyList.t [@ocaml.doc "The name or key of the tag."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (AuditManagerArn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        AuditManagerArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeyList.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" AuditManagerArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a tag from a resource in Audit Manager."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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 "Tags the specified resource in Audit Manager."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AuditManagerArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      tags: TagMap.t
        [@ocaml.doc "The tags that are associated with the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (AuditManagerArn.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 =
        AuditManagerArn.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" AuditManagerArn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Tags the specified resource in Audit Manager."]
module StartAssessmentFrameworkShareResponse =
  struct
    type nonrec t =
      {
      assessmentFrameworkShareRequest:
        AssessmentFrameworkShareRequest.t option
        [@ocaml.doc
          "The share request that's created by the StartAssessmentFrameworkShare API."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessmentFrameworkShareRequest =
      fun () -> { assessmentFrameworkShareRequest }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("assessmentFrameworkShareRequest",
           (Option.map x.assessmentFrameworkShareRequest
              ~f:AssessmentFrameworkShareRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentFrameworkShareRequest =
        (Option.map ~f:AssessmentFrameworkShareRequest.of_xml)
          (Xml.child xml_arg0 "assessmentFrameworkShareRequest") in
      make ?assessmentFrameworkShareRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentFrameworkShareRequest =
        field_map json__ "assessmentFrameworkShareRequest"
          AssessmentFrameworkShareRequest.of_json in
      make ?assessmentFrameworkShareRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a share request for a custom framework in Audit Manager. The share request specifies a recipient and notifies them that a custom framework is available. Recipients have 120 days to accept or decline the request. If no action is taken, the share request expires. When you create a share request, Audit Manager stores a snapshot of your custom framework in the US East (N. Virginia) Amazon Web Services Region. Audit Manager also stores a backup of the same snapshot in the US West (Oregon) Amazon Web Services Region. Audit Manager deletes the snapshot and the backup snapshot when one of the following events occurs: The sender revokes the share request. The recipient declines the share request. The recipient encounters an error and doesn't successfully accept the share request. The share request expires before the recipient responds to the request. When a sender resends a share request, the snapshot is replaced with an updated version that corresponds with the latest version of the custom framework. When a recipient accepts a share request, the snapshot is replicated into their Amazon Web Services account under the Amazon Web Services Region that was specified in the share request. When you invoke the StartAssessmentFrameworkShare API, you are about to share a custom framework with another Amazon Web Services account. You may not share a custom framework that is derived from a standard framework if the standard framework is designated as not eligible for sharing by Amazon Web Services, unless you have obtained permission to do so from the owner of the standard framework. To learn more about which standard frameworks are eligible for sharing, see Framework sharing eligibility in the Audit Manager User Guide."]
module StartAssessmentFrameworkShareRequest =
  struct
    type nonrec t =
      {
      frameworkId: UUID.t
        [@ocaml.doc
          "The unique identifier for the custom framework to be shared."];
      destinationAccount: AccountId.t
        [@ocaml.doc "The Amazon Web Services account of the recipient."];
      destinationRegion: Region.t
        [@ocaml.doc "The Amazon Web Services Region of the recipient."];
      comment: ShareRequestComment.t option
        [@ocaml.doc
          "An optional comment from the sender about the share request."]}
    let context_ = "StartAssessmentFrameworkShareRequest"
    let make ?comment =
      fun ~frameworkId ->
        fun ~destinationAccount ->
          fun ~destinationRegion ->
            fun () ->
              { comment; frameworkId; destinationAccount; destinationRegion }
    let to_value x =
      structure_to_value
        [("frameworkId", (Some (UUID.to_value x.frameworkId)));
        ("destinationAccount",
          (Some (AccountId.to_value x.destinationAccount)));
        ("destinationRegion", (Some (Region.to_value x.destinationRegion)));
        ("comment", (Option.map x.comment ~f:ShareRequestComment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comment =
        (Option.map ~f:ShareRequestComment.of_xml)
          (Xml.child xml_arg0 "comment") in
      let destinationRegion =
        Region.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destinationRegion") in
      let destinationAccount =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destinationAccount") in
      let frameworkId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "frameworkId") in
      make ?comment ~destinationRegion ~destinationAccount ~frameworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comment = field_map json__ "comment" ShareRequestComment.of_json in
      let destinationRegion =
        field_map_exn json__ "destinationRegion" Region.of_json in
      let destinationAccount =
        field_map_exn json__ "destinationAccount" AccountId.of_json in
      let frameworkId = field_map_exn json__ "frameworkId" UUID.of_json in
      make ?comment ~destinationRegion ~destinationAccount ~frameworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a share request for a custom framework in Audit Manager. The share request specifies a recipient and notifies them that a custom framework is available. Recipients have 120 days to accept or decline the request. If no action is taken, the share request expires. When you create a share request, Audit Manager stores a snapshot of your custom framework in the US East (N. Virginia) Amazon Web Services Region. Audit Manager also stores a backup of the same snapshot in the US West (Oregon) Amazon Web Services Region. Audit Manager deletes the snapshot and the backup snapshot when one of the following events occurs: The sender revokes the share request. The recipient declines the share request. The recipient encounters an error and doesn't successfully accept the share request. The share request expires before the recipient responds to the request. When a sender resends a share request, the snapshot is replaced with an updated version that corresponds with the latest version of the custom framework. When a recipient accepts a share request, the snapshot is replicated into their Amazon Web Services account under the Amazon Web Services Region that was specified in the share request. When you invoke the StartAssessmentFrameworkShare API, you are about to share a custom framework with another Amazon Web Services account. You may not share a custom framework that is derived from a standard framework if the standard framework is designated as not eligible for sharing by Amazon Web Services, unless you have obtained permission to do so from the owner of the standard framework. To learn more about which standard frameworks are eligible for sharing, see Framework sharing eligibility in the Audit Manager User Guide."]
module RegisterOrganizationAdminAccountResponse =
  struct
    type nonrec t =
      {
      adminAccountId: AccountId.t option
        [@ocaml.doc
          "The identifier for the delegated administrator account."];
      organizationId: OrganizationId.t option
        [@ocaml.doc "The identifier for the organization."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?adminAccountId =
      fun ?organizationId -> fun () -> { adminAccountId; organizationId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("adminAccountId",
           (Option.map x.adminAccountId ~f:AccountId.to_value));
        ("organizationId",
          (Option.map x.organizationId ~f:OrganizationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationId =
        (Option.map ~f:OrganizationId.of_xml)
          (Xml.child xml_arg0 "organizationId") in
      let adminAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "adminAccountId") in
      make ?organizationId ?adminAccountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationId =
        field_map json__ "organizationId" OrganizationId.of_json in
      let adminAccountId =
        field_map json__ "adminAccountId" AccountId.of_json in
      make ?organizationId ?adminAccountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables an Amazon Web Services account within the organization as the delegated administrator for Audit Manager."]
module RegisterOrganizationAdminAccountRequest =
  struct
    type nonrec t =
      {
      adminAccountId: AccountId.t
        [@ocaml.doc
          "The identifier for the delegated administrator account."]}
    let context_ = "RegisterOrganizationAdminAccountRequest"
    let make ~adminAccountId = fun () -> { adminAccountId }
    let to_value x =
      structure_to_value
        [("adminAccountId", (Some (AccountId.to_value x.adminAccountId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let adminAccountId =
        AccountId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "adminAccountId") in
      make ~adminAccountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let adminAccountId =
        field_map_exn json__ "adminAccountId" AccountId.of_json in
      make ~adminAccountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables an Amazon Web Services account within the organization as the delegated administrator for Audit Manager."]
module RegisterAccountResponse =
  struct
    type nonrec t =
      {
      status: AccountStatus.t option
        [@ocaml.doc "The status of the account registration request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:AccountStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:AccountStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" AccountStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables Audit Manager for the specified Amazon Web Services account."]
module RegisterAccountRequest =
  struct
    type nonrec t =
      {
      kmsKey: KmsKey.t option [@ocaml.doc "The KMS key details."];
      delegatedAdminAccount: AccountId.t option
        [@ocaml.doc "The delegated administrator account for Audit Manager."]}
    let make ?kmsKey =
      fun ?delegatedAdminAccount ->
        fun () -> { kmsKey; delegatedAdminAccount }
    let to_value x =
      structure_to_value
        [("kmsKey", (Option.map x.kmsKey ~f:KmsKey.to_value));
        ("delegatedAdminAccount",
          (Option.map x.delegatedAdminAccount ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let delegatedAdminAccount =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "delegatedAdminAccount") in
      let kmsKey =
        (Option.map ~f:KmsKey.of_xml) (Xml.child xml_arg0 "kmsKey") in
      make ?delegatedAdminAccount ?kmsKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let delegatedAdminAccount =
        field_map json__ "delegatedAdminAccount" AccountId.of_json in
      let kmsKey = field_map json__ "kmsKey" KmsKey.of_json in
      make ?delegatedAdminAccount ?kmsKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables Audit Manager for the specified Amazon Web Services account."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagMap.t option
        [@ocaml.doc
          "The list of tags that the ListTagsForResource API returned."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.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
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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 a list of tags for the specified resource in Audit Manager."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AuditManagerArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (AuditManagerArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        AuditManagerArn.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" AuditManagerArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of tags for the specified resource in Audit Manager."]
module ListNotificationsResponse =
  struct
    type nonrec t =
      {
      notifications: Notifications.t option
        [@ocaml.doc "The returned list of notifications."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?notifications =
      fun ?nextToken -> fun () -> { notifications; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("notifications",
           (Option.map x.notifications ~f:Notifications.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let notifications =
        (Option.map ~f:Notifications.of_xml)
          (Xml.child xml_arg0 "notifications") in
      make ?nextToken ?notifications ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let notifications =
        field_map json__ "notifications" Notifications.of_json in
      make ?nextToken ?notifications ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of all Audit Manager notifications."]
module ListNotificationsRequest =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.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" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of all Audit Manager notifications."]
module ListKeywordsForDataSourceResponse =
  struct
    type nonrec t =
      {
      keywords: Keywords.t option
        [@ocaml.doc "The list of keywords for the control mapping source."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?keywords = fun ?nextToken -> fun () -> { keywords; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("keywords", (Option.map x.keywords ~f:Keywords.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let keywords =
        (Option.map ~f:Keywords.of_xml) (Xml.child xml_arg0 "keywords") in
      make ?nextToken ?keywords ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let keywords = field_map json__ "keywords" Keywords.of_json in
      make ?nextToken ?keywords ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of keywords that are pre-mapped to the specified control data source."]
module ListKeywordsForDataSourceRequest =
  struct
    type nonrec t =
      {
      source: DataSourceType.t
        [@ocaml.doc
          "The control mapping data source that the keywords apply to."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let context_ = "ListKeywordsForDataSourceRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~source -> fun () -> { nextToken; maxResults; source }
    let to_value x =
      structure_to_value
        [("source", (Some (DataSourceType.to_value x.source)));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let source =
        DataSourceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "source") in
      make ?maxResults ?nextToken ~source ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let source = field_map_exn json__ "source" DataSourceType.of_json in
      make ?maxResults ?nextToken ~source ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of keywords that are pre-mapped to the specified control data source."]
module ListControlsResponse =
  struct
    type nonrec t =
      {
      controlMetadataList: ControlMetadataList.t option
        [@ocaml.doc
          "A list of metadata that the ListControls API returns for each control."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?controlMetadataList =
      fun ?nextToken -> fun () -> { controlMetadataList; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("controlMetadataList",
           (Option.map x.controlMetadataList ~f:ControlMetadataList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let controlMetadataList =
        (Option.map ~f:ControlMetadataList.of_xml)
          (Xml.child xml_arg0 "controlMetadataList") in
      make ?nextToken ?controlMetadataList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let controlMetadataList =
        field_map json__ "controlMetadataList" ControlMetadataList.of_json in
      make ?nextToken ?controlMetadataList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of controls from Audit Manager."]
module ListControlsRequest =
  struct
    type nonrec t =
      {
      controlType: ControlType.t
        [@ocaml.doc
          "A filter that narrows the list of controls to a specific type."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results on a page or for an API request call."];
      controlCatalogId: ControlCatalogId.t option
        [@ocaml.doc
          "A filter that narrows the list of controls to a specific resource from the Amazon Web Services Control Catalog. To use this parameter, specify the ARN of the Control Catalog resource. You can specify either a control domain, a control objective, or a common control. For information about how to find the ARNs for these resources, see ListDomains , ListObjectives , and ListCommonControls . You can only filter by one Control Catalog resource at a time. Specifying multiple resource ARNs isn\226\128\153t currently supported. If you want to filter by more than one ARN, we recommend that you run the ListControls operation separately for each ARN. Alternatively, specify UNCATEGORIZED to list controls that aren't mapped to a Control Catalog resource. For example, this operation might return a list of custom controls that don't belong to any control domain or control objective."]}
    let context_ = "ListControlsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?controlCatalogId ->
          fun ~controlType ->
            fun () ->
              { nextToken; maxResults; controlCatalogId; controlType }
    let to_value x =
      structure_to_value
        [("controlType", (Some (ControlType.to_value x.controlType)));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("controlCatalogId",
          (Option.map x.controlCatalogId ~f:ControlCatalogId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlCatalogId =
        (Option.map ~f:ControlCatalogId.of_xml)
          (Xml.child xml_arg0 "controlCatalogId") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let controlType =
        ControlType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlType") in
      make ?controlCatalogId ?maxResults ?nextToken ~controlType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlCatalogId =
        field_map json__ "controlCatalogId" ControlCatalogId.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let controlType =
        field_map_exn json__ "controlType" ControlType.of_json in
      make ?controlCatalogId ?maxResults ?nextToken ~controlType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of controls from Audit Manager."]
module ListControlInsightsByControlDomainResponse =
  struct
    type nonrec t =
      {
      controlInsightsMetadata: ControlInsightsMetadata.t option
        [@ocaml.doc
          "The control analytics data that the ListControlInsightsByControlDomain API returned."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?controlInsightsMetadata =
      fun ?nextToken -> fun () -> { controlInsightsMetadata; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("controlInsightsMetadata",
           (Option.map x.controlInsightsMetadata
              ~f:ControlInsightsMetadata.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let controlInsightsMetadata =
        (Option.map ~f:ControlInsightsMetadata.of_xml)
          (Xml.child xml_arg0 "controlInsightsMetadata") in
      make ?nextToken ?controlInsightsMetadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let controlInsightsMetadata =
        field_map json__ "controlInsightsMetadata"
          ControlInsightsMetadata.of_json in
      make ?nextToken ?controlInsightsMetadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the latest analytics data for controls within a specific control domain across all active assessments. Control insights are listed only if the control belongs to the control domain that was specified and the control collected evidence on the lastUpdated date of controlInsightsMetadata. If neither of these conditions are met, no data is listed for that control."]
module ListControlInsightsByControlDomainRequest =
  struct
    type nonrec t =
      {
      controlDomainId: ControlDomainId.t
        [@ocaml.doc
          "The unique identifier for the control domain. Audit Manager supports the control domains that are provided by Amazon Web Services Control Catalog. For information about how to find a list of available control domains, see ListDomains in the Amazon Web Services Control Catalog API Reference."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let context_ = "ListControlInsightsByControlDomainRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~controlDomainId ->
          fun () -> { nextToken; maxResults; controlDomainId }
    let to_value x =
      structure_to_value
        [("controlDomainId",
           (Some (ControlDomainId.to_value x.controlDomainId)));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let controlDomainId =
        ControlDomainId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlDomainId") in
      make ?maxResults ?nextToken ~controlDomainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let controlDomainId =
        field_map_exn json__ "controlDomainId" ControlDomainId.of_json in
      make ?maxResults ?nextToken ~controlDomainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the latest analytics data for controls within a specific control domain across all active assessments. Control insights are listed only if the control belongs to the control domain that was specified and the control collected evidence on the lastUpdated date of controlInsightsMetadata. If neither of these conditions are met, no data is listed for that control."]
module ListControlDomainInsightsResponse =
  struct
    type nonrec t =
      {
      controlDomainInsights: ControlDomainInsightsList.t option
        [@ocaml.doc
          "The control domain analytics data that the ListControlDomainInsights API returned."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?controlDomainInsights =
      fun ?nextToken -> fun () -> { controlDomainInsights; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("controlDomainInsights",
           (Option.map x.controlDomainInsights
              ~f:ControlDomainInsightsList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let controlDomainInsights =
        (Option.map ~f:ControlDomainInsightsList.of_xml)
          (Xml.child xml_arg0 "controlDomainInsights") in
      make ?nextToken ?controlDomainInsights ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let controlDomainInsights =
        field_map json__ "controlDomainInsights"
          ControlDomainInsightsList.of_json in
      make ?nextToken ?controlDomainInsights ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the latest analytics data for control domains across all of your active assessments. Audit Manager supports the control domains that are provided by Amazon Web Services Control Catalog. For information about how to find a list of available control domains, see ListDomains in the Amazon Web Services Control Catalog API Reference. A control domain is listed only if at least one of the controls within that domain collected evidence on the lastUpdated date of controlDomainInsights. If this condition isn\226\128\153t met, no data is listed for that control domain."]
module ListControlDomainInsightsRequest =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.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" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the latest analytics data for control domains across all of your active assessments. Audit Manager supports the control domains that are provided by Amazon Web Services Control Catalog. For information about how to find a list of available control domains, see ListDomains in the Amazon Web Services Control Catalog API Reference. A control domain is listed only if at least one of the controls within that domain collected evidence on the lastUpdated date of controlDomainInsights. If this condition isn\226\128\153t met, no data is listed for that control domain."]
module ListControlDomainInsightsByAssessmentResponse =
  struct
    type nonrec t =
      {
      controlDomainInsights: ControlDomainInsightsList.t option
        [@ocaml.doc
          "The control domain analytics data that the ListControlDomainInsightsByAssessment API returned."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?controlDomainInsights =
      fun ?nextToken -> fun () -> { controlDomainInsights; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("controlDomainInsights",
           (Option.map x.controlDomainInsights
              ~f:ControlDomainInsightsList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let controlDomainInsights =
        (Option.map ~f:ControlDomainInsightsList.of_xml)
          (Xml.child xml_arg0 "controlDomainInsights") in
      make ?nextToken ?controlDomainInsights ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let controlDomainInsights =
        field_map json__ "controlDomainInsights"
          ControlDomainInsightsList.of_json in
      make ?nextToken ?controlDomainInsights ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists analytics data for control domains within a specified active assessment. Audit Manager supports the control domains that are provided by Amazon Web Services Control Catalog. For information about how to find a list of available control domains, see ListDomains in the Amazon Web Services Control Catalog API Reference. A control domain is listed only if at least one of the controls within that domain collected evidence on the lastUpdated date of controlDomainInsights. If this condition isn\226\128\153t met, no data is listed for that domain."]
module ListControlDomainInsightsByAssessmentRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the active assessment."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let context_ = "ListControlDomainInsightsByAssessmentRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~assessmentId ->
          fun () -> { nextToken; maxResults; assessmentId }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ?maxResults ?nextToken ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ?maxResults ?nextToken ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists analytics data for control domains within a specified active assessment. Audit Manager supports the control domains that are provided by Amazon Web Services Control Catalog. For information about how to find a list of available control domains, see ListDomains in the Amazon Web Services Control Catalog API Reference. A control domain is listed only if at least one of the controls within that domain collected evidence on the lastUpdated date of controlDomainInsights. If this condition isn\226\128\153t met, no data is listed for that domain."]
module ListAssessmentsResponse =
  struct
    type nonrec t =
      {
      assessmentMetadata: ListAssessmentMetadata.t option
        [@ocaml.doc
          "The metadata that the ListAssessments API returns for each assessment."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessmentMetadata =
      fun ?nextToken -> fun () -> { assessmentMetadata; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("assessmentMetadata",
           (Option.map x.assessmentMetadata
              ~f:ListAssessmentMetadata.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let assessmentMetadata =
        (Option.map ~f:ListAssessmentMetadata.of_xml)
          (Xml.child xml_arg0 "assessmentMetadata") in
      make ?nextToken ?assessmentMetadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let assessmentMetadata =
        field_map json__ "assessmentMetadata" ListAssessmentMetadata.of_json in
      make ?nextToken ?assessmentMetadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of current and past assessments from Audit Manager."]
module ListAssessmentsRequest =
  struct
    type nonrec t =
      {
      status: AssessmentStatus.t option
        [@ocaml.doc "The current status of the assessment."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let make ?status =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { status; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:AssessmentStatus.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let status =
        (Option.map ~f:AssessmentStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?maxResults ?nextToken ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let status = field_map json__ "status" AssessmentStatus.of_json in
      make ?maxResults ?nextToken ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of current and past assessments from Audit Manager."]
module ListAssessmentReportsResponse =
  struct
    type nonrec t =
      {
      assessmentReports: AssessmentReportsMetadata.t option
        [@ocaml.doc
          "The list of assessment reports that the ListAssessmentReports API returned."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessmentReports =
      fun ?nextToken -> fun () -> { assessmentReports; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("assessmentReports",
           (Option.map x.assessmentReports
              ~f:AssessmentReportsMetadata.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let assessmentReports =
        (Option.map ~f:AssessmentReportsMetadata.of_xml)
          (Xml.child xml_arg0 "assessmentReports") in
      make ?nextToken ?assessmentReports ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let assessmentReports =
        field_map json__ "assessmentReports"
          AssessmentReportsMetadata.of_json in
      make ?nextToken ?assessmentReports ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of assessment reports created in Audit Manager."]
module ListAssessmentReportsRequest =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.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" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of assessment reports created in Audit Manager."]
module ListAssessmentFrameworksResponse =
  struct
    type nonrec t =
      {
      frameworkMetadataList: FrameworkMetadataList.t option
        [@ocaml.doc
          "A list of metadata that the ListAssessmentFrameworks API returns for each framework."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?frameworkMetadataList =
      fun ?nextToken -> fun () -> { frameworkMetadataList; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("frameworkMetadataList",
           (Option.map x.frameworkMetadataList
              ~f:FrameworkMetadataList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let frameworkMetadataList =
        (Option.map ~f:FrameworkMetadataList.of_xml)
          (Xml.child xml_arg0 "frameworkMetadataList") in
      make ?nextToken ?frameworkMetadataList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let frameworkMetadataList =
        field_map json__ "frameworkMetadataList"
          FrameworkMetadataList.of_json in
      make ?nextToken ?frameworkMetadataList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the frameworks that are available in the Audit Manager framework library."]
module ListAssessmentFrameworksRequest =
  struct
    type nonrec t =
      {
      frameworkType: FrameworkType.t
        [@ocaml.doc
          "The type of framework, such as a standard framework or a custom framework."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let context_ = "ListAssessmentFrameworksRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~frameworkType ->
          fun () -> { nextToken; maxResults; frameworkType }
    let to_value x =
      structure_to_value
        [("frameworkType", (Some (FrameworkType.to_value x.frameworkType)));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let frameworkType =
        FrameworkType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "frameworkType") in
      make ?maxResults ?nextToken ~frameworkType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let frameworkType =
        field_map_exn json__ "frameworkType" FrameworkType.of_json in
      make ?maxResults ?nextToken ~frameworkType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the frameworks that are available in the Audit Manager framework library."]
module ListAssessmentFrameworkShareRequestsResponse =
  struct
    type nonrec t =
      {
      assessmentFrameworkShareRequests:
        AssessmentFrameworkShareRequestList.t option
        [@ocaml.doc
          "The list of share requests that the ListAssessmentFrameworkShareRequests API returned."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessmentFrameworkShareRequests =
      fun ?nextToken ->
        fun () -> { assessmentFrameworkShareRequests; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("assessmentFrameworkShareRequests",
           (Option.map x.assessmentFrameworkShareRequests
              ~f:AssessmentFrameworkShareRequestList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let assessmentFrameworkShareRequests =
        (Option.map ~f:AssessmentFrameworkShareRequestList.of_xml)
          (Xml.child xml_arg0 "assessmentFrameworkShareRequests") in
      make ?nextToken ?assessmentFrameworkShareRequests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let assessmentFrameworkShareRequests =
        field_map json__ "assessmentFrameworkShareRequests"
          AssessmentFrameworkShareRequestList.of_json in
      make ?nextToken ?assessmentFrameworkShareRequests ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of sent or received share requests for custom frameworks in Audit Manager."]
module ListAssessmentFrameworkShareRequestsRequest =
  struct
    type nonrec t =
      {
      requestType: ShareRequestType.t
        [@ocaml.doc
          "Specifies whether the share request is a sent request or a received request."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let context_ = "ListAssessmentFrameworkShareRequestsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~requestType -> fun () -> { nextToken; maxResults; requestType }
    let to_value x =
      structure_to_value
        [("requestType", (Some (ShareRequestType.to_value x.requestType)));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let requestType =
        ShareRequestType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "requestType") in
      make ?maxResults ?nextToken ~requestType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let requestType =
        field_map_exn json__ "requestType" ShareRequestType.of_json in
      make ?maxResults ?nextToken ~requestType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of sent or received share requests for custom frameworks in Audit Manager."]
module ListAssessmentControlInsightsByControlDomainResponse =
  struct
    type nonrec t =
      {
      controlInsightsByAssessment:
        ControlInsightsMetadataByAssessment.t option
        [@ocaml.doc
          "The assessment control analytics data that the ListAssessmentControlInsightsByControlDomain API returned."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?controlInsightsByAssessment =
      fun ?nextToken -> fun () -> { controlInsightsByAssessment; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("controlInsightsByAssessment",
           (Option.map x.controlInsightsByAssessment
              ~f:ControlInsightsMetadataByAssessment.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let controlInsightsByAssessment =
        (Option.map ~f:ControlInsightsMetadataByAssessment.of_xml)
          (Xml.child xml_arg0 "controlInsightsByAssessment") in
      make ?nextToken ?controlInsightsByAssessment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let controlInsightsByAssessment =
        field_map json__ "controlInsightsByAssessment"
          ControlInsightsMetadataByAssessment.of_json in
      make ?nextToken ?controlInsightsByAssessment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the latest analytics data for controls within a specific control domain and a specific active assessment. Control insights are listed only if the control belongs to the control domain and assessment that was specified. Moreover, the control must have collected evidence on the lastUpdated date of controlInsightsByAssessment. If neither of these conditions are met, no data is listed for that control."]
module ListAssessmentControlInsightsByControlDomainRequest =
  struct
    type nonrec t =
      {
      controlDomainId: ControlDomainId.t
        [@ocaml.doc
          "The unique identifier for the control domain. Audit Manager supports the control domains that are provided by Amazon Web Services Control Catalog. For information about how to find a list of available control domains, see ListDomains in the Amazon Web Services Control Catalog API Reference."];
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the active assessment."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let context_ = "ListAssessmentControlInsightsByControlDomainRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~controlDomainId ->
          fun ~assessmentId ->
            fun () ->
              { nextToken; maxResults; controlDomainId; assessmentId }
    let to_value x =
      structure_to_value
        [("controlDomainId",
           (Some (ControlDomainId.to_value x.controlDomainId)));
        ("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      let controlDomainId =
        ControlDomainId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlDomainId") in
      make ?maxResults ?nextToken ~assessmentId ~controlDomainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      let controlDomainId =
        field_map_exn json__ "controlDomainId" ControlDomainId.of_json in
      make ?maxResults ?nextToken ~assessmentId ~controlDomainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the latest analytics data for controls within a specific control domain and a specific active assessment. Control insights are listed only if the control belongs to the control domain and assessment that was specified. Moreover, the control must have collected evidence on the lastUpdated date of controlInsightsByAssessment. If neither of these conditions are met, no data is listed for that control."]
module GetSettingsResponse =
  struct
    type nonrec t =
      {
      settings: Settings.t option
        [@ocaml.doc
          "The settings object that holds all supported Audit Manager settings."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?settings = fun () -> { settings }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("settings", (Option.map x.settings ~f:Settings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let settings =
        (Option.map ~f:Settings.of_xml) (Xml.child xml_arg0 "settings") in
      make ?settings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let settings = field_map json__ "settings" Settings.of_json in
      make ?settings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the settings for a specified Amazon Web Services account."]
module GetSettingsRequest =
  struct
    type nonrec t =
      {
      attribute: SettingAttribute.t
        [@ocaml.doc "The list of setting attribute enum values."]}
    let context_ = "GetSettingsRequest"
    let make ~attribute = fun () -> { attribute }
    let to_value x =
      structure_to_value
        [("attribute", (Some (SettingAttribute.to_value x.attribute)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attribute =
        SettingAttribute.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "attribute") in
      make ~attribute ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attribute =
        field_map_exn json__ "attribute" SettingAttribute.of_json in
      make ~attribute ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the settings for a specified Amazon Web Services account."]
module GetServicesInScopeResponse =
  struct
    type nonrec t =
      {
      serviceMetadata: ServiceMetadataList.t option
        [@ocaml.doc
          "The metadata that's associated with the Amazon Web Services service."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?serviceMetadata = fun () -> { serviceMetadata }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("serviceMetadata",
           (Option.map x.serviceMetadata ~f:ServiceMetadataList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceMetadata =
        (Option.map ~f:ServiceMetadataList.of_xml)
          (Xml.child xml_arg0 "serviceMetadata") in
      make ?serviceMetadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceMetadata =
        field_map json__ "serviceMetadata" ServiceMetadataList.of_json in
      make ?serviceMetadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a list of the Amazon Web Services services from which Audit Manager can collect evidence. Audit Manager defines which Amazon Web Services services are in scope for an assessment. Audit Manager infers this scope by examining the assessment\226\128\153s controls and their data sources, and then mapping this information to one or more of the corresponding Amazon Web Services services that are in this list. For information about why it's no longer possible to specify services in scope manually, see I can't edit the services in scope for my assessment in the Troubleshooting section of the Audit Manager user guide."]
module GetServicesInScopeRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a list of the Amazon Web Services services from which Audit Manager can collect evidence. Audit Manager defines which Amazon Web Services services are in scope for an assessment. Audit Manager infers this scope by examining the assessment\226\128\153s controls and their data sources, and then mapping this information to one or more of the corresponding Amazon Web Services services that are in this list. For information about why it's no longer possible to specify services in scope manually, see I can't edit the services in scope for my assessment in the Troubleshooting section of the Audit Manager user guide."]
module GetOrganizationAdminAccountResponse =
  struct
    type nonrec t =
      {
      adminAccountId: AccountId.t option
        [@ocaml.doc "The identifier for the administrator account."];
      organizationId: OrganizationId.t option
        [@ocaml.doc "The identifier for the organization."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?adminAccountId =
      fun ?organizationId -> fun () -> { adminAccountId; organizationId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("adminAccountId",
           (Option.map x.adminAccountId ~f:AccountId.to_value));
        ("organizationId",
          (Option.map x.organizationId ~f:OrganizationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationId =
        (Option.map ~f:OrganizationId.of_xml)
          (Xml.child xml_arg0 "organizationId") in
      let adminAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "adminAccountId") in
      make ?organizationId ?adminAccountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationId =
        field_map json__ "organizationId" OrganizationId.of_json in
      let adminAccountId =
        field_map json__ "adminAccountId" AccountId.of_json in
      make ?organizationId ?adminAccountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the name of the delegated Amazon Web Services administrator account for a specified organization."]
module GetOrganizationAdminAccountRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the name of the delegated Amazon Web Services administrator account for a specified organization."]
module GetInsightsResponse =
  struct
    type nonrec t =
      {
      insights: Insights.t option
        [@ocaml.doc "The analytics data that the GetInsights API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?insights = fun () -> { insights }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("insights", (Option.map x.insights ~f:Insights.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let insights =
        (Option.map ~f:Insights.of_xml) (Xml.child xml_arg0 "insights") in
      make ?insights ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let insights = field_map json__ "insights" Insights.of_json in
      make ?insights ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the latest analytics data for all your current active assessments."]
module GetInsightsRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the latest analytics data for all your current active assessments."]
module GetInsightsByAssessmentResponse =
  struct
    type nonrec t =
      {
      insights: InsightsByAssessment.t option
        [@ocaml.doc
          "The assessment analytics data that the GetInsightsByAssessment API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?insights = fun () -> { insights }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("insights",
           (Option.map x.insights ~f:InsightsByAssessment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let insights =
        (Option.map ~f:InsightsByAssessment.of_xml)
          (Xml.child xml_arg0 "insights") in
      make ?insights ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let insights = field_map json__ "insights" InsightsByAssessment.of_json in
      make ?insights ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the latest analytics data for a specific active assessment."]
module GetInsightsByAssessmentRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment."]}
    let context_ = "GetInsightsByAssessmentRequest"
    let make ~assessmentId = fun () -> { assessmentId }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the latest analytics data for a specific active assessment."]
module GetEvidenceResponse =
  struct
    type nonrec t =
      {
      evidence: Evidence.t option
        [@ocaml.doc "The evidence that the GetEvidence API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?evidence = fun () -> { evidence }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("evidence", (Option.map x.evidence ~f:Evidence.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let evidence =
        (Option.map ~f:Evidence.of_xml) (Xml.child xml_arg0 "evidence") in
      make ?evidence ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let evidence = field_map json__ "evidence" Evidence.of_json in
      make ?evidence ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about a specified evidence item."]
module GetEvidenceRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment."];
      controlSetId: ControlSetId.t
        [@ocaml.doc "The unique identifier for the control set."];
      evidenceFolderId: UUID.t
        [@ocaml.doc
          "The unique identifier for the folder that the evidence is stored in."];
      evidenceId: UUID.t
        [@ocaml.doc "The unique identifier for the evidence."]}
    let context_ = "GetEvidenceRequest"
    let make ~assessmentId =
      fun ~controlSetId ->
        fun ~evidenceFolderId ->
          fun ~evidenceId ->
            fun () ->
              { assessmentId; controlSetId; evidenceFolderId; evidenceId }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("controlSetId", (Some (ControlSetId.to_value x.controlSetId)));
        ("evidenceFolderId", (Some (UUID.to_value x.evidenceFolderId)));
        ("evidenceId", (Some (UUID.to_value x.evidenceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let evidenceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "evidenceId") in
      let evidenceFolderId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "evidenceFolderId") in
      let controlSetId =
        ControlSetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlSetId") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ~evidenceId ~evidenceFolderId ~controlSetId ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let evidenceId = field_map_exn json__ "evidenceId" UUID.of_json in
      let evidenceFolderId =
        field_map_exn json__ "evidenceFolderId" UUID.of_json in
      let controlSetId =
        field_map_exn json__ "controlSetId" ControlSetId.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ~evidenceId ~evidenceFolderId ~controlSetId ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about a specified evidence item."]
module GetEvidenceFoldersByAssessmentResponse =
  struct
    type nonrec t =
      {
      evidenceFolders: AssessmentEvidenceFolders.t option
        [@ocaml.doc
          "The list of evidence folders that the GetEvidenceFoldersByAssessment API returned."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?evidenceFolders =
      fun ?nextToken -> fun () -> { evidenceFolders; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("evidenceFolders",
           (Option.map x.evidenceFolders
              ~f:AssessmentEvidenceFolders.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let evidenceFolders =
        (Option.map ~f:AssessmentEvidenceFolders.of_xml)
          (Xml.child xml_arg0 "evidenceFolders") in
      make ?nextToken ?evidenceFolders ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let evidenceFolders =
        field_map json__ "evidenceFolders" AssessmentEvidenceFolders.of_json in
      make ?nextToken ?evidenceFolders ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the evidence folders from a specified assessment in Audit Manager."]
module GetEvidenceFoldersByAssessmentRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let context_ = "GetEvidenceFoldersByAssessmentRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~assessmentId ->
          fun () -> { nextToken; maxResults; assessmentId }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ?maxResults ?nextToken ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ?maxResults ?nextToken ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the evidence folders from a specified assessment in Audit Manager."]
module GetEvidenceFoldersByAssessmentControlResponse =
  struct
    type nonrec t =
      {
      evidenceFolders: AssessmentEvidenceFolders.t option
        [@ocaml.doc
          "The list of evidence folders that the GetEvidenceFoldersByAssessmentControl API returned."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?evidenceFolders =
      fun ?nextToken -> fun () -> { evidenceFolders; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("evidenceFolders",
           (Option.map x.evidenceFolders
              ~f:AssessmentEvidenceFolders.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let evidenceFolders =
        (Option.map ~f:AssessmentEvidenceFolders.of_xml)
          (Xml.child xml_arg0 "evidenceFolders") in
      make ?nextToken ?evidenceFolders ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let evidenceFolders =
        field_map json__ "evidenceFolders" AssessmentEvidenceFolders.of_json in
      make ?nextToken ?evidenceFolders ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a list of evidence folders that are associated with a specified control in an Audit Manager assessment."]
module GetEvidenceFoldersByAssessmentControlRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t [@ocaml.doc "The identifier for the assessment."];
      controlSetId: ControlSetId.t
        [@ocaml.doc "The identifier for the control set."];
      controlId: UUID.t [@ocaml.doc "The identifier for the control."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let context_ = "GetEvidenceFoldersByAssessmentControlRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~assessmentId ->
          fun ~controlSetId ->
            fun ~controlId ->
              fun () ->
                {
                  nextToken;
                  maxResults;
                  assessmentId;
                  controlSetId;
                  controlId
                }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("controlSetId", (Some (ControlSetId.to_value x.controlSetId)));
        ("controlId", (Some (UUID.to_value x.controlId)));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let controlId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "controlId") in
      let controlSetId =
        ControlSetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlSetId") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ?maxResults ?nextToken ~controlId ~controlSetId ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let controlId = field_map_exn json__ "controlId" UUID.of_json in
      let controlSetId =
        field_map_exn json__ "controlSetId" ControlSetId.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ?maxResults ?nextToken ~controlId ~controlSetId ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a list of evidence folders that are associated with a specified control in an Audit Manager assessment."]
module GetEvidenceFolderResponse =
  struct
    type nonrec t =
      {
      evidenceFolder: AssessmentEvidenceFolder.t option
        [@ocaml.doc "The folder that the evidence is stored in."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?evidenceFolder = fun () -> { evidenceFolder }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("evidenceFolder",
           (Option.map x.evidenceFolder ~f:AssessmentEvidenceFolder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let evidenceFolder =
        (Option.map ~f:AssessmentEvidenceFolder.of_xml)
          (Xml.child xml_arg0 "evidenceFolder") in
      make ?evidenceFolder ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let evidenceFolder =
        field_map json__ "evidenceFolder" AssessmentEvidenceFolder.of_json in
      make ?evidenceFolder ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets an evidence folder from a specified assessment in Audit Manager."]
module GetEvidenceFolderRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment."];
      controlSetId: ControlSetId.t
        [@ocaml.doc "The unique identifier for the control set."];
      evidenceFolderId: UUID.t
        [@ocaml.doc
          "The unique identifier for the folder that the evidence is stored in."]}
    let context_ = "GetEvidenceFolderRequest"
    let make ~assessmentId =
      fun ~controlSetId ->
        fun ~evidenceFolderId ->
          fun () -> { assessmentId; controlSetId; evidenceFolderId }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("controlSetId", (Some (ControlSetId.to_value x.controlSetId)));
        ("evidenceFolderId", (Some (UUID.to_value x.evidenceFolderId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let evidenceFolderId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "evidenceFolderId") in
      let controlSetId =
        ControlSetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlSetId") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ~evidenceFolderId ~controlSetId ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let evidenceFolderId =
        field_map_exn json__ "evidenceFolderId" UUID.of_json in
      let controlSetId =
        field_map_exn json__ "controlSetId" ControlSetId.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ~evidenceFolderId ~controlSetId ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets an evidence folder from a specified assessment in Audit Manager."]
module GetEvidenceFileUploadUrlResponse =
  struct
    type nonrec t =
      {
      evidenceFileName: NonEmptyString.t option
        [@ocaml.doc
          "The name of the uploaded manual evidence file that the presigned URL was generated for."];
      uploadUrl: NonEmptyString.t option
        [@ocaml.doc "The presigned URL that was generated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?evidenceFileName =
      fun ?uploadUrl -> fun () -> { evidenceFileName; uploadUrl }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("evidenceFileName",
           (Option.map x.evidenceFileName ~f:NonEmptyString.to_value));
        ("uploadUrl", (Option.map x.uploadUrl ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uploadUrl =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "uploadUrl") in
      let evidenceFileName =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "evidenceFileName") in
      make ?uploadUrl ?evidenceFileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uploadUrl = field_map json__ "uploadUrl" NonEmptyString.of_json in
      let evidenceFileName =
        field_map json__ "evidenceFileName" NonEmptyString.of_json in
      make ?uploadUrl ?evidenceFileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a presigned Amazon S3 URL that can be used to upload a file as manual evidence. For instructions on how to use this operation, see Upload a file from your browser in the Audit Manager User Guide. The following restrictions apply to this operation: Maximum size of an individual evidence file: 100 MB Number of daily manual evidence uploads per control: 100 Supported file formats: See Supported file types for manual evidence in the Audit Manager User Guide For more information about Audit Manager service restrictions, see Quotas and restrictions for Audit Manager."]
module GetEvidenceFileUploadUrlRequest =
  struct
    type nonrec t =
      {
      fileName: ManualEvidenceLocalFileName.t
        [@ocaml.doc
          "The file that you want to upload. For a list of supported file formats, see Supported file types for manual evidence in the Audit Manager User Guide."]}
    let context_ = "GetEvidenceFileUploadUrlRequest"
    let make ~fileName = fun () -> { fileName }
    let to_value x =
      structure_to_value
        [("fileName",
           (Some (ManualEvidenceLocalFileName.to_value x.fileName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileName =
        ManualEvidenceLocalFileName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fileName") in
      make ~fileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileName =
        field_map_exn json__ "fileName" ManualEvidenceLocalFileName.of_json in
      make ~fileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a presigned Amazon S3 URL that can be used to upload a file as manual evidence. For instructions on how to use this operation, see Upload a file from your browser in the Audit Manager User Guide. The following restrictions apply to this operation: Maximum size of an individual evidence file: 100 MB Number of daily manual evidence uploads per control: 100 Supported file formats: See Supported file types for manual evidence in the Audit Manager User Guide For more information about Audit Manager service restrictions, see Quotas and restrictions for Audit Manager."]
module GetEvidenceByEvidenceFolderResponse =
  struct
    type nonrec t =
      {
      evidence: EvidenceList.t option
        [@ocaml.doc
          "The list of evidence that the GetEvidenceByEvidenceFolder API returned."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?evidence = fun ?nextToken -> fun () -> { evidence; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("evidence", (Option.map x.evidence ~f:EvidenceList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let evidence =
        (Option.map ~f:EvidenceList.of_xml) (Xml.child xml_arg0 "evidence") in
      make ?nextToken ?evidence ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let evidence = field_map json__ "evidence" EvidenceList.of_json in
      make ?nextToken ?evidence ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all evidence from a specified evidence folder in Audit Manager."]
module GetEvidenceByEvidenceFolderRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t [@ocaml.doc "The identifier for the assessment."];
      controlSetId: ControlSetId.t
        [@ocaml.doc "The identifier for the control set."];
      evidenceFolderId: UUID.t
        [@ocaml.doc
          "The unique identifier for the folder that the evidence is stored in."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let context_ = "GetEvidenceByEvidenceFolderRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~assessmentId ->
          fun ~controlSetId ->
            fun ~evidenceFolderId ->
              fun () ->
                {
                  nextToken;
                  maxResults;
                  assessmentId;
                  controlSetId;
                  evidenceFolderId
                }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("controlSetId", (Some (ControlSetId.to_value x.controlSetId)));
        ("evidenceFolderId", (Some (UUID.to_value x.evidenceFolderId)));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let evidenceFolderId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "evidenceFolderId") in
      let controlSetId =
        ControlSetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlSetId") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ?maxResults ?nextToken ~evidenceFolderId ~controlSetId
        ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let evidenceFolderId =
        field_map_exn json__ "evidenceFolderId" UUID.of_json in
      let controlSetId =
        field_map_exn json__ "controlSetId" ControlSetId.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ?maxResults ?nextToken ~evidenceFolderId ~controlSetId
        ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets all evidence from a specified evidence folder in Audit Manager."]
module GetDelegationsResponse =
  struct
    type nonrec t =
      {
      delegations: DelegationMetadataList.t option
        [@ocaml.doc
          "The list of delegations that the GetDelegations API returned."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?delegations =
      fun ?nextToken -> fun () -> { delegations; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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
        [("delegations",
           (Option.map x.delegations ~f:DelegationMetadataList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let delegations =
        (Option.map ~f:DelegationMetadataList.of_xml)
          (Xml.child xml_arg0 "delegations") in
      make ?nextToken ?delegations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let delegations =
        field_map json__ "delegations" DelegationMetadataList.of_json in
      make ?nextToken ?delegations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a list of delegations from an audit owner to a delegate."]
module GetDelegationsRequest =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.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" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a list of delegations from an audit owner to a delegate."]
module GetControlResponse =
  struct
    type nonrec t =
      {
      control: Control.t option
        [@ocaml.doc
          "The details of the control that the GetControl API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?control = fun () -> { control }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("control", (Option.map x.control ~f:Control.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let control =
        (Option.map ~f:Control.of_xml) (Xml.child xml_arg0 "control") in
      make ?control ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let control = field_map json__ "control" Control.of_json in
      make ?control ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about a specified control."]
module GetControlRequest =
  struct
    type nonrec t =
      {
      controlId: UUID.t [@ocaml.doc "The identifier for the control."]}
    let context_ = "GetControlRequest"
    let make ~controlId = fun () -> { controlId }
    let to_value x =
      structure_to_value [("controlId", (Some (UUID.to_value x.controlId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "controlId") in
      make ~controlId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlId = field_map_exn json__ "controlId" UUID.of_json in
      make ~controlId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about a specified control."]
module GetChangeLogsResponse =
  struct
    type nonrec t =
      {
      changeLogs: ChangeLogs.t option
        [@ocaml.doc "The list of user activity for the control."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?changeLogs =
      fun ?nextToken -> fun () -> { changeLogs; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("changeLogs", (Option.map x.changeLogs ~f:ChangeLogs.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let changeLogs =
        (Option.map ~f:ChangeLogs.of_xml) (Xml.child xml_arg0 "changeLogs") in
      make ?nextToken ?changeLogs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let changeLogs = field_map json__ "changeLogs" ChangeLogs.of_json in
      make ?nextToken ?changeLogs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets a list of changelogs from Audit Manager."]
module GetChangeLogsRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment."];
      controlSetId: ControlSetId.t option
        [@ocaml.doc "The unique identifier for the control set."];
      controlId: UUID.t option
        [@ocaml.doc "The unique identifier for the control."];
      nextToken: Token.t option
        [@ocaml.doc
          "The pagination token that's used to fetch the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Represents the maximum number of results on a page or for an API request call."]}
    let context_ = "GetChangeLogsRequest"
    let make ?controlSetId =
      fun ?controlId ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~assessmentId ->
              fun () ->
                {
                  controlSetId;
                  controlId;
                  nextToken;
                  maxResults;
                  assessmentId
                }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("controlSetId",
          (Option.map x.controlSetId ~f:ControlSetId.to_value));
        ("controlId", (Option.map x.controlId ~f:UUID.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let controlId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "controlId") in
      let controlSetId =
        (Option.map ~f:ControlSetId.of_xml)
          (Xml.child xml_arg0 "controlSetId") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ?maxResults ?nextToken ?controlId ?controlSetId ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let controlId = field_map json__ "controlId" UUID.of_json in
      let controlSetId = field_map json__ "controlSetId" ControlSetId.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ?maxResults ?nextToken ?controlId ?controlSetId ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets a list of changelogs from Audit Manager."]
module GetAssessmentResponse =
  struct
    type nonrec t =
      {
      assessment: Assessment.t option ;
      userRole: Role.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessment =
      fun ?userRole -> fun () -> { assessment; userRole }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("assessment", (Option.map x.assessment ~f:Assessment.to_value));
        ("userRole", (Option.map x.userRole ~f:Role.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userRole =
        (Option.map ~f:Role.of_xml) (Xml.child xml_arg0 "userRole") in
      let assessment =
        (Option.map ~f:Assessment.of_xml) (Xml.child xml_arg0 "assessment") in
      make ?userRole ?assessment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userRole = field_map json__ "userRole" Role.of_json in
      let assessment = field_map json__ "assessment" Assessment.of_json in
      make ?userRole ?assessment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about a specified assessment."]
module GetAssessmentRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment."]}
    let context_ = "GetAssessmentRequest"
    let make ~assessmentId = fun () -> { assessmentId }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about a specified assessment."]
module GetAssessmentReportUrlResponse =
  struct
    type nonrec t = {
      preSignedUrl: URL.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?preSignedUrl = fun () -> { preSignedUrl }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("preSignedUrl", (Option.map x.preSignedUrl ~f:URL.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let preSignedUrl =
        (Option.map ~f:URL.of_xml) (Xml.child xml_arg0 "preSignedUrl") in
      make ?preSignedUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let preSignedUrl = field_map json__ "preSignedUrl" URL.of_json in
      make ?preSignedUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the URL of an assessment report in Audit Manager."]
module GetAssessmentReportUrlRequest =
  struct
    type nonrec t =
      {
      assessmentReportId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment report."];
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment."]}
    let context_ = "GetAssessmentReportUrlRequest"
    let make ~assessmentReportId =
      fun ~assessmentId -> fun () -> { assessmentReportId; assessmentId }
    let to_value x =
      structure_to_value
        [("assessmentReportId", (Some (UUID.to_value x.assessmentReportId)));
        ("assessmentId", (Some (UUID.to_value x.assessmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      let assessmentReportId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "assessmentReportId") in
      make ~assessmentId ~assessmentReportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      let assessmentReportId =
        field_map_exn json__ "assessmentReportId" UUID.of_json in
      make ~assessmentId ~assessmentReportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the URL of an assessment report in Audit Manager."]
module GetAssessmentFrameworkResponse =
  struct
    type nonrec t =
      {
      framework: Framework.t option
        [@ocaml.doc
          "The framework that the GetAssessmentFramework API returned. The Controls object returns a partial response when called through Framework APIs. For a complete Controls object, use GetControl."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?framework = fun () -> { framework }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("framework", (Option.map x.framework ~f:Framework.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let framework =
        (Option.map ~f:Framework.of_xml) (Xml.child xml_arg0 "framework") in
      make ?framework ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let framework = field_map json__ "framework" Framework.of_json in
      make ?framework ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about a specified framework."]
module GetAssessmentFrameworkRequest =
  struct
    type nonrec t =
      {
      frameworkId: UUID.t [@ocaml.doc "The identifier for the framework."]}
    let context_ = "GetAssessmentFrameworkRequest"
    let make ~frameworkId = fun () -> { frameworkId }
    let to_value x =
      structure_to_value
        [("frameworkId", (Some (UUID.to_value x.frameworkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let frameworkId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "frameworkId") in
      make ~frameworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let frameworkId = field_map_exn json__ "frameworkId" UUID.of_json in
      make ~frameworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about a specified framework."]
module GetAccountStatusResponse =
  struct
    type nonrec t =
      {
      status: AccountStatus.t option
        [@ocaml.doc "The status of the Amazon Web Services account."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:AccountStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:AccountStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" AccountStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the registration status of an account in Audit Manager."]
module GetAccountStatusRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the registration status of an account in Audit Manager."]
module DisassociateAssessmentReportEvidenceFolderResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
       "Disassociates an evidence folder from the specified assessment report in Audit Manager."]
module DisassociateAssessmentReportEvidenceFolderRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment."];
      evidenceFolderId: UUID.t
        [@ocaml.doc
          "The unique identifier for the folder that the evidence is stored in."]}
    let context_ = "DisassociateAssessmentReportEvidenceFolderRequest"
    let make ~assessmentId =
      fun ~evidenceFolderId -> fun () -> { assessmentId; evidenceFolderId }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("evidenceFolderId", (Some (UUID.to_value x.evidenceFolderId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let evidenceFolderId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "evidenceFolderId") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ~evidenceFolderId ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let evidenceFolderId =
        field_map_exn json__ "evidenceFolderId" UUID.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ~evidenceFolderId ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates an evidence folder from the specified assessment report in Audit Manager."]
module DeregisterOrganizationAdminAccountResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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 the specified Amazon Web Services account as a delegated administrator for Audit Manager. When you remove a delegated administrator from your Audit Manager settings, you continue to have access to the evidence that you previously collected under that account. This is also the case when you deregister a delegated administrator from Organizations. However, Audit Manager stops collecting and attaching evidence to that delegated administrator account moving forward. Keep in mind the following cleanup task if you use evidence finder: Before you use your management account to remove a delegated administrator, make sure that the current delegated administrator account signs in to Audit Manager and disables evidence finder first. Disabling evidence finder automatically deletes the event data store that was created in their account when they enabled evidence finder. If this task isn\226\128\153t completed, the event data store remains in their account. In this case, we recommend that the original delegated administrator goes to CloudTrail Lake and manually deletes the event data store. This cleanup task is necessary to ensure that you don't end up with multiple event data stores. Audit Manager ignores an unused event data store after you remove or change a delegated administrator account. However, the unused event data store continues to incur storage costs from CloudTrail Lake if you don't delete it. When you deregister a delegated administrator account for Audit Manager, the data for that account isn\226\128\153t deleted. If you want to delete resource data for a delegated administrator account, you must perform that task separately before you deregister the account. Either, you can do this in the Audit Manager console. Or, you can use one of the delete API operations that are provided by Audit Manager. To delete your Audit Manager resource data, see the following instructions: DeleteAssessment (see also: Deleting an assessment in the Audit Manager User Guide) DeleteAssessmentFramework (see also: Deleting a custom framework in the Audit Manager User Guide) DeleteAssessmentFrameworkShare (see also: Deleting a share request in the Audit Manager User Guide) DeleteAssessmentReport (see also: Deleting an assessment report in the Audit Manager User Guide) DeleteControl (see also: Deleting a custom control in the Audit Manager User Guide) At this time, Audit Manager doesn't provide an option to delete evidence for a specific delegated administrator. Instead, when your management account deregisters Audit Manager, we perform a cleanup for the current delegated administrator account at the time of deregistration."]
module DeregisterOrganizationAdminAccountRequest =
  struct
    type nonrec t =
      {
      adminAccountId: AccountId.t option
        [@ocaml.doc "The identifier for the administrator account."]}
    let make ?adminAccountId = fun () -> { adminAccountId }
    let to_value x =
      structure_to_value
        [("adminAccountId",
           (Option.map x.adminAccountId ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let adminAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "adminAccountId") in
      make ?adminAccountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let adminAccountId =
        field_map json__ "adminAccountId" AccountId.of_json in
      make ?adminAccountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified Amazon Web Services account as a delegated administrator for Audit Manager. When you remove a delegated administrator from your Audit Manager settings, you continue to have access to the evidence that you previously collected under that account. This is also the case when you deregister a delegated administrator from Organizations. However, Audit Manager stops collecting and attaching evidence to that delegated administrator account moving forward. Keep in mind the following cleanup task if you use evidence finder: Before you use your management account to remove a delegated administrator, make sure that the current delegated administrator account signs in to Audit Manager and disables evidence finder first. Disabling evidence finder automatically deletes the event data store that was created in their account when they enabled evidence finder. If this task isn\226\128\153t completed, the event data store remains in their account. In this case, we recommend that the original delegated administrator goes to CloudTrail Lake and manually deletes the event data store. This cleanup task is necessary to ensure that you don't end up with multiple event data stores. Audit Manager ignores an unused event data store after you remove or change a delegated administrator account. However, the unused event data store continues to incur storage costs from CloudTrail Lake if you don't delete it. When you deregister a delegated administrator account for Audit Manager, the data for that account isn\226\128\153t deleted. If you want to delete resource data for a delegated administrator account, you must perform that task separately before you deregister the account. Either, you can do this in the Audit Manager console. Or, you can use one of the delete API operations that are provided by Audit Manager. To delete your Audit Manager resource data, see the following instructions: DeleteAssessment (see also: Deleting an assessment in the Audit Manager User Guide) DeleteAssessmentFramework (see also: Deleting a custom framework in the Audit Manager User Guide) DeleteAssessmentFrameworkShare (see also: Deleting a share request in the Audit Manager User Guide) DeleteAssessmentReport (see also: Deleting an assessment report in the Audit Manager User Guide) DeleteControl (see also: Deleting a custom control in the Audit Manager User Guide) At this time, Audit Manager doesn't provide an option to delete evidence for a specific delegated administrator. Instead, when your management account deregisters Audit Manager, we perform a cleanup for the current delegated administrator account at the time of deregistration."]
module DeregisterAccountResponse =
  struct
    type nonrec t =
      {
      status: AccountStatus.t option
        [@ocaml.doc "The registration status of the account."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:AccountStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:AccountStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" AccountStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deregisters an account in Audit Manager. Before you deregister, you can use the UpdateSettings API operation to set your preferred data retention policy. By default, Audit Manager retains your data. If you want to delete your data, you can use the DeregistrationPolicy attribute to request the deletion of your data. For more information about data retention, see Data Protection in the Audit Manager User Guide."]
module DeregisterAccountRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deregisters an account in Audit Manager. Before you deregister, you can use the UpdateSettings API operation to set your preferred data retention policy. By default, Audit Manager retains your data. If you want to delete your data, you can use the DeregistrationPolicy attribute to request the deletion of your data. For more information about data retention, see Data Protection in the Audit Manager User Guide."]
module DeleteControlResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a custom control in Audit Manager. When you invoke this operation, the custom control is deleted from any frameworks or assessments that it\226\128\153s currently part of. As a result, Audit Manager will stop collecting evidence for that custom control in all of your assessments. This includes assessments that you previously created before you deleted the custom control."]
module DeleteControlRequest =
  struct
    type nonrec t =
      {
      controlId: UUID.t [@ocaml.doc "The unique identifier for the control."]}
    let context_ = "DeleteControlRequest"
    let make ~controlId = fun () -> { controlId }
    let to_value x =
      structure_to_value [("controlId", (Some (UUID.to_value x.controlId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let controlId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "controlId") in
      make ~controlId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let controlId = field_map_exn json__ "controlId" UUID.of_json in
      make ~controlId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a custom control in Audit Manager. When you invoke this operation, the custom control is deleted from any frameworks or assessments that it\226\128\153s currently part of. As a result, Audit Manager will stop collecting evidence for that custom control in all of your assessments. This includes assessments that you previously created before you deleted the custom control."]
module DeleteAssessmentResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an assessment in Audit Manager."]
module DeleteAssessmentRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t [@ocaml.doc "The identifier for the assessment."]}
    let context_ = "DeleteAssessmentRequest"
    let make ~assessmentId = fun () -> { assessmentId }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an assessment in Audit Manager."]
module DeleteAssessmentReportResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an assessment report in Audit Manager. When you run the DeleteAssessmentReport operation, Audit Manager attempts to delete the following data: The specified assessment report that\226\128\153s stored in your S3 bucket The associated metadata that\226\128\153s stored in Audit Manager If Audit Manager can\226\128\153t access the assessment report in your S3 bucket, the report isn\226\128\153t deleted. In this event, the DeleteAssessmentReport operation doesn\226\128\153t fail. Instead, it proceeds to delete the associated metadata only. You must then delete the assessment report from the S3 bucket yourself. This scenario happens when Audit Manager receives a 403 (Forbidden) or 404 (Not Found) error from Amazon S3. To avoid this, make sure that your S3 bucket is available, and that you configured the correct permissions for Audit Manager to delete resources in your S3 bucket. For an example permissions policy that you can use, see Assessment report destination permissions in the Audit Manager User Guide. For information about the issues that could cause a 403 (Forbidden) or 404 (Not Found) error from Amazon S3, see List of Error Codes in the Amazon Simple Storage Service API Reference."]
module DeleteAssessmentReportRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment."];
      assessmentReportId: UUID.t
        [@ocaml.doc "The unique identifier for the assessment report."]}
    let context_ = "DeleteAssessmentReportRequest"
    let make ~assessmentId =
      fun ~assessmentReportId ->
        fun () -> { assessmentId; assessmentReportId }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("assessmentReportId", (Some (UUID.to_value x.assessmentReportId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentReportId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "assessmentReportId") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ~assessmentReportId ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentReportId =
        field_map_exn json__ "assessmentReportId" UUID.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ~assessmentReportId ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an assessment report in Audit Manager. When you run the DeleteAssessmentReport operation, Audit Manager attempts to delete the following data: The specified assessment report that\226\128\153s stored in your S3 bucket The associated metadata that\226\128\153s stored in Audit Manager If Audit Manager can\226\128\153t access the assessment report in your S3 bucket, the report isn\226\128\153t deleted. In this event, the DeleteAssessmentReport operation doesn\226\128\153t fail. Instead, it proceeds to delete the associated metadata only. You must then delete the assessment report from the S3 bucket yourself. This scenario happens when Audit Manager receives a 403 (Forbidden) or 404 (Not Found) error from Amazon S3. To avoid this, make sure that your S3 bucket is available, and that you configured the correct permissions for Audit Manager to delete resources in your S3 bucket. For an example permissions policy that you can use, see Assessment report destination permissions in the Audit Manager User Guide. For information about the issues that could cause a 403 (Forbidden) or 404 (Not Found) error from Amazon S3, see List of Error Codes in the Amazon Simple Storage Service API Reference."]
module DeleteAssessmentFrameworkShareResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a share request for a custom framework in Audit Manager."]
module DeleteAssessmentFrameworkShareRequest =
  struct
    type nonrec t =
      {
      requestId: UUID.t
        [@ocaml.doc
          "The unique identifier for the share request to be deleted."];
      requestType: ShareRequestType.t
        [@ocaml.doc
          "Specifies whether the share request is a sent request or a received request."]}
    let context_ = "DeleteAssessmentFrameworkShareRequest"
    let make ~requestId =
      fun ~requestType -> fun () -> { requestId; requestType }
    let to_value x =
      structure_to_value
        [("requestId", (Some (UUID.to_value x.requestId)));
        ("requestType", (Some (ShareRequestType.to_value x.requestType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestType =
        ShareRequestType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "requestType") in
      let requestId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "requestId") in
      make ~requestType ~requestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestType =
        field_map_exn json__ "requestType" ShareRequestType.of_json in
      let requestId = field_map_exn json__ "requestId" UUID.of_json in
      make ~requestType ~requestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a share request for a custom framework in Audit Manager."]
module DeleteAssessmentFrameworkResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a custom framework in Audit Manager."]
module DeleteAssessmentFrameworkRequest =
  struct
    type nonrec t =
      {
      frameworkId: UUID.t
        [@ocaml.doc "The identifier for the custom framework."]}
    let context_ = "DeleteAssessmentFrameworkRequest"
    let make ~frameworkId = fun () -> { frameworkId }
    let to_value x =
      structure_to_value
        [("frameworkId", (Some (UUID.to_value x.frameworkId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let frameworkId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "frameworkId") in
      make ~frameworkId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let frameworkId = field_map_exn json__ "frameworkId" UUID.of_json in
      make ~frameworkId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a custom framework in Audit Manager."]
module CreateControlResponse =
  struct
    type nonrec t =
      {
      control: Control.t option
        [@ocaml.doc "The new control that the CreateControl API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?control = fun () -> { control }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("control", (Option.map x.control ~f:Control.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let control =
        (Option.map ~f:Control.of_xml) (Xml.child xml_arg0 "control") in
      make ?control ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let control = field_map json__ "control" Control.of_json in
      make ?control ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new custom control in Audit Manager."]
module CreateControlRequest =
  struct
    type nonrec t =
      {
      name: ControlName.t [@ocaml.doc "The name of the control."];
      description: ControlDescription.t option
        [@ocaml.doc "The description of the control."];
      testingInformation: TestingInformation.t option
        [@ocaml.doc
          "The steps to follow to determine if the control is satisfied."];
      actionPlanTitle: ActionPlanTitle.t option
        [@ocaml.doc
          "The title of the action plan for remediating the control."];
      actionPlanInstructions: ActionPlanInstructions.t option
        [@ocaml.doc
          "The recommended actions to carry out if the control isn't fulfilled."];
      controlMappingSources: CreateControlMappingSources.t
        [@ocaml.doc "The data mapping sources for the control."];
      tags: TagMap.t option
        [@ocaml.doc "The tags that are associated with the control."]}
    let context_ = "CreateControlRequest"
    let make ?description =
      fun ?testingInformation ->
        fun ?actionPlanTitle ->
          fun ?actionPlanInstructions ->
            fun ?tags ->
              fun ~name ->
                fun ~controlMappingSources ->
                  fun () ->
                    {
                      description;
                      testingInformation;
                      actionPlanTitle;
                      actionPlanInstructions;
                      tags;
                      name;
                      controlMappingSources
                    }
    let to_value x =
      structure_to_value
        [("name", (Some (ControlName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:ControlDescription.to_value));
        ("testingInformation",
          (Option.map x.testingInformation ~f:TestingInformation.to_value));
        ("actionPlanTitle",
          (Option.map x.actionPlanTitle ~f:ActionPlanTitle.to_value));
        ("actionPlanInstructions",
          (Option.map x.actionPlanInstructions
             ~f:ActionPlanInstructions.to_value));
        ("controlMappingSources",
          (Some
             (CreateControlMappingSources.to_value x.controlMappingSources)));
        ("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 controlMappingSources =
        CreateControlMappingSources.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlMappingSources") in
      let actionPlanInstructions =
        (Option.map ~f:ActionPlanInstructions.of_xml)
          (Xml.child xml_arg0 "actionPlanInstructions") in
      let actionPlanTitle =
        (Option.map ~f:ActionPlanTitle.of_xml)
          (Xml.child xml_arg0 "actionPlanTitle") in
      let testingInformation =
        (Option.map ~f:TestingInformation.of_xml)
          (Xml.child xml_arg0 "testingInformation") in
      let description =
        (Option.map ~f:ControlDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        ControlName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ~controlMappingSources ?actionPlanInstructions
        ?actionPlanTitle ?testingInformation ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let controlMappingSources =
        field_map_exn json__ "controlMappingSources"
          CreateControlMappingSources.of_json in
      let actionPlanInstructions =
        field_map json__ "actionPlanInstructions"
          ActionPlanInstructions.of_json in
      let actionPlanTitle =
        field_map json__ "actionPlanTitle" ActionPlanTitle.of_json in
      let testingInformation =
        field_map json__ "testingInformation" TestingInformation.of_json in
      let description =
        field_map json__ "description" ControlDescription.of_json in
      let name = field_map_exn json__ "name" ControlName.of_json in
      make ?tags ~controlMappingSources ?actionPlanInstructions
        ?actionPlanTitle ?testingInformation ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new custom control in Audit Manager."]
module CreateAssessmentResponse =
  struct
    type nonrec t = {
      assessment: Assessment.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessment = fun () -> { assessment }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "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)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("assessment", (Option.map x.assessment ~f:Assessment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessment =
        (Option.map ~f:Assessment.of_xml) (Xml.child xml_arg0 "assessment") in
      make ?assessment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessment = field_map json__ "assessment" Assessment.of_json in
      make ?assessment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an assessment in Audit Manager."]
module CreateAssessmentRequest =
  struct
    type nonrec t =
      {
      name: AssessmentName.t
        [@ocaml.doc "The name of the assessment to be created."];
      description: AssessmentDescription.t option
        [@ocaml.doc
          "The optional description of the assessment to be created."];
      assessmentReportsDestination: AssessmentReportsDestination.t
        [@ocaml.doc
          "The assessment report storage destination for the assessment that's being created."];
      scope: Scope.t ;
      roles: Roles.t [@ocaml.doc "The list of roles for the assessment."];
      frameworkId: UUID.t
        [@ocaml.doc
          "The identifier for the framework that the assessment will be created from."];
      tags: TagMap.t option
        [@ocaml.doc "The tags that are associated with the assessment."]}
    let context_ = "CreateAssessmentRequest"
    let make ?description =
      fun ?tags ->
        fun ~name ->
          fun ~assessmentReportsDestination ->
            fun ~scope ->
              fun ~roles ->
                fun ~frameworkId ->
                  fun () ->
                    {
                      description;
                      tags;
                      name;
                      assessmentReportsDestination;
                      scope;
                      roles;
                      frameworkId
                    }
    let to_value x =
      structure_to_value
        [("name", (Some (AssessmentName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:AssessmentDescription.to_value));
        ("assessmentReportsDestination",
          (Some
             (AssessmentReportsDestination.to_value
                x.assessmentReportsDestination)));
        ("scope", (Some (Scope.to_value x.scope)));
        ("roles", (Some (Roles.to_value x.roles)));
        ("frameworkId", (Some (UUID.to_value x.frameworkId)));
        ("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 frameworkId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "frameworkId") in
      let roles =
        Roles.of_xml (Xml.child_exn ~context:context_ xml_arg0 "roles") in
      let scope =
        Scope.of_xml (Xml.child_exn ~context:context_ xml_arg0 "scope") in
      let assessmentReportsDestination =
        AssessmentReportsDestination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "assessmentReportsDestination") in
      let description =
        (Option.map ~f:AssessmentDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        AssessmentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ~frameworkId ~roles ~scope ~assessmentReportsDestination
        ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let frameworkId = field_map_exn json__ "frameworkId" UUID.of_json in
      let roles = field_map_exn json__ "roles" Roles.of_json in
      let scope = field_map_exn json__ "scope" Scope.of_json in
      let assessmentReportsDestination =
        field_map_exn json__ "assessmentReportsDestination"
          AssessmentReportsDestination.of_json in
      let description =
        field_map json__ "description" AssessmentDescription.of_json in
      let name = field_map_exn json__ "name" AssessmentName.of_json in
      make ?tags ~frameworkId ~roles ~scope ~assessmentReportsDestination
        ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an assessment in Audit Manager."]
module CreateAssessmentReportResponse =
  struct
    type nonrec t =
      {
      assessmentReport: AssessmentReport.t option
        [@ocaml.doc
          "The new assessment report that the CreateAssessmentReport API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessmentReport = fun () -> { assessmentReport }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("assessmentReport",
           (Option.map x.assessmentReport ~f:AssessmentReport.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentReport =
        (Option.map ~f:AssessmentReport.of_xml)
          (Xml.child xml_arg0 "assessmentReport") in
      make ?assessmentReport ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentReport =
        field_map json__ "assessmentReport" AssessmentReport.of_json in
      make ?assessmentReport ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an assessment report for the specified assessment."]
module CreateAssessmentReportRequest =
  struct
    type nonrec t =
      {
      name: AssessmentReportName.t
        [@ocaml.doc "The name of the new assessment report."];
      description: AssessmentReportDescription.t option
        [@ocaml.doc "The description of the assessment report."];
      assessmentId: UUID.t [@ocaml.doc "The identifier for the assessment."];
      queryStatement: QueryStatement.t option
        [@ocaml.doc
          "A SQL statement that represents an evidence finder query. Provide this parameter when you want to generate an assessment report from the results of an evidence finder search query. When you use this parameter, Audit Manager generates a one-time report using only the evidence from the query output. This report does not include any assessment evidence that was manually added to a report using the console, or associated with a report using the API. To use this parameter, the enablementStatus of evidence finder must be ENABLED. For examples and help resolving queryStatement validation exceptions, see Troubleshooting evidence finder issues in the Audit Manager User Guide."]}
    let context_ = "CreateAssessmentReportRequest"
    let make ?description =
      fun ?queryStatement ->
        fun ~name ->
          fun ~assessmentId ->
            fun () -> { description; queryStatement; name; assessmentId }
    let to_value x =
      structure_to_value
        [("name", (Some (AssessmentReportName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:AssessmentReportDescription.to_value));
        ("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("queryStatement",
          (Option.map x.queryStatement ~f:QueryStatement.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queryStatement =
        (Option.map ~f:QueryStatement.of_xml)
          (Xml.child xml_arg0 "queryStatement") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      let description =
        (Option.map ~f:AssessmentReportDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        AssessmentReportName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?queryStatement ~assessmentId ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queryStatement =
        field_map json__ "queryStatement" QueryStatement.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      let description =
        field_map json__ "description" AssessmentReportDescription.of_json in
      let name = field_map_exn json__ "name" AssessmentReportName.of_json in
      make ?queryStatement ~assessmentId ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an assessment report for the specified assessment."]
module CreateAssessmentFrameworkResponse =
  struct
    type nonrec t =
      {
      framework: Framework.t option
        [@ocaml.doc
          "The new framework object that the CreateAssessmentFramework API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?framework = fun () -> { framework }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.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
        [("framework", (Option.map x.framework ~f:Framework.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let framework =
        (Option.map ~f:Framework.of_xml) (Xml.child xml_arg0 "framework") in
      make ?framework ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let framework = field_map json__ "framework" Framework.of_json in
      make ?framework ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a custom framework in Audit Manager."]
module CreateAssessmentFrameworkRequest =
  struct
    type nonrec t =
      {
      name: FrameworkName.t
        [@ocaml.doc "The name of the new custom framework."];
      description: FrameworkDescription.t option
        [@ocaml.doc "An optional description for the new custom framework."];
      complianceType: ComplianceType.t option
        [@ocaml.doc
          "The compliance type that the new custom framework supports, such as CIS or HIPAA."];
      controlSets: CreateAssessmentFrameworkControlSets.t
        [@ocaml.doc
          "The control sets that are associated with the framework. The Controls object returns a partial response when called through Framework APIs. For a complete Controls object, use GetControl."];
      tags: TagMap.t option
        [@ocaml.doc "The tags that are associated with the framework."]}
    let context_ = "CreateAssessmentFrameworkRequest"
    let make ?description =
      fun ?complianceType ->
        fun ?tags ->
          fun ~name ->
            fun ~controlSets ->
              fun () ->
                { description; complianceType; tags; name; controlSets }
    let to_value x =
      structure_to_value
        [("name", (Some (FrameworkName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:FrameworkDescription.to_value));
        ("complianceType",
          (Option.map x.complianceType ~f:ComplianceType.to_value));
        ("controlSets",
          (Some (CreateAssessmentFrameworkControlSets.to_value x.controlSets)));
        ("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 controlSets =
        CreateAssessmentFrameworkControlSets.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlSets") in
      let complianceType =
        (Option.map ~f:ComplianceType.of_xml)
          (Xml.child xml_arg0 "complianceType") in
      let description =
        (Option.map ~f:FrameworkDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        FrameworkName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ~controlSets ?complianceType ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let controlSets =
        field_map_exn json__ "controlSets"
          CreateAssessmentFrameworkControlSets.of_json in
      let complianceType =
        field_map json__ "complianceType" ComplianceType.of_json in
      let description =
        field_map json__ "description" FrameworkDescription.of_json in
      let name = field_map_exn json__ "name" FrameworkName.of_json in
      make ?tags ~controlSets ?complianceType ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a custom framework in Audit Manager."]
module BatchImportEvidenceToAssessmentControlResponse =
  struct
    type nonrec t =
      {
      errors: BatchImportEvidenceToAssessmentControlErrors.t option
        [@ocaml.doc
          "A list of errors that the BatchImportEvidenceToAssessmentControl API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?errors = fun () -> { errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("errors",
           (Option.map x.errors
              ~f:BatchImportEvidenceToAssessmentControlErrors.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchImportEvidenceToAssessmentControlErrors.of_xml)
          (Xml.child xml_arg0 "errors") in
      make ?errors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors"
          BatchImportEvidenceToAssessmentControlErrors.of_json in
      make ?errors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds one or more pieces of evidence to a control in an Audit Manager assessment. You can import manual evidence from any S3 bucket by specifying the S3 URI of the object. You can also upload a file from your browser, or enter plain text in response to a risk assessment question. The following restrictions apply to this action: manualEvidence can be only one of the following: evidenceFileName, s3ResourcePath, or textResponse Maximum size of an individual evidence file: 100 MB Number of daily manual evidence uploads per control: 100 Supported file formats: See Supported file types for manual evidence in the Audit Manager User Guide For more information about Audit Manager service restrictions, see Quotas and restrictions for Audit Manager."]
module BatchImportEvidenceToAssessmentControlRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t [@ocaml.doc "The identifier for the assessment."];
      controlSetId: ControlSetId.t
        [@ocaml.doc "The identifier for the control set."];
      controlId: UUID.t [@ocaml.doc "The identifier for the control."];
      manualEvidence: ManualEvidenceList.t
        [@ocaml.doc "The list of manual evidence objects."]}
    let context_ = "BatchImportEvidenceToAssessmentControlRequest"
    let make ~assessmentId =
      fun ~controlSetId ->
        fun ~controlId ->
          fun ~manualEvidence ->
            fun () ->
              { assessmentId; controlSetId; controlId; manualEvidence }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("controlSetId", (Some (ControlSetId.to_value x.controlSetId)));
        ("controlId", (Some (UUID.to_value x.controlId)));
        ("manualEvidence",
          (Some (ManualEvidenceList.to_value x.manualEvidence)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let manualEvidence =
        ManualEvidenceList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "manualEvidence") in
      let controlId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "controlId") in
      let controlSetId =
        ControlSetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "controlSetId") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ~manualEvidence ~controlId ~controlSetId ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let manualEvidence =
        field_map_exn json__ "manualEvidence" ManualEvidenceList.of_json in
      let controlId = field_map_exn json__ "controlId" UUID.of_json in
      let controlSetId =
        field_map_exn json__ "controlSetId" ControlSetId.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ~manualEvidence ~controlId ~controlSetId ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds one or more pieces of evidence to a control in an Audit Manager assessment. You can import manual evidence from any S3 bucket by specifying the S3 URI of the object. You can also upload a file from your browser, or enter plain text in response to a risk assessment question. The following restrictions apply to this action: manualEvidence can be only one of the following: evidenceFileName, s3ResourcePath, or textResponse Maximum size of an individual evidence file: 100 MB Number of daily manual evidence uploads per control: 100 Supported file formats: See Supported file types for manual evidence in the Audit Manager User Guide For more information about Audit Manager service restrictions, see Quotas and restrictions for Audit Manager."]
module BatchDisassociateAssessmentReportEvidenceResponse =
  struct
    type nonrec t =
      {
      evidenceIds: EvidenceIds.t option
        [@ocaml.doc "The identifier for the evidence."];
      errors: AssessmentReportEvidenceErrors.t option
        [@ocaml.doc
          "A list of errors that the BatchDisassociateAssessmentReportEvidence API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?evidenceIds = fun ?errors -> fun () -> { evidenceIds; errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("evidenceIds", (Option.map x.evidenceIds ~f:EvidenceIds.to_value));
        ("errors",
          (Option.map x.errors ~f:AssessmentReportEvidenceErrors.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:AssessmentReportEvidenceErrors.of_xml)
          (Xml.child xml_arg0 "errors") in
      let evidenceIds =
        (Option.map ~f:EvidenceIds.of_xml) (Xml.child xml_arg0 "evidenceIds") in
      make ?errors ?evidenceIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors" AssessmentReportEvidenceErrors.of_json in
      let evidenceIds = field_map json__ "evidenceIds" EvidenceIds.of_json in
      make ?errors ?evidenceIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a list of evidence from an assessment report in Audit Manager."]
module BatchDisassociateAssessmentReportEvidenceRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t [@ocaml.doc "The identifier for the assessment."];
      evidenceFolderId: UUID.t
        [@ocaml.doc
          "The identifier for the folder that the evidence is stored in."];
      evidenceIds: EvidenceIds.t
        [@ocaml.doc "The list of evidence identifiers."]}
    let context_ = "BatchDisassociateAssessmentReportEvidenceRequest"
    let make ~assessmentId =
      fun ~evidenceFolderId ->
        fun ~evidenceIds ->
          fun () -> { assessmentId; evidenceFolderId; evidenceIds }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("evidenceFolderId", (Some (UUID.to_value x.evidenceFolderId)));
        ("evidenceIds", (Some (EvidenceIds.to_value x.evidenceIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let evidenceIds =
        EvidenceIds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "evidenceIds") in
      let evidenceFolderId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "evidenceFolderId") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ~evidenceIds ~evidenceFolderId ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let evidenceIds =
        field_map_exn json__ "evidenceIds" EvidenceIds.of_json in
      let evidenceFolderId =
        field_map_exn json__ "evidenceFolderId" UUID.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ~evidenceIds ~evidenceFolderId ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a list of evidence from an assessment report in Audit Manager."]
module BatchDeleteDelegationByAssessmentResponse =
  struct
    type nonrec t =
      {
      errors: BatchDeleteDelegationByAssessmentErrors.t option
        [@ocaml.doc
          "A list of errors that the BatchDeleteDelegationByAssessment API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?errors = fun () -> { errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("errors",
           (Option.map x.errors
              ~f:BatchDeleteDelegationByAssessmentErrors.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchDeleteDelegationByAssessmentErrors.of_xml)
          (Xml.child xml_arg0 "errors") in
      make ?errors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors"
          BatchDeleteDelegationByAssessmentErrors.of_json in
      make ?errors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a batch of delegations for an assessment in Audit Manager."]
module BatchDeleteDelegationByAssessmentRequest =
  struct
    type nonrec t =
      {
      delegationIds: DelegationIds.t
        [@ocaml.doc "The identifiers for the delegations."];
      assessmentId: UUID.t [@ocaml.doc "The identifier for the assessment."]}
    let context_ = "BatchDeleteDelegationByAssessmentRequest"
    let make ~delegationIds =
      fun ~assessmentId -> fun () -> { delegationIds; assessmentId }
    let to_value x =
      structure_to_value
        [("delegationIds", (Some (DelegationIds.to_value x.delegationIds)));
        ("assessmentId", (Some (UUID.to_value x.assessmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      let delegationIds =
        DelegationIds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "delegationIds") in
      make ~assessmentId ~delegationIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      let delegationIds =
        field_map_exn json__ "delegationIds" DelegationIds.of_json in
      make ~assessmentId ~delegationIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a batch of delegations for an assessment in Audit Manager."]
module BatchCreateDelegationByAssessmentResponse =
  struct
    type nonrec t =
      {
      delegations: Delegations.t option
        [@ocaml.doc
          "The delegations that are associated with the assessment."];
      errors: BatchCreateDelegationByAssessmentErrors.t option
        [@ocaml.doc
          "A list of errors that the BatchCreateDelegationByAssessment API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?delegations = fun ?errors -> fun () -> { delegations; errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("delegations", (Option.map x.delegations ~f:Delegations.to_value));
        ("errors",
          (Option.map x.errors
             ~f:BatchCreateDelegationByAssessmentErrors.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchCreateDelegationByAssessmentErrors.of_xml)
          (Xml.child xml_arg0 "errors") in
      let delegations =
        (Option.map ~f:Delegations.of_xml) (Xml.child xml_arg0 "delegations") in
      make ?errors ?delegations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors"
          BatchCreateDelegationByAssessmentErrors.of_json in
      let delegations = field_map json__ "delegations" Delegations.of_json in
      make ?errors ?delegations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a batch of delegations for an assessment in Audit Manager."]
module BatchCreateDelegationByAssessmentRequest =
  struct
    type nonrec t =
      {
      createDelegationRequests: CreateDelegationRequests.t
        [@ocaml.doc
          "The API request to batch create delegations in Audit Manager."];
      assessmentId: UUID.t [@ocaml.doc "The identifier for the assessment."]}
    let context_ = "BatchCreateDelegationByAssessmentRequest"
    let make ~createDelegationRequests =
      fun ~assessmentId ->
        fun () -> { createDelegationRequests; assessmentId }
    let to_value x =
      structure_to_value
        [("createDelegationRequests",
           (Some
              (CreateDelegationRequests.to_value x.createDelegationRequests)));
        ("assessmentId", (Some (UUID.to_value x.assessmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      let createDelegationRequests =
        CreateDelegationRequests.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "createDelegationRequests") in
      make ~assessmentId ~createDelegationRequests ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      let createDelegationRequests =
        field_map_exn json__ "createDelegationRequests"
          CreateDelegationRequests.of_json in
      make ~assessmentId ~createDelegationRequests ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a batch of delegations for an assessment in Audit Manager."]
module BatchAssociateAssessmentReportEvidenceResponse =
  struct
    type nonrec t =
      {
      evidenceIds: EvidenceIds.t option
        [@ocaml.doc "The list of evidence identifiers."];
      errors: AssessmentReportEvidenceErrors.t option
        [@ocaml.doc
          "A list of errors that the BatchAssociateAssessmentReportEvidence API returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?evidenceIds = fun ?errors -> fun () -> { evidenceIds; errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("evidenceIds", (Option.map x.evidenceIds ~f:EvidenceIds.to_value));
        ("errors",
          (Option.map x.errors ~f:AssessmentReportEvidenceErrors.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:AssessmentReportEvidenceErrors.of_xml)
          (Xml.child xml_arg0 "errors") in
      let evidenceIds =
        (Option.map ~f:EvidenceIds.of_xml) (Xml.child xml_arg0 "evidenceIds") in
      make ?errors ?evidenceIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors" AssessmentReportEvidenceErrors.of_json in
      let evidenceIds = field_map json__ "evidenceIds" EvidenceIds.of_json in
      make ?errors ?evidenceIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a list of evidence to an assessment report in an Audit Manager assessment."]
module BatchAssociateAssessmentReportEvidenceRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t [@ocaml.doc "The identifier for the assessment."];
      evidenceFolderId: UUID.t
        [@ocaml.doc
          "The identifier for the folder that the evidence is stored in."];
      evidenceIds: EvidenceIds.t
        [@ocaml.doc "The list of evidence identifiers."]}
    let context_ = "BatchAssociateAssessmentReportEvidenceRequest"
    let make ~assessmentId =
      fun ~evidenceFolderId ->
        fun ~evidenceIds ->
          fun () -> { assessmentId; evidenceFolderId; evidenceIds }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("evidenceFolderId", (Some (UUID.to_value x.evidenceFolderId)));
        ("evidenceIds", (Some (EvidenceIds.to_value x.evidenceIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let evidenceIds =
        EvidenceIds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "evidenceIds") in
      let evidenceFolderId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "evidenceFolderId") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ~evidenceIds ~evidenceFolderId ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let evidenceIds =
        field_map_exn json__ "evidenceIds" EvidenceIds.of_json in
      let evidenceFolderId =
        field_map_exn json__ "evidenceFolderId" UUID.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ~evidenceIds ~evidenceFolderId ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a list of evidence to an assessment report in an Audit Manager assessment."]
module AssociateAssessmentReportEvidenceFolderResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
       "Associates an evidence folder to an assessment report in an Audit Manager assessment."]
module AssociateAssessmentReportEvidenceFolderRequest =
  struct
    type nonrec t =
      {
      assessmentId: UUID.t [@ocaml.doc "The identifier for the assessment."];
      evidenceFolderId: UUID.t
        [@ocaml.doc
          "The identifier for the folder that the evidence is stored in."]}
    let context_ = "AssociateAssessmentReportEvidenceFolderRequest"
    let make ~assessmentId =
      fun ~evidenceFolderId -> fun () -> { assessmentId; evidenceFolderId }
    let to_value x =
      structure_to_value
        [("assessmentId", (Some (UUID.to_value x.assessmentId)));
        ("evidenceFolderId", (Some (UUID.to_value x.evidenceFolderId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let evidenceFolderId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "evidenceFolderId") in
      let assessmentId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "assessmentId") in
      make ~evidenceFolderId ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let evidenceFolderId =
        field_map_exn json__ "evidenceFolderId" UUID.of_json in
      let assessmentId = field_map_exn json__ "assessmentId" UUID.of_json in
      make ~evidenceFolderId ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates an evidence folder to an assessment report in an Audit Manager assessment."]