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.ds
let apiVersion = "2015-04-16"
let endpointPrefix = "ds"
let serviceFullName = "AWS Directory Service"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Directory Service"
let targetPrefix = "DirectoryService_20150416"
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 AssessmentInstanceId =
  struct
    type nonrec t = string
    let context_ = "AssessmentInstanceId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^(i-[0-9a-f]{8}|i-[0-9a-f]{17}|mi-[0-9a-f]{8}|mi-[0-9a-f]{17})$");
        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:"AssessmentInstanceId" j
    let to_json = simple_to_json to_value
  end
module IpAddr =
  struct
    type nonrec t = string
    let context_ = "IpAddr"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$");
        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:"IpAddr" j
    let to_json = simple_to_json to_value
  end
module AvailabilityZone =
  struct
    type nonrec t = string
    let context_ = "AvailabilityZone"
    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:"AvailabilityZone" j
    let to_json = simple_to_json to_value
  end
module SubnetId =
  struct
    type nonrec t = string
    let context_ = "SubnetId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^(subnet-[0-9a-f]{8}|subnet-[0-9a-f]{17})$");
        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:"SubnetId" j
    let to_json = simple_to_json to_value
  end
module Server =
  struct
    type nonrec t = string
    let context_ = "Server"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Server" j
    let to_json = simple_to_json to_value
  end
module OSVersion =
  struct
    type nonrec t =
      | SERVER_2012 
      | SERVER_2019 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SERVER_2012 -> "SERVER_2012"
      | SERVER_2019 -> "SERVER_2019"
      | Non_static_id s -> s
    let of_string =
      function
      | "SERVER_2012" -> SERVER_2012
      | "SERVER_2019" -> SERVER_2019
      | 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 OSVersion" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OSVersion" j)
    let to_json = simple_to_json to_value
  end
module AssessmentInstanceIds =
  struct
    type nonrec t = AssessmentInstanceId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:2));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AssessmentInstanceId.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:AssessmentInstanceId.of_xml)
    let of_json j =
      list_of_json ~kind:"AssessmentInstanceIds"
        ~of_json:AssessmentInstanceId.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomerDnsIps =
  struct
    type nonrec t = IpAddr.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:2));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IpAddr.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:IpAddr.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomerDnsIps" ~of_json:IpAddr.of_json j
    let to_json v = composed_to_json to_value v
  end
module Ipv6Addr =
  struct
    type nonrec t = string
    let context_ = "Ipv6Addr"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^(([0-9a-fA-F]{1,4}:){7,7}[0-9a-fA-F]{1,4}|([0-9a-fA-F]{1,4}:){1,7}:|([0-9a-fA-F]{1,4}:){1,6}:[0-9a-fA-F]{1,4}|([0-9a-fA-F]{1,4}:){1,5}(:[0-9a-fA-F]{1,4}){1,2}|([0-9a-fA-F]{1,4}:){1,4}(:[0-9a-fA-F]{1,4}){1,3}|([0-9a-fA-F]{1,4}:){1,3}(:[0-9a-fA-F]{1,4}){1,4}|([0-9a-fA-F]{1,4}:){1,2}(:[0-9a-fA-F]{1,4}){1,5}|[0-9a-fA-F]{1,4}:((:[0-9a-fA-F]{1,4}){1,6})|:((:[0-9a-fA-F]{1,4}){1,7}|:)|fe80:(:[0-9a-fA-F]{0,4}){0,4}%[0-9a-zA-Z]{1,}|::(ffff(:0{1,4}){0,1}:){0,1}((25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])\\.){3}(25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])|([0-9a-fA-F]{1,4}:){1,4}:((25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])\\.){3}(25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9]))$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Ipv6Addr" j
    let to_json = simple_to_json to_value
  end
module AvailabilityZones =
  struct
    type nonrec t = AvailabilityZone.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:AvailabilityZone.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:AvailabilityZone.of_xml)
    let of_json j =
      list_of_json ~kind:"AvailabilityZones"
        ~of_json:AvailabilityZone.of_json j
    let to_json v = composed_to_json to_value v
  end
module SecurityGroupId =
  struct
    type nonrec t = string
    let context_ = "SecurityGroupId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^(sg-[0-9a-f]{8}|sg-[0-9a-f]{17})$");
        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:"SecurityGroupId" j
    let to_json = simple_to_json to_value
  end
module SubnetIds =
  struct
    type nonrec t = SubnetId.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:SubnetId.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:SubnetId.of_xml)
    let of_json j =
      list_of_json ~kind:"SubnetIds" ~of_json:SubnetId.of_json j
    let to_json v = composed_to_json to_value v
  end
module VpcId =
  struct
    type nonrec t = string
    let context_ = "VpcId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^(vpc-[0-9a-f]{8}|vpc-[0-9a-f]{17})$");
        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:"VpcId" j
    let to_json = simple_to_json to_value
  end
module PortNumber =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:65535) >>=
             (fun () -> check_int_min i ~min:1025));
        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 PortNumber" 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 RadiusAuthenticationProtocol =
  struct
    type nonrec t =
      | PAP 
      | CHAP 
      | MS_CHAPv1 
      | MS_CHAPv2 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PAP -> "PAP"
      | CHAP -> "CHAP"
      | MS_CHAPv1 -> "MS-CHAPv1"
      | MS_CHAPv2 -> "MS-CHAPv2"
      | Non_static_id s -> s
    let of_string =
      function
      | "PAP" -> PAP
      | "CHAP" -> CHAP
      | "MS-CHAPv1" -> MS_CHAPv1
      | "MS-CHAPv2" -> MS_CHAPv2
      | 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 RadiusAuthenticationProtocol"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RadiusAuthenticationProtocol" j)
    let to_json = simple_to_json to_value
  end
module RadiusDisplayLabel =
  struct
    type nonrec t = string
    let context_ = "RadiusDisplayLabel"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RadiusDisplayLabel" j
    let to_json = simple_to_json to_value
  end
module RadiusRetries =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min:0));
        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 RadiusRetries" 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 RadiusSharedSecret =
  struct
    type nonrec t = string
    let context_ = "RadiusSharedSecret"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:8) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^(\\p{LD}|\\p{Punct}| )+$")));
        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:"RadiusSharedSecret" j
    let to_json = simple_to_json to_value
  end
module RadiusTimeout =
  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 RadiusTimeout" 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 Servers =
  struct
    type nonrec t = Server.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:Server.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:Server.of_xml)
    let of_json j = list_of_json ~kind:"Servers" ~of_json:Server.of_json j
    let to_json v = composed_to_json to_value v
  end
module UseSameUsername =
  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 RegionName =
  struct
    type nonrec t = string
    let context_ = "RegionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:32) >>=
             (fun () -> check_string_min i ~min:8));
        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:"RegionName" j
    let to_json = simple_to_json to_value
  end
module AssessmentValidationCategory =
  struct
    type nonrec t = string
    let context_ = "AssessmentValidationCategory"
    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:"AssessmentValidationCategory" j
    let to_json = simple_to_json to_value
  end
module AssessmentValidationName =
  struct
    type nonrec t = string
    let context_ = "AssessmentValidationName"
    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:"AssessmentValidationName" j
    let to_json = simple_to_json to_value
  end
module AssessmentValidationStatus =
  struct
    type nonrec t = string
    let context_ = "AssessmentValidationStatus"
    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:"AssessmentValidationStatus" j
    let to_json = simple_to_json to_value
  end
module AssessmentValidationStatusCode =
  struct
    type nonrec t = string
    let context_ = "AssessmentValidationStatusCode"
    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:"AssessmentValidationStatusCode" j
    let to_json = simple_to_json to_value
  end
module AssessmentValidationStatusReason =
  struct
    type nonrec t = string
    let context_ = "AssessmentValidationStatusReason"
    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:"AssessmentValidationStatusReason" j
    let to_json = simple_to_json to_value
  end
module AssessmentValidationTimeStamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module OSUpdateSettings =
  struct
    type nonrec t =
      {
      oSVersion: OSVersion.t option
        [@ocaml.doc "OS version that the directory needs to be updated to."]}
    let make ?oSVersion = fun () -> { oSVersion }
    let to_value x =
      structure_to_value
        [("OSVersion", (Option.map x.oSVersion ~f:OSVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let oSVersion =
        (Option.map ~f:OSVersion.of_xml) (Xml.child xml_arg0 "OSVersion") in
      make ?oSVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let oSVersion = field_map json__ "OSVersion" OSVersion.of_json in
      make ?oSVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "OS version that the directory needs to be updated to."]
module DirectoryConfigurationStatus =
  struct
    type nonrec t =
      | Requested 
      | Updating 
      | Updated 
      | Failed 
      | Default 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Requested -> "Requested"
      | Updating -> "Updating"
      | Updated -> "Updated"
      | Failed -> "Failed"
      | Default -> "Default"
      | Non_static_id s -> s
    let of_string =
      function
      | "Requested" -> Requested
      | "Updating" -> Updating
      | "Updated" -> Updated
      | "Failed" -> Failed
      | "Default" -> Default
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration DirectoryConfigurationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DirectoryConfigurationStatus" j)
    let to_json = simple_to_json to_value
  end
module AssessmentId =
  struct
    type nonrec t = string
    let context_ = "AssessmentId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^da-[0-9a-f]{18}$"); 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:"AssessmentId" j
    let to_json = simple_to_json to_value
  end
module HybridUpdateValue =
  struct
    type nonrec t =
      {
      instanceIds: AssessmentInstanceIds.t option
        [@ocaml.doc
          "The identifiers of the self-managed instances with SSM in the hybrid directory configuration."];
      dnsIps: CustomerDnsIps.t option
        [@ocaml.doc
          "The IP addresses of the DNS servers or domain controllers in the hybrid directory configuration."]}
    let make ?instanceIds = fun ?dnsIps -> fun () -> { instanceIds; dnsIps }
    let to_value x =
      structure_to_value
        [("InstanceIds",
           (Option.map x.instanceIds ~f:AssessmentInstanceIds.to_value));
        ("DnsIps", (Option.map x.dnsIps ~f:CustomerDnsIps.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dnsIps =
        (Option.map ~f:CustomerDnsIps.of_xml) (Xml.child xml_arg0 "DnsIps") in
      let instanceIds =
        (Option.map ~f:AssessmentInstanceIds.of_xml)
          (Xml.child xml_arg0 "InstanceIds") in
      make ?dnsIps ?instanceIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dnsIps = field_map json__ "DnsIps" CustomerDnsIps.of_json in
      let instanceIds =
        field_map json__ "InstanceIds" AssessmentInstanceIds.of_json in
      make ?dnsIps ?instanceIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the configuration values for a hybrid directory update, including Amazon Web Services System Manager managed node and DNS information."]
module InitiatedBy =
  struct
    type nonrec t = string
    let context_ = "InitiatedBy"
    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:"InitiatedBy" j
    let to_json = simple_to_json to_value
  end
module LastUpdatedDateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module StartDateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module UpdateStatus =
  struct
    type nonrec t =
      | Updated 
      | Updating 
      | UpdateFailed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Updated -> "Updated"
      | Updating -> "Updating"
      | UpdateFailed -> "UpdateFailed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Updated" -> Updated
      | "Updating" -> Updating
      | "UpdateFailed" -> UpdateFailed
      | 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 UpdateStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UpdateStatus" j)
    let to_json = simple_to_json to_value
  end
module UpdateStatusReason =
  struct
    type nonrec t = string
    let context_ = "UpdateStatusReason"
    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:"UpdateStatusReason" j
    let to_json = simple_to_json to_value
  end
module IpAddrs =
  struct
    type nonrec t = IpAddr.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:IpAddr.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:IpAddr.of_xml)
    let of_json j = list_of_json ~kind:"IpAddrs" ~of_json:IpAddr.of_json j
    let to_json v = composed_to_json to_value v
  end
module IpV6Addrs =
  struct
    type nonrec t = Ipv6Addr.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:Ipv6Addr.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:Ipv6Addr.of_xml)
    let of_json j =
      list_of_json ~kind:"IpV6Addrs" ~of_json:Ipv6Addr.of_json j
    let to_json v = composed_to_json to_value v
  end
module UserName =
  struct
    type nonrec t = string
    let context_ = "UserName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () -> check_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:"UserName" j
    let to_json = simple_to_json to_value
  end
module CustomerId =
  struct
    type nonrec t = string
    let context_ = "CustomerId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^(\\d{12})$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CustomerId" j
    let to_json = simple_to_json to_value
  end
module DirectoryId =
  struct
    type nonrec t = string
    let context_ = "DirectoryId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^d-[0-9a-f]{10}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DirectoryId" j
    let to_json = simple_to_json to_value
  end
module DirectoryVpcSettingsDescription =
  struct
    type nonrec t =
      {
      vpcId: VpcId.t option
        [@ocaml.doc "The identifier of the VPC that the directory is in."];
      subnetIds: SubnetIds.t option
        [@ocaml.doc
          "The identifiers of the subnets for the directory servers."];
      securityGroupId: SecurityGroupId.t option
        [@ocaml.doc
          "The domain controller security group identifier for the directory."];
      availabilityZones: AvailabilityZones.t option
        [@ocaml.doc
          "The list of Availability Zones that the directory is in."]}
    let make ?vpcId =
      fun ?subnetIds ->
        fun ?securityGroupId ->
          fun ?availabilityZones ->
            fun () ->
              { vpcId; subnetIds; securityGroupId; availabilityZones }
    let to_value x =
      structure_to_value
        [("VpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("SubnetIds", (Option.map x.subnetIds ~f:SubnetIds.to_value));
        ("SecurityGroupId",
          (Option.map x.securityGroupId ~f:SecurityGroupId.to_value));
        ("AvailabilityZones",
          (Option.map x.availabilityZones ~f:AvailabilityZones.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZones =
        (Option.map ~f:AvailabilityZones.of_xml)
          (Xml.child xml_arg0 "AvailabilityZones") in
      let securityGroupId =
        (Option.map ~f:SecurityGroupId.of_xml)
          (Xml.child xml_arg0 "SecurityGroupId") in
      let subnetIds =
        (Option.map ~f:SubnetIds.of_xml) (Xml.child xml_arg0 "SubnetIds") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "VpcId") in
      make ?availabilityZones ?securityGroupId ?subnetIds ?vpcId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZones =
        field_map json__ "AvailabilityZones" AvailabilityZones.of_json in
      let securityGroupId =
        field_map json__ "SecurityGroupId" SecurityGroupId.of_json in
      let subnetIds = field_map json__ "SubnetIds" SubnetIds.of_json in
      let vpcId = field_map json__ "VpcId" VpcId.of_json in
      make ?availabilityZones ?securityGroupId ?subnetIds ?vpcId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about the directory."]
module DnsIpAddrs =
  struct
    type nonrec t = IpAddr.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:IpAddr.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:IpAddr.of_xml)
    let of_json j = list_of_json ~kind:"DnsIpAddrs" ~of_json:IpAddr.of_json j
    let to_json v = composed_to_json to_value v
  end
module DnsIpv6Addrs =
  struct
    type nonrec t = Ipv6Addr.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:Ipv6Addr.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:Ipv6Addr.of_xml)
    let of_json j =
      list_of_json ~kind:"DnsIpv6Addrs" ~of_json:Ipv6Addr.of_json j
    let to_json v = composed_to_json to_value v
  end
module NetworkType =
  struct
    type nonrec t =
      | Dual_stack 
      | IPv4 
      | IPv6 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Dual_stack -> "Dual-stack"
      | IPv4 -> "IPv4"
      | IPv6 -> "IPv6"
      | Non_static_id s -> s
    let of_string =
      function
      | "Dual-stack" -> Dual_stack
      | "IPv4" -> IPv4
      | "IPv6" -> IPv6
      | 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 NetworkType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"NetworkType" j)
    let to_json = simple_to_json to_value
  end
module RadiusSettings =
  struct
    type nonrec t =
      {
      radiusServers: Servers.t option
        [@ocaml.doc
          "The fully qualified domain name (FQDN) or IP addresses of the RADIUS server endpoints, or the FQDN or IP addresses of your RADIUS server load balancer."];
      radiusServersIpv6: Servers.t option
        [@ocaml.doc
          "The IPv6 addresses of the RADIUS server endpoints or RADIUS server load balancer."];
      radiusPort: PortNumber.t option
        [@ocaml.doc
          "The port that your RADIUS server is using for communications. Your self-managed network must allow inbound traffic over this port from the Directory Service servers."];
      radiusTimeout: RadiusTimeout.t option
        [@ocaml.doc
          "The amount of time, in seconds, to wait for the RADIUS server to respond."];
      radiusRetries: RadiusRetries.t option
        [@ocaml.doc
          "The maximum number of times that communication with the RADIUS server is retried after the initial attempt."];
      sharedSecret: RadiusSharedSecret.t option
        [@ocaml.doc "Required for enabling RADIUS on the directory."];
      authenticationProtocol: RadiusAuthenticationProtocol.t option
        [@ocaml.doc "The protocol specified for your RADIUS endpoints."];
      displayLabel: RadiusDisplayLabel.t option
        [@ocaml.doc "Not currently used."];
      useSameUsername: UseSameUsername.t option
        [@ocaml.doc "Not currently used."]}
    let make ?radiusServers =
      fun ?radiusServersIpv6 ->
        fun ?radiusPort ->
          fun ?radiusTimeout ->
            fun ?radiusRetries ->
              fun ?sharedSecret ->
                fun ?authenticationProtocol ->
                  fun ?displayLabel ->
                    fun ?useSameUsername ->
                      fun () ->
                        {
                          radiusServers;
                          radiusServersIpv6;
                          radiusPort;
                          radiusTimeout;
                          radiusRetries;
                          sharedSecret;
                          authenticationProtocol;
                          displayLabel;
                          useSameUsername
                        }
    let to_value x =
      structure_to_value
        [("RadiusServers", (Option.map x.radiusServers ~f:Servers.to_value));
        ("RadiusServersIpv6",
          (Option.map x.radiusServersIpv6 ~f:Servers.to_value));
        ("RadiusPort", (Option.map x.radiusPort ~f:PortNumber.to_value));
        ("RadiusTimeout",
          (Option.map x.radiusTimeout ~f:RadiusTimeout.to_value));
        ("RadiusRetries",
          (Option.map x.radiusRetries ~f:RadiusRetries.to_value));
        ("SharedSecret",
          (Option.map x.sharedSecret ~f:RadiusSharedSecret.to_value));
        ("AuthenticationProtocol",
          (Option.map x.authenticationProtocol
             ~f:RadiusAuthenticationProtocol.to_value));
        ("DisplayLabel",
          (Option.map x.displayLabel ~f:RadiusDisplayLabel.to_value));
        ("UseSameUsername",
          (Option.map x.useSameUsername ~f:UseSameUsername.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let useSameUsername =
        (Option.map ~f:UseSameUsername.of_xml)
          (Xml.child xml_arg0 "UseSameUsername") in
      let displayLabel =
        (Option.map ~f:RadiusDisplayLabel.of_xml)
          (Xml.child xml_arg0 "DisplayLabel") in
      let authenticationProtocol =
        (Option.map ~f:RadiusAuthenticationProtocol.of_xml)
          (Xml.child xml_arg0 "AuthenticationProtocol") in
      let sharedSecret =
        (Option.map ~f:RadiusSharedSecret.of_xml)
          (Xml.child xml_arg0 "SharedSecret") in
      let radiusRetries =
        (Option.map ~f:RadiusRetries.of_xml)
          (Xml.child xml_arg0 "RadiusRetries") in
      let radiusTimeout =
        (Option.map ~f:RadiusTimeout.of_xml)
          (Xml.child xml_arg0 "RadiusTimeout") in
      let radiusPort =
        (Option.map ~f:PortNumber.of_xml) (Xml.child xml_arg0 "RadiusPort") in
      let radiusServersIpv6 =
        (Option.map ~f:Servers.of_xml)
          (Xml.child xml_arg0 "RadiusServersIpv6") in
      let radiusServers =
        (Option.map ~f:Servers.of_xml) (Xml.child xml_arg0 "RadiusServers") in
      make ?useSameUsername ?displayLabel ?authenticationProtocol
        ?sharedSecret ?radiusRetries ?radiusTimeout ?radiusPort
        ?radiusServersIpv6 ?radiusServers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let useSameUsername =
        field_map json__ "UseSameUsername" UseSameUsername.of_json in
      let displayLabel =
        field_map json__ "DisplayLabel" RadiusDisplayLabel.of_json in
      let authenticationProtocol =
        field_map json__ "AuthenticationProtocol"
          RadiusAuthenticationProtocol.of_json in
      let sharedSecret =
        field_map json__ "SharedSecret" RadiusSharedSecret.of_json in
      let radiusRetries =
        field_map json__ "RadiusRetries" RadiusRetries.of_json in
      let radiusTimeout =
        field_map json__ "RadiusTimeout" RadiusTimeout.of_json in
      let radiusPort = field_map json__ "RadiusPort" PortNumber.of_json in
      let radiusServersIpv6 =
        field_map json__ "RadiusServersIpv6" Servers.of_json in
      let radiusServers = field_map json__ "RadiusServers" Servers.of_json in
      make ?useSameUsername ?displayLabel ?authenticationProtocol
        ?sharedSecret ?radiusRetries ?radiusTimeout ?radiusPort
        ?radiusServersIpv6 ?radiusServers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a Remote Authentication Dial In User Service (RADIUS) server."]
module RadiusStatus =
  struct
    type nonrec t =
      | Creating 
      | Completed 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Creating -> "Creating"
      | Completed -> "Completed"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Creating" -> Creating
      | "Completed" -> Completed
      | "Failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration RadiusStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RadiusStatus" j)
    let to_json = simple_to_json to_value
  end
module AdditionalRegions =
  struct
    type nonrec t = RegionName.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:RegionName.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:RegionName.of_xml)
    let of_json j =
      list_of_json ~kind:"AdditionalRegions" ~of_json:RegionName.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssessmentValidation =
  struct
    type nonrec t =
      {
      category: AssessmentValidationCategory.t option
        [@ocaml.doc "The category of the validation test."];
      name: AssessmentValidationName.t option
        [@ocaml.doc
          "The name of the specific validation test performed within the category."];
      status: AssessmentValidationStatus.t option
        [@ocaml.doc
          "The result status of the validation test. Valid values include SUCCESS, FAILED, PENDING, and IN_PROGRESS."];
      statusCode: AssessmentValidationStatusCode.t option
        [@ocaml.doc
          "A detailed status code providing additional information about the validation result."];
      statusReason: AssessmentValidationStatusReason.t option
        [@ocaml.doc
          "A human-readable description of the validation result, including any error details or recommendations."];
      startTime: AssessmentValidationTimeStamp.t option
        [@ocaml.doc
          "The date and time when the validation test was started."];
      lastUpdateDateTime: AssessmentValidationTimeStamp.t option
        [@ocaml.doc
          "The date and time when the validation test was completed or last updated."]}
    let make ?category =
      fun ?name ->
        fun ?status ->
          fun ?statusCode ->
            fun ?statusReason ->
              fun ?startTime ->
                fun ?lastUpdateDateTime ->
                  fun () ->
                    {
                      category;
                      name;
                      status;
                      statusCode;
                      statusReason;
                      startTime;
                      lastUpdateDateTime
                    }
    let to_value x =
      structure_to_value
        [("Category",
           (Option.map x.category ~f:AssessmentValidationCategory.to_value));
        ("Name", (Option.map x.name ~f:AssessmentValidationName.to_value));
        ("Status",
          (Option.map x.status ~f:AssessmentValidationStatus.to_value));
        ("StatusCode",
          (Option.map x.statusCode ~f:AssessmentValidationStatusCode.to_value));
        ("StatusReason",
          (Option.map x.statusReason
             ~f:AssessmentValidationStatusReason.to_value));
        ("StartTime",
          (Option.map x.startTime ~f:AssessmentValidationTimeStamp.to_value));
        ("LastUpdateDateTime",
          (Option.map x.lastUpdateDateTime
             ~f:AssessmentValidationTimeStamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdateDateTime =
        (Option.map ~f:AssessmentValidationTimeStamp.of_xml)
          (Xml.child xml_arg0 "LastUpdateDateTime") in
      let startTime =
        (Option.map ~f:AssessmentValidationTimeStamp.of_xml)
          (Xml.child xml_arg0 "StartTime") in
      let statusReason =
        (Option.map ~f:AssessmentValidationStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let statusCode =
        (Option.map ~f:AssessmentValidationStatusCode.of_xml)
          (Xml.child xml_arg0 "StatusCode") in
      let status =
        (Option.map ~f:AssessmentValidationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let name =
        (Option.map ~f:AssessmentValidationName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let category =
        (Option.map ~f:AssessmentValidationCategory.of_xml)
          (Xml.child xml_arg0 "Category") in
      make ?lastUpdateDateTime ?startTime ?statusReason ?statusCode ?status
        ?name ?category ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdateDateTime =
        field_map json__ "LastUpdateDateTime"
          AssessmentValidationTimeStamp.of_json in
      let startTime =
        field_map json__ "StartTime" AssessmentValidationTimeStamp.of_json in
      let statusReason =
        field_map json__ "StatusReason"
          AssessmentValidationStatusReason.of_json in
      let statusCode =
        field_map json__ "StatusCode" AssessmentValidationStatusCode.of_json in
      let status =
        field_map json__ "Status" AssessmentValidationStatus.of_json in
      let name = field_map json__ "Name" AssessmentValidationName.of_json in
      let category =
        field_map json__ "Category" AssessmentValidationCategory.of_json in
      make ?lastUpdateDateTime ?startTime ?statusReason ?statusCode ?status
        ?name ?category ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a specific validation test performed during a directory assessment."]
module AttributeName =
  struct
    type nonrec t = string
    let context_ = "AttributeName"
    let make i =
      let open Result in ok_or_failwith (check_string_min i ~min:1); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AttributeName" j
    let to_json = simple_to_json to_value
  end
module AttributeValue =
  struct
    type nonrec t = string
    let context_ = "AttributeValue"
    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:"AttributeValue" j
    let to_json = simple_to_json to_value
  end
module DirectoryConfigurationSettingName =
  struct
    type nonrec t = string
    let context_ = "DirectoryConfigurationSettingName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9-/. _]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"DirectoryConfigurationSettingName" j
    let to_json = simple_to_json to_value
  end
module DirectoryConfigurationSettingValue =
  struct
    type nonrec t = string
    let context_ = "DirectoryConfigurationSettingValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9_]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"DirectoryConfigurationSettingValue" 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 TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\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 Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([a-zA-Z0-9_])[\\\\a-zA-Z0-9_@#%*+=:?./!\\s-]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Description" j
    let to_json = simple_to_json to_value
  end
module EndDateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module SchemaExtensionId =
  struct
    type nonrec t = string
    let context_ = "SchemaExtensionId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^e-[0-9a-f]{10}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SchemaExtensionId" j
    let to_json = simple_to_json to_value
  end
module SchemaExtensionStatus =
  struct
    type nonrec t =
      | Initializing 
      | CreatingSnapshot 
      | UpdatingSchema 
      | Replicating 
      | CancelInProgress 
      | RollbackInProgress 
      | Cancelled 
      | Failed 
      | Completed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Initializing -> "Initializing"
      | CreatingSnapshot -> "CreatingSnapshot"
      | UpdatingSchema -> "UpdatingSchema"
      | Replicating -> "Replicating"
      | CancelInProgress -> "CancelInProgress"
      | RollbackInProgress -> "RollbackInProgress"
      | Cancelled -> "Cancelled"
      | Failed -> "Failed"
      | Completed -> "Completed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Initializing" -> Initializing
      | "CreatingSnapshot" -> CreatingSnapshot
      | "UpdatingSchema" -> UpdatingSchema
      | "Replicating" -> Replicating
      | "CancelInProgress" -> CancelInProgress
      | "RollbackInProgress" -> RollbackInProgress
      | "Cancelled" -> Cancelled
      | "Failed" -> Failed
      | "Completed" -> Completed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration SchemaExtensionStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SchemaExtensionStatus" j)
    let to_json = simple_to_json to_value
  end
module SchemaExtensionStatusReason =
  struct
    type nonrec t = string
    let context_ = "SchemaExtensionStatusReason"
    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:"SchemaExtensionStatusReason" j
    let to_json = simple_to_json to_value
  end
module LogGroupName =
  struct
    type nonrec t = string
    let context_ = "LogGroupName"
    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:"LogGroupName" j
    let to_json = simple_to_json to_value
  end
module SubscriptionCreatedDateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module AddedDateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module CidrIp =
  struct
    type nonrec t = string
    let context_ = "CidrIp"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^(([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])\\.){3}([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])(\\/([1-9]|[1-2][0-9]|3[0-2]))$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CidrIp" j
    let to_json = simple_to_json to_value
  end
module CidrIpv6 =
  struct
    type nonrec t = string
    let context_ = "CidrIpv6"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^((([0-9a-fA-F]{1,4}:){7}[0-9a-fA-F]{1,4})|(([0-9a-fA-F]{1,4}:){1,7}:)|(([0-9a-fA-F]{1,4}:){1,6}:[0-9a-fA-F]{1,4})|(([0-9a-fA-F]{1,4}:){1,5}(:[0-9a-fA-F]{1,4}){1,2})|(([0-9a-fA-F]{1,4}:){1,4}(:[0-9a-fA-F]{1,4}){1,3})|(([0-9a-fA-F]{1,4}:){1,3}(:[0-9a-fA-F]{1,4}){1,4})|(([0-9a-fA-F]{1,4}:){1,2}(:[0-9a-fA-F]{1,4}){1,5})|([0-9a-fA-F]{1,4}:((:[0-9a-fA-F]{1,4}){1,6}))|(:((:[0-9a-fA-F]{1,4}){1,7}|:)))\\/(12[0-8]|1[01][0-9]|[1-9]?[0-9])$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CidrIpv6" j
    let to_json = simple_to_json to_value
  end
module IpRouteStatusMsg =
  struct
    type nonrec t =
      | Adding 
      | Added 
      | Removing 
      | Removed 
      | AddFailed 
      | RemoveFailed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Adding -> "Adding"
      | Added -> "Added"
      | Removing -> "Removing"
      | Removed -> "Removed"
      | AddFailed -> "AddFailed"
      | RemoveFailed -> "RemoveFailed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Adding" -> Adding
      | "Added" -> Added
      | "Removing" -> Removing
      | "Removed" -> Removed
      | "AddFailed" -> AddFailed
      | "RemoveFailed" -> RemoveFailed
      | 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 IpRouteStatusMsg" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IpRouteStatusMsg" j)
    let to_json = simple_to_json to_value
  end
module IpRouteStatusReason =
  struct
    type nonrec t = string
    let context_ = "IpRouteStatusReason"
    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:"IpRouteStatusReason" j
    let to_json = simple_to_json to_value
  end
module CertificateCN =
  struct
    type nonrec t = string
    let context_ = "CertificateCN"
    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:"CertificateCN" j
    let to_json = simple_to_json to_value
  end
module CertificateExpiryDateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module CertificateId =
  struct
    type nonrec t = string
    let context_ = "CertificateId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^c-[0-9a-f]{10}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CertificateId" j
    let to_json = simple_to_json to_value
  end
module CertificateState =
  struct
    type nonrec t =
      | Registering 
      | Registered 
      | RegisterFailed 
      | Deregistering 
      | Deregistered 
      | DeregisterFailed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Registering -> "Registering"
      | Registered -> "Registered"
      | RegisterFailed -> "RegisterFailed"
      | Deregistering -> "Deregistering"
      | Deregistered -> "Deregistered"
      | DeregisterFailed -> "DeregisterFailed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Registering" -> Registering
      | "Registered" -> Registered
      | "RegisterFailed" -> RegisterFailed
      | "Deregistering" -> Deregistering
      | "Deregistered" -> Deregistered
      | "DeregisterFailed" -> DeregisterFailed
      | 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 CertificateState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CertificateState" j)
    let to_json = simple_to_json to_value
  end
module CertificateType =
  struct
    type nonrec t =
      | ClientCertAuth 
      | ClientLDAPS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ClientCertAuth -> "ClientCertAuth"
      | ClientLDAPS -> "ClientLDAPS"
      | Non_static_id s -> s
    let of_string =
      function
      | "ClientCertAuth" -> ClientCertAuth
      | "ClientLDAPS" -> ClientLDAPS
      | 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 CertificateType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CertificateType" j)
    let to_json = simple_to_json to_value
  end
module AssessmentReportType =
  struct
    type nonrec t = string
    let context_ = "AssessmentReportType"
    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:"AssessmentReportType" j
    let to_json = simple_to_json to_value
  end
module AssessmentStartTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module AssessmentStatus =
  struct
    type nonrec t = string
    let context_ = "AssessmentStatus"
    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:"AssessmentStatus" j
    let to_json = simple_to_json to_value
  end
module DirectoryName =
  struct
    type nonrec t = string
    let context_ = "DirectoryName"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^([a-zA-Z0-9]+[\\\\.-])+([a-zA-Z0-9])+$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DirectoryName" j
    let to_json = simple_to_json to_value
  end
module LastUpdateDateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module UpdateValue =
  struct
    type nonrec t =
      {
      oSUpdateSettings: OSUpdateSettings.t option
        [@ocaml.doc "The OS update related settings."]}
    let make ?oSUpdateSettings = fun () -> { oSUpdateSettings }
    let to_value x =
      structure_to_value
        [("OSUpdateSettings",
           (Option.map x.oSUpdateSettings ~f:OSUpdateSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let oSUpdateSettings =
        (Option.map ~f:OSUpdateSettings.of_xml)
          (Xml.child xml_arg0 "OSUpdateSettings") in
      make ?oSUpdateSettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let oSUpdateSettings =
        field_map json__ "OSUpdateSettings" OSUpdateSettings.of_json in
      make ?oSUpdateSettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The value for a given type of UpdateSettings."]
module CreatedDateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module RemoteDomainName =
  struct
    type nonrec t = string
    let context_ = "RemoteDomainName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^([a-zA-Z0-9]+[\\\\.-])+([a-zA-Z0-9])+[.]?$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RemoteDomainName" j
    let to_json = simple_to_json to_value
  end
module SelectiveAuth =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "Enabled"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enabled" -> Enabled
      | "Disabled" -> Disabled
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration SelectiveAuth" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SelectiveAuth" j)
    let to_json = simple_to_json to_value
  end
module StateLastUpdatedDateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module TrustDirection =
  struct
    type nonrec t =
      | One_Way__Outgoing 
      | One_Way__Incoming 
      | Two_Way 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | One_Way__Outgoing -> "One-Way: Outgoing"
      | One_Way__Incoming -> "One-Way: Incoming"
      | Two_Way -> "Two-Way"
      | Non_static_id s -> s
    let of_string =
      function
      | "One-Way: Outgoing" -> One_Way__Outgoing
      | "One-Way: Incoming" -> One_Way__Incoming
      | "Two-Way" -> Two_Way
      | 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 TrustDirection" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TrustDirection" j)
    let to_json = simple_to_json to_value
  end
module TrustId =
  struct
    type nonrec t = string
    let context_ = "TrustId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^t-[0-9a-f]{10}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TrustId" j
    let to_json = simple_to_json to_value
  end
module TrustState =
  struct
    type nonrec t =
      | Creating 
      | Created 
      | Verifying 
      | VerifyFailed 
      | Verified 
      | Updating 
      | UpdateFailed 
      | Updated 
      | Deleting 
      | Deleted 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Creating -> "Creating"
      | Created -> "Created"
      | Verifying -> "Verifying"
      | VerifyFailed -> "VerifyFailed"
      | Verified -> "Verified"
      | Updating -> "Updating"
      | UpdateFailed -> "UpdateFailed"
      | Updated -> "Updated"
      | Deleting -> "Deleting"
      | Deleted -> "Deleted"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Creating" -> Creating
      | "Created" -> Created
      | "Verifying" -> Verifying
      | "VerifyFailed" -> VerifyFailed
      | "Verified" -> Verified
      | "Updating" -> Updating
      | "UpdateFailed" -> UpdateFailed
      | "Updated" -> Updated
      | "Deleting" -> Deleting
      | "Deleted" -> Deleted
      | "Failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration TrustState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TrustState" j)
    let to_json = simple_to_json to_value
  end
module TrustStateReason =
  struct
    type nonrec t = string
    let context_ = "TrustStateReason"
    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:"TrustStateReason" j
    let to_json = simple_to_json to_value
  end
module TrustType =
  struct
    type nonrec t =
      | Forest 
      | External 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Forest -> "Forest"
      | External -> "External"
      | Non_static_id s -> s
    let of_string =
      function
      | "Forest" -> Forest
      | "External" -> External
      | 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 TrustType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TrustType" j)
    let to_json = simple_to_json to_value
  end
module SnapshotId =
  struct
    type nonrec t = string
    let context_ = "SnapshotId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^s-[0-9a-f]{10}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SnapshotId" j
    let to_json = simple_to_json to_value
  end
module SnapshotName =
  struct
    type nonrec t = string
    let context_ = "SnapshotName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([a-zA-Z0-9_])[\\\\a-zA-Z0-9_@#%*+=:?./!\\s-]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SnapshotName" j
    let to_json = simple_to_json to_value
  end
module SnapshotStatus =
  struct
    type nonrec t =
      | Creating 
      | Completed 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Creating -> "Creating"
      | Completed -> "Completed"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Creating" -> Creating
      | "Completed" -> Completed
      | "Failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration SnapshotStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SnapshotStatus" j)
    let to_json = simple_to_json to_value
  end
module SnapshotType =
  struct
    type nonrec t =
      | Auto 
      | Manual 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Auto -> "Auto" | Manual -> "Manual" | Non_static_id s -> s
    let of_string =
      function | "Auto" -> Auto | "Manual" -> Manual | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration SnapshotType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SnapshotType" j)
    let to_json = simple_to_json to_value
  end
module StartTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module Notes =
  struct
    type nonrec t = string
    let context_ = "Notes"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1024); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Notes" j
    let to_json = simple_to_json to_value
  end
module ShareMethod =
  struct
    type nonrec t =
      | ORGANIZATIONS 
      | HANDSHAKE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ORGANIZATIONS -> "ORGANIZATIONS"
      | HANDSHAKE -> "HANDSHAKE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ORGANIZATIONS" -> ORGANIZATIONS
      | "HANDSHAKE" -> HANDSHAKE
      | 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 ShareMethod" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ShareMethod" j)
    let to_json = simple_to_json to_value
  end
module ShareStatus =
  struct
    type nonrec t =
      | Shared 
      | PendingAcceptance 
      | Rejected 
      | Rejecting 
      | RejectFailed 
      | Sharing 
      | ShareFailed 
      | Deleted 
      | Deleting 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Shared -> "Shared"
      | PendingAcceptance -> "PendingAcceptance"
      | Rejected -> "Rejected"
      | Rejecting -> "Rejecting"
      | RejectFailed -> "RejectFailed"
      | Sharing -> "Sharing"
      | ShareFailed -> "ShareFailed"
      | Deleted -> "Deleted"
      | Deleting -> "Deleting"
      | Non_static_id s -> s
    let of_string =
      function
      | "Shared" -> Shared
      | "PendingAcceptance" -> PendingAcceptance
      | "Rejected" -> Rejected
      | "Rejecting" -> Rejecting
      | "RejectFailed" -> RejectFailed
      | "Sharing" -> Sharing
      | "ShareFailed" -> ShareFailed
      | "Deleted" -> Deleted
      | "Deleting" -> Deleting
      | 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 ShareStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ShareStatus" j)
    let to_json = simple_to_json to_value
  end
module DirectoryConfigurationSettingAllowedValues =
  struct
    type nonrec t = string
    let context_ = "DirectoryConfigurationSettingAllowedValues"
    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:"DirectoryConfigurationSettingAllowedValues" j
    let to_json = simple_to_json to_value
  end
module DirectoryConfigurationSettingDataType =
  struct
    type nonrec t = string
    let context_ = "DirectoryConfigurationSettingDataType"
    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:"DirectoryConfigurationSettingDataType" j
    let to_json = simple_to_json to_value
  end
module DirectoryConfigurationSettingLastRequestedDateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module DirectoryConfigurationSettingLastUpdatedDateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module DirectoryConfigurationSettingRequestDetailedStatus =
  struct
    type nonrec t = (RegionName.t * DirectoryConfigurationStatus.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 ->
                            ((RegionName.of_string chopped),
                              (DirectoryConfigurationStatus.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (RegionName.to_value x) |>
                    (fun x ->
                       (DirectoryConfigurationStatus.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:RegionName.of_string
        ~of_json:DirectoryConfigurationStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module DirectoryConfigurationSettingRequestStatusMessage =
  struct
    type nonrec t = string
    let context_ = "DirectoryConfigurationSettingRequestStatusMessage"
    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:"DirectoryConfigurationSettingRequestStatusMessage" j
    let to_json = simple_to_json to_value
  end
module DirectoryConfigurationSettingType =
  struct
    type nonrec t = string
    let context_ = "DirectoryConfigurationSettingType"
    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:"DirectoryConfigurationSettingType" j
    let to_json = simple_to_json to_value
  end
module DesiredNumberOfDomainControllers =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:2); 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 DesiredNumberOfDomainControllers" 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 DirectoryStage =
  struct
    type nonrec t =
      | Requested 
      | Creating 
      | Created 
      | Active 
      | Inoperable 
      | Impaired 
      | Restoring 
      | RestoreFailed 
      | Deleting 
      | Deleted 
      | Failed 
      | Updating 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Requested -> "Requested"
      | Creating -> "Creating"
      | Created -> "Created"
      | Active -> "Active"
      | Inoperable -> "Inoperable"
      | Impaired -> "Impaired"
      | Restoring -> "Restoring"
      | RestoreFailed -> "RestoreFailed"
      | Deleting -> "Deleting"
      | Deleted -> "Deleted"
      | Failed -> "Failed"
      | Updating -> "Updating"
      | Non_static_id s -> s
    let of_string =
      function
      | "Requested" -> Requested
      | "Creating" -> Creating
      | "Created" -> Created
      | "Active" -> Active
      | "Inoperable" -> Inoperable
      | "Impaired" -> Impaired
      | "Restoring" -> Restoring
      | "RestoreFailed" -> RestoreFailed
      | "Deleting" -> Deleting
      | "Deleted" -> Deleted
      | "Failed" -> Failed
      | "Updating" -> Updating
      | 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 DirectoryStage" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DirectoryStage" j)
    let to_json = simple_to_json to_value
  end
module DirectoryVpcSettings =
  struct
    type nonrec t =
      {
      vpcId: VpcId.t
        [@ocaml.doc
          "The identifier of the VPC in which to create the directory."];
      subnetIds: SubnetIds.t
        [@ocaml.doc
          "The identifiers of the subnets for the directory servers. The two subnets must be in different Availability Zones. Directory Service creates a directory server and a DNS server in each of these subnets."]}
    let context_ = "DirectoryVpcSettings"
    let make ~vpcId = fun ~subnetIds -> fun () -> { vpcId; subnetIds }
    let to_value x =
      structure_to_value
        [("VpcId", (Some (VpcId.to_value x.vpcId)));
        ("SubnetIds", (Some (SubnetIds.to_value x.subnetIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subnetIds =
        SubnetIds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubnetIds") in
      let vpcId =
        VpcId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "VpcId") in
      make ~subnetIds ~vpcId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subnetIds = field_map_exn json__ "SubnetIds" SubnetIds.of_json in
      let vpcId = field_map_exn json__ "VpcId" VpcId.of_json in
      make ~subnetIds ~vpcId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains VPC information for the CreateDirectory, CreateMicrosoftAD, or CreateHybridAD operation."]
module LaunchTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module RegionType =
  struct
    type nonrec t =
      | Primary 
      | Additional 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Primary -> "Primary"
      | Additional -> "Additional"
      | Non_static_id s -> s
    let of_string =
      function
      | "Primary" -> Primary
      | "Additional" -> Additional
      | 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 RegionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RegionType" j)
    let to_json = simple_to_json to_value
  end
module LDAPSStatus =
  struct
    type nonrec t =
      | Enabling 
      | Enabled 
      | EnableFailed 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabling -> "Enabling"
      | Enabled -> "Enabled"
      | EnableFailed -> "EnableFailed"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enabling" -> Enabling
      | "Enabled" -> Enabled
      | "EnableFailed" -> EnableFailed
      | "Disabled" -> Disabled
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration LDAPSStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LDAPSStatus" j)
    let to_json = simple_to_json to_value
  end
module LDAPSStatusReason =
  struct
    type nonrec t = string
    let context_ = "LDAPSStatusReason"
    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:"LDAPSStatusReason" j
    let to_json = simple_to_json to_value
  end
module HybridUpdateInfoEntry =
  struct
    type nonrec t =
      {
      status: UpdateStatus.t option
        [@ocaml.doc
          "The current status of the update activity. Valid values include UPDATED, UPDATING, and UPDATE_FAILED."];
      statusReason: UpdateStatusReason.t option
        [@ocaml.doc
          "A human-readable description of the update status, including any error details or progress information."];
      initiatedBy: InitiatedBy.t option
        [@ocaml.doc
          "Specifies if the update was initiated by the customer or Amazon Web Services."];
      newValue: HybridUpdateValue.t option
        [@ocaml.doc
          "The new configuration values being applied in this update."];
      previousValue: HybridUpdateValue.t option
        [@ocaml.doc
          "The previous configuration values before this update was applied."];
      startTime: StartDateTime.t option
        [@ocaml.doc
          "The date and time when the update activity was initiated."];
      lastUpdatedDateTime: LastUpdatedDateTime.t option
        [@ocaml.doc
          "The date and time when the update activity status was last updated."];
      assessmentId: AssessmentId.t option
        [@ocaml.doc
          "The identifier of the assessment performed to validate this update configuration."]}
    let make ?status =
      fun ?statusReason ->
        fun ?initiatedBy ->
          fun ?newValue ->
            fun ?previousValue ->
              fun ?startTime ->
                fun ?lastUpdatedDateTime ->
                  fun ?assessmentId ->
                    fun () ->
                      {
                        status;
                        statusReason;
                        initiatedBy;
                        newValue;
                        previousValue;
                        startTime;
                        lastUpdatedDateTime;
                        assessmentId
                      }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:UpdateStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:UpdateStatusReason.to_value));
        ("InitiatedBy", (Option.map x.initiatedBy ~f:InitiatedBy.to_value));
        ("NewValue", (Option.map x.newValue ~f:HybridUpdateValue.to_value));
        ("PreviousValue",
          (Option.map x.previousValue ~f:HybridUpdateValue.to_value));
        ("StartTime", (Option.map x.startTime ~f:StartDateTime.to_value));
        ("LastUpdatedDateTime",
          (Option.map x.lastUpdatedDateTime ~f:LastUpdatedDateTime.to_value));
        ("AssessmentId",
          (Option.map x.assessmentId ~f:AssessmentId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentId =
        (Option.map ~f:AssessmentId.of_xml)
          (Xml.child xml_arg0 "AssessmentId") in
      let lastUpdatedDateTime =
        (Option.map ~f:LastUpdatedDateTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedDateTime") in
      let startTime =
        (Option.map ~f:StartDateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let previousValue =
        (Option.map ~f:HybridUpdateValue.of_xml)
          (Xml.child xml_arg0 "PreviousValue") in
      let newValue =
        (Option.map ~f:HybridUpdateValue.of_xml)
          (Xml.child xml_arg0 "NewValue") in
      let initiatedBy =
        (Option.map ~f:InitiatedBy.of_xml) (Xml.child xml_arg0 "InitiatedBy") in
      let statusReason =
        (Option.map ~f:UpdateStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:UpdateStatus.of_xml) (Xml.child xml_arg0 "Status") in
      make ?assessmentId ?lastUpdatedDateTime ?startTime ?previousValue
        ?newValue ?initiatedBy ?statusReason ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentId = field_map json__ "AssessmentId" AssessmentId.of_json in
      let lastUpdatedDateTime =
        field_map json__ "LastUpdatedDateTime" LastUpdatedDateTime.of_json in
      let startTime = field_map json__ "StartTime" StartDateTime.of_json in
      let previousValue =
        field_map json__ "PreviousValue" HybridUpdateValue.of_json in
      let newValue = field_map json__ "NewValue" HybridUpdateValue.of_json in
      let initiatedBy = field_map json__ "InitiatedBy" InitiatedBy.of_json in
      let statusReason =
        field_map json__ "StatusReason" UpdateStatusReason.of_json in
      let status = field_map json__ "Status" UpdateStatus.of_json in
      make ?assessmentId ?lastUpdatedDateTime ?startTime ?previousValue
        ?newValue ?initiatedBy ?statusReason ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains detailed information about a specific update activity for a hybrid directory component."]
module TopicArn =
  struct
    type nonrec t = string
    let context_ = "TopicArn"
    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:"TopicArn" j
    let to_json = simple_to_json to_value
  end
module TopicName =
  struct
    type nonrec t = string
    let context_ = "TopicName"
    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:"[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:"TopicName" j
    let to_json = simple_to_json to_value
  end
module TopicStatus =
  struct
    type nonrec t =
      | Registered 
      | Topic_not_found 
      | Failed 
      | Deleted 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Registered -> "Registered"
      | Topic_not_found -> "Topic not found"
      | Failed -> "Failed"
      | Deleted -> "Deleted"
      | Non_static_id s -> s
    let of_string =
      function
      | "Registered" -> Registered
      | "Topic not found" -> Topic_not_found
      | "Failed" -> Failed
      | "Deleted" -> Deleted
      | 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 TopicStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TopicStatus" j)
    let to_json = simple_to_json to_value
  end
module DomainControllerId =
  struct
    type nonrec t = string
    let context_ = "DomainControllerId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^dc-[0-9a-f]{10}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DomainControllerId" j
    let to_json = simple_to_json to_value
  end
module DomainControllerStatus =
  struct
    type nonrec t =
      | Creating 
      | Active 
      | Impaired 
      | Restoring 
      | Deleting 
      | Deleted 
      | Failed 
      | Updating 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Creating -> "Creating"
      | Active -> "Active"
      | Impaired -> "Impaired"
      | Restoring -> "Restoring"
      | Deleting -> "Deleting"
      | Deleted -> "Deleted"
      | Failed -> "Failed"
      | Updating -> "Updating"
      | Non_static_id s -> s
    let of_string =
      function
      | "Creating" -> Creating
      | "Active" -> Active
      | "Impaired" -> Impaired
      | "Restoring" -> Restoring
      | "Deleting" -> Deleting
      | "Deleted" -> Deleted
      | "Failed" -> Failed
      | "Updating" -> Updating
      | 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 DomainControllerStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DomainControllerStatus" j)
    let to_json = simple_to_json to_value
  end
module DomainControllerStatusReason =
  struct
    type nonrec t = string
    let context_ = "DomainControllerStatusReason"
    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:"DomainControllerStatusReason" j
    let to_json = simple_to_json to_value
  end
module AccessUrl =
  struct
    type nonrec t = string
    let context_ = "AccessUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccessUrl" j
    let to_json = simple_to_json to_value
  end
module AliasName =
  struct
    type nonrec t = string
    let context_ = "AliasName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:62) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(?!D-|d-)([\\da-zA-Z]+)([-]*[\\da-zA-Z])*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AliasName" j
    let to_json = simple_to_json to_value
  end
module DirectoryConnectSettingsDescription =
  struct
    type nonrec t =
      {
      vpcId: VpcId.t option
        [@ocaml.doc "The identifier of the VPC that the AD Connector is in."];
      subnetIds: SubnetIds.t option
        [@ocaml.doc
          "A list of subnet identifiers in the VPC that the AD Connector is in."];
      customerUserName: UserName.t option
        [@ocaml.doc
          "The user name of the service account in your self-managed directory."];
      securityGroupId: SecurityGroupId.t option
        [@ocaml.doc
          "The security group identifier for the AD Connector directory."];
      availabilityZones: AvailabilityZones.t option
        [@ocaml.doc "The Availability Zones that the directory is in."];
      connectIps: IpAddrs.t option
        [@ocaml.doc "The IP addresses of the AD Connector servers."];
      connectIpsV6: IpV6Addrs.t option
        [@ocaml.doc "The IPv6 addresses of the AD Connector servers."]}
    let make ?vpcId =
      fun ?subnetIds ->
        fun ?customerUserName ->
          fun ?securityGroupId ->
            fun ?availabilityZones ->
              fun ?connectIps ->
                fun ?connectIpsV6 ->
                  fun () ->
                    {
                      vpcId;
                      subnetIds;
                      customerUserName;
                      securityGroupId;
                      availabilityZones;
                      connectIps;
                      connectIpsV6
                    }
    let to_value x =
      structure_to_value
        [("VpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("SubnetIds", (Option.map x.subnetIds ~f:SubnetIds.to_value));
        ("CustomerUserName",
          (Option.map x.customerUserName ~f:UserName.to_value));
        ("SecurityGroupId",
          (Option.map x.securityGroupId ~f:SecurityGroupId.to_value));
        ("AvailabilityZones",
          (Option.map x.availabilityZones ~f:AvailabilityZones.to_value));
        ("ConnectIps", (Option.map x.connectIps ~f:IpAddrs.to_value));
        ("ConnectIpsV6", (Option.map x.connectIpsV6 ~f:IpV6Addrs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectIpsV6 =
        (Option.map ~f:IpV6Addrs.of_xml) (Xml.child xml_arg0 "ConnectIpsV6") in
      let connectIps =
        (Option.map ~f:IpAddrs.of_xml) (Xml.child xml_arg0 "ConnectIps") in
      let availabilityZones =
        (Option.map ~f:AvailabilityZones.of_xml)
          (Xml.child xml_arg0 "AvailabilityZones") in
      let securityGroupId =
        (Option.map ~f:SecurityGroupId.of_xml)
          (Xml.child xml_arg0 "SecurityGroupId") in
      let customerUserName =
        (Option.map ~f:UserName.of_xml)
          (Xml.child xml_arg0 "CustomerUserName") in
      let subnetIds =
        (Option.map ~f:SubnetIds.of_xml) (Xml.child xml_arg0 "SubnetIds") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "VpcId") in
      make ?connectIpsV6 ?connectIps ?availabilityZones ?securityGroupId
        ?customerUserName ?subnetIds ?vpcId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectIpsV6 = field_map json__ "ConnectIpsV6" IpV6Addrs.of_json in
      let connectIps = field_map json__ "ConnectIps" IpAddrs.of_json in
      let availabilityZones =
        field_map json__ "AvailabilityZones" AvailabilityZones.of_json in
      let securityGroupId =
        field_map json__ "SecurityGroupId" SecurityGroupId.of_json in
      let customerUserName =
        field_map json__ "CustomerUserName" UserName.of_json in
      let subnetIds = field_map json__ "SubnetIds" SubnetIds.of_json in
      let vpcId = field_map json__ "VpcId" VpcId.of_json in
      make ?connectIpsV6 ?connectIps ?availabilityZones ?securityGroupId
        ?customerUserName ?subnetIds ?vpcId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about an AD Connector directory."]
module DirectoryEdition =
  struct
    type nonrec t =
      | Enterprise 
      | Standard 
      | Hybrid 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enterprise -> "Enterprise"
      | Standard -> "Standard"
      | Hybrid -> "Hybrid"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enterprise" -> Enterprise
      | "Standard" -> Standard
      | "Hybrid" -> Hybrid
      | 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 DirectoryEdition" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DirectoryEdition" j)
    let to_json = simple_to_json to_value
  end
module DirectoryShortName =
  struct
    type nonrec t = string
    let context_ = "DirectoryShortName"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"^[^\\\\/:*?\"<>|.]+[^\\\\/:*?\"<>|]*$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DirectoryShortName" j
    let to_json = simple_to_json to_value
  end
module DirectorySize =
  struct
    type nonrec t =
      | Small 
      | Large 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Small -> "Small" | Large -> "Large" | Non_static_id s -> s
    let of_string =
      function | "Small" -> Small | "Large" -> Large | 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 DirectorySize" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DirectorySize" j)
    let to_json = simple_to_json to_value
  end
module DirectoryType =
  struct
    type nonrec t =
      | SimpleAD 
      | ADConnector 
      | MicrosoftAD 
      | SharedMicrosoftAD 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SimpleAD -> "SimpleAD"
      | ADConnector -> "ADConnector"
      | MicrosoftAD -> "MicrosoftAD"
      | SharedMicrosoftAD -> "SharedMicrosoftAD"
      | Non_static_id s -> s
    let of_string =
      function
      | "SimpleAD" -> SimpleAD
      | "ADConnector" -> ADConnector
      | "MicrosoftAD" -> MicrosoftAD
      | "SharedMicrosoftAD" -> SharedMicrosoftAD
      | 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 DirectoryType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DirectoryType" j)
    let to_json = simple_to_json to_value
  end
module HybridSettingsDescription =
  struct
    type nonrec t =
      {
      selfManagedDnsIpAddrs: IpAddrs.t option
        [@ocaml.doc
          "The IP addresses of the DNS servers in your self-managed AD environment."];
      selfManagedInstanceIds: AssessmentInstanceIds.t option
        [@ocaml.doc
          "The identifiers of the self-managed instances with SSM used for hybrid directory operations."]}
    let make ?selfManagedDnsIpAddrs =
      fun ?selfManagedInstanceIds ->
        fun () -> { selfManagedDnsIpAddrs; selfManagedInstanceIds }
    let to_value x =
      structure_to_value
        [("SelfManagedDnsIpAddrs",
           (Option.map x.selfManagedDnsIpAddrs ~f:IpAddrs.to_value));
        ("SelfManagedInstanceIds",
          (Option.map x.selfManagedInstanceIds
             ~f:AssessmentInstanceIds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let selfManagedInstanceIds =
        (Option.map ~f:AssessmentInstanceIds.of_xml)
          (Xml.child xml_arg0 "SelfManagedInstanceIds") in
      let selfManagedDnsIpAddrs =
        (Option.map ~f:IpAddrs.of_xml)
          (Xml.child xml_arg0 "SelfManagedDnsIpAddrs") in
      make ?selfManagedInstanceIds ?selfManagedDnsIpAddrs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let selfManagedInstanceIds =
        field_map json__ "SelfManagedInstanceIds"
          AssessmentInstanceIds.of_json in
      let selfManagedDnsIpAddrs =
        field_map json__ "SelfManagedDnsIpAddrs" IpAddrs.of_json in
      make ?selfManagedInstanceIds ?selfManagedDnsIpAddrs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the current hybrid directory configuration settings for a directory."]
module OwnerDirectoryDescription =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "Identifier of the Managed Microsoft AD directory in the directory owner account."];
      accountId: CustomerId.t option
        [@ocaml.doc "Identifier of the directory owner account."];
      dnsIpAddrs: DnsIpAddrs.t option
        [@ocaml.doc
          "IP address of the directory\226\128\153s domain controllers."];
      dnsIpv6Addrs: DnsIpv6Addrs.t option
        [@ocaml.doc
          "IPv6 addresses of the directory\226\128\153s domain controllers."];
      vpcSettings: DirectoryVpcSettingsDescription.t option
        [@ocaml.doc "Information about the VPC settings for the directory."];
      radiusSettings: RadiusSettings.t option
        [@ocaml.doc
          "Information about the RadiusSettings object server configuration."];
      radiusStatus: RadiusStatus.t option
        [@ocaml.doc "The status of the RADIUS server."];
      networkType: NetworkType.t option
        [@ocaml.doc
          "Network type of the directory in the directory owner account."]}
    let make ?directoryId =
      fun ?accountId ->
        fun ?dnsIpAddrs ->
          fun ?dnsIpv6Addrs ->
            fun ?vpcSettings ->
              fun ?radiusSettings ->
                fun ?radiusStatus ->
                  fun ?networkType ->
                    fun () ->
                      {
                        directoryId;
                        accountId;
                        dnsIpAddrs;
                        dnsIpv6Addrs;
                        vpcSettings;
                        radiusSettings;
                        radiusStatus;
                        networkType
                      }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("AccountId", (Option.map x.accountId ~f:CustomerId.to_value));
        ("DnsIpAddrs", (Option.map x.dnsIpAddrs ~f:DnsIpAddrs.to_value));
        ("DnsIpv6Addrs",
          (Option.map x.dnsIpv6Addrs ~f:DnsIpv6Addrs.to_value));
        ("VpcSettings",
          (Option.map x.vpcSettings
             ~f:DirectoryVpcSettingsDescription.to_value));
        ("RadiusSettings",
          (Option.map x.radiusSettings ~f:RadiusSettings.to_value));
        ("RadiusStatus",
          (Option.map x.radiusStatus ~f:RadiusStatus.to_value));
        ("NetworkType", (Option.map x.networkType ~f:NetworkType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkType =
        (Option.map ~f:NetworkType.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let radiusStatus =
        (Option.map ~f:RadiusStatus.of_xml)
          (Xml.child xml_arg0 "RadiusStatus") in
      let radiusSettings =
        (Option.map ~f:RadiusSettings.of_xml)
          (Xml.child xml_arg0 "RadiusSettings") in
      let vpcSettings =
        (Option.map ~f:DirectoryVpcSettingsDescription.of_xml)
          (Xml.child xml_arg0 "VpcSettings") in
      let dnsIpv6Addrs =
        (Option.map ~f:DnsIpv6Addrs.of_xml)
          (Xml.child xml_arg0 "DnsIpv6Addrs") in
      let dnsIpAddrs =
        (Option.map ~f:DnsIpAddrs.of_xml) (Xml.child xml_arg0 "DnsIpAddrs") in
      let accountId =
        (Option.map ~f:CustomerId.of_xml) (Xml.child xml_arg0 "AccountId") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?networkType ?radiusStatus ?radiusSettings ?vpcSettings
        ?dnsIpv6Addrs ?dnsIpAddrs ?accountId ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkType = field_map json__ "NetworkType" NetworkType.of_json in
      let radiusStatus = field_map json__ "RadiusStatus" RadiusStatus.of_json in
      let radiusSettings =
        field_map json__ "RadiusSettings" RadiusSettings.of_json in
      let vpcSettings =
        field_map json__ "VpcSettings"
          DirectoryVpcSettingsDescription.of_json in
      let dnsIpv6Addrs = field_map json__ "DnsIpv6Addrs" DnsIpv6Addrs.of_json in
      let dnsIpAddrs = field_map json__ "DnsIpAddrs" DnsIpAddrs.of_json in
      let accountId = field_map json__ "AccountId" CustomerId.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?networkType ?radiusStatus ?radiusSettings ?vpcSettings
        ?dnsIpv6Addrs ?dnsIpAddrs ?accountId ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the directory owner account details shared with the directory consumer account."]
module RegionsInfo =
  struct
    type nonrec t =
      {
      primaryRegion: RegionName.t option
        [@ocaml.doc
          "The Region where the Managed Microsoft AD directory was originally created."];
      additionalRegions: AdditionalRegions.t option
        [@ocaml.doc
          "Lists the Regions where the directory has been replicated, excluding the primary Region."]}
    let make ?primaryRegion =
      fun ?additionalRegions ->
        fun () -> { primaryRegion; additionalRegions }
    let to_value x =
      structure_to_value
        [("PrimaryRegion",
           (Option.map x.primaryRegion ~f:RegionName.to_value));
        ("AdditionalRegions",
          (Option.map x.additionalRegions ~f:AdditionalRegions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let additionalRegions =
        (Option.map ~f:AdditionalRegions.of_xml)
          (Xml.child xml_arg0 "AdditionalRegions") in
      let primaryRegion =
        (Option.map ~f:RegionName.of_xml)
          (Xml.child xml_arg0 "PrimaryRegion") in
      make ?additionalRegions ?primaryRegion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let additionalRegions =
        field_map json__ "AdditionalRegions" AdditionalRegions.of_json in
      let primaryRegion = field_map json__ "PrimaryRegion" RegionName.of_json in
      make ?additionalRegions ?primaryRegion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information about the Regions that are configured for multi-Region replication."]
module SsoEnabled =
  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 StageReason =
  struct
    type nonrec t = string
    let context_ = "StageReason"
    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:"StageReason" j
    let to_json = simple_to_json to_value
  end
module ReplicationScope =
  struct
    type nonrec t =
      | Domain 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Domain -> "Domain" | Non_static_id s -> s
    let of_string = function | "Domain" -> Domain | 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 ReplicationScope" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReplicationScope" j)
    let to_json = simple_to_json to_value
  end
module ClientAuthenticationStatus =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "Enabled"
      | Disabled -> "Disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Enabled" -> Enabled
      | "Disabled" -> Disabled
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ClientAuthenticationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ClientAuthenticationStatus" j)
    let to_json = simple_to_json to_value
  end
module ClientAuthenticationType =
  struct
    type nonrec t =
      | SmartCard 
      | SmartCardOrPassword 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SmartCard -> "SmartCard"
      | SmartCardOrPassword -> "SmartCardOrPassword"
      | Non_static_id s -> s
    let of_string =
      function
      | "SmartCard" -> SmartCard
      | "SmartCardOrPassword" -> SmartCardOrPassword
      | 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 ClientAuthenticationType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ClientAuthenticationType" j)
    let to_json = simple_to_json to_value
  end
module OCSPUrl =
  struct
    type nonrec t = string
    let context_ = "OCSPUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(https?|ftp|file|ldaps?)://[-a-zA-Z0-9+&@#/%?=~_|!:,.;()]*[-a-zA-Z0-9+&@#/%=~_|()]")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OCSPUrl" j
    let to_json = simple_to_json to_value
  end
module AssessmentValidations =
  struct
    type nonrec t = AssessmentValidation.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:AssessmentValidation.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:AssessmentValidation.of_xml)
    let of_json j =
      list_of_json ~kind:"AssessmentValidations"
        ~of_json:AssessmentValidation.of_json j
    let to_json v = composed_to_json to_value v
  end
module Attribute =
  struct
    type nonrec t =
      {
      name: AttributeName.t option [@ocaml.doc "The name of the attribute."];
      value: AttributeValue.t option
        [@ocaml.doc "The value of the attribute."]}
    let make ?name = fun ?value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:AttributeName.to_value));
        ("Value", (Option.map x.value ~f:AttributeValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:AttributeValue.of_xml) (Xml.child xml_arg0 "Value") in
      let name =
        (Option.map ~f:AttributeName.of_xml) (Xml.child xml_arg0 "Name") in
      make ?value ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" AttributeValue.of_json in
      let name = field_map json__ "Name" AttributeName.of_json in
      make ?value ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents a named directory attribute."]
module ExceptionMessage =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The descriptive message for the exception."]
    let context_ = "ExceptionMessage"
    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:"ExceptionMessage" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The descriptive message for the exception."]
module RequestId =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The Amazon Web Services request identifier."]
    let context_ = "RequestId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^([A-Fa-f0-9]{8}-[A-Fa-f0-9]{4}-[A-Fa-f0-9]{4}-[A-Fa-f0-9]{4}-[A-Fa-f0-9]{12})$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RequestId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The Amazon Web Services request identifier."]
module Setting =
  struct
    type nonrec t =
      {
      name: DirectoryConfigurationSettingName.t
        [@ocaml.doc
          "The name of the directory setting. For example: TLS_1_0"];
      value: DirectoryConfigurationSettingValue.t
        [@ocaml.doc
          "The value of the directory setting for which to retrieve information. For example, for TLS_1_0, the valid values are: Enable and Disable."]}
    let context_ = "Setting"
    let make ~name = fun ~value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("Name", (Some (DirectoryConfigurationSettingName.to_value x.name)));
        ("Value",
          (Some (DirectoryConfigurationSettingValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        DirectoryConfigurationSettingValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let name =
        DirectoryConfigurationSettingName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~value ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value =
        field_map_exn json__ "Value"
          DirectoryConfigurationSettingValue.of_json in
      let name =
        field_map_exn json__ "Name" DirectoryConfigurationSettingName.of_json in
      make ~value ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the configurable settings for a directory."]
module SecretArn =
  struct
    type nonrec t = string
    let context_ = "SecretArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^arn:aws:secretsmanager:[a-z0-9-]+:\\d{12}:secret:[a-zA-Z0-9/_+=.@-]+-[a-zA-Z0-9]{6}$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SecretArn" j
    let to_json = simple_to_json to_value
  end
module TargetId =
  struct
    type nonrec t = string
    let context_ = "TargetId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TargetId" j
    let to_json = simple_to_json to_value
  end
module TargetType =
  struct
    type nonrec t =
      | ACCOUNT 
      | Non_static_id of string 
    let make i = i
    let to_string = function | ACCOUNT -> "ACCOUNT" | Non_static_id s -> s
    let of_string = function | "ACCOUNT" -> ACCOUNT | 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 TargetType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetType" j)
    let to_json = simple_to_json to_value
  end
module SecurityGroupIds =
  struct
    type nonrec t = SecurityGroupId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:SecurityGroupId.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:SecurityGroupId.of_xml)
    let of_json j =
      list_of_json ~kind:"SecurityGroupIds" ~of_json:SecurityGroupId.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc
          "Required name of the tag. The string value can be Unicode characters and cannot be prefixed with \"aws:\". The string can contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-', ':', '\\@'(Java regex: \"^(\\[\\\\p\\{L\\}\\\\p\\{Z\\}\\\\p\\{N\\}_.:/=+\\\\-\\]*)$\")."];
      value: TagValue.t
        [@ocaml.doc
          "The optional value of the tag. The string value can be Unicode characters. The string can contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-', ':', '\\@' (Java regex: \"^(\\[\\\\p\\{L\\}\\\\p\\{Z\\}\\\\p\\{N\\}_.:/=+\\\\-\\]*)$\")."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Metadata assigned to a directory consisting of a key-value pair."]
module SchemaExtensionInfo =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The identifier of the directory to which the schema extension is applied."];
      schemaExtensionId: SchemaExtensionId.t option
        [@ocaml.doc "The identifier of the schema extension."];
      description: Description.t option
        [@ocaml.doc "A description of the schema extension."];
      schemaExtensionStatus: SchemaExtensionStatus.t option
        [@ocaml.doc "The current status of the schema extension."];
      schemaExtensionStatusReason: SchemaExtensionStatusReason.t option
        [@ocaml.doc "The reason for the SchemaExtensionStatus."];
      startDateTime: StartDateTime.t option
        [@ocaml.doc
          "The date and time that the schema extension started being applied to the directory."];
      endDateTime: EndDateTime.t option
        [@ocaml.doc
          "The date and time that the schema extension was completed."]}
    let make ?directoryId =
      fun ?schemaExtensionId ->
        fun ?description ->
          fun ?schemaExtensionStatus ->
            fun ?schemaExtensionStatusReason ->
              fun ?startDateTime ->
                fun ?endDateTime ->
                  fun () ->
                    {
                      directoryId;
                      schemaExtensionId;
                      description;
                      schemaExtensionStatus;
                      schemaExtensionStatusReason;
                      startDateTime;
                      endDateTime
                    }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("SchemaExtensionId",
          (Option.map x.schemaExtensionId ~f:SchemaExtensionId.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("SchemaExtensionStatus",
          (Option.map x.schemaExtensionStatus
             ~f:SchemaExtensionStatus.to_value));
        ("SchemaExtensionStatusReason",
          (Option.map x.schemaExtensionStatusReason
             ~f:SchemaExtensionStatusReason.to_value));
        ("StartDateTime",
          (Option.map x.startDateTime ~f:StartDateTime.to_value));
        ("EndDateTime", (Option.map x.endDateTime ~f:EndDateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endDateTime =
        (Option.map ~f:EndDateTime.of_xml) (Xml.child xml_arg0 "EndDateTime") in
      let startDateTime =
        (Option.map ~f:StartDateTime.of_xml)
          (Xml.child xml_arg0 "StartDateTime") in
      let schemaExtensionStatusReason =
        (Option.map ~f:SchemaExtensionStatusReason.of_xml)
          (Xml.child xml_arg0 "SchemaExtensionStatusReason") in
      let schemaExtensionStatus =
        (Option.map ~f:SchemaExtensionStatus.of_xml)
          (Xml.child xml_arg0 "SchemaExtensionStatus") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let schemaExtensionId =
        (Option.map ~f:SchemaExtensionId.of_xml)
          (Xml.child xml_arg0 "SchemaExtensionId") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?endDateTime ?startDateTime ?schemaExtensionStatusReason
        ?schemaExtensionStatus ?description ?schemaExtensionId ?directoryId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endDateTime = field_map json__ "EndDateTime" EndDateTime.of_json in
      let startDateTime =
        field_map json__ "StartDateTime" StartDateTime.of_json in
      let schemaExtensionStatusReason =
        field_map json__ "SchemaExtensionStatusReason"
          SchemaExtensionStatusReason.of_json in
      let schemaExtensionStatus =
        field_map json__ "SchemaExtensionStatus"
          SchemaExtensionStatus.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let schemaExtensionId =
        field_map json__ "SchemaExtensionId" SchemaExtensionId.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?endDateTime ?startDateTime ?schemaExtensionStatusReason
        ?schemaExtensionStatus ?description ?schemaExtensionId ?directoryId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a schema extension."]
module LogSubscription =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "Identifier (ID) of the directory that you want to associate with the log subscription."];
      logGroupName: LogGroupName.t option
        [@ocaml.doc "The name of the log group."];
      subscriptionCreatedDateTime: SubscriptionCreatedDateTime.t option
        [@ocaml.doc
          "The date and time that the log subscription was created."]}
    let make ?directoryId =
      fun ?logGroupName ->
        fun ?subscriptionCreatedDateTime ->
          fun () ->
            { directoryId; logGroupName; subscriptionCreatedDateTime }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("LogGroupName",
          (Option.map x.logGroupName ~f:LogGroupName.to_value));
        ("SubscriptionCreatedDateTime",
          (Option.map x.subscriptionCreatedDateTime
             ~f:SubscriptionCreatedDateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subscriptionCreatedDateTime =
        (Option.map ~f:SubscriptionCreatedDateTime.of_xml)
          (Xml.child xml_arg0 "SubscriptionCreatedDateTime") in
      let logGroupName =
        (Option.map ~f:LogGroupName.of_xml)
          (Xml.child xml_arg0 "LogGroupName") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?subscriptionCreatedDateTime ?logGroupName ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subscriptionCreatedDateTime =
        field_map json__ "SubscriptionCreatedDateTime"
          SubscriptionCreatedDateTime.of_json in
      let logGroupName = field_map json__ "LogGroupName" LogGroupName.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?subscriptionCreatedDateTime ?logGroupName ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a log subscription, which tracks real-time data from a chosen log group to a specified destination."]
module IpRouteInfo =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "Identifier (ID) of the directory associated with the IP addresses."];
      cidrIp: CidrIp.t option [@ocaml.doc "IP address block in the IpRoute."];
      cidrIpv6: CidrIpv6.t option
        [@ocaml.doc "IPv6 address block in the IpRoute."];
      ipRouteStatusMsg: IpRouteStatusMsg.t option
        [@ocaml.doc "The status of the IP address block."];
      addedDateTime: AddedDateTime.t option
        [@ocaml.doc
          "The date and time the address block was added to the directory."];
      ipRouteStatusReason: IpRouteStatusReason.t option
        [@ocaml.doc "The reason for the IpRouteStatusMsg."];
      description: Description.t option
        [@ocaml.doc "Description of the IpRouteInfo."]}
    let make ?directoryId =
      fun ?cidrIp ->
        fun ?cidrIpv6 ->
          fun ?ipRouteStatusMsg ->
            fun ?addedDateTime ->
              fun ?ipRouteStatusReason ->
                fun ?description ->
                  fun () ->
                    {
                      directoryId;
                      cidrIp;
                      cidrIpv6;
                      ipRouteStatusMsg;
                      addedDateTime;
                      ipRouteStatusReason;
                      description
                    }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("CidrIp", (Option.map x.cidrIp ~f:CidrIp.to_value));
        ("CidrIpv6", (Option.map x.cidrIpv6 ~f:CidrIpv6.to_value));
        ("IpRouteStatusMsg",
          (Option.map x.ipRouteStatusMsg ~f:IpRouteStatusMsg.to_value));
        ("AddedDateTime",
          (Option.map x.addedDateTime ~f:AddedDateTime.to_value));
        ("IpRouteStatusReason",
          (Option.map x.ipRouteStatusReason ~f:IpRouteStatusReason.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let ipRouteStatusReason =
        (Option.map ~f:IpRouteStatusReason.of_xml)
          (Xml.child xml_arg0 "IpRouteStatusReason") in
      let addedDateTime =
        (Option.map ~f:AddedDateTime.of_xml)
          (Xml.child xml_arg0 "AddedDateTime") in
      let ipRouteStatusMsg =
        (Option.map ~f:IpRouteStatusMsg.of_xml)
          (Xml.child xml_arg0 "IpRouteStatusMsg") in
      let cidrIpv6 =
        (Option.map ~f:CidrIpv6.of_xml) (Xml.child xml_arg0 "CidrIpv6") in
      let cidrIp =
        (Option.map ~f:CidrIp.of_xml) (Xml.child xml_arg0 "CidrIp") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?description ?ipRouteStatusReason ?addedDateTime ?ipRouteStatusMsg
        ?cidrIpv6 ?cidrIp ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "Description" Description.of_json in
      let ipRouteStatusReason =
        field_map json__ "IpRouteStatusReason" IpRouteStatusReason.of_json in
      let addedDateTime =
        field_map json__ "AddedDateTime" AddedDateTime.of_json in
      let ipRouteStatusMsg =
        field_map json__ "IpRouteStatusMsg" IpRouteStatusMsg.of_json in
      let cidrIpv6 = field_map json__ "CidrIpv6" CidrIpv6.of_json in
      let cidrIp = field_map json__ "CidrIp" CidrIp.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?description ?ipRouteStatusReason ?addedDateTime ?ipRouteStatusMsg
        ?cidrIpv6 ?cidrIp ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about one or more IP address blocks."]
module CertificateInfo =
  struct
    type nonrec t =
      {
      certificateId: CertificateId.t option
        [@ocaml.doc "The identifier of the certificate."];
      commonName: CertificateCN.t option
        [@ocaml.doc "The common name for the certificate."];
      state: CertificateState.t option
        [@ocaml.doc "The state of the certificate."];
      expiryDateTime: CertificateExpiryDateTime.t option
        [@ocaml.doc "The date and time when the certificate will expire."];
      type_: CertificateType.t option
        [@ocaml.doc
          "The function that the registered certificate performs. Valid values include ClientLDAPS or ClientCertAuth. The default value is ClientLDAPS."]}
    let make ?certificateId =
      fun ?commonName ->
        fun ?state ->
          fun ?expiryDateTime ->
            fun ?type_ ->
              fun () ->
                { certificateId; commonName; state; expiryDateTime; type_ }
    let to_value x =
      structure_to_value
        [("CertificateId",
           (Option.map x.certificateId ~f:CertificateId.to_value));
        ("CommonName", (Option.map x.commonName ~f:CertificateCN.to_value));
        ("State", (Option.map x.state ~f:CertificateState.to_value));
        ("ExpiryDateTime",
          (Option.map x.expiryDateTime ~f:CertificateExpiryDateTime.to_value));
        ("Type", (Option.map x.type_ ~f:CertificateType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:CertificateType.of_xml) (Xml.child xml_arg0 "Type") in
      let expiryDateTime =
        (Option.map ~f:CertificateExpiryDateTime.of_xml)
          (Xml.child xml_arg0 "ExpiryDateTime") in
      let state =
        (Option.map ~f:CertificateState.of_xml) (Xml.child xml_arg0 "State") in
      let commonName =
        (Option.map ~f:CertificateCN.of_xml)
          (Xml.child xml_arg0 "CommonName") in
      let certificateId =
        (Option.map ~f:CertificateId.of_xml)
          (Xml.child xml_arg0 "CertificateId") in
      make ?type_ ?expiryDateTime ?state ?commonName ?certificateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" CertificateType.of_json in
      let expiryDateTime =
        field_map json__ "ExpiryDateTime" CertificateExpiryDateTime.of_json in
      let state = field_map json__ "State" CertificateState.of_json in
      let commonName = field_map json__ "CommonName" CertificateCN.of_json in
      let certificateId =
        field_map json__ "CertificateId" CertificateId.of_json in
      make ?type_ ?expiryDateTime ?state ?commonName ?certificateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains general information about a certificate."]
module AssessmentSummary =
  struct
    type nonrec t =
      {
      assessmentId: AssessmentId.t option
        [@ocaml.doc "The unique identifier of the directory assessment."];
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The identifier of the directory associated with this assessment."];
      dnsName: DirectoryName.t option
        [@ocaml.doc
          "The fully qualified domain name (FQDN) of the Active Directory domain being assessed."];
      startTime: AssessmentStartTime.t option
        [@ocaml.doc "The date and time when the assessment was initiated."];
      lastUpdateDateTime: LastUpdateDateTime.t option
        [@ocaml.doc
          "The date and time when the assessment status was last updated."];
      status: AssessmentStatus.t option
        [@ocaml.doc
          "The current status of the assessment. Valid values include SUCCESS, FAILED, PENDING, and IN_PROGRESS."];
      customerDnsIps: CustomerDnsIps.t option
        [@ocaml.doc
          "The IP addresses of the DNS servers or domain controllers in your self-managed AD environment."];
      reportType: AssessmentReportType.t option
        [@ocaml.doc
          "The type of assessment report generated. Valid values include CUSTOMER and SYSTEM."]}
    let make ?assessmentId =
      fun ?directoryId ->
        fun ?dnsName ->
          fun ?startTime ->
            fun ?lastUpdateDateTime ->
              fun ?status ->
                fun ?customerDnsIps ->
                  fun ?reportType ->
                    fun () ->
                      {
                        assessmentId;
                        directoryId;
                        dnsName;
                        startTime;
                        lastUpdateDateTime;
                        status;
                        customerDnsIps;
                        reportType
                      }
    let to_value x =
      structure_to_value
        [("AssessmentId",
           (Option.map x.assessmentId ~f:AssessmentId.to_value));
        ("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("DnsName", (Option.map x.dnsName ~f:DirectoryName.to_value));
        ("StartTime",
          (Option.map x.startTime ~f:AssessmentStartTime.to_value));
        ("LastUpdateDateTime",
          (Option.map x.lastUpdateDateTime ~f:LastUpdateDateTime.to_value));
        ("Status", (Option.map x.status ~f:AssessmentStatus.to_value));
        ("CustomerDnsIps",
          (Option.map x.customerDnsIps ~f:CustomerDnsIps.to_value));
        ("ReportType",
          (Option.map x.reportType ~f:AssessmentReportType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reportType =
        (Option.map ~f:AssessmentReportType.of_xml)
          (Xml.child xml_arg0 "ReportType") in
      let customerDnsIps =
        (Option.map ~f:CustomerDnsIps.of_xml)
          (Xml.child xml_arg0 "CustomerDnsIps") in
      let status =
        (Option.map ~f:AssessmentStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let lastUpdateDateTime =
        (Option.map ~f:LastUpdateDateTime.of_xml)
          (Xml.child xml_arg0 "LastUpdateDateTime") in
      let startTime =
        (Option.map ~f:AssessmentStartTime.of_xml)
          (Xml.child xml_arg0 "StartTime") in
      let dnsName =
        (Option.map ~f:DirectoryName.of_xml) (Xml.child xml_arg0 "DnsName") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      let assessmentId =
        (Option.map ~f:AssessmentId.of_xml)
          (Xml.child xml_arg0 "AssessmentId") in
      make ?reportType ?customerDnsIps ?status ?lastUpdateDateTime ?startTime
        ?dnsName ?directoryId ?assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reportType =
        field_map json__ "ReportType" AssessmentReportType.of_json in
      let customerDnsIps =
        field_map json__ "CustomerDnsIps" CustomerDnsIps.of_json in
      let status = field_map json__ "Status" AssessmentStatus.of_json in
      let lastUpdateDateTime =
        field_map json__ "LastUpdateDateTime" LastUpdateDateTime.of_json in
      let startTime =
        field_map json__ "StartTime" AssessmentStartTime.of_json in
      let dnsName = field_map json__ "DnsName" DirectoryName.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      let assessmentId = field_map json__ "AssessmentId" AssessmentId.of_json in
      make ?reportType ?customerDnsIps ?status ?lastUpdateDateTime ?startTime
        ?dnsName ?directoryId ?assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains summary information about a directory assessment, providing a high-level overview without detailed validation results."]
module Limit =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); 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 Limit" 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 ManualSnapshotsLimitReached =
  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 CloudOnlyDirectoriesLimitReached =
  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 ConnectedDirectoriesLimitReached =
  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 UpdateInfoEntry =
  struct
    type nonrec t =
      {
      region: RegionName.t option [@ocaml.doc "The name of the Region."];
      status: UpdateStatus.t option
        [@ocaml.doc "The status of the update performed on the directory."];
      statusReason: UpdateStatusReason.t option
        [@ocaml.doc
          "The reason for the current status of the update type activity."];
      initiatedBy: InitiatedBy.t option
        [@ocaml.doc
          "This specifies if the update was initiated by the customer or by the service team."];
      newValue: UpdateValue.t option
        [@ocaml.doc "The new value of the target setting."];
      previousValue: UpdateValue.t option
        [@ocaml.doc "The old value of the target setting."];
      startTime: StartDateTime.t option
        [@ocaml.doc
          "The start time of the UpdateDirectorySetup for the particular type."];
      lastUpdatedDateTime: LastUpdatedDateTime.t option
        [@ocaml.doc
          "The last updated date and time of a particular directory setting."]}
    let make ?region =
      fun ?status ->
        fun ?statusReason ->
          fun ?initiatedBy ->
            fun ?newValue ->
              fun ?previousValue ->
                fun ?startTime ->
                  fun ?lastUpdatedDateTime ->
                    fun () ->
                      {
                        region;
                        status;
                        statusReason;
                        initiatedBy;
                        newValue;
                        previousValue;
                        startTime;
                        lastUpdatedDateTime
                      }
    let to_value x =
      structure_to_value
        [("Region", (Option.map x.region ~f:RegionName.to_value));
        ("Status", (Option.map x.status ~f:UpdateStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:UpdateStatusReason.to_value));
        ("InitiatedBy", (Option.map x.initiatedBy ~f:InitiatedBy.to_value));
        ("NewValue", (Option.map x.newValue ~f:UpdateValue.to_value));
        ("PreviousValue",
          (Option.map x.previousValue ~f:UpdateValue.to_value));
        ("StartTime", (Option.map x.startTime ~f:StartDateTime.to_value));
        ("LastUpdatedDateTime",
          (Option.map x.lastUpdatedDateTime ~f:LastUpdatedDateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedDateTime =
        (Option.map ~f:LastUpdatedDateTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedDateTime") in
      let startTime =
        (Option.map ~f:StartDateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let previousValue =
        (Option.map ~f:UpdateValue.of_xml)
          (Xml.child xml_arg0 "PreviousValue") in
      let newValue =
        (Option.map ~f:UpdateValue.of_xml) (Xml.child xml_arg0 "NewValue") in
      let initiatedBy =
        (Option.map ~f:InitiatedBy.of_xml) (Xml.child xml_arg0 "InitiatedBy") in
      let statusReason =
        (Option.map ~f:UpdateStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:UpdateStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let region =
        (Option.map ~f:RegionName.of_xml) (Xml.child xml_arg0 "Region") in
      make ?lastUpdatedDateTime ?startTime ?previousValue ?newValue
        ?initiatedBy ?statusReason ?status ?region ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedDateTime =
        field_map json__ "LastUpdatedDateTime" LastUpdatedDateTime.of_json in
      let startTime = field_map json__ "StartTime" StartDateTime.of_json in
      let previousValue =
        field_map json__ "PreviousValue" UpdateValue.of_json in
      let newValue = field_map json__ "NewValue" UpdateValue.of_json in
      let initiatedBy = field_map json__ "InitiatedBy" InitiatedBy.of_json in
      let statusReason =
        field_map json__ "StatusReason" UpdateStatusReason.of_json in
      let status = field_map json__ "Status" UpdateStatus.of_json in
      let region = field_map json__ "Region" RegionName.of_json in
      make ?lastUpdatedDateTime ?startTime ?previousValue ?newValue
        ?initiatedBy ?statusReason ?status ?region ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An entry of update information related to a requested update type."]
module Trust =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The Directory ID of the Amazon Web Services directory involved in the trust relationship."];
      trustId: TrustId.t option
        [@ocaml.doc "The unique ID of the trust relationship."];
      remoteDomainName: RemoteDomainName.t option
        [@ocaml.doc
          "The Fully Qualified Domain Name (FQDN) of the external domain involved in the trust relationship."];
      trustType: TrustType.t option
        [@ocaml.doc "The trust relationship type. Forest is the default."];
      trustDirection: TrustDirection.t option
        [@ocaml.doc "The trust relationship direction."];
      trustState: TrustState.t option
        [@ocaml.doc "The trust relationship state."];
      createdDateTime: CreatedDateTime.t option
        [@ocaml.doc
          "The date and time that the trust relationship was created."];
      lastUpdatedDateTime: LastUpdatedDateTime.t option
        [@ocaml.doc
          "The date and time that the trust relationship was last updated."];
      stateLastUpdatedDateTime: StateLastUpdatedDateTime.t option
        [@ocaml.doc
          "The date and time that the TrustState was last updated."];
      trustStateReason: TrustStateReason.t option
        [@ocaml.doc "The reason for the TrustState."];
      selectiveAuth: SelectiveAuth.t option
        [@ocaml.doc
          "Current state of selective authentication for the trust."]}
    let make ?directoryId =
      fun ?trustId ->
        fun ?remoteDomainName ->
          fun ?trustType ->
            fun ?trustDirection ->
              fun ?trustState ->
                fun ?createdDateTime ->
                  fun ?lastUpdatedDateTime ->
                    fun ?stateLastUpdatedDateTime ->
                      fun ?trustStateReason ->
                        fun ?selectiveAuth ->
                          fun () ->
                            {
                              directoryId;
                              trustId;
                              remoteDomainName;
                              trustType;
                              trustDirection;
                              trustState;
                              createdDateTime;
                              lastUpdatedDateTime;
                              stateLastUpdatedDateTime;
                              trustStateReason;
                              selectiveAuth
                            }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("TrustId", (Option.map x.trustId ~f:TrustId.to_value));
        ("RemoteDomainName",
          (Option.map x.remoteDomainName ~f:RemoteDomainName.to_value));
        ("TrustType", (Option.map x.trustType ~f:TrustType.to_value));
        ("TrustDirection",
          (Option.map x.trustDirection ~f:TrustDirection.to_value));
        ("TrustState", (Option.map x.trustState ~f:TrustState.to_value));
        ("CreatedDateTime",
          (Option.map x.createdDateTime ~f:CreatedDateTime.to_value));
        ("LastUpdatedDateTime",
          (Option.map x.lastUpdatedDateTime ~f:LastUpdatedDateTime.to_value));
        ("StateLastUpdatedDateTime",
          (Option.map x.stateLastUpdatedDateTime
             ~f:StateLastUpdatedDateTime.to_value));
        ("TrustStateReason",
          (Option.map x.trustStateReason ~f:TrustStateReason.to_value));
        ("SelectiveAuth",
          (Option.map x.selectiveAuth ~f:SelectiveAuth.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let selectiveAuth =
        (Option.map ~f:SelectiveAuth.of_xml)
          (Xml.child xml_arg0 "SelectiveAuth") in
      let trustStateReason =
        (Option.map ~f:TrustStateReason.of_xml)
          (Xml.child xml_arg0 "TrustStateReason") in
      let stateLastUpdatedDateTime =
        (Option.map ~f:StateLastUpdatedDateTime.of_xml)
          (Xml.child xml_arg0 "StateLastUpdatedDateTime") in
      let lastUpdatedDateTime =
        (Option.map ~f:LastUpdatedDateTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedDateTime") in
      let createdDateTime =
        (Option.map ~f:CreatedDateTime.of_xml)
          (Xml.child xml_arg0 "CreatedDateTime") in
      let trustState =
        (Option.map ~f:TrustState.of_xml) (Xml.child xml_arg0 "TrustState") in
      let trustDirection =
        (Option.map ~f:TrustDirection.of_xml)
          (Xml.child xml_arg0 "TrustDirection") in
      let trustType =
        (Option.map ~f:TrustType.of_xml) (Xml.child xml_arg0 "TrustType") in
      let remoteDomainName =
        (Option.map ~f:RemoteDomainName.of_xml)
          (Xml.child xml_arg0 "RemoteDomainName") in
      let trustId =
        (Option.map ~f:TrustId.of_xml) (Xml.child xml_arg0 "TrustId") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?selectiveAuth ?trustStateReason ?stateLastUpdatedDateTime
        ?lastUpdatedDateTime ?createdDateTime ?trustState ?trustDirection
        ?trustType ?remoteDomainName ?trustId ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let selectiveAuth =
        field_map json__ "SelectiveAuth" SelectiveAuth.of_json in
      let trustStateReason =
        field_map json__ "TrustStateReason" TrustStateReason.of_json in
      let stateLastUpdatedDateTime =
        field_map json__ "StateLastUpdatedDateTime"
          StateLastUpdatedDateTime.of_json in
      let lastUpdatedDateTime =
        field_map json__ "LastUpdatedDateTime" LastUpdatedDateTime.of_json in
      let createdDateTime =
        field_map json__ "CreatedDateTime" CreatedDateTime.of_json in
      let trustState = field_map json__ "TrustState" TrustState.of_json in
      let trustDirection =
        field_map json__ "TrustDirection" TrustDirection.of_json in
      let trustType = field_map json__ "TrustType" TrustType.of_json in
      let remoteDomainName =
        field_map json__ "RemoteDomainName" RemoteDomainName.of_json in
      let trustId = field_map json__ "TrustId" TrustId.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?selectiveAuth ?trustStateReason ?stateLastUpdatedDateTime
        ?lastUpdatedDateTime ?createdDateTime ?trustState ?trustDirection
        ?trustType ?remoteDomainName ?trustId ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a trust relationship between an Managed Microsoft AD directory and an external domain."]
module Snapshot =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc "The directory identifier."];
      snapshotId: SnapshotId.t option [@ocaml.doc "The snapshot identifier."];
      type_: SnapshotType.t option [@ocaml.doc "The snapshot type."];
      name: SnapshotName.t option
        [@ocaml.doc "The descriptive name of the snapshot."];
      status: SnapshotStatus.t option [@ocaml.doc "The snapshot status."];
      startTime: StartTime.t option
        [@ocaml.doc "The date and time that the snapshot was taken."]}
    let make ?directoryId =
      fun ?snapshotId ->
        fun ?type_ ->
          fun ?name ->
            fun ?status ->
              fun ?startTime ->
                fun () ->
                  { directoryId; snapshotId; type_; name; status; startTime }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("SnapshotId", (Option.map x.snapshotId ~f:SnapshotId.to_value));
        ("Type", (Option.map x.type_ ~f:SnapshotType.to_value));
        ("Name", (Option.map x.name ~f:SnapshotName.to_value));
        ("Status", (Option.map x.status ~f:SnapshotStatus.to_value));
        ("StartTime", (Option.map x.startTime ~f:StartTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startTime =
        (Option.map ~f:StartTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let status =
        (Option.map ~f:SnapshotStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let name =
        (Option.map ~f:SnapshotName.of_xml) (Xml.child xml_arg0 "Name") in
      let type_ =
        (Option.map ~f:SnapshotType.of_xml) (Xml.child xml_arg0 "Type") in
      let snapshotId =
        (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "SnapshotId") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?startTime ?status ?name ?type_ ?snapshotId ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startTime = field_map json__ "StartTime" StartTime.of_json in
      let status = field_map json__ "Status" SnapshotStatus.of_json in
      let name = field_map json__ "Name" SnapshotName.of_json in
      let type_ = field_map json__ "Type" SnapshotType.of_json in
      let snapshotId = field_map json__ "SnapshotId" SnapshotId.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?startTime ?status ?name ?type_ ?snapshotId ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a directory snapshot."]
module SharedDirectory =
  struct
    type nonrec t =
      {
      ownerAccountId: CustomerId.t option
        [@ocaml.doc
          "Identifier of the directory owner account, which contains the directory that has been shared to the consumer account."];
      ownerDirectoryId: DirectoryId.t option
        [@ocaml.doc
          "Identifier of the directory in the directory owner account."];
      shareMethod: ShareMethod.t option
        [@ocaml.doc
          "The method used when sharing a directory to determine whether the directory should be shared within your Amazon Web Services organization (ORGANIZATIONS) or with any Amazon Web Services account by sending a shared directory request (HANDSHAKE)."];
      sharedAccountId: CustomerId.t option
        [@ocaml.doc
          "Identifier of the directory consumer account that has access to the shared directory (OwnerDirectoryId) in the directory owner account."];
      sharedDirectoryId: DirectoryId.t option
        [@ocaml.doc
          "Identifier of the shared directory in the directory consumer account. This identifier is different for each directory owner account."];
      shareStatus: ShareStatus.t option
        [@ocaml.doc
          "Current directory status of the shared Managed Microsoft AD directory."];
      shareNotes: Notes.t option
        [@ocaml.doc
          "A directory share request that is sent by the directory owner to the directory consumer. The request includes a typed message to help the directory consumer administrator determine whether to approve or reject the share invitation."];
      createdDateTime: CreatedDateTime.t option
        [@ocaml.doc
          "The date and time that the shared directory was created."];
      lastUpdatedDateTime: LastUpdatedDateTime.t option
        [@ocaml.doc
          "The date and time that the shared directory was last updated."]}
    let make ?ownerAccountId =
      fun ?ownerDirectoryId ->
        fun ?shareMethod ->
          fun ?sharedAccountId ->
            fun ?sharedDirectoryId ->
              fun ?shareStatus ->
                fun ?shareNotes ->
                  fun ?createdDateTime ->
                    fun ?lastUpdatedDateTime ->
                      fun () ->
                        {
                          ownerAccountId;
                          ownerDirectoryId;
                          shareMethod;
                          sharedAccountId;
                          sharedDirectoryId;
                          shareStatus;
                          shareNotes;
                          createdDateTime;
                          lastUpdatedDateTime
                        }
    let to_value x =
      structure_to_value
        [("OwnerAccountId",
           (Option.map x.ownerAccountId ~f:CustomerId.to_value));
        ("OwnerDirectoryId",
          (Option.map x.ownerDirectoryId ~f:DirectoryId.to_value));
        ("ShareMethod", (Option.map x.shareMethod ~f:ShareMethod.to_value));
        ("SharedAccountId",
          (Option.map x.sharedAccountId ~f:CustomerId.to_value));
        ("SharedDirectoryId",
          (Option.map x.sharedDirectoryId ~f:DirectoryId.to_value));
        ("ShareStatus", (Option.map x.shareStatus ~f:ShareStatus.to_value));
        ("ShareNotes", (Option.map x.shareNotes ~f:Notes.to_value));
        ("CreatedDateTime",
          (Option.map x.createdDateTime ~f:CreatedDateTime.to_value));
        ("LastUpdatedDateTime",
          (Option.map x.lastUpdatedDateTime ~f:LastUpdatedDateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedDateTime =
        (Option.map ~f:LastUpdatedDateTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedDateTime") in
      let createdDateTime =
        (Option.map ~f:CreatedDateTime.of_xml)
          (Xml.child xml_arg0 "CreatedDateTime") in
      let shareNotes =
        (Option.map ~f:Notes.of_xml) (Xml.child xml_arg0 "ShareNotes") in
      let shareStatus =
        (Option.map ~f:ShareStatus.of_xml) (Xml.child xml_arg0 "ShareStatus") in
      let sharedDirectoryId =
        (Option.map ~f:DirectoryId.of_xml)
          (Xml.child xml_arg0 "SharedDirectoryId") in
      let sharedAccountId =
        (Option.map ~f:CustomerId.of_xml)
          (Xml.child xml_arg0 "SharedAccountId") in
      let shareMethod =
        (Option.map ~f:ShareMethod.of_xml) (Xml.child xml_arg0 "ShareMethod") in
      let ownerDirectoryId =
        (Option.map ~f:DirectoryId.of_xml)
          (Xml.child xml_arg0 "OwnerDirectoryId") in
      let ownerAccountId =
        (Option.map ~f:CustomerId.of_xml)
          (Xml.child xml_arg0 "OwnerAccountId") in
      make ?lastUpdatedDateTime ?createdDateTime ?shareNotes ?shareStatus
        ?sharedDirectoryId ?sharedAccountId ?shareMethod ?ownerDirectoryId
        ?ownerAccountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedDateTime =
        field_map json__ "LastUpdatedDateTime" LastUpdatedDateTime.of_json in
      let createdDateTime =
        field_map json__ "CreatedDateTime" CreatedDateTime.of_json in
      let shareNotes = field_map json__ "ShareNotes" Notes.of_json in
      let shareStatus = field_map json__ "ShareStatus" ShareStatus.of_json in
      let sharedDirectoryId =
        field_map json__ "SharedDirectoryId" DirectoryId.of_json in
      let sharedAccountId =
        field_map json__ "SharedAccountId" CustomerId.of_json in
      let shareMethod = field_map json__ "ShareMethod" ShareMethod.of_json in
      let ownerDirectoryId =
        field_map json__ "OwnerDirectoryId" DirectoryId.of_json in
      let ownerAccountId =
        field_map json__ "OwnerAccountId" CustomerId.of_json in
      make ?lastUpdatedDateTime ?createdDateTime ?shareNotes ?shareStatus
        ?sharedDirectoryId ?sharedAccountId ?shareMethod ?ownerDirectoryId
        ?ownerAccountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about the shared directory in the directory owner account for which the share request in the directory consumer account has been accepted."]
module SettingEntry =
  struct
    type nonrec t =
      {
      type_: DirectoryConfigurationSettingType.t option
        [@ocaml.doc
          "The type, or category, of a directory setting. Similar settings have the same type. For example, Protocol, Cipher, or Certificate-Based Authentication."];
      name: DirectoryConfigurationSettingName.t option
        [@ocaml.doc
          "The name of the directory setting. For example: TLS_1_0"];
      allowedValues: DirectoryConfigurationSettingAllowedValues.t option
        [@ocaml.doc
          "The valid range of values for the directory setting. These values depend on the DataType of your directory."];
      appliedValue: DirectoryConfigurationSettingValue.t option
        [@ocaml.doc
          "The value of the directory setting that is applied to the directory."];
      requestedValue: DirectoryConfigurationSettingValue.t option
        [@ocaml.doc
          "The value that was last requested for the directory setting."];
      requestStatus: DirectoryConfigurationStatus.t option
        [@ocaml.doc
          "The overall status of the request to update the directory setting request. If the directory setting is deployed in more than one region, and the request fails in any region, the overall status is Failed."];
      requestDetailedStatus:
        DirectoryConfigurationSettingRequestDetailedStatus.t option
        [@ocaml.doc
          "Details about the status of the request to update the directory setting. If the directory setting is deployed in more than one region, status is returned for the request in each region where the setting is deployed."];
      requestStatusMessage:
        DirectoryConfigurationSettingRequestStatusMessage.t option
        [@ocaml.doc
          "The last status message for the directory status request."];
      lastUpdatedDateTime:
        DirectoryConfigurationSettingLastUpdatedDateTime.t option
        [@ocaml.doc
          "The date and time when the directory setting was last updated."];
      lastRequestedDateTime:
        DirectoryConfigurationSettingLastRequestedDateTime.t option
        [@ocaml.doc
          "The date and time when the request to update a directory setting was last submitted."];
      dataType: DirectoryConfigurationSettingDataType.t option
        [@ocaml.doc
          "The data type of a directory setting. This is used to define the AllowedValues of a setting. For example a data type can be Boolean, DurationInSeconds, or Enum."]}
    let make ?type_ =
      fun ?name ->
        fun ?allowedValues ->
          fun ?appliedValue ->
            fun ?requestedValue ->
              fun ?requestStatus ->
                fun ?requestDetailedStatus ->
                  fun ?requestStatusMessage ->
                    fun ?lastUpdatedDateTime ->
                      fun ?lastRequestedDateTime ->
                        fun ?dataType ->
                          fun () ->
                            {
                              type_;
                              name;
                              allowedValues;
                              appliedValue;
                              requestedValue;
                              requestStatus;
                              requestDetailedStatus;
                              requestStatusMessage;
                              lastUpdatedDateTime;
                              lastRequestedDateTime;
                              dataType
                            }
    let to_value x =
      structure_to_value
        [("Type",
           (Option.map x.type_ ~f:DirectoryConfigurationSettingType.to_value));
        ("Name",
          (Option.map x.name ~f:DirectoryConfigurationSettingName.to_value));
        ("AllowedValues",
          (Option.map x.allowedValues
             ~f:DirectoryConfigurationSettingAllowedValues.to_value));
        ("AppliedValue",
          (Option.map x.appliedValue
             ~f:DirectoryConfigurationSettingValue.to_value));
        ("RequestedValue",
          (Option.map x.requestedValue
             ~f:DirectoryConfigurationSettingValue.to_value));
        ("RequestStatus",
          (Option.map x.requestStatus
             ~f:DirectoryConfigurationStatus.to_value));
        ("RequestDetailedStatus",
          (Option.map x.requestDetailedStatus
             ~f:DirectoryConfigurationSettingRequestDetailedStatus.to_value));
        ("RequestStatusMessage",
          (Option.map x.requestStatusMessage
             ~f:DirectoryConfigurationSettingRequestStatusMessage.to_value));
        ("LastUpdatedDateTime",
          (Option.map x.lastUpdatedDateTime
             ~f:DirectoryConfigurationSettingLastUpdatedDateTime.to_value));
        ("LastRequestedDateTime",
          (Option.map x.lastRequestedDateTime
             ~f:DirectoryConfigurationSettingLastRequestedDateTime.to_value));
        ("DataType",
          (Option.map x.dataType
             ~f:DirectoryConfigurationSettingDataType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataType =
        (Option.map ~f:DirectoryConfigurationSettingDataType.of_xml)
          (Xml.child xml_arg0 "DataType") in
      let lastRequestedDateTime =
        (Option.map
           ~f:DirectoryConfigurationSettingLastRequestedDateTime.of_xml)
          (Xml.child xml_arg0 "LastRequestedDateTime") in
      let lastUpdatedDateTime =
        (Option.map
           ~f:DirectoryConfigurationSettingLastUpdatedDateTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedDateTime") in
      let requestStatusMessage =
        (Option.map
           ~f:DirectoryConfigurationSettingRequestStatusMessage.of_xml)
          (Xml.child xml_arg0 "RequestStatusMessage") in
      let requestDetailedStatus =
        (Option.map
           ~f:DirectoryConfigurationSettingRequestDetailedStatus.of_xml)
          (Xml.child xml_arg0 "RequestDetailedStatus") in
      let requestStatus =
        (Option.map ~f:DirectoryConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "RequestStatus") in
      let requestedValue =
        (Option.map ~f:DirectoryConfigurationSettingValue.of_xml)
          (Xml.child xml_arg0 "RequestedValue") in
      let appliedValue =
        (Option.map ~f:DirectoryConfigurationSettingValue.of_xml)
          (Xml.child xml_arg0 "AppliedValue") in
      let allowedValues =
        (Option.map ~f:DirectoryConfigurationSettingAllowedValues.of_xml)
          (Xml.child xml_arg0 "AllowedValues") in
      let name =
        (Option.map ~f:DirectoryConfigurationSettingName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let type_ =
        (Option.map ~f:DirectoryConfigurationSettingType.of_xml)
          (Xml.child xml_arg0 "Type") in
      make ?dataType ?lastRequestedDateTime ?lastUpdatedDateTime
        ?requestStatusMessage ?requestDetailedStatus ?requestStatus
        ?requestedValue ?appliedValue ?allowedValues ?name ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataType =
        field_map json__ "DataType"
          DirectoryConfigurationSettingDataType.of_json in
      let lastRequestedDateTime =
        field_map json__ "LastRequestedDateTime"
          DirectoryConfigurationSettingLastRequestedDateTime.of_json in
      let lastUpdatedDateTime =
        field_map json__ "LastUpdatedDateTime"
          DirectoryConfigurationSettingLastUpdatedDateTime.of_json in
      let requestStatusMessage =
        field_map json__ "RequestStatusMessage"
          DirectoryConfigurationSettingRequestStatusMessage.of_json in
      let requestDetailedStatus =
        field_map json__ "RequestDetailedStatus"
          DirectoryConfigurationSettingRequestDetailedStatus.of_json in
      let requestStatus =
        field_map json__ "RequestStatus" DirectoryConfigurationStatus.of_json in
      let requestedValue =
        field_map json__ "RequestedValue"
          DirectoryConfigurationSettingValue.of_json in
      let appliedValue =
        field_map json__ "AppliedValue"
          DirectoryConfigurationSettingValue.of_json in
      let allowedValues =
        field_map json__ "AllowedValues"
          DirectoryConfigurationSettingAllowedValues.of_json in
      let name =
        field_map json__ "Name" DirectoryConfigurationSettingName.of_json in
      let type_ =
        field_map json__ "Type" DirectoryConfigurationSettingType.of_json in
      make ?dataType ?lastRequestedDateTime ?lastUpdatedDateTime
        ?requestStatusMessage ?requestDetailedStatus ?requestStatus
        ?requestedValue ?appliedValue ?allowedValues ?name ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the specified configurable setting for a directory."]
module RegionDescription =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc "The identifier of the directory."];
      regionName: RegionName.t option
        [@ocaml.doc "The name of the Region. For example, us-east-1."];
      regionType: RegionType.t option
        [@ocaml.doc
          "Specifies whether the Region is the primary Region or an additional Region."];
      status: DirectoryStage.t option
        [@ocaml.doc
          "The status of the replication process for the specified Region."];
      vpcSettings: DirectoryVpcSettings.t option ;
      desiredNumberOfDomainControllers:
        DesiredNumberOfDomainControllers.t option
        [@ocaml.doc
          "The desired number of domain controllers in the specified Region for the specified directory."];
      launchTime: LaunchTime.t option
        [@ocaml.doc "Specifies when the Region replication began."];
      statusLastUpdatedDateTime: StateLastUpdatedDateTime.t option
        [@ocaml.doc
          "The date and time that the Region status was last updated."];
      lastUpdatedDateTime: LastUpdatedDateTime.t option
        [@ocaml.doc
          "The date and time that the Region description was last updated."]}
    let make ?directoryId =
      fun ?regionName ->
        fun ?regionType ->
          fun ?status ->
            fun ?vpcSettings ->
              fun ?desiredNumberOfDomainControllers ->
                fun ?launchTime ->
                  fun ?statusLastUpdatedDateTime ->
                    fun ?lastUpdatedDateTime ->
                      fun () ->
                        {
                          directoryId;
                          regionName;
                          regionType;
                          status;
                          vpcSettings;
                          desiredNumberOfDomainControllers;
                          launchTime;
                          statusLastUpdatedDateTime;
                          lastUpdatedDateTime
                        }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("RegionName", (Option.map x.regionName ~f:RegionName.to_value));
        ("RegionType", (Option.map x.regionType ~f:RegionType.to_value));
        ("Status", (Option.map x.status ~f:DirectoryStage.to_value));
        ("VpcSettings",
          (Option.map x.vpcSettings ~f:DirectoryVpcSettings.to_value));
        ("DesiredNumberOfDomainControllers",
          (Option.map x.desiredNumberOfDomainControllers
             ~f:DesiredNumberOfDomainControllers.to_value));
        ("LaunchTime", (Option.map x.launchTime ~f:LaunchTime.to_value));
        ("StatusLastUpdatedDateTime",
          (Option.map x.statusLastUpdatedDateTime
             ~f:StateLastUpdatedDateTime.to_value));
        ("LastUpdatedDateTime",
          (Option.map x.lastUpdatedDateTime ~f:LastUpdatedDateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedDateTime =
        (Option.map ~f:LastUpdatedDateTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedDateTime") in
      let statusLastUpdatedDateTime =
        (Option.map ~f:StateLastUpdatedDateTime.of_xml)
          (Xml.child xml_arg0 "StatusLastUpdatedDateTime") in
      let launchTime =
        (Option.map ~f:LaunchTime.of_xml) (Xml.child xml_arg0 "LaunchTime") in
      let desiredNumberOfDomainControllers =
        (Option.map ~f:DesiredNumberOfDomainControllers.of_xml)
          (Xml.child xml_arg0 "DesiredNumberOfDomainControllers") in
      let vpcSettings =
        (Option.map ~f:DirectoryVpcSettings.of_xml)
          (Xml.child xml_arg0 "VpcSettings") in
      let status =
        (Option.map ~f:DirectoryStage.of_xml) (Xml.child xml_arg0 "Status") in
      let regionType =
        (Option.map ~f:RegionType.of_xml) (Xml.child xml_arg0 "RegionType") in
      let regionName =
        (Option.map ~f:RegionName.of_xml) (Xml.child xml_arg0 "RegionName") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?lastUpdatedDateTime ?statusLastUpdatedDateTime ?launchTime
        ?desiredNumberOfDomainControllers ?vpcSettings ?status ?regionType
        ?regionName ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedDateTime =
        field_map json__ "LastUpdatedDateTime" LastUpdatedDateTime.of_json in
      let statusLastUpdatedDateTime =
        field_map json__ "StatusLastUpdatedDateTime"
          StateLastUpdatedDateTime.of_json in
      let launchTime = field_map json__ "LaunchTime" LaunchTime.of_json in
      let desiredNumberOfDomainControllers =
        field_map json__ "DesiredNumberOfDomainControllers"
          DesiredNumberOfDomainControllers.of_json in
      let vpcSettings =
        field_map json__ "VpcSettings" DirectoryVpcSettings.of_json in
      let status = field_map json__ "Status" DirectoryStage.of_json in
      let regionType = field_map json__ "RegionType" RegionType.of_json in
      let regionName = field_map json__ "RegionName" RegionName.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?lastUpdatedDateTime ?statusLastUpdatedDateTime ?launchTime
        ?desiredNumberOfDomainControllers ?vpcSettings ?status ?regionType
        ?regionName ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The replicated Region information for a directory."]
module LDAPSSettingInfo =
  struct
    type nonrec t =
      {
      lDAPSStatus: LDAPSStatus.t option
        [@ocaml.doc "The state of the LDAPS settings."];
      lDAPSStatusReason: LDAPSStatusReason.t option
        [@ocaml.doc "Describes a state change for LDAPS."];
      lastUpdatedDateTime: LastUpdatedDateTime.t option
        [@ocaml.doc
          "The date and time when the LDAPS settings were last updated."]}
    let make ?lDAPSStatus =
      fun ?lDAPSStatusReason ->
        fun ?lastUpdatedDateTime ->
          fun () -> { lDAPSStatus; lDAPSStatusReason; lastUpdatedDateTime }
    let to_value x =
      structure_to_value
        [("LDAPSStatus", (Option.map x.lDAPSStatus ~f:LDAPSStatus.to_value));
        ("LDAPSStatusReason",
          (Option.map x.lDAPSStatusReason ~f:LDAPSStatusReason.to_value));
        ("LastUpdatedDateTime",
          (Option.map x.lastUpdatedDateTime ~f:LastUpdatedDateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedDateTime =
        (Option.map ~f:LastUpdatedDateTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedDateTime") in
      let lDAPSStatusReason =
        (Option.map ~f:LDAPSStatusReason.of_xml)
          (Xml.child xml_arg0 "LDAPSStatusReason") in
      let lDAPSStatus =
        (Option.map ~f:LDAPSStatus.of_xml) (Xml.child xml_arg0 "LDAPSStatus") in
      make ?lastUpdatedDateTime ?lDAPSStatusReason ?lDAPSStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedDateTime =
        field_map json__ "LastUpdatedDateTime" LastUpdatedDateTime.of_json in
      let lDAPSStatusReason =
        field_map json__ "LDAPSStatusReason" LDAPSStatusReason.of_json in
      let lDAPSStatus = field_map json__ "LDAPSStatus" LDAPSStatus.of_json in
      make ?lastUpdatedDateTime ?lDAPSStatusReason ?lDAPSStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains general information about the LDAPS settings."]
module HybridUpdateInfoEntries =
  struct
    type nonrec t = HybridUpdateInfoEntry.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:HybridUpdateInfoEntry.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:HybridUpdateInfoEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"HybridUpdateInfoEntries"
        ~of_json:HybridUpdateInfoEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventTopic =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The Directory ID of an Directory Service directory that will publish status messages to an Amazon SNS topic."];
      topicName: TopicName.t option
        [@ocaml.doc
          "The name of an Amazon SNS topic the receives status messages from the directory."];
      topicArn: TopicArn.t option
        [@ocaml.doc "The Amazon SNS topic ARN (Amazon Resource Name)."];
      createdDateTime: CreatedDateTime.t option
        [@ocaml.doc
          "The date and time of when you associated your directory with the Amazon SNS topic."];
      status: TopicStatus.t option
        [@ocaml.doc "The topic registration status."]}
    let make ?directoryId =
      fun ?topicName ->
        fun ?topicArn ->
          fun ?createdDateTime ->
            fun ?status ->
              fun () ->
                { directoryId; topicName; topicArn; createdDateTime; status }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("TopicName", (Option.map x.topicName ~f:TopicName.to_value));
        ("TopicArn", (Option.map x.topicArn ~f:TopicArn.to_value));
        ("CreatedDateTime",
          (Option.map x.createdDateTime ~f:CreatedDateTime.to_value));
        ("Status", (Option.map x.status ~f:TopicStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:TopicStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let createdDateTime =
        (Option.map ~f:CreatedDateTime.of_xml)
          (Xml.child xml_arg0 "CreatedDateTime") in
      let topicArn =
        (Option.map ~f:TopicArn.of_xml) (Xml.child xml_arg0 "TopicArn") in
      let topicName =
        (Option.map ~f:TopicName.of_xml) (Xml.child xml_arg0 "TopicName") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?status ?createdDateTime ?topicArn ?topicName ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" TopicStatus.of_json in
      let createdDateTime =
        field_map json__ "CreatedDateTime" CreatedDateTime.of_json in
      let topicArn = field_map json__ "TopicArn" TopicArn.of_json in
      let topicName = field_map json__ "TopicName" TopicName.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?status ?createdDateTime ?topicArn ?topicName ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about Amazon SNS topic and Directory Service directory associations."]
module DomainController =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "Identifier of the directory where the domain controller resides."];
      domainControllerId: DomainControllerId.t option
        [@ocaml.doc
          "Identifies a specific domain controller in the directory."];
      dnsIpAddr: IpAddr.t option
        [@ocaml.doc "The IP address of the domain controller."];
      dnsIpv6Addr: Ipv6Addr.t option
        [@ocaml.doc "The IPv6 address of the domain controller."];
      vpcId: VpcId.t option
        [@ocaml.doc
          "The identifier of the VPC that contains the domain controller."];
      subnetId: SubnetId.t option
        [@ocaml.doc
          "Identifier of the subnet in the VPC that contains the domain controller."];
      availabilityZone: AvailabilityZone.t option
        [@ocaml.doc
          "The Availability Zone where the domain controller is located."];
      status: DomainControllerStatus.t option
        [@ocaml.doc "The status of the domain controller."];
      statusReason: DomainControllerStatusReason.t option
        [@ocaml.doc "A description of the domain controller state."];
      launchTime: LaunchTime.t option
        [@ocaml.doc "Specifies when the domain controller was created."];
      statusLastUpdatedDateTime: LastUpdatedDateTime.t option
        [@ocaml.doc "The date and time that the status was last updated."]}
    let make ?directoryId =
      fun ?domainControllerId ->
        fun ?dnsIpAddr ->
          fun ?dnsIpv6Addr ->
            fun ?vpcId ->
              fun ?subnetId ->
                fun ?availabilityZone ->
                  fun ?status ->
                    fun ?statusReason ->
                      fun ?launchTime ->
                        fun ?statusLastUpdatedDateTime ->
                          fun () ->
                            {
                              directoryId;
                              domainControllerId;
                              dnsIpAddr;
                              dnsIpv6Addr;
                              vpcId;
                              subnetId;
                              availabilityZone;
                              status;
                              statusReason;
                              launchTime;
                              statusLastUpdatedDateTime
                            }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("DomainControllerId",
          (Option.map x.domainControllerId ~f:DomainControllerId.to_value));
        ("DnsIpAddr", (Option.map x.dnsIpAddr ~f:IpAddr.to_value));
        ("DnsIpv6Addr", (Option.map x.dnsIpv6Addr ~f:Ipv6Addr.to_value));
        ("VpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("SubnetId", (Option.map x.subnetId ~f:SubnetId.to_value));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:AvailabilityZone.to_value));
        ("Status", (Option.map x.status ~f:DomainControllerStatus.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:DomainControllerStatusReason.to_value));
        ("LaunchTime", (Option.map x.launchTime ~f:LaunchTime.to_value));
        ("StatusLastUpdatedDateTime",
          (Option.map x.statusLastUpdatedDateTime
             ~f:LastUpdatedDateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusLastUpdatedDateTime =
        (Option.map ~f:LastUpdatedDateTime.of_xml)
          (Xml.child xml_arg0 "StatusLastUpdatedDateTime") in
      let launchTime =
        (Option.map ~f:LaunchTime.of_xml) (Xml.child xml_arg0 "LaunchTime") in
      let statusReason =
        (Option.map ~f:DomainControllerStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let status =
        (Option.map ~f:DomainControllerStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let availabilityZone =
        (Option.map ~f:AvailabilityZone.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let subnetId =
        (Option.map ~f:SubnetId.of_xml) (Xml.child xml_arg0 "SubnetId") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "VpcId") in
      let dnsIpv6Addr =
        (Option.map ~f:Ipv6Addr.of_xml) (Xml.child xml_arg0 "DnsIpv6Addr") in
      let dnsIpAddr =
        (Option.map ~f:IpAddr.of_xml) (Xml.child xml_arg0 "DnsIpAddr") in
      let domainControllerId =
        (Option.map ~f:DomainControllerId.of_xml)
          (Xml.child xml_arg0 "DomainControllerId") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?statusLastUpdatedDateTime ?launchTime ?statusReason ?status
        ?availabilityZone ?subnetId ?vpcId ?dnsIpv6Addr ?dnsIpAddr
        ?domainControllerId ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusLastUpdatedDateTime =
        field_map json__ "StatusLastUpdatedDateTime"
          LastUpdatedDateTime.of_json in
      let launchTime = field_map json__ "LaunchTime" LaunchTime.of_json in
      let statusReason =
        field_map json__ "StatusReason" DomainControllerStatusReason.of_json in
      let status = field_map json__ "Status" DomainControllerStatus.of_json in
      let availabilityZone =
        field_map json__ "AvailabilityZone" AvailabilityZone.of_json in
      let subnetId = field_map json__ "SubnetId" SubnetId.of_json in
      let vpcId = field_map json__ "VpcId" VpcId.of_json in
      let dnsIpv6Addr = field_map json__ "DnsIpv6Addr" Ipv6Addr.of_json in
      let dnsIpAddr = field_map json__ "DnsIpAddr" IpAddr.of_json in
      let domainControllerId =
        field_map json__ "DomainControllerId" DomainControllerId.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?statusLastUpdatedDateTime ?launchTime ?statusReason ?status
        ?availabilityZone ?subnetId ?vpcId ?dnsIpv6Addr ?dnsIpAddr
        ?domainControllerId ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the domain controllers for a specified directory."]
module DirectoryDescription =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc "The directory identifier."];
      name: DirectoryName.t option
        [@ocaml.doc "The fully qualified name of the directory."];
      shortName: DirectoryShortName.t option
        [@ocaml.doc "The short name of the directory."];
      size: DirectorySize.t option [@ocaml.doc "The directory size."];
      edition: DirectoryEdition.t option
        [@ocaml.doc "The edition associated with this directory."];
      alias: AliasName.t option
        [@ocaml.doc
          "The alias for the directory. If no alias exists, the alias is the directory identifier, such as d-XXXXXXXXXX."];
      accessUrl: AccessUrl.t option
        [@ocaml.doc
          "The access URL for the directory, such as http://<alias>.awsapps.com. If no alias exists, <alias> is the directory identifier, such as d-XXXXXXXXXX."];
      description: Description.t option
        [@ocaml.doc "The description for the directory."];
      dnsIpAddrs: DnsIpAddrs.t option
        [@ocaml.doc
          "The IP addresses of the DNS servers for the directory. For a Simple AD or Microsoft AD directory, these are the IP addresses of the Simple AD or Microsoft AD directory servers. For an AD Connector directory, these are the IP addresses of self-managed directory to which the AD Connector is connected."];
      dnsIpv6Addrs: DnsIpv6Addrs.t option
        [@ocaml.doc
          "The IPv6 addresses of the DNS servers for the directory. For a Simple AD or Microsoft AD directory, these are the IPv6 addresses of the Simple AD or Microsoft AD directory servers. For an AD Connector directory, these are the IPv6 addresses of the DNS servers or domain controllers in your self-managed directory to which the AD Connector is connected."];
      stage: DirectoryStage.t option
        [@ocaml.doc "The current stage of the directory."];
      shareStatus: ShareStatus.t option
        [@ocaml.doc
          "Current directory status of the shared Managed Microsoft AD directory."];
      shareMethod: ShareMethod.t option
        [@ocaml.doc
          "The method used when sharing a directory to determine whether the directory should be shared within your Amazon Web Services organization (ORGANIZATIONS) or with any Amazon Web Services account by sending a shared directory request (HANDSHAKE)."];
      shareNotes: Notes.t option
        [@ocaml.doc
          "A directory share request that is sent by the directory owner to the directory consumer. The request includes a typed message to help the directory consumer administrator determine whether to approve or reject the share invitation."];
      launchTime: LaunchTime.t option
        [@ocaml.doc "The date and time when the directory was created."];
      stageLastUpdatedDateTime: LastUpdatedDateTime.t option
        [@ocaml.doc "The date and time when the stage was last updated."];
      type_: DirectoryType.t option [@ocaml.doc "The directory type."];
      vpcSettings: DirectoryVpcSettingsDescription.t option
        [@ocaml.doc
          "A DirectoryVpcSettingsDescription object that contains additional information about a directory. Present only for Simple AD and Managed Microsoft AD directories."];
      connectSettings: DirectoryConnectSettingsDescription.t option
        [@ocaml.doc
          "DirectoryConnectSettingsDescription object that contains additional information about an AD Connector directory. Present only for AD Connector directories."];
      radiusSettings: RadiusSettings.t option
        [@ocaml.doc
          "Information about the RadiusSettings object configured for this directory."];
      radiusStatus: RadiusStatus.t option
        [@ocaml.doc "The status of the RADIUS MFA server connection."];
      stageReason: StageReason.t option
        [@ocaml.doc "Additional information about the directory stage."];
      ssoEnabled: SsoEnabled.t option
        [@ocaml.doc
          "Indicates whether single sign-on is enabled for the directory. For more information, see EnableSso and DisableSso."];
      desiredNumberOfDomainControllers:
        DesiredNumberOfDomainControllers.t option
        [@ocaml.doc
          "The desired number of domain controllers in the directory if the directory is Microsoft AD."];
      ownerDirectoryDescription: OwnerDirectoryDescription.t option
        [@ocaml.doc
          "Describes the Managed Microsoft AD directory in the directory owner account."];
      regionsInfo: RegionsInfo.t option
        [@ocaml.doc "Lists the Regions where the directory has replicated."];
      osVersion: OSVersion.t option
        [@ocaml.doc "The operating system (OS) version of the directory."];
      hybridSettings: HybridSettingsDescription.t option
        [@ocaml.doc
          "Contains information about the hybrid directory configuration for the directory, including Amazon Web Services System Manager managed node identifiers and DNS IPs."];
      networkType: NetworkType.t option
        [@ocaml.doc "The network type of the directory."]}
    let make ?directoryId =
      fun ?name ->
        fun ?shortName ->
          fun ?size ->
            fun ?edition ->
              fun ?alias ->
                fun ?accessUrl ->
                  fun ?description ->
                    fun ?dnsIpAddrs ->
                      fun ?dnsIpv6Addrs ->
                        fun ?stage ->
                          fun ?shareStatus ->
                            fun ?shareMethod ->
                              fun ?shareNotes ->
                                fun ?launchTime ->
                                  fun ?stageLastUpdatedDateTime ->
                                    fun ?type_ ->
                                      fun ?vpcSettings ->
                                        fun ?connectSettings ->
                                          fun ?radiusSettings ->
                                            fun ?radiusStatus ->
                                              fun ?stageReason ->
                                                fun ?ssoEnabled ->
                                                  fun
                                                    ?desiredNumberOfDomainControllers
                                                    ->
                                                    fun
                                                      ?ownerDirectoryDescription
                                                      ->
                                                      fun ?regionsInfo ->
                                                        fun ?osVersion ->
                                                          fun ?hybridSettings
                                                            ->
                                                            fun ?networkType
                                                              ->
                                                              fun () ->
                                                                {
                                                                  directoryId;
                                                                  name;
                                                                  shortName;
                                                                  size;
                                                                  edition;
                                                                  alias;
                                                                  accessUrl;
                                                                  description;
                                                                  dnsIpAddrs;
                                                                  dnsIpv6Addrs;
                                                                  stage;
                                                                  shareStatus;
                                                                  shareMethod;
                                                                  shareNotes;
                                                                  launchTime;
                                                                  stageLastUpdatedDateTime;
                                                                  type_;
                                                                  vpcSettings;
                                                                  connectSettings;
                                                                  radiusSettings;
                                                                  radiusStatus;
                                                                  stageReason;
                                                                  ssoEnabled;
                                                                  desiredNumberOfDomainControllers;
                                                                  ownerDirectoryDescription;
                                                                  regionsInfo;
                                                                  osVersion;
                                                                  hybridSettings;
                                                                  networkType
                                                                }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("Name", (Option.map x.name ~f:DirectoryName.to_value));
        ("ShortName",
          (Option.map x.shortName ~f:DirectoryShortName.to_value));
        ("Size", (Option.map x.size ~f:DirectorySize.to_value));
        ("Edition", (Option.map x.edition ~f:DirectoryEdition.to_value));
        ("Alias", (Option.map x.alias ~f:AliasName.to_value));
        ("AccessUrl", (Option.map x.accessUrl ~f:AccessUrl.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("DnsIpAddrs", (Option.map x.dnsIpAddrs ~f:DnsIpAddrs.to_value));
        ("DnsIpv6Addrs",
          (Option.map x.dnsIpv6Addrs ~f:DnsIpv6Addrs.to_value));
        ("Stage", (Option.map x.stage ~f:DirectoryStage.to_value));
        ("ShareStatus", (Option.map x.shareStatus ~f:ShareStatus.to_value));
        ("ShareMethod", (Option.map x.shareMethod ~f:ShareMethod.to_value));
        ("ShareNotes", (Option.map x.shareNotes ~f:Notes.to_value));
        ("LaunchTime", (Option.map x.launchTime ~f:LaunchTime.to_value));
        ("StageLastUpdatedDateTime",
          (Option.map x.stageLastUpdatedDateTime
             ~f:LastUpdatedDateTime.to_value));
        ("Type", (Option.map x.type_ ~f:DirectoryType.to_value));
        ("VpcSettings",
          (Option.map x.vpcSettings
             ~f:DirectoryVpcSettingsDescription.to_value));
        ("ConnectSettings",
          (Option.map x.connectSettings
             ~f:DirectoryConnectSettingsDescription.to_value));
        ("RadiusSettings",
          (Option.map x.radiusSettings ~f:RadiusSettings.to_value));
        ("RadiusStatus",
          (Option.map x.radiusStatus ~f:RadiusStatus.to_value));
        ("StageReason", (Option.map x.stageReason ~f:StageReason.to_value));
        ("SsoEnabled", (Option.map x.ssoEnabled ~f:SsoEnabled.to_value));
        ("DesiredNumberOfDomainControllers",
          (Option.map x.desiredNumberOfDomainControllers
             ~f:DesiredNumberOfDomainControllers.to_value));
        ("OwnerDirectoryDescription",
          (Option.map x.ownerDirectoryDescription
             ~f:OwnerDirectoryDescription.to_value));
        ("RegionsInfo", (Option.map x.regionsInfo ~f:RegionsInfo.to_value));
        ("OsVersion", (Option.map x.osVersion ~f:OSVersion.to_value));
        ("HybridSettings",
          (Option.map x.hybridSettings ~f:HybridSettingsDescription.to_value));
        ("NetworkType", (Option.map x.networkType ~f:NetworkType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkType =
        (Option.map ~f:NetworkType.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let hybridSettings =
        (Option.map ~f:HybridSettingsDescription.of_xml)
          (Xml.child xml_arg0 "HybridSettings") in
      let osVersion =
        (Option.map ~f:OSVersion.of_xml) (Xml.child xml_arg0 "OsVersion") in
      let regionsInfo =
        (Option.map ~f:RegionsInfo.of_xml) (Xml.child xml_arg0 "RegionsInfo") in
      let ownerDirectoryDescription =
        (Option.map ~f:OwnerDirectoryDescription.of_xml)
          (Xml.child xml_arg0 "OwnerDirectoryDescription") in
      let desiredNumberOfDomainControllers =
        (Option.map ~f:DesiredNumberOfDomainControllers.of_xml)
          (Xml.child xml_arg0 "DesiredNumberOfDomainControllers") in
      let ssoEnabled =
        (Option.map ~f:SsoEnabled.of_xml) (Xml.child xml_arg0 "SsoEnabled") in
      let stageReason =
        (Option.map ~f:StageReason.of_xml) (Xml.child xml_arg0 "StageReason") in
      let radiusStatus =
        (Option.map ~f:RadiusStatus.of_xml)
          (Xml.child xml_arg0 "RadiusStatus") in
      let radiusSettings =
        (Option.map ~f:RadiusSettings.of_xml)
          (Xml.child xml_arg0 "RadiusSettings") in
      let connectSettings =
        (Option.map ~f:DirectoryConnectSettingsDescription.of_xml)
          (Xml.child xml_arg0 "ConnectSettings") in
      let vpcSettings =
        (Option.map ~f:DirectoryVpcSettingsDescription.of_xml)
          (Xml.child xml_arg0 "VpcSettings") in
      let type_ =
        (Option.map ~f:DirectoryType.of_xml) (Xml.child xml_arg0 "Type") in
      let stageLastUpdatedDateTime =
        (Option.map ~f:LastUpdatedDateTime.of_xml)
          (Xml.child xml_arg0 "StageLastUpdatedDateTime") in
      let launchTime =
        (Option.map ~f:LaunchTime.of_xml) (Xml.child xml_arg0 "LaunchTime") in
      let shareNotes =
        (Option.map ~f:Notes.of_xml) (Xml.child xml_arg0 "ShareNotes") in
      let shareMethod =
        (Option.map ~f:ShareMethod.of_xml) (Xml.child xml_arg0 "ShareMethod") in
      let shareStatus =
        (Option.map ~f:ShareStatus.of_xml) (Xml.child xml_arg0 "ShareStatus") in
      let stage =
        (Option.map ~f:DirectoryStage.of_xml) (Xml.child xml_arg0 "Stage") in
      let dnsIpv6Addrs =
        (Option.map ~f:DnsIpv6Addrs.of_xml)
          (Xml.child xml_arg0 "DnsIpv6Addrs") in
      let dnsIpAddrs =
        (Option.map ~f:DnsIpAddrs.of_xml) (Xml.child xml_arg0 "DnsIpAddrs") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let accessUrl =
        (Option.map ~f:AccessUrl.of_xml) (Xml.child xml_arg0 "AccessUrl") in
      let alias =
        (Option.map ~f:AliasName.of_xml) (Xml.child xml_arg0 "Alias") in
      let edition =
        (Option.map ~f:DirectoryEdition.of_xml)
          (Xml.child xml_arg0 "Edition") in
      let size =
        (Option.map ~f:DirectorySize.of_xml) (Xml.child xml_arg0 "Size") in
      let shortName =
        (Option.map ~f:DirectoryShortName.of_xml)
          (Xml.child xml_arg0 "ShortName") in
      let name =
        (Option.map ~f:DirectoryName.of_xml) (Xml.child xml_arg0 "Name") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?networkType ?hybridSettings ?osVersion ?regionsInfo
        ?ownerDirectoryDescription ?desiredNumberOfDomainControllers
        ?ssoEnabled ?stageReason ?radiusStatus ?radiusSettings
        ?connectSettings ?vpcSettings ?type_ ?stageLastUpdatedDateTime
        ?launchTime ?shareNotes ?shareMethod ?shareStatus ?stage
        ?dnsIpv6Addrs ?dnsIpAddrs ?description ?accessUrl ?alias ?edition
        ?size ?shortName ?name ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkType = field_map json__ "NetworkType" NetworkType.of_json in
      let hybridSettings =
        field_map json__ "HybridSettings" HybridSettingsDescription.of_json in
      let osVersion = field_map json__ "OsVersion" OSVersion.of_json in
      let regionsInfo = field_map json__ "RegionsInfo" RegionsInfo.of_json in
      let ownerDirectoryDescription =
        field_map json__ "OwnerDirectoryDescription"
          OwnerDirectoryDescription.of_json in
      let desiredNumberOfDomainControllers =
        field_map json__ "DesiredNumberOfDomainControllers"
          DesiredNumberOfDomainControllers.of_json in
      let ssoEnabled = field_map json__ "SsoEnabled" SsoEnabled.of_json in
      let stageReason = field_map json__ "StageReason" StageReason.of_json in
      let radiusStatus = field_map json__ "RadiusStatus" RadiusStatus.of_json in
      let radiusSettings =
        field_map json__ "RadiusSettings" RadiusSettings.of_json in
      let connectSettings =
        field_map json__ "ConnectSettings"
          DirectoryConnectSettingsDescription.of_json in
      let vpcSettings =
        field_map json__ "VpcSettings"
          DirectoryVpcSettingsDescription.of_json in
      let type_ = field_map json__ "Type" DirectoryType.of_json in
      let stageLastUpdatedDateTime =
        field_map json__ "StageLastUpdatedDateTime"
          LastUpdatedDateTime.of_json in
      let launchTime = field_map json__ "LaunchTime" LaunchTime.of_json in
      let shareNotes = field_map json__ "ShareNotes" Notes.of_json in
      let shareMethod = field_map json__ "ShareMethod" ShareMethod.of_json in
      let shareStatus = field_map json__ "ShareStatus" ShareStatus.of_json in
      let stage = field_map json__ "Stage" DirectoryStage.of_json in
      let dnsIpv6Addrs = field_map json__ "DnsIpv6Addrs" DnsIpv6Addrs.of_json in
      let dnsIpAddrs = field_map json__ "DnsIpAddrs" DnsIpAddrs.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let accessUrl = field_map json__ "AccessUrl" AccessUrl.of_json in
      let alias = field_map json__ "Alias" AliasName.of_json in
      let edition = field_map json__ "Edition" DirectoryEdition.of_json in
      let size = field_map json__ "Size" DirectorySize.of_json in
      let shortName = field_map json__ "ShortName" DirectoryShortName.of_json in
      let name = field_map json__ "Name" DirectoryName.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?networkType ?hybridSettings ?osVersion ?regionsInfo
        ?ownerDirectoryDescription ?desiredNumberOfDomainControllers
        ?ssoEnabled ?stageReason ?radiusStatus ?radiusSettings
        ?connectSettings ?vpcSettings ?type_ ?stageLastUpdatedDateTime
        ?launchTime ?shareNotes ?shareMethod ?shareStatus ?stage
        ?dnsIpv6Addrs ?dnsIpAddrs ?description ?accessUrl ?alias ?edition
        ?size ?shortName ?name ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an Directory Service directory."]
module ConditionalForwarder =
  struct
    type nonrec t =
      {
      remoteDomainName: RemoteDomainName.t option
        [@ocaml.doc
          "The fully qualified domain name (FQDN) of the remote domains pointed to by the conditional forwarder."];
      dnsIpAddrs: DnsIpAddrs.t option
        [@ocaml.doc
          "The IP addresses of the remote DNS server associated with RemoteDomainName. This is the IP address of the DNS server that your conditional forwarder points to."];
      dnsIpv6Addrs: DnsIpv6Addrs.t option
        [@ocaml.doc
          "The IPv6 addresses of the remote DNS server associated with RemoteDomainName. This is the IPv6 address of the DNS server that your conditional forwarder points to."];
      replicationScope: ReplicationScope.t option
        [@ocaml.doc
          "The replication scope of the conditional forwarder. The only allowed value is Domain, which will replicate the conditional forwarder to all of the domain controllers for your Amazon Web Services directory."]}
    let make ?remoteDomainName =
      fun ?dnsIpAddrs ->
        fun ?dnsIpv6Addrs ->
          fun ?replicationScope ->
            fun () ->
              { remoteDomainName; dnsIpAddrs; dnsIpv6Addrs; replicationScope
              }
    let to_value x =
      structure_to_value
        [("RemoteDomainName",
           (Option.map x.remoteDomainName ~f:RemoteDomainName.to_value));
        ("DnsIpAddrs", (Option.map x.dnsIpAddrs ~f:DnsIpAddrs.to_value));
        ("DnsIpv6Addrs",
          (Option.map x.dnsIpv6Addrs ~f:DnsIpv6Addrs.to_value));
        ("ReplicationScope",
          (Option.map x.replicationScope ~f:ReplicationScope.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicationScope =
        (Option.map ~f:ReplicationScope.of_xml)
          (Xml.child xml_arg0 "ReplicationScope") in
      let dnsIpv6Addrs =
        (Option.map ~f:DnsIpv6Addrs.of_xml)
          (Xml.child xml_arg0 "DnsIpv6Addrs") in
      let dnsIpAddrs =
        (Option.map ~f:DnsIpAddrs.of_xml) (Xml.child xml_arg0 "DnsIpAddrs") in
      let remoteDomainName =
        (Option.map ~f:RemoteDomainName.of_xml)
          (Xml.child xml_arg0 "RemoteDomainName") in
      make ?replicationScope ?dnsIpv6Addrs ?dnsIpAddrs ?remoteDomainName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicationScope =
        field_map json__ "ReplicationScope" ReplicationScope.of_json in
      let dnsIpv6Addrs = field_map json__ "DnsIpv6Addrs" DnsIpv6Addrs.of_json in
      let dnsIpAddrs = field_map json__ "DnsIpAddrs" DnsIpAddrs.of_json in
      let remoteDomainName =
        field_map json__ "RemoteDomainName" RemoteDomainName.of_json in
      make ?replicationScope ?dnsIpv6Addrs ?dnsIpAddrs ?remoteDomainName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Points to a remote domain with which you are setting up a trust relationship. Conditional forwarders are required in order to set up a trust relationship with another domain."]
module ClientAuthenticationSettingInfo =
  struct
    type nonrec t =
      {
      type_: ClientAuthenticationType.t option
        [@ocaml.doc
          "The type of client authentication for the specified directory. If no type is specified, a list of all client authentication types that are supported for the directory is retrieved."];
      status: ClientAuthenticationStatus.t option
        [@ocaml.doc
          "Whether the client authentication type is enabled or disabled for the specified directory."];
      lastUpdatedDateTime: LastUpdatedDateTime.t option
        [@ocaml.doc
          "The date and time when the status of the client authentication type was last updated."]}
    let make ?type_ =
      fun ?status ->
        fun ?lastUpdatedDateTime ->
          fun () -> { type_; status; lastUpdatedDateTime }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:ClientAuthenticationType.to_value));
        ("Status",
          (Option.map x.status ~f:ClientAuthenticationStatus.to_value));
        ("LastUpdatedDateTime",
          (Option.map x.lastUpdatedDateTime ~f:LastUpdatedDateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedDateTime =
        (Option.map ~f:LastUpdatedDateTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedDateTime") in
      let status =
        (Option.map ~f:ClientAuthenticationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let type_ =
        (Option.map ~f:ClientAuthenticationType.of_xml)
          (Xml.child xml_arg0 "Type") in
      make ?lastUpdatedDateTime ?status ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedDateTime =
        field_map json__ "LastUpdatedDateTime" LastUpdatedDateTime.of_json in
      let status =
        field_map json__ "Status" ClientAuthenticationStatus.of_json in
      let type_ = field_map json__ "Type" ClientAuthenticationType.of_json in
      make ?lastUpdatedDateTime ?status ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a client authentication method for a directory."]
module CertificateRegisteredDateTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module CertificateStateReason =
  struct
    type nonrec t = string
    let context_ = "CertificateStateReason"
    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:"CertificateStateReason" j
    let to_json = simple_to_json to_value
  end
module ClientCertAuthSettings =
  struct
    type nonrec t =
      {
      oCSPUrl: OCSPUrl.t option
        [@ocaml.doc
          "Specifies the URL of the default OCSP server used to check for revocation status. A secondary value to any OCSP address found in the AIA extension of the user certificate."]}
    let make ?oCSPUrl = fun () -> { oCSPUrl }
    let to_value x =
      structure_to_value
        [("OCSPUrl", (Option.map x.oCSPUrl ~f:OCSPUrl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let oCSPUrl =
        (Option.map ~f:OCSPUrl.of_xml) (Xml.child xml_arg0 "OCSPUrl") in
      make ?oCSPUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let oCSPUrl = field_map json__ "OCSPUrl" OCSPUrl.of_json in
      make ?oCSPUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the client certificate authentication settings for the RegisterCertificate and DescribeCertificate operations."]
module AssessmentStatusCode =
  struct
    type nonrec t = string
    let context_ = "AssessmentStatusCode"
    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:"AssessmentStatusCode" j
    let to_json = simple_to_json to_value
  end
module AssessmentStatusReason =
  struct
    type nonrec t = string
    let context_ = "AssessmentStatusReason"
    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:"AssessmentStatusReason" j
    let to_json = simple_to_json to_value
  end
module AssessmentVersion =
  struct
    type nonrec t = string
    let context_ = "AssessmentVersion"
    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:"AssessmentVersion" j
    let to_json = simple_to_json to_value
  end
module AssessmentReport =
  struct
    type nonrec t =
      {
      domainControllerIp: IpAddr.t option
        [@ocaml.doc
          "The IP address of the domain controller that was tested during the assessment."];
      validations: AssessmentValidations.t option
        [@ocaml.doc
          "A list of validation results for different test categories performed against this domain controller."]}
    let make ?domainControllerIp =
      fun ?validations -> fun () -> { domainControllerIp; validations }
    let to_value x =
      structure_to_value
        [("DomainControllerIp",
           (Option.map x.domainControllerIp ~f:IpAddr.to_value));
        ("Validations",
          (Option.map x.validations ~f:AssessmentValidations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validations =
        (Option.map ~f:AssessmentValidations.of_xml)
          (Xml.child xml_arg0 "Validations") in
      let domainControllerIp =
        (Option.map ~f:IpAddr.of_xml)
          (Xml.child xml_arg0 "DomainControllerIp") in
      make ?validations ?domainControllerIp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validations =
        field_map json__ "Validations" AssessmentValidations.of_json in
      let domainControllerIp =
        field_map json__ "DomainControllerIp" IpAddr.of_json in
      make ?validations ?domainControllerIp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the results of validation tests performed against a specific domain controller during a directory assessment."]
module Attributes =
  struct
    type nonrec t = Attribute.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:Attribute.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:Attribute.of_xml)
    let of_json j =
      list_of_json ~kind:"Attributes" ~of_json:Attribute.of_json j
    let to_json v = composed_to_json to_value v
  end
module ComputerName =
  struct
    type nonrec t = string
    let context_ = "ComputerName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:15) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ComputerName" j
    let to_json = simple_to_json to_value
  end
module SID =
  struct
    type nonrec t = string
    let context_ = "SID"
    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:"[&\\w+-.@]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SID" j
    let to_json = simple_to_json to_value
  end
module IpRoute =
  struct
    type nonrec t =
      {
      cidrIp: CidrIp.t option
        [@ocaml.doc
          "IP address block in CIDR format, such as 10.0.0.0/24. This is often the address block of the DNS server used for your self-managed domain. For a single IP address, use a CIDR address block with /32. For example, 10.0.0.0/32."];
      cidrIpv6: CidrIpv6.t option
        [@ocaml.doc
          "IPv6 address block in CIDR format, such as 2001:db8::/32. This is often the address block of the DNS server used for your self-managed domain. For a single IPv6 address, use a CIDR address block with /128. For example, 2001:db8::1/128."];
      description: Description.t option
        [@ocaml.doc "Description of the address block."]}
    let make ?cidrIp =
      fun ?cidrIpv6 ->
        fun ?description -> fun () -> { cidrIp; cidrIpv6; description }
    let to_value x =
      structure_to_value
        [("CidrIp", (Option.map x.cidrIp ~f:CidrIp.to_value));
        ("CidrIpv6", (Option.map x.cidrIpv6 ~f:CidrIpv6.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let cidrIpv6 =
        (Option.map ~f:CidrIpv6.of_xml) (Xml.child xml_arg0 "CidrIpv6") in
      let cidrIp =
        (Option.map ~f:CidrIp.of_xml) (Xml.child xml_arg0 "CidrIp") in
      make ?description ?cidrIpv6 ?cidrIp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "Description" Description.of_json in
      let cidrIpv6 = field_map json__ "CidrIpv6" CidrIpv6.of_json in
      let cidrIp = field_map json__ "CidrIp" CidrIp.of_json in
      make ?description ?cidrIpv6 ?cidrIp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the IP address block. This is often the address block of the DNS server used for your self-managed domain."]
module ClientException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A client exception has occurred."]
module EntityDoesNotExistException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified entity could not be found."]
module InvalidParameterException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "One or more parameters are not valid."]
module ServiceException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An exception has occurred in Directory Service."]
module UnsupportedOperationException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The operation is not supported."]
module DirectoryDoesNotExistException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified directory does not exist in the system."]
module DirectoryUnavailableException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified directory is unavailable."]
module IncompatibleSettingsException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified directory setting is not compatible with other settings."]
module UnsupportedSettingsException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified directory setting is not supported."]
module Settings =
  struct
    type nonrec t = Setting.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:Setting.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:Setting.of_xml)
    let of_json j = list_of_json ~kind:"Settings" ~of_json:Setting.of_json j
    let to_json v = composed_to_json to_value v
  end
module DomainControllerLimitExceededException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The maximum allowed number of domain controllers per directory was exceeded. The default limit per directory is 20 domain controllers."]
module ADAssessmentLimitExceededException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A directory assessment is automatically created when you create a hybrid directory. There are two types of assessments: CUSTOMER and SYSTEM. Your Amazon Web Services account has a limit of 100 CUSTOMER directory assessments. If you attempt to create a hybrid directory; and you already have 100 CUSTOMER directory assessments;, you will encounter an error. Delete assessments to free up capacity before trying again. You can request an increase to your CUSTOMER directory assessment quota by contacting customer support or delete existing CUSTOMER directory assessments; to free up capacity."]
module HybridAdministratorAccountUpdate =
  struct
    type nonrec t =
      {
      secretArn: SecretArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Web Services Secrets Manager secret that contains the credentials for the AD administrator user, and enables hybrid domain controllers to join the managed AD domain. For example: \\{\"customerAdAdminDomainUsername\":\"carlos_salazar\",\"customerAdAdminDomainPassword\":\"ExamplePassword123!\"\\}."]}
    let context_ = "HybridAdministratorAccountUpdate"
    let make ~secretArn = fun () -> { secretArn }
    let to_value x =
      structure_to_value
        [("SecretArn", (Some (SecretArn.to_value x.secretArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let secretArn =
        SecretArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SecretArn") in
      make ~secretArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let secretArn = field_map_exn json__ "SecretArn" SecretArn.of_json in
      make ~secretArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use to recover to the hybrid directory administrator account credentials."]
module HybridCustomerInstancesSettings =
  struct
    type nonrec t =
      {
      customerDnsIps: CustomerDnsIps.t
        [@ocaml.doc
          "The IP addresses of the DNS servers or domain controllers in your self-managed AD environment."];
      instanceIds: AssessmentInstanceIds.t
        [@ocaml.doc
          "The identifiers of the self-managed instances with SSM used in hybrid directory."]}
    let context_ = "HybridCustomerInstancesSettings"
    let make ~customerDnsIps =
      fun ~instanceIds -> fun () -> { customerDnsIps; instanceIds }
    let to_value x =
      structure_to_value
        [("CustomerDnsIps",
           (Some (CustomerDnsIps.to_value x.customerDnsIps)));
        ("InstanceIds",
          (Some (AssessmentInstanceIds.to_value x.instanceIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceIds =
        AssessmentInstanceIds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InstanceIds") in
      let customerDnsIps =
        CustomerDnsIps.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CustomerDnsIps") in
      make ~instanceIds ~customerDnsIps ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceIds =
        field_map_exn json__ "InstanceIds" AssessmentInstanceIds.of_json in
      let customerDnsIps =
        field_map_exn json__ "CustomerDnsIps" CustomerDnsIps.of_json in
      make ~instanceIds ~customerDnsIps ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains configuration settings for self-managed instances with SSM used in hybrid directory operations."]
module AccessDeniedException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient access to perform this action."]
module DirectoryInDesiredStateException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The directory is already updated to desired update type settings."]
module SnapshotLimitExceededException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The maximum number of manual snapshots for the directory has been reached. You can use the GetSnapshotLimits operation to determine the snapshot limits for a directory."]
module CreateSnapshotBeforeUpdate =
  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 DirectorySizeUpdateSettings =
  struct
    type nonrec t =
      {
      directorySize: DirectorySize.t option
        [@ocaml.doc "The target directory size for the update operation."]}
    let make ?directorySize = fun () -> { directorySize }
    let to_value x =
      structure_to_value
        [("DirectorySize",
           (Option.map x.directorySize ~f:DirectorySize.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directorySize =
        (Option.map ~f:DirectorySize.of_xml)
          (Xml.child xml_arg0 "DirectorySize") in
      make ?directorySize ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directorySize =
        field_map json__ "DirectorySize" DirectorySize.of_json in
      make ?directorySize ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the directory size configuration for update operations."]
module NetworkUpdateSettings =
  struct
    type nonrec t =
      {
      networkType: NetworkType.t option
        [@ocaml.doc "The target network type for the directory update."];
      customerDnsIpsV6: DnsIpv6Addrs.t option
        [@ocaml.doc
          "IPv6 addresses of DNS servers or domain controllers in the self-managed directory. Required only when updating an AD Connector directory."]}
    let make ?networkType =
      fun ?customerDnsIpsV6 -> fun () -> { networkType; customerDnsIpsV6 }
    let to_value x =
      structure_to_value
        [("NetworkType", (Option.map x.networkType ~f:NetworkType.to_value));
        ("CustomerDnsIpsV6",
          (Option.map x.customerDnsIpsV6 ~f:DnsIpv6Addrs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customerDnsIpsV6 =
        (Option.map ~f:DnsIpv6Addrs.of_xml)
          (Xml.child xml_arg0 "CustomerDnsIpsV6") in
      let networkType =
        (Option.map ~f:NetworkType.of_xml) (Xml.child xml_arg0 "NetworkType") in
      make ?customerDnsIpsV6 ?networkType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customerDnsIpsV6 =
        field_map json__ "CustomerDnsIpsV6" DnsIpv6Addrs.of_json in
      let networkType = field_map json__ "NetworkType" NetworkType.of_json in
      make ?customerDnsIpsV6 ?networkType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the network configuration for directory update operations."]
module UpdateType =
  struct
    type nonrec t =
      | OS 
      | NETWORK 
      | SIZE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OS -> "OS"
      | NETWORK -> "NETWORK"
      | SIZE -> "SIZE"
      | Non_static_id s -> s
    let of_string =
      function
      | "OS" -> OS
      | "NETWORK" -> NETWORK
      | "SIZE" -> SIZE
      | 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 UpdateType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UpdateType" j)
    let to_json = simple_to_json to_value
  end
module DirectoryNotSharedException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified directory has not been shared with this Amazon Web Services account."]
module InvalidTargetException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified shared target is not valid."]
module UnshareTarget =
  struct
    type nonrec t =
      {
      id: TargetId.t
        [@ocaml.doc "Identifier of the directory consumer account."];
      type_: TargetType.t
        [@ocaml.doc "Type of identifier to be used in the Id field."]}
    let context_ = "UnshareTarget"
    let make ~id = fun ~type_ -> fun () -> { id; type_ }
    let to_value x =
      structure_to_value
        [("Id", (Some (TargetId.to_value x.id)));
        ("Type", (Some (TargetType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        TargetType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let id =
        TargetId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ~type_ ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "Type" TargetType.of_json in
      let id = field_map_exn json__ "Id" TargetId.of_json in
      make ~type_ ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifier that contains details about the directory consumer account with whom the directory is being unshared."]
module CreateSnapshotBeforeSchemaExtension =
  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 LdifContent =
  struct
    type nonrec t = string
    let context_ = "LdifContent"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500000) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LdifContent" j
    let to_json = simple_to_json to_value
  end
module AssessmentConfiguration =
  struct
    type nonrec t =
      {
      customerDnsIps: CustomerDnsIps.t
        [@ocaml.doc
          "A list of IP addresses for the DNS servers or domain controllers in your self-managed AD that are tested during the assessment."];
      dnsName: DirectoryName.t
        [@ocaml.doc
          "The fully qualified domain name (FQDN) of the self-managed AD domain to assess."];
      vpcSettings: DirectoryVpcSettings.t ;
      instanceIds: AssessmentInstanceIds.t
        [@ocaml.doc
          "The identifiers of the self-managed instances with SSM that are used to perform connectivity and validation tests."];
      securityGroupIds: SecurityGroupIds.t option
        [@ocaml.doc
          "By default, the service attaches a security group to allow network access to the self-managed nodes in your Amazon VPC. You can optionally supply your own security group that allows network traffic to and from your self-managed domain controllers outside of your Amazon VPC."]}
    let context_ = "AssessmentConfiguration"
    let make ?securityGroupIds =
      fun ~customerDnsIps ->
        fun ~dnsName ->
          fun ~vpcSettings ->
            fun ~instanceIds ->
              fun () ->
                {
                  securityGroupIds;
                  customerDnsIps;
                  dnsName;
                  vpcSettings;
                  instanceIds
                }
    let to_value x =
      structure_to_value
        [("CustomerDnsIps",
           (Some (CustomerDnsIps.to_value x.customerDnsIps)));
        ("DnsName", (Some (DirectoryName.to_value x.dnsName)));
        ("VpcSettings", (Some (DirectoryVpcSettings.to_value x.vpcSettings)));
        ("InstanceIds",
          (Some (AssessmentInstanceIds.to_value x.instanceIds)));
        ("SecurityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupIds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityGroupIds =
        (Option.map ~f:SecurityGroupIds.of_xml)
          (Xml.child xml_arg0 "SecurityGroupIds") in
      let instanceIds =
        AssessmentInstanceIds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InstanceIds") in
      let vpcSettings =
        DirectoryVpcSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VpcSettings") in
      let dnsName =
        DirectoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DnsName") in
      let customerDnsIps =
        CustomerDnsIps.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CustomerDnsIps") in
      make ?securityGroupIds ~instanceIds ~vpcSettings ~dnsName
        ~customerDnsIps ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityGroupIds =
        field_map json__ "SecurityGroupIds" SecurityGroupIds.of_json in
      let instanceIds =
        field_map_exn json__ "InstanceIds" AssessmentInstanceIds.of_json in
      let vpcSettings =
        field_map_exn json__ "VpcSettings" DirectoryVpcSettings.of_json in
      let dnsName = field_map_exn json__ "DnsName" DirectoryName.of_json in
      let customerDnsIps =
        field_map_exn json__ "CustomerDnsIps" CustomerDnsIps.of_json in
      make ?securityGroupIds ~instanceIds ~vpcSettings ~dnsName
        ~customerDnsIps ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains configuration parameters required to perform a directory assessment."]
module DirectoryAlreadySharedException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified directory has already been shared with this Amazon Web Services account."]
module OrganizationsException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exception encountered while trying to access your Amazon Web Services organization."]
module ShareLimitExceededException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The maximum number of Amazon Web Services accounts that you can share with this directory has been reached."]
module ShareTarget =
  struct
    type nonrec t =
      {
      id: TargetId.t
        [@ocaml.doc "Identifier of the directory consumer account."];
      type_: TargetType.t
        [@ocaml.doc "Type of identifier to be used in the Id field."]}
    let context_ = "ShareTarget"
    let make ~id = fun ~type_ -> fun () -> { id; type_ }
    let to_value x =
      structure_to_value
        [("Id", (Some (TargetId.to_value x.id)));
        ("Type", (Some (TargetType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        TargetType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let id =
        TargetId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ~type_ ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "Type" TargetType.of_json in
      let id = field_map_exn json__ "Id" TargetId.of_json in
      make ~type_ ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifier that contains details about the directory consumer account."]
module InvalidPasswordException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The new password provided by the user does not meet the password complexity requirements defined in your directory."]
module UserDoesNotExistException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The user provided a username that does not exist in your directory."]
module CustomerUserName =
  struct
    type nonrec t = string
    let context_ = "CustomerUserName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(?!.*\\\\|.*\"|.*\\/|.*\\[|.*\\]|.*:|.*;|.*\\||.*=|.*,|.*\\+|.*\\*|.*\\?|.*<|.*>|.*@).*$")));
        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:"CustomerUserName" j
    let to_json = simple_to_json to_value
  end
module UserPassword =
  struct
    type nonrec t = string
    let context_ = "UserPassword"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:127) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"UserPassword" j
    let to_json = simple_to_json to_value
  end
module ResourceId =
  struct
    type nonrec t = string
    let context_ = "ResourceId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[d]-[0-9a-f]{10}$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceId" j
    let to_json = simple_to_json to_value
  end
module TagKeys =
  struct
    type nonrec t = TagKey.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeys" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module CidrIps =
  struct
    type nonrec t = CidrIp.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:CidrIp.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:CidrIp.of_xml)
    let of_json j = list_of_json ~kind:"CidrIps" ~of_json:CidrIp.of_json j
    let to_json v = composed_to_json to_value v
  end
module CidrIpv6s =
  struct
    type nonrec t = CidrIpv6.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:CidrIpv6.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:CidrIpv6.of_xml)
    let of_json j =
      list_of_json ~kind:"CidrIpv6s" ~of_json:CidrIpv6.of_json j
    let to_json v = composed_to_json to_value v
  end
module CertificateAlreadyExistsException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The certificate has already been registered into the system."]
module CertificateLimitExceededException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The certificate could not be added because the certificate limit has been reached."]
module InvalidCertificateException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The certificate PEM that was provided has incorrect encoding."]
module CertificateData =
  struct
    type nonrec t = string
    let context_ = "CertificateData"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:8192) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CertificateData" j
    let to_json = simple_to_json to_value
  end
module InvalidNextTokenException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The NextToken value is not valid."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module Tags =
  struct
    type nonrec t = Tag.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:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"Tags" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module SchemaExtensionsInfo =
  struct
    type nonrec t = SchemaExtensionInfo.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:SchemaExtensionInfo.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:SchemaExtensionInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"SchemaExtensionsInfo"
        ~of_json:SchemaExtensionInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module LogSubscriptions =
  struct
    type nonrec t = LogSubscription.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:LogSubscription.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:LogSubscription.of_xml)
    let of_json j =
      list_of_json ~kind:"LogSubscriptions" ~of_json:LogSubscription.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module IpRoutesInfo =
  struct
    type nonrec t = IpRouteInfo.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:IpRouteInfo.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:IpRouteInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"IpRoutesInfo" ~of_json:IpRouteInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module CertificatesInfo =
  struct
    type nonrec t = CertificateInfo.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:CertificateInfo.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:CertificateInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"CertificatesInfo" ~of_json:CertificateInfo.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module PageLimit =
  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 PageLimit" 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 Assessments =
  struct
    type nonrec t = AssessmentSummary.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:AssessmentSummary.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:AssessmentSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"Assessments" ~of_json:AssessmentSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module AssessmentLimit =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for AssessmentLimit" 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 SnapshotLimits =
  struct
    type nonrec t =
      {
      manualSnapshotsLimit: Limit.t option
        [@ocaml.doc "The maximum number of manual snapshots allowed."];
      manualSnapshotsCurrentCount: Limit.t option
        [@ocaml.doc
          "The current number of manual snapshots of the directory."];
      manualSnapshotsLimitReached: ManualSnapshotsLimitReached.t option
        [@ocaml.doc
          "Indicates if the manual snapshot limit has been reached."]}
    let make ?manualSnapshotsLimit =
      fun ?manualSnapshotsCurrentCount ->
        fun ?manualSnapshotsLimitReached ->
          fun () ->
            {
              manualSnapshotsLimit;
              manualSnapshotsCurrentCount;
              manualSnapshotsLimitReached
            }
    let to_value x =
      structure_to_value
        [("ManualSnapshotsLimit",
           (Option.map x.manualSnapshotsLimit ~f:Limit.to_value));
        ("ManualSnapshotsCurrentCount",
          (Option.map x.manualSnapshotsCurrentCount ~f:Limit.to_value));
        ("ManualSnapshotsLimitReached",
          (Option.map x.manualSnapshotsLimitReached
             ~f:ManualSnapshotsLimitReached.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let manualSnapshotsLimitReached =
        (Option.map ~f:ManualSnapshotsLimitReached.of_xml)
          (Xml.child xml_arg0 "ManualSnapshotsLimitReached") in
      let manualSnapshotsCurrentCount =
        (Option.map ~f:Limit.of_xml)
          (Xml.child xml_arg0 "ManualSnapshotsCurrentCount") in
      let manualSnapshotsLimit =
        (Option.map ~f:Limit.of_xml)
          (Xml.child xml_arg0 "ManualSnapshotsLimit") in
      make ?manualSnapshotsLimitReached ?manualSnapshotsCurrentCount
        ?manualSnapshotsLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let manualSnapshotsLimitReached =
        field_map json__ "ManualSnapshotsLimitReached"
          ManualSnapshotsLimitReached.of_json in
      let manualSnapshotsCurrentCount =
        field_map json__ "ManualSnapshotsCurrentCount" Limit.of_json in
      let manualSnapshotsLimit =
        field_map json__ "ManualSnapshotsLimit" Limit.of_json in
      make ?manualSnapshotsLimitReached ?manualSnapshotsCurrentCount
        ?manualSnapshotsLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains manual snapshot limit information for a directory."]
module DirectoryLimits =
  struct
    type nonrec t =
      {
      cloudOnlyDirectoriesLimit: Limit.t option
        [@ocaml.doc
          "The maximum number of cloud directories allowed in the Region."];
      cloudOnlyDirectoriesCurrentCount: Limit.t option
        [@ocaml.doc "The current number of cloud directories in the Region."];
      cloudOnlyDirectoriesLimitReached:
        CloudOnlyDirectoriesLimitReached.t option
        [@ocaml.doc
          "Indicates if the cloud directory limit has been reached."];
      cloudOnlyMicrosoftADLimit: Limit.t option
        [@ocaml.doc
          "The maximum number of Managed Microsoft AD directories allowed in the region."];
      cloudOnlyMicrosoftADCurrentCount: Limit.t option
        [@ocaml.doc
          "The current number of Managed Microsoft AD directories in the region."];
      cloudOnlyMicrosoftADLimitReached:
        CloudOnlyDirectoriesLimitReached.t option
        [@ocaml.doc
          "Indicates if the Managed Microsoft AD directory limit has been reached."];
      connectedDirectoriesLimit: Limit.t option
        [@ocaml.doc
          "The maximum number of connected directories allowed in the Region."];
      connectedDirectoriesCurrentCount: Limit.t option
        [@ocaml.doc
          "The current number of connected directories in the Region."];
      connectedDirectoriesLimitReached:
        ConnectedDirectoriesLimitReached.t option
        [@ocaml.doc
          "Indicates if the connected directory limit has been reached."]}
    let make ?cloudOnlyDirectoriesLimit =
      fun ?cloudOnlyDirectoriesCurrentCount ->
        fun ?cloudOnlyDirectoriesLimitReached ->
          fun ?cloudOnlyMicrosoftADLimit ->
            fun ?cloudOnlyMicrosoftADCurrentCount ->
              fun ?cloudOnlyMicrosoftADLimitReached ->
                fun ?connectedDirectoriesLimit ->
                  fun ?connectedDirectoriesCurrentCount ->
                    fun ?connectedDirectoriesLimitReached ->
                      fun () ->
                        {
                          cloudOnlyDirectoriesLimit;
                          cloudOnlyDirectoriesCurrentCount;
                          cloudOnlyDirectoriesLimitReached;
                          cloudOnlyMicrosoftADLimit;
                          cloudOnlyMicrosoftADCurrentCount;
                          cloudOnlyMicrosoftADLimitReached;
                          connectedDirectoriesLimit;
                          connectedDirectoriesCurrentCount;
                          connectedDirectoriesLimitReached
                        }
    let to_value x =
      structure_to_value
        [("CloudOnlyDirectoriesLimit",
           (Option.map x.cloudOnlyDirectoriesLimit ~f:Limit.to_value));
        ("CloudOnlyDirectoriesCurrentCount",
          (Option.map x.cloudOnlyDirectoriesCurrentCount ~f:Limit.to_value));
        ("CloudOnlyDirectoriesLimitReached",
          (Option.map x.cloudOnlyDirectoriesLimitReached
             ~f:CloudOnlyDirectoriesLimitReached.to_value));
        ("CloudOnlyMicrosoftADLimit",
          (Option.map x.cloudOnlyMicrosoftADLimit ~f:Limit.to_value));
        ("CloudOnlyMicrosoftADCurrentCount",
          (Option.map x.cloudOnlyMicrosoftADCurrentCount ~f:Limit.to_value));
        ("CloudOnlyMicrosoftADLimitReached",
          (Option.map x.cloudOnlyMicrosoftADLimitReached
             ~f:CloudOnlyDirectoriesLimitReached.to_value));
        ("ConnectedDirectoriesLimit",
          (Option.map x.connectedDirectoriesLimit ~f:Limit.to_value));
        ("ConnectedDirectoriesCurrentCount",
          (Option.map x.connectedDirectoriesCurrentCount ~f:Limit.to_value));
        ("ConnectedDirectoriesLimitReached",
          (Option.map x.connectedDirectoriesLimitReached
             ~f:ConnectedDirectoriesLimitReached.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectedDirectoriesLimitReached =
        (Option.map ~f:ConnectedDirectoriesLimitReached.of_xml)
          (Xml.child xml_arg0 "ConnectedDirectoriesLimitReached") in
      let connectedDirectoriesCurrentCount =
        (Option.map ~f:Limit.of_xml)
          (Xml.child xml_arg0 "ConnectedDirectoriesCurrentCount") in
      let connectedDirectoriesLimit =
        (Option.map ~f:Limit.of_xml)
          (Xml.child xml_arg0 "ConnectedDirectoriesLimit") in
      let cloudOnlyMicrosoftADLimitReached =
        (Option.map ~f:CloudOnlyDirectoriesLimitReached.of_xml)
          (Xml.child xml_arg0 "CloudOnlyMicrosoftADLimitReached") in
      let cloudOnlyMicrosoftADCurrentCount =
        (Option.map ~f:Limit.of_xml)
          (Xml.child xml_arg0 "CloudOnlyMicrosoftADCurrentCount") in
      let cloudOnlyMicrosoftADLimit =
        (Option.map ~f:Limit.of_xml)
          (Xml.child xml_arg0 "CloudOnlyMicrosoftADLimit") in
      let cloudOnlyDirectoriesLimitReached =
        (Option.map ~f:CloudOnlyDirectoriesLimitReached.of_xml)
          (Xml.child xml_arg0 "CloudOnlyDirectoriesLimitReached") in
      let cloudOnlyDirectoriesCurrentCount =
        (Option.map ~f:Limit.of_xml)
          (Xml.child xml_arg0 "CloudOnlyDirectoriesCurrentCount") in
      let cloudOnlyDirectoriesLimit =
        (Option.map ~f:Limit.of_xml)
          (Xml.child xml_arg0 "CloudOnlyDirectoriesLimit") in
      make ?connectedDirectoriesLimitReached
        ?connectedDirectoriesCurrentCount ?connectedDirectoriesLimit
        ?cloudOnlyMicrosoftADLimitReached ?cloudOnlyMicrosoftADCurrentCount
        ?cloudOnlyMicrosoftADLimit ?cloudOnlyDirectoriesLimitReached
        ?cloudOnlyDirectoriesCurrentCount ?cloudOnlyDirectoriesLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectedDirectoriesLimitReached =
        field_map json__ "ConnectedDirectoriesLimitReached"
          ConnectedDirectoriesLimitReached.of_json in
      let connectedDirectoriesCurrentCount =
        field_map json__ "ConnectedDirectoriesCurrentCount" Limit.of_json in
      let connectedDirectoriesLimit =
        field_map json__ "ConnectedDirectoriesLimit" Limit.of_json in
      let cloudOnlyMicrosoftADLimitReached =
        field_map json__ "CloudOnlyMicrosoftADLimitReached"
          CloudOnlyDirectoriesLimitReached.of_json in
      let cloudOnlyMicrosoftADCurrentCount =
        field_map json__ "CloudOnlyMicrosoftADCurrentCount" Limit.of_json in
      let cloudOnlyMicrosoftADLimit =
        field_map json__ "CloudOnlyMicrosoftADLimit" Limit.of_json in
      let cloudOnlyDirectoriesLimitReached =
        field_map json__ "CloudOnlyDirectoriesLimitReached"
          CloudOnlyDirectoriesLimitReached.of_json in
      let cloudOnlyDirectoriesCurrentCount =
        field_map json__ "CloudOnlyDirectoriesCurrentCount" Limit.of_json in
      let cloudOnlyDirectoriesLimit =
        field_map json__ "CloudOnlyDirectoriesLimit" Limit.of_json in
      make ?connectedDirectoriesLimitReached
        ?connectedDirectoriesCurrentCount ?connectedDirectoriesLimit
        ?cloudOnlyMicrosoftADLimitReached ?cloudOnlyMicrosoftADCurrentCount
        ?cloudOnlyMicrosoftADLimit ?cloudOnlyDirectoriesLimitReached
        ?cloudOnlyDirectoriesCurrentCount ?cloudOnlyDirectoriesLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains directory limit information for a Region."]
module AuthenticationFailedException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "The textual message for the exception."];
      requestId: RequestId.t option
        [@ocaml.doc
          "The identifier of the request that caused the exception."]}
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An authentication error occurred."]
module InsufficientPermissionsException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The account does not have sufficient permission to perform the operation."]
module ConnectPassword =
  struct
    type nonrec t = string
    let context_ = "ConnectPassword"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ConnectPassword" j
    let to_json = simple_to_json to_value
  end
module EntityAlreadyExistsException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified entity already exists."]
module InvalidLDAPSStatusException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The LDAP activities could not be performed because they are limited by the LDAPS status."]
module NoAvailableCertificateException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Client authentication setup could not be completed because at least one valid certificate must be registered in the system."]
module LDAPSType =
  struct
    type nonrec t =
      | Client 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Client -> "Client" | Non_static_id s -> s
    let of_string = function | "Client" -> Client | 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 LDAPSType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LDAPSType" j)
    let to_json = simple_to_json to_value
  end
module InvalidClientAuthStatusException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Client authentication is already enabled."]
module EnableAlreadyInProgressException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An enable operation for CA enrollment policy is already in progress for this directory."]
module PcaConnectorArn =
  struct
    type nonrec t = string
    let context_ = "PcaConnectorArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^arn:[\\w-]+:pca-connector-ad:[\\w-]+:[0-9]+:connector\\/[0-9a-f]{8}(-[0-9a-f]{4}){3}-[0-9a-f]{12}$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PcaConnectorArn" j
    let to_json = simple_to_json to_value
  end
module DisableAlreadyInProgressException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A disable operation for CA enrollment policy is already in progress for this directory."]
module UpdateActivities =
  struct
    type nonrec t = UpdateInfoEntry.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:UpdateInfoEntry.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:UpdateInfoEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"UpdateActivities" ~of_json:UpdateInfoEntry.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Trusts =
  struct
    type nonrec t = Trust.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:Trust.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:Trust.of_xml)
    let of_json j = list_of_json ~kind:"Trusts" ~of_json:Trust.of_json j
    let to_json v = composed_to_json to_value v
  end
module TrustIds =
  struct
    type nonrec t = TrustId.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:TrustId.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:TrustId.of_xml)
    let of_json j = list_of_json ~kind:"TrustIds" ~of_json:TrustId.of_json j
    let to_json v = composed_to_json to_value v
  end
module Snapshots =
  struct
    type nonrec t = Snapshot.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:Snapshot.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:Snapshot.of_xml)
    let of_json j =
      list_of_json ~kind:"Snapshots" ~of_json:Snapshot.of_json j
    let to_json v = composed_to_json to_value v
  end
module SnapshotIds =
  struct
    type nonrec t = SnapshotId.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:SnapshotId.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:SnapshotId.of_xml)
    let of_json j =
      list_of_json ~kind:"SnapshotIds" ~of_json:SnapshotId.of_json j
    let to_json v = composed_to_json to_value v
  end
module SharedDirectories =
  struct
    type nonrec t = SharedDirectory.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:SharedDirectory.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:SharedDirectory.of_xml)
    let of_json j =
      list_of_json ~kind:"SharedDirectories" ~of_json:SharedDirectory.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module DirectoryIds =
  struct
    type nonrec t = DirectoryId.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:DirectoryId.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:DirectoryId.of_xml)
    let of_json j =
      list_of_json ~kind:"DirectoryIds" ~of_json:DirectoryId.of_json j
    let to_json v = composed_to_json to_value v
  end
module SettingEntries =
  struct
    type nonrec t = SettingEntry.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:SettingEntry.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:SettingEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"SettingEntries" ~of_json:SettingEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegionsDescription =
  struct
    type nonrec t = RegionDescription.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:RegionDescription.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:RegionDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"RegionsDescription"
        ~of_json:RegionDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module LDAPSSettingsInfo =
  struct
    type nonrec t = LDAPSSettingInfo.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:LDAPSSettingInfo.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:LDAPSSettingInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"LDAPSSettingsInfo"
        ~of_json:LDAPSSettingInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module HybridUpdateActivities =
  struct
    type nonrec t =
      {
      selfManagedInstances: HybridUpdateInfoEntries.t option
        [@ocaml.doc
          "A list of update activities related to the self-managed instances with SSM in the self-managed instances with SSM hybrid directory configuration."];
      hybridAdministratorAccount: HybridUpdateInfoEntries.t option
        [@ocaml.doc
          "A list of update activities related to hybrid directory administrator account changes."]}
    let make ?selfManagedInstances =
      fun ?hybridAdministratorAccount ->
        fun () -> { selfManagedInstances; hybridAdministratorAccount }
    let to_value x =
      structure_to_value
        [("SelfManagedInstances",
           (Option.map x.selfManagedInstances
              ~f:HybridUpdateInfoEntries.to_value));
        ("HybridAdministratorAccount",
          (Option.map x.hybridAdministratorAccount
             ~f:HybridUpdateInfoEntries.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hybridAdministratorAccount =
        (Option.map ~f:HybridUpdateInfoEntries.of_xml)
          (Xml.child xml_arg0 "HybridAdministratorAccount") in
      let selfManagedInstances =
        (Option.map ~f:HybridUpdateInfoEntries.of_xml)
          (Xml.child xml_arg0 "SelfManagedInstances") in
      make ?hybridAdministratorAccount ?selfManagedInstances ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hybridAdministratorAccount =
        field_map json__ "HybridAdministratorAccount"
          HybridUpdateInfoEntries.of_json in
      let selfManagedInstances =
        field_map json__ "SelfManagedInstances"
          HybridUpdateInfoEntries.of_json in
      make ?hybridAdministratorAccount ?selfManagedInstances ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about update activities for different components of a hybrid directory."]
module HybridUpdateType =
  struct
    type nonrec t =
      | SelfManagedInstances 
      | HybridAdministratorAccount 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SelfManagedInstances -> "SelfManagedInstances"
      | HybridAdministratorAccount -> "HybridAdministratorAccount"
      | Non_static_id s -> s
    let of_string =
      function
      | "SelfManagedInstances" -> SelfManagedInstances
      | "HybridAdministratorAccount" -> HybridAdministratorAccount
      | 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 HybridUpdateType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HybridUpdateType" j)
    let to_json = simple_to_json to_value
  end
module EventTopics =
  struct
    type nonrec t = EventTopic.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:EventTopic.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:EventTopic.of_xml)
    let of_json j =
      list_of_json ~kind:"EventTopics" ~of_json:EventTopic.of_json j
    let to_json v = composed_to_json to_value v
  end
module TopicNames =
  struct
    type nonrec t = TopicName.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:TopicName.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:TopicName.of_xml)
    let of_json j =
      list_of_json ~kind:"TopicNames" ~of_json:TopicName.of_json j
    let to_json v = composed_to_json to_value v
  end
module DomainControllers =
  struct
    type nonrec t = DomainController.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:DomainController.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:DomainController.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainControllers"
        ~of_json:DomainController.of_json j
    let to_json v = composed_to_json to_value v
  end
module DomainControllerIds =
  struct
    type nonrec t = DomainControllerId.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:DomainControllerId.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:DomainControllerId.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainControllerIds"
        ~of_json:DomainControllerId.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataAccessStatus =
  struct
    type nonrec t =
      | Disabled 
      | Disabling 
      | Enabled 
      | Enabling 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Disabled -> "Disabled"
      | Disabling -> "Disabling"
      | Enabled -> "Enabled"
      | Enabling -> "Enabling"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Disabled" -> Disabled
      | "Disabling" -> Disabling
      | "Enabled" -> Enabled
      | "Enabling" -> Enabling
      | "Failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration DataAccessStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DataAccessStatus" j)
    let to_json = simple_to_json to_value
  end
module DirectoryDescriptions =
  struct
    type nonrec t = DirectoryDescription.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:DirectoryDescription.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:DirectoryDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"DirectoryDescriptions"
        ~of_json:DirectoryDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConditionalForwarders =
  struct
    type nonrec t = ConditionalForwarder.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:ConditionalForwarder.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:ConditionalForwarder.of_xml)
    let of_json j =
      list_of_json ~kind:"ConditionalForwarders"
        ~of_json:ConditionalForwarder.of_json j
    let to_json v = composed_to_json to_value v
  end
module RemoteDomainNames =
  struct
    type nonrec t = RemoteDomainName.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:RemoteDomainName.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:RemoteDomainName.of_xml)
    let of_json j =
      list_of_json ~kind:"RemoteDomainNames"
        ~of_json:RemoteDomainName.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClientAuthenticationSettingsInfo =
  struct
    type nonrec t = ClientAuthenticationSettingInfo.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:ClientAuthenticationSettingInfo.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:ClientAuthenticationSettingInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"ClientAuthenticationSettingsInfo"
        ~of_json:ClientAuthenticationSettingInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module Certificate =
  struct
    type nonrec t =
      {
      certificateId: CertificateId.t option
        [@ocaml.doc "The identifier of the certificate."];
      state: CertificateState.t option
        [@ocaml.doc "The state of the certificate."];
      stateReason: CertificateStateReason.t option
        [@ocaml.doc "Describes a state change for the certificate."];
      commonName: CertificateCN.t option
        [@ocaml.doc "The common name for the certificate."];
      registeredDateTime: CertificateRegisteredDateTime.t option
        [@ocaml.doc "The date and time that the certificate was registered."];
      expiryDateTime: CertificateExpiryDateTime.t option
        [@ocaml.doc "The date and time when the certificate will expire."];
      type_: CertificateType.t option
        [@ocaml.doc
          "The function that the registered certificate performs. Valid values include ClientLDAPS or ClientCertAuth. The default value is ClientLDAPS."];
      clientCertAuthSettings: ClientCertAuthSettings.t option
        [@ocaml.doc
          "A ClientCertAuthSettings object that contains client certificate authentication settings."]}
    let make ?certificateId =
      fun ?state ->
        fun ?stateReason ->
          fun ?commonName ->
            fun ?registeredDateTime ->
              fun ?expiryDateTime ->
                fun ?type_ ->
                  fun ?clientCertAuthSettings ->
                    fun () ->
                      {
                        certificateId;
                        state;
                        stateReason;
                        commonName;
                        registeredDateTime;
                        expiryDateTime;
                        type_;
                        clientCertAuthSettings
                      }
    let to_value x =
      structure_to_value
        [("CertificateId",
           (Option.map x.certificateId ~f:CertificateId.to_value));
        ("State", (Option.map x.state ~f:CertificateState.to_value));
        ("StateReason",
          (Option.map x.stateReason ~f:CertificateStateReason.to_value));
        ("CommonName", (Option.map x.commonName ~f:CertificateCN.to_value));
        ("RegisteredDateTime",
          (Option.map x.registeredDateTime
             ~f:CertificateRegisteredDateTime.to_value));
        ("ExpiryDateTime",
          (Option.map x.expiryDateTime ~f:CertificateExpiryDateTime.to_value));
        ("Type", (Option.map x.type_ ~f:CertificateType.to_value));
        ("ClientCertAuthSettings",
          (Option.map x.clientCertAuthSettings
             ~f:ClientCertAuthSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientCertAuthSettings =
        (Option.map ~f:ClientCertAuthSettings.of_xml)
          (Xml.child xml_arg0 "ClientCertAuthSettings") in
      let type_ =
        (Option.map ~f:CertificateType.of_xml) (Xml.child xml_arg0 "Type") in
      let expiryDateTime =
        (Option.map ~f:CertificateExpiryDateTime.of_xml)
          (Xml.child xml_arg0 "ExpiryDateTime") in
      let registeredDateTime =
        (Option.map ~f:CertificateRegisteredDateTime.of_xml)
          (Xml.child xml_arg0 "RegisteredDateTime") in
      let commonName =
        (Option.map ~f:CertificateCN.of_xml)
          (Xml.child xml_arg0 "CommonName") in
      let stateReason =
        (Option.map ~f:CertificateStateReason.of_xml)
          (Xml.child xml_arg0 "StateReason") in
      let state =
        (Option.map ~f:CertificateState.of_xml) (Xml.child xml_arg0 "State") in
      let certificateId =
        (Option.map ~f:CertificateId.of_xml)
          (Xml.child xml_arg0 "CertificateId") in
      make ?clientCertAuthSettings ?type_ ?expiryDateTime ?registeredDateTime
        ?commonName ?stateReason ?state ?certificateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientCertAuthSettings =
        field_map json__ "ClientCertAuthSettings"
          ClientCertAuthSettings.of_json in
      let type_ = field_map json__ "Type" CertificateType.of_json in
      let expiryDateTime =
        field_map json__ "ExpiryDateTime" CertificateExpiryDateTime.of_json in
      let registeredDateTime =
        field_map json__ "RegisteredDateTime"
          CertificateRegisteredDateTime.of_json in
      let commonName = field_map json__ "CommonName" CertificateCN.of_json in
      let stateReason =
        field_map json__ "StateReason" CertificateStateReason.of_json in
      let state = field_map json__ "State" CertificateState.of_json in
      let certificateId =
        field_map json__ "CertificateId" CertificateId.of_json in
      make ?clientCertAuthSettings ?type_ ?expiryDateTime ?registeredDateTime
        ?commonName ?stateReason ?state ?certificateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the certificate."]
module CertificateDoesNotExistException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The certificate is not present in the system for describe or deregister activities."]
module CaEnrollmentPolicyStatus =
  struct
    type nonrec t =
      | InProgress 
      | Success 
      | Failed 
      | Disabling 
      | Disabled 
      | Impaired 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | InProgress -> "InProgress"
      | Success -> "Success"
      | Failed -> "Failed"
      | Disabling -> "Disabling"
      | Disabled -> "Disabled"
      | Impaired -> "Impaired"
      | Non_static_id s -> s
    let of_string =
      function
      | "InProgress" -> InProgress
      | "Success" -> Success
      | "Failed" -> Failed
      | "Disabling" -> Disabling
      | "Disabled" -> Disabled
      | "Impaired" -> Impaired
      | 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 CaEnrollmentPolicyStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CaEnrollmentPolicyStatus" j)
    let to_json = simple_to_json to_value
  end
module CaEnrollmentPolicyStatusReason =
  struct
    type nonrec t = string
    let context_ = "CaEnrollmentPolicyStatusReason"
    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:"CaEnrollmentPolicyStatusReason" j
    let to_json = simple_to_json to_value
  end
module Assessment =
  struct
    type nonrec t =
      {
      assessmentId: AssessmentId.t option
        [@ocaml.doc "The unique identifier of the directory assessment."];
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The identifier of the directory associated with this assessment."];
      dnsName: DirectoryName.t option
        [@ocaml.doc
          "The fully qualified domain name (FQDN) of the Active Directory domain being assessed."];
      startTime: AssessmentStartTime.t option
        [@ocaml.doc "The date and time when the assessment was initiated."];
      lastUpdateDateTime: LastUpdateDateTime.t option
        [@ocaml.doc
          "The date and time when the assessment status was last updated."];
      status: AssessmentStatus.t option
        [@ocaml.doc
          "The current status of the assessment. Valid values include SUCCESS, FAILED, PENDING, and IN_PROGRESS."];
      statusCode: AssessmentStatusCode.t option
        [@ocaml.doc
          "A detailed status code providing additional information about the assessment state."];
      statusReason: AssessmentStatusReason.t option
        [@ocaml.doc
          "A human-readable description of the current assessment status, including any error details or progress information."];
      customerDnsIps: CustomerDnsIps.t option
        [@ocaml.doc
          "The IP addresses of the DNS servers or domain controllers in your self-managed AD environment."];
      vpcId: VpcId.t option
        [@ocaml.doc
          "Contains Amazon VPC information for the StartADAssessment operation."];
      subnetIds: SubnetIds.t option
        [@ocaml.doc
          "A list of subnet identifiers in the Amazon VPC in which the hybrid directory is created."];
      securityGroupIds: SecurityGroupIds.t option
        [@ocaml.doc
          "The security groups identifiers attached to the network interfaces."];
      selfManagedInstanceIds: AssessmentInstanceIds.t option
        [@ocaml.doc
          "The identifiers of the self-managed AD instances used to perform the assessment."];
      reportType: AssessmentReportType.t option
        [@ocaml.doc
          "The type of assessment report generated. Valid values are CUSTOMER and SYSTEM."];
      version: AssessmentVersion.t option
        [@ocaml.doc
          "The version of the assessment framework used to evaluate your self-managed AD environment."]}
    let make ?assessmentId =
      fun ?directoryId ->
        fun ?dnsName ->
          fun ?startTime ->
            fun ?lastUpdateDateTime ->
              fun ?status ->
                fun ?statusCode ->
                  fun ?statusReason ->
                    fun ?customerDnsIps ->
                      fun ?vpcId ->
                        fun ?subnetIds ->
                          fun ?securityGroupIds ->
                            fun ?selfManagedInstanceIds ->
                              fun ?reportType ->
                                fun ?version ->
                                  fun () ->
                                    {
                                      assessmentId;
                                      directoryId;
                                      dnsName;
                                      startTime;
                                      lastUpdateDateTime;
                                      status;
                                      statusCode;
                                      statusReason;
                                      customerDnsIps;
                                      vpcId;
                                      subnetIds;
                                      securityGroupIds;
                                      selfManagedInstanceIds;
                                      reportType;
                                      version
                                    }
    let to_value x =
      structure_to_value
        [("AssessmentId",
           (Option.map x.assessmentId ~f:AssessmentId.to_value));
        ("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("DnsName", (Option.map x.dnsName ~f:DirectoryName.to_value));
        ("StartTime",
          (Option.map x.startTime ~f:AssessmentStartTime.to_value));
        ("LastUpdateDateTime",
          (Option.map x.lastUpdateDateTime ~f:LastUpdateDateTime.to_value));
        ("Status", (Option.map x.status ~f:AssessmentStatus.to_value));
        ("StatusCode",
          (Option.map x.statusCode ~f:AssessmentStatusCode.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:AssessmentStatusReason.to_value));
        ("CustomerDnsIps",
          (Option.map x.customerDnsIps ~f:CustomerDnsIps.to_value));
        ("VpcId", (Option.map x.vpcId ~f:VpcId.to_value));
        ("SubnetIds", (Option.map x.subnetIds ~f:SubnetIds.to_value));
        ("SecurityGroupIds",
          (Option.map x.securityGroupIds ~f:SecurityGroupIds.to_value));
        ("SelfManagedInstanceIds",
          (Option.map x.selfManagedInstanceIds
             ~f:AssessmentInstanceIds.to_value));
        ("ReportType",
          (Option.map x.reportType ~f:AssessmentReportType.to_value));
        ("Version", (Option.map x.version ~f:AssessmentVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:AssessmentVersion.of_xml)
          (Xml.child xml_arg0 "Version") in
      let reportType =
        (Option.map ~f:AssessmentReportType.of_xml)
          (Xml.child xml_arg0 "ReportType") in
      let selfManagedInstanceIds =
        (Option.map ~f:AssessmentInstanceIds.of_xml)
          (Xml.child xml_arg0 "SelfManagedInstanceIds") in
      let securityGroupIds =
        (Option.map ~f:SecurityGroupIds.of_xml)
          (Xml.child xml_arg0 "SecurityGroupIds") in
      let subnetIds =
        (Option.map ~f:SubnetIds.of_xml) (Xml.child xml_arg0 "SubnetIds") in
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "VpcId") in
      let customerDnsIps =
        (Option.map ~f:CustomerDnsIps.of_xml)
          (Xml.child xml_arg0 "CustomerDnsIps") in
      let statusReason =
        (Option.map ~f:AssessmentStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let statusCode =
        (Option.map ~f:AssessmentStatusCode.of_xml)
          (Xml.child xml_arg0 "StatusCode") in
      let status =
        (Option.map ~f:AssessmentStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let lastUpdateDateTime =
        (Option.map ~f:LastUpdateDateTime.of_xml)
          (Xml.child xml_arg0 "LastUpdateDateTime") in
      let startTime =
        (Option.map ~f:AssessmentStartTime.of_xml)
          (Xml.child xml_arg0 "StartTime") in
      let dnsName =
        (Option.map ~f:DirectoryName.of_xml) (Xml.child xml_arg0 "DnsName") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      let assessmentId =
        (Option.map ~f:AssessmentId.of_xml)
          (Xml.child xml_arg0 "AssessmentId") in
      make ?version ?reportType ?selfManagedInstanceIds ?securityGroupIds
        ?subnetIds ?vpcId ?customerDnsIps ?statusReason ?statusCode ?status
        ?lastUpdateDateTime ?startTime ?dnsName ?directoryId ?assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "Version" AssessmentVersion.of_json in
      let reportType =
        field_map json__ "ReportType" AssessmentReportType.of_json in
      let selfManagedInstanceIds =
        field_map json__ "SelfManagedInstanceIds"
          AssessmentInstanceIds.of_json in
      let securityGroupIds =
        field_map json__ "SecurityGroupIds" SecurityGroupIds.of_json in
      let subnetIds = field_map json__ "SubnetIds" SubnetIds.of_json in
      let vpcId = field_map json__ "VpcId" VpcId.of_json in
      let customerDnsIps =
        field_map json__ "CustomerDnsIps" CustomerDnsIps.of_json in
      let statusReason =
        field_map json__ "StatusReason" AssessmentStatusReason.of_json in
      let statusCode =
        field_map json__ "StatusCode" AssessmentStatusCode.of_json in
      let status = field_map json__ "Status" AssessmentStatus.of_json in
      let lastUpdateDateTime =
        field_map json__ "LastUpdateDateTime" LastUpdateDateTime.of_json in
      let startTime =
        field_map json__ "StartTime" AssessmentStartTime.of_json in
      let dnsName = field_map json__ "DnsName" DirectoryName.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      let assessmentId = field_map json__ "AssessmentId" AssessmentId.of_json in
      make ?version ?reportType ?selfManagedInstanceIds ?securityGroupIds
        ?subnetIds ?vpcId ?customerDnsIps ?statusReason ?statusCode ?status
        ?lastUpdateDateTime ?startTime ?dnsName ?directoryId ?assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains detailed information about a directory assessment, including configuration parameters, status, and validation results."]
module AssessmentReports =
  struct
    type nonrec t = AssessmentReport.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:AssessmentReport.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:AssessmentReport.of_xml)
    let of_json j =
      list_of_json ~kind:"AssessmentReports"
        ~of_json:AssessmentReport.of_json j
    let to_json v = composed_to_json to_value v
  end
module CertificateInUseException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The certificate is being used for the LDAP security connection and cannot be removed without disabling LDAP security."]
module DeleteAssociatedConditionalForwarder =
  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 TrustPassword =
  struct
    type nonrec t = string
    let context_ = "TrustPassword"
    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{LD}|\\p{Punct}| )+$")));
        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:"TrustPassword" j
    let to_json = simple_to_json to_value
  end
module DirectoryLimitExceededException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The maximum number of directories in the region has been reached. You can use the GetDirectoryLimits operation to determine your directory limits in the region."]
module Password =
  struct
    type nonrec t = string
    let context_ = "Password"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"(?=^.{8,64}$)((?=.*\\d)(?=.*[A-Z])(?=.*[a-z])|(?=.*\\d)(?=.*[^A-Za-z0-9\\s])(?=.*[a-z])|(?=.*[^A-Za-z0-9\\s])(?=.*[A-Z])(?=.*[a-z])|(?=.*\\d)(?=.*[A-Z])(?=.*[^A-Za-z0-9\\s]))^.*");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Password" j
    let to_json = simple_to_json to_value
  end
module Computer =
  struct
    type nonrec t =
      {
      computerId: SID.t option [@ocaml.doc "The identifier of the computer."];
      computerName: ComputerName.t option [@ocaml.doc "The computer name."];
      computerAttributes: Attributes.t option
        [@ocaml.doc
          "An array of Attribute objects containing the LDAP attributes that belong to the computer account."]}
    let make ?computerId =
      fun ?computerName ->
        fun ?computerAttributes ->
          fun () -> { computerId; computerName; computerAttributes }
    let to_value x =
      structure_to_value
        [("ComputerId", (Option.map x.computerId ~f:SID.to_value));
        ("ComputerName",
          (Option.map x.computerName ~f:ComputerName.to_value));
        ("ComputerAttributes",
          (Option.map x.computerAttributes ~f:Attributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let computerAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "ComputerAttributes") in
      let computerName =
        (Option.map ~f:ComputerName.of_xml)
          (Xml.child xml_arg0 "ComputerName") in
      let computerId =
        (Option.map ~f:SID.of_xml) (Xml.child xml_arg0 "ComputerId") in
      make ?computerAttributes ?computerName ?computerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let computerAttributes =
        field_map json__ "ComputerAttributes" Attributes.of_json in
      let computerName = field_map json__ "ComputerName" ComputerName.of_json in
      let computerId = field_map json__ "ComputerId" SID.of_json in
      make ?computerAttributes ?computerName ?computerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a computer account in a directory."]
module ComputerPassword =
  struct
    type nonrec t = string
    let context_ = "ComputerPassword"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:8) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[\\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:"ComputerPassword" j
    let to_json = simple_to_json to_value
  end
module OrganizationalUnitDN =
  struct
    type nonrec t = string
    let context_ = "OrganizationalUnitDN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OrganizationalUnitDN" j
    let to_json = simple_to_json to_value
  end
module DirectoryConnectSettings =
  struct
    type nonrec t =
      {
      vpcId: VpcId.t
        [@ocaml.doc
          "The identifier of the VPC in which the AD Connector is created."];
      subnetIds: SubnetIds.t
        [@ocaml.doc
          "A list of subnet identifiers in the VPC in which the AD Connector is created."];
      customerDnsIps: DnsIpAddrs.t option
        [@ocaml.doc
          "The IP addresses of DNS servers or domain controllers in your self-managed directory."];
      customerDnsIpsV6: DnsIpv6Addrs.t option
        [@ocaml.doc
          "The IPv6 addresses of DNS servers or domain controllers in your self-managed directory."];
      customerUserName: UserName.t
        [@ocaml.doc
          "The user name of an account in your self-managed directory that is used to connect to the directory. This account must have the following permissions: Read users and groups Create computer objects Join computers to the domain"]}
    let context_ = "DirectoryConnectSettings"
    let make ?customerDnsIps =
      fun ?customerDnsIpsV6 ->
        fun ~vpcId ->
          fun ~subnetIds ->
            fun ~customerUserName ->
              fun () ->
                {
                  customerDnsIps;
                  customerDnsIpsV6;
                  vpcId;
                  subnetIds;
                  customerUserName
                }
    let to_value x =
      structure_to_value
        [("VpcId", (Some (VpcId.to_value x.vpcId)));
        ("SubnetIds", (Some (SubnetIds.to_value x.subnetIds)));
        ("CustomerDnsIps",
          (Option.map x.customerDnsIps ~f:DnsIpAddrs.to_value));
        ("CustomerDnsIpsV6",
          (Option.map x.customerDnsIpsV6 ~f:DnsIpv6Addrs.to_value));
        ("CustomerUserName", (Some (UserName.to_value x.customerUserName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customerUserName =
        UserName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CustomerUserName") in
      let customerDnsIpsV6 =
        (Option.map ~f:DnsIpv6Addrs.of_xml)
          (Xml.child xml_arg0 "CustomerDnsIpsV6") in
      let customerDnsIps =
        (Option.map ~f:DnsIpAddrs.of_xml)
          (Xml.child xml_arg0 "CustomerDnsIps") in
      let subnetIds =
        SubnetIds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubnetIds") in
      let vpcId =
        VpcId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "VpcId") in
      make ~customerUserName ?customerDnsIpsV6 ?customerDnsIps ~subnetIds
        ~vpcId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customerUserName =
        field_map_exn json__ "CustomerUserName" UserName.of_json in
      let customerDnsIpsV6 =
        field_map json__ "CustomerDnsIpsV6" DnsIpv6Addrs.of_json in
      let customerDnsIps =
        field_map json__ "CustomerDnsIps" DnsIpAddrs.of_json in
      let subnetIds = field_map_exn json__ "SubnetIds" SubnetIds.of_json in
      let vpcId = field_map_exn json__ "VpcId" VpcId.of_json in
      make ~customerUserName ?customerDnsIpsV6 ?customerDnsIps ~subnetIds
        ~vpcId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains connection settings for creating an AD Connector with the ConnectDirectory action."]
module TagLimitExceededException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The maximum allowed number of tags was exceeded."]
module DirectoryAlreadyInRegionException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Region you specified is the same Region where the Managed Microsoft AD directory was created. Specify a different Region and try again."]
module RegionLimitExceededException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You have reached the limit for maximum number of simultaneous Region replications per directory."]
module IpRouteLimitExceededException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option ;
      requestId: RequestId.t option }
    let make ?message = fun ?requestId -> fun () -> { message; requestId }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value));
        ("RequestId", (Option.map x.requestId ~f:RequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?requestId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?requestId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The maximum allowed number of IP addresses was exceeded. The default limit is 100 IP address blocks."]
module IpRoutes =
  struct
    type nonrec t = IpRoute.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:IpRoute.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:IpRoute.of_xml)
    let of_json j = list_of_json ~kind:"IpRoutes" ~of_json:IpRoute.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateSecurityGroupForDirectoryControllers =
  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 VerifyTrustResult =
  struct
    type nonrec t =
      {
      trustId: TrustId.t option
        [@ocaml.doc
          "The unique Trust ID of the trust relationship that was verified."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?trustId = fun () -> { trustId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("TrustId", (Option.map x.trustId ~f:TrustId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let trustId =
        (Option.map ~f:TrustId.of_xml) (Xml.child xml_arg0 "TrustId") in
      make ?trustId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let trustId = field_map json__ "TrustId" TrustId.of_json in
      make ?trustId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Result of a VerifyTrust request."]
module VerifyTrustRequest =
  struct
    type nonrec t =
      {
      trustId: TrustId.t
        [@ocaml.doc
          "The unique Trust ID of the trust relationship to verify."]}
    let context_ = "VerifyTrustRequest"
    let make ~trustId = fun () -> { trustId }
    let to_value x =
      structure_to_value [("TrustId", (Some (TrustId.to_value x.trustId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let trustId =
        TrustId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TrustId") in
      make ~trustId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let trustId = field_map_exn json__ "TrustId" TrustId.of_json in
      make ~trustId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates the verification of an existing trust relationship between an Managed Microsoft AD directory and an external domain."]
module UpdateTrustResult =
  struct
    type nonrec t =
      {
      requestId: RequestId.t option ;
      trustId: TrustId.t option
        [@ocaml.doc "Identifier of the trust relationship."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?requestId = fun ?trustId -> fun () -> { requestId; trustId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("RequestId", (Option.map x.requestId ~f:RequestId.to_value));
        ("TrustId", (Option.map x.trustId ~f:TrustId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let trustId =
        (Option.map ~f:TrustId.of_xml) (Xml.child xml_arg0 "TrustId") in
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      make ?trustId ?requestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let trustId = field_map json__ "TrustId" TrustId.of_json in
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      make ?trustId ?requestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the trust that has been set up between your Managed Microsoft AD directory and an self-managed Active Directory."]
module UpdateTrustRequest =
  struct
    type nonrec t =
      {
      trustId: TrustId.t [@ocaml.doc "Identifier of the trust relationship."];
      selectiveAuth: SelectiveAuth.t option
        [@ocaml.doc "Updates selective authentication for the trust."]}
    let context_ = "UpdateTrustRequest"
    let make ?selectiveAuth =
      fun ~trustId -> fun () -> { selectiveAuth; trustId }
    let to_value x =
      structure_to_value
        [("TrustId", (Some (TrustId.to_value x.trustId)));
        ("SelectiveAuth",
          (Option.map x.selectiveAuth ~f:SelectiveAuth.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let selectiveAuth =
        (Option.map ~f:SelectiveAuth.of_xml)
          (Xml.child xml_arg0 "SelectiveAuth") in
      let trustId =
        TrustId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TrustId") in
      make ?selectiveAuth ~trustId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let selectiveAuth =
        field_map json__ "SelectiveAuth" SelectiveAuth.of_json in
      let trustId = field_map_exn json__ "TrustId" TrustId.of_json in
      make ?selectiveAuth ~trustId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the trust that has been set up between your Managed Microsoft AD directory and an self-managed Active Directory."]
module UpdateSettingsResult =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc "The identifier of the directory."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `IncompatibleSettingsException of IncompatibleSettingsException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `UnsupportedSettingsException of UnsupportedSettingsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryId = fun () -> { directoryId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "IncompatibleSettingsException" ->
          `IncompatibleSettingsException
            (IncompatibleSettingsException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | "UnsupportedSettingsException" ->
          `UnsupportedSettingsException
            (UnsupportedSettingsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "IncompatibleSettingsException" ->
          `IncompatibleSettingsException
            (IncompatibleSettingsException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | "UnsupportedSettingsException" ->
          `UnsupportedSettingsException
            (UnsupportedSettingsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `IncompatibleSettingsException e ->
          `Assoc
            [("error", (`String "IncompatibleSettingsException"));
            ("details", (IncompatibleSettingsException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.to_json e))]
      | `UnsupportedSettingsException e ->
          `Assoc
            [("error", (`String "UnsupportedSettingsException"));
            ("details", (UnsupportedSettingsException.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
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configurable settings for the specified directory."]
module UpdateSettingsRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for which to update settings."];
      settings: Settings.t [@ocaml.doc "The list of Setting objects."]}
    let context_ = "UpdateSettingsRequest"
    let make ~directoryId =
      fun ~settings -> fun () -> { directoryId; settings }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("Settings", (Some (Settings.to_value x.settings)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let settings =
        Settings.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Settings") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~settings ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let settings = field_map_exn json__ "Settings" Settings.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~settings ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configurable settings for the specified directory."]
module UpdateRadiusResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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 "Contains the results of the UpdateRadius operation."]
module UpdateRadiusRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for which to update the RADIUS server information."];
      radiusSettings: RadiusSettings.t
        [@ocaml.doc
          "A RadiusSettings object that contains information about the RADIUS server."]}
    let context_ = "UpdateRadiusRequest"
    let make ~directoryId =
      fun ~radiusSettings -> fun () -> { directoryId; radiusSettings }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("RadiusSettings", (Some (RadiusSettings.to_value x.radiusSettings)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let radiusSettings =
        RadiusSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RadiusSettings") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~radiusSettings ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let radiusSettings =
        field_map_exn json__ "RadiusSettings" RadiusSettings.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~radiusSettings ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the UpdateRadius operation."]
module UpdateNumberOfDomainControllersResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `DomainControllerLimitExceededException of
          DomainControllerLimitExceededException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "DomainControllerLimitExceededException" ->
          `DomainControllerLimitExceededException
            (DomainControllerLimitExceededException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "DomainControllerLimitExceededException" ->
          `DomainControllerLimitExceededException
            (DomainControllerLimitExceededException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `DomainControllerLimitExceededException e ->
          `Assoc
            [("error", (`String "DomainControllerLimitExceededException"));
            ("details", (DomainControllerLimitExceededException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or removes domain controllers to or from the directory. Based on the difference between current value and new value (provided through this API call), domain controllers will be added or removed. It may take up to 45 minutes for any new domain controllers to become fully active once the requested number of domain controllers is updated. During this time, you cannot make another update request."]
module UpdateNumberOfDomainControllersRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "Identifier of the directory to which the domain controllers will be added or removed."];
      desiredNumber: DesiredNumberOfDomainControllers.t
        [@ocaml.doc
          "The number of domain controllers desired in the directory."]}
    let context_ = "UpdateNumberOfDomainControllersRequest"
    let make ~directoryId =
      fun ~desiredNumber -> fun () -> { directoryId; desiredNumber }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("DesiredNumber",
          (Some (DesiredNumberOfDomainControllers.to_value x.desiredNumber)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let desiredNumber =
        DesiredNumberOfDomainControllers.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DesiredNumber") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~desiredNumber ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let desiredNumber =
        field_map_exn json__ "DesiredNumber"
          DesiredNumberOfDomainControllers.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~desiredNumber ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or removes domain controllers to or from the directory. Based on the difference between current value and new value (provided through this API call), domain controllers will be added or removed. It may take up to 45 minutes for any new domain controllers to become fully active once the requested number of domain controllers is updated. During this time, you cannot make another update request."]
module UpdateHybridADResult =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc "The identifier of the updated hybrid directory."];
      assessmentId: AssessmentId.t option
        [@ocaml.doc
          "The identifier of the assessment performed to validate the update configuration. This assessment ensures the updated settings are compatible with your environment."]}
    type nonrec error =
      [
        `ADAssessmentLimitExceededException of
          ADAssessmentLimitExceededException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryId =
      fun ?assessmentId -> fun () -> { directoryId; assessmentId }
    let error_of_json name json =
      match name with
      | "ADAssessmentLimitExceededException" ->
          `ADAssessmentLimitExceededException
            (ADAssessmentLimitExceededException.of_json json)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ADAssessmentLimitExceededException" ->
          `ADAssessmentLimitExceededException
            (ADAssessmentLimitExceededException.of_xml xml)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ADAssessmentLimitExceededException e ->
          `Assoc
            [("error", (`String "ADAssessmentLimitExceededException"));
            ("details", (ADAssessmentLimitExceededException.to_json e))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("AssessmentId",
          (Option.map x.assessmentId ~f:AssessmentId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentId =
        (Option.map ~f:AssessmentId.of_xml)
          (Xml.child xml_arg0 "AssessmentId") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?assessmentId ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentId = field_map json__ "AssessmentId" AssessmentId.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?assessmentId ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of an existing hybrid directory. You can recover hybrid directory administrator account or modify self-managed instance settings. Updates are applied asynchronously. Use DescribeHybridADUpdate to monitor the progress of configuration changes. The InstanceIds must have a one-to-one correspondence with CustomerDnsIps, meaning that if the IP address for instance i-10243410 is 10.24.34.100 and the IP address for instance i-10243420 is 10.24.34.200, then the input arrays must maintain the same order relationship, either \\[10.24.34.100, 10.24.34.200\\] paired with \\[i-10243410, i-10243420\\] or \\[10.24.34.200, 10.24.34.100\\] paired with \\[i-10243420, i-10243410\\]. You must provide at least one update to UpdateHybridADRequest$HybridAdministratorAccountUpdate or UpdateHybridADRequest$SelfManagedInstancesSettings."]
module UpdateHybridADRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the hybrid directory to update."];
      hybridAdministratorAccountUpdate:
        HybridAdministratorAccountUpdate.t option
        [@ocaml.doc
          "We create a hybrid directory administrator account when we create a hybrid directory. Use HybridAdministratorAccountUpdate to recover the hybrid directory administrator account if you have deleted it. To recover your hybrid directory administrator account, we need temporary access to a user in your self-managed AD with administrator permissions in the form of a secret from Amazon Web Services Secrets Manager. We use these credentials once during recovery and don't store them. If your hybrid directory administrator account exists, then you don\226\128\153t need to use HybridAdministratorAccountUpdate, even if you have updated your self-managed AD administrator user."];
      selfManagedInstancesSettings: HybridCustomerInstancesSettings.t option
        [@ocaml.doc
          "Updates to the self-managed AD configuration, including DNS server IP addresses and Amazon Web Services System Manager managed node identifiers."]}
    let context_ = "UpdateHybridADRequest"
    let make ?hybridAdministratorAccountUpdate =
      fun ?selfManagedInstancesSettings ->
        fun ~directoryId ->
          fun () ->
            {
              hybridAdministratorAccountUpdate;
              selfManagedInstancesSettings;
              directoryId
            }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("HybridAdministratorAccountUpdate",
          (Option.map x.hybridAdministratorAccountUpdate
             ~f:HybridAdministratorAccountUpdate.to_value));
        ("SelfManagedInstancesSettings",
          (Option.map x.selfManagedInstancesSettings
             ~f:HybridCustomerInstancesSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let selfManagedInstancesSettings =
        (Option.map ~f:HybridCustomerInstancesSettings.of_xml)
          (Xml.child xml_arg0 "SelfManagedInstancesSettings") in
      let hybridAdministratorAccountUpdate =
        (Option.map ~f:HybridAdministratorAccountUpdate.of_xml)
          (Xml.child xml_arg0 "HybridAdministratorAccountUpdate") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?selfManagedInstancesSettings ?hybridAdministratorAccountUpdate
        ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let selfManagedInstancesSettings =
        field_map json__ "SelfManagedInstancesSettings"
          HybridCustomerInstancesSettings.of_json in
      let hybridAdministratorAccountUpdate =
        field_map json__ "HybridAdministratorAccountUpdate"
          HybridAdministratorAccountUpdate.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?selfManagedInstancesSettings ?hybridAdministratorAccountUpdate
        ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration of an existing hybrid directory. You can recover hybrid directory administrator account or modify self-managed instance settings. Updates are applied asynchronously. Use DescribeHybridADUpdate to monitor the progress of configuration changes. The InstanceIds must have a one-to-one correspondence with CustomerDnsIps, meaning that if the IP address for instance i-10243410 is 10.24.34.100 and the IP address for instance i-10243420 is 10.24.34.200, then the input arrays must maintain the same order relationship, either \\[10.24.34.100, 10.24.34.200\\] paired with \\[i-10243410, i-10243420\\] or \\[10.24.34.200, 10.24.34.100\\] paired with \\[i-10243420, i-10243410\\]. You must provide at least one update to UpdateHybridADRequest$HybridAdministratorAccountUpdate or UpdateHybridADRequest$SelfManagedInstancesSettings."]
module UpdateDirectorySetupResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `DirectoryInDesiredStateException of
          DirectoryInDesiredStateException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `SnapshotLimitExceededException of SnapshotLimitExceededException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "DirectoryInDesiredStateException" ->
          `DirectoryInDesiredStateException
            (DirectoryInDesiredStateException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "SnapshotLimitExceededException" ->
          `SnapshotLimitExceededException
            (SnapshotLimitExceededException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "DirectoryInDesiredStateException" ->
          `DirectoryInDesiredStateException
            (DirectoryInDesiredStateException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "SnapshotLimitExceededException" ->
          `SnapshotLimitExceededException
            (SnapshotLimitExceededException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `DirectoryInDesiredStateException e ->
          `Assoc
            [("error", (`String "DirectoryInDesiredStateException"));
            ("details", (DirectoryInDesiredStateException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `SnapshotLimitExceededException e ->
          `Assoc
            [("error", (`String "SnapshotLimitExceededException"));
            ("details", (SnapshotLimitExceededException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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 directory configuration for the specified update type."]
module UpdateDirectorySetupRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory to update."];
      updateType: UpdateType.t
        [@ocaml.doc "The type of update to perform on the directory."];
      oSUpdateSettings: OSUpdateSettings.t option
        [@ocaml.doc
          "Operating system configuration to apply during the directory update operation."];
      directorySizeUpdateSettings: DirectorySizeUpdateSettings.t option
        [@ocaml.doc
          "Directory size configuration to apply during the update operation."];
      networkUpdateSettings: NetworkUpdateSettings.t option
        [@ocaml.doc
          "Network configuration to apply during the directory update operation."];
      createSnapshotBeforeUpdate: CreateSnapshotBeforeUpdate.t option
        [@ocaml.doc
          "Specifies whether to create a directory snapshot before performing the update."]}
    let context_ = "UpdateDirectorySetupRequest"
    let make ?oSUpdateSettings =
      fun ?directorySizeUpdateSettings ->
        fun ?networkUpdateSettings ->
          fun ?createSnapshotBeforeUpdate ->
            fun ~directoryId ->
              fun ~updateType ->
                fun () ->
                  {
                    oSUpdateSettings;
                    directorySizeUpdateSettings;
                    networkUpdateSettings;
                    createSnapshotBeforeUpdate;
                    directoryId;
                    updateType
                  }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("UpdateType", (Some (UpdateType.to_value x.updateType)));
        ("OSUpdateSettings",
          (Option.map x.oSUpdateSettings ~f:OSUpdateSettings.to_value));
        ("DirectorySizeUpdateSettings",
          (Option.map x.directorySizeUpdateSettings
             ~f:DirectorySizeUpdateSettings.to_value));
        ("NetworkUpdateSettings",
          (Option.map x.networkUpdateSettings
             ~f:NetworkUpdateSettings.to_value));
        ("CreateSnapshotBeforeUpdate",
          (Option.map x.createSnapshotBeforeUpdate
             ~f:CreateSnapshotBeforeUpdate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createSnapshotBeforeUpdate =
        (Option.map ~f:CreateSnapshotBeforeUpdate.of_xml)
          (Xml.child xml_arg0 "CreateSnapshotBeforeUpdate") in
      let networkUpdateSettings =
        (Option.map ~f:NetworkUpdateSettings.of_xml)
          (Xml.child xml_arg0 "NetworkUpdateSettings") in
      let directorySizeUpdateSettings =
        (Option.map ~f:DirectorySizeUpdateSettings.of_xml)
          (Xml.child xml_arg0 "DirectorySizeUpdateSettings") in
      let oSUpdateSettings =
        (Option.map ~f:OSUpdateSettings.of_xml)
          (Xml.child xml_arg0 "OSUpdateSettings") in
      let updateType =
        UpdateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UpdateType") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?createSnapshotBeforeUpdate ?networkUpdateSettings
        ?directorySizeUpdateSettings ?oSUpdateSettings ~updateType
        ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createSnapshotBeforeUpdate =
        field_map json__ "CreateSnapshotBeforeUpdate"
          CreateSnapshotBeforeUpdate.of_json in
      let networkUpdateSettings =
        field_map json__ "NetworkUpdateSettings"
          NetworkUpdateSettings.of_json in
      let directorySizeUpdateSettings =
        field_map json__ "DirectorySizeUpdateSettings"
          DirectorySizeUpdateSettings.of_json in
      let oSUpdateSettings =
        field_map json__ "OSUpdateSettings" OSUpdateSettings.of_json in
      let updateType = field_map_exn json__ "UpdateType" UpdateType.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?createSnapshotBeforeUpdate ?networkUpdateSettings
        ?directorySizeUpdateSettings ?oSUpdateSettings ~updateType
        ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates directory configuration for the specified update type."]
module UpdateConditionalForwarderResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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 "The result of an UpdateConditionalForwarder request."]
module UpdateConditionalForwarderRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The directory ID of the Amazon Web Services directory for which to update the conditional forwarder."];
      remoteDomainName: RemoteDomainName.t
        [@ocaml.doc
          "The fully qualified domain name (FQDN) of the remote domain with which you will set up a trust relationship."];
      dnsIpAddrs: DnsIpAddrs.t option
        [@ocaml.doc
          "The updated IP addresses of the remote DNS server associated with the conditional forwarder."];
      dnsIpv6Addrs: DnsIpv6Addrs.t option
        [@ocaml.doc
          "The updated IPv6 addresses of the remote DNS server associated with the conditional forwarder."]}
    let context_ = "UpdateConditionalForwarderRequest"
    let make ?dnsIpAddrs =
      fun ?dnsIpv6Addrs ->
        fun ~directoryId ->
          fun ~remoteDomainName ->
            fun () ->
              { dnsIpAddrs; dnsIpv6Addrs; directoryId; remoteDomainName }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("RemoteDomainName",
          (Some (RemoteDomainName.to_value x.remoteDomainName)));
        ("DnsIpAddrs", (Option.map x.dnsIpAddrs ~f:DnsIpAddrs.to_value));
        ("DnsIpv6Addrs",
          (Option.map x.dnsIpv6Addrs ~f:DnsIpv6Addrs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dnsIpv6Addrs =
        (Option.map ~f:DnsIpv6Addrs.of_xml)
          (Xml.child xml_arg0 "DnsIpv6Addrs") in
      let dnsIpAddrs =
        (Option.map ~f:DnsIpAddrs.of_xml) (Xml.child xml_arg0 "DnsIpAddrs") in
      let remoteDomainName =
        RemoteDomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RemoteDomainName") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?dnsIpv6Addrs ?dnsIpAddrs ~remoteDomainName ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dnsIpv6Addrs = field_map json__ "DnsIpv6Addrs" DnsIpv6Addrs.of_json in
      let dnsIpAddrs = field_map json__ "DnsIpAddrs" DnsIpAddrs.of_json in
      let remoteDomainName =
        field_map_exn json__ "RemoteDomainName" RemoteDomainName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?dnsIpv6Addrs ?dnsIpAddrs ~remoteDomainName ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a conditional forwarder."]
module UnshareDirectoryResult =
  struct
    type nonrec t =
      {
      sharedDirectoryId: DirectoryId.t option
        [@ocaml.doc
          "Identifier of the directory stored in the directory consumer account that is to be unshared from the specified directory (DirectoryId)."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryNotSharedException of DirectoryNotSharedException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidTargetException of InvalidTargetException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sharedDirectoryId = fun () -> { sharedDirectoryId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryNotSharedException" ->
          `DirectoryNotSharedException
            (DirectoryNotSharedException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidTargetException" ->
          `InvalidTargetException (InvalidTargetException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryNotSharedException" ->
          `DirectoryNotSharedException
            (DirectoryNotSharedException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidTargetException" ->
          `InvalidTargetException (InvalidTargetException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryNotSharedException e ->
          `Assoc
            [("error", (`String "DirectoryNotSharedException"));
            ("details", (DirectoryNotSharedException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidTargetException e ->
          `Assoc
            [("error", (`String "InvalidTargetException"));
            ("details", (InvalidTargetException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("SharedDirectoryId",
           (Option.map x.sharedDirectoryId ~f:DirectoryId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharedDirectoryId =
        (Option.map ~f:DirectoryId.of_xml)
          (Xml.child xml_arg0 "SharedDirectoryId") in
      make ?sharedDirectoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharedDirectoryId =
        field_map json__ "SharedDirectoryId" DirectoryId.of_json in
      make ?sharedDirectoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops the directory sharing between the directory owner and consumer accounts."]
module UnshareDirectoryRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the Managed Microsoft AD directory that you want to stop sharing."];
      unshareTarget: UnshareTarget.t
        [@ocaml.doc
          "Identifier for the directory consumer account with whom the directory has to be unshared."]}
    let context_ = "UnshareDirectoryRequest"
    let make ~directoryId =
      fun ~unshareTarget -> fun () -> { directoryId; unshareTarget }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("UnshareTarget", (Some (UnshareTarget.to_value x.unshareTarget)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unshareTarget =
        UnshareTarget.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UnshareTarget") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~unshareTarget ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unshareTarget =
        field_map_exn json__ "UnshareTarget" UnshareTarget.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~unshareTarget ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops the directory sharing between the directory owner and consumer accounts."]
module StartSchemaExtensionResult =
  struct
    type nonrec t =
      {
      schemaExtensionId: SchemaExtensionId.t option
        [@ocaml.doc
          "The identifier of the schema extension that will be applied."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `SnapshotLimitExceededException of SnapshotLimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?schemaExtensionId = fun () -> { schemaExtensionId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "SnapshotLimitExceededException" ->
          `SnapshotLimitExceededException
            (SnapshotLimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "SnapshotLimitExceededException" ->
          `SnapshotLimitExceededException
            (SnapshotLimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `SnapshotLimitExceededException e ->
          `Assoc
            [("error", (`String "SnapshotLimitExceededException"));
            ("details", (SnapshotLimitExceededException.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
        [("SchemaExtensionId",
           (Option.map x.schemaExtensionId ~f:SchemaExtensionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaExtensionId =
        (Option.map ~f:SchemaExtensionId.of_xml)
          (Xml.child xml_arg0 "SchemaExtensionId") in
      make ?schemaExtensionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaExtensionId =
        field_map json__ "SchemaExtensionId" SchemaExtensionId.of_json in
      make ?schemaExtensionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Applies a schema extension to a Microsoft AD directory."]
module StartSchemaExtensionRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for which the schema extension will be applied to."];
      createSnapshotBeforeSchemaExtension:
        CreateSnapshotBeforeSchemaExtension.t
        [@ocaml.doc
          "If true, creates a snapshot of the directory before applying the schema extension."];
      ldifContent: LdifContent.t
        [@ocaml.doc
          "The LDIF file represented as a string. To construct the LdifContent string, precede each line as it would be formatted in an ldif file with \\n. See the example request below for more details. The file size can be no larger than 1MB."];
      description: Description.t
        [@ocaml.doc "A description of the schema extension."]}
    let context_ = "StartSchemaExtensionRequest"
    let make ~directoryId =
      fun ~createSnapshotBeforeSchemaExtension ->
        fun ~ldifContent ->
          fun ~description ->
            fun () ->
              {
                directoryId;
                createSnapshotBeforeSchemaExtension;
                ldifContent;
                description
              }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("CreateSnapshotBeforeSchemaExtension",
          (Some
             (CreateSnapshotBeforeSchemaExtension.to_value
                x.createSnapshotBeforeSchemaExtension)));
        ("LdifContent", (Some (LdifContent.to_value x.ldifContent)));
        ("Description", (Some (Description.to_value x.description)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        Description.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Description") in
      let ldifContent =
        LdifContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LdifContent") in
      let createSnapshotBeforeSchemaExtension =
        CreateSnapshotBeforeSchemaExtension.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CreateSnapshotBeforeSchemaExtension") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~description ~ldifContent ~createSnapshotBeforeSchemaExtension
        ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map_exn json__ "Description" Description.of_json in
      let ldifContent =
        field_map_exn json__ "LdifContent" LdifContent.of_json in
      let createSnapshotBeforeSchemaExtension =
        field_map_exn json__ "CreateSnapshotBeforeSchemaExtension"
          CreateSnapshotBeforeSchemaExtension.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~description ~ldifContent ~createSnapshotBeforeSchemaExtension
        ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Applies a schema extension to a Microsoft AD directory."]
module StartADAssessmentResult =
  struct
    type nonrec t =
      {
      assessmentId: AssessmentId.t option
        [@ocaml.doc
          "The unique identifier of the newly started directory assessment. Use this identifier to monitor assessment progress and retrieve results."]}
    type nonrec error =
      [
        `ADAssessmentLimitExceededException of
          ADAssessmentLimitExceededException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessmentId = fun () -> { assessmentId }
    let error_of_json name json =
      match name with
      | "ADAssessmentLimitExceededException" ->
          `ADAssessmentLimitExceededException
            (ADAssessmentLimitExceededException.of_json json)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ADAssessmentLimitExceededException" ->
          `ADAssessmentLimitExceededException
            (ADAssessmentLimitExceededException.of_xml xml)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ADAssessmentLimitExceededException e ->
          `Assoc
            [("error", (`String "ADAssessmentLimitExceededException"));
            ("details", (ADAssessmentLimitExceededException.to_json e))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("AssessmentId",
           (Option.map x.assessmentId ~f:AssessmentId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentId =
        (Option.map ~f:AssessmentId.of_xml)
          (Xml.child xml_arg0 "AssessmentId") in
      make ?assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentId = field_map json__ "AssessmentId" AssessmentId.of_json in
      make ?assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates a directory assessment to validate your self-managed AD environment for hybrid domain join. The assessment checks compatibility and connectivity of the self-managed AD environment. A directory assessment is automatically created when you create a hybrid directory. There are two types of assessments: CUSTOMER and SYSTEM. Your Amazon Web Services account has a limit of 100 CUSTOMER directory assessments. The assessment process typically takes 30 minutes or more to complete. The assessment process is asynchronous and you can monitor it with DescribeADAssessment. The InstanceIds must have a one-to-one correspondence with CustomerDnsIps, meaning that if the IP address for instance i-10243410 is 10.24.34.100 and the IP address for instance i-10243420 is 10.24.34.200, then the input arrays must maintain the same order relationship, either \\[10.24.34.100, 10.24.34.200\\] paired with \\[i-10243410, i-10243420\\] or \\[10.24.34.200, 10.24.34.100\\] paired with \\[i-10243420, i-10243410\\]. Note: You must provide exactly one DirectoryId or AssessmentConfiguration."]
module StartADAssessmentRequest =
  struct
    type nonrec t =
      {
      assessmentConfiguration: AssessmentConfiguration.t option
        [@ocaml.doc
          "Configuration parameters for the directory assessment, including DNS server information, domain name, Amazon VPC subnet, and Amazon Web Services System Manager managed node details."];
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The identifier of the directory for which to perform the assessment. This should be an existing directory. If the assessment is not for an existing directory, this parameter should be omitted."]}
    let make ?assessmentConfiguration =
      fun ?directoryId -> fun () -> { assessmentConfiguration; directoryId }
    let to_value x =
      structure_to_value
        [("AssessmentConfiguration",
           (Option.map x.assessmentConfiguration
              ~f:AssessmentConfiguration.to_value));
        ("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      let assessmentConfiguration =
        (Option.map ~f:AssessmentConfiguration.of_xml)
          (Xml.child xml_arg0 "AssessmentConfiguration") in
      make ?directoryId ?assessmentConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      let assessmentConfiguration =
        field_map json__ "AssessmentConfiguration"
          AssessmentConfiguration.of_json in
      make ?directoryId ?assessmentConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates a directory assessment to validate your self-managed AD environment for hybrid domain join. The assessment checks compatibility and connectivity of the self-managed AD environment. A directory assessment is automatically created when you create a hybrid directory. There are two types of assessments: CUSTOMER and SYSTEM. Your Amazon Web Services account has a limit of 100 CUSTOMER directory assessments. The assessment process typically takes 30 minutes or more to complete. The assessment process is asynchronous and you can monitor it with DescribeADAssessment. The InstanceIds must have a one-to-one correspondence with CustomerDnsIps, meaning that if the IP address for instance i-10243410 is 10.24.34.100 and the IP address for instance i-10243420 is 10.24.34.200, then the input arrays must maintain the same order relationship, either \\[10.24.34.100, 10.24.34.200\\] paired with \\[i-10243410, i-10243420\\] or \\[10.24.34.200, 10.24.34.100\\] paired with \\[i-10243420, i-10243410\\]. Note: You must provide exactly one DirectoryId or AssessmentConfiguration."]
module ShareDirectoryResult =
  struct
    type nonrec t =
      {
      sharedDirectoryId: DirectoryId.t option
        [@ocaml.doc
          "Identifier of the directory that is stored in the directory consumer account that is shared from the specified directory (DirectoryId)."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryAlreadySharedException of DirectoryAlreadySharedException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidTargetException of InvalidTargetException.t 
      | `OrganizationsException of OrganizationsException.t 
      | `ServiceException of ServiceException.t 
      | `ShareLimitExceededException of ShareLimitExceededException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sharedDirectoryId = fun () -> { sharedDirectoryId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryAlreadySharedException" ->
          `DirectoryAlreadySharedException
            (DirectoryAlreadySharedException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidTargetException" ->
          `InvalidTargetException (InvalidTargetException.of_json json)
      | "OrganizationsException" ->
          `OrganizationsException (OrganizationsException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "ShareLimitExceededException" ->
          `ShareLimitExceededException
            (ShareLimitExceededException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryAlreadySharedException" ->
          `DirectoryAlreadySharedException
            (DirectoryAlreadySharedException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidTargetException" ->
          `InvalidTargetException (InvalidTargetException.of_xml xml)
      | "OrganizationsException" ->
          `OrganizationsException (OrganizationsException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "ShareLimitExceededException" ->
          `ShareLimitExceededException
            (ShareLimitExceededException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryAlreadySharedException e ->
          `Assoc
            [("error", (`String "DirectoryAlreadySharedException"));
            ("details", (DirectoryAlreadySharedException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidTargetException e ->
          `Assoc
            [("error", (`String "InvalidTargetException"));
            ("details", (InvalidTargetException.to_json e))]
      | `OrganizationsException e ->
          `Assoc
            [("error", (`String "OrganizationsException"));
            ("details", (OrganizationsException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `ShareLimitExceededException e ->
          `Assoc
            [("error", (`String "ShareLimitExceededException"));
            ("details", (ShareLimitExceededException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("SharedDirectoryId",
           (Option.map x.sharedDirectoryId ~f:DirectoryId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharedDirectoryId =
        (Option.map ~f:DirectoryId.of_xml)
          (Xml.child xml_arg0 "SharedDirectoryId") in
      make ?sharedDirectoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharedDirectoryId =
        field_map json__ "SharedDirectoryId" DirectoryId.of_json in
      make ?sharedDirectoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Shares a specified directory (DirectoryId) in your Amazon Web Services account (directory owner) with another Amazon Web Services account (directory consumer). With this operation you can use your directory from any Amazon Web Services account and from any Amazon VPC within an Amazon Web Services Region. When you share your Managed Microsoft AD directory, Directory Service creates a shared directory in the directory consumer account. This shared directory contains the metadata to provide access to the directory within the directory owner account. The shared directory is visible in all VPCs in the directory consumer account. The ShareMethod parameter determines whether the specified directory can be shared between Amazon Web Services accounts inside the same Amazon Web Services organization (ORGANIZATIONS). It also determines whether you can share the directory with any other Amazon Web Services account either inside or outside of the organization (HANDSHAKE). The ShareNotes parameter is only used when HANDSHAKE is called, which sends a directory sharing request to the directory consumer."]
module ShareDirectoryRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "Identifier of the Managed Microsoft AD directory that you want to share with other Amazon Web Services accounts."];
      shareNotes: Notes.t option
        [@ocaml.doc
          "A directory share request that is sent by the directory owner to the directory consumer. The request includes a typed message to help the directory consumer administrator determine whether to approve or reject the share invitation."];
      shareTarget: ShareTarget.t
        [@ocaml.doc
          "Identifier for the directory consumer account with whom the directory is to be shared."];
      shareMethod: ShareMethod.t
        [@ocaml.doc
          "The method used when sharing a directory to determine whether the directory should be shared within your Amazon Web Services organization (ORGANIZATIONS) or with any Amazon Web Services account by sending a directory sharing request (HANDSHAKE)."]}
    let context_ = "ShareDirectoryRequest"
    let make ?shareNotes =
      fun ~directoryId ->
        fun ~shareTarget ->
          fun ~shareMethod ->
            fun () -> { shareNotes; directoryId; shareTarget; shareMethod }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("ShareNotes", (Option.map x.shareNotes ~f:Notes.to_value));
        ("ShareTarget", (Some (ShareTarget.to_value x.shareTarget)));
        ("ShareMethod", (Some (ShareMethod.to_value x.shareMethod)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let shareMethod =
        ShareMethod.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ShareMethod") in
      let shareTarget =
        ShareTarget.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ShareTarget") in
      let shareNotes =
        (Option.map ~f:Notes.of_xml) (Xml.child xml_arg0 "ShareNotes") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~shareMethod ~shareTarget ?shareNotes ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let shareMethod =
        field_map_exn json__ "ShareMethod" ShareMethod.of_json in
      let shareTarget =
        field_map_exn json__ "ShareTarget" ShareTarget.of_json in
      let shareNotes = field_map json__ "ShareNotes" Notes.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~shareMethod ~shareTarget ?shareNotes ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Shares a specified directory (DirectoryId) in your Amazon Web Services account (directory owner) with another Amazon Web Services account (directory consumer). With this operation you can use your directory from any Amazon Web Services account and from any Amazon VPC within an Amazon Web Services Region. When you share your Managed Microsoft AD directory, Directory Service creates a shared directory in the directory consumer account. This shared directory contains the metadata to provide access to the directory within the directory owner account. The shared directory is visible in all VPCs in the directory consumer account. The ShareMethod parameter determines whether the specified directory can be shared between Amazon Web Services accounts inside the same Amazon Web Services organization (ORGANIZATIONS). It also determines whether you can share the directory with any other Amazon Web Services account either inside or outside of the organization (HANDSHAKE). The ShareNotes parameter is only used when HANDSHAKE is called, which sends a directory sharing request to the directory consumer."]
module RestoreFromSnapshotResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
       "Contains the results of the RestoreFromSnapshot operation."]
module RestoreFromSnapshotRequest =
  struct
    type nonrec t =
      {
      snapshotId: SnapshotId.t
        [@ocaml.doc "The identifier of the snapshot to restore from."]}
    let context_ = "RestoreFromSnapshotRequest"
    let make ~snapshotId = fun () -> { snapshotId }
    let to_value x =
      structure_to_value
        [("SnapshotId", (Some (SnapshotId.to_value x.snapshotId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snapshotId =
        SnapshotId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SnapshotId") in
      make ~snapshotId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snapshotId = field_map_exn json__ "SnapshotId" SnapshotId.of_json in
      make ~snapshotId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object representing the inputs for the RestoreFromSnapshot operation."]
module ResetUserPasswordResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidPasswordException of InvalidPasswordException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `UserDoesNotExistException of UserDoesNotExistException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidPasswordException" ->
          `InvalidPasswordException (InvalidPasswordException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | "UserDoesNotExistException" ->
          `UserDoesNotExistException (UserDoesNotExistException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidPasswordException" ->
          `InvalidPasswordException (InvalidPasswordException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | "UserDoesNotExistException" ->
          `UserDoesNotExistException (UserDoesNotExistException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidPasswordException e ->
          `Assoc
            [("error", (`String "InvalidPasswordException"));
            ("details", (InvalidPasswordException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.to_json e))]
      | `UserDoesNotExistException e ->
          `Assoc
            [("error", (`String "UserDoesNotExistException"));
            ("details", (UserDoesNotExistException.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
       "Resets the password for any user in your Managed Microsoft AD or Simple AD directory. Disabled users will become enabled and can be authenticated following the API call. You can reset the password for any user in your directory with the following exceptions: For Simple AD, you cannot reset the password for any user that is a member of either the Domain Admins or Enterprise Admins group except for the administrator user. For Managed Microsoft AD, you can only reset the password for a user that is in an OU based off of the NetBIOS name that you typed when you created your directory. For example, you cannot reset the password for a user in the Amazon Web Services Reserved OU. For more information about the OU structure for an Managed Microsoft AD directory, see What Gets Created in the Directory Service Administration Guide."]
module ResetUserPasswordRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "Identifier of the Managed Microsoft AD or Simple AD directory in which the user resides."];
      userName: CustomerUserName.t
        [@ocaml.doc
          "The user name of the user whose password will be reset."];
      newPassword: UserPassword.t
        [@ocaml.doc "The new password that will be reset."]}
    let context_ = "ResetUserPasswordRequest"
    let make ~directoryId =
      fun ~userName ->
        fun ~newPassword -> fun () -> { directoryId; userName; newPassword }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("UserName", (Some (CustomerUserName.to_value x.userName)));
        ("NewPassword", (Some (UserPassword.to_value x.newPassword)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let newPassword =
        UserPassword.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NewPassword") in
      let userName =
        CustomerUserName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UserName") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~newPassword ~userName ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let newPassword =
        field_map_exn json__ "NewPassword" UserPassword.of_json in
      let userName = field_map_exn json__ "UserName" CustomerUserName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~newPassword ~userName ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Resets the password for any user in your Managed Microsoft AD or Simple AD directory. Disabled users will become enabled and can be authenticated following the API call. You can reset the password for any user in your directory with the following exceptions: For Simple AD, you cannot reset the password for any user that is a member of either the Domain Admins or Enterprise Admins group except for the administrator user. For Managed Microsoft AD, you can only reset the password for a user that is in an OU based off of the NetBIOS name that you typed when you created your directory. For example, you cannot reset the password for a user in the Amazon Web Services Reserved OU. For more information about the OU structure for an Managed Microsoft AD directory, see What Gets Created in the Directory Service Administration Guide."]
module RemoveTagsFromResourceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from a directory."]
module RemoveTagsFromResourceRequest =
  struct
    type nonrec t =
      {
      resourceId: ResourceId.t
        [@ocaml.doc
          "Identifier (ID) of the directory from which to remove the tag."];
      tagKeys: TagKeys.t
        [@ocaml.doc "The tag key (name) of the tag to be removed."]}
    let context_ = "RemoveTagsFromResourceRequest"
    let make ~resourceId = fun ~tagKeys -> fun () -> { resourceId; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (ResourceId.to_value x.resourceId)));
        ("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 resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~tagKeys ~resourceId ()
    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 resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      make ~tagKeys ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from a directory."]
module RemoveRegionResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops all replication and removes the domain controllers from the specified Region. You cannot remove the primary Region with this operation. Instead, use the DeleteDirectory API."]
module RemoveRegionRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for which you want to remove Region replication."]}
    let context_ = "RemoveRegionRequest"
    let make ~directoryId = fun () -> { directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops all replication and removes the domain controllers from the specified Region. You cannot remove the primary Region with this operation. Instead, use the DeleteDirectory API."]
module RemoveIpRoutesResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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 IP address blocks from a directory."]
module RemoveIpRoutesRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "Identifier (ID) of the directory from which you want to remove the IP addresses."];
      cidrIps: CidrIps.t option
        [@ocaml.doc "IP address blocks that you want to remove."];
      cidrIpv6s: CidrIpv6s.t option
        [@ocaml.doc "IPv6 address blocks that you want to remove."]}
    let context_ = "RemoveIpRoutesRequest"
    let make ?cidrIps =
      fun ?cidrIpv6s ->
        fun ~directoryId -> fun () -> { cidrIps; cidrIpv6s; directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("CidrIps", (Option.map x.cidrIps ~f:CidrIps.to_value));
        ("CidrIpv6s", (Option.map x.cidrIpv6s ~f:CidrIpv6s.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cidrIpv6s =
        (Option.map ~f:CidrIpv6s.of_xml) (Xml.child xml_arg0 "CidrIpv6s") in
      let cidrIps =
        (Option.map ~f:CidrIps.of_xml) (Xml.child xml_arg0 "CidrIps") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?cidrIpv6s ?cidrIps ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cidrIpv6s = field_map json__ "CidrIpv6s" CidrIpv6s.of_json in
      let cidrIps = field_map json__ "CidrIps" CidrIps.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?cidrIpv6s ?cidrIps ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes IP address blocks from a directory."]
module RejectSharedDirectoryResult =
  struct
    type nonrec t =
      {
      sharedDirectoryId: DirectoryId.t option
        [@ocaml.doc
          "Identifier of the shared directory in the directory consumer account."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryAlreadySharedException of DirectoryAlreadySharedException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sharedDirectoryId = fun () -> { sharedDirectoryId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryAlreadySharedException" ->
          `DirectoryAlreadySharedException
            (DirectoryAlreadySharedException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryAlreadySharedException" ->
          `DirectoryAlreadySharedException
            (DirectoryAlreadySharedException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryAlreadySharedException e ->
          `Assoc
            [("error", (`String "DirectoryAlreadySharedException"));
            ("details", (DirectoryAlreadySharedException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("SharedDirectoryId",
           (Option.map x.sharedDirectoryId ~f:DirectoryId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharedDirectoryId =
        (Option.map ~f:DirectoryId.of_xml)
          (Xml.child xml_arg0 "SharedDirectoryId") in
      make ?sharedDirectoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharedDirectoryId =
        field_map json__ "SharedDirectoryId" DirectoryId.of_json in
      make ?sharedDirectoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Rejects a directory sharing request that was sent from the directory owner account."]
module RejectSharedDirectoryRequest =
  struct
    type nonrec t =
      {
      sharedDirectoryId: DirectoryId.t
        [@ocaml.doc
          "Identifier of the shared directory in the directory consumer account. This identifier is different for each directory owner account."]}
    let context_ = "RejectSharedDirectoryRequest"
    let make ~sharedDirectoryId = fun () -> { sharedDirectoryId }
    let to_value x =
      structure_to_value
        [("SharedDirectoryId",
           (Some (DirectoryId.to_value x.sharedDirectoryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharedDirectoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SharedDirectoryId") in
      make ~sharedDirectoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharedDirectoryId =
        field_map_exn json__ "SharedDirectoryId" DirectoryId.of_json in
      make ~sharedDirectoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Rejects a directory sharing request that was sent from the directory owner account."]
module RegisterEventTopicResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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 "The result of a RegisterEventTopic request."]
module RegisterEventTopicRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The Directory ID that will publish status messages to the Amazon SNS topic."];
      topicName: TopicName.t
        [@ocaml.doc
          "The Amazon SNS topic name to which the directory will publish status messages. This Amazon SNS topic must be in the same region as the specified Directory ID."]}
    let context_ = "RegisterEventTopicRequest"
    let make ~directoryId =
      fun ~topicName -> fun () -> { directoryId; topicName }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("TopicName", (Some (TopicName.to_value x.topicName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let topicName =
        TopicName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TopicName") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~topicName ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let topicName = field_map_exn json__ "TopicName" TopicName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~topicName ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Registers a new event topic."]
module RegisterCertificateResult =
  struct
    type nonrec t =
      {
      certificateId: CertificateId.t option
        [@ocaml.doc "The identifier of the certificate."]}
    type nonrec error =
      [
        `CertificateAlreadyExistsException of
          CertificateAlreadyExistsException.t 
      | `CertificateLimitExceededException of
          CertificateLimitExceededException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `InvalidCertificateException of InvalidCertificateException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?certificateId = fun () -> { certificateId }
    let error_of_json name json =
      match name with
      | "CertificateAlreadyExistsException" ->
          `CertificateAlreadyExistsException
            (CertificateAlreadyExistsException.of_json json)
      | "CertificateLimitExceededException" ->
          `CertificateLimitExceededException
            (CertificateLimitExceededException.of_json json)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "InvalidCertificateException" ->
          `InvalidCertificateException
            (InvalidCertificateException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CertificateAlreadyExistsException" ->
          `CertificateAlreadyExistsException
            (CertificateAlreadyExistsException.of_xml xml)
      | "CertificateLimitExceededException" ->
          `CertificateLimitExceededException
            (CertificateLimitExceededException.of_xml xml)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "InvalidCertificateException" ->
          `InvalidCertificateException
            (InvalidCertificateException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CertificateAlreadyExistsException e ->
          `Assoc
            [("error", (`String "CertificateAlreadyExistsException"));
            ("details", (CertificateAlreadyExistsException.to_json e))]
      | `CertificateLimitExceededException e ->
          `Assoc
            [("error", (`String "CertificateLimitExceededException"));
            ("details", (CertificateLimitExceededException.to_json e))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `InvalidCertificateException e ->
          `Assoc
            [("error", (`String "InvalidCertificateException"));
            ("details", (InvalidCertificateException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("CertificateId",
           (Option.map x.certificateId ~f:CertificateId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateId =
        (Option.map ~f:CertificateId.of_xml)
          (Xml.child xml_arg0 "CertificateId") in
      make ?certificateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateId =
        field_map json__ "CertificateId" CertificateId.of_json in
      make ?certificateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers a certificate for a secure LDAP or client certificate authentication."]
module RegisterCertificateRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory."];
      certificateData: CertificateData.t
        [@ocaml.doc
          "The certificate PEM string that needs to be registered."];
      type_: CertificateType.t option
        [@ocaml.doc
          "The function that the registered certificate performs. Valid values include ClientLDAPS or ClientCertAuth. The default value is ClientLDAPS."];
      clientCertAuthSettings: ClientCertAuthSettings.t option
        [@ocaml.doc
          "A ClientCertAuthSettings object that contains client certificate authentication settings."]}
    let context_ = "RegisterCertificateRequest"
    let make ?type_ =
      fun ?clientCertAuthSettings ->
        fun ~directoryId ->
          fun ~certificateData ->
            fun () ->
              { type_; clientCertAuthSettings; directoryId; certificateData }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("CertificateData",
          (Some (CertificateData.to_value x.certificateData)));
        ("Type", (Option.map x.type_ ~f:CertificateType.to_value));
        ("ClientCertAuthSettings",
          (Option.map x.clientCertAuthSettings
             ~f:ClientCertAuthSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientCertAuthSettings =
        (Option.map ~f:ClientCertAuthSettings.of_xml)
          (Xml.child xml_arg0 "ClientCertAuthSettings") in
      let type_ =
        (Option.map ~f:CertificateType.of_xml) (Xml.child xml_arg0 "Type") in
      let certificateData =
        CertificateData.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CertificateData") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?clientCertAuthSettings ?type_ ~certificateData ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientCertAuthSettings =
        field_map json__ "ClientCertAuthSettings"
          ClientCertAuthSettings.of_json in
      let type_ = field_map json__ "Type" CertificateType.of_json in
      let certificateData =
        field_map_exn json__ "CertificateData" CertificateData.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?clientCertAuthSettings ?type_ ~certificateData ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers a certificate for a secure LDAP or client certificate authentication."]
module ListTagsForResourceResult =
  struct
    type nonrec t =
      {
      tags: Tags.t option
        [@ocaml.doc
          "List of tags returned by the ListTagsForResource operation."];
      nextToken: NextToken.t option [@ocaml.doc "Reserved for future use."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun ?nextToken -> fun () -> { tags; nextToken }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?nextToken ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      make ?nextToken ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all tags on a directory."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceId: ResourceId.t
        [@ocaml.doc
          "Identifier (ID) of the directory for which you want to retrieve tags."];
      nextToken: NextToken.t option [@ocaml.doc "Reserved for future use."];
      limit: Limit.t option [@ocaml.doc "Reserved for future use."]}
    let context_ = "ListTagsForResourceRequest"
    let make ?nextToken =
      fun ?limit ->
        fun ~resourceId -> fun () -> { nextToken; limit; resourceId }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (ResourceId.to_value x.resourceId)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ?limit ?nextToken ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" Limit.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      make ?limit ?nextToken ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all tags on a directory."]
module ListSchemaExtensionsResult =
  struct
    type nonrec t =
      {
      schemaExtensionsInfo: SchemaExtensionsInfo.t option
        [@ocaml.doc
          "Information about the schema extensions applied to the directory."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If not null, more results are available. Pass this value for the NextToken parameter in a subsequent call to ListSchemaExtensions to retrieve the next set of items."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?schemaExtensionsInfo =
      fun ?nextToken -> fun () -> { schemaExtensionsInfo; nextToken }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("SchemaExtensionsInfo",
           (Option.map x.schemaExtensionsInfo
              ~f:SchemaExtensionsInfo.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let schemaExtensionsInfo =
        (Option.map ~f:SchemaExtensionsInfo.of_xml)
          (Xml.child xml_arg0 "SchemaExtensionsInfo") in
      make ?nextToken ?schemaExtensionsInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let schemaExtensionsInfo =
        field_map json__ "SchemaExtensionsInfo" SchemaExtensionsInfo.of_json in
      make ?nextToken ?schemaExtensionsInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all schema extensions applied to a Microsoft AD Directory."]
module ListSchemaExtensionsRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory from which to retrieve the schema extension information."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The ListSchemaExtensions.NextToken value from a previous call to ListSchemaExtensions. Pass null if this is the first call."];
      limit: Limit.t option
        [@ocaml.doc "The maximum number of items to return."]}
    let context_ = "ListSchemaExtensionsRequest"
    let make ?nextToken =
      fun ?limit ->
        fun ~directoryId -> fun () -> { nextToken; limit; directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?limit ?nextToken ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" Limit.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?limit ?nextToken ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all schema extensions applied to a Microsoft AD Directory."]
module ListLogSubscriptionsResult =
  struct
    type nonrec t =
      {
      logSubscriptions: LogSubscriptions.t option
        [@ocaml.doc
          "A list of active LogSubscription objects for calling the Amazon Web Services account."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next set of items to return."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?logSubscriptions =
      fun ?nextToken -> fun () -> { logSubscriptions; nextToken }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("LogSubscriptions",
           (Option.map x.logSubscriptions ~f:LogSubscriptions.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let logSubscriptions =
        (Option.map ~f:LogSubscriptions.of_xml)
          (Xml.child xml_arg0 "LogSubscriptions") in
      make ?nextToken ?logSubscriptions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let logSubscriptions =
        field_map json__ "LogSubscriptions" LogSubscriptions.of_json in
      make ?nextToken ?logSubscriptions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the active log subscriptions for the Amazon Web Services account."]
module ListLogSubscriptionsRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "If a DirectoryID is provided, lists only the log subscription associated with that directory. If no DirectoryId is provided, lists all log subscriptions associated with your Amazon Web Services account. If there are no log subscriptions for the Amazon Web Services account or the directory, an empty list will be returned."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next set of items to return."];
      limit: Limit.t option
        [@ocaml.doc "The maximum number of items returned."]}
    let make ?directoryId =
      fun ?nextToken ->
        fun ?limit -> fun () -> { directoryId; nextToken; limit }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?limit ?nextToken ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" Limit.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?limit ?nextToken ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the active log subscriptions for the Amazon Web Services account."]
module ListIpRoutesResult =
  struct
    type nonrec t =
      {
      ipRoutesInfo: IpRoutesInfo.t option [@ocaml.doc "A list of IpRoutes."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If not null, more results are available. Pass this value for the NextToken parameter in a subsequent call to ListIpRoutes to retrieve the next set of items."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ipRoutesInfo =
      fun ?nextToken -> fun () -> { ipRoutesInfo; nextToken }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("IpRoutesInfo",
           (Option.map x.ipRoutesInfo ~f:IpRoutesInfo.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let ipRoutesInfo =
        (Option.map ~f:IpRoutesInfo.of_xml)
          (Xml.child xml_arg0 "IpRoutesInfo") in
      make ?nextToken ?ipRoutesInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let ipRoutesInfo = field_map json__ "IpRoutesInfo" IpRoutesInfo.of_json in
      make ?nextToken ?ipRoutesInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the address blocks that you have added to a directory."]
module ListIpRoutesRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "Identifier (ID) of the directory for which you want to retrieve the IP addresses."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The ListIpRoutes.NextToken value from a previous call to ListIpRoutes. Pass null if this is the first call."];
      limit: Limit.t option
        [@ocaml.doc
          "Maximum number of items to return. If this value is zero, the maximum number of items is specified by the limitations of the operation."]}
    let context_ = "ListIpRoutesRequest"
    let make ?nextToken =
      fun ?limit ->
        fun ~directoryId -> fun () -> { nextToken; limit; directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?limit ?nextToken ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" Limit.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?limit ?nextToken ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the address blocks that you have added to a directory."]
module ListCertificatesResult =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "Indicates whether another page of certificates is available when the number of available certificates exceeds the page limit."];
      certificatesInfo: CertificatesInfo.t option
        [@ocaml.doc
          "A list of certificates with basic details including certificate ID, certificate common name, certificate state."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?certificatesInfo -> fun () -> { nextToken; certificatesInfo }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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:NextToken.to_value));
        ("CertificatesInfo",
          (Option.map x.certificatesInfo ~f:CertificatesInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificatesInfo =
        (Option.map ~f:CertificatesInfo.of_xml)
          (Xml.child xml_arg0 "CertificatesInfo") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?certificatesInfo ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificatesInfo =
        field_map json__ "CertificatesInfo" CertificatesInfo.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?certificatesInfo ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For the specified directory, lists all the certificates registered for a secure LDAP or client certificate authentication."]
module ListCertificatesRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token for requesting another page of certificates if the NextToken response element indicates that more certificates are available. Use the value of the returned NextToken element in your request until the token comes back as null. Pass null if this is the first call."];
      limit: PageLimit.t option
        [@ocaml.doc "The number of items that should show up on one page"]}
    let context_ = "ListCertificatesRequest"
    let make ?nextToken =
      fun ?limit ->
        fun ~directoryId -> fun () -> { nextToken; limit; directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:PageLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:PageLimit.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?limit ?nextToken ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" PageLimit.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?limit ?nextToken ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For the specified directory, lists all the certificates registered for a secure LDAP or client certificate authentication."]
module ListADAssessmentsResult =
  struct
    type nonrec t =
      {
      assessments: Assessments.t option
        [@ocaml.doc
          "A list of assessment summaries containing basic information about each directory assessment."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If not null, more results are available. Pass this value for the NextToken parameter in a subsequent request to retrieve the next set of items."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessments =
      fun ?nextToken -> fun () -> { assessments; nextToken }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("Assessments", (Option.map x.assessments ~f:Assessments.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let assessments =
        (Option.map ~f:Assessments.of_xml) (Xml.child xml_arg0 "Assessments") in
      make ?nextToken ?assessments ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let assessments = field_map json__ "Assessments" Assessments.of_json in
      make ?nextToken ?assessments ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of directory assessments for the specified directory or all assessments in your account. Use this operation to monitor assessment status and manage multiple assessments."]
module ListADAssessmentsRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The identifier of the directory for which to list assessments. If not specified, all assessments in your account are returned."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The pagination token from a previous request to ListADAssessments. Pass null if this is the first request."];
      limit: AssessmentLimit.t option
        [@ocaml.doc "The maximum number of assessment summaries to return."]}
    let make ?directoryId =
      fun ?nextToken ->
        fun ?limit -> fun () -> { directoryId; nextToken; limit }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:AssessmentLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:AssessmentLimit.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?limit ?nextToken ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" AssessmentLimit.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?limit ?nextToken ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of directory assessments for the specified directory or all assessments in your account. Use this operation to monitor assessment status and manage multiple assessments."]
module GetSnapshotLimitsResult =
  struct
    type nonrec t =
      {
      snapshotLimits: SnapshotLimits.t option
        [@ocaml.doc
          "A SnapshotLimits object that contains the manual snapshot limits for the specified directory."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?snapshotLimits = fun () -> { snapshotLimits }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("SnapshotLimits",
           (Option.map x.snapshotLimits ~f:SnapshotLimits.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snapshotLimits =
        (Option.map ~f:SnapshotLimits.of_xml)
          (Xml.child xml_arg0 "SnapshotLimits") in
      make ?snapshotLimits ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snapshotLimits =
        field_map json__ "SnapshotLimits" SnapshotLimits.of_json in
      make ?snapshotLimits ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the results of the GetSnapshotLimits operation."]
module GetSnapshotLimitsRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "Contains the identifier of the directory to obtain the limits for."]}
    let context_ = "GetSnapshotLimitsRequest"
    let make ~directoryId = fun () -> { directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the GetSnapshotLimits operation."]
module GetDirectoryLimitsResult =
  struct
    type nonrec t =
      {
      directoryLimits: DirectoryLimits.t option
        [@ocaml.doc
          "A DirectoryLimits object that contains the directory limits for the current Region."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryLimits = fun () -> { directoryLimits }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("DirectoryLimits",
           (Option.map x.directoryLimits ~f:DirectoryLimits.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryLimits =
        (Option.map ~f:DirectoryLimits.of_xml)
          (Xml.child xml_arg0 "DirectoryLimits") in
      make ?directoryLimits ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryLimits =
        field_map json__ "DirectoryLimits" DirectoryLimits.of_json in
      make ?directoryLimits ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the results of the GetDirectoryLimits operation."]
module GetDirectoryLimitsRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the inputs for the GetDirectoryLimits operation."]
module EnableSsoResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AuthenticationFailedException of AuthenticationFailedException.t 
      | `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InsufficientPermissionsException of
          InsufficientPermissionsException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AuthenticationFailedException" ->
          `AuthenticationFailedException
            (AuthenticationFailedException.of_json json)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InsufficientPermissionsException" ->
          `InsufficientPermissionsException
            (InsufficientPermissionsException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthenticationFailedException" ->
          `AuthenticationFailedException
            (AuthenticationFailedException.of_xml xml)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InsufficientPermissionsException" ->
          `InsufficientPermissionsException
            (InsufficientPermissionsException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthenticationFailedException e ->
          `Assoc
            [("error", (`String "AuthenticationFailedException"));
            ("details", (AuthenticationFailedException.to_json e))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InsufficientPermissionsException e ->
          `Assoc
            [("error", (`String "InsufficientPermissionsException"));
            ("details", (InsufficientPermissionsException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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 "Contains the results of the EnableSso operation."]
module EnableSsoRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for which to enable single-sign on."];
      userName: UserName.t option
        [@ocaml.doc
          "The username of an alternate account to use to enable single-sign on. This is only used for AD Connector directories. This account must have privileges to add a service principal name. If the AD Connector service account does not have privileges to add a service principal name, you can specify an alternate account with the UserName and Password parameters. These credentials are only used to enable single sign-on and are not stored by the service. The AD Connector service account is not changed."];
      password: ConnectPassword.t option
        [@ocaml.doc
          "The password of an alternate account to use to enable single-sign on. This is only used for AD Connector directories. For more information, see the UserName parameter."]}
    let context_ = "EnableSsoRequest"
    let make ?userName =
      fun ?password ->
        fun ~directoryId -> fun () -> { userName; password; directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("UserName", (Option.map x.userName ~f:UserName.to_value));
        ("Password", (Option.map x.password ~f:ConnectPassword.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let password =
        (Option.map ~f:ConnectPassword.of_xml)
          (Xml.child xml_arg0 "Password") in
      let userName =
        (Option.map ~f:UserName.of_xml) (Xml.child xml_arg0 "UserName") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?password ?userName ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let password = field_map json__ "Password" ConnectPassword.of_json in
      let userName = field_map json__ "UserName" UserName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?password ?userName ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the EnableSso operation."]
module EnableRadiusResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityAlreadyExistsException of EntityAlreadyExistsException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityAlreadyExistsException e ->
          `Assoc
            [("error", (`String "EntityAlreadyExistsException"));
            ("details", (EntityAlreadyExistsException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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 "Contains the results of the EnableRadius operation."]
module EnableRadiusRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for which to enable MFA."];
      radiusSettings: RadiusSettings.t
        [@ocaml.doc
          "A RadiusSettings object that contains information about the RADIUS server."]}
    let context_ = "EnableRadiusRequest"
    let make ~directoryId =
      fun ~radiusSettings -> fun () -> { directoryId; radiusSettings }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("RadiusSettings", (Some (RadiusSettings.to_value x.radiusSettings)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let radiusSettings =
        RadiusSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RadiusSettings") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~radiusSettings ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let radiusSettings =
        field_map_exn json__ "RadiusSettings" RadiusSettings.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~radiusSettings ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the EnableRadius operation."]
module EnableLDAPSResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `InvalidLDAPSStatusException of InvalidLDAPSStatusException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NoAvailableCertificateException of NoAvailableCertificateException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "InvalidLDAPSStatusException" ->
          `InvalidLDAPSStatusException
            (InvalidLDAPSStatusException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NoAvailableCertificateException" ->
          `NoAvailableCertificateException
            (NoAvailableCertificateException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "InvalidLDAPSStatusException" ->
          `InvalidLDAPSStatusException
            (InvalidLDAPSStatusException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NoAvailableCertificateException" ->
          `NoAvailableCertificateException
            (NoAvailableCertificateException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `InvalidLDAPSStatusException e ->
          `Assoc
            [("error", (`String "InvalidLDAPSStatusException"));
            ("details", (InvalidLDAPSStatusException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NoAvailableCertificateException e ->
          `Assoc
            [("error", (`String "NoAvailableCertificateException"));
            ("details", (NoAvailableCertificateException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
       "Activates the switch for the specific directory to always use LDAP secure calls."]
module EnableLDAPSRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory."];
      type_: LDAPSType.t
        [@ocaml.doc
          "The type of LDAP security to enable. Currently only the value Client is supported."]}
    let context_ = "EnableLDAPSRequest"
    let make ~directoryId = fun ~type_ -> fun () -> { directoryId; type_ }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("Type", (Some (LDAPSType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        LDAPSType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~type_ ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "Type" LDAPSType.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~type_ ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Activates the switch for the specific directory to always use LDAP secure calls."]
module EnableDirectoryDataAccessResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `DirectoryInDesiredStateException of
          DirectoryInDesiredStateException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "DirectoryInDesiredStateException" ->
          `DirectoryInDesiredStateException
            (DirectoryInDesiredStateException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "DirectoryInDesiredStateException" ->
          `DirectoryInDesiredStateException
            (DirectoryInDesiredStateException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `DirectoryInDesiredStateException e ->
          `Assoc
            [("error", (`String "DirectoryInDesiredStateException"));
            ("details", (DirectoryInDesiredStateException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
       "Enables access to directory data via the Directory Service Data API for the specified directory. For more information, see Directory Service Data API Reference."]
module EnableDirectoryDataAccessRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t [@ocaml.doc "The directory identifier."]}
    let context_ = "EnableDirectoryDataAccessRequest"
    let make ~directoryId = fun () -> { directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables access to directory data via the Directory Service Data API for the specified directory. For more information, see Directory Service Data API Reference."]
module EnableClientAuthenticationResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `InvalidClientAuthStatusException of
          InvalidClientAuthStatusException.t 
      | `NoAvailableCertificateException of NoAvailableCertificateException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "InvalidClientAuthStatusException" ->
          `InvalidClientAuthStatusException
            (InvalidClientAuthStatusException.of_json json)
      | "NoAvailableCertificateException" ->
          `NoAvailableCertificateException
            (NoAvailableCertificateException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "InvalidClientAuthStatusException" ->
          `InvalidClientAuthStatusException
            (InvalidClientAuthStatusException.of_xml xml)
      | "NoAvailableCertificateException" ->
          `NoAvailableCertificateException
            (NoAvailableCertificateException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `InvalidClientAuthStatusException e ->
          `Assoc
            [("error", (`String "InvalidClientAuthStatusException"));
            ("details", (InvalidClientAuthStatusException.to_json e))]
      | `NoAvailableCertificateException e ->
          `Assoc
            [("error", (`String "NoAvailableCertificateException"));
            ("details", (NoAvailableCertificateException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
       "Enables alternative client authentication methods for the specified directory."]
module EnableClientAuthenticationRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the specified directory."];
      type_: ClientAuthenticationType.t
        [@ocaml.doc
          "The type of client authentication to enable. Currently only the value SmartCard is supported. Smart card authentication in AD Connector requires that you enable Kerberos Constrained Delegation for the Service User to the LDAP service in your self-managed AD."]}
    let context_ = "EnableClientAuthenticationRequest"
    let make ~directoryId = fun ~type_ -> fun () -> { directoryId; type_ }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("Type", (Some (ClientAuthenticationType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        ClientAuthenticationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~type_ ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ =
        field_map_exn json__ "Type" ClientAuthenticationType.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~type_ ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Enables alternative client authentication methods for the specified directory."]
module EnableCAEnrollmentPolicyResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `EnableAlreadyInProgressException of
          EnableAlreadyInProgressException.t 
      | `EntityAlreadyExistsException of EntityAlreadyExistsException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.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)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "EnableAlreadyInProgressException" ->
          `EnableAlreadyInProgressException
            (EnableAlreadyInProgressException.of_json json)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.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)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "EnableAlreadyInProgressException" ->
          `EnableAlreadyInProgressException
            (EnableAlreadyInProgressException.of_xml xml)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.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))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `EnableAlreadyInProgressException e ->
          `Assoc
            [("error", (`String "EnableAlreadyInProgressException"));
            ("details", (EnableAlreadyInProgressException.to_json e))]
      | `EntityAlreadyExistsException e ->
          `Assoc
            [("error", (`String "EntityAlreadyExistsException"));
            ("details", (EntityAlreadyExistsException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
       "Contains the results of the EnableCAEnrollmentPolicy operation."]
module EnableCAEnrollmentPolicyRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for which to enable the CA enrollment policy."];
      pcaConnectorArn: PcaConnectorArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Private Certificate Authority (PCA) connector to use for automatic certificate enrollment. This connector must be properly configured and accessible from the directory. The ARN format is: arn:aws:pca-connector-ad:region:account-id:connector/connector-id"]}
    let context_ = "EnableCAEnrollmentPolicyRequest"
    let make ~directoryId =
      fun ~pcaConnectorArn -> fun () -> { directoryId; pcaConnectorArn }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("PcaConnectorArn",
          (Some (PcaConnectorArn.to_value x.pcaConnectorArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pcaConnectorArn =
        PcaConnectorArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PcaConnectorArn") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~pcaConnectorArn ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pcaConnectorArn =
        field_map_exn json__ "PcaConnectorArn" PcaConnectorArn.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~pcaConnectorArn ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the inputs for the EnableCAEnrollmentPolicy operation."]
module DisableSsoResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AuthenticationFailedException of AuthenticationFailedException.t 
      | `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InsufficientPermissionsException of
          InsufficientPermissionsException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AuthenticationFailedException" ->
          `AuthenticationFailedException
            (AuthenticationFailedException.of_json json)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InsufficientPermissionsException" ->
          `InsufficientPermissionsException
            (InsufficientPermissionsException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthenticationFailedException" ->
          `AuthenticationFailedException
            (AuthenticationFailedException.of_xml xml)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InsufficientPermissionsException" ->
          `InsufficientPermissionsException
            (InsufficientPermissionsException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthenticationFailedException e ->
          `Assoc
            [("error", (`String "AuthenticationFailedException"));
            ("details", (AuthenticationFailedException.to_json e))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InsufficientPermissionsException e ->
          `Assoc
            [("error", (`String "InsufficientPermissionsException"));
            ("details", (InsufficientPermissionsException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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 "Contains the results of the DisableSso operation."]
module DisableSsoRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for which to disable single-sign on."];
      userName: UserName.t option
        [@ocaml.doc
          "The username of an alternate account to use to disable single-sign on. This is only used for AD Connector directories. This account must have privileges to remove a service principal name. If the AD Connector service account does not have privileges to remove a service principal name, you can specify an alternate account with the UserName and Password parameters. These credentials are only used to disable single sign-on and are not stored by the service. The AD Connector service account is not changed."];
      password: ConnectPassword.t option
        [@ocaml.doc
          "The password of an alternate account to use to disable single-sign on. This is only used for AD Connector directories. For more information, see the UserName parameter."]}
    let context_ = "DisableSsoRequest"
    let make ?userName =
      fun ?password ->
        fun ~directoryId -> fun () -> { userName; password; directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("UserName", (Option.map x.userName ~f:UserName.to_value));
        ("Password", (Option.map x.password ~f:ConnectPassword.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let password =
        (Option.map ~f:ConnectPassword.of_xml)
          (Xml.child xml_arg0 "Password") in
      let userName =
        (Option.map ~f:UserName.of_xml) (Xml.child xml_arg0 "UserName") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?password ?userName ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let password = field_map json__ "Password" ConnectPassword.of_json in
      let userName = field_map json__ "UserName" UserName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?password ?userName ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the DisableSso operation."]
module DisableRadiusResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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 "Contains the results of the DisableRadius operation."]
module DisableRadiusRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for which to disable MFA."]}
    let context_ = "DisableRadiusRequest"
    let make ~directoryId = fun () -> { directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the DisableRadius operation."]
module DisableLDAPSResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `InvalidLDAPSStatusException of InvalidLDAPSStatusException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "InvalidLDAPSStatusException" ->
          `InvalidLDAPSStatusException
            (InvalidLDAPSStatusException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "InvalidLDAPSStatusException" ->
          `InvalidLDAPSStatusException
            (InvalidLDAPSStatusException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `InvalidLDAPSStatusException e ->
          `Assoc
            [("error", (`String "InvalidLDAPSStatusException"));
            ("details", (InvalidLDAPSStatusException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
       "Deactivates LDAP secure calls for the specified directory."]
module DisableLDAPSRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory."];
      type_: LDAPSType.t
        [@ocaml.doc
          "The type of LDAP security to enable. Currently only the value Client is supported."]}
    let context_ = "DisableLDAPSRequest"
    let make ~directoryId = fun ~type_ -> fun () -> { directoryId; type_ }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("Type", (Some (LDAPSType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        LDAPSType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~type_ ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "Type" LDAPSType.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~type_ ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deactivates LDAP secure calls for the specified directory."]
module DisableDirectoryDataAccessResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `DirectoryInDesiredStateException of
          DirectoryInDesiredStateException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "DirectoryInDesiredStateException" ->
          `DirectoryInDesiredStateException
            (DirectoryInDesiredStateException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "DirectoryInDesiredStateException" ->
          `DirectoryInDesiredStateException
            (DirectoryInDesiredStateException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `DirectoryInDesiredStateException e ->
          `Assoc
            [("error", (`String "DirectoryInDesiredStateException"));
            ("details", (DirectoryInDesiredStateException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
       "Deactivates access to directory data via the Directory Service Data API for the specified directory. For more information, see Directory Service Data API Reference."]
module DisableDirectoryDataAccessRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t [@ocaml.doc "The directory identifier."]}
    let context_ = "DisableDirectoryDataAccessRequest"
    let make ~directoryId = fun () -> { directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deactivates access to directory data via the Directory Service Data API for the specified directory. For more information, see Directory Service Data API Reference."]
module DisableClientAuthenticationResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `InvalidClientAuthStatusException of
          InvalidClientAuthStatusException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "InvalidClientAuthStatusException" ->
          `InvalidClientAuthStatusException
            (InvalidClientAuthStatusException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "InvalidClientAuthStatusException" ->
          `InvalidClientAuthStatusException
            (InvalidClientAuthStatusException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `InvalidClientAuthStatusException e ->
          `Assoc
            [("error", (`String "InvalidClientAuthStatusException"));
            ("details", (InvalidClientAuthStatusException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
       "Disables alternative client authentication methods for the specified directory."]
module DisableClientAuthenticationRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory"];
      type_: ClientAuthenticationType.t
        [@ocaml.doc
          "The type of client authentication to disable. Currently the only parameter \"SmartCard\" is supported."]}
    let context_ = "DisableClientAuthenticationRequest"
    let make ~directoryId = fun ~type_ -> fun () -> { directoryId; type_ }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("Type", (Some (ClientAuthenticationType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        ClientAuthenticationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~type_ ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ =
        field_map_exn json__ "Type" ClientAuthenticationType.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~type_ ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disables alternative client authentication methods for the specified directory."]
module DisableCAEnrollmentPolicyResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `DisableAlreadyInProgressException of
          DisableAlreadyInProgressException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.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)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "DisableAlreadyInProgressException" ->
          `DisableAlreadyInProgressException
            (DisableAlreadyInProgressException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.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)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "DisableAlreadyInProgressException" ->
          `DisableAlreadyInProgressException
            (DisableAlreadyInProgressException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.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))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `DisableAlreadyInProgressException e ->
          `Assoc
            [("error", (`String "DisableAlreadyInProgressException"));
            ("details", (DisableAlreadyInProgressException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
       "Contains the results of the DisableCAEnrollmentPolicy operation."]
module DisableCAEnrollmentPolicyRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for which to disable the CA enrollment policy."]}
    let context_ = "DisableCAEnrollmentPolicyRequest"
    let make ~directoryId = fun () -> { directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the inputs for the DisableCAEnrollmentPolicy operation."]
module DescribeUpdateDirectoryResult =
  struct
    type nonrec t =
      {
      updateActivities: UpdateActivities.t option
        [@ocaml.doc
          "The list of update activities on a directory for the requested update type."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If not null, more results are available. Pass this value for the NextToken parameter."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateActivities =
      fun ?nextToken -> fun () -> { updateActivities; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.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)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.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))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("UpdateActivities",
           (Option.map x.updateActivities ~f:UpdateActivities.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let updateActivities =
        (Option.map ~f:UpdateActivities.of_xml)
          (Xml.child xml_arg0 "UpdateActivities") in
      make ?nextToken ?updateActivities ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let updateActivities =
        field_map json__ "UpdateActivities" UpdateActivities.of_json in
      make ?nextToken ?updateActivities ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the updates of a directory for a particular update type."]
module DescribeUpdateDirectoryRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The unique identifier of the directory."];
      updateType: UpdateType.t
        [@ocaml.doc
          "The type of updates you want to describe for the directory."];
      regionName: RegionName.t option [@ocaml.doc "The name of the Region."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The DescribeUpdateDirectoryResult. NextToken value from a previous call to DescribeUpdateDirectory. Pass null if this is the first call."]}
    let context_ = "DescribeUpdateDirectoryRequest"
    let make ?regionName =
      fun ?nextToken ->
        fun ~directoryId ->
          fun ~updateType ->
            fun () -> { regionName; nextToken; directoryId; updateType }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("UpdateType", (Some (UpdateType.to_value x.updateType)));
        ("RegionName", (Option.map x.regionName ~f:RegionName.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let regionName =
        (Option.map ~f:RegionName.of_xml) (Xml.child xml_arg0 "RegionName") in
      let updateType =
        UpdateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UpdateType") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?nextToken ?regionName ~updateType ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let regionName = field_map json__ "RegionName" RegionName.of_json in
      let updateType = field_map_exn json__ "UpdateType" UpdateType.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?nextToken ?regionName ~updateType ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the updates of a directory for a particular update type."]
module DescribeTrustsResult =
  struct
    type nonrec t =
      {
      trusts: Trusts.t option
        [@ocaml.doc
          "The list of Trust objects that were retrieved. It is possible that this list contains less than the number of items specified in the Limit member of the request. This occurs if there are less than the requested number of items left to retrieve, or if the limitations of the operation have been exceeded."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If not null, more results are available. Pass this value for the NextToken parameter in a subsequent call to DescribeTrusts to retrieve the next set of items."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?trusts = fun ?nextToken -> fun () -> { trusts; nextToken }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("Trusts", (Option.map x.trusts ~f:Trusts.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let trusts =
        (Option.map ~f:Trusts.of_xml) (Xml.child xml_arg0 "Trusts") in
      make ?nextToken ?trusts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let trusts = field_map json__ "Trusts" Trusts.of_json in
      make ?nextToken ?trusts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result of a DescribeTrust request."]
module DescribeTrustsRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The Directory ID of the Amazon Web Services directory that is a part of the requested trust relationship."];
      trustIds: TrustIds.t option
        [@ocaml.doc
          "A list of identifiers of the trust relationships for which to obtain the information. If this member is null, all trust relationships that belong to the current account are returned. An empty list results in an InvalidParameterException being thrown."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The DescribeTrustsResult.NextToken value from a previous call to DescribeTrusts. Pass null if this is the first call."];
      limit: Limit.t option
        [@ocaml.doc "The maximum number of objects to return."]}
    let make ?directoryId =
      fun ?trustIds ->
        fun ?nextToken ->
          fun ?limit -> fun () -> { directoryId; trustIds; nextToken; limit }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("TrustIds", (Option.map x.trustIds ~f:TrustIds.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let trustIds =
        (Option.map ~f:TrustIds.of_xml) (Xml.child xml_arg0 "TrustIds") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?limit ?nextToken ?trustIds ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" Limit.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let trustIds = field_map json__ "TrustIds" TrustIds.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?limit ?nextToken ?trustIds ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the trust relationships for a particular Managed Microsoft AD directory. If no input parameters are provided, such as directory ID or trust ID, this request describes all the trust relationships."]
module DescribeSnapshotsResult =
  struct
    type nonrec t =
      {
      snapshots: Snapshots.t option
        [@ocaml.doc
          "The list of Snapshot objects that were retrieved. It is possible that this list contains less than the number of items specified in the Limit member of the request. This occurs if there are less than the requested number of items left to retrieve, or if the limitations of the operation have been exceeded."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If not null, more results are available. Pass this value in the NextToken member of a subsequent call to DescribeSnapshots."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?snapshots =
      fun ?nextToken -> fun () -> { snapshots; nextToken }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("Snapshots", (Option.map x.snapshots ~f:Snapshots.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let snapshots =
        (Option.map ~f:Snapshots.of_xml) (Xml.child xml_arg0 "Snapshots") in
      make ?nextToken ?snapshots ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let snapshots = field_map json__ "Snapshots" Snapshots.of_json in
      make ?nextToken ?snapshots ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the results of the DescribeSnapshots operation."]
module DescribeSnapshotsRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The identifier of the directory for which to retrieve snapshot information."];
      snapshotIds: SnapshotIds.t option
        [@ocaml.doc
          "A list of identifiers of the snapshots to obtain the information for. If this member is null or empty, all snapshots are returned using the Limit and NextToken members."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The DescribeSnapshotsResult.NextToken value from a previous call to DescribeSnapshots. Pass null if this is the first call."];
      limit: Limit.t option
        [@ocaml.doc "The maximum number of objects to return."]}
    let make ?directoryId =
      fun ?snapshotIds ->
        fun ?nextToken ->
          fun ?limit ->
            fun () -> { directoryId; snapshotIds; nextToken; limit }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("SnapshotIds", (Option.map x.snapshotIds ~f:SnapshotIds.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let snapshotIds =
        (Option.map ~f:SnapshotIds.of_xml) (Xml.child xml_arg0 "SnapshotIds") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?limit ?nextToken ?snapshotIds ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" Limit.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let snapshotIds = field_map json__ "SnapshotIds" SnapshotIds.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?limit ?nextToken ?snapshotIds ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the DescribeSnapshots operation."]
module DescribeSharedDirectoriesResult =
  struct
    type nonrec t =
      {
      sharedDirectories: SharedDirectories.t option
        [@ocaml.doc "A list of all shared directories in your account."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If not null, token that indicates that more results are available. Pass this value for the NextToken parameter in a subsequent call to DescribeSharedDirectories to retrieve the next set of items."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sharedDirectories =
      fun ?nextToken -> fun () -> { sharedDirectories; nextToken }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("SharedDirectories",
           (Option.map x.sharedDirectories ~f:SharedDirectories.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let sharedDirectories =
        (Option.map ~f:SharedDirectories.of_xml)
          (Xml.child xml_arg0 "SharedDirectories") in
      make ?nextToken ?sharedDirectories ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let sharedDirectories =
        field_map json__ "SharedDirectories" SharedDirectories.of_json in
      make ?nextToken ?sharedDirectories ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the shared directories in your account."]
module DescribeSharedDirectoriesRequest =
  struct
    type nonrec t =
      {
      ownerDirectoryId: DirectoryId.t
        [@ocaml.doc
          "Returns the identifier of the directory in the directory owner account."];
      sharedDirectoryIds: DirectoryIds.t option
        [@ocaml.doc
          "A list of identifiers of all shared directories in your account."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The DescribeSharedDirectoriesResult.NextToken value from a previous call to DescribeSharedDirectories. Pass null if this is the first call."];
      limit: Limit.t option
        [@ocaml.doc
          "The number of shared directories to return in the response object."]}
    let context_ = "DescribeSharedDirectoriesRequest"
    let make ?sharedDirectoryIds =
      fun ?nextToken ->
        fun ?limit ->
          fun ~ownerDirectoryId ->
            fun () ->
              { sharedDirectoryIds; nextToken; limit; ownerDirectoryId }
    let to_value x =
      structure_to_value
        [("OwnerDirectoryId",
           (Some (DirectoryId.to_value x.ownerDirectoryId)));
        ("SharedDirectoryIds",
          (Option.map x.sharedDirectoryIds ~f:DirectoryIds.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let sharedDirectoryIds =
        (Option.map ~f:DirectoryIds.of_xml)
          (Xml.child xml_arg0 "SharedDirectoryIds") in
      let ownerDirectoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OwnerDirectoryId") in
      make ?limit ?nextToken ?sharedDirectoryIds ~ownerDirectoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" Limit.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let sharedDirectoryIds =
        field_map json__ "SharedDirectoryIds" DirectoryIds.of_json in
      let ownerDirectoryId =
        field_map_exn json__ "OwnerDirectoryId" DirectoryId.of_json in
      make ?limit ?nextToken ?sharedDirectoryIds ~ownerDirectoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the shared directories in your account."]
module DescribeSettingsResult =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc "The identifier of the directory."];
      settingEntries: SettingEntries.t option
        [@ocaml.doc
          "The list of SettingEntry objects that were retrieved. It is possible that this list contains less than the number of items specified in the Limit member of the request. This occurs if there are less than the requested number of items left to retrieve, or if the limitations of the operation have been exceeded."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If not null, token that indicates that more results are available. Pass this value for the NextToken parameter in a subsequent call to DescribeSettings to retrieve the next set of items."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryId =
      fun ?settingEntries ->
        fun ?nextToken ->
          fun () -> { directoryId; settingEntries; nextToken }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("SettingEntries",
          (Option.map x.settingEntries ~f:SettingEntries.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let settingEntries =
        (Option.map ~f:SettingEntries.of_xml)
          (Xml.child xml_arg0 "SettingEntries") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?nextToken ?settingEntries ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let settingEntries =
        field_map json__ "SettingEntries" SettingEntries.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?nextToken ?settingEntries ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the configurable settings for the specified directory."]
module DescribeSettingsRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for which to retrieve information."];
      status: DirectoryConfigurationStatus.t option
        [@ocaml.doc
          "The status of the directory settings for which to retrieve information."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The DescribeSettingsResult.NextToken value from a previous call to DescribeSettings. Pass null if this is the first call."]}
    let context_ = "DescribeSettingsRequest"
    let make ?status =
      fun ?nextToken ->
        fun ~directoryId -> fun () -> { status; nextToken; directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("Status",
          (Option.map x.status ~f:DirectoryConfigurationStatus.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let status =
        (Option.map ~f:DirectoryConfigurationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?nextToken ?status ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let status =
        field_map json__ "Status" DirectoryConfigurationStatus.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?nextToken ?status ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the configurable settings for the specified directory."]
module DescribeRegionsResult =
  struct
    type nonrec t =
      {
      regionsDescription: RegionsDescription.t option
        [@ocaml.doc
          "List of Region information related to the directory for each replicated Region."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If not null, more results are available. Pass this value for the NextToken parameter in a subsequent call to DescribeRegions to retrieve the next set of items."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?regionsDescription =
      fun ?nextToken -> fun () -> { regionsDescription; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("RegionsDescription",
           (Option.map x.regionsDescription ~f:RegionsDescription.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let regionsDescription =
        (Option.map ~f:RegionsDescription.of_xml)
          (Xml.child xml_arg0 "RegionsDescription") in
      make ?nextToken ?regionsDescription ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let regionsDescription =
        field_map json__ "RegionsDescription" RegionsDescription.of_json in
      make ?nextToken ?regionsDescription ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information about the Regions that are configured for multi-Region replication."]
module DescribeRegionsRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory."];
      regionName: RegionName.t option
        [@ocaml.doc "The name of the Region. For example, us-east-1."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The DescribeRegionsResult.NextToken value from a previous call to DescribeRegions. Pass null if this is the first call."]}
    let context_ = "DescribeRegionsRequest"
    let make ?regionName =
      fun ?nextToken ->
        fun ~directoryId -> fun () -> { regionName; nextToken; directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("RegionName", (Option.map x.regionName ~f:RegionName.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let regionName =
        (Option.map ~f:RegionName.of_xml) (Xml.child xml_arg0 "RegionName") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?nextToken ?regionName ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let regionName = field_map json__ "RegionName" RegionName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?nextToken ?regionName ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information about the Regions that are configured for multi-Region replication."]
module DescribeLDAPSSettingsResult =
  struct
    type nonrec t =
      {
      lDAPSSettingsInfo: LDAPSSettingsInfo.t option
        [@ocaml.doc
          "Information about LDAP security for the specified directory, including status of enablement, state last updated date time, and the reason for the state."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The next token used to retrieve the LDAPS settings if the number of setting types exceeds page limit and there is another page."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?lDAPSSettingsInfo =
      fun ?nextToken -> fun () -> { lDAPSSettingsInfo; nextToken }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("LDAPSSettingsInfo",
           (Option.map x.lDAPSSettingsInfo ~f:LDAPSSettingsInfo.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let lDAPSSettingsInfo =
        (Option.map ~f:LDAPSSettingsInfo.of_xml)
          (Xml.child xml_arg0 "LDAPSSettingsInfo") in
      make ?nextToken ?lDAPSSettingsInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let lDAPSSettingsInfo =
        field_map json__ "LDAPSSettingsInfo" LDAPSSettingsInfo.of_json in
      make ?nextToken ?lDAPSSettingsInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the status of LDAP security for the specified directory."]
module DescribeLDAPSSettingsRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory."];
      type_: LDAPSType.t option
        [@ocaml.doc
          "The type of LDAP security to enable. Currently only the value Client is supported."];
      nextToken: NextToken.t option
        [@ocaml.doc "The type of next token used for pagination."];
      limit: PageLimit.t option
        [@ocaml.doc
          "Specifies the number of items that should be displayed on one page."]}
    let context_ = "DescribeLDAPSSettingsRequest"
    let make ?type_ =
      fun ?nextToken ->
        fun ?limit ->
          fun ~directoryId ->
            fun () -> { type_; nextToken; limit; directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("Type", (Option.map x.type_ ~f:LDAPSType.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:PageLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:PageLimit.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let type_ =
        (Option.map ~f:LDAPSType.of_xml) (Xml.child xml_arg0 "Type") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?limit ?nextToken ?type_ ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" PageLimit.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let type_ = field_map json__ "Type" LDAPSType.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?limit ?nextToken ?type_ ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the status of LDAP security for the specified directory."]
module DescribeHybridADUpdateResult =
  struct
    type nonrec t =
      {
      updateActivities: HybridUpdateActivities.t option
        [@ocaml.doc
          "Information about update activities for the hybrid directory, organized by update type."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If not null, more results are available. Pass this value for the NextToken parameter in a subsequent request to retrieve the next set of items."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updateActivities =
      fun ?nextToken -> fun () -> { updateActivities; nextToken }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("UpdateActivities",
           (Option.map x.updateActivities ~f:HybridUpdateActivities.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let updateActivities =
        (Option.map ~f:HybridUpdateActivities.of_xml)
          (Xml.child xml_arg0 "UpdateActivities") in
      make ?nextToken ?updateActivities ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let updateActivities =
        field_map json__ "UpdateActivities" HybridUpdateActivities.of_json in
      make ?nextToken ?updateActivities ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about update activities for a hybrid directory. This operation provides details about configuration changes, administrator account updates, and self-managed instance settings (IDs and DNS IPs)."]
module DescribeHybridADUpdateRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the hybrid directory for which to retrieve update information."];
      updateType: HybridUpdateType.t option
        [@ocaml.doc
          "The type of update activities to retrieve. Valid values include SelfManagedInstances and HybridAdministratorAccount."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The pagination token from a previous request to DescribeHybridADUpdate. Pass null if this is the first request."]}
    let context_ = "DescribeHybridADUpdateRequest"
    let make ?updateType =
      fun ?nextToken ->
        fun ~directoryId -> fun () -> { updateType; nextToken; directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("UpdateType",
          (Option.map x.updateType ~f:HybridUpdateType.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let updateType =
        (Option.map ~f:HybridUpdateType.of_xml)
          (Xml.child xml_arg0 "UpdateType") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?nextToken ?updateType ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let updateType = field_map json__ "UpdateType" HybridUpdateType.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?nextToken ?updateType ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about update activities for a hybrid directory. This operation provides details about configuration changes, administrator account updates, and self-managed instance settings (IDs and DNS IPs)."]
module DescribeEventTopicsResult =
  struct
    type nonrec t =
      {
      eventTopics: EventTopics.t option
        [@ocaml.doc
          "A list of Amazon SNS topic names that receive status messages from the specified Directory ID."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?eventTopics = fun () -> { eventTopics }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("EventTopics", (Option.map x.eventTopics ~f:EventTopics.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventTopics =
        (Option.map ~f:EventTopics.of_xml) (Xml.child xml_arg0 "EventTopics") in
      make ?eventTopics ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventTopics = field_map json__ "EventTopics" EventTopics.of_json in
      make ?eventTopics ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result of a DescribeEventTopic request."]
module DescribeEventTopicsRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The Directory ID for which to get the list of associated Amazon SNS topics. If this member is null, associations for all Directory IDs are returned."];
      topicNames: TopicNames.t option
        [@ocaml.doc
          "A list of Amazon SNS topic names for which to obtain the information. If this member is null, all associations for the specified Directory ID are returned. An empty list results in an InvalidParameterException being thrown."]}
    let make ?directoryId =
      fun ?topicNames -> fun () -> { directoryId; topicNames }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("TopicNames", (Option.map x.topicNames ~f:TopicNames.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let topicNames =
        (Option.map ~f:TopicNames.of_xml) (Xml.child xml_arg0 "TopicNames") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?topicNames ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let topicNames = field_map json__ "TopicNames" TopicNames.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?topicNames ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes event topics."]
module DescribeDomainControllersResult =
  struct
    type nonrec t =
      {
      domainControllers: DomainControllers.t option
        [@ocaml.doc
          "List of the DomainController objects that were retrieved."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If not null, more results are available. Pass this value for the NextToken parameter in a subsequent call to DescribeDomainControllers retrieve the next set of items."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainControllers =
      fun ?nextToken -> fun () -> { domainControllers; nextToken }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("DomainControllers",
           (Option.map x.domainControllers ~f:DomainControllers.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let domainControllers =
        (Option.map ~f:DomainControllers.of_xml)
          (Xml.child xml_arg0 "DomainControllers") in
      make ?nextToken ?domainControllers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let domainControllers =
        field_map json__ "DomainControllers" DomainControllers.of_json in
      make ?nextToken ?domainControllers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information about any domain controllers in your directory."]
module DescribeDomainControllersRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "Identifier of the directory for which to retrieve the domain controller information."];
      domainControllerIds: DomainControllerIds.t option
        [@ocaml.doc
          "A list of identifiers for the domain controllers whose information will be provided."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The DescribeDomainControllers.NextToken value from a previous call to DescribeDomainControllers. Pass null if this is the first call."];
      limit: Limit.t option
        [@ocaml.doc "The maximum number of items to return."]}
    let context_ = "DescribeDomainControllersRequest"
    let make ?domainControllerIds =
      fun ?nextToken ->
        fun ?limit ->
          fun ~directoryId ->
            fun () -> { domainControllerIds; nextToken; limit; directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("DomainControllerIds",
          (Option.map x.domainControllerIds ~f:DomainControllerIds.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let domainControllerIds =
        (Option.map ~f:DomainControllerIds.of_xml)
          (Xml.child xml_arg0 "DomainControllerIds") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?limit ?nextToken ?domainControllerIds ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" Limit.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let domainControllerIds =
        field_map json__ "DomainControllerIds" DomainControllerIds.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?limit ?nextToken ?domainControllerIds ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information about any domain controllers in your directory."]
module DescribeDirectoryDataAccessResult =
  struct
    type nonrec t =
      {
      dataAccessStatus: DataAccessStatus.t option
        [@ocaml.doc
          "The current status of data access through the Directory Service Data API."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dataAccessStatus = fun () -> { dataAccessStatus }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("DataAccessStatus",
           (Option.map x.dataAccessStatus ~f:DataAccessStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataAccessStatus =
        (Option.map ~f:DataAccessStatus.of_xml)
          (Xml.child xml_arg0 "DataAccessStatus") in
      make ?dataAccessStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataAccessStatus =
        field_map json__ "DataAccessStatus" DataAccessStatus.of_json in
      make ?dataAccessStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Obtains status of directory data access enablement through the Directory Service Data API for the specified directory."]
module DescribeDirectoryDataAccessRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t [@ocaml.doc "The directory identifier."]}
    let context_ = "DescribeDirectoryDataAccessRequest"
    let make ~directoryId = fun () -> { directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Obtains status of directory data access enablement through the Directory Service Data API for the specified directory."]
module DescribeDirectoriesResult =
  struct
    type nonrec t =
      {
      directoryDescriptions: DirectoryDescriptions.t option
        [@ocaml.doc
          "The list of available DirectoryDescription objects that were retrieved. It is possible that this list contains less than the number of items specified in the Limit member of the request. This occurs if there are less than the requested number of items left to retrieve, or if the limitations of the operation have been exceeded."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If not null, more results are available. Pass this value for the NextToken parameter in a subsequent call to DescribeDirectories to retrieve the next set of items."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryDescriptions =
      fun ?nextToken -> fun () -> { directoryDescriptions; nextToken }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("DirectoryDescriptions",
           (Option.map x.directoryDescriptions
              ~f:DirectoryDescriptions.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let directoryDescriptions =
        (Option.map ~f:DirectoryDescriptions.of_xml)
          (Xml.child xml_arg0 "DirectoryDescriptions") in
      make ?nextToken ?directoryDescriptions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let directoryDescriptions =
        field_map json__ "DirectoryDescriptions"
          DirectoryDescriptions.of_json in
      make ?nextToken ?directoryDescriptions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the results of the DescribeDirectories operation."]
module DescribeDirectoriesRequest =
  struct
    type nonrec t =
      {
      directoryIds: DirectoryIds.t option
        [@ocaml.doc
          "A list of identifiers of the directories for which to obtain the information. If this member is null, all directories that belong to the current account are returned. An empty list results in an InvalidParameterException being thrown."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The DescribeDirectoriesResult.NextToken value from a previous call to DescribeDirectories. Pass null if this is the first call."];
      limit: Limit.t option
        [@ocaml.doc
          "The maximum number of items to return. If this value is zero, the maximum number of items is specified by the limitations of the operation."]}
    let make ?directoryIds =
      fun ?nextToken ->
        fun ?limit -> fun () -> { directoryIds; nextToken; limit }
    let to_value x =
      structure_to_value
        [("DirectoryIds",
           (Option.map x.directoryIds ~f:DirectoryIds.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:Limit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit = (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let directoryIds =
        (Option.map ~f:DirectoryIds.of_xml)
          (Xml.child xml_arg0 "DirectoryIds") in
      make ?limit ?nextToken ?directoryIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" Limit.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let directoryIds = field_map json__ "DirectoryIds" DirectoryIds.of_json in
      make ?limit ?nextToken ?directoryIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the inputs for the DescribeDirectories operation."]
module DescribeConditionalForwardersResult =
  struct
    type nonrec t =
      {
      conditionalForwarders: ConditionalForwarders.t option
        [@ocaml.doc
          "The list of conditional forwarders that have been created."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?conditionalForwarders = fun () -> { conditionalForwarders }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("ConditionalForwarders",
           (Option.map x.conditionalForwarders
              ~f:ConditionalForwarders.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conditionalForwarders =
        (Option.map ~f:ConditionalForwarders.of_xml)
          (Xml.child xml_arg0 "ConditionalForwarders") in
      make ?conditionalForwarders ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conditionalForwarders =
        field_map json__ "ConditionalForwarders"
          ConditionalForwarders.of_json in
      make ?conditionalForwarders ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result of a DescribeConditionalForwarder request."]
module DescribeConditionalForwardersRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The directory ID for which to get the list of associated conditional forwarders."];
      remoteDomainNames: RemoteDomainNames.t option
        [@ocaml.doc
          "The fully qualified domain names (FQDN) of the remote domains for which to get the list of associated conditional forwarders. If this member is null, all conditional forwarders are returned."]}
    let context_ = "DescribeConditionalForwardersRequest"
    let make ?remoteDomainNames =
      fun ~directoryId -> fun () -> { remoteDomainNames; directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("RemoteDomainNames",
          (Option.map x.remoteDomainNames ~f:RemoteDomainNames.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let remoteDomainNames =
        (Option.map ~f:RemoteDomainNames.of_xml)
          (Xml.child xml_arg0 "RemoteDomainNames") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?remoteDomainNames ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let remoteDomainNames =
        field_map json__ "RemoteDomainNames" RemoteDomainNames.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?remoteDomainNames ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a conditional forwarder."]
module DescribeClientAuthenticationSettingsResult =
  struct
    type nonrec t =
      {
      clientAuthenticationSettingsInfo:
        ClientAuthenticationSettingsInfo.t option
        [@ocaml.doc
          "Information about the type of client authentication for the specified directory. The following information is retrieved: The date and time when the status of the client authentication type was last updated, whether the client authentication type is enabled or disabled, and the type of client authentication."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The next token used to retrieve the client authentication settings if the number of setting types exceeds page limit and there is another page."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?clientAuthenticationSettingsInfo =
      fun ?nextToken ->
        fun () -> { clientAuthenticationSettingsInfo; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("ClientAuthenticationSettingsInfo",
           (Option.map x.clientAuthenticationSettingsInfo
              ~f:ClientAuthenticationSettingsInfo.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let clientAuthenticationSettingsInfo =
        (Option.map ~f:ClientAuthenticationSettingsInfo.of_xml)
          (Xml.child xml_arg0 "ClientAuthenticationSettingsInfo") in
      make ?nextToken ?clientAuthenticationSettingsInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let clientAuthenticationSettingsInfo =
        field_map json__ "ClientAuthenticationSettingsInfo"
          ClientAuthenticationSettingsInfo.of_json in
      make ?nextToken ?clientAuthenticationSettingsInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the type of client authentication for the specified directory, if the type is specified. If no type is specified, information about all client authentication types that are supported for the specified directory is retrieved. Currently, only SmartCard is supported."]
module DescribeClientAuthenticationSettingsRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for which to retrieve information."];
      type_: ClientAuthenticationType.t option
        [@ocaml.doc
          "The type of client authentication for which to retrieve information. If no type is specified, a list of all client authentication types that are supported for the specified directory is retrieved."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The DescribeClientAuthenticationSettingsResult.NextToken value from a previous call to DescribeClientAuthenticationSettings. Pass null if this is the first call."];
      limit: PageLimit.t option
        [@ocaml.doc
          "The maximum number of items to return. If this value is zero, the maximum number of items is specified by the limitations of the operation."]}
    let context_ = "DescribeClientAuthenticationSettingsRequest"
    let make ?type_ =
      fun ?nextToken ->
        fun ?limit ->
          fun ~directoryId ->
            fun () -> { type_; nextToken; limit; directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("Type", (Option.map x.type_ ~f:ClientAuthenticationType.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Limit", (Option.map x.limit ~f:PageLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:PageLimit.of_xml) (Xml.child xml_arg0 "Limit") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let type_ =
        (Option.map ~f:ClientAuthenticationType.of_xml)
          (Xml.child xml_arg0 "Type") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?limit ?nextToken ?type_ ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" PageLimit.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let type_ = field_map json__ "Type" ClientAuthenticationType.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?limit ?nextToken ?type_ ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the type of client authentication for the specified directory, if the type is specified. If no type is specified, information about all client authentication types that are supported for the specified directory is retrieved. Currently, only SmartCard is supported."]
module DescribeCertificateResult =
  struct
    type nonrec t =
      {
      certificate: Certificate.t option
        [@ocaml.doc
          "Information about the certificate, including registered date time, certificate state, the reason for the state, expiration date time, and certificate common name."]}
    type nonrec error =
      [
        `CertificateDoesNotExistException of
          CertificateDoesNotExistException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?certificate = fun () -> { certificate }
    let error_of_json name json =
      match name with
      | "CertificateDoesNotExistException" ->
          `CertificateDoesNotExistException
            (CertificateDoesNotExistException.of_json json)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CertificateDoesNotExistException" ->
          `CertificateDoesNotExistException
            (CertificateDoesNotExistException.of_xml xml)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CertificateDoesNotExistException e ->
          `Assoc
            [("error", (`String "CertificateDoesNotExistException"));
            ("details", (CertificateDoesNotExistException.to_json e))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("Certificate", (Option.map x.certificate ~f:Certificate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificate =
        (Option.map ~f:Certificate.of_xml) (Xml.child xml_arg0 "Certificate") in
      make ?certificate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificate = field_map json__ "Certificate" Certificate.of_json in
      make ?certificate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays information about the certificate registered for secure LDAP or client certificate authentication."]
module DescribeCertificateRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory."];
      certificateId: CertificateId.t
        [@ocaml.doc "The identifier of the certificate."]}
    let context_ = "DescribeCertificateRequest"
    let make ~directoryId =
      fun ~certificateId -> fun () -> { directoryId; certificateId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("CertificateId", (Some (CertificateId.to_value x.certificateId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateId =
        CertificateId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CertificateId") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~certificateId ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateId =
        field_map_exn json__ "CertificateId" CertificateId.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~certificateId ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Displays information about the certificate registered for secure LDAP or client certificate authentication."]
module DescribeCAEnrollmentPolicyResult =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The identifier of the directory associated with this CA enrollment policy."];
      pcaConnectorArn: PcaConnectorArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Web Services Private Certificate Authority (PCA) connector that is configured for automatic certificate enrollment in this directory."];
      caEnrollmentPolicyStatus: CaEnrollmentPolicyStatus.t option
        [@ocaml.doc
          "The current status of the CA enrollment policy. This indicates if automatic certificate enrollment is currently active, inactive, or in a transitional state. Valid values: IN_PROGRESS - The policy is being activated T SUCCESS - The policy is active and automatic certificate enrollment is operational FAILED - The policy activation or deactivation failed DISABLING - The policy is being deactivated DISABLED - The policy is inactive and automatic certificate enrollment is not available IMPAIRED - Network connectivity is impaired."];
      lastUpdatedDateTime: LastUpdatedDateTime.t option
        [@ocaml.doc
          "The date and time when the CA enrollment policy was last modified or updated."];
      caEnrollmentPolicyStatusReason: CaEnrollmentPolicyStatusReason.t option
        [@ocaml.doc
          "Additional information explaining the current status of the CA enrollment policy, particularly useful when the policy is in an error or transitional state."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryId =
      fun ?pcaConnectorArn ->
        fun ?caEnrollmentPolicyStatus ->
          fun ?lastUpdatedDateTime ->
            fun ?caEnrollmentPolicyStatusReason ->
              fun () ->
                {
                  directoryId;
                  pcaConnectorArn;
                  caEnrollmentPolicyStatus;
                  lastUpdatedDateTime;
                  caEnrollmentPolicyStatusReason
                }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("PcaConnectorArn",
          (Option.map x.pcaConnectorArn ~f:PcaConnectorArn.to_value));
        ("CaEnrollmentPolicyStatus",
          (Option.map x.caEnrollmentPolicyStatus
             ~f:CaEnrollmentPolicyStatus.to_value));
        ("LastUpdatedDateTime",
          (Option.map x.lastUpdatedDateTime ~f:LastUpdatedDateTime.to_value));
        ("CaEnrollmentPolicyStatusReason",
          (Option.map x.caEnrollmentPolicyStatusReason
             ~f:CaEnrollmentPolicyStatusReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caEnrollmentPolicyStatusReason =
        (Option.map ~f:CaEnrollmentPolicyStatusReason.of_xml)
          (Xml.child xml_arg0 "CaEnrollmentPolicyStatusReason") in
      let lastUpdatedDateTime =
        (Option.map ~f:LastUpdatedDateTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedDateTime") in
      let caEnrollmentPolicyStatus =
        (Option.map ~f:CaEnrollmentPolicyStatus.of_xml)
          (Xml.child xml_arg0 "CaEnrollmentPolicyStatus") in
      let pcaConnectorArn =
        (Option.map ~f:PcaConnectorArn.of_xml)
          (Xml.child xml_arg0 "PcaConnectorArn") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?caEnrollmentPolicyStatusReason ?lastUpdatedDateTime
        ?caEnrollmentPolicyStatus ?pcaConnectorArn ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caEnrollmentPolicyStatusReason =
        field_map json__ "CaEnrollmentPolicyStatusReason"
          CaEnrollmentPolicyStatusReason.of_json in
      let lastUpdatedDateTime =
        field_map json__ "LastUpdatedDateTime" LastUpdatedDateTime.of_json in
      let caEnrollmentPolicyStatus =
        field_map json__ "CaEnrollmentPolicyStatus"
          CaEnrollmentPolicyStatus.of_json in
      let pcaConnectorArn =
        field_map json__ "PcaConnectorArn" PcaConnectorArn.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?caEnrollmentPolicyStatusReason ?lastUpdatedDateTime
        ?caEnrollmentPolicyStatus ?pcaConnectorArn ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the results of the DescribeCAEnrollmentPolicy operation."]
module DescribeCAEnrollmentPolicyRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for which to retrieve the CA enrollment policy information."]}
    let context_ = "DescribeCAEnrollmentPolicyRequest"
    let make ~directoryId = fun () -> { directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the inputs for the DescribeCAEnrollmentPolicy operation."]
module DescribeADAssessmentResult =
  struct
    type nonrec t =
      {
      assessment: Assessment.t option
        [@ocaml.doc
          "Detailed information about the self-managed instance settings (IDs and DNS IPs)."];
      assessmentReports: AssessmentReports.t option
        [@ocaml.doc
          "A list of assessment reports containing validation results for each domain controller and test category. Each report includes specific validation details and outcomes."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessment =
      fun ?assessmentReports -> fun () -> { assessment; assessmentReports }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Assessment", (Option.map x.assessment ~f:Assessment.to_value));
        ("AssessmentReports",
          (Option.map x.assessmentReports ~f:AssessmentReports.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentReports =
        (Option.map ~f:AssessmentReports.of_xml)
          (Xml.child xml_arg0 "AssessmentReports") in
      let assessment =
        (Option.map ~f:Assessment.of_xml) (Xml.child xml_arg0 "Assessment") in
      make ?assessmentReports ?assessment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentReports =
        field_map json__ "AssessmentReports" AssessmentReports.of_json in
      let assessment = field_map json__ "Assessment" Assessment.of_json in
      make ?assessmentReports ?assessment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves detailed information about a directory assessment, including its current status, validation results, and configuration details. Use this operation to monitor assessment progress and review results."]
module DescribeADAssessmentRequest =
  struct
    type nonrec t =
      {
      assessmentId: AssessmentId.t
        [@ocaml.doc
          "The identifier of the directory assessment to describe."]}
    let context_ = "DescribeADAssessmentRequest"
    let make ~assessmentId = fun () -> { assessmentId }
    let to_value x =
      structure_to_value
        [("AssessmentId", (Some (AssessmentId.to_value x.assessmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentId =
        AssessmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AssessmentId") in
      make ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentId =
        field_map_exn json__ "AssessmentId" AssessmentId.of_json in
      make ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves detailed information about a directory assessment, including its current status, validation results, and configuration details. Use this operation to monitor assessment progress and review results."]
module DeregisterEventTopicResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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 "The result of a DeregisterEventTopic request."]
module DeregisterEventTopicRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The Directory ID to remove as a publisher. This directory will no longer send messages to the specified Amazon SNS topic."];
      topicName: TopicName.t
        [@ocaml.doc
          "The name of the Amazon SNS topic from which to remove the directory as a publisher."]}
    let context_ = "DeregisterEventTopicRequest"
    let make ~directoryId =
      fun ~topicName -> fun () -> { directoryId; topicName }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("TopicName", (Some (TopicName.to_value x.topicName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let topicName =
        TopicName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TopicName") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~topicName ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let topicName = field_map_exn json__ "TopicName" TopicName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~topicName ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified directory as a publisher to the specified Amazon SNS topic."]
module DeregisterCertificateResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `CertificateDoesNotExistException of
          CertificateDoesNotExistException.t 
      | `CertificateInUseException of CertificateInUseException.t 
      | `ClientException of ClientException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "CertificateDoesNotExistException" ->
          `CertificateDoesNotExistException
            (CertificateDoesNotExistException.of_json json)
      | "CertificateInUseException" ->
          `CertificateInUseException (CertificateInUseException.of_json json)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CertificateDoesNotExistException" ->
          `CertificateDoesNotExistException
            (CertificateDoesNotExistException.of_xml xml)
      | "CertificateInUseException" ->
          `CertificateInUseException (CertificateInUseException.of_xml xml)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CertificateDoesNotExistException e ->
          `Assoc
            [("error", (`String "CertificateDoesNotExistException"));
            ("details", (CertificateDoesNotExistException.to_json e))]
      | `CertificateInUseException e ->
          `Assoc
            [("error", (`String "CertificateInUseException"));
            ("details", (CertificateInUseException.to_json e))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes from the system the certificate that was registered for secure LDAP or client certificate authentication."]
module DeregisterCertificateRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory."];
      certificateId: CertificateId.t
        [@ocaml.doc "The identifier of the certificate."]}
    let context_ = "DeregisterCertificateRequest"
    let make ~directoryId =
      fun ~certificateId -> fun () -> { directoryId; certificateId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("CertificateId", (Some (CertificateId.to_value x.certificateId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateId =
        CertificateId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CertificateId") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~certificateId ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateId =
        field_map_exn json__ "CertificateId" CertificateId.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~certificateId ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes from the system the certificate that was registered for secure LDAP or client certificate authentication."]
module DeleteTrustResult =
  struct
    type nonrec t =
      {
      trustId: TrustId.t option
        [@ocaml.doc
          "The Trust ID of the trust relationship that was deleted."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?trustId = fun () -> { trustId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("TrustId", (Option.map x.trustId ~f:TrustId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let trustId =
        (Option.map ~f:TrustId.of_xml) (Xml.child xml_arg0 "TrustId") in
      make ?trustId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let trustId = field_map json__ "TrustId" TrustId.of_json in
      make ?trustId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result of a DeleteTrust request."]
module DeleteTrustRequest =
  struct
    type nonrec t =
      {
      trustId: TrustId.t
        [@ocaml.doc "The Trust ID of the trust relationship to be deleted."];
      deleteAssociatedConditionalForwarder:
        DeleteAssociatedConditionalForwarder.t option
        [@ocaml.doc
          "Delete a conditional forwarder as part of a DeleteTrustRequest."]}
    let context_ = "DeleteTrustRequest"
    let make ?deleteAssociatedConditionalForwarder =
      fun ~trustId ->
        fun () -> { deleteAssociatedConditionalForwarder; trustId }
    let to_value x =
      structure_to_value
        [("TrustId", (Some (TrustId.to_value x.trustId)));
        ("DeleteAssociatedConditionalForwarder",
          (Option.map x.deleteAssociatedConditionalForwarder
             ~f:DeleteAssociatedConditionalForwarder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deleteAssociatedConditionalForwarder =
        (Option.map ~f:DeleteAssociatedConditionalForwarder.of_xml)
          (Xml.child xml_arg0 "DeleteAssociatedConditionalForwarder") in
      let trustId =
        TrustId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TrustId") in
      make ?deleteAssociatedConditionalForwarder ~trustId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deleteAssociatedConditionalForwarder =
        field_map json__ "DeleteAssociatedConditionalForwarder"
          DeleteAssociatedConditionalForwarder.of_json in
      let trustId = field_map_exn json__ "TrustId" TrustId.of_json in
      make ?deleteAssociatedConditionalForwarder ~trustId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the local side of an existing trust relationship between the Managed Microsoft AD directory and the external domain."]
module DeleteSnapshotResult =
  struct
    type nonrec t =
      {
      snapshotId: SnapshotId.t option
        [@ocaml.doc
          "The identifier of the directory snapshot that was deleted."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?snapshotId = fun () -> { snapshotId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("SnapshotId", (Option.map x.snapshotId ~f:SnapshotId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snapshotId =
        (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "SnapshotId") in
      make ?snapshotId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snapshotId = field_map json__ "SnapshotId" SnapshotId.of_json in
      make ?snapshotId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the results of the DeleteSnapshot operation."]
module DeleteSnapshotRequest =
  struct
    type nonrec t =
      {
      snapshotId: SnapshotId.t
        [@ocaml.doc
          "The identifier of the directory snapshot to be deleted."]}
    let context_ = "DeleteSnapshotRequest"
    let make ~snapshotId = fun () -> { snapshotId }
    let to_value x =
      structure_to_value
        [("SnapshotId", (Some (SnapshotId.to_value x.snapshotId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snapshotId =
        SnapshotId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SnapshotId") in
      make ~snapshotId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snapshotId = field_map_exn json__ "SnapshotId" SnapshotId.of_json in
      make ~snapshotId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the DeleteSnapshot operation."]
module DeleteLogSubscriptionResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified log subscription."]
module DeleteLogSubscriptionRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "Identifier of the directory whose log subscription you want to delete."]}
    let context_ = "DeleteLogSubscriptionRequest"
    let make ~directoryId = fun () -> { directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified log subscription."]
module DeleteDirectoryResult =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc "The directory identifier."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryId = fun () -> { directoryId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the results of the DeleteDirectory operation."]
module DeleteDirectoryRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc "The identifier of the directory to delete."]}
    let context_ = "DeleteDirectoryRequest"
    let make ~directoryId = fun () -> { directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the DeleteDirectory operation."]
module DeleteConditionalForwarderResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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 "The result of a DeleteConditionalForwarder request."]
module DeleteConditionalForwarderRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The directory ID for which you are deleting the conditional forwarder."];
      remoteDomainName: RemoteDomainName.t
        [@ocaml.doc
          "The fully qualified domain name (FQDN) of the remote domain with which you are deleting the conditional forwarder."]}
    let context_ = "DeleteConditionalForwarderRequest"
    let make ~directoryId =
      fun ~remoteDomainName -> fun () -> { directoryId; remoteDomainName }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("RemoteDomainName",
          (Some (RemoteDomainName.to_value x.remoteDomainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let remoteDomainName =
        RemoteDomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RemoteDomainName") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~remoteDomainName ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let remoteDomainName =
        field_map_exn json__ "RemoteDomainName" RemoteDomainName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~remoteDomainName ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a conditional forwarder."]
module DeleteADAssessmentResult =
  struct
    type nonrec t =
      {
      assessmentId: AssessmentId.t option
        [@ocaml.doc
          "The unique identifier of the deleted directory assessment."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?assessmentId = fun () -> { assessmentId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("AssessmentId",
           (Option.map x.assessmentId ~f:AssessmentId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentId =
        (Option.map ~f:AssessmentId.of_xml)
          (Xml.child xml_arg0 "AssessmentId") in
      make ?assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentId = field_map json__ "AssessmentId" AssessmentId.of_json in
      make ?assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a directory assessment and all associated data. This operation permanently removes the assessment results, validation reports, and configuration information. You cannot delete system-initiated assessments. You can delete customer-created assessments even if they are in progress."]
module DeleteADAssessmentRequest =
  struct
    type nonrec t =
      {
      assessmentId: AssessmentId.t
        [@ocaml.doc
          "The unique identifier of the directory assessment to delete."]}
    let context_ = "DeleteADAssessmentRequest"
    let make ~assessmentId = fun () -> { assessmentId }
    let to_value x =
      structure_to_value
        [("AssessmentId", (Some (AssessmentId.to_value x.assessmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let assessmentId =
        AssessmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AssessmentId") in
      make ~assessmentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let assessmentId =
        field_map_exn json__ "AssessmentId" AssessmentId.of_json in
      make ~assessmentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a directory assessment and all associated data. This operation permanently removes the assessment results, validation reports, and configuration information. You cannot delete system-initiated assessments. You can delete customer-created assessments even if they are in progress."]
module CreateTrustResult =
  struct
    type nonrec t =
      {
      trustId: TrustId.t option
        [@ocaml.doc
          "A unique identifier for the trust relationship that was created."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityAlreadyExistsException of EntityAlreadyExistsException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?trustId = fun () -> { trustId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityAlreadyExistsException e ->
          `Assoc
            [("error", (`String "EntityAlreadyExistsException"));
            ("details", (EntityAlreadyExistsException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("TrustId", (Option.map x.trustId ~f:TrustId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let trustId =
        (Option.map ~f:TrustId.of_xml) (Xml.child xml_arg0 "TrustId") in
      make ?trustId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let trustId = field_map json__ "TrustId" TrustId.of_json in
      make ?trustId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result of a CreateTrust request."]
module CreateTrustRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The Directory ID of the Managed Microsoft AD directory for which to establish the trust relationship."];
      remoteDomainName: RemoteDomainName.t
        [@ocaml.doc
          "The Fully Qualified Domain Name (FQDN) of the external domain for which to create the trust relationship."];
      trustPassword: TrustPassword.t
        [@ocaml.doc
          "The trust password. The trust password must be the same password that was used when creating the trust relationship on the external domain."];
      trustDirection: TrustDirection.t
        [@ocaml.doc "The direction of the trust relationship."];
      trustType: TrustType.t option
        [@ocaml.doc "The trust relationship type. Forest is the default."];
      conditionalForwarderIpAddrs: DnsIpAddrs.t option
        [@ocaml.doc
          "The IP addresses of the remote DNS server associated with RemoteDomainName."];
      conditionalForwarderIpv6Addrs: DnsIpv6Addrs.t option
        [@ocaml.doc
          "The IPv6 addresses of the remote DNS server associated with RemoteDomainName."];
      selectiveAuth: SelectiveAuth.t option
        [@ocaml.doc
          "Optional parameter to enable selective authentication for the trust."]}
    let context_ = "CreateTrustRequest"
    let make ?trustType =
      fun ?conditionalForwarderIpAddrs ->
        fun ?conditionalForwarderIpv6Addrs ->
          fun ?selectiveAuth ->
            fun ~directoryId ->
              fun ~remoteDomainName ->
                fun ~trustPassword ->
                  fun ~trustDirection ->
                    fun () ->
                      {
                        trustType;
                        conditionalForwarderIpAddrs;
                        conditionalForwarderIpv6Addrs;
                        selectiveAuth;
                        directoryId;
                        remoteDomainName;
                        trustPassword;
                        trustDirection
                      }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("RemoteDomainName",
          (Some (RemoteDomainName.to_value x.remoteDomainName)));
        ("TrustPassword", (Some (TrustPassword.to_value x.trustPassword)));
        ("TrustDirection", (Some (TrustDirection.to_value x.trustDirection)));
        ("TrustType", (Option.map x.trustType ~f:TrustType.to_value));
        ("ConditionalForwarderIpAddrs",
          (Option.map x.conditionalForwarderIpAddrs ~f:DnsIpAddrs.to_value));
        ("ConditionalForwarderIpv6Addrs",
          (Option.map x.conditionalForwarderIpv6Addrs
             ~f:DnsIpv6Addrs.to_value));
        ("SelectiveAuth",
          (Option.map x.selectiveAuth ~f:SelectiveAuth.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let selectiveAuth =
        (Option.map ~f:SelectiveAuth.of_xml)
          (Xml.child xml_arg0 "SelectiveAuth") in
      let conditionalForwarderIpv6Addrs =
        (Option.map ~f:DnsIpv6Addrs.of_xml)
          (Xml.child xml_arg0 "ConditionalForwarderIpv6Addrs") in
      let conditionalForwarderIpAddrs =
        (Option.map ~f:DnsIpAddrs.of_xml)
          (Xml.child xml_arg0 "ConditionalForwarderIpAddrs") in
      let trustType =
        (Option.map ~f:TrustType.of_xml) (Xml.child xml_arg0 "TrustType") in
      let trustDirection =
        TrustDirection.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TrustDirection") in
      let trustPassword =
        TrustPassword.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TrustPassword") in
      let remoteDomainName =
        RemoteDomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RemoteDomainName") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?selectiveAuth ?conditionalForwarderIpv6Addrs
        ?conditionalForwarderIpAddrs ?trustType ~trustDirection
        ~trustPassword ~remoteDomainName ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let selectiveAuth =
        field_map json__ "SelectiveAuth" SelectiveAuth.of_json in
      let conditionalForwarderIpv6Addrs =
        field_map json__ "ConditionalForwarderIpv6Addrs" DnsIpv6Addrs.of_json in
      let conditionalForwarderIpAddrs =
        field_map json__ "ConditionalForwarderIpAddrs" DnsIpAddrs.of_json in
      let trustType = field_map json__ "TrustType" TrustType.of_json in
      let trustDirection =
        field_map_exn json__ "TrustDirection" TrustDirection.of_json in
      let trustPassword =
        field_map_exn json__ "TrustPassword" TrustPassword.of_json in
      let remoteDomainName =
        field_map_exn json__ "RemoteDomainName" RemoteDomainName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?selectiveAuth ?conditionalForwarderIpv6Addrs
        ?conditionalForwarderIpAddrs ?trustType ~trustDirection
        ~trustPassword ~remoteDomainName ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Directory Service for Microsoft Active Directory allows you to configure trust relationships. For example, you can establish a trust between your Managed Microsoft AD directory, and your existing self-managed Microsoft Active Directory. This would allow you to provide users and groups access to resources in either domain, with a single set of credentials. This action initiates the creation of the Amazon Web Services side of a trust relationship between an Managed Microsoft AD directory and an external domain."]
module CreateSnapshotResult =
  struct
    type nonrec t =
      {
      snapshotId: SnapshotId.t option
        [@ocaml.doc "The identifier of the snapshot that was created."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `SnapshotLimitExceededException of SnapshotLimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?snapshotId = fun () -> { snapshotId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "SnapshotLimitExceededException" ->
          `SnapshotLimitExceededException
            (SnapshotLimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "SnapshotLimitExceededException" ->
          `SnapshotLimitExceededException
            (SnapshotLimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `SnapshotLimitExceededException e ->
          `Assoc
            [("error", (`String "SnapshotLimitExceededException"));
            ("details", (SnapshotLimitExceededException.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
        [("SnapshotId", (Option.map x.snapshotId ~f:SnapshotId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snapshotId =
        (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "SnapshotId") in
      make ?snapshotId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snapshotId = field_map json__ "SnapshotId" SnapshotId.of_json in
      make ?snapshotId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the results of the CreateSnapshot operation."]
module CreateSnapshotRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory of which to take a snapshot."];
      name: SnapshotName.t option
        [@ocaml.doc "The descriptive name to apply to the snapshot."]}
    let context_ = "CreateSnapshotRequest"
    let make ?name = fun ~directoryId -> fun () -> { name; directoryId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("Name", (Option.map x.name ~f:SnapshotName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:SnapshotName.of_xml) (Xml.child xml_arg0 "Name") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?name ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" SnapshotName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?name ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the CreateSnapshot operation."]
module CreateMicrosoftADResult =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc "The identifier of the directory that was created."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryLimitExceededException of DirectoryLimitExceededException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryId = fun () -> { directoryId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryLimitExceededException" ->
          `DirectoryLimitExceededException
            (DirectoryLimitExceededException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryLimitExceededException" ->
          `DirectoryLimitExceededException
            (DirectoryLimitExceededException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryLimitExceededException e ->
          `Assoc
            [("error", (`String "DirectoryLimitExceededException"));
            ("details", (DirectoryLimitExceededException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Result of a CreateMicrosoftAD request."]
module CreateMicrosoftADRequest =
  struct
    type nonrec t =
      {
      name: DirectoryName.t
        [@ocaml.doc
          "The fully qualified domain name for the Managed Microsoft AD directory, such as corp.example.com. This name will resolve inside your VPC only. It does not need to be publicly resolvable."];
      shortName: DirectoryShortName.t option
        [@ocaml.doc
          "The NetBIOS name for your domain, such as CORP. If you don't specify a NetBIOS name, it will default to the first part of your directory DNS. For example, CORP for the directory DNS corp.example.com."];
      password: Password.t
        [@ocaml.doc
          "The password for the default administrative user named Admin. If you need to change the password for the administrator account, you can use the ResetUserPassword API call."];
      description: Description.t option
        [@ocaml.doc
          "A description for the directory. This label will appear on the Amazon Web Services console Directory Details page after the directory is created."];
      vpcSettings: DirectoryVpcSettings.t
        [@ocaml.doc
          "Contains VPC information for the CreateDirectory or CreateMicrosoftAD operation."];
      edition: DirectoryEdition.t option
        [@ocaml.doc
          "Managed Microsoft AD is available in two editions: Standard and Enterprise. Enterprise is the default."];
      tags: Tags.t option
        [@ocaml.doc
          "The tags to be assigned to the Managed Microsoft AD directory."];
      networkType: NetworkType.t option
        [@ocaml.doc
          "The network type for your domain. The default value is IPv4 or IPv6 based on the provided subnet capabilities."]}
    let context_ = "CreateMicrosoftADRequest"
    let make ?shortName =
      fun ?description ->
        fun ?edition ->
          fun ?tags ->
            fun ?networkType ->
              fun ~name ->
                fun ~password ->
                  fun ~vpcSettings ->
                    fun () ->
                      {
                        shortName;
                        description;
                        edition;
                        tags;
                        networkType;
                        name;
                        password;
                        vpcSettings
                      }
    let to_value x =
      structure_to_value
        [("Name", (Some (DirectoryName.to_value x.name)));
        ("ShortName",
          (Option.map x.shortName ~f:DirectoryShortName.to_value));
        ("Password", (Some (Password.to_value x.password)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("VpcSettings", (Some (DirectoryVpcSettings.to_value x.vpcSettings)));
        ("Edition", (Option.map x.edition ~f:DirectoryEdition.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("NetworkType", (Option.map x.networkType ~f:NetworkType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkType =
        (Option.map ~f:NetworkType.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let edition =
        (Option.map ~f:DirectoryEdition.of_xml)
          (Xml.child xml_arg0 "Edition") in
      let vpcSettings =
        DirectoryVpcSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VpcSettings") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let password =
        Password.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Password") in
      let shortName =
        (Option.map ~f:DirectoryShortName.of_xml)
          (Xml.child xml_arg0 "ShortName") in
      let name =
        DirectoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?networkType ?tags ?edition ~vpcSettings ?description ~password
        ?shortName ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkType = field_map json__ "NetworkType" NetworkType.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let edition = field_map json__ "Edition" DirectoryEdition.of_json in
      let vpcSettings =
        field_map_exn json__ "VpcSettings" DirectoryVpcSettings.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let password = field_map_exn json__ "Password" Password.of_json in
      let shortName = field_map json__ "ShortName" DirectoryShortName.of_json in
      let name = field_map_exn json__ "Name" DirectoryName.of_json in
      make ?networkType ?tags ?edition ~vpcSettings ?description ~password
        ?shortName ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an Managed Microsoft AD directory."]
module CreateLogSubscriptionResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityAlreadyExistsException of EntityAlreadyExistsException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InsufficientPermissionsException of
          InsufficientPermissionsException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InsufficientPermissionsException" ->
          `InsufficientPermissionsException
            (InsufficientPermissionsException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InsufficientPermissionsException" ->
          `InsufficientPermissionsException
            (InsufficientPermissionsException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityAlreadyExistsException e ->
          `Assoc
            [("error", (`String "EntityAlreadyExistsException"));
            ("details", (EntityAlreadyExistsException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InsufficientPermissionsException e ->
          `Assoc
            [("error", (`String "InsufficientPermissionsException"));
            ("details", (InsufficientPermissionsException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a subscription to forward real-time Directory Service domain controller security logs to the specified Amazon CloudWatch log group in your Amazon Web Services account."]
module CreateLogSubscriptionRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "Identifier of the directory to which you want to subscribe and receive real-time logs to your specified CloudWatch log group."];
      logGroupName: LogGroupName.t
        [@ocaml.doc
          "The name of the CloudWatch log group where the real-time domain controller logs are forwarded."]}
    let context_ = "CreateLogSubscriptionRequest"
    let make ~directoryId =
      fun ~logGroupName -> fun () -> { directoryId; logGroupName }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("LogGroupName", (Some (LogGroupName.to_value x.logGroupName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logGroupName =
        LogGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LogGroupName") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~logGroupName ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logGroupName =
        field_map_exn json__ "LogGroupName" LogGroupName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~logGroupName ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a subscription to forward real-time Directory Service domain controller security logs to the specified Amazon CloudWatch log group in your Amazon Web Services account."]
module CreateHybridADResult =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc
          "The unique identifier of the newly created hybrid directory."]}
    type nonrec error =
      [
        `ADAssessmentLimitExceededException of
          ADAssessmentLimitExceededException.t 
      | `ClientException of ClientException.t 
      | `DirectoryLimitExceededException of DirectoryLimitExceededException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryId = fun () -> { directoryId }
    let error_of_json name json =
      match name with
      | "ADAssessmentLimitExceededException" ->
          `ADAssessmentLimitExceededException
            (ADAssessmentLimitExceededException.of_json json)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryLimitExceededException" ->
          `DirectoryLimitExceededException
            (DirectoryLimitExceededException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ADAssessmentLimitExceededException" ->
          `ADAssessmentLimitExceededException
            (ADAssessmentLimitExceededException.of_xml xml)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryLimitExceededException" ->
          `DirectoryLimitExceededException
            (DirectoryLimitExceededException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ADAssessmentLimitExceededException e ->
          `Assoc
            [("error", (`String "ADAssessmentLimitExceededException"));
            ("details", (ADAssessmentLimitExceededException.to_json e))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryLimitExceededException e ->
          `Assoc
            [("error", (`String "DirectoryLimitExceededException"));
            ("details", (DirectoryLimitExceededException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a hybrid directory that connects your self-managed Active Directory (AD) infrastructure and Amazon Web Services. You must have a successful directory assessment using StartADAssessment to validate your environment compatibility before you use this operation. Updates are applied asynchronously. Use DescribeDirectories to monitor the progress of directory creation."]
module CreateHybridADRequest =
  struct
    type nonrec t =
      {
      secretArn: SecretArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Web Services Secrets Manager secret that contains the credentials for the service account used to join hybrid domain controllers to your self-managed AD domain. This secret is used once and not stored. The secret must contain key-value pairs with keys matching customerAdAdminDomainUsername and customerAdAdminDomainPassword. For example: \\{\"customerAdAdminDomainUsername\":\"carlos_salazar\",\"customerAdAdminDomainPassword\":\"ExamplePassword123!\"\\}."];
      assessmentId: AssessmentId.t
        [@ocaml.doc
          "The unique identifier of the successful directory assessment that validates your self-managed AD environment. You must have a successful directory assessment before you create a hybrid directory."];
      tags: Tags.t option
        [@ocaml.doc
          "The tags to be assigned to the directory. Each tag consists of a key and value pair. You can specify multiple tags as a list."]}
    let context_ = "CreateHybridADRequest"
    let make ?tags =
      fun ~secretArn ->
        fun ~assessmentId -> fun () -> { tags; secretArn; assessmentId }
    let to_value x =
      structure_to_value
        [("SecretArn", (Some (SecretArn.to_value x.secretArn)));
        ("AssessmentId", (Some (AssessmentId.to_value x.assessmentId)));
        ("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
      let assessmentId =
        AssessmentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AssessmentId") in
      let secretArn =
        SecretArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SecretArn") in
      make ?tags ~assessmentId ~secretArn ()
    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
      let assessmentId =
        field_map_exn json__ "AssessmentId" AssessmentId.of_json in
      let secretArn = field_map_exn json__ "SecretArn" SecretArn.of_json in
      make ?tags ~assessmentId ~secretArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a hybrid directory that connects your self-managed Active Directory (AD) infrastructure and Amazon Web Services. You must have a successful directory assessment using StartADAssessment to validate your environment compatibility before you use this operation. Updates are applied asynchronously. Use DescribeDirectories to monitor the progress of directory creation."]
module CreateDirectoryResult =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc "The identifier of the directory that was created."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryLimitExceededException of DirectoryLimitExceededException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryId = fun () -> { directoryId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryLimitExceededException" ->
          `DirectoryLimitExceededException
            (DirectoryLimitExceededException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryLimitExceededException" ->
          `DirectoryLimitExceededException
            (DirectoryLimitExceededException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryLimitExceededException e ->
          `Assoc
            [("error", (`String "DirectoryLimitExceededException"));
            ("details", (DirectoryLimitExceededException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the results of the CreateDirectory operation."]
module CreateDirectoryRequest =
  struct
    type nonrec t =
      {
      name: DirectoryName.t
        [@ocaml.doc
          "The fully qualified name for the directory, such as corp.example.com."];
      shortName: DirectoryShortName.t option
        [@ocaml.doc "The NetBIOS name of the directory, such as CORP."];
      password: Password.t
        [@ocaml.doc
          "The password for the directory administrator. The directory creation process creates a directory administrator account with the user name Administrator and this password. If you need to change the password for the administrator account, you can use the ResetUserPassword API call. The regex pattern for this string is made up of the following conditions: Length (?=^.\\{8,64\\}$) \226\128\147 Must be between 8 and 64 characters AND any 3 of the following password complexity rules required by Active Directory: Numbers and upper case and lowercase (?=.*\\d)(?=.*\\[A-Z\\])(?=.*\\[a-z\\]) Numbers and special characters and lower case (?=.*\\d)(?=.*\\[^A-Za-z0-9\\s\\])(?=.*\\[a-z\\]) Special characters and upper case and lower case (?=.*\\[^A-Za-z0-9\\s\\])(?=.*\\[A-Z\\])(?=.*\\[a-z\\]) Numbers and upper case and special characters (?=.*\\d)(?=.*\\[A-Z\\])(?=.*\\[^A-Za-z0-9\\s\\]) For additional information about how Active Directory passwords are enforced, see Password must meet complexity requirements on the Microsoft website."];
      description: Description.t option
        [@ocaml.doc "A description for the directory."];
      size: DirectorySize.t [@ocaml.doc "The size of the directory."];
      vpcSettings: DirectoryVpcSettings.t option
        [@ocaml.doc
          "A DirectoryVpcSettings object that contains additional information for the operation."];
      tags: Tags.t option
        [@ocaml.doc "The tags to be assigned to the Simple AD directory."];
      networkType: NetworkType.t option
        [@ocaml.doc
          "The network type for your directory. Simple AD supports IPv4 and Dual-stack only."]}
    let context_ = "CreateDirectoryRequest"
    let make ?shortName =
      fun ?description ->
        fun ?vpcSettings ->
          fun ?tags ->
            fun ?networkType ->
              fun ~name ->
                fun ~password ->
                  fun ~size ->
                    fun () ->
                      {
                        shortName;
                        description;
                        vpcSettings;
                        tags;
                        networkType;
                        name;
                        password;
                        size
                      }
    let to_value x =
      structure_to_value
        [("Name", (Some (DirectoryName.to_value x.name)));
        ("ShortName",
          (Option.map x.shortName ~f:DirectoryShortName.to_value));
        ("Password", (Some (Password.to_value x.password)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Size", (Some (DirectorySize.to_value x.size)));
        ("VpcSettings",
          (Option.map x.vpcSettings ~f:DirectoryVpcSettings.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("NetworkType", (Option.map x.networkType ~f:NetworkType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkType =
        (Option.map ~f:NetworkType.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let vpcSettings =
        (Option.map ~f:DirectoryVpcSettings.of_xml)
          (Xml.child xml_arg0 "VpcSettings") in
      let size =
        DirectorySize.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Size") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let password =
        Password.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Password") in
      let shortName =
        (Option.map ~f:DirectoryShortName.of_xml)
          (Xml.child xml_arg0 "ShortName") in
      let name =
        DirectoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?networkType ?tags ?vpcSettings ~size ?description ~password
        ?shortName ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkType = field_map json__ "NetworkType" NetworkType.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let vpcSettings =
        field_map json__ "VpcSettings" DirectoryVpcSettings.of_json in
      let size = field_map_exn json__ "Size" DirectorySize.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let password = field_map_exn json__ "Password" Password.of_json in
      let shortName = field_map json__ "ShortName" DirectoryShortName.of_json in
      let name = field_map_exn json__ "Name" DirectoryName.of_json in
      make ?networkType ?tags ?vpcSettings ~size ?description ~password
        ?shortName ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the CreateDirectory operation."]
module CreateConditionalForwarderResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `EntityAlreadyExistsException of EntityAlreadyExistsException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `EntityAlreadyExistsException e ->
          `Assoc
            [("error", (`String "EntityAlreadyExistsException"));
            ("details", (EntityAlreadyExistsException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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 "The result of a CreateConditinalForwarder request."]
module CreateConditionalForwarderRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The directory ID of the Amazon Web Services directory for which you are creating the conditional forwarder."];
      remoteDomainName: RemoteDomainName.t
        [@ocaml.doc
          "The fully qualified domain name (FQDN) of the remote domain with which you will set up a trust relationship."];
      dnsIpAddrs: DnsIpAddrs.t option
        [@ocaml.doc
          "The IP addresses of the remote DNS server associated with RemoteDomainName."];
      dnsIpv6Addrs: DnsIpv6Addrs.t option
        [@ocaml.doc
          "The IPv6 addresses of the remote DNS server associated with RemoteDomainName."]}
    let context_ = "CreateConditionalForwarderRequest"
    let make ?dnsIpAddrs =
      fun ?dnsIpv6Addrs ->
        fun ~directoryId ->
          fun ~remoteDomainName ->
            fun () ->
              { dnsIpAddrs; dnsIpv6Addrs; directoryId; remoteDomainName }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("RemoteDomainName",
          (Some (RemoteDomainName.to_value x.remoteDomainName)));
        ("DnsIpAddrs", (Option.map x.dnsIpAddrs ~f:DnsIpAddrs.to_value));
        ("DnsIpv6Addrs",
          (Option.map x.dnsIpv6Addrs ~f:DnsIpv6Addrs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dnsIpv6Addrs =
        (Option.map ~f:DnsIpv6Addrs.of_xml)
          (Xml.child xml_arg0 "DnsIpv6Addrs") in
      let dnsIpAddrs =
        (Option.map ~f:DnsIpAddrs.of_xml) (Xml.child xml_arg0 "DnsIpAddrs") in
      let remoteDomainName =
        RemoteDomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RemoteDomainName") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?dnsIpv6Addrs ?dnsIpAddrs ~remoteDomainName ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dnsIpv6Addrs = field_map json__ "DnsIpv6Addrs" DnsIpv6Addrs.of_json in
      let dnsIpAddrs = field_map json__ "DnsIpAddrs" DnsIpAddrs.of_json in
      let remoteDomainName =
        field_map_exn json__ "RemoteDomainName" RemoteDomainName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?dnsIpv6Addrs ?dnsIpAddrs ~remoteDomainName ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates the creation of a conditional forwarder for your Directory Service for Microsoft Active Directory. Conditional forwarders are required in order to set up a trust relationship with another domain."]
module CreateComputerResult =
  struct
    type nonrec t =
      {
      computer: Computer.t option
        [@ocaml.doc
          "A Computer object that represents the computer account."]}
    type nonrec error =
      [ `AuthenticationFailedException of AuthenticationFailedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `EntityAlreadyExistsException of EntityAlreadyExistsException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?computer = fun () -> { computer }
    let error_of_json name json =
      match name with
      | "AuthenticationFailedException" ->
          `AuthenticationFailedException
            (AuthenticationFailedException.of_json json)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthenticationFailedException" ->
          `AuthenticationFailedException
            (AuthenticationFailedException.of_xml xml)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthenticationFailedException e ->
          `Assoc
            [("error", (`String "AuthenticationFailedException"));
            ("details", (AuthenticationFailedException.to_json e))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `EntityAlreadyExistsException e ->
          `Assoc
            [("error", (`String "EntityAlreadyExistsException"));
            ("details", (EntityAlreadyExistsException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("Computer", (Option.map x.computer ~f:Computer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let computer =
        (Option.map ~f:Computer.of_xml) (Xml.child xml_arg0 "Computer") in
      make ?computer ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let computer = field_map json__ "Computer" Computer.of_json in
      make ?computer ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the results for the CreateComputer operation."]
module CreateComputerRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory in which to create the computer account."];
      computerName: ComputerName.t
        [@ocaml.doc "The name of the computer account."];
      password: ComputerPassword.t
        [@ocaml.doc
          "A one-time password that is used to join the computer to the directory. You should generate a random, strong password to use for this parameter."];
      organizationalUnitDistinguishedName: OrganizationalUnitDN.t option
        [@ocaml.doc
          "The fully-qualified distinguished name of the organizational unit to place the computer account in."];
      computerAttributes: Attributes.t option
        [@ocaml.doc
          "An array of Attribute objects that contain any LDAP attributes to apply to the computer account."]}
    let context_ = "CreateComputerRequest"
    let make ?organizationalUnitDistinguishedName =
      fun ?computerAttributes ->
        fun ~directoryId ->
          fun ~computerName ->
            fun ~password ->
              fun () ->
                {
                  organizationalUnitDistinguishedName;
                  computerAttributes;
                  directoryId;
                  computerName;
                  password
                }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("ComputerName", (Some (ComputerName.to_value x.computerName)));
        ("Password", (Some (ComputerPassword.to_value x.password)));
        ("OrganizationalUnitDistinguishedName",
          (Option.map x.organizationalUnitDistinguishedName
             ~f:OrganizationalUnitDN.to_value));
        ("ComputerAttributes",
          (Option.map x.computerAttributes ~f:Attributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let computerAttributes =
        (Option.map ~f:Attributes.of_xml)
          (Xml.child xml_arg0 "ComputerAttributes") in
      let organizationalUnitDistinguishedName =
        (Option.map ~f:OrganizationalUnitDN.of_xml)
          (Xml.child xml_arg0 "OrganizationalUnitDistinguishedName") in
      let password =
        ComputerPassword.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Password") in
      let computerName =
        ComputerName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ComputerName") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?computerAttributes ?organizationalUnitDistinguishedName ~password
        ~computerName ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let computerAttributes =
        field_map json__ "ComputerAttributes" Attributes.of_json in
      let organizationalUnitDistinguishedName =
        field_map json__ "OrganizationalUnitDistinguishedName"
          OrganizationalUnitDN.of_json in
      let password = field_map_exn json__ "Password" ComputerPassword.of_json in
      let computerName =
        field_map_exn json__ "ComputerName" ComputerName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?computerAttributes ?organizationalUnitDistinguishedName ~password
        ~computerName ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the CreateComputer operation."]
module CreateAliasResult =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc "The identifier of the directory."];
      alias: AliasName.t option [@ocaml.doc "The alias for the directory."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityAlreadyExistsException of EntityAlreadyExistsException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryId = fun ?alias -> fun () -> { directoryId; alias }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityAlreadyExistsException e ->
          `Assoc
            [("error", (`String "EntityAlreadyExistsException"));
            ("details", (EntityAlreadyExistsException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value));
        ("Alias", (Option.map x.alias ~f:AliasName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alias =
        (Option.map ~f:AliasName.of_xml) (Xml.child xml_arg0 "Alias") in
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?alias ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alias = field_map json__ "Alias" AliasName.of_json in
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?alias ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the results of the CreateAlias operation."]
module CreateAliasRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory for which to create the alias."];
      alias: AliasName.t
        [@ocaml.doc
          "The requested alias. The alias must be unique amongst all aliases in Amazon Web Services. This operation throws an EntityAlreadyExistsException error if the alias already exists."]}
    let context_ = "CreateAliasRequest"
    let make ~directoryId = fun ~alias -> fun () -> { directoryId; alias }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("Alias", (Some (AliasName.to_value x.alias)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alias =
        AliasName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Alias") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~alias ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alias = field_map_exn json__ "Alias" AliasName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~alias ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the CreateAlias operation."]
module ConnectDirectoryResult =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t option
        [@ocaml.doc "The identifier of the new directory."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryLimitExceededException of DirectoryLimitExceededException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?directoryId = fun () -> { directoryId }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryLimitExceededException" ->
          `DirectoryLimitExceededException
            (DirectoryLimitExceededException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryLimitExceededException" ->
          `DirectoryLimitExceededException
            (DirectoryLimitExceededException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryLimitExceededException e ->
          `Assoc
            [("error", (`String "DirectoryLimitExceededException"));
            ("details", (DirectoryLimitExceededException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("DirectoryId", (Option.map x.directoryId ~f:DirectoryId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let directoryId =
        (Option.map ~f:DirectoryId.of_xml) (Xml.child xml_arg0 "DirectoryId") in
      make ?directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let directoryId = field_map json__ "DirectoryId" DirectoryId.of_json in
      make ?directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the results of the ConnectDirectory operation."]
module ConnectDirectoryRequest =
  struct
    type nonrec t =
      {
      name: DirectoryName.t
        [@ocaml.doc
          "The fully qualified name of your self-managed directory, such as corp.example.com."];
      shortName: DirectoryShortName.t option
        [@ocaml.doc
          "The NetBIOS name of your self-managed directory, such as CORP."];
      password: ConnectPassword.t
        [@ocaml.doc "The password for your self-managed user account."];
      description: Description.t option
        [@ocaml.doc "A description for the directory."];
      size: DirectorySize.t [@ocaml.doc "The size of the directory."];
      connectSettings: DirectoryConnectSettings.t
        [@ocaml.doc
          "A DirectoryConnectSettings object that contains additional information for the operation."];
      tags: Tags.t option
        [@ocaml.doc "The tags to be assigned to AD Connector."];
      networkType: NetworkType.t option
        [@ocaml.doc
          "The network type for your directory. The default value is IPv4 or IPv6 based on the provided subnet capabilities."]}
    let context_ = "ConnectDirectoryRequest"
    let make ?shortName =
      fun ?description ->
        fun ?tags ->
          fun ?networkType ->
            fun ~name ->
              fun ~password ->
                fun ~size ->
                  fun ~connectSettings ->
                    fun () ->
                      {
                        shortName;
                        description;
                        tags;
                        networkType;
                        name;
                        password;
                        size;
                        connectSettings
                      }
    let to_value x =
      structure_to_value
        [("Name", (Some (DirectoryName.to_value x.name)));
        ("ShortName",
          (Option.map x.shortName ~f:DirectoryShortName.to_value));
        ("Password", (Some (ConnectPassword.to_value x.password)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Size", (Some (DirectorySize.to_value x.size)));
        ("ConnectSettings",
          (Some (DirectoryConnectSettings.to_value x.connectSettings)));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("NetworkType", (Option.map x.networkType ~f:NetworkType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkType =
        (Option.map ~f:NetworkType.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let connectSettings =
        DirectoryConnectSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConnectSettings") in
      let size =
        DirectorySize.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Size") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let password =
        ConnectPassword.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Password") in
      let shortName =
        (Option.map ~f:DirectoryShortName.of_xml)
          (Xml.child xml_arg0 "ShortName") in
      let name =
        DirectoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?networkType ?tags ~connectSettings ~size ?description ~password
        ?shortName ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkType = field_map json__ "NetworkType" NetworkType.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let connectSettings =
        field_map_exn json__ "ConnectSettings"
          DirectoryConnectSettings.of_json in
      let size = field_map_exn json__ "Size" DirectorySize.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let password = field_map_exn json__ "Password" ConnectPassword.of_json in
      let shortName = field_map json__ "ShortName" DirectoryShortName.of_json in
      let name = field_map_exn json__ "Name" DirectoryName.of_json in
      make ?networkType ?tags ~connectSettings ~size ?description ~password
        ?shortName ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the inputs for the ConnectDirectory operation."]
module CancelSchemaExtensionResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels an in-progress schema extension to a Microsoft AD directory. Once a schema extension has started replicating to all domain controllers, the task can no longer be canceled. A schema extension can be canceled during any of the following states; Initializing, CreatingSnapshot, and UpdatingSchema."]
module CancelSchemaExtensionRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory whose schema extension will be canceled."];
      schemaExtensionId: SchemaExtensionId.t
        [@ocaml.doc
          "The identifier of the schema extension that will be canceled."]}
    let context_ = "CancelSchemaExtensionRequest"
    let make ~directoryId =
      fun ~schemaExtensionId -> fun () -> { directoryId; schemaExtensionId }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("SchemaExtensionId",
          (Some (SchemaExtensionId.to_value x.schemaExtensionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaExtensionId =
        SchemaExtensionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SchemaExtensionId") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~schemaExtensionId ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaExtensionId =
        field_map_exn json__ "SchemaExtensionId" SchemaExtensionId.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~schemaExtensionId ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels an in-progress schema extension to a Microsoft AD directory. Once a schema extension has started replicating to all domain controllers, the task can no longer be canceled. A schema extension can be canceled during any of the following states; Initializing, CreatingSnapshot, and UpdatingSchema."]
module AddTagsToResourceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `TagLimitExceededException of TagLimitExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TagLimitExceededException" ->
          `TagLimitExceededException (TagLimitExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TagLimitExceededException" ->
          `TagLimitExceededException (TagLimitExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TagLimitExceededException e ->
          `Assoc
            [("error", (`String "TagLimitExceededException"));
            ("details", (TagLimitExceededException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or overwrites one or more tags for the specified directory. Each directory can have a maximum of 50 tags. Each tag consists of a key and optional value. Tag keys must be unique to each resource."]
module AddTagsToResourceRequest =
  struct
    type nonrec t =
      {
      resourceId: ResourceId.t
        [@ocaml.doc
          "Identifier (ID) for the directory to which to add the tag."];
      tags: Tags.t [@ocaml.doc "The tags to be assigned to the directory."]}
    let context_ = "AddTagsToResourceRequest"
    let make ~resourceId = fun ~tags -> fun () -> { resourceId; tags }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (ResourceId.to_value x.resourceId)));
        ("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 resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~tags ~resourceId ()
    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 resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      make ~tags ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or overwrites one or more tags for the specified directory. Each directory can have a maximum of 50 tags. Each tag consists of a key and optional value. Tag keys must be unique to each resource."]
module AddRegionResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ClientException of ClientException.t 
      | `DirectoryAlreadyInRegionException of
          DirectoryAlreadyInRegionException.t 
      | `DirectoryDoesNotExistException of DirectoryDoesNotExistException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `RegionLimitExceededException of RegionLimitExceededException.t 
      | `ServiceException of ServiceException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryAlreadyInRegionException" ->
          `DirectoryAlreadyInRegionException
            (DirectoryAlreadyInRegionException.of_json json)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "RegionLimitExceededException" ->
          `RegionLimitExceededException
            (RegionLimitExceededException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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)
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryAlreadyInRegionException" ->
          `DirectoryAlreadyInRegionException
            (DirectoryAlreadyInRegionException.of_xml xml)
      | "DirectoryDoesNotExistException" ->
          `DirectoryDoesNotExistException
            (DirectoryDoesNotExistException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "RegionLimitExceededException" ->
          `RegionLimitExceededException
            (RegionLimitExceededException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.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))]
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryAlreadyInRegionException e ->
          `Assoc
            [("error", (`String "DirectoryAlreadyInRegionException"));
            ("details", (DirectoryAlreadyInRegionException.to_json e))]
      | `DirectoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "DirectoryDoesNotExistException"));
            ("details", (DirectoryDoesNotExistException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `RegionLimitExceededException e ->
          `Assoc
            [("error", (`String "RegionLimitExceededException"));
            ("details", (RegionLimitExceededException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds two domain controllers in the specified Region for the specified directory."]
module AddRegionRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "The identifier of the directory to which you want to add Region replication."];
      regionName: RegionName.t
        [@ocaml.doc
          "The name of the Region where you want to add domain controllers for replication. For example, us-east-1."];
      vPCSettings: DirectoryVpcSettings.t }
    let context_ = "AddRegionRequest"
    let make ~directoryId =
      fun ~regionName ->
        fun ~vPCSettings ->
          fun () -> { directoryId; regionName; vPCSettings }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("RegionName", (Some (RegionName.to_value x.regionName)));
        ("VPCSettings", (Some (DirectoryVpcSettings.to_value x.vPCSettings)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vPCSettings =
        DirectoryVpcSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VPCSettings") in
      let regionName =
        RegionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RegionName") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ~vPCSettings ~regionName ~directoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vPCSettings =
        field_map_exn json__ "VPCSettings" DirectoryVpcSettings.of_json in
      let regionName = field_map_exn json__ "RegionName" RegionName.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ~vPCSettings ~regionName ~directoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds two domain controllers in the specified Region for the specified directory."]
module AddIpRoutesResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryUnavailableException of DirectoryUnavailableException.t 
      | `EntityAlreadyExistsException of EntityAlreadyExistsException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `IpRouteLimitExceededException of IpRouteLimitExceededException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_json json)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "IpRouteLimitExceededException" ->
          `IpRouteLimitExceededException
            (IpRouteLimitExceededException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryUnavailableException" ->
          `DirectoryUnavailableException
            (DirectoryUnavailableException.of_xml xml)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "IpRouteLimitExceededException" ->
          `IpRouteLimitExceededException
            (IpRouteLimitExceededException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryUnavailableException e ->
          `Assoc
            [("error", (`String "DirectoryUnavailableException"));
            ("details", (DirectoryUnavailableException.to_json e))]
      | `EntityAlreadyExistsException e ->
          `Assoc
            [("error", (`String "EntityAlreadyExistsException"));
            ("details", (EntityAlreadyExistsException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `IpRouteLimitExceededException e ->
          `Assoc
            [("error", (`String "IpRouteLimitExceededException"));
            ("details", (IpRouteLimitExceededException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
       "If the DNS server for your self-managed domain uses a publicly addressable IP address, you must add a CIDR address block to correctly route traffic to and from your Microsoft AD on Amazon Web Services. AddIpRoutes adds this address block. You can also use AddIpRoutes to facilitate routing traffic that uses public IP ranges from your Microsoft AD on Amazon Web Services to a peer VPC. Before you call AddIpRoutes, ensure that all of the required permissions have been explicitly granted through a policy. For details about what permissions are required to run the AddIpRoutes operation, see Directory Service API Permissions: Actions, Resources, and Conditions Reference."]
module AddIpRoutesRequest =
  struct
    type nonrec t =
      {
      directoryId: DirectoryId.t
        [@ocaml.doc
          "Identifier (ID) of the directory to which to add the address block."];
      ipRoutes: IpRoutes.t
        [@ocaml.doc
          "IP address blocks, using CIDR format, of the traffic to route. This is often the IP address block of the DNS server used for your self-managed domain."];
      updateSecurityGroupForDirectoryControllers:
        UpdateSecurityGroupForDirectoryControllers.t option
        [@ocaml.doc
          "If set to true, updates the inbound and outbound rules of the security group that has the description: \"Amazon Web Services created security group for directory ID directory controllers.\" Following are the new rules: Inbound: Type: Custom UDP Rule, Protocol: UDP, Range: 88, Source: Managed Microsoft AD VPC IPv4 CIDR Type: Custom UDP Rule, Protocol: UDP, Range: 123, Source: Managed Microsoft AD VPC IPv4 CIDR Type: Custom UDP Rule, Protocol: UDP, Range: 138, Source: Managed Microsoft AD VPC IPv4 CIDR Type: Custom UDP Rule, Protocol: UDP, Range: 389, Source: Managed Microsoft AD VPC IPv4 CIDR Type: Custom UDP Rule, Protocol: UDP, Range: 464, Source: Managed Microsoft AD VPC IPv4 CIDR Type: Custom UDP Rule, Protocol: UDP, Range: 445, Source: Managed Microsoft AD VPC IPv4 CIDR Type: Custom TCP Rule, Protocol: TCP, Range: 88, Source: Managed Microsoft AD VPC IPv4 CIDR Type: Custom TCP Rule, Protocol: TCP, Range: 135, Source: Managed Microsoft AD VPC IPv4 CIDR Type: Custom TCP Rule, Protocol: TCP, Range: 445, Source: Managed Microsoft AD VPC IPv4 CIDR Type: Custom TCP Rule, Protocol: TCP, Range: 464, Source: Managed Microsoft AD VPC IPv4 CIDR Type: Custom TCP Rule, Protocol: TCP, Range: 636, Source: Managed Microsoft AD VPC IPv4 CIDR Type: Custom TCP Rule, Protocol: TCP, Range: 1024-65535, Source: Managed Microsoft AD VPC IPv4 CIDR Type: Custom TCP Rule, Protocol: TCP, Range: 3268-33269, Source: Managed Microsoft AD VPC IPv4 CIDR Type: DNS (UDP), Protocol: UDP, Range: 53, Source: Managed Microsoft AD VPC IPv4 CIDR Type: DNS (TCP), Protocol: TCP, Range: 53, Source: Managed Microsoft AD VPC IPv4 CIDR Type: LDAP, Protocol: TCP, Range: 389, Source: Managed Microsoft AD VPC IPv4 CIDR Type: All ICMP, Protocol: All, Range: N/A, Source: Managed Microsoft AD VPC IPv4 CIDR Outbound: Type: All traffic, Protocol: All, Range: All, Destination: 0.0.0.0/0 These security rules impact an internal network interface that is not exposed publicly."]}
    let context_ = "AddIpRoutesRequest"
    let make ?updateSecurityGroupForDirectoryControllers =
      fun ~directoryId ->
        fun ~ipRoutes ->
          fun () ->
            {
              updateSecurityGroupForDirectoryControllers;
              directoryId;
              ipRoutes
            }
    let to_value x =
      structure_to_value
        [("DirectoryId", (Some (DirectoryId.to_value x.directoryId)));
        ("IpRoutes", (Some (IpRoutes.to_value x.ipRoutes)));
        ("UpdateSecurityGroupForDirectoryControllers",
          (Option.map x.updateSecurityGroupForDirectoryControllers
             ~f:UpdateSecurityGroupForDirectoryControllers.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateSecurityGroupForDirectoryControllers =
        (Option.map ~f:UpdateSecurityGroupForDirectoryControllers.of_xml)
          (Xml.child xml_arg0 "UpdateSecurityGroupForDirectoryControllers") in
      let ipRoutes =
        IpRoutes.of_xml (Xml.child_exn ~context:context_ xml_arg0 "IpRoutes") in
      let directoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DirectoryId") in
      make ?updateSecurityGroupForDirectoryControllers ~ipRoutes ~directoryId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateSecurityGroupForDirectoryControllers =
        field_map json__ "UpdateSecurityGroupForDirectoryControllers"
          UpdateSecurityGroupForDirectoryControllers.of_json in
      let ipRoutes = field_map_exn json__ "IpRoutes" IpRoutes.of_json in
      let directoryId =
        field_map_exn json__ "DirectoryId" DirectoryId.of_json in
      make ?updateSecurityGroupForDirectoryControllers ~ipRoutes ~directoryId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If the DNS server for your self-managed domain uses a publicly addressable IP address, you must add a CIDR address block to correctly route traffic to and from your Microsoft AD on Amazon Web Services. AddIpRoutes adds this address block. You can also use AddIpRoutes to facilitate routing traffic that uses public IP ranges from your Microsoft AD on Amazon Web Services to a peer VPC. Before you call AddIpRoutes, ensure that all of the required permissions have been explicitly granted through a policy. For details about what permissions are required to run the AddIpRoutes operation, see Directory Service API Permissions: Actions, Resources, and Conditions Reference."]
module AcceptSharedDirectoryResult =
  struct
    type nonrec t =
      {
      sharedDirectory: SharedDirectory.t option
        [@ocaml.doc
          "The shared directory in the directory consumer account."]}
    type nonrec error =
      [ `ClientException of ClientException.t 
      | `DirectoryAlreadySharedException of DirectoryAlreadySharedException.t 
      | `EntityDoesNotExistException of EntityDoesNotExistException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ServiceException of ServiceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sharedDirectory = fun () -> { sharedDirectory }
    let error_of_json name json =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_json json)
      | "DirectoryAlreadySharedException" ->
          `DirectoryAlreadySharedException
            (DirectoryAlreadySharedException.of_json json)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientException" -> `ClientException (ClientException.of_xml xml)
      | "DirectoryAlreadySharedException" ->
          `DirectoryAlreadySharedException
            (DirectoryAlreadySharedException.of_xml xml)
      | "EntityDoesNotExistException" ->
          `EntityDoesNotExistException
            (EntityDoesNotExistException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientException e ->
          `Assoc
            [("error", (`String "ClientException"));
            ("details", (ClientException.to_json e))]
      | `DirectoryAlreadySharedException e ->
          `Assoc
            [("error", (`String "DirectoryAlreadySharedException"));
            ("details", (DirectoryAlreadySharedException.to_json e))]
      | `EntityDoesNotExistException e ->
          `Assoc
            [("error", (`String "EntityDoesNotExistException"));
            ("details", (EntityDoesNotExistException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.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
        [("SharedDirectory",
           (Option.map x.sharedDirectory ~f:SharedDirectory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharedDirectory =
        (Option.map ~f:SharedDirectory.of_xml)
          (Xml.child xml_arg0 "SharedDirectory") in
      make ?sharedDirectory ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharedDirectory =
        field_map json__ "SharedDirectory" SharedDirectory.of_json in
      make ?sharedDirectory ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Accepts a directory sharing request that was sent from the directory owner account."]
module AcceptSharedDirectoryRequest =
  struct
    type nonrec t =
      {
      sharedDirectoryId: DirectoryId.t
        [@ocaml.doc
          "Identifier of the shared directory in the directory consumer account. This identifier is different for each directory owner account."]}
    let context_ = "AcceptSharedDirectoryRequest"
    let make ~sharedDirectoryId = fun () -> { sharedDirectoryId }
    let to_value x =
      structure_to_value
        [("SharedDirectoryId",
           (Some (DirectoryId.to_value x.sharedDirectoryId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharedDirectoryId =
        DirectoryId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SharedDirectoryId") in
      make ~sharedDirectoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharedDirectoryId =
        field_map_exn json__ "SharedDirectoryId" DirectoryId.of_json in
      make ~sharedDirectoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Accepts a directory sharing request that was sent from the directory owner account."]