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.aiops
let apiVersion = "2018-05-10"
let endpointPrefix = "aiops"
let serviceFullName = "AWS AI Ops"
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 ChatConfigurationArn =
  struct
    type nonrec t = string
    let context_ = "ChatConfigurationArn"
    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:"ChatConfigurationArn" j
    let to_json = simple_to_json to_value
  end
module RoleArn =
  struct
    type nonrec t = string
    let context_ = "RoleArn"
    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:"RoleArn" j
    let to_json = simple_to_json to_value
  end
module InvestigationGroupArn =
  struct
    type nonrec t = string
    let context_ = "InvestigationGroupArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:(aws|aws-us-gov|aws-cn|aws-iso|aws-iso-b):aiops:[a-zA-Z0-9-]*:[0-9]{12}:investigation-group\\/[A-Za-z0-9]{16}");
        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:"InvestigationGroupArn" j
    let to_json = simple_to_json to_value
  end
module StringWithPatternAndLengthLimits =
  struct
    type nonrec t = string
    let context_ = "StringWithPatternAndLengthLimits"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\-_A-Za-z0-9\\[\\]\\(\\)\\{\\}\\.: ]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StringWithPatternAndLengthLimits" j
    let to_json = simple_to_json to_value
  end
module ChatConfigurationArns =
  struct
    type nonrec t = ChatConfigurationArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ChatConfigurationArn.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:ChatConfigurationArn.of_xml)
    let of_json j =
      list_of_json ~kind:"ChatConfigurationArns"
        ~of_json:ChatConfigurationArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module SNSTopicArn =
  struct
    type nonrec t = string
    let context_ = "SNSTopicArn"
    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:"SNSTopicArn" j
    let to_json = simple_to_json to_value
  end
