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.ssm_contacts
let apiVersion = "2021-05-03"
let endpointPrefix = "ssm-contacts"
let serviceFullName = "AWS Systems Manager Incident Manager Contacts"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "SSM Contacts"
let targetPrefix = "SSMContacts"
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 HourOfDay =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:23) >>= (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 HourOfDay" 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 MinuteOfHour =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:59) >>= (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 MinuteOfHour" 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 RetryIntervalInMinutes =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:60) >>= (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 RetryIntervalInMinutes" 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 SsmContactsArn =
  struct
    type nonrec t = string
    let context_ = "SsmContactsArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:(aws|aws-cn|aws-us-gov):ssm-contacts:[-\\w+=\\/,.@]*:[0-9]+:([\\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:"SsmContactsArn" j
    let to_json = simple_to_json to_value
  end
module IsEssential =
  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 HandOffTime =
  struct
    type nonrec t =
      {
      hourOfDay: HourOfDay.t
        [@ocaml.doc
          "The hour when an on-call rotation shift begins or ends."];
      minuteOfHour: MinuteOfHour.t
        [@ocaml.doc
          "The minute when an on-call rotation shift begins or ends."]}
    let context_ = "HandOffTime"
    let make ~hourOfDay =
      fun ~minuteOfHour -> fun () -> { hourOfDay; minuteOfHour }
    let to_value x =
      structure_to_value
        [("HourOfDay", (Some (HourOfDay.to_value x.hourOfDay)));
        ("MinuteOfHour", (Some (MinuteOfHour.to_value x.minuteOfHour)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let minuteOfHour =
        MinuteOfHour.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MinuteOfHour") in
      let hourOfDay =
        HourOfDay.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "HourOfDay") in
      make ~minuteOfHour ~hourOfDay ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let minuteOfHour =
        field_map_exn json__ "MinuteOfHour" MinuteOfHour.of_json in
      let hourOfDay = field_map_exn json__ "HourOfDay" HourOfDay.of_json in
      make ~minuteOfHour ~hourOfDay ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about when an on-call rotation shift begins or ends."]
module ChannelTargetInfo =
  struct
    type nonrec t =
      {
      contactChannelId: SsmContactsArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the contact channel."];
      retryIntervalInMinutes: RetryIntervalInMinutes.t option
        [@ocaml.doc
          "The number of minutes to wait before retrying to send engagement if the engagement initially failed."]}
    let context_ = "ChannelTargetInfo"
    let make ?retryIntervalInMinutes =
      fun ~contactChannelId ->
        fun () -> { retryIntervalInMinutes; contactChannelId }
    let to_value x =
      structure_to_value
        [("ContactChannelId",
           (Some (SsmContactsArn.to_value x.contactChannelId)));
        ("RetryIntervalInMinutes",
          (Option.map x.retryIntervalInMinutes
             ~f:RetryIntervalInMinutes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryIntervalInMinutes =
        (Option.map ~f:RetryIntervalInMinutes.of_xml)
          (Xml.child xml_arg0 "RetryIntervalInMinutes") in
      let contactChannelId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactChannelId") in
      make ?retryIntervalInMinutes ~contactChannelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryIntervalInMinutes =
        field_map json__ "RetryIntervalInMinutes"
          RetryIntervalInMinutes.of_json in
      let contactChannelId =
        field_map_exn json__ "ContactChannelId" SsmContactsArn.of_json in
      make ?retryIntervalInMinutes ~contactChannelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the contact channel that Incident Manager uses to engage the contact."]
module ContactTargetInfo =
  struct
    type nonrec t =
      {
      contactId: SsmContactsArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the contact."];
      isEssential: IsEssential.t
        [@ocaml.doc
          "A Boolean value determining if the contact's acknowledgement stops the progress of stages in the plan."]}
    let context_ = "ContactTargetInfo"
    let make ?contactId =
      fun ~isEssential -> fun () -> { contactId; isEssential }
    let to_value x =
      structure_to_value
        [("ContactId", (Option.map x.contactId ~f:SsmContactsArn.to_value));
        ("IsEssential", (Some (IsEssential.to_value x.isEssential)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isEssential =
        IsEssential.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IsEssential") in
      let contactId =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactId") in
      make ~isEssential ?contactId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isEssential =
        field_map_exn json__ "IsEssential" IsEssential.of_json in
      let contactId = field_map json__ "ContactId" SsmContactsArn.of_json in
      make ~isEssential ?contactId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The contact that Incident Manager is engaging during an incident."]
module DayOfMonth =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:31) >>= (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 DayOfMonth" 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 CoverageTime =
  struct
    type nonrec t =
      {
      start: HandOffTime.t option
        [@ocaml.doc
          "Information about when the on-call rotation shift begins."];
      end_: HandOffTime.t option
        [@ocaml.doc
          "Information about when the on-call rotation shift ends."]}
    let make ?start = fun ?end_ -> fun () -> { start; end_ }
    let to_value x =
      structure_to_value
        [("Start", (Option.map x.start ~f:HandOffTime.to_value));
        ("End", (Option.map x.end_ ~f:HandOffTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let end_ =
        (Option.map ~f:HandOffTime.of_xml) (Xml.child xml_arg0 "End") in
      let start =
        (Option.map ~f:HandOffTime.of_xml) (Xml.child xml_arg0 "Start") in
      make ?end_ ?start ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let end_ = field_map json__ "End" HandOffTime.of_json in
      let start = field_map json__ "Start" HandOffTime.of_json in
      make ?end_ ?start ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about when an on-call shift begins and ends."]
module DayOfWeek =
  struct
    type nonrec t =
      | MON 
      | TUE 
      | WED 
      | THU 
      | FRI 
      | SAT 
      | SUN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MON -> "MON"
      | TUE -> "TUE"
      | WED -> "WED"
      | THU -> "THU"
      | FRI -> "FRI"
      | SAT -> "SAT"
      | SUN -> "SUN"
      | Non_static_id s -> s
    let of_string =
      function
      | "MON" -> MON
      | "TUE" -> TUE
      | "WED" -> WED
      | "THU" -> THU
      | "FRI" -> FRI
      | "SAT" -> SAT
      | "SUN" -> SUN
      | 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 DayOfWeek" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DayOfWeek" j)
    let to_json = simple_to_json to_value
  end
module Target =
  struct
    type nonrec t =
      {
      channelTargetInfo: ChannelTargetInfo.t option
        [@ocaml.doc
          "Information about the contact channel that Incident Manager engages."];
      contactTargetInfo: ContactTargetInfo.t option
        [@ocaml.doc
          "Information about the contact that Incident Manager engages."]}
    let make ?channelTargetInfo =
      fun ?contactTargetInfo ->
        fun () -> { channelTargetInfo; contactTargetInfo }
    let to_value x =
      structure_to_value
        [("ChannelTargetInfo",
           (Option.map x.channelTargetInfo ~f:ChannelTargetInfo.to_value));
        ("ContactTargetInfo",
          (Option.map x.contactTargetInfo ~f:ContactTargetInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactTargetInfo =
        (Option.map ~f:ContactTargetInfo.of_xml)
          (Xml.child xml_arg0 "ContactTargetInfo") in
      let channelTargetInfo =
        (Option.map ~f:ChannelTargetInfo.of_xml)
          (Xml.child xml_arg0 "ChannelTargetInfo") in
      make ?contactTargetInfo ?channelTargetInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactTargetInfo =
        field_map json__ "ContactTargetInfo" ContactTargetInfo.of_json in
      let channelTargetInfo =
        field_map json__ "ChannelTargetInfo" ChannelTargetInfo.of_json in
      make ?contactTargetInfo ?channelTargetInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The contact or contact channel that's being engaged."]
module MonthlySetting =
  struct
    type nonrec t =
      {
      dayOfMonth: DayOfMonth.t
        [@ocaml.doc
          "The day of the month when monthly recurring on-call rotations begin."];
      handOffTime: HandOffTime.t
        [@ocaml.doc
          "The time of day when a monthly recurring on-call shift rotation begins."]}
    let context_ = "MonthlySetting"
    let make ~dayOfMonth =
      fun ~handOffTime -> fun () -> { dayOfMonth; handOffTime }
    let to_value x =
      structure_to_value
        [("DayOfMonth", (Some (DayOfMonth.to_value x.dayOfMonth)));
        ("HandOffTime", (Some (HandOffTime.to_value x.handOffTime)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let handOffTime =
        HandOffTime.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "HandOffTime") in
      let dayOfMonth =
        DayOfMonth.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DayOfMonth") in
      make ~handOffTime ~dayOfMonth ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let handOffTime =
        field_map_exn json__ "HandOffTime" HandOffTime.of_json in
      let dayOfMonth = field_map_exn json__ "DayOfMonth" DayOfMonth.of_json in
      make ~handOffTime ~dayOfMonth ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about on-call rotations that recur monthly."]
module CoverageTimes =
  struct
    type nonrec t = CoverageTime.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:CoverageTime.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:CoverageTime.of_xml)
    let of_json j =
      list_of_json ~kind:"CoverageTimes" ~of_json:CoverageTime.of_json j
    let to_json v = composed_to_json to_value v
  end
module WeeklySetting =
  struct
    type nonrec t =
      {
      dayOfWeek: DayOfWeek.t
        [@ocaml.doc
          "The day of the week when weekly recurring on-call shift rotations begins."];
      handOffTime: HandOffTime.t
        [@ocaml.doc
          "The time of day when a weekly recurring on-call shift rotation begins."]}
    let context_ = "WeeklySetting"
    let make ~dayOfWeek =
      fun ~handOffTime -> fun () -> { dayOfWeek; handOffTime }
    let to_value x =
      structure_to_value
        [("DayOfWeek", (Some (DayOfWeek.to_value x.dayOfWeek)));
        ("HandOffTime", (Some (HandOffTime.to_value x.handOffTime)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let handOffTime =
        HandOffTime.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "HandOffTime") in
      let dayOfWeek =
        DayOfWeek.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DayOfWeek") in
      make ~handOffTime ~dayOfWeek ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let handOffTime =
        field_map_exn json__ "HandOffTime" HandOffTime.of_json in
      let dayOfWeek = field_map_exn json__ "DayOfWeek" DayOfWeek.of_json in
      make ~handOffTime ~dayOfWeek ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about rotations that recur weekly."]
module SsmContactsArnList =
  struct
    type nonrec t = SsmContactsArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SsmContactsArn.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:SsmContactsArn.of_xml)
    let of_json j =
      list_of_json ~kind:"SsmContactsArnList" ~of_json:SsmContactsArn.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module StageDurationInMins =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:30) >>= (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 StageDurationInMins" 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 TargetsList =
  struct
    type nonrec t = Target.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:Target.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:Target.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetsList" ~of_json:Target.of_json j
    let to_json v = composed_to_json to_value v
  end
module DailySettings =
  struct
    type nonrec t = HandOffTime.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:HandOffTime.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:HandOffTime.of_xml)
    let of_json j =
      list_of_json ~kind:"DailySettings" ~of_json:HandOffTime.of_json j
    let to_json v = composed_to_json to_value v
  end
module MonthlySettings =
  struct
    type nonrec t = MonthlySetting.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:MonthlySetting.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:MonthlySetting.of_xml)
    let of_json j =
      list_of_json ~kind:"MonthlySettings" ~of_json:MonthlySetting.of_json j
    let to_json v = composed_to_json to_value v
  end
module NumberOfOnCalls =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (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 NumberOfOnCalls" 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 RecurrenceMultiplier =
  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 RecurrenceMultiplier" 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 ShiftCoveragesMap =
  struct
    type nonrec t = (DayOfWeek.t * CoverageTimes.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types DayOfWeek CoverageTimes"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (DayOfWeek.to_value x) |>
                    (fun x -> (CoverageTimes.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:DayOfWeek.of_string
        ~of_json:CoverageTimes.of_json j
    let to_json v = composed_to_json to_value v
  end
module WeeklySettings =
  struct
    type nonrec t = WeeklySetting.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:WeeklySetting.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:WeeklySetting.of_xml)
    let of_json j =
      list_of_json ~kind:"WeeklySettings" ~of_json:WeeklySetting.of_json j
    let to_json v = composed_to_json to_value v
  end
module Member =
  struct
    type nonrec t = string
    let context_ = "Member"
    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:".*\\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:"Member" j
    let to_json = simple_to_json to_value
  end
module SimpleAddress =
  struct
    type nonrec t = string
    let context_ = "SimpleAddress"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:320) >>=
             (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:"SimpleAddress" j
    let to_json = simple_to_json to_value
  end
module DependentEntity =
  struct
    type nonrec t =
      {
      relationType: String_.t option
        [@ocaml.doc
          "The type of relationship between one resource and the other resource that it is related to or depends on."];
      dependentResourceIds: SsmContactsArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the dependent resources."]}
    let make ?relationType =
      fun ?dependentResourceIds ->
        fun () -> { relationType; dependentResourceIds }
    let to_value x =
      structure_to_value
        [("RelationType", (Option.map x.relationType ~f:String_.to_value));
        ("DependentResourceIds",
          (Option.map x.dependentResourceIds ~f:SsmContactsArnList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dependentResourceIds =
        (Option.map ~f:SsmContactsArnList.of_xml)
          (Xml.child xml_arg0 "DependentResourceIds") in
      let relationType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "RelationType") in
      make ?dependentResourceIds ?relationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dependentResourceIds =
        field_map json__ "DependentResourceIds" SsmContactsArnList.of_json in
      let relationType = field_map json__ "RelationType" String_.of_json in
      make ?dependentResourceIds ?relationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a resource that another resource is related to or depends on. For example, if a contact is a member of a rotation, the rotation is a dependent entity of the contact."]
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the field that caused the exception."];
      message: String_.t option
        [@ocaml.doc
          "Information about what caused the field to cause an exception."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides information about which field caused the exception."]
module Stage =
  struct
    type nonrec t =
      {
      durationInMinutes: StageDurationInMins.t
        [@ocaml.doc
          "The time to wait until beginning the next stage. The duration can only be set to 0 if a target is specified."];
      targets: TargetsList.t
        [@ocaml.doc
          "The contacts or contact methods that the escalation plan or engagement plan is engaging."]}
    let context_ = "Stage"
    let make ~durationInMinutes =
      fun ~targets -> fun () -> { durationInMinutes; targets }
    let to_value x =
      structure_to_value
        [("DurationInMinutes",
           (Some (StageDurationInMins.to_value x.durationInMinutes)));
        ("Targets", (Some (TargetsList.to_value x.targets)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targets =
        TargetsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Targets") in
      let durationInMinutes =
        StageDurationInMins.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DurationInMinutes") in
      make ~targets ~durationInMinutes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targets = field_map_exn json__ "Targets" TargetsList.of_json in
      let durationInMinutes =
        field_map_exn json__ "DurationInMinutes" StageDurationInMins.of_json in
      make ~targets ~durationInMinutes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A set amount of time that an escalation plan or engagement plan engages the specified contacts or contact methods."]
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:"^[\\\\\\/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:"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:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[\\p{L}\\p{Z}\\p{N}_.:\\/=+\\-@]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module DateTime =
  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 RecurrenceSettings =
  struct
    type nonrec t =
      {
      monthlySettings: MonthlySettings.t option
        [@ocaml.doc
          "Information about on-call rotations that recur monthly."];
      weeklySettings: WeeklySettings.t option
        [@ocaml.doc "Information about on-call rotations that recur weekly."];
      dailySettings: DailySettings.t option
        [@ocaml.doc "Information about on-call rotations that recur daily."];
      numberOfOnCalls: NumberOfOnCalls.t
        [@ocaml.doc
          "The number of contacts, or shift team members designated to be on call concurrently during a shift. For example, in an on-call schedule that contains ten contacts, a value of 2 designates that two of them are on call at any given time."];
      shiftCoverages: ShiftCoveragesMap.t option
        [@ocaml.doc
          "Information about the days of the week that the on-call rotation coverage includes."];
      recurrenceMultiplier: RecurrenceMultiplier.t
        [@ocaml.doc
          "The number of days, weeks, or months a single rotation lasts."]}
    let context_ = "RecurrenceSettings"
    let make ?monthlySettings =
      fun ?weeklySettings ->
        fun ?dailySettings ->
          fun ?shiftCoverages ->
            fun ~numberOfOnCalls ->
              fun ~recurrenceMultiplier ->
                fun () ->
                  {
                    monthlySettings;
                    weeklySettings;
                    dailySettings;
                    shiftCoverages;
                    numberOfOnCalls;
                    recurrenceMultiplier
                  }
    let to_value x =
      structure_to_value
        [("MonthlySettings",
           (Option.map x.monthlySettings ~f:MonthlySettings.to_value));
        ("WeeklySettings",
          (Option.map x.weeklySettings ~f:WeeklySettings.to_value));
        ("DailySettings",
          (Option.map x.dailySettings ~f:DailySettings.to_value));
        ("NumberOfOnCalls",
          (Some (NumberOfOnCalls.to_value x.numberOfOnCalls)));
        ("ShiftCoverages",
          (Option.map x.shiftCoverages ~f:ShiftCoveragesMap.to_value));
        ("RecurrenceMultiplier",
          (Some (RecurrenceMultiplier.to_value x.recurrenceMultiplier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recurrenceMultiplier =
        RecurrenceMultiplier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RecurrenceMultiplier") in
      let shiftCoverages =
        (Option.map ~f:ShiftCoveragesMap.of_xml)
          (Xml.child xml_arg0 "ShiftCoverages") in
      let numberOfOnCalls =
        NumberOfOnCalls.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NumberOfOnCalls") in
      let dailySettings =
        (Option.map ~f:DailySettings.of_xml)
          (Xml.child xml_arg0 "DailySettings") in
      let weeklySettings =
        (Option.map ~f:WeeklySettings.of_xml)
          (Xml.child xml_arg0 "WeeklySettings") in
      let monthlySettings =
        (Option.map ~f:MonthlySettings.of_xml)
          (Xml.child xml_arg0 "MonthlySettings") in
      make ~recurrenceMultiplier ?shiftCoverages ~numberOfOnCalls
        ?dailySettings ?weeklySettings ?monthlySettings ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recurrenceMultiplier =
        field_map_exn json__ "RecurrenceMultiplier"
          RecurrenceMultiplier.of_json in
      let shiftCoverages =
        field_map json__ "ShiftCoverages" ShiftCoveragesMap.of_json in
      let numberOfOnCalls =
        field_map_exn json__ "NumberOfOnCalls" NumberOfOnCalls.of_json in
      let dailySettings =
        field_map json__ "DailySettings" DailySettings.of_json in
      let weeklySettings =
        field_map json__ "WeeklySettings" WeeklySettings.of_json in
      let monthlySettings =
        field_map json__ "MonthlySettings" MonthlySettings.of_json in
      make ~recurrenceMultiplier ?shiftCoverages ~numberOfOnCalls
        ?dailySettings ?weeklySettings ?monthlySettings ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about when an on-call rotation is in effect and how long the rotation period lasts."]
module RotationName =
  struct
    type nonrec t = string
    let context_ = "RotationName"
    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_\\-\\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:"RotationName" j
    let to_json = simple_to_json to_value
  end
module TimeZoneId =
  struct
    type nonrec t = string
    let context_ = "TimeZoneId"
    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_\\-\\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:"TimeZoneId" j
    let to_json = simple_to_json to_value
  end
module ShiftDetails =
  struct
    type nonrec t =
      {
      overriddenContactIds: SsmContactsArnList.t option
        [@ocaml.doc
          "The Amazon Resources Names (ARNs) of the contacts who were replaced in a shift when an override was created. If the override is deleted, these contacts are restored to the shift."]}
    let make ?overriddenContactIds = fun () -> { overriddenContactIds }
    let to_value x =
      structure_to_value
        [("OverriddenContactIds",
           (Option.map x.overriddenContactIds ~f:SsmContactsArnList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let overriddenContactIds =
        (Option.map ~f:SsmContactsArnList.of_xml)
          (Xml.child xml_arg0 "OverriddenContactIds") in
      make ?overriddenContactIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let overriddenContactIds =
        field_map json__ "OverriddenContactIds" SsmContactsArnList.of_json in
      make ?overriddenContactIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about overrides to an on-call rotation shift."]
module ShiftType =
  struct
    type nonrec t =
      | REGULAR 
      | OVERRIDDEN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REGULAR -> "REGULAR"
      | OVERRIDDEN -> "OVERRIDDEN"
      | Non_static_id s -> s
    let of_string =
      function
      | "REGULAR" -> REGULAR
      | "OVERRIDDEN" -> OVERRIDDEN
      | 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 ShiftType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ShiftType" j)
    let to_json = simple_to_json to_value
  end
module Uuid =
  struct
    type nonrec t = string
    let context_ = "Uuid"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:36) >>=
             (fun () ->
                (check_string_max i ~max:39) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([a-fA-Z0-9]{8,11}-[a-fA-F0-9]{4}-[a-fA-F0-9]{4}-[a-fA-F0-9]{4}-[a-fA-F0-9]{12}){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:"Uuid" j
    let to_json = simple_to_json to_value
  end
module RotationOverridePreviewMemberList =
  struct
    type nonrec t = Member.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Member.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:Member.of_xml)
    let of_json j =
      list_of_json ~kind:"RotationOverridePreviewMemberList"
        ~of_json:Member.of_json j
    let to_json v = composed_to_json to_value v
  end
module IncidentId =
  struct
    type nonrec t = string
    let context_ = "IncidentId"
    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_@#%*+=:?.\\/!\\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:"IncidentId" j
    let to_json = simple_to_json to_value
  end
module Sender =
  struct
    type nonrec t = string
    let context_ = "Sender"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^[\\\\a-zA-Z0-9_@#%*+=:?.\\/!\\s-]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Sender" j
    let to_json = simple_to_json to_value
  end
module ContactType =
  struct
    type nonrec t =
      | PERSONAL 
      | ESCALATION 
      | ONCALL_SCHEDULE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PERSONAL -> "PERSONAL"
      | ESCALATION -> "ESCALATION"
      | ONCALL_SCHEDULE -> "ONCALL_SCHEDULE"
      | Non_static_id s -> s
    let of_string =
      function
      | "PERSONAL" -> PERSONAL
      | "ESCALATION" -> ESCALATION
      | "ONCALL_SCHEDULE" -> ONCALL_SCHEDULE
      | 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 ContactType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ContactType" j)
    let to_json = simple_to_json to_value
  end
module StageIndex =
  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: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 StageIndex" 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 ReceiptInfo =
  struct
    type nonrec t = string
    let context_ = "ReceiptInfo"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"^[.\\s\\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:"ReceiptInfo" j
    let to_json = simple_to_json to_value
  end
module ReceiptType =
  struct
    type nonrec t =
      | DELIVERED 
      | ERROR 
      | READ 
      | SENT 
      | STOP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DELIVERED -> "DELIVERED"
      | ERROR -> "ERROR"
      | READ -> "READ"
      | SENT -> "SENT"
      | STOP -> "STOP"
      | Non_static_id s -> s
    let of_string =
      function
      | "DELIVERED" -> DELIVERED
      | "ERROR" -> ERROR
      | "READ" -> READ
      | "SENT" -> SENT
      | "STOP" -> STOP
      | 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 ReceiptType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReceiptType" j)
    let to_json = simple_to_json to_value
  end
module ContactAlias =
  struct
    type nonrec t = string
    let context_ = "ContactAlias"
    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-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:"ContactAlias" j
    let to_json = simple_to_json to_value
  end
module ContactName =
  struct
    type nonrec t = string
    let context_ = "ContactName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (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:"ContactName" j
    let to_json = simple_to_json to_value
  end
module ActivationStatus =
  struct
    type nonrec t =
      | ACTIVATED 
      | NOT_ACTIVATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVATED -> "ACTIVATED"
      | NOT_ACTIVATED -> "NOT_ACTIVATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVATED" -> ACTIVATED
      | "NOT_ACTIVATED" -> NOT_ACTIVATED
      | 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 ActivationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ActivationStatus" j)
    let to_json = simple_to_json to_value
  end
module ChannelName =
  struct
    type nonrec t = string
    let context_ = "ChannelName"
    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:"^[\\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:"ChannelName" j
    let to_json = simple_to_json to_value
  end
module ChannelType =
  struct
    type nonrec t =
      | SMS 
      | VOICE 
      | EMAIL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SMS -> "SMS"
      | VOICE -> "VOICE"
      | EMAIL -> "EMAIL"
      | Non_static_id s -> s
    let of_string =
      function
      | "SMS" -> SMS
      | "VOICE" -> VOICE
      | "EMAIL" -> EMAIL
      | 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 ChannelType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChannelType" j)
    let to_json = simple_to_json to_value
  end
module ContactChannelAddress =
  struct
    type nonrec t =
      {
      simpleAddress: SimpleAddress.t option
        [@ocaml.doc
          "The format is dependent on the type of the contact channel. The following are the expected formats: SMS - '+' followed by the country code and phone number VOICE - '+' followed by the country code and phone number EMAIL - any standard email format"]}
    let make ?simpleAddress = fun () -> { simpleAddress }
    let to_value x =
      structure_to_value
        [("SimpleAddress",
           (Option.map x.simpleAddress ~f:SimpleAddress.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let simpleAddress =
        (Option.map ~f:SimpleAddress.of_xml)
          (Xml.child xml_arg0 "SimpleAddress") in
      make ?simpleAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let simpleAddress =
        field_map json__ "SimpleAddress" SimpleAddress.of_json in
      make ?simpleAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details that Incident Manager uses when trying to engage the contact channel."]
module DependentEntityList =
  struct
    type nonrec t = DependentEntity.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:DependentEntity.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:DependentEntity.of_xml)
    let of_json j =
      list_of_json ~kind:"DependentEntityList"
        ~of_json:DependentEntity.of_json j
    let to_json v = composed_to_json to_value v
  end
module RetryAfterSeconds =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for RetryAfterSeconds" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ValidationExceptionField.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | UNKNOWN_OPERATION 
      | CANNOT_PARSE 
      | FIELD_VALIDATION_FAILED 
      | OTHER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNKNOWN_OPERATION -> "UNKNOWN_OPERATION"
      | CANNOT_PARSE -> "CANNOT_PARSE"
      | FIELD_VALIDATION_FAILED -> "FIELD_VALIDATION_FAILED"
      | OTHER -> "OTHER"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNKNOWN_OPERATION" -> UNKNOWN_OPERATION
      | "CANNOT_PARSE" -> CANNOT_PARSE
      | "FIELD_VALIDATION_FAILED" -> FIELD_VALIDATION_FAILED
      | "OTHER" -> OTHER
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module StagesList =
  struct
    type nonrec t = Stage.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:Stage.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:Stage.of_xml)
    let of_json j = list_of_json ~kind:"StagesList" ~of_json:Stage.of_json j
    let to_json v = composed_to_json to_value v
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t option [@ocaml.doc "Name of the object key."];
      value: TagValue.t option [@ocaml.doc "Value of the tag."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:TagKey.to_value));
        ("Value", (Option.map x.value ~f:TagValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:TagValue.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:TagKey.of_xml) (Xml.child 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 json__ "Value" TagValue.of_json in
      let key = field_map json__ "Key" TagKey.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A container of a key-value name pair."]
module Rotation =
  struct
    type nonrec t =
      {
      rotationArn: SsmContactsArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the rotation."];
      name: RotationName.t option [@ocaml.doc "The name of the rotation."];
      contactIds: SsmContactsArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the contacts assigned to the rotation team."];
      startTime: DateTime.t option
        [@ocaml.doc "The date and time the rotation becomes active."];
      timeZoneId: TimeZoneId.t option
        [@ocaml.doc
          "The time zone the rotation\226\128\153s activity is based on, in Internet Assigned Numbers Authority (IANA) format. For example: \"America/Los_Angeles\", \"UTC\", or \"Asia/Seoul\"."];
      recurrence: RecurrenceSettings.t option
        [@ocaml.doc
          "Information about when an on-call rotation is in effect and how long the rotation period lasts."]}
    let make ?rotationArn =
      fun ?name ->
        fun ?contactIds ->
          fun ?startTime ->
            fun ?timeZoneId ->
              fun ?recurrence ->
                fun () ->
                  {
                    rotationArn;
                    name;
                    contactIds;
                    startTime;
                    timeZoneId;
                    recurrence
                  }
    let to_value x =
      structure_to_value
        [("RotationArn",
           (Option.map x.rotationArn ~f:SsmContactsArn.to_value));
        ("Name", (Option.map x.name ~f:RotationName.to_value));
        ("ContactIds",
          (Option.map x.contactIds ~f:SsmContactsArnList.to_value));
        ("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("TimeZoneId", (Option.map x.timeZoneId ~f:TimeZoneId.to_value));
        ("Recurrence",
          (Option.map x.recurrence ~f:RecurrenceSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recurrence =
        (Option.map ~f:RecurrenceSettings.of_xml)
          (Xml.child xml_arg0 "Recurrence") in
      let timeZoneId =
        (Option.map ~f:TimeZoneId.of_xml) (Xml.child xml_arg0 "TimeZoneId") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let contactIds =
        (Option.map ~f:SsmContactsArnList.of_xml)
          (Xml.child xml_arg0 "ContactIds") in
      let name =
        (Option.map ~f:RotationName.of_xml) (Xml.child xml_arg0 "Name") in
      let rotationArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "RotationArn") in
      make ?recurrence ?timeZoneId ?startTime ?contactIds ?name ?rotationArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recurrence =
        field_map json__ "Recurrence" RecurrenceSettings.of_json in
      let timeZoneId = field_map json__ "TimeZoneId" TimeZoneId.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      let contactIds =
        field_map json__ "ContactIds" SsmContactsArnList.of_json in
      let name = field_map json__ "Name" RotationName.of_json in
      let rotationArn = field_map json__ "RotationArn" SsmContactsArn.of_json in
      make ?recurrence ?timeZoneId ?startTime ?contactIds ?name ?rotationArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a rotation in an on-call schedule."]
module RotationShift =
  struct
    type nonrec t =
      {
      contactIds: SsmContactsArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the contacts who are part of the shift rotation."];
      startTime: DateTime.t option
        [@ocaml.doc "The time a shift rotation begins."];
      endTime: DateTime.t option
        [@ocaml.doc "The time a shift rotation ends."];
      type_: ShiftType.t option [@ocaml.doc "The type of shift rotation."];
      shiftDetails: ShiftDetails.t option
        [@ocaml.doc
          "Additional information about an on-call rotation shift."]}
    let make ?contactIds =
      fun ?startTime ->
        fun ?endTime ->
          fun ?type_ ->
            fun ?shiftDetails ->
              fun () ->
                { contactIds; startTime; endTime; type_; shiftDetails }
    let to_value x =
      structure_to_value
        [("ContactIds",
           (Option.map x.contactIds ~f:SsmContactsArnList.to_value));
        ("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("EndTime", (Option.map x.endTime ~f:DateTime.to_value));
        ("Type", (Option.map x.type_ ~f:ShiftType.to_value));
        ("ShiftDetails",
          (Option.map x.shiftDetails ~f:ShiftDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let shiftDetails =
        (Option.map ~f:ShiftDetails.of_xml)
          (Xml.child xml_arg0 "ShiftDetails") in
      let type_ =
        (Option.map ~f:ShiftType.of_xml) (Xml.child xml_arg0 "Type") in
      let endTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let contactIds =
        (Option.map ~f:SsmContactsArnList.of_xml)
          (Xml.child xml_arg0 "ContactIds") in
      make ?shiftDetails ?type_ ?endTime ?startTime ?contactIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let shiftDetails = field_map json__ "ShiftDetails" ShiftDetails.of_json in
      let type_ = field_map json__ "Type" ShiftType.of_json in
      let endTime = field_map json__ "EndTime" DateTime.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      let contactIds =
        field_map json__ "ContactIds" SsmContactsArnList.of_json in
      make ?shiftDetails ?type_ ?endTime ?startTime ?contactIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a shift that belongs to an on-call rotation."]
module RotationOverride =
  struct
    type nonrec t =
      {
      rotationOverrideId: Uuid.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the override to an on-call rotation."];
      newContactIds: SsmContactsArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the contacts assigned to the override of the on-call rotation."];
      startTime: DateTime.t option
        [@ocaml.doc "The time a rotation override begins."];
      endTime: DateTime.t option
        [@ocaml.doc "The time a rotation override ends."];
      createTime: DateTime.t option
        [@ocaml.doc "The time a rotation override was created."]}
    let make ?rotationOverrideId =
      fun ?newContactIds ->
        fun ?startTime ->
          fun ?endTime ->
            fun ?createTime ->
              fun () ->
                {
                  rotationOverrideId;
                  newContactIds;
                  startTime;
                  endTime;
                  createTime
                }
    let to_value x =
      structure_to_value
        [("RotationOverrideId",
           (Option.map x.rotationOverrideId ~f:Uuid.to_value));
        ("NewContactIds",
          (Option.map x.newContactIds ~f:SsmContactsArnList.to_value));
        ("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("EndTime", (Option.map x.endTime ~f:DateTime.to_value));
        ("CreateTime", (Option.map x.createTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreateTime") in
      let endTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let newContactIds =
        (Option.map ~f:SsmContactsArnList.of_xml)
          (Xml.child xml_arg0 "NewContactIds") in
      let rotationOverrideId =
        (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "RotationOverrideId") in
      make ?createTime ?endTime ?startTime ?newContactIds ?rotationOverrideId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createTime = field_map json__ "CreateTime" DateTime.of_json in
      let endTime = field_map json__ "EndTime" DateTime.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      let newContactIds =
        field_map json__ "NewContactIds" SsmContactsArnList.of_json in
      let rotationOverrideId =
        field_map json__ "RotationOverrideId" Uuid.of_json in
      make ?createTime ?endTime ?startTime ?newContactIds ?rotationOverrideId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about an override specified for an on-call rotation."]
module PreviewOverride =
  struct
    type nonrec t =
      {
      newMembers: RotationOverridePreviewMemberList.t option
        [@ocaml.doc
          "Information about contacts to add to an on-call rotation override."];
      startTime: DateTime.t option
        [@ocaml.doc
          "Information about the time a rotation override would begin."];
      endTime: DateTime.t option
        [@ocaml.doc
          "Information about the time a rotation override would end."]}
    let make ?newMembers =
      fun ?startTime ->
        fun ?endTime -> fun () -> { newMembers; startTime; endTime }
    let to_value x =
      structure_to_value
        [("NewMembers",
           (Option.map x.newMembers
              ~f:RotationOverridePreviewMemberList.to_value));
        ("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("EndTime", (Option.map x.endTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let newMembers =
        (Option.map ~f:RotationOverridePreviewMemberList.of_xml)
          (Xml.child xml_arg0 "NewMembers") in
      make ?endTime ?startTime ?newMembers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTime = field_map json__ "EndTime" DateTime.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      let newMembers =
        field_map json__ "NewMembers"
          RotationOverridePreviewMemberList.of_json in
      make ?endTime ?startTime ?newMembers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about contacts and times that an on-call override replaces."]
module Page =
  struct
    type nonrec t =
      {
      pageArn: SsmContactsArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the page to the contact channel."];
      engagementArn: SsmContactsArn.t option
        [@ocaml.doc "The ARN of the engagement that this page is part of."];
      contactArn: SsmContactsArn.t option
        [@ocaml.doc
          "The ARN of the contact that Incident Manager is engaging."];
      sender: Sender.t option
        [@ocaml.doc "The user that started the engagement."];
      incidentId: IncidentId.t option
        [@ocaml.doc
          "The ARN of the incident that's engaging the contact channel."];
      sentTime: DateTime.t option
        [@ocaml.doc
          "The time that Incident Manager engaged the contact channel."];
      deliveryTime: DateTime.t option
        [@ocaml.doc
          "The time the message was delivered to the contact channel."];
      readTime: DateTime.t option
        [@ocaml.doc
          "The time that the contact channel acknowledged engagement."]}
    let make ?pageArn =
      fun ?engagementArn ->
        fun ?contactArn ->
          fun ?sender ->
            fun ?incidentId ->
              fun ?sentTime ->
                fun ?deliveryTime ->
                  fun ?readTime ->
                    fun () ->
                      {
                        pageArn;
                        engagementArn;
                        contactArn;
                        sender;
                        incidentId;
                        sentTime;
                        deliveryTime;
                        readTime
                      }
    let to_value x =
      structure_to_value
        [("PageArn", (Option.map x.pageArn ~f:SsmContactsArn.to_value));
        ("EngagementArn",
          (Option.map x.engagementArn ~f:SsmContactsArn.to_value));
        ("ContactArn", (Option.map x.contactArn ~f:SsmContactsArn.to_value));
        ("Sender", (Option.map x.sender ~f:Sender.to_value));
        ("IncidentId", (Option.map x.incidentId ~f:IncidentId.to_value));
        ("SentTime", (Option.map x.sentTime ~f:DateTime.to_value));
        ("DeliveryTime", (Option.map x.deliveryTime ~f:DateTime.to_value));
        ("ReadTime", (Option.map x.readTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let readTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "ReadTime") in
      let deliveryTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "DeliveryTime") in
      let sentTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "SentTime") in
      let incidentId =
        (Option.map ~f:IncidentId.of_xml) (Xml.child xml_arg0 "IncidentId") in
      let sender =
        (Option.map ~f:Sender.of_xml) (Xml.child xml_arg0 "Sender") in
      let contactArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactArn") in
      let engagementArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "EngagementArn") in
      let pageArn =
        (Option.map ~f:SsmContactsArn.of_xml) (Xml.child xml_arg0 "PageArn") in
      make ?readTime ?deliveryTime ?sentTime ?incidentId ?sender ?contactArn
        ?engagementArn ?pageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let readTime = field_map json__ "ReadTime" DateTime.of_json in
      let deliveryTime = field_map json__ "DeliveryTime" DateTime.of_json in
      let sentTime = field_map json__ "SentTime" DateTime.of_json in
      let incidentId = field_map json__ "IncidentId" IncidentId.of_json in
      let sender = field_map json__ "Sender" Sender.of_json in
      let contactArn = field_map json__ "ContactArn" SsmContactsArn.of_json in
      let engagementArn =
        field_map json__ "EngagementArn" SsmContactsArn.of_json in
      let pageArn = field_map json__ "PageArn" SsmContactsArn.of_json in
      make ?readTime ?deliveryTime ?sentTime ?incidentId ?sender ?contactArn
        ?engagementArn ?pageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Incident Manager engaging a contact's contact channel."]
module ResolutionContact =
  struct
    type nonrec t =
      {
      contactArn: SsmContactsArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a contact in the engagement resolution process."];
      type_: ContactType.t option
        [@ocaml.doc "The type of contact for a resolution step."];
      stageIndex: StageIndex.t option
        [@ocaml.doc
          "The stage in the escalation plan that resolves to this contact."]}
    let make ?contactArn =
      fun ?type_ ->
        fun ?stageIndex -> fun () -> { contactArn; type_; stageIndex }
    let to_value x =
      structure_to_value
        [("ContactArn", (Option.map x.contactArn ~f:SsmContactsArn.to_value));
        ("Type", (Option.map x.type_ ~f:ContactType.to_value));
        ("StageIndex", (Option.map x.stageIndex ~f:StageIndex.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stageIndex =
        (Option.map ~f:StageIndex.of_xml) (Xml.child xml_arg0 "StageIndex") in
      let type_ =
        (Option.map ~f:ContactType.of_xml) (Xml.child xml_arg0 "Type") in
      let contactArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactArn") in
      make ?stageIndex ?type_ ?contactArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stageIndex = field_map json__ "StageIndex" StageIndex.of_json in
      let type_ = field_map json__ "Type" ContactType.of_json in
      let contactArn = field_map json__ "ContactArn" SsmContactsArn.of_json in
      make ?stageIndex ?type_ ?contactArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the engagement resolution steps. The resolution starts from the first contact, which can be an escalation plan, then resolves to an on-call rotation, and finally to a personal contact. The ResolutionContact structure describes the information for each node or step in that process. It contains information about different contact types, such as the escalation, rotation, and personal contacts."]
module Receipt =
  struct
    type nonrec t =
      {
      contactChannelArn: SsmContactsArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact channel Incident Manager engaged."];
      receiptType: ReceiptType.t option
        [@ocaml.doc
          "The type follows the engagement cycle, SENT, DELIVERED, and READ."];
      receiptInfo: ReceiptInfo.t option
        [@ocaml.doc "Information provided during the page acknowledgement."];
      receiptTime: DateTime.t option
        [@ocaml.doc "The time receipt was SENT, DELIVERED, or READ."]}
    let make ?contactChannelArn =
      fun ?receiptType ->
        fun ?receiptInfo ->
          fun ?receiptTime ->
            fun () ->
              { contactChannelArn; receiptType; receiptInfo; receiptTime }
    let to_value x =
      structure_to_value
        [("ContactChannelArn",
           (Option.map x.contactChannelArn ~f:SsmContactsArn.to_value));
        ("ReceiptType", (Option.map x.receiptType ~f:ReceiptType.to_value));
        ("ReceiptInfo", (Option.map x.receiptInfo ~f:ReceiptInfo.to_value));
        ("ReceiptTime", (Option.map x.receiptTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let receiptTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "ReceiptTime") in
      let receiptInfo =
        (Option.map ~f:ReceiptInfo.of_xml) (Xml.child xml_arg0 "ReceiptInfo") in
      let receiptType =
        (Option.map ~f:ReceiptType.of_xml) (Xml.child xml_arg0 "ReceiptType") in
      let contactChannelArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactChannelArn") in
      make ?receiptTime ?receiptInfo ?receiptType ?contactChannelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let receiptTime = field_map json__ "ReceiptTime" DateTime.of_json in
      let receiptInfo = field_map json__ "ReceiptInfo" ReceiptInfo.of_json in
      let receiptType = field_map json__ "ReceiptType" ReceiptType.of_json in
      let contactChannelArn =
        field_map json__ "ContactChannelArn" SsmContactsArn.of_json in
      make ?receiptTime ?receiptInfo ?receiptType ?contactChannelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Records events during an engagement."]
module Engagement =
  struct
    type nonrec t =
      {
      engagementArn: SsmContactsArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the engagement."];
      contactArn: SsmContactsArn.t option
        [@ocaml.doc
          "The ARN of the escalation plan or contact that Incident Manager is engaging."];
      sender: Sender.t option
        [@ocaml.doc "The user that started the engagement."];
      incidentId: IncidentId.t option
        [@ocaml.doc "The ARN of the incident that's engaging the contact."];
      startTime: DateTime.t option
        [@ocaml.doc "The time that the engagement began."];
      stopTime: DateTime.t option
        [@ocaml.doc "The time that the engagement ended."]}
    let make ?engagementArn =
      fun ?contactArn ->
        fun ?sender ->
          fun ?incidentId ->
            fun ?startTime ->
              fun ?stopTime ->
                fun () ->
                  {
                    engagementArn;
                    contactArn;
                    sender;
                    incidentId;
                    startTime;
                    stopTime
                  }
    let to_value x =
      structure_to_value
        [("EngagementArn",
           (Option.map x.engagementArn ~f:SsmContactsArn.to_value));
        ("ContactArn", (Option.map x.contactArn ~f:SsmContactsArn.to_value));
        ("Sender", (Option.map x.sender ~f:Sender.to_value));
        ("IncidentId", (Option.map x.incidentId ~f:IncidentId.to_value));
        ("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("StopTime", (Option.map x.stopTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stopTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StopTime") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let incidentId =
        (Option.map ~f:IncidentId.of_xml) (Xml.child xml_arg0 "IncidentId") in
      let sender =
        (Option.map ~f:Sender.of_xml) (Xml.child xml_arg0 "Sender") in
      let contactArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactArn") in
      let engagementArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "EngagementArn") in
      make ?stopTime ?startTime ?incidentId ?sender ?contactArn
        ?engagementArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stopTime = field_map json__ "StopTime" DateTime.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      let incidentId = field_map json__ "IncidentId" IncidentId.of_json in
      let sender = field_map json__ "Sender" Sender.of_json in
      let contactArn = field_map json__ "ContactArn" SsmContactsArn.of_json in
      let engagementArn =
        field_map json__ "EngagementArn" SsmContactsArn.of_json in
      make ?stopTime ?startTime ?incidentId ?sender ?contactArn
        ?engagementArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Incident Manager reaching out to a contact or escalation plan to engage contact during an incident."]
module Contact =
  struct
    type nonrec t =
      {
      contactArn: SsmContactsArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact or escalation plan."];
      alias: ContactAlias.t option
        [@ocaml.doc
          "The unique and identifiable alias of the contact or escalation plan."];
      displayName: ContactName.t option
        [@ocaml.doc "The full name of the contact or escalation plan."];
      type_: ContactType.t option
        [@ocaml.doc
          "The type of contact. PERSONAL: A single, individual contact. ESCALATION: An escalation plan. ONCALL_SCHEDULE: An on-call schedule."]}
    let make ?contactArn =
      fun ?alias ->
        fun ?displayName ->
          fun ?type_ -> fun () -> { contactArn; alias; displayName; type_ }
    let to_value x =
      structure_to_value
        [("ContactArn", (Option.map x.contactArn ~f:SsmContactsArn.to_value));
        ("Alias", (Option.map x.alias ~f:ContactAlias.to_value));
        ("DisplayName", (Option.map x.displayName ~f:ContactName.to_value));
        ("Type", (Option.map x.type_ ~f:ContactType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:ContactType.of_xml) (Xml.child xml_arg0 "Type") in
      let displayName =
        (Option.map ~f:ContactName.of_xml) (Xml.child xml_arg0 "DisplayName") in
      let alias =
        (Option.map ~f:ContactAlias.of_xml) (Xml.child xml_arg0 "Alias") in
      let contactArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactArn") in
      make ?type_ ?displayName ?alias ?contactArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" ContactType.of_json in
      let displayName = field_map json__ "DisplayName" ContactName.of_json in
      let alias = field_map json__ "Alias" ContactAlias.of_json in
      let contactArn = field_map json__ "ContactArn" SsmContactsArn.of_json in
      make ?type_ ?displayName ?alias ?contactArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A personal contact or escalation plan that Incident Manager engages during an incident."]
module ContactChannel =
  struct
    type nonrec t =
      {
      contactChannelArn: SsmContactsArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the contact channel."];
      contactArn: SsmContactsArn.t option
        [@ocaml.doc
          "The ARN of the contact that contains the contact channel."];
      name: ChannelName.t option
        [@ocaml.doc "The name of the contact channel."];
      type_: ChannelType.t option
        [@ocaml.doc
          "The type of the contact channel. Incident Manager supports three contact methods: SMS VOICE EMAIL"];
      deliveryAddress: ContactChannelAddress.t option
        [@ocaml.doc
          "The details that Incident Manager uses when trying to engage the contact channel."];
      activationStatus: ActivationStatus.t option
        [@ocaml.doc
          "A Boolean value describing if the contact channel has been activated or not. If the contact channel isn't activated, Incident Manager can't engage the contact through it."]}
    let make ?contactChannelArn =
      fun ?contactArn ->
        fun ?name ->
          fun ?type_ ->
            fun ?deliveryAddress ->
              fun ?activationStatus ->
                fun () ->
                  {
                    contactChannelArn;
                    contactArn;
                    name;
                    type_;
                    deliveryAddress;
                    activationStatus
                  }
    let to_value x =
      structure_to_value
        [("ContactChannelArn",
           (Option.map x.contactChannelArn ~f:SsmContactsArn.to_value));
        ("ContactArn", (Option.map x.contactArn ~f:SsmContactsArn.to_value));
        ("Name", (Option.map x.name ~f:ChannelName.to_value));
        ("Type", (Option.map x.type_ ~f:ChannelType.to_value));
        ("DeliveryAddress",
          (Option.map x.deliveryAddress ~f:ContactChannelAddress.to_value));
        ("ActivationStatus",
          (Option.map x.activationStatus ~f:ActivationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let activationStatus =
        (Option.map ~f:ActivationStatus.of_xml)
          (Xml.child xml_arg0 "ActivationStatus") in
      let deliveryAddress =
        (Option.map ~f:ContactChannelAddress.of_xml)
          (Xml.child xml_arg0 "DeliveryAddress") in
      let type_ =
        (Option.map ~f:ChannelType.of_xml) (Xml.child xml_arg0 "Type") in
      let name =
        (Option.map ~f:ChannelName.of_xml) (Xml.child xml_arg0 "Name") in
      let contactArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactArn") in
      let contactChannelArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactChannelArn") in
      make ?activationStatus ?deliveryAddress ?type_ ?name ?contactArn
        ?contactChannelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let activationStatus =
        field_map json__ "ActivationStatus" ActivationStatus.of_json in
      let deliveryAddress =
        field_map json__ "DeliveryAddress" ContactChannelAddress.of_json in
      let type_ = field_map json__ "Type" ChannelType.of_json in
      let name = field_map json__ "Name" ChannelName.of_json in
      let contactArn = field_map json__ "ContactArn" SsmContactsArn.of_json in
      let contactChannelArn =
        field_map json__ "ContactChannelArn" SsmContactsArn.of_json in
      make ?activationStatus ?deliveryAddress ?type_ ?name ?contactArn
        ?contactChannelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The method that Incident Manager uses to engage a contact."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You don't have sufficient access to perform this operation."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "Identifier of the resource in use"];
      resourceType: String_.t option
        [@ocaml.doc "Type of the resource in use"];
      dependentEntities: DependentEntityList.t option
        [@ocaml.doc
          "List of dependent entities containing information on relation type and resourceArns linked to the resource in use"]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?dependentEntities ->
            fun () ->
              { message; resourceId; resourceType; dependentEntities }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("DependentEntities",
          (Option.map x.dependentEntities ~f:DependentEntityList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dependentEntities =
        (Option.map ~f:DependentEntityList.of_xml)
          (Xml.child xml_arg0 "DependentEntities") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?dependentEntities ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dependentEntities =
        field_map json__ "DependentEntities" DependentEntityList.of_json in
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?dependentEntities ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updating or deleting a resource causes an inconsistent state."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      retryAfterSeconds: RetryAfterSeconds.t option
        [@ocaml.doc
          "Advice to clients on when the call can be safely retried"]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("RetryAfterSeconds",
          (Option.map x.retryAfterSeconds ~f:RetryAfterSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:RetryAfterSeconds.of_xml)
          (Xml.child xml_arg0 "RetryAfterSeconds") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "RetryAfterSeconds" RetryAfterSeconds.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Unexpected error occurred while processing the request."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "Hypothetical resource identifier that was not found"];
      resourceType: String_.t option
        [@ocaml.doc "Hypothetical resource type that was not found"]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request references a resource that doesn't exist."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      quotaCode: String_.t option
        [@ocaml.doc
          "Service Quotas requirement to identify originating service"];
      serviceCode: String_.t option
        [@ocaml.doc
          "Service Quotas requirement to identify originating quota"];
      retryAfterSeconds: RetryAfterSeconds.t option
        [@ocaml.doc
          "Advice to clients on when the call can be safely retried"]}
    let make ?message =
      fun ?quotaCode ->
        fun ?serviceCode ->
          fun ?retryAfterSeconds ->
            fun () -> { message; quotaCode; serviceCode; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("QuotaCode", (Option.map x.quotaCode ~f:String_.to_value));
        ("ServiceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("RetryAfterSeconds",
          (Option.map x.retryAfterSeconds ~f:RetryAfterSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:RetryAfterSeconds.of_xml)
          (Xml.child xml_arg0 "RetryAfterSeconds") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ServiceCode") in
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "QuotaCode") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?retryAfterSeconds ?serviceCode ?quotaCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "RetryAfterSeconds" RetryAfterSeconds.of_json in
      let serviceCode = field_map json__ "ServiceCode" String_.of_json in
      let quotaCode = field_map json__ "QuotaCode" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?retryAfterSeconds ?serviceCode ?quotaCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "Reason the request failed validation"];
      fields: ValidationExceptionFieldList.t option
        [@ocaml.doc "The fields that caused the error"]}
    let make ?message =
      fun ?reason -> fun ?fields -> fun () -> { message; reason; fields }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("Reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("Fields",
          (Option.map x.fields ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "Fields") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?fields ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields =
        field_map json__ "Fields" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "Reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?fields ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input fails to satisfy the constraints specified by an Amazon Web Services service."]
module RotationContactsArnList =
  struct
    type nonrec t = SsmContactsArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SsmContactsArn.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:SsmContactsArn.of_xml)
    let of_json j =
      list_of_json ~kind:"RotationContactsArnList"
        ~of_json:SsmContactsArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataEncryptionException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The operation failed to due an encryption key error."]
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "Identifier of the resource affected"];
      resourceType: String_.t option
        [@ocaml.doc "Type of the resource affected"];
      quotaCode: String_.t option
        [@ocaml.doc
          "Service Quotas requirement to identify originating service"];
      serviceCode: String_.t option
        [@ocaml.doc
          "Service Quotas requirement to identify originating quota"]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?quotaCode ->
            fun ?serviceCode ->
              fun () ->
                { message; resourceId; resourceType; quotaCode; serviceCode }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("QuotaCode", (Option.map x.quotaCode ~f:String_.to_value));
        ("ServiceCode", (Option.map x.serviceCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ServiceCode") in
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "QuotaCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?serviceCode ?quotaCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceCode = field_map json__ "ServiceCode" String_.of_json in
      let quotaCode = field_map json__ "QuotaCode" String_.of_json in
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let resourceId = field_map json__ "ResourceId" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?serviceCode ?quotaCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request would cause a service quota to be exceeded."]
module Plan =
  struct
    type nonrec t =
      {
      stages: StagesList.t option
        [@ocaml.doc
          "A list of stages that the escalation plan or engagement plan uses to engage contacts and contact methods."];
      rotationIds: SsmContactsArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the on-call rotations associated with the plan."]}
    let make ?stages = fun ?rotationIds -> fun () -> { stages; rotationIds }
    let to_value x =
      structure_to_value
        [("Stages", (Option.map x.stages ~f:StagesList.to_value));
        ("RotationIds",
          (Option.map x.rotationIds ~f:SsmContactsArnList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rotationIds =
        (Option.map ~f:SsmContactsArnList.of_xml)
          (Xml.child xml_arg0 "RotationIds") in
      let stages =
        (Option.map ~f:StagesList.of_xml) (Xml.child xml_arg0 "Stages") in
      make ?rotationIds ?stages ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rotationIds =
        field_map json__ "RotationIds" SsmContactsArnList.of_json in
      let stages = field_map json__ "Stages" StagesList.of_json in
      make ?rotationIds ?stages ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the stages and on-call rotation teams associated with an escalation plan or engagement plan."]
module AmazonResourceName =
  struct
    type nonrec t = string
    let context_ = "AmazonResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"AmazonResourceName" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagsList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f: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:"TagsList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module StopReason =
  struct
    type nonrec t = string
    let context_ = "StopReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_pattern i ~pattern:"^[.\\s\\S]*$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StopReason" j
    let to_json = simple_to_json to_value
  end
module Content =
  struct
    type nonrec t = string
    let context_ = "Content"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:8192) >>=
                  (fun () -> check_pattern i ~pattern:"^[.\\s\\S]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Content" j
    let to_json = simple_to_json to_value
  end
module IdempotencyToken =
  struct
    type nonrec t = string
    let context_ = "IdempotencyToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"IdempotencyToken" j
    let to_json = simple_to_json to_value
  end
module PublicContent =
  struct
    type nonrec t = string
    let context_ = "PublicContent"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:8192) >>=
                  (fun () -> check_pattern i ~pattern:"^[.\\s\\S]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PublicContent" j
    let to_json = simple_to_json to_value
  end
module PublicSubject =
  struct
    type nonrec t = string
    let context_ = "PublicSubject"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"^[.\\s\\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:"PublicSubject" j
    let to_json = simple_to_json to_value
  end
module Subject =
  struct
    type nonrec t = string
    let context_ = "Subject"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"^[.\\s\\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:"Subject" j
    let to_json = simple_to_json to_value
  end
module Policy =
  struct
    type nonrec t = string
    let context_ = "Policy"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:395000) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Policy" j
    let to_json = simple_to_json to_value
  end
module PaginationToken =
  struct
    type nonrec t = string
    let context_ = "PaginationToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"PaginationToken" j
    let to_json = simple_to_json to_value
  end
module Rotations =
  struct
    type nonrec t = Rotation.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:Rotation.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:Rotation.of_xml)
    let of_json j =
      list_of_json ~kind:"Rotations" ~of_json:Rotation.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1024) >>= (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 MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module RotationShifts =
  struct
    type nonrec t = RotationShift.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:RotationShift.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:RotationShift.of_xml)
    let of_json j =
      list_of_json ~kind:"RotationShifts" ~of_json:RotationShift.of_json j
    let to_json v = composed_to_json to_value v
  end
module RotationOverrides =
  struct
    type nonrec t = RotationOverride.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:RotationOverride.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:RotationOverride.of_xml)
    let of_json j =
      list_of_json ~kind:"RotationOverrides"
        ~of_json:RotationOverride.of_json j
    let to_json v = composed_to_json to_value v
  end
module OverrideList =
  struct
    type nonrec t = PreviewOverride.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:PreviewOverride.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:PreviewOverride.of_xml)
    let of_json j =
      list_of_json ~kind:"OverrideList" ~of_json:PreviewOverride.of_json j
    let to_json v = composed_to_json to_value v
  end
module RotationPreviewMemberList =
  struct
    type nonrec t = Member.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Member.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:Member.of_xml)
    let of_json j =
      list_of_json ~kind:"RotationPreviewMemberList" ~of_json:Member.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module PagesList =
  struct
    type nonrec t = Page.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:Page.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:Page.of_xml)
    let of_json j = list_of_json ~kind:"PagesList" ~of_json:Page.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResolutionList =
  struct
    type nonrec t = ResolutionContact.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:ResolutionContact.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:ResolutionContact.of_xml)
    let of_json j =
      list_of_json ~kind:"ResolutionList" ~of_json:ResolutionContact.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ReceiptsList =
  struct
    type nonrec t = Receipt.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:Receipt.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:Receipt.of_xml)
    let of_json j =
      list_of_json ~kind:"ReceiptsList" ~of_json:Receipt.of_json j
    let to_json v = composed_to_json to_value v
  end
module EngagementsList =
  struct
    type nonrec t = Engagement.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:Engagement.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:Engagement.of_xml)
    let of_json j =
      list_of_json ~kind:"EngagementsList" ~of_json:Engagement.of_json j
    let to_json v = composed_to_json to_value v
  end
module TimeRange =
  struct
    type nonrec t =
      {
      startTime: DateTime.t option
        [@ocaml.doc "The start of the time range."];
      endTime: DateTime.t option [@ocaml.doc "The end of the time range."]}
    let make ?startTime = fun ?endTime -> fun () -> { startTime; endTime }
    let to_value x =
      structure_to_value
        [("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("EndTime", (Option.map x.endTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      make ?endTime ?startTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endTime = field_map json__ "EndTime" DateTime.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      make ?endTime ?startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A range of between two set times"]
module ContactsList =
  struct
    type nonrec t = Contact.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:Contact.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:Contact.of_xml)
    let of_json j =
      list_of_json ~kind:"ContactsList" ~of_json:Contact.of_json j
    let to_json v = composed_to_json to_value v
  end
module ContactChannelList =
  struct
    type nonrec t = ContactChannel.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:ContactChannel.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:ContactChannel.of_xml)
    let of_json j =
      list_of_json ~kind:"ContactChannelList" ~of_json:ContactChannel.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module RotationOverrideContactsArnList =
  struct
    type nonrec t = SsmContactsArn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:30) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SsmContactsArn.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:SsmContactsArn.of_xml)
    let of_json j =
      list_of_json ~kind:"RotationOverrideContactsArnList"
        ~of_json:SsmContactsArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeferActivation =
  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 ActivationCode =
  struct
    type nonrec t = string
    let context_ = "ActivationCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () ->
                (check_string_max i ~max:10) >>=
                  (fun () -> check_pattern i ~pattern:"^[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:"ActivationCode" j
    let to_json = simple_to_json to_value
  end
module AcceptCode =
  struct
    type nonrec t = string
    let context_ = "AcceptCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () ->
                (check_string_max i ~max:10) >>=
                  (fun () -> check_pattern i ~pattern:"^[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:"AcceptCode" j
    let to_json = simple_to_json to_value
  end
module AcceptCodeValidation =
  struct
    type nonrec t =
      | IGNORE 
      | ENFORCE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IGNORE -> "IGNORE"
      | ENFORCE -> "ENFORCE"
      | Non_static_id s -> s
    let of_string =
      function
      | "IGNORE" -> IGNORE
      | "ENFORCE" -> ENFORCE
      | 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 AcceptCodeValidation" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AcceptCodeValidation" j)
    let to_json = simple_to_json to_value
  end
module AcceptType =
  struct
    type nonrec t =
      | DELIVERED 
      | READ 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DELIVERED -> "DELIVERED"
      | READ -> "READ"
      | Non_static_id s -> s
    let of_string =
      function
      | "DELIVERED" -> DELIVERED
      | "READ" -> READ
      | 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 AcceptType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AcceptType" j)
    let to_json = simple_to_json to_value
  end
module UpdateRotationResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the information specified for an on-call rotation."]
module UpdateRotationRequest =
  struct
    type nonrec t =
      {
      rotationId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rotation to update."];
      contactIds: RotationContactsArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the contacts to include in the updated rotation. Only the PERSONAL contact type is supported. The contact types ESCALATION and ONCALL_SCHEDULE are not supported for this operation. The order in which you list the contacts is their shift order in the rotation schedule."];
      startTime: DateTime.t option
        [@ocaml.doc "The date and time the rotation goes into effect."];
      timeZoneId: TimeZoneId.t option
        [@ocaml.doc
          "The time zone to base the updated rotation\226\128\153s activity on, in Internet Assigned Numbers Authority (IANA) format. For example: \"America/Los_Angeles\", \"UTC\", or \"Asia/Seoul\". For more information, see the Time Zone Database on the IANA website. Designators for time zones that don\226\128\153t support Daylight Savings Time Rules, such as Pacific Standard Time (PST), aren't supported."];
      recurrence: RecurrenceSettings.t
        [@ocaml.doc
          "Information about how long the updated rotation lasts before restarting at the beginning of the shift order."]}
    let context_ = "UpdateRotationRequest"
    let make ?contactIds =
      fun ?startTime ->
        fun ?timeZoneId ->
          fun ~rotationId ->
            fun ~recurrence ->
              fun () ->
                { contactIds; startTime; timeZoneId; rotationId; recurrence }
    let to_value x =
      structure_to_value
        [("RotationId", (Some (SsmContactsArn.to_value x.rotationId)));
        ("ContactIds",
          (Option.map x.contactIds ~f:RotationContactsArnList.to_value));
        ("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("TimeZoneId", (Option.map x.timeZoneId ~f:TimeZoneId.to_value));
        ("Recurrence", (Some (RecurrenceSettings.to_value x.recurrence)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recurrence =
        RecurrenceSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Recurrence") in
      let timeZoneId =
        (Option.map ~f:TimeZoneId.of_xml) (Xml.child xml_arg0 "TimeZoneId") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let contactIds =
        (Option.map ~f:RotationContactsArnList.of_xml)
          (Xml.child xml_arg0 "ContactIds") in
      let rotationId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RotationId") in
      make ~recurrence ?timeZoneId ?startTime ?contactIds ~rotationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recurrence =
        field_map_exn json__ "Recurrence" RecurrenceSettings.of_json in
      let timeZoneId = field_map json__ "TimeZoneId" TimeZoneId.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      let contactIds =
        field_map json__ "ContactIds" RotationContactsArnList.of_json in
      let rotationId =
        field_map_exn json__ "RotationId" SsmContactsArn.of_json in
      make ~recurrence ?timeZoneId ?startTime ?contactIds ~rotationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the information specified for an on-call rotation."]
module UpdateContactResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DataEncryptionException of DataEncryptionException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DataEncryptionException e ->
          `Assoc
            [("error", (`String "DataEncryptionException"));
            ("details", (DataEncryptionException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the contact or escalation plan specified."]
module UpdateContactRequest =
  struct
    type nonrec t =
      {
      contactId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact or escalation plan you're updating."];
      displayName: ContactName.t option
        [@ocaml.doc "The full name of the contact or escalation plan."];
      plan: Plan.t option
        [@ocaml.doc
          "A list of stages. A contact has an engagement plan with stages for specified contact channels. An escalation plan uses these stages to contact specified contacts."]}
    let context_ = "UpdateContactRequest"
    let make ?displayName =
      fun ?plan ->
        fun ~contactId -> fun () -> { displayName; plan; contactId }
    let to_value x =
      structure_to_value
        [("ContactId", (Some (SsmContactsArn.to_value x.contactId)));
        ("DisplayName", (Option.map x.displayName ~f:ContactName.to_value));
        ("Plan", (Option.map x.plan ~f:Plan.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let plan = (Option.map ~f:Plan.of_xml) (Xml.child xml_arg0 "Plan") in
      let displayName =
        (Option.map ~f:ContactName.of_xml) (Xml.child xml_arg0 "DisplayName") in
      let contactId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactId") in
      make ?plan ?displayName ~contactId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let plan = field_map json__ "Plan" Plan.of_json in
      let displayName = field_map json__ "DisplayName" ContactName.of_json in
      let contactId = field_map_exn json__ "ContactId" SsmContactsArn.of_json in
      make ?plan ?displayName ~contactId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the contact or escalation plan specified."]
module UpdateContactChannelResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `DataEncryptionException of DataEncryptionException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `DataEncryptionException e ->
          `Assoc
            [("error", (`String "DataEncryptionException"));
            ("details", (DataEncryptionException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a contact's contact channel."]
module UpdateContactChannelRequest =
  struct
    type nonrec t =
      {
      contactChannelId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact channel you want to update."];
      name: ChannelName.t option
        [@ocaml.doc "The name of the contact channel."];
      deliveryAddress: ContactChannelAddress.t option
        [@ocaml.doc
          "The details that Incident Manager uses when trying to engage the contact channel."]}
    let context_ = "UpdateContactChannelRequest"
    let make ?name =
      fun ?deliveryAddress ->
        fun ~contactChannelId ->
          fun () -> { name; deliveryAddress; contactChannelId }
    let to_value x =
      structure_to_value
        [("ContactChannelId",
           (Some (SsmContactsArn.to_value x.contactChannelId)));
        ("Name", (Option.map x.name ~f:ChannelName.to_value));
        ("DeliveryAddress",
          (Option.map x.deliveryAddress ~f:ContactChannelAddress.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deliveryAddress =
        (Option.map ~f:ContactChannelAddress.of_xml)
          (Xml.child xml_arg0 "DeliveryAddress") in
      let name =
        (Option.map ~f:ChannelName.of_xml) (Xml.child xml_arg0 "Name") in
      let contactChannelId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactChannelId") in
      make ?deliveryAddress ?name ~contactChannelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deliveryAddress =
        field_map json__ "DeliveryAddress" ContactChannelAddress.of_json in
      let name = field_map json__ "Name" ChannelName.of_json in
      let contactChannelId =
        field_map_exn json__ "ContactChannelId" SsmContactsArn.of_json in
      make ?deliveryAddress ?name ~contactChannelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a contact's contact channel."]
module UntagResourceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from the specified resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact or escalation plan."];
      tagKeys: TagKeyList.t
        [@ocaml.doc "The key of the tag that you want to remove."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceARN =
      fun ~tagKeys -> fun () -> { resourceARN; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (AmazonResourceName.to_value x.resourceARN)));
        ("TagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let resourceARN =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~tagKeys ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeyList.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" AmazonResourceName.of_json in
      make ~tagKeys ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from the specified resource."]
module TagResourceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Tags a contact or escalation plan. You can tag only contacts and escalation plans in the first region of your replication set."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact or escalation plan."];
      tags: TagsList.t
        [@ocaml.doc
          "A list of tags that you are adding to the contact or escalation plan."]}
    let context_ = "TagResourceRequest"
    let make ~resourceARN = fun ~tags -> fun () -> { resourceARN; tags }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (AmazonResourceName.to_value x.resourceARN)));
        ("Tags", (Some (TagsList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagsList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceARN =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~tags ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagsList.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" AmazonResourceName.of_json in
      make ~tags ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Tags a contact or escalation plan. You can tag only contacts and escalation plans in the first region of your replication set."]
module StopEngagementResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops an engagement before it finishes the final stage of the escalation plan or engagement plan. Further contacts aren't engaged."]
module StopEngagementRequest =
  struct
    type nonrec t =
      {
      engagementId: SsmContactsArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the engagement."];
      reason: StopReason.t option
        [@ocaml.doc "The reason that you're stopping the engagement."]}
    let context_ = "StopEngagementRequest"
    let make ?reason =
      fun ~engagementId -> fun () -> { reason; engagementId }
    let to_value x =
      structure_to_value
        [("EngagementId", (Some (SsmContactsArn.to_value x.engagementId)));
        ("Reason", (Option.map x.reason ~f:StopReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:StopReason.of_xml) (Xml.child xml_arg0 "Reason") in
      let engagementId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EngagementId") in
      make ?reason ~engagementId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map json__ "Reason" StopReason.of_json in
      let engagementId =
        field_map_exn json__ "EngagementId" SsmContactsArn.of_json in
      make ?reason ~engagementId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops an engagement before it finishes the final stage of the escalation plan or engagement plan. Further contacts aren't engaged."]
module StartEngagementResult =
  struct
    type nonrec t =
      {
      engagementArn: SsmContactsArn.t option
        [@ocaml.doc "The ARN of the engagement."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DataEncryptionException of DataEncryptionException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?engagementArn = fun () -> { engagementArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DataEncryptionException e ->
          `Assoc
            [("error", (`String "DataEncryptionException"));
            ("details", (DataEncryptionException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("EngagementArn",
           (Option.map x.engagementArn ~f:SsmContactsArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let engagementArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "EngagementArn") in
      make ?engagementArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let engagementArn =
        field_map json__ "EngagementArn" SsmContactsArn.of_json in
      make ?engagementArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts an engagement to a contact or escalation plan. The engagement engages each contact specified in the incident."]
module StartEngagementRequest =
  struct
    type nonrec t =
      {
      contactId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact being engaged."];
      sender: Sender.t [@ocaml.doc "The user that started the engagement."];
      subject: Subject.t
        [@ocaml.doc
          "The secure subject of the message that was sent to the contact. Use this field for engagements to VOICE or EMAIL."];
      content: Content.t
        [@ocaml.doc
          "The secure content of the message that was sent to the contact. Use this field for engagements to VOICE or EMAIL."];
      publicSubject: PublicSubject.t option
        [@ocaml.doc
          "The insecure subject of the message that was sent to the contact. Use this field for engagements to SMS."];
      publicContent: PublicContent.t option
        [@ocaml.doc
          "The insecure content of the message that was sent to the contact. Use this field for engagements to SMS."];
      incidentId: IncidentId.t option
        [@ocaml.doc
          "The ARN of the incident that the engagement is part of."];
      idempotencyToken: IdempotencyToken.t option
        [@ocaml.doc
          "A token ensuring that the operation is called only once with the specified details."]}
    let context_ = "StartEngagementRequest"
    let make ?publicSubject =
      fun ?publicContent ->
        fun ?incidentId ->
          fun ?idempotencyToken ->
            fun ~contactId ->
              fun ~sender ->
                fun ~subject ->
                  fun ~content ->
                    fun () ->
                      {
                        publicSubject;
                        publicContent;
                        incidentId;
                        idempotencyToken;
                        contactId;
                        sender;
                        subject;
                        content
                      }
    let to_value x =
      structure_to_value
        [("ContactId", (Some (SsmContactsArn.to_value x.contactId)));
        ("Sender", (Some (Sender.to_value x.sender)));
        ("Subject", (Some (Subject.to_value x.subject)));
        ("Content", (Some (Content.to_value x.content)));
        ("PublicSubject",
          (Option.map x.publicSubject ~f:PublicSubject.to_value));
        ("PublicContent",
          (Option.map x.publicContent ~f:PublicContent.to_value));
        ("IncidentId", (Option.map x.incidentId ~f:IncidentId.to_value));
        ("IdempotencyToken",
          (Option.map x.idempotencyToken ~f:IdempotencyToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let idempotencyToken =
        (Option.map ~f:IdempotencyToken.of_xml)
          (Xml.child xml_arg0 "IdempotencyToken") in
      let incidentId =
        (Option.map ~f:IncidentId.of_xml) (Xml.child xml_arg0 "IncidentId") in
      let publicContent =
        (Option.map ~f:PublicContent.of_xml)
          (Xml.child xml_arg0 "PublicContent") in
      let publicSubject =
        (Option.map ~f:PublicSubject.of_xml)
          (Xml.child xml_arg0 "PublicSubject") in
      let content =
        Content.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Content") in
      let subject =
        Subject.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Subject") in
      let sender =
        Sender.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Sender") in
      let contactId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactId") in
      make ?idempotencyToken ?incidentId ?publicContent ?publicSubject
        ~content ~subject ~sender ~contactId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let idempotencyToken =
        field_map json__ "IdempotencyToken" IdempotencyToken.of_json in
      let incidentId = field_map json__ "IncidentId" IncidentId.of_json in
      let publicContent =
        field_map json__ "PublicContent" PublicContent.of_json in
      let publicSubject =
        field_map json__ "PublicSubject" PublicSubject.of_json in
      let content = field_map_exn json__ "Content" Content.of_json in
      let subject = field_map_exn json__ "Subject" Subject.of_json in
      let sender = field_map_exn json__ "Sender" Sender.of_json in
      let contactId = field_map_exn json__ "ContactId" SsmContactsArn.of_json in
      make ?idempotencyToken ?incidentId ?publicContent ?publicSubject
        ~content ~subject ~sender ~contactId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts an engagement to a contact or escalation plan. The engagement engages each contact specified in the incident."]
module SendActivationCodeResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DataEncryptionException of DataEncryptionException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DataEncryptionException e ->
          `Assoc
            [("error", (`String "DataEncryptionException"));
            ("details", (DataEncryptionException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Sends an activation code to a contact channel. The contact can use this code to activate the contact channel in the console or with the ActivateChannel operation. Incident Manager can't engage a contact channel until it has been activated."]
module SendActivationCodeRequest =
  struct
    type nonrec t =
      {
      contactChannelId: SsmContactsArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the contact channel."]}
    let context_ = "SendActivationCodeRequest"
    let make ~contactChannelId = fun () -> { contactChannelId }
    let to_value x =
      structure_to_value
        [("ContactChannelId",
           (Some (SsmContactsArn.to_value x.contactChannelId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactChannelId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactChannelId") in
      make ~contactChannelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactChannelId =
        field_map_exn json__ "ContactChannelId" SsmContactsArn.of_json in
      make ~contactChannelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends an activation code to a contact channel. The contact can use this code to activate the contact channel in the console or with the ActivateChannel operation. Incident Manager can't engage a contact channel until it has been activated."]
module PutContactPolicyResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a resource policy to the specified contact or escalation plan. The resource policy is used to share the contact or escalation plan using Resource Access Manager (RAM). For more information about cross-account sharing, see Setting up cross-account functionality."]
module PutContactPolicyRequest =
  struct
    type nonrec t =
      {
      contactArn: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact or escalation plan."];
      policy: Policy.t [@ocaml.doc "Details of the resource policy."]}
    let context_ = "PutContactPolicyRequest"
    let make ~contactArn = fun ~policy -> fun () -> { contactArn; policy }
    let to_value x =
      structure_to_value
        [("ContactArn", (Some (SsmContactsArn.to_value x.contactArn)));
        ("Policy", (Some (Policy.to_value x.policy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        Policy.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Policy") in
      let contactArn =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactArn") in
      make ~policy ~contactArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map_exn json__ "Policy" Policy.of_json in
      let contactArn =
        field_map_exn json__ "ContactArn" SsmContactsArn.of_json in
      make ~policy ~contactArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a resource policy to the specified contact or escalation plan. The resource policy is used to share the contact or escalation plan using Resource Access Manager (RAM). For more information about cross-account sharing, see Setting up cross-account functionality."]
module ListTagsForResourceResult =
  struct
    type nonrec t =
      {
      tags: TagsList.t option
        [@ocaml.doc "The tags related to the contact or escalation plan."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("Tags", (Option.map x.tags ~f:TagsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagsList.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagsList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags of a contact, escalation plan, rotation, or on-call schedule."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact, escalation plan, rotation, or on-call schedule."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceARN = fun () -> { resourceARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (AmazonResourceName.to_value x.resourceARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceARN =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceARN =
        field_map_exn json__ "ResourceARN" AmazonResourceName.of_json in
      make ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags of a contact, escalation plan, rotation, or on-call schedule."]
module ListRotationsResult =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. Use this token to get the next set of results."];
      rotations: Rotations.t option
        [@ocaml.doc
          "Information about rotations that meet the filter criteria."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?rotations -> fun () -> { nextToken; rotations }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("Rotations", (Option.map x.rotations ~f:Rotations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rotations =
        (Option.map ~f:Rotations.of_xml) (Xml.child xml_arg0 "Rotations") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?rotations ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rotations = field_map json__ "Rotations" Rotations.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?rotations ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of on-call rotations."]
module ListRotationsRequest =
  struct
    type nonrec t =
      {
      rotationNamePrefix: RotationName.t option
        [@ocaml.doc
          "A filter to include rotations in list results based on their common prefix. For example, entering prod returns a list of all rotation names that begin with prod, such as production and prod-1."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token to start the list. Use this token to get the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results."]}
    let make ?rotationNamePrefix =
      fun ?nextToken ->
        fun ?maxResults ->
          fun () -> { rotationNamePrefix; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("RotationNamePrefix",
           (Option.map x.rotationNamePrefix ~f:RotationName.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let rotationNamePrefix =
        (Option.map ~f:RotationName.of_xml)
          (Xml.child xml_arg0 "RotationNamePrefix") in
      make ?maxResults ?nextToken ?rotationNamePrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let rotationNamePrefix =
        field_map json__ "RotationNamePrefix" RotationName.of_json in
      make ?maxResults ?nextToken ?rotationNamePrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of on-call rotations."]
module ListRotationShiftsResult =
  struct
    type nonrec t =
      {
      rotationShifts: RotationShifts.t option
        [@ocaml.doc
          "Information about shifts that meet the filter criteria."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. Use this token to get the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rotationShifts =
      fun ?nextToken -> fun () -> { rotationShifts; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RotationShifts",
           (Option.map x.rotationShifts ~f:RotationShifts.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let rotationShifts =
        (Option.map ~f:RotationShifts.of_xml)
          (Xml.child xml_arg0 "RotationShifts") in
      make ?nextToken ?rotationShifts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let rotationShifts =
        field_map json__ "RotationShifts" RotationShifts.of_json in
      make ?nextToken ?rotationShifts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of shifts generated by an existing rotation in the system."]
module ListRotationShiftsRequest =
  struct
    type nonrec t =
      {
      rotationId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rotation to retrieve shift information about."];
      startTime: DateTime.t option
        [@ocaml.doc
          "The date and time for the beginning of the time range to list shifts for."];
      endTime: DateTime.t
        [@ocaml.doc
          "The date and time for the end of the time range to list shifts for."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token to start the list. Use this token to get the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results."]}
    let context_ = "ListRotationShiftsRequest"
    let make ?startTime =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~rotationId ->
            fun ~endTime ->
              fun () ->
                { startTime; nextToken; maxResults; rotationId; endTime }
    let to_value x =
      structure_to_value
        [("RotationId", (Some (SsmContactsArn.to_value x.rotationId)));
        ("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("EndTime", (Some (DateTime.to_value x.endTime)));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let endTime =
        DateTime.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let rotationId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RotationId") in
      make ?maxResults ?nextToken ~endTime ?startTime ~rotationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let endTime = field_map_exn json__ "EndTime" DateTime.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      let rotationId =
        field_map_exn json__ "RotationId" SsmContactsArn.of_json in
      make ?maxResults ?nextToken ~endTime ?startTime ~rotationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of shifts generated by an existing rotation in the system."]
module ListRotationOverridesResult =
  struct
    type nonrec t =
      {
      rotationOverrides: RotationOverrides.t option
        [@ocaml.doc
          "A list of rotation overrides in the specified time range."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. Use this token to get the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rotationOverrides =
      fun ?nextToken -> fun () -> { rotationOverrides; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RotationOverrides",
           (Option.map x.rotationOverrides ~f:RotationOverrides.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let rotationOverrides =
        (Option.map ~f:RotationOverrides.of_xml)
          (Xml.child xml_arg0 "RotationOverrides") in
      make ?nextToken ?rotationOverrides ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let rotationOverrides =
        field_map json__ "RotationOverrides" RotationOverrides.of_json in
      make ?nextToken ?rotationOverrides ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of overrides currently specified for an on-call rotation."]
module ListRotationOverridesRequest =
  struct
    type nonrec t =
      {
      rotationId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rotation to retrieve information about."];
      startTime: DateTime.t
        [@ocaml.doc
          "The date and time for the beginning of a time range for listing overrides."];
      endTime: DateTime.t
        [@ocaml.doc
          "The date and time for the end of a time range for listing overrides."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token to start the list. Use this token to get the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results."]}
    let context_ = "ListRotationOverridesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~rotationId ->
          fun ~startTime ->
            fun ~endTime ->
              fun () ->
                { nextToken; maxResults; rotationId; startTime; endTime }
    let to_value x =
      structure_to_value
        [("RotationId", (Some (SsmContactsArn.to_value x.rotationId)));
        ("StartTime", (Some (DateTime.to_value x.startTime)));
        ("EndTime", (Some (DateTime.to_value x.endTime)));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let endTime =
        DateTime.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndTime") in
      let startTime =
        DateTime.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartTime") in
      let rotationId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RotationId") in
      make ?maxResults ?nextToken ~endTime ~startTime ~rotationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let endTime = field_map_exn json__ "EndTime" DateTime.of_json in
      let startTime = field_map_exn json__ "StartTime" DateTime.of_json in
      let rotationId =
        field_map_exn json__ "RotationId" SsmContactsArn.of_json in
      make ?maxResults ?nextToken ~endTime ~startTime ~rotationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of overrides currently specified for an on-call rotation."]
module ListPreviewRotationShiftsResult =
  struct
    type nonrec t =
      {
      rotationShifts: RotationShifts.t option
        [@ocaml.doc
          "Details about a rotation shift, including times, types, and contacts."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. This token is used to get the next set of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rotationShifts =
      fun ?nextToken -> fun () -> { rotationShifts; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RotationShifts",
           (Option.map x.rotationShifts ~f:RotationShifts.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let rotationShifts =
        (Option.map ~f:RotationShifts.of_xml)
          (Xml.child xml_arg0 "RotationShifts") in
      make ?nextToken ?rotationShifts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let rotationShifts =
        field_map json__ "RotationShifts" RotationShifts.of_json in
      make ?nextToken ?rotationShifts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of shifts based on rotation configuration parameters. The Incident Manager primarily uses this operation to populate the Preview calendar. It is not typically run by end users."]
module ListPreviewRotationShiftsRequest =
  struct
    type nonrec t =
      {
      rotationStartTime: DateTime.t option
        [@ocaml.doc
          "The date and time a rotation would begin. The first shift is calculated from this date and time."];
      startTime: DateTime.t option
        [@ocaml.doc
          "Used to filter the range of calculated shifts before sending the response back to the user."];
      endTime: DateTime.t
        [@ocaml.doc "The date and time a rotation shift would end."];
      members: RotationPreviewMemberList.t
        [@ocaml.doc "The contacts that would be assigned to a rotation."];
      timeZoneId: TimeZoneId.t
        [@ocaml.doc
          "The time zone the rotation\226\128\153s activity would be based on, in Internet Assigned Numbers Authority (IANA) format. For example: \"America/Los_Angeles\", \"UTC\", or \"Asia/Seoul\"."];
      recurrence: RecurrenceSettings.t
        [@ocaml.doc
          "Information about how long a rotation would last before restarting at the beginning of the shift order."];
      overrides: OverrideList.t option
        [@ocaml.doc
          "Information about changes that would be made in a rotation override."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token to start the list. This token is used to get the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of items to return for this call. The call also returns a token that can be specified in a subsequent call to get the next set of results."]}
    let context_ = "ListPreviewRotationShiftsRequest"
    let make ?rotationStartTime =
      fun ?startTime ->
        fun ?overrides ->
          fun ?nextToken ->
            fun ?maxResults ->
              fun ~endTime ->
                fun ~members ->
                  fun ~timeZoneId ->
                    fun ~recurrence ->
                      fun () ->
                        {
                          rotationStartTime;
                          startTime;
                          overrides;
                          nextToken;
                          maxResults;
                          endTime;
                          members;
                          timeZoneId;
                          recurrence
                        }
    let to_value x =
      structure_to_value
        [("RotationStartTime",
           (Option.map x.rotationStartTime ~f:DateTime.to_value));
        ("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("EndTime", (Some (DateTime.to_value x.endTime)));
        ("Members", (Some (RotationPreviewMemberList.to_value x.members)));
        ("TimeZoneId", (Some (TimeZoneId.to_value x.timeZoneId)));
        ("Recurrence", (Some (RecurrenceSettings.to_value x.recurrence)));
        ("Overrides", (Option.map x.overrides ~f:OverrideList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let overrides =
        (Option.map ~f:OverrideList.of_xml) (Xml.child xml_arg0 "Overrides") in
      let recurrence =
        RecurrenceSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Recurrence") in
      let timeZoneId =
        TimeZoneId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TimeZoneId") in
      let members =
        RotationPreviewMemberList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Members") in
      let endTime =
        DateTime.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let rotationStartTime =
        (Option.map ~f:DateTime.of_xml)
          (Xml.child xml_arg0 "RotationStartTime") in
      make ?maxResults ?nextToken ?overrides ~recurrence ~timeZoneId ~members
        ~endTime ?startTime ?rotationStartTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let overrides = field_map json__ "Overrides" OverrideList.of_json in
      let recurrence =
        field_map_exn json__ "Recurrence" RecurrenceSettings.of_json in
      let timeZoneId = field_map_exn json__ "TimeZoneId" TimeZoneId.of_json in
      let members =
        field_map_exn json__ "Members" RotationPreviewMemberList.of_json in
      let endTime = field_map_exn json__ "EndTime" DateTime.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      let rotationStartTime =
        field_map json__ "RotationStartTime" DateTime.of_json in
      make ?maxResults ?nextToken ?overrides ~recurrence ~timeZoneId ~members
        ~endTime ?startTime ?rotationStartTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of shifts based on rotation configuration parameters. The Incident Manager primarily uses this operation to populate the Preview calendar. It is not typically run by end users."]
module ListPagesByEngagementResult =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The pagination token to continue to the next page of results."];
      pages: PagesList.t option
        [@ocaml.doc "The list of engagements to contact channels."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?pages -> fun () -> { nextToken; pages }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("Pages", (Option.map x.pages ~f:PagesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pages =
        (Option.map ~f:PagesList.of_xml) (Xml.child xml_arg0 "Pages") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?pages ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pages = field_map json__ "Pages" PagesList.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?pages ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the engagements to contact channels that occurred by engaging a contact."]
module ListPagesByEngagementRequest =
  struct
    type nonrec t =
      {
      engagementId: SsmContactsArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the engagement."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The pagination token to continue to the next page of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of engagements to contact channels to list per page of results."]}
    let context_ = "ListPagesByEngagementRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~engagementId ->
          fun () -> { nextToken; maxResults; engagementId }
    let to_value x =
      structure_to_value
        [("EngagementId", (Some (SsmContactsArn.to_value x.engagementId)));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let engagementId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EngagementId") in
      make ?maxResults ?nextToken ~engagementId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let engagementId =
        field_map_exn json__ "EngagementId" SsmContactsArn.of_json in
      make ?maxResults ?nextToken ~engagementId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the engagements to contact channels that occurred by engaging a contact."]
module ListPagesByContactResult =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The pagination token to continue to the next page of results."];
      pages: PagesList.t option
        [@ocaml.doc
          "The list of engagements to a contact's contact channel."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?pages -> fun () -> { nextToken; pages }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("Pages", (Option.map x.pages ~f:PagesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pages =
        (Option.map ~f:PagesList.of_xml) (Xml.child xml_arg0 "Pages") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?pages ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pages = field_map json__ "Pages" PagesList.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?pages ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the engagements to a contact's contact channels."]
module ListPagesByContactRequest =
  struct
    type nonrec t =
      {
      contactId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact you are retrieving engagements for."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The pagination token to continue to the next page of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of engagements to contact channels to list per page of results."]}
    let context_ = "ListPagesByContactRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~contactId -> fun () -> { nextToken; maxResults; contactId }
    let to_value x =
      structure_to_value
        [("ContactId", (Some (SsmContactsArn.to_value x.contactId)));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let contactId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactId") in
      make ?maxResults ?nextToken ~contactId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let contactId = field_map_exn json__ "ContactId" SsmContactsArn.of_json in
      make ?maxResults ?nextToken ~contactId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the engagements to a contact's contact channels."]
module ListPageResolutionsResult =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The token for the next set of items to return. Use this token to get the next set of results."];
      pageResolutions: ResolutionList.t option
        [@ocaml.doc "Information about the resolution for an engagement."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?pageResolutions -> fun () -> { nextToken; pageResolutions }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("PageResolutions",
          (Option.map x.pageResolutions ~f:ResolutionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageResolutions =
        (Option.map ~f:ResolutionList.of_xml)
          (Xml.child xml_arg0 "PageResolutions") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?pageResolutions ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pageResolutions =
        field_map json__ "PageResolutions" ResolutionList.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?pageResolutions ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the resolution path of an engagement. For example, the escalation plan engaged in an incident might target an on-call schedule that includes several contacts in a rotation, but just one contact on-call when the incident starts. The resolution path indicates the hierarchy of escalation plan > on-call schedule > contact."]
module ListPageResolutionsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token to start the list. Use this token to get the next set of results."];
      pageId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact engaged for the incident."]}
    let context_ = "ListPageResolutionsRequest"
    let make ?nextToken = fun ~pageId -> fun () -> { nextToken; pageId }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("PageId", (Some (SsmContactsArn.to_value x.pageId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PageId") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ~pageId ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pageId = field_map_exn json__ "PageId" SsmContactsArn.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ~pageId ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the resolution path of an engagement. For example, the escalation plan engaged in an incident might target an on-call schedule that includes several contacts in a rotation, but just one contact on-call when the incident starts. The resolution path indicates the hierarchy of escalation plan > on-call schedule > contact."]
module ListPageReceiptsResult =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The pagination token to continue to the next page of results."];
      receipts: ReceiptsList.t option
        [@ocaml.doc "A list of each acknowledgement."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?receipts -> fun () -> { nextToken; receipts }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("Receipts", (Option.map x.receipts ~f:ReceiptsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let receipts =
        (Option.map ~f:ReceiptsList.of_xml) (Xml.child xml_arg0 "Receipts") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?receipts ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let receipts = field_map json__ "Receipts" ReceiptsList.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?receipts ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the engagements to contact channels that have been acknowledged."]
module ListPageReceiptsRequest =
  struct
    type nonrec t =
      {
      pageId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the engagement to a specific contact channel."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The pagination token to continue to the next page of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of acknowledgements per page of results."]}
    let context_ = "ListPageReceiptsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~pageId -> fun () -> { nextToken; maxResults; pageId }
    let to_value x =
      structure_to_value
        [("PageId", (Some (SsmContactsArn.to_value x.pageId)));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let pageId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PageId") in
      make ?maxResults ?nextToken ~pageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let pageId = field_map_exn json__ "PageId" SsmContactsArn.of_json in
      make ?maxResults ?nextToken ~pageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the engagements to contact channels that have been acknowledged."]
module ListEngagementsResult =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The pagination token to continue to the next page of results."];
      engagements: EngagementsList.t option
        [@ocaml.doc
          "A list of each engagement that occurred during the specified time range of an incident."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?engagements -> fun () -> { nextToken; engagements }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("Engagements",
          (Option.map x.engagements ~f:EngagementsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let engagements =
        (Option.map ~f:EngagementsList.of_xml)
          (Xml.child xml_arg0 "Engagements") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?engagements ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let engagements =
        field_map json__ "Engagements" EngagementsList.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?engagements ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all engagements that have happened in an incident."]
module ListEngagementsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The pagination token to continue to the next page of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of engagements per page of results."];
      incidentId: IncidentId.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the incident you're listing engagements for."];
      timeRangeValue: TimeRange.t option
        [@ocaml.doc "The time range to lists engagements for an incident."]}
    let make ?nextToken =
      fun ?maxResults ->
        fun ?incidentId ->
          fun ?timeRangeValue ->
            fun () -> { nextToken; maxResults; incidentId; timeRangeValue }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("IncidentId", (Option.map x.incidentId ~f:IncidentId.to_value));
        ("TimeRangeValue",
          (Option.map x.timeRangeValue ~f:TimeRange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timeRangeValue =
        (Option.map ~f:TimeRange.of_xml)
          (Xml.child xml_arg0 "TimeRangeValue") in
      let incidentId =
        (Option.map ~f:IncidentId.of_xml) (Xml.child xml_arg0 "IncidentId") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?timeRangeValue ?incidentId ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timeRangeValue =
        field_map json__ "TimeRangeValue" TimeRange.of_json in
      let incidentId = field_map json__ "IncidentId" IncidentId.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?timeRangeValue ?incidentId ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all engagements that have happened in an incident."]
module ListContactsResult =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The pagination token to continue to the next page of results."];
      contacts: ContactsList.t option
        [@ocaml.doc
          "A list of the contacts and escalation plans in your Incident Manager account."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?contacts -> fun () -> { nextToken; contacts }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("Contacts", (Option.map x.contacts ~f:ContactsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contacts =
        (Option.map ~f:ContactsList.of_xml) (Xml.child xml_arg0 "Contacts") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?contacts ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contacts = field_map json__ "Contacts" ContactsList.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?contacts ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all contacts and escalation plans in Incident Manager."]
module ListContactsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The pagination token to continue to the next page of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of contacts and escalation plans per page of results."];
      aliasPrefix: ContactAlias.t option
        [@ocaml.doc
          "Used to list only contacts who's aliases start with the specified prefix."];
      type_: ContactType.t option [@ocaml.doc "The type of contact."]}
    let make ?nextToken =
      fun ?maxResults ->
        fun ?aliasPrefix ->
          fun ?type_ ->
            fun () -> { nextToken; maxResults; aliasPrefix; type_ }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("AliasPrefix", (Option.map x.aliasPrefix ~f:ContactAlias.to_value));
        ("Type", (Option.map x.type_ ~f:ContactType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:ContactType.of_xml) (Xml.child xml_arg0 "Type") in
      let aliasPrefix =
        (Option.map ~f:ContactAlias.of_xml)
          (Xml.child xml_arg0 "AliasPrefix") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?type_ ?aliasPrefix ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" ContactType.of_json in
      let aliasPrefix = field_map json__ "AliasPrefix" ContactAlias.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?type_ ?aliasPrefix ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all contacts and escalation plans in Incident Manager."]
module ListContactChannelsResult =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The pagination token to continue to the next page of results."];
      contactChannels: ContactChannelList.t option
        [@ocaml.doc
          "A list of contact channels related to the specified contact."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DataEncryptionException of DataEncryptionException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?contactChannels -> fun () -> { nextToken; contactChannels }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DataEncryptionException e ->
          `Assoc
            [("error", (`String "DataEncryptionException"));
            ("details", (DataEncryptionException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("ContactChannels",
          (Option.map x.contactChannels ~f:ContactChannelList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactChannels =
        (Option.map ~f:ContactChannelList.of_xml)
          (Xml.child xml_arg0 "ContactChannels") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      make ?contactChannels ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactChannels =
        field_map json__ "ContactChannels" ContactChannelList.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      make ?contactChannels ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all contact channels for the specified contact."]
module ListContactChannelsRequest =
  struct
    type nonrec t =
      {
      contactId: SsmContactsArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the contact."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "The pagination token to continue to the next page of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of contact channels per page."]}
    let context_ = "ListContactChannelsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~contactId -> fun () -> { nextToken; maxResults; contactId }
    let to_value x =
      structure_to_value
        [("ContactId", (Some (SsmContactsArn.to_value x.contactId)));
        ("NextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let contactId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactId") in
      make ?maxResults ?nextToken ~contactId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" PaginationToken.of_json in
      let contactId = field_map_exn json__ "ContactId" SsmContactsArn.of_json in
      make ?maxResults ?nextToken ~contactId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all contact channels for the specified contact."]
module GetRotationResult =
  struct
    type nonrec t =
      {
      rotationArn: SsmContactsArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the on-call rotation."];
      name: RotationName.t option
        [@ocaml.doc "The name of the on-call rotation."];
      contactIds: RotationContactsArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the contacts assigned to the on-call rotation team."];
      startTime: DateTime.t option
        [@ocaml.doc "The specified start time for the on-call rotation."];
      timeZoneId: TimeZoneId.t option
        [@ocaml.doc
          "The time zone that the rotation\226\128\153s activity is based on, in Internet Assigned Numbers Authority (IANA) format."];
      recurrence: RecurrenceSettings.t option
        [@ocaml.doc
          "Specifies how long a rotation lasts before restarting at the beginning of the shift order."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rotationArn =
      fun ?name ->
        fun ?contactIds ->
          fun ?startTime ->
            fun ?timeZoneId ->
              fun ?recurrence ->
                fun () ->
                  {
                    rotationArn;
                    name;
                    contactIds;
                    startTime;
                    timeZoneId;
                    recurrence
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RotationArn",
           (Option.map x.rotationArn ~f:SsmContactsArn.to_value));
        ("Name", (Option.map x.name ~f:RotationName.to_value));
        ("ContactIds",
          (Option.map x.contactIds ~f:RotationContactsArnList.to_value));
        ("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("TimeZoneId", (Option.map x.timeZoneId ~f:TimeZoneId.to_value));
        ("Recurrence",
          (Option.map x.recurrence ~f:RecurrenceSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recurrence =
        (Option.map ~f:RecurrenceSettings.of_xml)
          (Xml.child xml_arg0 "Recurrence") in
      let timeZoneId =
        (Option.map ~f:TimeZoneId.of_xml) (Xml.child xml_arg0 "TimeZoneId") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let contactIds =
        (Option.map ~f:RotationContactsArnList.of_xml)
          (Xml.child xml_arg0 "ContactIds") in
      let name =
        (Option.map ~f:RotationName.of_xml) (Xml.child xml_arg0 "Name") in
      let rotationArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "RotationArn") in
      make ?recurrence ?timeZoneId ?startTime ?contactIds ?name ?rotationArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recurrence =
        field_map json__ "Recurrence" RecurrenceSettings.of_json in
      let timeZoneId = field_map json__ "TimeZoneId" TimeZoneId.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      let contactIds =
        field_map json__ "ContactIds" RotationContactsArnList.of_json in
      let name = field_map json__ "Name" RotationName.of_json in
      let rotationArn = field_map json__ "RotationArn" SsmContactsArn.of_json in
      make ?recurrence ?timeZoneId ?startTime ?contactIds ?name ?rotationArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves information about an on-call rotation."]
module GetRotationRequest =
  struct
    type nonrec t =
      {
      rotationId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the on-call rotation to retrieve information about."]}
    let context_ = "GetRotationRequest"
    let make ~rotationId = fun () -> { rotationId }
    let to_value x =
      structure_to_value
        [("RotationId", (Some (SsmContactsArn.to_value x.rotationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rotationId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RotationId") in
      make ~rotationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rotationId =
        field_map_exn json__ "RotationId" SsmContactsArn.of_json in
      make ~rotationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves information about an on-call rotation."]
module GetRotationOverrideResult =
  struct
    type nonrec t =
      {
      rotationOverrideId: Uuid.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the override to an on-call rotation."];
      rotationArn: SsmContactsArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the on-call rotation that was overridden."];
      newContactIds: SsmContactsArnList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the contacts assigned to the override of the on-call rotation."];
      startTime: DateTime.t option
        [@ocaml.doc "The date and time when the override goes into effect."];
      endTime: DateTime.t option
        [@ocaml.doc "The date and time when the override ends."];
      createTime: DateTime.t option
        [@ocaml.doc "The date and time when the override was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rotationOverrideId =
      fun ?rotationArn ->
        fun ?newContactIds ->
          fun ?startTime ->
            fun ?endTime ->
              fun ?createTime ->
                fun () ->
                  {
                    rotationOverrideId;
                    rotationArn;
                    newContactIds;
                    startTime;
                    endTime;
                    createTime
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RotationOverrideId",
           (Option.map x.rotationOverrideId ~f:Uuid.to_value));
        ("RotationArn",
          (Option.map x.rotationArn ~f:SsmContactsArn.to_value));
        ("NewContactIds",
          (Option.map x.newContactIds ~f:SsmContactsArnList.to_value));
        ("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("EndTime", (Option.map x.endTime ~f:DateTime.to_value));
        ("CreateTime", (Option.map x.createTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "CreateTime") in
      let endTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "EndTime") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let newContactIds =
        (Option.map ~f:SsmContactsArnList.of_xml)
          (Xml.child xml_arg0 "NewContactIds") in
      let rotationArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "RotationArn") in
      let rotationOverrideId =
        (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "RotationOverrideId") in
      make ?createTime ?endTime ?startTime ?newContactIds ?rotationArn
        ?rotationOverrideId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createTime = field_map json__ "CreateTime" DateTime.of_json in
      let endTime = field_map json__ "EndTime" DateTime.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      let newContactIds =
        field_map json__ "NewContactIds" SsmContactsArnList.of_json in
      let rotationArn = field_map json__ "RotationArn" SsmContactsArn.of_json in
      let rotationOverrideId =
        field_map json__ "RotationOverrideId" Uuid.of_json in
      make ?createTime ?endTime ?startTime ?newContactIds ?rotationArn
        ?rotationOverrideId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about an override to an on-call rotation."]
module GetRotationOverrideRequest =
  struct
    type nonrec t =
      {
      rotationId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the overridden rotation to retrieve information about."];
      rotationOverrideId: Uuid.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the on-call rotation override to retrieve information about."]}
    let context_ = "GetRotationOverrideRequest"
    let make ~rotationId =
      fun ~rotationOverrideId -> fun () -> { rotationId; rotationOverrideId }
    let to_value x =
      structure_to_value
        [("RotationId", (Some (SsmContactsArn.to_value x.rotationId)));
        ("RotationOverrideId", (Some (Uuid.to_value x.rotationOverrideId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rotationOverrideId =
        Uuid.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RotationOverrideId") in
      let rotationId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RotationId") in
      make ~rotationOverrideId ~rotationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rotationOverrideId =
        field_map_exn json__ "RotationOverrideId" Uuid.of_json in
      let rotationId =
        field_map_exn json__ "RotationId" SsmContactsArn.of_json in
      make ~rotationOverrideId ~rotationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about an override to an on-call rotation."]
module GetContactResult =
  struct
    type nonrec t =
      {
      contactArn: SsmContactsArn.t option
        [@ocaml.doc "The ARN of the contact or escalation plan."];
      alias: ContactAlias.t option
        [@ocaml.doc
          "The alias of the contact or escalation plan. The alias is unique and identifiable."];
      displayName: ContactName.t option
        [@ocaml.doc "The full name of the contact or escalation plan."];
      type_: ContactType.t option [@ocaml.doc "The type of contact."];
      plan: Plan.t option
        [@ocaml.doc
          "Details about the specific timing or stages and targets of the escalation plan or engagement plan."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DataEncryptionException of DataEncryptionException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?contactArn =
      fun ?alias ->
        fun ?displayName ->
          fun ?type_ ->
            fun ?plan ->
              fun () -> { contactArn; alias; displayName; type_; plan }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DataEncryptionException e ->
          `Assoc
            [("error", (`String "DataEncryptionException"));
            ("details", (DataEncryptionException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ContactArn", (Option.map x.contactArn ~f:SsmContactsArn.to_value));
        ("Alias", (Option.map x.alias ~f:ContactAlias.to_value));
        ("DisplayName", (Option.map x.displayName ~f:ContactName.to_value));
        ("Type", (Option.map x.type_ ~f:ContactType.to_value));
        ("Plan", (Option.map x.plan ~f:Plan.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let plan = (Option.map ~f:Plan.of_xml) (Xml.child xml_arg0 "Plan") in
      let type_ =
        (Option.map ~f:ContactType.of_xml) (Xml.child xml_arg0 "Type") in
      let displayName =
        (Option.map ~f:ContactName.of_xml) (Xml.child xml_arg0 "DisplayName") in
      let alias =
        (Option.map ~f:ContactAlias.of_xml) (Xml.child xml_arg0 "Alias") in
      let contactArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactArn") in
      make ?plan ?type_ ?displayName ?alias ?contactArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let plan = field_map json__ "Plan" Plan.of_json in
      let type_ = field_map json__ "Type" ContactType.of_json in
      let displayName = field_map json__ "DisplayName" ContactName.of_json in
      let alias = field_map json__ "Alias" ContactAlias.of_json in
      let contactArn = field_map json__ "ContactArn" SsmContactsArn.of_json in
      make ?plan ?type_ ?displayName ?alias ?contactArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified contact or escalation plan."]
module GetContactRequest =
  struct
    type nonrec t =
      {
      contactId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact or escalation plan."]}
    let context_ = "GetContactRequest"
    let make ~contactId = fun () -> { contactId }
    let to_value x =
      structure_to_value
        [("ContactId", (Some (SsmContactsArn.to_value x.contactId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactId") in
      make ~contactId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactId = field_map_exn json__ "ContactId" SsmContactsArn.of_json in
      make ~contactId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified contact or escalation plan."]
module GetContactPolicyResult =
  struct
    type nonrec t =
      {
      contactArn: SsmContactsArn.t option
        [@ocaml.doc "The ARN of the contact or escalation plan."];
      policy: Policy.t option
        [@ocaml.doc
          "Details about the resource policy attached to the contact or escalation plan."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?contactArn = fun ?policy -> fun () -> { contactArn; policy }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ContactArn", (Option.map x.contactArn ~f:SsmContactsArn.to_value));
        ("Policy", (Option.map x.policy ~f:Policy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:Policy.of_xml) (Xml.child xml_arg0 "Policy") in
      let contactArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactArn") in
      make ?policy ?contactArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "Policy" Policy.of_json in
      let contactArn = field_map json__ "ContactArn" SsmContactsArn.of_json in
      make ?policy ?contactArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the resource policies attached to the specified contact or escalation plan."]
module GetContactPolicyRequest =
  struct
    type nonrec t =
      {
      contactArn: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact or escalation plan."]}
    let context_ = "GetContactPolicyRequest"
    let make ~contactArn = fun () -> { contactArn }
    let to_value x =
      structure_to_value
        [("ContactArn", (Some (SsmContactsArn.to_value x.contactArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactArn =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactArn") in
      make ~contactArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactArn =
        field_map_exn json__ "ContactArn" SsmContactsArn.of_json in
      make ~contactArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the resource policies attached to the specified contact or escalation plan."]
module GetContactChannelResult =
  struct
    type nonrec t =
      {
      contactArn: SsmContactsArn.t option
        [@ocaml.doc "The ARN of the contact that the channel belongs to."];
      contactChannelArn: SsmContactsArn.t option
        [@ocaml.doc "The ARN of the contact channel."];
      name: ChannelName.t option
        [@ocaml.doc "The name of the contact channel"];
      type_: ChannelType.t option
        [@ocaml.doc
          "The type of contact channel. The type is SMS, VOICE, or EMAIL."];
      deliveryAddress: ContactChannelAddress.t option
        [@ocaml.doc
          "The details that Incident Manager uses when trying to engage the contact channel."];
      activationStatus: ActivationStatus.t option
        [@ocaml.doc
          "A Boolean value indicating if the contact channel has been activated or not."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DataEncryptionException of DataEncryptionException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?contactArn =
      fun ?contactChannelArn ->
        fun ?name ->
          fun ?type_ ->
            fun ?deliveryAddress ->
              fun ?activationStatus ->
                fun () ->
                  {
                    contactArn;
                    contactChannelArn;
                    name;
                    type_;
                    deliveryAddress;
                    activationStatus
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DataEncryptionException e ->
          `Assoc
            [("error", (`String "DataEncryptionException"));
            ("details", (DataEncryptionException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ContactArn", (Option.map x.contactArn ~f:SsmContactsArn.to_value));
        ("ContactChannelArn",
          (Option.map x.contactChannelArn ~f:SsmContactsArn.to_value));
        ("Name", (Option.map x.name ~f:ChannelName.to_value));
        ("Type", (Option.map x.type_ ~f:ChannelType.to_value));
        ("DeliveryAddress",
          (Option.map x.deliveryAddress ~f:ContactChannelAddress.to_value));
        ("ActivationStatus",
          (Option.map x.activationStatus ~f:ActivationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let activationStatus =
        (Option.map ~f:ActivationStatus.of_xml)
          (Xml.child xml_arg0 "ActivationStatus") in
      let deliveryAddress =
        (Option.map ~f:ContactChannelAddress.of_xml)
          (Xml.child xml_arg0 "DeliveryAddress") in
      let type_ =
        (Option.map ~f:ChannelType.of_xml) (Xml.child xml_arg0 "Type") in
      let name =
        (Option.map ~f:ChannelName.of_xml) (Xml.child xml_arg0 "Name") in
      let contactChannelArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactChannelArn") in
      let contactArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactArn") in
      make ?activationStatus ?deliveryAddress ?type_ ?name ?contactChannelArn
        ?contactArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let activationStatus =
        field_map json__ "ActivationStatus" ActivationStatus.of_json in
      let deliveryAddress =
        field_map json__ "DeliveryAddress" ContactChannelAddress.of_json in
      let type_ = field_map json__ "Type" ChannelType.of_json in
      let name = field_map json__ "Name" ChannelName.of_json in
      let contactChannelArn =
        field_map json__ "ContactChannelArn" SsmContactsArn.of_json in
      let contactArn = field_map json__ "ContactArn" SsmContactsArn.of_json in
      make ?activationStatus ?deliveryAddress ?type_ ?name ?contactChannelArn
        ?contactArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List details about a specific contact channel."]
module GetContactChannelRequest =
  struct
    type nonrec t =
      {
      contactChannelId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact channel you want information about."]}
    let context_ = "GetContactChannelRequest"
    let make ~contactChannelId = fun () -> { contactChannelId }
    let to_value x =
      structure_to_value
        [("ContactChannelId",
           (Some (SsmContactsArn.to_value x.contactChannelId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactChannelId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactChannelId") in
      make ~contactChannelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactChannelId =
        field_map_exn json__ "ContactChannelId" SsmContactsArn.of_json in
      make ~contactChannelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List details about a specific contact channel."]
module DescribePageResult =
  struct
    type nonrec t =
      {
      pageArn: SsmContactsArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the engagement to a contact channel."];
      engagementArn: SsmContactsArn.t option
        [@ocaml.doc
          "The ARN of the engagement that engaged the contact channel."];
      contactArn: SsmContactsArn.t option
        [@ocaml.doc "The ARN of the contact that was engaged."];
      sender: Sender.t option
        [@ocaml.doc "The user that started the engagement."];
      subject: Subject.t option
        [@ocaml.doc
          "The secure subject of the message that was sent to the contact. Use this field for engagements to VOICE and EMAIL."];
      content: Content.t option
        [@ocaml.doc
          "The secure content of the message that was sent to the contact. Use this field for engagements to VOICE and EMAIL."];
      publicSubject: PublicSubject.t option
        [@ocaml.doc
          "The insecure subject of the message that was sent to the contact. Use this field for engagements to SMS."];
      publicContent: PublicContent.t option
        [@ocaml.doc
          "The insecure content of the message that was sent to the contact. Use this field for engagements to SMS."];
      incidentId: IncidentId.t option
        [@ocaml.doc
          "The ARN of the incident that engaged the contact channel."];
      sentTime: DateTime.t option
        [@ocaml.doc
          "The time the engagement was sent to the contact channel."];
      readTime: DateTime.t option
        [@ocaml.doc
          "The time that the contact channel acknowledged the engagement."];
      deliveryTime: DateTime.t option
        [@ocaml.doc
          "The time that the contact channel received the engagement."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DataEncryptionException of DataEncryptionException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pageArn =
      fun ?engagementArn ->
        fun ?contactArn ->
          fun ?sender ->
            fun ?subject ->
              fun ?content ->
                fun ?publicSubject ->
                  fun ?publicContent ->
                    fun ?incidentId ->
                      fun ?sentTime ->
                        fun ?readTime ->
                          fun ?deliveryTime ->
                            fun () ->
                              {
                                pageArn;
                                engagementArn;
                                contactArn;
                                sender;
                                subject;
                                content;
                                publicSubject;
                                publicContent;
                                incidentId;
                                sentTime;
                                readTime;
                                deliveryTime
                              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DataEncryptionException e ->
          `Assoc
            [("error", (`String "DataEncryptionException"));
            ("details", (DataEncryptionException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("PageArn", (Option.map x.pageArn ~f:SsmContactsArn.to_value));
        ("EngagementArn",
          (Option.map x.engagementArn ~f:SsmContactsArn.to_value));
        ("ContactArn", (Option.map x.contactArn ~f:SsmContactsArn.to_value));
        ("Sender", (Option.map x.sender ~f:Sender.to_value));
        ("Subject", (Option.map x.subject ~f:Subject.to_value));
        ("Content", (Option.map x.content ~f:Content.to_value));
        ("PublicSubject",
          (Option.map x.publicSubject ~f:PublicSubject.to_value));
        ("PublicContent",
          (Option.map x.publicContent ~f:PublicContent.to_value));
        ("IncidentId", (Option.map x.incidentId ~f:IncidentId.to_value));
        ("SentTime", (Option.map x.sentTime ~f:DateTime.to_value));
        ("ReadTime", (Option.map x.readTime ~f:DateTime.to_value));
        ("DeliveryTime", (Option.map x.deliveryTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deliveryTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "DeliveryTime") in
      let readTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "ReadTime") in
      let sentTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "SentTime") in
      let incidentId =
        (Option.map ~f:IncidentId.of_xml) (Xml.child xml_arg0 "IncidentId") in
      let publicContent =
        (Option.map ~f:PublicContent.of_xml)
          (Xml.child xml_arg0 "PublicContent") in
      let publicSubject =
        (Option.map ~f:PublicSubject.of_xml)
          (Xml.child xml_arg0 "PublicSubject") in
      let content =
        (Option.map ~f:Content.of_xml) (Xml.child xml_arg0 "Content") in
      let subject =
        (Option.map ~f:Subject.of_xml) (Xml.child xml_arg0 "Subject") in
      let sender =
        (Option.map ~f:Sender.of_xml) (Xml.child xml_arg0 "Sender") in
      let contactArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactArn") in
      let engagementArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "EngagementArn") in
      let pageArn =
        (Option.map ~f:SsmContactsArn.of_xml) (Xml.child xml_arg0 "PageArn") in
      make ?deliveryTime ?readTime ?sentTime ?incidentId ?publicContent
        ?publicSubject ?content ?subject ?sender ?contactArn ?engagementArn
        ?pageArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deliveryTime = field_map json__ "DeliveryTime" DateTime.of_json in
      let readTime = field_map json__ "ReadTime" DateTime.of_json in
      let sentTime = field_map json__ "SentTime" DateTime.of_json in
      let incidentId = field_map json__ "IncidentId" IncidentId.of_json in
      let publicContent =
        field_map json__ "PublicContent" PublicContent.of_json in
      let publicSubject =
        field_map json__ "PublicSubject" PublicSubject.of_json in
      let content = field_map json__ "Content" Content.of_json in
      let subject = field_map json__ "Subject" Subject.of_json in
      let sender = field_map json__ "Sender" Sender.of_json in
      let contactArn = field_map json__ "ContactArn" SsmContactsArn.of_json in
      let engagementArn =
        field_map json__ "EngagementArn" SsmContactsArn.of_json in
      let pageArn = field_map json__ "PageArn" SsmContactsArn.of_json in
      make ?deliveryTime ?readTime ?sentTime ?incidentId ?publicContent
        ?publicSubject ?content ?subject ?sender ?contactArn ?engagementArn
        ?pageArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists details of the engagement to a contact channel."]
module DescribePageRequest =
  struct
    type nonrec t =
      {
      pageId: SsmContactsArn.t
        [@ocaml.doc "The ID of the engagement to a contact channel."]}
    let context_ = "DescribePageRequest"
    let make ~pageId = fun () -> { pageId }
    let to_value x =
      structure_to_value
        [("PageId", (Some (SsmContactsArn.to_value x.pageId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pageId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PageId") in
      make ~pageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pageId = field_map_exn json__ "PageId" SsmContactsArn.of_json in
      make ~pageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists details of the engagement to a contact channel."]
module DescribeEngagementResult =
  struct
    type nonrec t =
      {
      contactArn: SsmContactsArn.t option
        [@ocaml.doc
          "The ARN of the escalation plan or contacts involved in the engagement."];
      engagementArn: SsmContactsArn.t option
        [@ocaml.doc "The ARN of the engagement."];
      sender: Sender.t option
        [@ocaml.doc "The user that started the engagement."];
      subject: Subject.t option
        [@ocaml.doc
          "The secure subject of the message that was sent to the contact. Use this field for engagements to VOICE and EMAIL."];
      content: Content.t option
        [@ocaml.doc
          "The secure content of the message that was sent to the contact. Use this field for engagements to VOICE and EMAIL."];
      publicSubject: PublicSubject.t option
        [@ocaml.doc
          "The insecure subject of the message that was sent to the contact. Use this field for engagements to SMS."];
      publicContent: PublicContent.t option
        [@ocaml.doc
          "The insecure content of the message that was sent to the contact. Use this field for engagements to SMS."];
      incidentId: IncidentId.t option
        [@ocaml.doc
          "The ARN of the incident in which the engagement occurred."];
      startTime: DateTime.t option
        [@ocaml.doc "The time that the engagement started."];
      stopTime: DateTime.t option
        [@ocaml.doc "The time that the engagement ended."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DataEncryptionException of DataEncryptionException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?contactArn =
      fun ?engagementArn ->
        fun ?sender ->
          fun ?subject ->
            fun ?content ->
              fun ?publicSubject ->
                fun ?publicContent ->
                  fun ?incidentId ->
                    fun ?startTime ->
                      fun ?stopTime ->
                        fun () ->
                          {
                            contactArn;
                            engagementArn;
                            sender;
                            subject;
                            content;
                            publicSubject;
                            publicContent;
                            incidentId;
                            startTime;
                            stopTime
                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DataEncryptionException e ->
          `Assoc
            [("error", (`String "DataEncryptionException"));
            ("details", (DataEncryptionException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ContactArn", (Option.map x.contactArn ~f:SsmContactsArn.to_value));
        ("EngagementArn",
          (Option.map x.engagementArn ~f:SsmContactsArn.to_value));
        ("Sender", (Option.map x.sender ~f:Sender.to_value));
        ("Subject", (Option.map x.subject ~f:Subject.to_value));
        ("Content", (Option.map x.content ~f:Content.to_value));
        ("PublicSubject",
          (Option.map x.publicSubject ~f:PublicSubject.to_value));
        ("PublicContent",
          (Option.map x.publicContent ~f:PublicContent.to_value));
        ("IncidentId", (Option.map x.incidentId ~f:IncidentId.to_value));
        ("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("StopTime", (Option.map x.stopTime ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stopTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StopTime") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let incidentId =
        (Option.map ~f:IncidentId.of_xml) (Xml.child xml_arg0 "IncidentId") in
      let publicContent =
        (Option.map ~f:PublicContent.of_xml)
          (Xml.child xml_arg0 "PublicContent") in
      let publicSubject =
        (Option.map ~f:PublicSubject.of_xml)
          (Xml.child xml_arg0 "PublicSubject") in
      let content =
        (Option.map ~f:Content.of_xml) (Xml.child xml_arg0 "Content") in
      let subject =
        (Option.map ~f:Subject.of_xml) (Xml.child xml_arg0 "Subject") in
      let sender =
        (Option.map ~f:Sender.of_xml) (Xml.child xml_arg0 "Sender") in
      let engagementArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "EngagementArn") in
      let contactArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactArn") in
      make ?stopTime ?startTime ?incidentId ?publicContent ?publicSubject
        ?content ?subject ?sender ?engagementArn ?contactArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stopTime = field_map json__ "StopTime" DateTime.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      let incidentId = field_map json__ "IncidentId" IncidentId.of_json in
      let publicContent =
        field_map json__ "PublicContent" PublicContent.of_json in
      let publicSubject =
        field_map json__ "PublicSubject" PublicSubject.of_json in
      let content = field_map json__ "Content" Content.of_json in
      let subject = field_map json__ "Subject" Subject.of_json in
      let sender = field_map json__ "Sender" Sender.of_json in
      let engagementArn =
        field_map json__ "EngagementArn" SsmContactsArn.of_json in
      let contactArn = field_map json__ "ContactArn" SsmContactsArn.of_json in
      make ?stopTime ?startTime ?incidentId ?publicContent ?publicSubject
        ?content ?subject ?sender ?engagementArn ?contactArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Incident Manager uses engagements to engage contacts and escalation plans during an incident. Use this command to describe the engagement that occurred during an incident."]
module DescribeEngagementRequest =
  struct
    type nonrec t =
      {
      engagementId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the engagement you want the details of."]}
    let context_ = "DescribeEngagementRequest"
    let make ~engagementId = fun () -> { engagementId }
    let to_value x =
      structure_to_value
        [("EngagementId", (Some (SsmContactsArn.to_value x.engagementId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let engagementId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EngagementId") in
      make ~engagementId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let engagementId =
        field_map_exn json__ "EngagementId" SsmContactsArn.of_json in
      make ~engagementId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Incident Manager uses engagements to engage contacts and escalation plans during an incident. Use this command to describe the engagement that occurred during an incident."]
module DeleteRotationResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a rotation from the system. If a rotation belongs to more than one on-call schedule, this operation deletes it from all of them."]
module DeleteRotationRequest =
  struct
    type nonrec t =
      {
      rotationId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the on-call rotation to delete."]}
    let context_ = "DeleteRotationRequest"
    let make ~rotationId = fun () -> { rotationId }
    let to_value x =
      structure_to_value
        [("RotationId", (Some (SsmContactsArn.to_value x.rotationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rotationId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RotationId") in
      make ~rotationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rotationId =
        field_map_exn json__ "RotationId" SsmContactsArn.of_json in
      make ~rotationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a rotation from the system. If a rotation belongs to more than one on-call schedule, this operation deletes it from all of them."]
module DeleteRotationOverrideResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an existing override for an on-call rotation."]
module DeleteRotationOverrideRequest =
  struct
    type nonrec t =
      {
      rotationId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rotation that was overridden."];
      rotationOverrideId: Uuid.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the on-call rotation override to delete."]}
    let context_ = "DeleteRotationOverrideRequest"
    let make ~rotationId =
      fun ~rotationOverrideId -> fun () -> { rotationId; rotationOverrideId }
    let to_value x =
      structure_to_value
        [("RotationId", (Some (SsmContactsArn.to_value x.rotationId)));
        ("RotationOverrideId", (Some (Uuid.to_value x.rotationOverrideId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rotationOverrideId =
        Uuid.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RotationOverrideId") in
      let rotationId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RotationId") in
      make ~rotationOverrideId ~rotationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rotationOverrideId =
        field_map_exn json__ "RotationOverrideId" Uuid.of_json in
      let rotationId =
        field_map_exn json__ "RotationId" SsmContactsArn.of_json in
      make ~rotationOverrideId ~rotationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an existing override for an on-call rotation."]
module DeleteContactResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "To remove a contact from Incident Manager, you can delete the contact. However, deleting a contact does not remove it from escalation plans and related response plans. Deleting an escalation plan also does not remove it from all related response plans. To modify an escalation plan, we recommend using the UpdateContact action to specify a different existing contact."]
module DeleteContactRequest =
  struct
    type nonrec t =
      {
      contactId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact that you're deleting."]}
    let context_ = "DeleteContactRequest"
    let make ~contactId = fun () -> { contactId }
    let to_value x =
      structure_to_value
        [("ContactId", (Some (SsmContactsArn.to_value x.contactId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactId") in
      make ~contactId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactId = field_map_exn json__ "ContactId" SsmContactsArn.of_json in
      make ~contactId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "To remove a contact from Incident Manager, you can delete the contact. However, deleting a contact does not remove it from escalation plans and related response plans. Deleting an escalation plan also does not remove it from all related response plans. To modify an escalation plan, we recommend using the UpdateContact action to specify a different existing contact."]
module DeleteContactChannelResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "To stop receiving engagements on a contact channel, you can delete the channel from a contact. Deleting the contact channel does not remove it from the contact's engagement plan, but the stage that includes the channel will be ignored. If you delete the only contact channel for a contact, you'll no longer be able to engage that contact during an incident."]
module DeleteContactChannelRequest =
  struct
    type nonrec t =
      {
      contactChannelId: SsmContactsArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the contact channel."]}
    let context_ = "DeleteContactChannelRequest"
    let make ~contactChannelId = fun () -> { contactChannelId }
    let to_value x =
      structure_to_value
        [("ContactChannelId",
           (Some (SsmContactsArn.to_value x.contactChannelId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactChannelId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactChannelId") in
      make ~contactChannelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactChannelId =
        field_map_exn json__ "ContactChannelId" SsmContactsArn.of_json in
      make ~contactChannelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "To stop receiving engagements on a contact channel, you can delete the channel from a contact. Deleting the contact channel does not remove it from the contact's engagement plan, but the stage that includes the channel will be ignored. If you delete the only contact channel for a contact, you'll no longer be able to engage that contact during an incident."]
module DeactivateContactChannelResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "To no longer receive Incident Manager engagements to a contact channel, you can deactivate the channel."]
module DeactivateContactChannelRequest =
  struct
    type nonrec t =
      {
      contactChannelId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact channel you're deactivating."]}
    let context_ = "DeactivateContactChannelRequest"
    let make ~contactChannelId = fun () -> { contactChannelId }
    let to_value x =
      structure_to_value
        [("ContactChannelId",
           (Some (SsmContactsArn.to_value x.contactChannelId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactChannelId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactChannelId") in
      make ~contactChannelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactChannelId =
        field_map_exn json__ "ContactChannelId" SsmContactsArn.of_json in
      make ~contactChannelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "To no longer receive Incident Manager engagements to a contact channel, you can deactivate the channel."]
module CreateRotationResult =
  struct
    type nonrec t =
      {
      rotationArn: SsmContactsArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the created rotation."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rotationArn = fun () -> { rotationArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RotationArn",
           (Option.map x.rotationArn ~f:SsmContactsArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rotationArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "RotationArn") in
      make ?rotationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rotationArn = field_map json__ "RotationArn" SsmContactsArn.of_json in
      make ?rotationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a rotation in an on-call schedule."]
module CreateRotationRequest =
  struct
    type nonrec t =
      {
      name: RotationName.t [@ocaml.doc "The name of the rotation."];
      contactIds: RotationContactsArnList.t
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the contacts to add to the rotation. Only the PERSONAL contact type is supported. The contact types ESCALATION and ONCALL_SCHEDULE are not supported for this operation. The order that you list the contacts in is their shift order in the rotation schedule. To change the order of the contact's shifts, use the UpdateRotation operation."];
      startTime: DateTime.t option
        [@ocaml.doc "The date and time that the rotation goes into effect."];
      timeZoneId: TimeZoneId.t
        [@ocaml.doc
          "The time zone to base the rotation\226\128\153s activity on in Internet Assigned Numbers Authority (IANA) format. For example: \"America/Los_Angeles\", \"UTC\", or \"Asia/Seoul\". For more information, see the Time Zone Database on the IANA website. Designators for time zones that don\226\128\153t support Daylight Savings Time rules, such as Pacific Standard Time (PST), are not supported."];
      recurrence: RecurrenceSettings.t
        [@ocaml.doc
          "Information about the rule that specifies when a shift's team members rotate."];
      tags: TagsList.t option
        [@ocaml.doc
          "Optional metadata to assign to the rotation. Tags enable you to categorize a resource in different ways, such as by purpose, owner, or environment. For more information, see Tagging Incident Manager resources in the Incident Manager User Guide."];
      idempotencyToken: IdempotencyToken.t option
        [@ocaml.doc
          "A token that ensures that the operation is called only once with the specified details."]}
    let context_ = "CreateRotationRequest"
    let make ?startTime =
      fun ?tags ->
        fun ?idempotencyToken ->
          fun ~name ->
            fun ~contactIds ->
              fun ~timeZoneId ->
                fun ~recurrence ->
                  fun () ->
                    {
                      startTime;
                      tags;
                      idempotencyToken;
                      name;
                      contactIds;
                      timeZoneId;
                      recurrence
                    }
    let to_value x =
      structure_to_value
        [("Name", (Some (RotationName.to_value x.name)));
        ("ContactIds",
          (Some (RotationContactsArnList.to_value x.contactIds)));
        ("StartTime", (Option.map x.startTime ~f:DateTime.to_value));
        ("TimeZoneId", (Some (TimeZoneId.to_value x.timeZoneId)));
        ("Recurrence", (Some (RecurrenceSettings.to_value x.recurrence)));
        ("Tags", (Option.map x.tags ~f:TagsList.to_value));
        ("IdempotencyToken",
          (Option.map x.idempotencyToken ~f:IdempotencyToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let idempotencyToken =
        (Option.map ~f:IdempotencyToken.of_xml)
          (Xml.child xml_arg0 "IdempotencyToken") in
      let tags = (Option.map ~f:TagsList.of_xml) (Xml.child xml_arg0 "Tags") in
      let recurrence =
        RecurrenceSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Recurrence") in
      let timeZoneId =
        TimeZoneId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TimeZoneId") in
      let startTime =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "StartTime") in
      let contactIds =
        RotationContactsArnList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactIds") in
      let name =
        RotationName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?idempotencyToken ?tags ~recurrence ~timeZoneId ?startTime
        ~contactIds ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let idempotencyToken =
        field_map json__ "IdempotencyToken" IdempotencyToken.of_json in
      let tags = field_map json__ "Tags" TagsList.of_json in
      let recurrence =
        field_map_exn json__ "Recurrence" RecurrenceSettings.of_json in
      let timeZoneId = field_map_exn json__ "TimeZoneId" TimeZoneId.of_json in
      let startTime = field_map json__ "StartTime" DateTime.of_json in
      let contactIds =
        field_map_exn json__ "ContactIds" RotationContactsArnList.of_json in
      let name = field_map_exn json__ "Name" RotationName.of_json in
      make ?idempotencyToken ?tags ~recurrence ~timeZoneId ?startTime
        ~contactIds ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a rotation in an on-call schedule."]
module CreateRotationOverrideResult =
  struct
    type nonrec t =
      {
      rotationOverrideId: Uuid.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the created rotation override."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?rotationOverrideId = fun () -> { rotationOverrideId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("RotationOverrideId",
           (Option.map x.rotationOverrideId ~f:Uuid.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rotationOverrideId =
        (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "RotationOverrideId") in
      make ?rotationOverrideId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rotationOverrideId =
        field_map json__ "RotationOverrideId" Uuid.of_json in
      make ?rotationOverrideId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an override for a rotation in an on-call schedule."]
module CreateRotationOverrideRequest =
  struct
    type nonrec t =
      {
      rotationId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the rotation to create an override for."];
      newContactIds: RotationOverrideContactsArnList.t
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of the contacts to replace those in the current on-call rotation with. If you want to include any current team members in the override shift, you must include their ARNs in the new contact ID list."];
      startTime: DateTime.t
        [@ocaml.doc "The date and time when the override goes into effect."];
      endTime: DateTime.t
        [@ocaml.doc "The date and time when the override ends."];
      idempotencyToken: IdempotencyToken.t option
        [@ocaml.doc
          "A token that ensures that the operation is called only once with the specified details."]}
    let context_ = "CreateRotationOverrideRequest"
    let make ?idempotencyToken =
      fun ~rotationId ->
        fun ~newContactIds ->
          fun ~startTime ->
            fun ~endTime ->
              fun () ->
                {
                  idempotencyToken;
                  rotationId;
                  newContactIds;
                  startTime;
                  endTime
                }
    let to_value x =
      structure_to_value
        [("RotationId", (Some (SsmContactsArn.to_value x.rotationId)));
        ("NewContactIds",
          (Some (RotationOverrideContactsArnList.to_value x.newContactIds)));
        ("StartTime", (Some (DateTime.to_value x.startTime)));
        ("EndTime", (Some (DateTime.to_value x.endTime)));
        ("IdempotencyToken",
          (Option.map x.idempotencyToken ~f:IdempotencyToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let idempotencyToken =
        (Option.map ~f:IdempotencyToken.of_xml)
          (Xml.child xml_arg0 "IdempotencyToken") in
      let endTime =
        DateTime.of_xml (Xml.child_exn ~context:context_ xml_arg0 "EndTime") in
      let startTime =
        DateTime.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartTime") in
      let newContactIds =
        RotationOverrideContactsArnList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NewContactIds") in
      let rotationId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RotationId") in
      make ?idempotencyToken ~endTime ~startTime ~newContactIds ~rotationId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let idempotencyToken =
        field_map json__ "IdempotencyToken" IdempotencyToken.of_json in
      let endTime = field_map_exn json__ "EndTime" DateTime.of_json in
      let startTime = field_map_exn json__ "StartTime" DateTime.of_json in
      let newContactIds =
        field_map_exn json__ "NewContactIds"
          RotationOverrideContactsArnList.of_json in
      let rotationId =
        field_map_exn json__ "RotationId" SsmContactsArn.of_json in
      make ?idempotencyToken ~endTime ~startTime ~newContactIds ~rotationId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an override for a rotation in an on-call schedule."]
module CreateContactResult =
  struct
    type nonrec t =
      {
      contactArn: SsmContactsArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the created contact or escalation plan."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `DataEncryptionException of DataEncryptionException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?contactArn = fun () -> { contactArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `DataEncryptionException e ->
          `Assoc
            [("error", (`String "DataEncryptionException"));
            ("details", (DataEncryptionException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ContactArn", (Option.map x.contactArn ~f:SsmContactsArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactArn") in
      make ?contactArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactArn = field_map json__ "ContactArn" SsmContactsArn.of_json in
      make ?contactArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contacts are either the contacts that Incident Manager engages during an incident or the escalation plans that Incident Manager uses to engage contacts in phases during an incident."]
module CreateContactRequest =
  struct
    type nonrec t =
      {
      alias: ContactAlias.t
        [@ocaml.doc
          "The short name to quickly identify a contact or escalation plan. The contact alias must be unique and identifiable."];
      displayName: ContactName.t option
        [@ocaml.doc "The full name of the contact or escalation plan."];
      type_: ContactType.t
        [@ocaml.doc
          "The type of contact to create. PERSONAL: A single, individual contact. ESCALATION: An escalation plan. ONCALL_SCHEDULE: An on-call schedule."];
      plan: Plan.t
        [@ocaml.doc
          "A list of stages. A contact has an engagement plan with stages that contact specified contact channels. An escalation plan uses stages that contact specified contacts."];
      tags: TagsList.t option
        [@ocaml.doc
          "Adds a tag to the target. You can only tag resources created in the first Region of your replication set."];
      idempotencyToken: IdempotencyToken.t option
        [@ocaml.doc
          "A token ensuring that the operation is called only once with the specified details."]}
    let context_ = "CreateContactRequest"
    let make ?displayName =
      fun ?tags ->
        fun ?idempotencyToken ->
          fun ~alias ->
            fun ~type_ ->
              fun ~plan ->
                fun () ->
                  { displayName; tags; idempotencyToken; alias; type_; plan }
    let to_value x =
      structure_to_value
        [("Alias", (Some (ContactAlias.to_value x.alias)));
        ("DisplayName", (Option.map x.displayName ~f:ContactName.to_value));
        ("Type", (Some (ContactType.to_value x.type_)));
        ("Plan", (Some (Plan.to_value x.plan)));
        ("Tags", (Option.map x.tags ~f:TagsList.to_value));
        ("IdempotencyToken",
          (Option.map x.idempotencyToken ~f:IdempotencyToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let idempotencyToken =
        (Option.map ~f:IdempotencyToken.of_xml)
          (Xml.child xml_arg0 "IdempotencyToken") in
      let tags = (Option.map ~f:TagsList.of_xml) (Xml.child xml_arg0 "Tags") in
      let plan =
        Plan.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Plan") in
      let type_ =
        ContactType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let displayName =
        (Option.map ~f:ContactName.of_xml) (Xml.child xml_arg0 "DisplayName") in
      let alias =
        ContactAlias.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Alias") in
      make ?idempotencyToken ?tags ~plan ~type_ ?displayName ~alias ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let idempotencyToken =
        field_map json__ "IdempotencyToken" IdempotencyToken.of_json in
      let tags = field_map json__ "Tags" TagsList.of_json in
      let plan = field_map_exn json__ "Plan" Plan.of_json in
      let type_ = field_map_exn json__ "Type" ContactType.of_json in
      let displayName = field_map json__ "DisplayName" ContactName.of_json in
      let alias = field_map_exn json__ "Alias" ContactAlias.of_json in
      make ?idempotencyToken ?tags ~plan ~type_ ?displayName ~alias ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contacts are either the contacts that Incident Manager engages during an incident or the escalation plans that Incident Manager uses to engage contacts in phases during an incident."]
module CreateContactChannelResult =
  struct
    type nonrec t =
      {
      contactChannelArn: SsmContactsArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the contact channel."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `DataEncryptionException of DataEncryptionException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?contactChannelArn = fun () -> { contactChannelArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "DataEncryptionException" ->
          `DataEncryptionException (DataEncryptionException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `DataEncryptionException e ->
          `Assoc
            [("error", (`String "DataEncryptionException"));
            ("details", (DataEncryptionException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ContactChannelArn",
           (Option.map x.contactChannelArn ~f:SsmContactsArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactChannelArn =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactChannelArn") in
      make ?contactChannelArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactChannelArn =
        field_map json__ "ContactChannelArn" SsmContactsArn.of_json in
      make ?contactChannelArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A contact channel is the method that Incident Manager uses to engage your contact."]
module CreateContactChannelRequest =
  struct
    type nonrec t =
      {
      contactId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the contact you are adding the contact channel to."];
      name: ChannelName.t [@ocaml.doc "The name of the contact channel."];
      type_: ChannelType.t
        [@ocaml.doc
          "Incident Manager supports three types of contact channels: SMS VOICE EMAIL"];
      deliveryAddress: ContactChannelAddress.t
        [@ocaml.doc
          "The details that Incident Manager uses when trying to engage the contact channel. The format is dependent on the type of the contact channel. The following are the expected formats: SMS - '+' followed by the country code and phone number VOICE - '+' followed by the country code and phone number EMAIL - any standard email format"];
      deferActivation: DeferActivation.t option
        [@ocaml.doc
          "If you want to activate the channel at a later time, you can choose to defer activation. Incident Manager can't engage your contact channel until it has been activated."];
      idempotencyToken: IdempotencyToken.t option
        [@ocaml.doc
          "A token ensuring that the operation is called only once with the specified details."]}
    let context_ = "CreateContactChannelRequest"
    let make ?deferActivation =
      fun ?idempotencyToken ->
        fun ~contactId ->
          fun ~name ->
            fun ~type_ ->
              fun ~deliveryAddress ->
                fun () ->
                  {
                    deferActivation;
                    idempotencyToken;
                    contactId;
                    name;
                    type_;
                    deliveryAddress
                  }
    let to_value x =
      structure_to_value
        [("ContactId", (Some (SsmContactsArn.to_value x.contactId)));
        ("Name", (Some (ChannelName.to_value x.name)));
        ("Type", (Some (ChannelType.to_value x.type_)));
        ("DeliveryAddress",
          (Some (ContactChannelAddress.to_value x.deliveryAddress)));
        ("DeferActivation",
          (Option.map x.deferActivation ~f:DeferActivation.to_value));
        ("IdempotencyToken",
          (Option.map x.idempotencyToken ~f:IdempotencyToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let idempotencyToken =
        (Option.map ~f:IdempotencyToken.of_xml)
          (Xml.child xml_arg0 "IdempotencyToken") in
      let deferActivation =
        (Option.map ~f:DeferActivation.of_xml)
          (Xml.child xml_arg0 "DeferActivation") in
      let deliveryAddress =
        ContactChannelAddress.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DeliveryAddress") in
      let type_ =
        ChannelType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let name =
        ChannelName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let contactId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactId") in
      make ?idempotencyToken ?deferActivation ~deliveryAddress ~type_ ~name
        ~contactId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let idempotencyToken =
        field_map json__ "IdempotencyToken" IdempotencyToken.of_json in
      let deferActivation =
        field_map json__ "DeferActivation" DeferActivation.of_json in
      let deliveryAddress =
        field_map_exn json__ "DeliveryAddress" ContactChannelAddress.of_json in
      let type_ = field_map_exn json__ "Type" ChannelType.of_json in
      let name = field_map_exn json__ "Name" ChannelName.of_json in
      let contactId = field_map_exn json__ "ContactId" SsmContactsArn.of_json in
      make ?idempotencyToken ?deferActivation ~deliveryAddress ~type_ ~name
        ~contactId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A contact channel is the method that Incident Manager uses to engage your contact."]
module ActivateContactChannelResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Activates a contact's contact channel. Incident Manager can't engage a contact until the contact channel has been activated."]
module ActivateContactChannelRequest =
  struct
    type nonrec t =
      {
      contactChannelId: SsmContactsArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the contact channel."];
      activationCode: ActivationCode.t
        [@ocaml.doc
          "The code sent to the contact channel when it was created in the contact."]}
    let context_ = "ActivateContactChannelRequest"
    let make ~contactChannelId =
      fun ~activationCode -> fun () -> { contactChannelId; activationCode }
    let to_value x =
      structure_to_value
        [("ContactChannelId",
           (Some (SsmContactsArn.to_value x.contactChannelId)));
        ("ActivationCode", (Some (ActivationCode.to_value x.activationCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let activationCode =
        ActivationCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ActivationCode") in
      let contactChannelId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ContactChannelId") in
      make ~activationCode ~contactChannelId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let activationCode =
        field_map_exn json__ "ActivationCode" ActivationCode.of_json in
      let contactChannelId =
        field_map_exn json__ "ContactChannelId" SsmContactsArn.of_json in
      make ~activationCode ~contactChannelId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Activates a contact's contact channel. Incident Manager can't engage a contact until the contact channel has been activated."]
module AcceptPageResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Used to acknowledge an engagement to a contact channel during an incident."]
module AcceptPageRequest =
  struct
    type nonrec t =
      {
      pageId: SsmContactsArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the engagement to a contact channel."];
      contactChannelId: SsmContactsArn.t option
        [@ocaml.doc "The ARN of the contact channel."];
      acceptType: AcceptType.t
        [@ocaml.doc "The type indicates if the page was DELIVERED or READ."];
      note: ReceiptInfo.t option
        [@ocaml.doc
          "Information provided by the user when the user acknowledges the page."];
      acceptCode: AcceptCode.t
        [@ocaml.doc "A 6-digit code used to acknowledge the page."];
      acceptCodeValidation: AcceptCodeValidation.t option
        [@ocaml.doc
          "An optional field that Incident Manager uses to ENFORCE AcceptCode validation when acknowledging an page. Acknowledgement can occur by replying to a page, or when entering the AcceptCode in the console. Enforcing AcceptCode validation causes Incident Manager to verify that the code entered by the user matches the code sent by Incident Manager with the page. Incident Manager can also IGNORE AcceptCode validation. Ignoring AcceptCode validation causes Incident Manager to accept any value entered for the AcceptCode."]}
    let context_ = "AcceptPageRequest"
    let make ?contactChannelId =
      fun ?note ->
        fun ?acceptCodeValidation ->
          fun ~pageId ->
            fun ~acceptType ->
              fun ~acceptCode ->
                fun () ->
                  {
                    contactChannelId;
                    note;
                    acceptCodeValidation;
                    pageId;
                    acceptType;
                    acceptCode
                  }
    let to_value x =
      structure_to_value
        [("PageId", (Some (SsmContactsArn.to_value x.pageId)));
        ("ContactChannelId",
          (Option.map x.contactChannelId ~f:SsmContactsArn.to_value));
        ("AcceptType", (Some (AcceptType.to_value x.acceptType)));
        ("Note", (Option.map x.note ~f:ReceiptInfo.to_value));
        ("AcceptCode", (Some (AcceptCode.to_value x.acceptCode)));
        ("AcceptCodeValidation",
          (Option.map x.acceptCodeValidation ~f:AcceptCodeValidation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let acceptCodeValidation =
        (Option.map ~f:AcceptCodeValidation.of_xml)
          (Xml.child xml_arg0 "AcceptCodeValidation") in
      let acceptCode =
        AcceptCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AcceptCode") in
      let note =
        (Option.map ~f:ReceiptInfo.of_xml) (Xml.child xml_arg0 "Note") in
      let acceptType =
        AcceptType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AcceptType") in
      let contactChannelId =
        (Option.map ~f:SsmContactsArn.of_xml)
          (Xml.child xml_arg0 "ContactChannelId") in
      let pageId =
        SsmContactsArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PageId") in
      make ?acceptCodeValidation ~acceptCode ?note ~acceptType
        ?contactChannelId ~pageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let acceptCodeValidation =
        field_map json__ "AcceptCodeValidation" AcceptCodeValidation.of_json in
      let acceptCode = field_map_exn json__ "AcceptCode" AcceptCode.of_json in
      let note = field_map json__ "Note" ReceiptInfo.of_json in
      let acceptType = field_map_exn json__ "AcceptType" AcceptType.of_json in
      let contactChannelId =
        field_map json__ "ContactChannelId" SsmContactsArn.of_json in
      let pageId = field_map_exn json__ "PageId" SsmContactsArn.of_json in
      make ?acceptCodeValidation ~acceptCode ?note ~acceptType
        ?contactChannelId ~pageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Used to acknowledge an engagement to a contact channel during an incident."]