module CrossAccountConfiguration =
  struct
    type nonrec t =
      {
      sourceRoleArn: RoleArn.t option
        [@ocaml.doc
          "The ARN of an existing role which will be used to do investigations on your behalf."]}
    let make ?sourceRoleArn = fun () -> { sourceRoleArn }
    let to_value x =
      structure_to_value
        [("sourceRoleArn", (Option.map x.sourceRoleArn ~f:RoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceRoleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "sourceRoleArn") in
      make ?sourceRoleArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceRoleArn = field_map json__ "sourceRoleArn" RoleArn.of_json in
      make ?sourceRoleArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure contains information about the cross-account configuration in the account."]
module EncryptionConfigurationType =
  struct
    type nonrec t =
      | AWS_OWNED_KEY 
      | CUSTOMER_MANAGED_KMS_KEY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AWS_OWNED_KEY -> "AWS_OWNED_KEY"
      | CUSTOMER_MANAGED_KMS_KEY -> "CUSTOMER_MANAGED_KMS_KEY"
      | Non_static_id s -> s
    let of_string =
      function
      | "AWS_OWNED_KEY" -> AWS_OWNED_KEY
      | "CUSTOMER_MANAGED_KMS_KEY" -> CUSTOMER_MANAGED_KMS_KEY
      | 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 EncryptionConfigurationType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"EncryptionConfigurationType" j)
    let to_json = simple_to_json to_value
  end
module KmsKeyId =
  struct
    type nonrec t = string
    let context_ = "KmsKeyId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"arn:.*")));
        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:"KmsKeyId" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]+)")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module ListInvestigationGroupsModel =
  struct
    type nonrec t =
      {
      arn: InvestigationGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the investigation group."];
      name: StringWithPatternAndLengthLimits.t option
        [@ocaml.doc "The name of the investigation group."]}
    let make ?arn = fun ?name -> fun () -> { arn; name }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:InvestigationGroupArn.to_value));
        ("name",
          (Option.map x.name ~f:StringWithPatternAndLengthLimits.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:StringWithPatternAndLengthLimits.of_xml)
          (Xml.child xml_arg0 "name") in
      let arn =
        (Option.map ~f:InvestigationGroupArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?name ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map json__ "name" StringWithPatternAndLengthLimits.of_json in
      let arn = field_map json__ "arn" InvestigationGroupArn.of_json in
      make ?name ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This structure contains information about one investigation group in the account."]
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 ChatbotNotificationChannel =
  struct
    type nonrec t = (SNSTopicArn.t * ChatConfigurationArns.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types SNSTopicArn ChatConfigurationArns"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (SNSTopicArn.to_value x) |>
                    (fun x ->
                       (ChatConfigurationArns.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:SNSTopicArn.of_string
        ~of_json:ChatConfigurationArns.of_json j
    let to_json v = composed_to_json to_value v
  end
module CrossAccountConfigurations =
  struct
    type nonrec t = CrossAccountConfiguration.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:CrossAccountConfiguration.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:CrossAccountConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"CrossAccountConfigurations"
        ~of_json:CrossAccountConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module EncryptionConfiguration =
  struct
    type nonrec t =
      {
      type_: EncryptionConfigurationType.t option
        [@ocaml.doc
          "Displays whether investigation data is encrypted by a customer managed key or an Amazon Web Services owned key."];
      kmsKeyId: KmsKeyId.t option
        [@ocaml.doc
          "If the investigation group uses a customer managed key for encryption, this field displays the ID of that key."]}
    let make ?type_ = fun ?kmsKeyId -> fun () -> { type_; kmsKeyId }
    let to_value x =
      structure_to_value
        [("type",
           (Option.map x.type_ ~f:EncryptionConfigurationType.to_value));
        ("kmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "kmsKeyId") in
      let type_ =
        (Option.map ~f:EncryptionConfigurationType.of_xml)
          (Xml.child xml_arg0 "type") in
      make ?kmsKeyId ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyId = field_map json__ "kmsKeyId" KmsKeyId.of_json in
      let type_ = field_map json__ "type" EncryptionConfigurationType.of_json in
      make ?kmsKeyId ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use this structure to specify a customer managed KMS key to use to encrypt investigation data."]
module InvestigationGroupIdentifier =
  struct
    type nonrec t = string
    let context_ = "InvestigationGroupIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(?:[\\-_A-Za-z0-9]{1,512}|arn:(aws|aws-us-gov|aws-cn|aws-iso|aws-iso-b):aiops:[a-zA-Z0-9-]*:[0-9]{12}:investigation-group\\/[A-Za-z0-9]{16})");
        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:"InvestigationGroupIdentifier" j
    let to_json = simple_to_json to_value
  end
module TagKeyBoundaries =
  struct
    type nonrec t = TagKey.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j =
      list_of_json ~kind:"TagKeyBoundaries" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
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
       "You don't have sufficient permissions to perform this action."]
module ConflictException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation couldn't be completed because of a conflict in resource states."]
module ForbiddenException =
  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
       "Access id denied for this operation, or this operation is not valid for the specified resource."]
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 server error occurred. You can try again later."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource doesn't exist."]
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 throttled because of quota limits. You can try again later."]
module ValidationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation or its parameters aren't formatted correctly."]
module TagKeys =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeys" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module Tags =
  struct
    type nonrec t = (TagKey.t * TagValue.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 ->
                            ((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 InvestigationGroupPolicyDocument =
  struct
    type nonrec t = string
    let context_ = "InvestigationGroupPolicyDocument"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:32768) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0009\\u000A\\u000D\\u0020-\\u00FF]+")));
        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:"InvestigationGroupPolicyDocument" j
    let to_json = simple_to_json to_value
  end
module InvestigationGroups =
  struct
    type nonrec t = ListInvestigationGroupsModel.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:ListInvestigationGroupsModel.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:ListInvestigationGroupsModel.of_xml)
    let of_json j =
      list_of_json ~kind:"InvestigationGroups"
        ~of_json:ListInvestigationGroupsModel.of_json j
    let to_json v = composed_to_json to_value v
  end
module SensitiveStringWithLengthLimits =
  struct
    type nonrec t = string
    let context_ = "SensitiveStringWithLengthLimits"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SensitiveStringWithLengthLimits" j
    let to_json = simple_to_json to_value
  end
module ListInvestigationGroupsInputMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListInvestigationGroupsInputMaxResultsInteger"
           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 IdentifierStringWithPatternAndLengthLimits =
  struct
    type nonrec t = string
    let context_ = "IdentifierStringWithPatternAndLengthLimits"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[\\-_\\/A-Za-z0-9:\\.]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"IdentifierStringWithPatternAndLengthLimits" j
    let to_json = simple_to_json to_value
  end
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module Retention =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:90L) >>=
             (fun () -> check_int64_min i ~min:7L));
        i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "The resource that caused the quota exception."];
      resourceType: String_.t option
        [@ocaml.doc "The type of resource that caused the quota exception."];
      serviceCode: String_.t option
        [@ocaml.doc "This name of the service associated with the error."];
      quotaCode: String_.t option
        [@ocaml.doc "This quota that was exceeded."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?serviceCode ->
            fun ?quotaCode ->
              fun () ->
                { message; resourceId; resourceType; serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "This request exceeds a service quota."]
module UpdateInvestigationGroupRequest =
  struct
    type nonrec t =
      {
      identifier: InvestigationGroupIdentifier.t
        [@ocaml.doc
          "Specify either the name or the ARN of the investigation group that you want to modify."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "Specify this field if you want to change the IAM role that CloudWatch investigations will use when it gathers investigation data. To do so, specify the ARN of the new role. The permissions in this role determine which of your resources that CloudWatch investigations will have access to during investigations. For more information, see How to control what data CloudWatch investigations has access to during investigations."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "Use this structure if you want to use a customer managed KMS key to encrypt your investigation data. If you omit this parameter, CloudWatch investigations will use an Amazon Web Services key to encrypt the data. For more information, see Encryption of investigation data."];
      tagKeyBoundaries: TagKeyBoundaries.t option
        [@ocaml.doc
          "Enter the existing custom tag keys for custom applications in your system. Resource tags help CloudWatch investigations narrow the search space when it is unable to discover definite relationships between resources. For example, to discover that an Amazon ECS service depends on an Amazon RDS database, CloudWatch investigations can discover this relationship using data sources such as X-Ray and CloudWatch Application Signals. However, if you haven't deployed these features, CloudWatch investigations will attempt to identify possible relationships. Tag boundaries can be used to narrow the resources that will be discovered by CloudWatch investigations in these cases. You don't need to enter tags created by myApplications or CloudFormation, because CloudWatch investigations can automatically detect those tags."];
      chatbotNotificationChannel: ChatbotNotificationChannel.t option
        [@ocaml.doc
          "Use this structure to integrate CloudWatch investigations with chat applications. This structure is a string array. For the first string, specify the ARN of an Amazon SNS topic. For the array of strings, specify the ARNs of one or more chat applications configurations that you want to associate with that topic. For more information about these configuration ARNs, see Getting started with Amazon Q in chat applications and Resource type defined by Amazon Web Services Chatbot."];
      isCloudTrailEventHistoryEnabled: Boolean.t option
        [@ocaml.doc
          "Specify true to enable CloudWatch investigations to have access to change events that are recorded by CloudTrail. The default is true."];
      crossAccountConfigurations: CrossAccountConfigurations.t option
        [@ocaml.doc
          "Used to configure cross-account access for an investigation group. It allows the investigation group to access resources in other accounts."]}
    let context_ = "UpdateInvestigationGroupRequest"
    let make ?roleArn =
      fun ?encryptionConfiguration ->
        fun ?tagKeyBoundaries ->
          fun ?chatbotNotificationChannel ->
            fun ?isCloudTrailEventHistoryEnabled ->
              fun ?crossAccountConfigurations ->
                fun ~identifier ->
                  fun () ->
                    {
                      roleArn;
                      encryptionConfiguration;
                      tagKeyBoundaries;
                      chatbotNotificationChannel;
                      isCloudTrailEventHistoryEnabled;
                      crossAccountConfigurations;
                      identifier
                    }
    let to_value x =
      structure_to_value
        [("identifier",
           (Some (InvestigationGroupIdentifier.to_value x.identifier)));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("encryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("tagKeyBoundaries",
          (Option.map x.tagKeyBoundaries ~f:TagKeyBoundaries.to_value));
        ("chatbotNotificationChannel",
          (Option.map x.chatbotNotificationChannel
             ~f:ChatbotNotificationChannel.to_value));
        ("isCloudTrailEventHistoryEnabled",
          (Option.map x.isCloudTrailEventHistoryEnabled ~f:Boolean.to_value));
        ("crossAccountConfigurations",
          (Option.map x.crossAccountConfigurations
             ~f:CrossAccountConfigurations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossAccountConfigurations =
        (Option.map ~f:CrossAccountConfigurations.of_xml)
          (Xml.child xml_arg0 "crossAccountConfigurations") in
      let isCloudTrailEventHistoryEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "isCloudTrailEventHistoryEnabled") in
      let chatbotNotificationChannel =
        (Option.map ~f:ChatbotNotificationChannel.of_xml)
          (Xml.child xml_arg0 "chatbotNotificationChannel") in
      let tagKeyBoundaries =
        (Option.map ~f:TagKeyBoundaries.of_xml)
          (Xml.child xml_arg0 "tagKeyBoundaries") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let identifier =
        InvestigationGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ?crossAccountConfigurations ?isCloudTrailEventHistoryEnabled
        ?chatbotNotificationChannel ?tagKeyBoundaries
        ?encryptionConfiguration ?roleArn ~identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossAccountConfigurations =
        field_map json__ "crossAccountConfigurations"
          CrossAccountConfigurations.of_json in
      let isCloudTrailEventHistoryEnabled =
        field_map json__ "isCloudTrailEventHistoryEnabled" Boolean.of_json in
      let chatbotNotificationChannel =
        field_map json__ "chatbotNotificationChannel"
          ChatbotNotificationChannel.of_json in
      let tagKeyBoundaries =
        field_map json__ "tagKeyBoundaries" TagKeyBoundaries.of_json in
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let identifier =
        field_map_exn json__ "identifier"
          InvestigationGroupIdentifier.of_json in
      make ?crossAccountConfigurations ?isCloudTrailEventHistoryEnabled
        ?chatbotNotificationChannel ?tagKeyBoundaries
        ?encryptionConfiguration ?roleArn ~identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of the specified investigation group."]
module UpdateInvestigationGroupOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of the specified investigation group."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes one or more tags from the specified resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that you want to remove the tags from. You can use theListInvestigationGroups operation to find the ARNs of investigation groups."];
      tagKeys: TagKeys.t
        [@ocaml.doc "The list of tag keys to remove from the resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (String_.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeys.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeys.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeys.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" String_.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes one or more tags from the specified resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns one or more tags (key-value pairs) to the specified resource. Tags can help you organize and categorize your resources. You can also use them to scope user permissions by granting a user permission to access or change only resources with certain tag values. Tags don't have any semantic meaning to Amazon Web Services and are interpreted strictly as strings of characters. You can associate as many as 50 tags with a resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that you want to apply the tags to. You can use the ListInvestigationGroups operation to find the ARNs of investigation groups."];
      tags: Tags.t
        [@ocaml.doc
          "The list of key-value pairs to associate with the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (String_.to_value x.resourceArn)));
        ("tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        String_.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" Tags.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" String_.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns one or more tags (key-value pairs) to the specified resource. Tags can help you organize and categorize your resources. You can also use them to scope user permissions by granting a user permission to access or change only resources with certain tag values. Tags don't have any semantic meaning to Amazon Web Services and are interpreted strictly as strings of characters. You can associate as many as 50 tags with a resource."]
module PutInvestigationGroupPolicyResponse =
  struct
    type nonrec t =
      {
      investigationGroupArn: InvestigationGroupArn.t option
        [@ocaml.doc
          "The ARN of the investigation group that will use this policy."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.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 ?investigationGroupArn = fun () -> { investigationGroupArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.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
        [("investigationGroupArn",
           (Option.map x.investigationGroupArn
              ~f:InvestigationGroupArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let investigationGroupArn =
        (Option.map ~f:InvestigationGroupArn.of_xml)
          (Xml.child xml_arg0 "investigationGroupArn") in
      make ?investigationGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let investigationGroupArn =
        field_map json__ "investigationGroupArn"
          InvestigationGroupArn.of_json in
      make ?investigationGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an IAM resource policy and assigns it to the specified investigation group. If you create your investigation group with CreateInvestigationGroup and you want to enable CloudWatch alarms to create investigations and add events to investigations, you must use this operation to create a policy similar to this example. \\{ \"Version\": \"2008-10-17\", \"Statement\": \\[ \\{ \"Effect\": \"Allow\", \"Principal\": \\{ \"Service\": \"aiops.alarms.cloudwatch.amazonaws.com\" \\}, \"Action\": \\[ \"aiops:CreateInvestigation\", \"aiops:CreateInvestigationEvent\" \\], \"Resource\": \"*\", \"Condition\": \\{ \"StringEquals\": \\{ \"aws:SourceAccount\": \"account-id\" \\}, \"ArnLike\": \\{ \"aws:SourceArn\": \"arn:aws:cloudwatch:region:account-id:alarm:*\" \\} \\} \\} \\] \\}"]
module PutInvestigationGroupPolicyRequest =
  struct
    type nonrec t =
      {
      identifier: InvestigationGroupIdentifier.t
        [@ocaml.doc
          "Specify either the name or the ARN of the investigation group that you want to assign the policy to."];
      policy: InvestigationGroupPolicyDocument.t
        [@ocaml.doc "The policy, in JSON format."]}
    let context_ = "PutInvestigationGroupPolicyRequest"
    let make ~identifier = fun ~policy -> fun () -> { identifier; policy }
    let to_value x =
      structure_to_value
        [("identifier",
           (Some (InvestigationGroupIdentifier.to_value x.identifier)));
        ("policy",
          (Some (InvestigationGroupPolicyDocument.to_value x.policy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        InvestigationGroupPolicyDocument.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policy") in
      let identifier =
        InvestigationGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ~policy ~identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy =
        field_map_exn json__ "policy"
          InvestigationGroupPolicyDocument.of_json in
      let identifier =
        field_map_exn json__ "identifier"
          InvestigationGroupIdentifier.of_json in
      make ~policy ~identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an IAM resource policy and assigns it to the specified investigation group. If you create your investigation group with CreateInvestigationGroup and you want to enable CloudWatch alarms to create investigations and add events to investigations, you must use this operation to create a policy similar to this example. \\{ \"Version\": \"2008-10-17\", \"Statement\": \\[ \\{ \"Effect\": \"Allow\", \"Principal\": \\{ \"Service\": \"aiops.alarms.cloudwatch.amazonaws.com\" \\}, \"Action\": \\[ \"aiops:CreateInvestigation\", \"aiops:CreateInvestigationEvent\" \\], \"Resource\": \"*\", \"Condition\": \\{ \"StringEquals\": \\{ \"aws:SourceAccount\": \"account-id\" \\}, \"ArnLike\": \\{ \"aws:SourceArn\": \"arn:aws:cloudwatch:region:account-id:alarm:*\" \\} \\} \\} \\] \\}"]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The ARN of the CloudWatch investigations resource that you want to view tags for. You can use the ListInvestigationGroups operation to find the ARNs of investigation groups. The ARN format for an investigation group is arn:aws:aiops:Region:account-id:investigation-group:investigation-group-id ."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (String_.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        String_.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" String_.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays the tags associated with a CloudWatch investigations resource. Currently, investigation groups support tagging."]
module ListTagsForResourceOutput =
  struct
    type nonrec t =
      {
      tags: Tags.t option
        [@ocaml.doc
          "The list of tag keys and values associated with the resource you specified."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.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 ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.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 [("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.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" Tags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays the tags associated with a CloudWatch investigations resource. Currently, investigation groups support tagging."]
module ListInvestigationGroupsOutput =
  struct
    type nonrec t =
      {
      nextToken: SensitiveStringWithLengthLimits.t option
        [@ocaml.doc
          "Include this value in your next use of this operation to get the next set of service operations."];
      investigationGroups: InvestigationGroups.t option
        [@ocaml.doc
          "An array of structures, where each structure contains the information about one investigation group in the account."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?investigationGroups ->
        fun () -> { nextToken; investigationGroups }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken",
           (Option.map x.nextToken
              ~f:SensitiveStringWithLengthLimits.to_value));
        ("investigationGroups",
          (Option.map x.investigationGroups ~f:InvestigationGroups.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let investigationGroups =
        (Option.map ~f:InvestigationGroups.of_xml)
          (Xml.child xml_arg0 "investigationGroups") in
      let nextToken =
        (Option.map ~f:SensitiveStringWithLengthLimits.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?investigationGroups ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let investigationGroups =
        field_map json__ "investigationGroups" InvestigationGroups.of_json in
      let nextToken =
        field_map json__ "nextToken" SensitiveStringWithLengthLimits.of_json in
      make ?investigationGroups ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the ARN and name of each investigation group in the account."]
module ListInvestigationGroupsInput =
  struct
    type nonrec t =
      {
      nextToken: SensitiveStringWithLengthLimits.t option
        [@ocaml.doc
          "Include this value, if it was returned by the previous operation, to get the next set of service operations."];
      maxResults: ListInvestigationGroupsInputMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to return in one operation. If you omit this parameter, the default of 50 is used."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken",
           (Option.map x.nextToken
              ~f:SensitiveStringWithLengthLimits.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListInvestigationGroupsInputMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListInvestigationGroupsInputMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:SensitiveStringWithLengthLimits.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"
          ListInvestigationGroupsInputMaxResultsInteger.of_json in
      let nextToken =
        field_map json__ "nextToken" SensitiveStringWithLengthLimits.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the ARN and name of each investigation group in the account."]
module GetInvestigationGroupResponse =
  struct
    type nonrec t =
      {
      createdBy: IdentifierStringWithPatternAndLengthLimits.t option
        [@ocaml.doc
          "The name of the user who created the investigation group."];
      createdAt: Long.t option
        [@ocaml.doc
          "The date and time that the investigation group was created."];
      lastModifiedBy: IdentifierStringWithPatternAndLengthLimits.t option
        [@ocaml.doc
          "The name of the user who created the investigation group."];
      lastModifiedAt: Long.t option
        [@ocaml.doc
          "The date and time that the investigation group was most recently modified."];
      name: StringWithPatternAndLengthLimits.t option
        [@ocaml.doc "The name of the investigation group."];
      arn: InvestigationGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the investigation group."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM role that the investigation group uses for permissions to gather data."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "Specifies the customer managed KMS key that the investigation group uses to encrypt data, if there is one. If not, the investigation group uses an Amazon Web Services key to encrypt the data."];
      retentionInDays: Retention.t option
        [@ocaml.doc "Specifies how long that investigation data is kept."];
      chatbotNotificationChannel: ChatbotNotificationChannel.t option
        [@ocaml.doc
          "This structure is a string array. The first string is the ARN of a Amazon SNS topic. The array of strings display the ARNs of chat applications configurations that are associated with that topic. For more information about these configuration ARNs, see Getting started with Amazon Q in chat applications and Resource type defined by Amazon Web Services Chatbot."];
      tagKeyBoundaries: TagKeyBoundaries.t option
        [@ocaml.doc
          "Displays the custom tag keys for custom applications in your system that you have specified in the investigation group. Resource tags help CloudWatch investigations narrow the search space when it is unable to discover definite relationships between resources."];
      isCloudTrailEventHistoryEnabled: Boolean.t option
        [@ocaml.doc
          "Specifies whether CloudWatch investigationshas access to change events that are recorded by CloudTrail."];
      crossAccountConfigurations: CrossAccountConfigurations.t option
        [@ocaml.doc
          "Lists the AWSAccountId of the accounts configured for cross-account access and the results of the last scan performed on each account."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.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 ?createdBy =
      fun ?createdAt ->
        fun ?lastModifiedBy ->
          fun ?lastModifiedAt ->
            fun ?name ->
              fun ?arn ->
                fun ?roleArn ->
                  fun ?encryptionConfiguration ->
                    fun ?retentionInDays ->
                      fun ?chatbotNotificationChannel ->
                        fun ?tagKeyBoundaries ->
                          fun ?isCloudTrailEventHistoryEnabled ->
                            fun ?crossAccountConfigurations ->
                              fun () ->
                                {
                                  createdBy;
                                  createdAt;
                                  lastModifiedBy;
                                  lastModifiedAt;
                                  name;
                                  arn;
                                  roleArn;
                                  encryptionConfiguration;
                                  retentionInDays;
                                  chatbotNotificationChannel;
                                  tagKeyBoundaries;
                                  isCloudTrailEventHistoryEnabled;
                                  crossAccountConfigurations
                                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.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
        [("createdBy",
           (Option.map x.createdBy
              ~f:IdentifierStringWithPatternAndLengthLimits.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Long.to_value));
        ("lastModifiedBy",
          (Option.map x.lastModifiedBy
             ~f:IdentifierStringWithPatternAndLengthLimits.to_value));
        ("lastModifiedAt", (Option.map x.lastModifiedAt ~f:Long.to_value));
        ("name",
          (Option.map x.name ~f:StringWithPatternAndLengthLimits.to_value));
        ("arn", (Option.map x.arn ~f:InvestigationGroupArn.to_value));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("encryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("retentionInDays",
          (Option.map x.retentionInDays ~f:Retention.to_value));
        ("chatbotNotificationChannel",
          (Option.map x.chatbotNotificationChannel
             ~f:ChatbotNotificationChannel.to_value));
        ("tagKeyBoundaries",
          (Option.map x.tagKeyBoundaries ~f:TagKeyBoundaries.to_value));
        ("isCloudTrailEventHistoryEnabled",
          (Option.map x.isCloudTrailEventHistoryEnabled ~f:Boolean.to_value));
        ("crossAccountConfigurations",
          (Option.map x.crossAccountConfigurations
             ~f:CrossAccountConfigurations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossAccountConfigurations =
        (Option.map ~f:CrossAccountConfigurations.of_xml)
          (Xml.child xml_arg0 "crossAccountConfigurations") in
      let isCloudTrailEventHistoryEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "isCloudTrailEventHistoryEnabled") in
      let tagKeyBoundaries =
        (Option.map ~f:TagKeyBoundaries.of_xml)
          (Xml.child xml_arg0 "tagKeyBoundaries") in
      let chatbotNotificationChannel =
        (Option.map ~f:ChatbotNotificationChannel.of_xml)
          (Xml.child xml_arg0 "chatbotNotificationChannel") in
      let retentionInDays =
        (Option.map ~f:Retention.of_xml)
          (Xml.child xml_arg0 "retentionInDays") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let arn =
        (Option.map ~f:InvestigationGroupArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:StringWithPatternAndLengthLimits.of_xml)
          (Xml.child xml_arg0 "name") in
      let lastModifiedAt =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastModifiedAt") in
      let lastModifiedBy =
        (Option.map ~f:IdentifierStringWithPatternAndLengthLimits.of_xml)
          (Xml.child xml_arg0 "lastModifiedBy") in
      let createdAt =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "createdAt") in
      let createdBy =
        (Option.map ~f:IdentifierStringWithPatternAndLengthLimits.of_xml)
          (Xml.child xml_arg0 "createdBy") in
      make ?crossAccountConfigurations ?isCloudTrailEventHistoryEnabled
        ?tagKeyBoundaries ?chatbotNotificationChannel ?retentionInDays
        ?encryptionConfiguration ?roleArn ?arn ?name ?lastModifiedAt
        ?lastModifiedBy ?createdAt ?createdBy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossAccountConfigurations =
        field_map json__ "crossAccountConfigurations"
          CrossAccountConfigurations.of_json in
      let isCloudTrailEventHistoryEnabled =
        field_map json__ "isCloudTrailEventHistoryEnabled" Boolean.of_json in
      let tagKeyBoundaries =
        field_map json__ "tagKeyBoundaries" TagKeyBoundaries.of_json in
      let chatbotNotificationChannel =
        field_map json__ "chatbotNotificationChannel"
          ChatbotNotificationChannel.of_json in
      let retentionInDays =
        field_map json__ "retentionInDays" Retention.of_json in
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let arn = field_map json__ "arn" InvestigationGroupArn.of_json in
      let name =
        field_map json__ "name" StringWithPatternAndLengthLimits.of_json in
      let lastModifiedAt = field_map json__ "lastModifiedAt" Long.of_json in
      let lastModifiedBy =
        field_map json__ "lastModifiedBy"
          IdentifierStringWithPatternAndLengthLimits.of_json in
      let createdAt = field_map json__ "createdAt" Long.of_json in
      let createdBy =
        field_map json__ "createdBy"
          IdentifierStringWithPatternAndLengthLimits.of_json in
      make ?crossAccountConfigurations ?isCloudTrailEventHistoryEnabled
        ?tagKeyBoundaries ?chatbotNotificationChannel ?retentionInDays
        ?encryptionConfiguration ?roleArn ?arn ?name ?lastModifiedAt
        ?lastModifiedBy ?createdAt ?createdBy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the configuration information for the specified investigation group."]
module GetInvestigationGroupRequest =
  struct
    type nonrec t =
      {
      identifier: InvestigationGroupIdentifier.t
        [@ocaml.doc
          "Specify either the name or the ARN of the investigation group that you want to view. This is used to set the name of the investigation group."]}
    let context_ = "GetInvestigationGroupRequest"
    let make ~identifier = fun () -> { identifier }
    let to_value x =
      structure_to_value
        [("identifier",
           (Some (InvestigationGroupIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        InvestigationGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ~identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier =
        field_map_exn json__ "identifier"
          InvestigationGroupIdentifier.of_json in
      make ~identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the configuration information for the specified investigation group."]
module GetInvestigationGroupPolicyResponse =
  struct
    type nonrec t =
      {
      investigationGroupArn: InvestigationGroupArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the investigation group that you want to view the policy of."];
      policy: InvestigationGroupPolicyDocument.t option
        [@ocaml.doc "The policy, in JSON format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.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 ?investigationGroupArn =
      fun ?policy -> fun () -> { investigationGroupArn; policy }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.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
        [("investigationGroupArn",
           (Option.map x.investigationGroupArn
              ~f:InvestigationGroupArn.to_value));
        ("policy",
          (Option.map x.policy ~f:InvestigationGroupPolicyDocument.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:InvestigationGroupPolicyDocument.of_xml)
          (Xml.child xml_arg0 "policy") in
      let investigationGroupArn =
        (Option.map ~f:InvestigationGroupArn.of_xml)
          (Xml.child xml_arg0 "investigationGroupArn") in
      make ?policy ?investigationGroupArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy =
        field_map json__ "policy" InvestigationGroupPolicyDocument.of_json in
      let investigationGroupArn =
        field_map json__ "investigationGroupArn"
          InvestigationGroupArn.of_json in
      make ?policy ?investigationGroupArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the JSON of the IAM resource policy associated with the specified investigation group in a string. For example, \\{\\\"Version\\\":\\\"2012-10-17\\\",\\\"Statement\\\":\\[\\{\\\"Effect\\\":\\\"Allow\\\",\\\"Principal\\\":\\{\\\"Service\\\":\\\"aiops.alarms.cloudwatch.amazonaws.com\\\"\\},\\\"Action\\\":\\[\\\"aiops:CreateInvestigation\\\",\\\"aiops:CreateInvestigationEvent\\\"\\],\\\"Resource\\\":\\\"*\\\",\\\"Condition\\\":\\{\\\"StringEquals\\\":\\{\\\"aws:SourceAccount\\\":\\\"111122223333\\\"\\},\\\"ArnLike\\\":\\{\\\"aws:SourceArn\\\":\\\"arn:aws:cloudwatch:us-east-1:111122223333:alarm:*\\\"\\}\\}\\}\\]\\}."]
module GetInvestigationGroupPolicyRequest =
  struct
    type nonrec t =
      {
      identifier: InvestigationGroupIdentifier.t
        [@ocaml.doc
          "Specify either the name or the ARN of the investigation group that you want to view the policy of."]}
    let context_ = "GetInvestigationGroupPolicyRequest"
    let make ~identifier = fun () -> { identifier }
    let to_value x =
      structure_to_value
        [("identifier",
           (Some (InvestigationGroupIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        InvestigationGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ~identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier =
        field_map_exn json__ "identifier"
          InvestigationGroupIdentifier.of_json in
      make ~identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the JSON of the IAM resource policy associated with the specified investigation group in a string. For example, \\{\\\"Version\\\":\\\"2012-10-17\\\",\\\"Statement\\\":\\[\\{\\\"Effect\\\":\\\"Allow\\\",\\\"Principal\\\":\\{\\\"Service\\\":\\\"aiops.alarms.cloudwatch.amazonaws.com\\\"\\},\\\"Action\\\":\\[\\\"aiops:CreateInvestigation\\\",\\\"aiops:CreateInvestigationEvent\\\"\\],\\\"Resource\\\":\\\"*\\\",\\\"Condition\\\":\\{\\\"StringEquals\\\":\\{\\\"aws:SourceAccount\\\":\\\"111122223333\\\"\\},\\\"ArnLike\\\":\\{\\\"aws:SourceArn\\\":\\\"arn:aws:cloudwatch:us-east-1:111122223333:alarm:*\\\"\\}\\}\\}\\]\\}."]
module DeleteInvestigationGroupRequest =
  struct
    type nonrec t =
      {
      identifier: InvestigationGroupIdentifier.t
        [@ocaml.doc
          "Specify either the name or the ARN of the investigation group that you want to delete."]}
    let context_ = "DeleteInvestigationGroupRequest"
    let make ~identifier = fun () -> { identifier }
    let to_value x =
      structure_to_value
        [("identifier",
           (Some (InvestigationGroupIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        InvestigationGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ~identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier =
        field_map_exn json__ "identifier"
          InvestigationGroupIdentifier.of_json in
      make ~identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified investigation group from your account. You can currently have one investigation group per Region in your account. After you delete an investigation group, you can later create a new investigation group in the same Region."]
module DeleteInvestigationGroupPolicyRequest =
  struct
    type nonrec t =
      {
      identifier: InvestigationGroupIdentifier.t
        [@ocaml.doc
          "Specify either the name or the ARN of the investigation group that you want to remove the policy from."]}
    let context_ = "DeleteInvestigationGroupPolicyRequest"
    let make ~identifier = fun () -> { identifier }
    let to_value x =
      structure_to_value
        [("identifier",
           (Some (InvestigationGroupIdentifier.to_value x.identifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifier =
        InvestigationGroupIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "identifier") in
      make ~identifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifier =
        field_map_exn json__ "identifier"
          InvestigationGroupIdentifier.of_json in
      make ~identifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the IAM resource policy from being associated with the investigation group that you specify."]
module DeleteInvestigationGroupPolicyOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the IAM resource policy from being associated with the investigation group that you specify."]
module CreateInvestigationGroupOutput =
  struct
    type nonrec t =
      {
      arn: InvestigationGroupArn.t option
        [@ocaml.doc
          "The ARN of the investigation group that you just created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.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 ?arn = fun () -> { arn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.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
        [("arn", (Option.map x.arn ~f:InvestigationGroupArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        (Option.map ~f:InvestigationGroupArn.of_xml)
          (Xml.child xml_arg0 "arn") in
      make ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map json__ "arn" InvestigationGroupArn.of_json in
      make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an investigation group in your account. Creating an investigation group is a one-time setup task for each Region in your account. It is a necessary task to be able to perform investigations. Settings in the investigation group help you centrally manage the common properties of your investigations, such as the following: Who can access the investigations Whether investigation data is encrypted with a customer managed Key Management Service key. How long investigations and their data are retained by default. Currently, you can have one investigation group in each Region in your account. Each investigation in a Region is a part of the investigation group in that Region To create an investigation group and set up CloudWatch investigations, you must be signed in to an IAM principal that has either the AIOpsConsoleAdminPolicy or the AdministratorAccess IAM policy attached, or to an account that has similar permissions. You can configure CloudWatch alarms to start investigations and add events to investigations. If you create your investigation group with CreateInvestigationGroup and you want to enable alarms to do this, you must use PutInvestigationGroupPolicy to create a resource policy that grants this permission to CloudWatch alarms. For more information about configuring CloudWatch alarms, see Using Amazon CloudWatch alarms"]
module CreateInvestigationGroupInput =
  struct
    type nonrec t =
      {
      name: StringWithPatternAndLengthLimits.t
        [@ocaml.doc "Provides a name for the investigation group."];
      roleArn: RoleArn.t
        [@ocaml.doc
          "Specify the ARN of the IAM role that CloudWatch investigations will use when it gathers investigation data. The permissions in this role determine which of your resources that CloudWatch investigations will have access to during investigations. For more information, see How to control what data CloudWatch investigations has access to during investigations."];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc
          "Use this structure if you want to use a customer managed KMS key to encrypt your investigation data. If you omit this parameter, CloudWatch investigations will use an Amazon Web Services key to encrypt the data. For more information, see Encryption of investigation data."];
      retentionInDays: Retention.t option
        [@ocaml.doc
          "Specify how long that investigation data is kept. For more information, see Operational investigation data retention. If you omit this parameter, the default of 90 days is used."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of key-value pairs to associate with the investigation group. You can associate as many as 50 tags with an investigation group. To be able to associate tags when you create the investigation group, you must have the cloudwatch:TagResource permission. Tags can help you organize and categorize your resources. You can also use them to scope user permissions by granting a user permission to access or change only resources with certain tag values."];
      tagKeyBoundaries: TagKeyBoundaries.t option
        [@ocaml.doc
          "Enter the existing custom tag keys for custom applications in your system. Resource tags help CloudWatch investigations narrow the search space when it is unable to discover definite relationships between resources. For example, to discover that an Amazon ECS service depends on an Amazon RDS database, CloudWatch investigations can discover this relationship using data sources such as X-Ray and CloudWatch Application Signals. However, if you haven't deployed these features, CloudWatch investigations will attempt to identify possible relationships. Tag boundaries can be used to narrow the resources that will be discovered by CloudWatch investigations in these cases. You don't need to enter tags created by myApplications or CloudFormation, because CloudWatch investigations can automatically detect those tags."];
      chatbotNotificationChannel: ChatbotNotificationChannel.t option
        [@ocaml.doc
          "Use this structure to integrate CloudWatch investigations with chat applications. This structure is a string array. For the first string, specify the ARN of an Amazon SNS topic. For the array of strings, specify the ARNs of one or more chat applications configurations that you want to associate with that topic. For more information about these configuration ARNs, see Getting started with Amazon Q in chat applications and Resource type defined by Amazon Web Services Chatbot."];
      isCloudTrailEventHistoryEnabled: Boolean.t option
        [@ocaml.doc
          "Specify true to enable CloudWatch investigations to have access to change events that are recorded by CloudTrail. The default is true."];
      crossAccountConfigurations: CrossAccountConfigurations.t option
        [@ocaml.doc
          "List of sourceRoleArn values that have been configured for cross-account access."]}
    let context_ = "CreateInvestigationGroupInput"
    let make ?encryptionConfiguration =
      fun ?retentionInDays ->
        fun ?tags ->
          fun ?tagKeyBoundaries ->
            fun ?chatbotNotificationChannel ->
              fun ?isCloudTrailEventHistoryEnabled ->
                fun ?crossAccountConfigurations ->
                  fun ~name ->
                    fun ~roleArn ->
                      fun () ->
                        {
                          encryptionConfiguration;
                          retentionInDays;
                          tags;
                          tagKeyBoundaries;
                          chatbotNotificationChannel;
                          isCloudTrailEventHistoryEnabled;
                          crossAccountConfigurations;
                          name;
                          roleArn
                        }
    let to_value x =
      structure_to_value
        [("name", (Some (StringWithPatternAndLengthLimits.to_value x.name)));
        ("roleArn", (Some (RoleArn.to_value x.roleArn)));
        ("encryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("retentionInDays",
          (Option.map x.retentionInDays ~f:Retention.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("tagKeyBoundaries",
          (Option.map x.tagKeyBoundaries ~f:TagKeyBoundaries.to_value));
        ("chatbotNotificationChannel",
          (Option.map x.chatbotNotificationChannel
             ~f:ChatbotNotificationChannel.to_value));
        ("isCloudTrailEventHistoryEnabled",
          (Option.map x.isCloudTrailEventHistoryEnabled ~f:Boolean.to_value));
        ("crossAccountConfigurations",
          (Option.map x.crossAccountConfigurations
             ~f:CrossAccountConfigurations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossAccountConfigurations =
        (Option.map ~f:CrossAccountConfigurations.of_xml)
          (Xml.child xml_arg0 "crossAccountConfigurations") in
      let isCloudTrailEventHistoryEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "isCloudTrailEventHistoryEnabled") in
      let chatbotNotificationChannel =
        (Option.map ~f:ChatbotNotificationChannel.of_xml)
          (Xml.child xml_arg0 "chatbotNotificationChannel") in
      let tagKeyBoundaries =
        (Option.map ~f:TagKeyBoundaries.of_xml)
          (Xml.child xml_arg0 "tagKeyBoundaries") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let retentionInDays =
        (Option.map ~f:Retention.of_xml)
          (Xml.child xml_arg0 "retentionInDays") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      let roleArn =
        RoleArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "roleArn") in
      let name =
        StringWithPatternAndLengthLimits.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?crossAccountConfigurations ?isCloudTrailEventHistoryEnabled
        ?chatbotNotificationChannel ?tagKeyBoundaries ?tags ?retentionInDays
        ?encryptionConfiguration ~roleArn ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossAccountConfigurations =
        field_map json__ "crossAccountConfigurations"
          CrossAccountConfigurations.of_json in
      let isCloudTrailEventHistoryEnabled =
        field_map json__ "isCloudTrailEventHistoryEnabled" Boolean.of_json in
      let chatbotNotificationChannel =
        field_map json__ "chatbotNotificationChannel"
          ChatbotNotificationChannel.of_json in
      let tagKeyBoundaries =
        field_map json__ "tagKeyBoundaries" TagKeyBoundaries.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let retentionInDays =
        field_map json__ "retentionInDays" Retention.of_json in
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      let roleArn = field_map_exn json__ "roleArn" RoleArn.of_json in
      let name =
        field_map_exn json__ "name" StringWithPatternAndLengthLimits.of_json in
      make ?crossAccountConfigurations ?isCloudTrailEventHistoryEnabled
        ?chatbotNotificationChannel ?tagKeyBoundaries ?tags ?retentionInDays
        ?encryptionConfiguration ~roleArn ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an investigation group in your account. Creating an investigation group is a one-time setup task for each Region in your account. It is a necessary task to be able to perform investigations. Settings in the investigation group help you centrally manage the common properties of your investigations, such as the following: Who can access the investigations Whether investigation data is encrypted with a customer managed Key Management Service key. How long investigations and their data are retained by default. Currently, you can have one investigation group in each Region in your account. Each investigation in a Region is a part of the investigation group in that Region To create an investigation group and set up CloudWatch investigations, you must be signed in to an IAM principal that has either the AIOpsConsoleAdminPolicy or the AdministratorAccess IAM policy attached, or to an account that has similar permissions. You can configure CloudWatch alarms to start investigations and add events to investigations. If you create your investigation group with CreateInvestigationGroup and you want to enable alarms to do this, you must use PutInvestigationGroupPolicy to create a resource policy that grants this permission to CloudWatch alarms. For more information about configuring CloudWatch alarms, see Using Amazon CloudWatch alarms"]