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.iotdeviceadvisor
let apiVersion = "2020-09-18"
let endpointPrefix = "api.iotdeviceadvisor"
let serviceFullName = "AWS IoT Core Device Advisor"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "AWSIoTDeviceAdvisor"
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 Failure =
  struct
    type nonrec t = string
    let context_ = "Failure"
    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:"Failure" j
    let to_json = simple_to_json to_value
  end
module SystemMessage =
  struct
    type nonrec t = string
    let context_ = "SystemMessage"
    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:"SystemMessage" j
    let to_json = simple_to_json to_value
  end
module TestCaseScenarioId =
  struct
    type nonrec t = string
    let context_ = "TestCaseScenarioId"
    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:"TestCaseScenarioId" j
    let to_json = simple_to_json to_value
  end
module TestCaseScenarioStatus =
  struct
    type nonrec t =
      | PASS 
      | FAIL 
      | CANCELED 
      | PENDING 
      | RUNNING 
      | STOPPING 
      | STOPPED 
      | PASS_WITH_WARNINGS 
      | ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PASS -> "PASS"
      | FAIL -> "FAIL"
      | CANCELED -> "CANCELED"
      | PENDING -> "PENDING"
      | RUNNING -> "RUNNING"
      | STOPPING -> "STOPPING"
      | STOPPED -> "STOPPED"
      | PASS_WITH_WARNINGS -> "PASS_WITH_WARNINGS"
      | ERROR -> "ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "PASS" -> PASS
      | "FAIL" -> FAIL
      | "CANCELED" -> CANCELED
      | "PENDING" -> PENDING
      | "RUNNING" -> RUNNING
      | "STOPPING" -> STOPPING
      | "STOPPED" -> STOPPED
      | "PASS_WITH_WARNINGS" -> PASS_WITH_WARNINGS
      | "ERROR" -> ERROR
      | 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 TestCaseScenarioStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TestCaseScenarioStatus" j)
    let to_json = simple_to_json to_value
  end
module TestCaseScenarioType =
  struct
    type nonrec t =
      | Advanced 
      | Basic 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Advanced -> "Advanced"
      | Basic -> "Basic"
      | Non_static_id s -> s
    let of_string =
      function
      | "Advanced" -> Advanced
      | "Basic" -> Basic
      | 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 TestCaseScenarioType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TestCaseScenarioType" j)
    let to_json = simple_to_json to_value
  end
module TestCaseScenario =
  struct
    type nonrec t =
      {
      testCaseScenarioId: TestCaseScenarioId.t option
        [@ocaml.doc "Provides test case scenario ID."];
      testCaseScenarioType: TestCaseScenarioType.t option
        [@ocaml.doc
          "Provides test case scenario type. Type is one of the following: Advanced Basic"];
      status: TestCaseScenarioStatus.t option
        [@ocaml.doc
          "Provides the test case scenario status. Status is one of the following: PASS: Test passed. FAIL: Test failed. PENDING: Test has not started running but is scheduled. RUNNING: Test is running. STOPPING: Test is performing cleanup steps. You will see this status only if you stop a suite run. STOPPED Test is stopped. You will see this status only if you stop a suite run. PASS_WITH_WARNINGS: Test passed with warnings. ERORR: Test faced an error when running due to an internal issue."];
      failure: Failure.t option
        [@ocaml.doc "Provides test case scenario failure result."];
      systemMessage: SystemMessage.t option
        [@ocaml.doc "Provides test case scenario system messages if any."]}
    let make ?testCaseScenarioId =
      fun ?testCaseScenarioType ->
        fun ?status ->
          fun ?failure ->
            fun ?systemMessage ->
              fun () ->
                {
                  testCaseScenarioId;
                  testCaseScenarioType;
                  status;
                  failure;
                  systemMessage
                }
    let to_value x =
      structure_to_value
        [("testCaseScenarioId",
           (Option.map x.testCaseScenarioId ~f:TestCaseScenarioId.to_value));
        ("testCaseScenarioType",
          (Option.map x.testCaseScenarioType ~f:TestCaseScenarioType.to_value));
        ("status", (Option.map x.status ~f:TestCaseScenarioStatus.to_value));
        ("failure", (Option.map x.failure ~f:Failure.to_value));
        ("systemMessage",
          (Option.map x.systemMessage ~f:SystemMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let systemMessage =
        (Option.map ~f:SystemMessage.of_xml)
          (Xml.child xml_arg0 "systemMessage") in
      let failure =
        (Option.map ~f:Failure.of_xml) (Xml.child xml_arg0 "failure") in
      let status =
        (Option.map ~f:TestCaseScenarioStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let testCaseScenarioType =
        (Option.map ~f:TestCaseScenarioType.of_xml)
          (Xml.child xml_arg0 "testCaseScenarioType") in
      let testCaseScenarioId =
        (Option.map ~f:TestCaseScenarioId.of_xml)
          (Xml.child xml_arg0 "testCaseScenarioId") in
      make ?systemMessage ?failure ?status ?testCaseScenarioType
        ?testCaseScenarioId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let systemMessage =
        field_map json__ "systemMessage" SystemMessage.of_json in
      let failure = field_map json__ "failure" Failure.of_json in
      let status = field_map json__ "status" TestCaseScenarioStatus.of_json in
      let testCaseScenarioType =
        field_map json__ "testCaseScenarioType" TestCaseScenarioType.of_json in
      let testCaseScenarioId =
        field_map json__ "testCaseScenarioId" TestCaseScenarioId.of_json in
      make ?systemMessage ?failure ?status ?testCaseScenarioType
        ?testCaseScenarioId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides test case scenario."]
module LogUrl =
  struct
    type nonrec t = string
    let context_ = "LogUrl"
    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:"LogUrl" j
    let to_json = simple_to_json to_value
  end
module Status =
  struct
    type nonrec t =
      | PASS 
      | FAIL 
      | CANCELED 
      | PENDING 
      | RUNNING 
      | STOPPING 
      | STOPPED 
      | PASS_WITH_WARNINGS 
      | ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PASS -> "PASS"
      | FAIL -> "FAIL"
      | CANCELED -> "CANCELED"
      | PENDING -> "PENDING"
      | RUNNING -> "RUNNING"
      | STOPPING -> "STOPPING"
      | STOPPED -> "STOPPED"
      | PASS_WITH_WARNINGS -> "PASS_WITH_WARNINGS"
      | ERROR -> "ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "PASS" -> PASS
      | "FAIL" -> FAIL
      | "CANCELED" -> CANCELED
      | "PENDING" -> PENDING
      | "RUNNING" -> RUNNING
      | "STOPPING" -> STOPPING
      | "STOPPED" -> STOPPED
      | "PASS_WITH_WARNINGS" -> PASS_WITH_WARNINGS
      | "ERROR" -> ERROR
      | 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 Status" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Status" j)
    let to_json = simple_to_json to_value
  end
module TestCaseDefinitionName =
  struct
    type nonrec t = string
    let context_ = "TestCaseDefinitionName"
    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:"TestCaseDefinitionName" j
    let to_json = simple_to_json to_value
  end
module TestCaseScenariosList =
  struct
    type nonrec t = TestCaseScenario.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:TestCaseScenario.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:TestCaseScenario.of_xml)
    let of_json j =
      list_of_json ~kind:"TestCaseScenariosList"
        ~of_json:TestCaseScenario.of_json j
    let to_json v = composed_to_json to_value v
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module UUID =
  struct
    type nonrec t = string
    let context_ = "UUID"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:36) >>=
             (fun () -> check_string_min i ~min:12));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"UUID" j
    let to_json = simple_to_json to_value
  end
module Warnings =
  struct
    type nonrec t = string
    let context_ = "Warnings"
    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:"Warnings" j
    let to_json = simple_to_json to_value
  end
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:2048) >>=
             (fun () -> check_string_min i ~min:20));
        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 TestCaseRun =
  struct
    type nonrec t =
      {
      testCaseRunId: UUID.t option
        [@ocaml.doc "Provides the test case run ID."];
      testCaseDefinitionId: UUID.t option
        [@ocaml.doc "Provides the test case run definition ID."];
      testCaseDefinitionName: TestCaseDefinitionName.t option
        [@ocaml.doc "Provides the test case run definition name."];
      status: Status.t option
        [@ocaml.doc
          "Provides the test case run status. Status is one of the following: PASS: Test passed. FAIL: Test failed. PENDING: Test has not started running but is scheduled. RUNNING: Test is running. STOPPING: Test is performing cleanup steps. You will see this status only if you stop a suite run. STOPPED Test is stopped. You will see this status only if you stop a suite run. PASS_WITH_WARNINGS: Test passed with warnings. ERORR: Test faced an error when running due to an internal issue."];
      startTime: Timestamp.t option
        [@ocaml.doc "Provides test case run start time."];
      endTime: Timestamp.t option
        [@ocaml.doc "Provides test case run end time."];
      logUrl: LogUrl.t option [@ocaml.doc "Provides test case run log URL."];
      warnings: Warnings.t option
        [@ocaml.doc "Provides test case run warnings."];
      failure: Failure.t option
        [@ocaml.doc "Provides test case run failure result."];
      testScenarios: TestCaseScenariosList.t option
        [@ocaml.doc "Provides the test scenarios for the test case run."]}
    let make ?testCaseRunId =
      fun ?testCaseDefinitionId ->
        fun ?testCaseDefinitionName ->
          fun ?status ->
            fun ?startTime ->
              fun ?endTime ->
                fun ?logUrl ->
                  fun ?warnings ->
                    fun ?failure ->
                      fun ?testScenarios ->
                        fun () ->
                          {
                            testCaseRunId;
                            testCaseDefinitionId;
                            testCaseDefinitionName;
                            status;
                            startTime;
                            endTime;
                            logUrl;
                            warnings;
                            failure;
                            testScenarios
                          }
    let to_value x =
      structure_to_value
        [("testCaseRunId", (Option.map x.testCaseRunId ~f:UUID.to_value));
        ("testCaseDefinitionId",
          (Option.map x.testCaseDefinitionId ~f:UUID.to_value));
        ("testCaseDefinitionName",
          (Option.map x.testCaseDefinitionName
             ~f:TestCaseDefinitionName.to_value));
        ("status", (Option.map x.status ~f:Status.to_value));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("endTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("logUrl", (Option.map x.logUrl ~f:LogUrl.to_value));
        ("warnings", (Option.map x.warnings ~f:Warnings.to_value));
        ("failure", (Option.map x.failure ~f:Failure.to_value));
        ("testScenarios",
          (Option.map x.testScenarios ~f:TestCaseScenariosList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let testScenarios =
        (Option.map ~f:TestCaseScenariosList.of_xml)
          (Xml.child xml_arg0 "testScenarios") in
      let failure =
        (Option.map ~f:Failure.of_xml) (Xml.child xml_arg0 "failure") in
      let warnings =
        (Option.map ~f:Warnings.of_xml) (Xml.child xml_arg0 "warnings") in
      let logUrl =
        (Option.map ~f:LogUrl.of_xml) (Xml.child xml_arg0 "logUrl") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "status") in
      let testCaseDefinitionName =
        (Option.map ~f:TestCaseDefinitionName.of_xml)
          (Xml.child xml_arg0 "testCaseDefinitionName") in
      let testCaseDefinitionId =
        (Option.map ~f:UUID.of_xml)
          (Xml.child xml_arg0 "testCaseDefinitionId") in
      let testCaseRunId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "testCaseRunId") in
      make ?testScenarios ?failure ?warnings ?logUrl ?endTime ?startTime
        ?status ?testCaseDefinitionName ?testCaseDefinitionId ?testCaseRunId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let testScenarios =
        field_map json__ "testScenarios" TestCaseScenariosList.of_json in
      let failure = field_map json__ "failure" Failure.of_json in
      let warnings = field_map json__ "warnings" Warnings.of_json in
      let logUrl = field_map json__ "logUrl" LogUrl.of_json in
      let endTime = field_map json__ "endTime" Timestamp.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let status = field_map json__ "status" Status.of_json in
      let testCaseDefinitionName =
        field_map json__ "testCaseDefinitionName"
          TestCaseDefinitionName.of_json in
      let testCaseDefinitionId =
        field_map json__ "testCaseDefinitionId" UUID.of_json in
      let testCaseRunId = field_map json__ "testCaseRunId" UUID.of_json in
      make ?testScenarios ?failure ?warnings ?logUrl ?endTime ?startTime
        ?status ?testCaseDefinitionName ?testCaseDefinitionId ?testCaseRunId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides the test case run."]
module DeviceUnderTest =
  struct
    type nonrec t =
      {
      thingArn: AmazonResourceName.t option
        [@ocaml.doc "Lists device's thing ARN."];
      certificateArn: AmazonResourceName.t option
        [@ocaml.doc "Lists device's certificate ARN."];
      deviceRoleArn: AmazonResourceName.t option
        [@ocaml.doc "Lists device's role ARN."]}
    let make ?thingArn =
      fun ?certificateArn ->
        fun ?deviceRoleArn ->
          fun () -> { thingArn; certificateArn; deviceRoleArn }
    let to_value x =
      structure_to_value
        [("thingArn", (Option.map x.thingArn ~f:AmazonResourceName.to_value));
        ("certificateArn",
          (Option.map x.certificateArn ~f:AmazonResourceName.to_value));
        ("deviceRoleArn",
          (Option.map x.deviceRoleArn ~f:AmazonResourceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceRoleArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "deviceRoleArn") in
      let certificateArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "certificateArn") in
      let thingArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "thingArn") in
      make ?deviceRoleArn ?certificateArn ?thingArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceRoleArn =
        field_map json__ "deviceRoleArn" AmazonResourceName.of_json in
      let certificateArn =
        field_map json__ "certificateArn" AmazonResourceName.of_json in
      let thingArn = field_map json__ "thingArn" AmazonResourceName.of_json in
      make ?deviceRoleArn ?certificateArn ?thingArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information of a test device. A thing ARN, certificate ARN or device role ARN is required."]
module GroupName =
  struct
    type nonrec t = string
    let context_ = "GroupName"
    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:"GroupName" j
    let to_json = simple_to_json to_value
  end
module TestCaseRuns =
  struct
    type nonrec t = TestCaseRun.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:TestCaseRun.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:TestCaseRun.of_xml)
    let of_json j =
      list_of_json ~kind:"TestCaseRuns" ~of_json:TestCaseRun.of_json j
    let to_json v = composed_to_json to_value v
  end
module SuiteDefinitionName =
  struct
    type nonrec t = string
    let context_ = "SuiteDefinitionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SuiteDefinitionName" j
    let to_json = simple_to_json to_value
  end
module SuiteDefinitionVersion =
  struct
    type nonrec t = string
    let context_ = "SuiteDefinitionVersion"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:2));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SuiteDefinitionVersion" j
    let to_json = simple_to_json to_value
  end
module SuiteRunResultCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:500) >>= (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 SuiteRunResultCount" 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 SuiteRunStatus =
  struct
    type nonrec t =
      | PASS 
      | FAIL 
      | CANCELED 
      | PENDING 
      | RUNNING 
      | STOPPING 
      | STOPPED 
      | PASS_WITH_WARNINGS 
      | ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PASS -> "PASS"
      | FAIL -> "FAIL"
      | CANCELED -> "CANCELED"
      | PENDING -> "PENDING"
      | RUNNING -> "RUNNING"
      | STOPPING -> "STOPPING"
      | STOPPED -> "STOPPED"
      | PASS_WITH_WARNINGS -> "PASS_WITH_WARNINGS"
      | ERROR -> "ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "PASS" -> PASS
      | "FAIL" -> FAIL
      | "CANCELED" -> CANCELED
      | "PENDING" -> PENDING
      | "RUNNING" -> RUNNING
      | "STOPPING" -> STOPPING
      | "STOPPED" -> STOPPED
      | "PASS_WITH_WARNINGS" -> PASS_WITH_WARNINGS
      | "ERROR" -> ERROR
      | 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 SuiteRunStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SuiteRunStatus" j)
    let to_json = simple_to_json to_value
  end
module DeviceUnderTestList =
  struct
    type nonrec t = DeviceUnderTest.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (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:DeviceUnderTest.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:DeviceUnderTest.of_xml)
    let of_json j =
      list_of_json ~kind:"DeviceUnderTestList"
        ~of_json:DeviceUnderTest.of_json j
    let to_json v = composed_to_json to_value v
  end
module IntendedForQualificationBoolean =
  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 IsLongDurationTestBoolean =
  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 Protocol =
  struct
    type nonrec t =
      | MqttV3_1_1 
      | MqttV5 
      | MqttV3_1_1_OverWebSocket 
      | MqttV5_OverWebSocket 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MqttV3_1_1 -> "MqttV3_1_1"
      | MqttV5 -> "MqttV5"
      | MqttV3_1_1_OverWebSocket -> "MqttV3_1_1_OverWebSocket"
      | MqttV5_OverWebSocket -> "MqttV5_OverWebSocket"
      | Non_static_id s -> s
    let of_string =
      function
      | "MqttV3_1_1" -> MqttV3_1_1
      | "MqttV5" -> MqttV5
      | "MqttV3_1_1_OverWebSocket" -> MqttV3_1_1_OverWebSocket
      | "MqttV5_OverWebSocket" -> MqttV5_OverWebSocket
      | 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 Protocol" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Protocol" j)
    let to_json = simple_to_json to_value
  end
module GroupResult =
  struct
    type nonrec t =
      {
      groupId: UUID.t option [@ocaml.doc "Group result ID."];
      groupName: GroupName.t option [@ocaml.doc "Group Result Name."];
      tests: TestCaseRuns.t option [@ocaml.doc "Tests under Group Result."]}
    let make ?groupId =
      fun ?groupName -> fun ?tests -> fun () -> { groupId; groupName; tests }
    let to_value x =
      structure_to_value
        [("groupId", (Option.map x.groupId ~f:UUID.to_value));
        ("groupName", (Option.map x.groupName ~f:GroupName.to_value));
        ("tests", (Option.map x.tests ~f:TestCaseRuns.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tests =
        (Option.map ~f:TestCaseRuns.of_xml) (Xml.child xml_arg0 "tests") in
      let groupName =
        (Option.map ~f:GroupName.of_xml) (Xml.child xml_arg0 "groupName") in
      let groupId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "groupId") in
      make ?tests ?groupName ?groupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tests = field_map json__ "tests" TestCaseRuns.of_json in
      let groupName = field_map json__ "groupName" GroupName.of_json in
      let groupId = field_map json__ "groupId" UUID.of_json in
      make ?tests ?groupName ?groupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Show Group Result."]
module Message =
  struct
    type nonrec t = string
    let context_ = "Message"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"Message" j
    let to_json = simple_to_json to_value
  end
module RootGroup =
  struct
    type nonrec t = string
    let context_ = "RootGroup"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RootGroup" j
    let to_json = simple_to_json to_value
  end
module String128 =
  struct
    type nonrec t = string
    let context_ = "String128"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String128" j
    let to_json = simple_to_json to_value
  end
module String256 =
  struct
    type nonrec t = string
    let context_ = "String256"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String256" j
    let to_json = simple_to_json to_value
  end
module ParallelRun =
  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 SelectedTestList =
  struct
    type nonrec t = UUID.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:UUID.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:UUID.of_xml)
    let of_json j =
      list_of_json ~kind:"SelectedTestList" ~of_json:UUID.of_json j
    let to_json v = composed_to_json to_value v
  end
module SuiteRunInformation =
  struct
    type nonrec t =
      {
      suiteDefinitionId: UUID.t option
        [@ocaml.doc "Suite definition ID of the suite run."];
      suiteDefinitionVersion: SuiteDefinitionVersion.t option
        [@ocaml.doc "Suite definition version of the suite run."];
      suiteDefinitionName: SuiteDefinitionName.t option
        [@ocaml.doc "Suite definition name of the suite run."];
      suiteRunId: UUID.t option [@ocaml.doc "Suite run ID of the suite run."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "Date (in Unix epoch time) when the suite run was created."];
      startedAt: Timestamp.t option
        [@ocaml.doc
          "Date (in Unix epoch time) when the suite run was started."];
      endAt: Timestamp.t option
        [@ocaml.doc "Date (in Unix epoch time) when the suite run ended."];
      status: SuiteRunStatus.t option [@ocaml.doc "Status of the suite run."];
      passed: SuiteRunResultCount.t option
        [@ocaml.doc "Number of test cases that passed in the suite run."];
      failed: SuiteRunResultCount.t option
        [@ocaml.doc "Number of test cases that failed in the suite run."]}
    let make ?suiteDefinitionId =
      fun ?suiteDefinitionVersion ->
        fun ?suiteDefinitionName ->
          fun ?suiteRunId ->
            fun ?createdAt ->
              fun ?startedAt ->
                fun ?endAt ->
                  fun ?status ->
                    fun ?passed ->
                      fun ?failed ->
                        fun () ->
                          {
                            suiteDefinitionId;
                            suiteDefinitionVersion;
                            suiteDefinitionName;
                            suiteRunId;
                            createdAt;
                            startedAt;
                            endAt;
                            status;
                            passed;
                            failed
                          }
    let to_value x =
      structure_to_value
        [("suiteDefinitionId",
           (Option.map x.suiteDefinitionId ~f:UUID.to_value));
        ("suiteDefinitionVersion",
          (Option.map x.suiteDefinitionVersion
             ~f:SuiteDefinitionVersion.to_value));
        ("suiteDefinitionName",
          (Option.map x.suiteDefinitionName ~f:SuiteDefinitionName.to_value));
        ("suiteRunId", (Option.map x.suiteRunId ~f:UUID.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("startedAt", (Option.map x.startedAt ~f:Timestamp.to_value));
        ("endAt", (Option.map x.endAt ~f:Timestamp.to_value));
        ("status", (Option.map x.status ~f:SuiteRunStatus.to_value));
        ("passed", (Option.map x.passed ~f:SuiteRunResultCount.to_value));
        ("failed", (Option.map x.failed ~f:SuiteRunResultCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failed =
        (Option.map ~f:SuiteRunResultCount.of_xml)
          (Xml.child xml_arg0 "failed") in
      let passed =
        (Option.map ~f:SuiteRunResultCount.of_xml)
          (Xml.child xml_arg0 "passed") in
      let status =
        (Option.map ~f:SuiteRunStatus.of_xml) (Xml.child xml_arg0 "status") in
      let endAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "endAt") in
      let startedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let suiteRunId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "suiteRunId") in
      let suiteDefinitionName =
        (Option.map ~f:SuiteDefinitionName.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionName") in
      let suiteDefinitionVersion =
        (Option.map ~f:SuiteDefinitionVersion.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionVersion") in
      let suiteDefinitionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "suiteDefinitionId") in
      make ?failed ?passed ?status ?endAt ?startedAt ?createdAt ?suiteRunId
        ?suiteDefinitionName ?suiteDefinitionVersion ?suiteDefinitionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failed = field_map json__ "failed" SuiteRunResultCount.of_json in
      let passed = field_map json__ "passed" SuiteRunResultCount.of_json in
      let status = field_map json__ "status" SuiteRunStatus.of_json in
      let endAt = field_map json__ "endAt" Timestamp.of_json in
      let startedAt = field_map json__ "startedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let suiteRunId = field_map json__ "suiteRunId" UUID.of_json in
      let suiteDefinitionName =
        field_map json__ "suiteDefinitionName" SuiteDefinitionName.of_json in
      let suiteDefinitionVersion =
        field_map json__ "suiteDefinitionVersion"
          SuiteDefinitionVersion.of_json in
      let suiteDefinitionId =
        field_map json__ "suiteDefinitionId" UUID.of_json in
      make ?failed ?passed ?status ?endAt ?startedAt ?createdAt ?suiteRunId
        ?suiteDefinitionName ?suiteDefinitionVersion ?suiteDefinitionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the suite run. Requires permission to access the SuiteRunInformation action."]
module SuiteDefinitionInformation =
  struct
    type nonrec t =
      {
      suiteDefinitionId: UUID.t option
        [@ocaml.doc "Suite definition ID of the test suite."];
      suiteDefinitionName: SuiteDefinitionName.t option
        [@ocaml.doc "Suite name of the test suite."];
      defaultDevices: DeviceUnderTestList.t option
        [@ocaml.doc
          "Specifies the devices that are under test for the test suite."];
      intendedForQualification: IntendedForQualificationBoolean.t option
        [@ocaml.doc
          "Specifies if the test suite is intended for qualification."];
      isLongDurationTest: IsLongDurationTestBoolean.t option
        [@ocaml.doc "Verifies if the test suite is a long duration test."];
      protocol: Protocol.t option
        [@ocaml.doc
          "Gets the MQTT protocol that is configured in the suite definition."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "Date (in Unix epoch time) when the test suite was created."]}
    let make ?suiteDefinitionId =
      fun ?suiteDefinitionName ->
        fun ?defaultDevices ->
          fun ?intendedForQualification ->
            fun ?isLongDurationTest ->
              fun ?protocol ->
                fun ?createdAt ->
                  fun () ->
                    {
                      suiteDefinitionId;
                      suiteDefinitionName;
                      defaultDevices;
                      intendedForQualification;
                      isLongDurationTest;
                      protocol;
                      createdAt
                    }
    let to_value x =
      structure_to_value
        [("suiteDefinitionId",
           (Option.map x.suiteDefinitionId ~f:UUID.to_value));
        ("suiteDefinitionName",
          (Option.map x.suiteDefinitionName ~f:SuiteDefinitionName.to_value));
        ("defaultDevices",
          (Option.map x.defaultDevices ~f:DeviceUnderTestList.to_value));
        ("intendedForQualification",
          (Option.map x.intendedForQualification
             ~f:IntendedForQualificationBoolean.to_value));
        ("isLongDurationTest",
          (Option.map x.isLongDurationTest
             ~f:IsLongDurationTestBoolean.to_value));
        ("protocol", (Option.map x.protocol ~f:Protocol.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let protocol =
        (Option.map ~f:Protocol.of_xml) (Xml.child xml_arg0 "protocol") in
      let isLongDurationTest =
        (Option.map ~f:IsLongDurationTestBoolean.of_xml)
          (Xml.child xml_arg0 "isLongDurationTest") in
      let intendedForQualification =
        (Option.map ~f:IntendedForQualificationBoolean.of_xml)
          (Xml.child xml_arg0 "intendedForQualification") in
      let defaultDevices =
        (Option.map ~f:DeviceUnderTestList.of_xml)
          (Xml.child xml_arg0 "defaultDevices") in
      let suiteDefinitionName =
        (Option.map ~f:SuiteDefinitionName.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionName") in
      let suiteDefinitionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "suiteDefinitionId") in
      make ?createdAt ?protocol ?isLongDurationTest ?intendedForQualification
        ?defaultDevices ?suiteDefinitionName ?suiteDefinitionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let protocol = field_map json__ "protocol" Protocol.of_json in
      let isLongDurationTest =
        field_map json__ "isLongDurationTest"
          IsLongDurationTestBoolean.of_json in
      let intendedForQualification =
        field_map json__ "intendedForQualification"
          IntendedForQualificationBoolean.of_json in
      let defaultDevices =
        field_map json__ "defaultDevices" DeviceUnderTestList.of_json in
      let suiteDefinitionName =
        field_map json__ "suiteDefinitionName" SuiteDefinitionName.of_json in
      let suiteDefinitionId =
        field_map json__ "suiteDefinitionId" UUID.of_json in
      make ?createdAt ?protocol ?isLongDurationTest ?intendedForQualification
        ?defaultDevices ?suiteDefinitionName ?suiteDefinitionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the suite definition."]
module GroupResultList =
  struct
    type nonrec t = GroupResult.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:GroupResult.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:GroupResult.of_xml)
    let of_json j =
      list_of_json ~kind:"GroupResultList" ~of_json:GroupResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module InternalServerException =
  struct
    type nonrec t =
      {
      message: Message.t option
        [@ocaml.doc "Sends an Internal Failure Exception message."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Sends an Internal Failure exception."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: Message.t option
        [@ocaml.doc "Sends a Validation Exception message."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Sends a validation exception."]
module SuiteDefinitionConfiguration =
  struct
    type nonrec t =
      {
      suiteDefinitionName: SuiteDefinitionName.t
        [@ocaml.doc
          "Gets the suite definition name. This is a required parameter."];
      devices: DeviceUnderTestList.t option
        [@ocaml.doc "Gets the devices configured."];
      intendedForQualification: IntendedForQualificationBoolean.t option
        [@ocaml.doc "Gets the tests intended for qualification in a suite."];
      isLongDurationTest: IsLongDurationTestBoolean.t option
        [@ocaml.doc "Verifies if the test suite is a long duration test."];
      rootGroup: RootGroup.t
        [@ocaml.doc
          "Gets the test suite root group. This is a required parameter. For updating or creating the latest qualification suite, if intendedForQualification is set to true, rootGroup can be an empty string. If intendedForQualification is false, rootGroup cannot be an empty string. If rootGroup is empty, and intendedForQualification is set to true, all the qualification tests are included, and the configuration is default. For a qualification suite, the minimum length is 0, and the maximum is 2048. For a non-qualification suite, the minimum length is 1, and the maximum is 2048."];
      devicePermissionRoleArn: AmazonResourceName.t
        [@ocaml.doc
          "Gets the device permission ARN. This is a required parameter."];
      protocol: Protocol.t option
        [@ocaml.doc
          "Sets the MQTT protocol that is configured in the suite definition."]}
    let context_ = "SuiteDefinitionConfiguration"
    let make ?devices =
      fun ?intendedForQualification ->
        fun ?isLongDurationTest ->
          fun ?protocol ->
            fun ~suiteDefinitionName ->
              fun ~rootGroup ->
                fun ~devicePermissionRoleArn ->
                  fun () ->
                    {
                      devices;
                      intendedForQualification;
                      isLongDurationTest;
                      protocol;
                      suiteDefinitionName;
                      rootGroup;
                      devicePermissionRoleArn
                    }
    let to_value x =
      structure_to_value
        [("suiteDefinitionName",
           (Some (SuiteDefinitionName.to_value x.suiteDefinitionName)));
        ("devices", (Option.map x.devices ~f:DeviceUnderTestList.to_value));
        ("intendedForQualification",
          (Option.map x.intendedForQualification
             ~f:IntendedForQualificationBoolean.to_value));
        ("isLongDurationTest",
          (Option.map x.isLongDurationTest
             ~f:IsLongDurationTestBoolean.to_value));
        ("rootGroup", (Some (RootGroup.to_value x.rootGroup)));
        ("devicePermissionRoleArn",
          (Some (AmazonResourceName.to_value x.devicePermissionRoleArn)));
        ("protocol", (Option.map x.protocol ~f:Protocol.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let protocol =
        (Option.map ~f:Protocol.of_xml) (Xml.child xml_arg0 "protocol") in
      let devicePermissionRoleArn =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "devicePermissionRoleArn") in
      let rootGroup =
        RootGroup.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "rootGroup") in
      let isLongDurationTest =
        (Option.map ~f:IsLongDurationTestBoolean.of_xml)
          (Xml.child xml_arg0 "isLongDurationTest") in
      let intendedForQualification =
        (Option.map ~f:IntendedForQualificationBoolean.of_xml)
          (Xml.child xml_arg0 "intendedForQualification") in
      let devices =
        (Option.map ~f:DeviceUnderTestList.of_xml)
          (Xml.child xml_arg0 "devices") in
      let suiteDefinitionName =
        SuiteDefinitionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "suiteDefinitionName") in
      make ?protocol ~devicePermissionRoleArn ~rootGroup ?isLongDurationTest
        ?intendedForQualification ?devices ~suiteDefinitionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let protocol = field_map json__ "protocol" Protocol.of_json in
      let devicePermissionRoleArn =
        field_map_exn json__ "devicePermissionRoleArn"
          AmazonResourceName.of_json in
      let rootGroup = field_map_exn json__ "rootGroup" RootGroup.of_json in
      let isLongDurationTest =
        field_map json__ "isLongDurationTest"
          IsLongDurationTestBoolean.of_json in
      let intendedForQualification =
        field_map json__ "intendedForQualification"
          IntendedForQualificationBoolean.of_json in
      let devices = field_map json__ "devices" DeviceUnderTestList.of_json in
      let suiteDefinitionName =
        field_map_exn json__ "suiteDefinitionName"
          SuiteDefinitionName.of_json in
      make ?protocol ~devicePermissionRoleArn ~rootGroup ?isLongDurationTest
        ?intendedForQualification ?devices ~suiteDefinitionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the suite definition configuration."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: Message.t option
        [@ocaml.doc "Sends a Resource Not Found Exception message."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Sends a Resource Not Found exception."]
module TagKeyList =
  struct
    type nonrec t = String128.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:String128.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:String128.of_xml)
    let of_json j =
      list_of_json ~kind:"TagKeyList" ~of_json:String128.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagMap =
  struct
    type nonrec t = (String128.t * String256.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String128.of_string chopped),
                              (String256.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String128.to_value x) |>
                    (fun x -> (String256.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:String128.of_string
        ~of_json:String256.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConflictException =
  struct
    type nonrec t =
      {
      message: Message.t option
        [@ocaml.doc "Sends a Conflict Exception message."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.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" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Sends a Conflict Exception."]
module Endpoint =
  struct
    type nonrec t = string
    let context_ = "Endpoint"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:75) >>=
             (fun () -> check_string_min i ~min:45));
        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:"Endpoint" j
    let to_json = simple_to_json to_value
  end
module SuiteRunConfiguration =
  struct
    type nonrec t =
      {
      primaryDevice: DeviceUnderTest.t
        [@ocaml.doc
          "Sets the primary device for the test suite run. This requires a thing ARN or a certificate ARN."];
      selectedTestList: SelectedTestList.t option
        [@ocaml.doc "Sets test case list."];
      parallelRun: ParallelRun.t option
        [@ocaml.doc "TRUE if multiple test suites run in parallel."]}
    let context_ = "SuiteRunConfiguration"
    let make ?selectedTestList =
      fun ?parallelRun ->
        fun ~primaryDevice ->
          fun () -> { selectedTestList; parallelRun; primaryDevice }
    let to_value x =
      structure_to_value
        [("primaryDevice", (Some (DeviceUnderTest.to_value x.primaryDevice)));
        ("selectedTestList",
          (Option.map x.selectedTestList ~f:SelectedTestList.to_value));
        ("parallelRun", (Option.map x.parallelRun ~f:ParallelRun.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parallelRun =
        (Option.map ~f:ParallelRun.of_xml) (Xml.child xml_arg0 "parallelRun") in
      let selectedTestList =
        (Option.map ~f:SelectedTestList.of_xml)
          (Xml.child xml_arg0 "selectedTestList") in
      let primaryDevice =
        DeviceUnderTest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "primaryDevice") in
      make ?parallelRun ?selectedTestList ~primaryDevice ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parallelRun = field_map json__ "parallelRun" ParallelRun.of_json in
      let selectedTestList =
        field_map json__ "selectedTestList" SelectedTestList.of_json in
      let primaryDevice =
        field_map_exn json__ "primaryDevice" DeviceUnderTest.of_json in
      make ?parallelRun ?selectedTestList ~primaryDevice ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets suite run configuration."]
module SuiteRunsList =
  struct
    type nonrec t = SuiteRunInformation.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:SuiteRunInformation.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:SuiteRunInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"SuiteRunsList" ~of_json:SuiteRunInformation.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Token =
  struct
    type nonrec t = string
    let context_ = "Token"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:2000); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Token" j
    let to_json = simple_to_json to_value
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for 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 SuiteDefinitionInformationList =
  struct
    type nonrec t = SuiteDefinitionInformation.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:SuiteDefinitionInformation.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:SuiteDefinitionInformation.of_xml)
    let of_json j =
      list_of_json ~kind:"SuiteDefinitionInformationList"
        ~of_json:SuiteDefinitionInformation.of_json j
    let to_json v = composed_to_json to_value v
  end
module ErrorReason =
  struct
    type nonrec t = string
    let context_ = "ErrorReason"
    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:"ErrorReason" j
    let to_json = simple_to_json to_value
  end
module TestResult =
  struct
    type nonrec t =
      {
      groups: GroupResultList.t option
        [@ocaml.doc "Show each group of test results."]}
    let make ?groups = fun () -> { groups }
    let to_value x =
      structure_to_value
        [("groups", (Option.map x.groups ~f:GroupResultList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groups =
        (Option.map ~f:GroupResultList.of_xml) (Xml.child xml_arg0 "groups") in
      make ?groups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groups = field_map json__ "groups" GroupResultList.of_json in
      make ?groups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Show each group result."]
module QualificationReportDownloadUrl =
  struct
    type nonrec t = string
    let context_ = "QualificationReportDownloadUrl"
    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:"QualificationReportDownloadUrl" j
    let to_json = simple_to_json to_value
  end
module AuthenticationMethod =
  struct
    type nonrec t =
      | X509ClientCertificate 
      | SignatureVersion4 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | X509ClientCertificate -> "X509ClientCertificate"
      | SignatureVersion4 -> "SignatureVersion4"
      | Non_static_id s -> s
    let of_string =
      function
      | "X509ClientCertificate" -> X509ClientCertificate
      | "SignatureVersion4" -> SignatureVersion4
      | 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 AuthenticationMethod" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AuthenticationMethod" j)
    let to_json = simple_to_json to_value
  end
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"^[\\u0021-\\u007E]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module UpdateSuiteDefinitionResponse =
  struct
    type nonrec t =
      {
      suiteDefinitionId: UUID.t option
        [@ocaml.doc "Suite definition ID of the updated test suite."];
      suiteDefinitionArn: AmazonResourceName.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the updated test suite."];
      suiteDefinitionName: SuiteDefinitionName.t option
        [@ocaml.doc
          "Updates the suite definition name. This is a required parameter."];
      suiteDefinitionVersion: SuiteDefinitionVersion.t option
        [@ocaml.doc "Suite definition version of the updated test suite."];
      createdAt: Timestamp.t option
        [@ocaml.doc "Timestamp of when the test suite was created."];
      lastUpdatedAt: Timestamp.t option
        [@ocaml.doc "Timestamp of when the test suite was updated."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?suiteDefinitionId =
      fun ?suiteDefinitionArn ->
        fun ?suiteDefinitionName ->
          fun ?suiteDefinitionVersion ->
            fun ?createdAt ->
              fun ?lastUpdatedAt ->
                fun () ->
                  {
                    suiteDefinitionId;
                    suiteDefinitionArn;
                    suiteDefinitionName;
                    suiteDefinitionVersion;
                    createdAt;
                    lastUpdatedAt
                  }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("suiteDefinitionId",
           (Option.map x.suiteDefinitionId ~f:UUID.to_value));
        ("suiteDefinitionArn",
          (Option.map x.suiteDefinitionArn ~f:AmazonResourceName.to_value));
        ("suiteDefinitionName",
          (Option.map x.suiteDefinitionName ~f:SuiteDefinitionName.to_value));
        ("suiteDefinitionVersion",
          (Option.map x.suiteDefinitionVersion
             ~f:SuiteDefinitionVersion.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastUpdatedAt", (Option.map x.lastUpdatedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "lastUpdatedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let suiteDefinitionVersion =
        (Option.map ~f:SuiteDefinitionVersion.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionVersion") in
      let suiteDefinitionName =
        (Option.map ~f:SuiteDefinitionName.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionName") in
      let suiteDefinitionArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionArn") in
      let suiteDefinitionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "suiteDefinitionId") in
      make ?lastUpdatedAt ?createdAt ?suiteDefinitionVersion
        ?suiteDefinitionName ?suiteDefinitionArn ?suiteDefinitionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt = field_map json__ "lastUpdatedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let suiteDefinitionVersion =
        field_map json__ "suiteDefinitionVersion"
          SuiteDefinitionVersion.of_json in
      let suiteDefinitionName =
        field_map json__ "suiteDefinitionName" SuiteDefinitionName.of_json in
      let suiteDefinitionArn =
        field_map json__ "suiteDefinitionArn" AmazonResourceName.of_json in
      let suiteDefinitionId =
        field_map json__ "suiteDefinitionId" UUID.of_json in
      make ?lastUpdatedAt ?createdAt ?suiteDefinitionVersion
        ?suiteDefinitionName ?suiteDefinitionArn ?suiteDefinitionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a Device Advisor test suite. Requires permission to access the UpdateSuiteDefinition action."]
module UpdateSuiteDefinitionRequest =
  struct
    type nonrec t =
      {
      suiteDefinitionId: UUID.t
        [@ocaml.doc "Suite definition ID of the test suite to be updated."];
      suiteDefinitionConfiguration: SuiteDefinitionConfiguration.t
        [@ocaml.doc
          "Updates a Device Advisor test suite with suite definition configuration."]}
    let context_ = "UpdateSuiteDefinitionRequest"
    let make ~suiteDefinitionId =
      fun ~suiteDefinitionConfiguration ->
        fun () -> { suiteDefinitionId; suiteDefinitionConfiguration }
    let to_value x =
      structure_to_value
        [("suiteDefinitionId", (Some (UUID.to_value x.suiteDefinitionId)));
        ("suiteDefinitionConfiguration",
          (Some
             (SuiteDefinitionConfiguration.to_value
                x.suiteDefinitionConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let suiteDefinitionConfiguration =
        SuiteDefinitionConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "suiteDefinitionConfiguration") in
      let suiteDefinitionId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "suiteDefinitionId") in
      make ~suiteDefinitionConfiguration ~suiteDefinitionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let suiteDefinitionConfiguration =
        field_map_exn json__ "suiteDefinitionConfiguration"
          SuiteDefinitionConfiguration.of_json in
      let suiteDefinitionId =
        field_map_exn json__ "suiteDefinitionId" UUID.of_json in
      make ~suiteDefinitionConfiguration ~suiteDefinitionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a Device Advisor test suite. Requires permission to access the UpdateSuiteDefinition action."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes tags from an IoT Device Advisor resource. Requires permission to access the UntagResource action."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The resource ARN of an IoT Device Advisor resource. This can be SuiteDefinition ARN or SuiteRun ARN."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "List of tag keys to remove from the IoT Device Advisor resource."]}
    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 an IoT Device Advisor resource. Requires permission to access the UntagResource action."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds to and modifies existing tags of an IoT Device Advisor resource. Requires permission to access the TagResource action."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The resource ARN of an IoT Device Advisor resource. This can be SuiteDefinition ARN or SuiteRun ARN."];
      tags: TagMap.t
        [@ocaml.doc
          "The tags to be attached to the IoT Device Advisor resource."]}
    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 (TagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        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" TagMap.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
       "Adds to and modifies existing tags of an IoT Device Advisor resource. Requires permission to access the TagResource action."]
module StopSuiteRunResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops a Device Advisor test suite run that is currently running. Requires permission to access the StopSuiteRun action."]
module StopSuiteRunRequest =
  struct
    type nonrec t =
      {
      suiteDefinitionId: UUID.t
        [@ocaml.doc
          "Suite definition ID of the test suite run to be stopped."];
      suiteRunId: UUID.t
        [@ocaml.doc "Suite run ID of the test suite run to be stopped."]}
    let context_ = "StopSuiteRunRequest"
    let make ~suiteDefinitionId =
      fun ~suiteRunId -> fun () -> { suiteDefinitionId; suiteRunId }
    let to_value x =
      structure_to_value
        [("suiteDefinitionId", (Some (UUID.to_value x.suiteDefinitionId)));
        ("suiteRunId", (Some (UUID.to_value x.suiteRunId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let suiteRunId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "suiteRunId") in
      let suiteDefinitionId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "suiteDefinitionId") in
      make ~suiteRunId ~suiteDefinitionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let suiteRunId = field_map_exn json__ "suiteRunId" UUID.of_json in
      let suiteDefinitionId =
        field_map_exn json__ "suiteDefinitionId" UUID.of_json in
      make ~suiteRunId ~suiteDefinitionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops a Device Advisor test suite run that is currently running. Requires permission to access the StopSuiteRun action."]
module StartSuiteRunResponse =
  struct
    type nonrec t =
      {
      suiteRunId: UUID.t option
        [@ocaml.doc "Suite Run ID of the started suite run."];
      suiteRunArn: AmazonResourceName.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the started suite run."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "Starts a Device Advisor test suite run based on suite create time."];
      endpoint: Endpoint.t option
        [@ocaml.doc "The response of an Device Advisor test endpoint."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?suiteRunId =
      fun ?suiteRunArn ->
        fun ?createdAt ->
          fun ?endpoint ->
            fun () -> { suiteRunId; suiteRunArn; createdAt; endpoint }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("suiteRunId", (Option.map x.suiteRunId ~f:UUID.to_value));
        ("suiteRunArn",
          (Option.map x.suiteRunArn ~f:AmazonResourceName.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("endpoint", (Option.map x.endpoint ~f:Endpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpoint =
        (Option.map ~f:Endpoint.of_xml) (Xml.child xml_arg0 "endpoint") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let suiteRunArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "suiteRunArn") in
      let suiteRunId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "suiteRunId") in
      make ?endpoint ?createdAt ?suiteRunArn ?suiteRunId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpoint = field_map json__ "endpoint" Endpoint.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let suiteRunArn =
        field_map json__ "suiteRunArn" AmazonResourceName.of_json in
      let suiteRunId = field_map json__ "suiteRunId" UUID.of_json in
      make ?endpoint ?createdAt ?suiteRunArn ?suiteRunId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a Device Advisor test suite run. Requires permission to access the StartSuiteRun action."]
module StartSuiteRunRequest =
  struct
    type nonrec t =
      {
      suiteDefinitionId: UUID.t
        [@ocaml.doc "Suite definition ID of the test suite."];
      suiteDefinitionVersion: SuiteDefinitionVersion.t option
        [@ocaml.doc "Suite definition version of the test suite."];
      suiteRunConfiguration: SuiteRunConfiguration.t
        [@ocaml.doc "Suite run configuration."];
      tags: TagMap.t option
        [@ocaml.doc "The tags to be attached to the suite run."]}
    let context_ = "StartSuiteRunRequest"
    let make ?suiteDefinitionVersion =
      fun ?tags ->
        fun ~suiteDefinitionId ->
          fun ~suiteRunConfiguration ->
            fun () ->
              {
                suiteDefinitionVersion;
                tags;
                suiteDefinitionId;
                suiteRunConfiguration
              }
    let to_value x =
      structure_to_value
        [("suiteDefinitionId", (Some (UUID.to_value x.suiteDefinitionId)));
        ("suiteDefinitionVersion",
          (Option.map x.suiteDefinitionVersion
             ~f:SuiteDefinitionVersion.to_value));
        ("suiteRunConfiguration",
          (Some (SuiteRunConfiguration.to_value x.suiteRunConfiguration)));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let suiteRunConfiguration =
        SuiteRunConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "suiteRunConfiguration") in
      let suiteDefinitionVersion =
        (Option.map ~f:SuiteDefinitionVersion.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionVersion") in
      let suiteDefinitionId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "suiteDefinitionId") in
      make ?tags ~suiteRunConfiguration ?suiteDefinitionVersion
        ~suiteDefinitionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let suiteRunConfiguration =
        field_map_exn json__ "suiteRunConfiguration"
          SuiteRunConfiguration.of_json in
      let suiteDefinitionVersion =
        field_map json__ "suiteDefinitionVersion"
          SuiteDefinitionVersion.of_json in
      let suiteDefinitionId =
        field_map_exn json__ "suiteDefinitionId" UUID.of_json in
      make ?tags ~suiteRunConfiguration ?suiteDefinitionVersion
        ~suiteDefinitionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a Device Advisor test suite run. Requires permission to access the StartSuiteRun action."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagMap.t option
        [@ocaml.doc "The tags attached to the IoT Device Advisor resource."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags attached to an IoT Device Advisor resource. Requires permission to access the ListTagsForResource action."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AmazonResourceName.t
        [@ocaml.doc
          "The resource ARN of the IoT Device Advisor resource. This can be SuiteDefinition ARN or SuiteRun ARN."]}
    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 attached to an IoT Device Advisor resource. Requires permission to access the ListTagsForResource action."]
module ListSuiteRunsResponse =
  struct
    type nonrec t =
      {
      suiteRunsList: SuiteRunsList.t option
        [@ocaml.doc
          "An array of objects that provide summaries of information about the suite runs in the list."];
      nextToken: Token.t option
        [@ocaml.doc "A token to retrieve the next set of results."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?suiteRunsList =
      fun ?nextToken -> fun () -> { suiteRunsList; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("suiteRunsList",
           (Option.map x.suiteRunsList ~f:SuiteRunsList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let suiteRunsList =
        (Option.map ~f:SuiteRunsList.of_xml)
          (Xml.child xml_arg0 "suiteRunsList") in
      make ?nextToken ?suiteRunsList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let suiteRunsList =
        field_map json__ "suiteRunsList" SuiteRunsList.of_json in
      make ?nextToken ?suiteRunsList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists runs of the specified Device Advisor test suite. You can list all runs of the test suite, or the runs of a specific version of the test suite. Requires permission to access the ListSuiteRuns action."]
module ListSuiteRunsRequest =
  struct
    type nonrec t =
      {
      suiteDefinitionId: UUID.t option
        [@ocaml.doc
          "Lists the test suite runs of the specified test suite based on suite definition ID."];
      suiteDefinitionVersion: SuiteDefinitionVersion.t option
        [@ocaml.doc
          "Must be passed along with suiteDefinitionId. Lists the test suite runs of the specified test suite based on suite definition version."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return at once."];
      nextToken: Token.t option
        [@ocaml.doc "A token to retrieve the next set of results."]}
    let make ?suiteDefinitionId =
      fun ?suiteDefinitionVersion ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun () ->
              {
                suiteDefinitionId;
                suiteDefinitionVersion;
                maxResults;
                nextToken
              }
    let to_value x =
      structure_to_value
        [("suiteDefinitionId",
           (Option.map x.suiteDefinitionId ~f:UUID.to_value));
        ("suiteDefinitionVersion",
          (Option.map x.suiteDefinitionVersion
             ~f:SuiteDefinitionVersion.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let suiteDefinitionVersion =
        (Option.map ~f:SuiteDefinitionVersion.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionVersion") in
      let suiteDefinitionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "suiteDefinitionId") in
      make ?nextToken ?maxResults ?suiteDefinitionVersion ?suiteDefinitionId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let suiteDefinitionVersion =
        field_map json__ "suiteDefinitionVersion"
          SuiteDefinitionVersion.of_json in
      let suiteDefinitionId =
        field_map json__ "suiteDefinitionId" UUID.of_json in
      make ?nextToken ?maxResults ?suiteDefinitionVersion ?suiteDefinitionId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists runs of the specified Device Advisor test suite. You can list all runs of the test suite, or the runs of a specific version of the test suite. Requires permission to access the ListSuiteRuns action."]
module ListSuiteDefinitionsResponse =
  struct
    type nonrec t =
      {
      suiteDefinitionInformationList: SuiteDefinitionInformationList.t option
        [@ocaml.doc
          "An array of objects that provide summaries of information about the suite definitions in the list."];
      nextToken: Token.t option
        [@ocaml.doc "A token used to get the next set of results."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?suiteDefinitionInformationList =
      fun ?nextToken ->
        fun () -> { suiteDefinitionInformationList; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("suiteDefinitionInformationList",
           (Option.map x.suiteDefinitionInformationList
              ~f:SuiteDefinitionInformationList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let suiteDefinitionInformationList =
        (Option.map ~f:SuiteDefinitionInformationList.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionInformationList") in
      make ?nextToken ?suiteDefinitionInformationList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let suiteDefinitionInformationList =
        field_map json__ "suiteDefinitionInformationList"
          SuiteDefinitionInformationList.of_json in
      make ?nextToken ?suiteDefinitionInformationList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Device Advisor test suites you have created. Requires permission to access the ListSuiteDefinitions action."]
module ListSuiteDefinitionsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return at once."];
      nextToken: Token.t option
        [@ocaml.doc "A token used to get the next set of results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" Token.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Device Advisor test suites you have created. Requires permission to access the ListSuiteDefinitions action."]
module GetSuiteRunResponse =
  struct
    type nonrec t =
      {
      suiteDefinitionId: UUID.t option
        [@ocaml.doc "Suite definition ID for the test suite run."];
      suiteDefinitionVersion: SuiteDefinitionVersion.t option
        [@ocaml.doc "Suite definition version for the test suite run."];
      suiteRunId: UUID.t option
        [@ocaml.doc "Suite run ID for the test suite run."];
      suiteRunArn: AmazonResourceName.t option
        [@ocaml.doc "The ARN of the suite run."];
      suiteRunConfiguration: SuiteRunConfiguration.t option
        [@ocaml.doc "Suite run configuration for the test suite run."];
      testResult: TestResult.t option
        [@ocaml.doc "Test results for the test suite run."];
      startTime: Timestamp.t option
        [@ocaml.doc
          "Date (in Unix epoch time) when the test suite run started."];
      endTime: Timestamp.t option
        [@ocaml.doc
          "Date (in Unix epoch time) when the test suite run ended."];
      status: SuiteRunStatus.t option
        [@ocaml.doc "Status for the test suite run."];
      errorReason: ErrorReason.t option
        [@ocaml.doc "Error reason for any test suite run failure."];
      tags: TagMap.t option
        [@ocaml.doc "The tags attached to the suite run."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?suiteDefinitionId =
      fun ?suiteDefinitionVersion ->
        fun ?suiteRunId ->
          fun ?suiteRunArn ->
            fun ?suiteRunConfiguration ->
              fun ?testResult ->
                fun ?startTime ->
                  fun ?endTime ->
                    fun ?status ->
                      fun ?errorReason ->
                        fun ?tags ->
                          fun () ->
                            {
                              suiteDefinitionId;
                              suiteDefinitionVersion;
                              suiteRunId;
                              suiteRunArn;
                              suiteRunConfiguration;
                              testResult;
                              startTime;
                              endTime;
                              status;
                              errorReason;
                              tags
                            }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("suiteDefinitionId",
           (Option.map x.suiteDefinitionId ~f:UUID.to_value));
        ("suiteDefinitionVersion",
          (Option.map x.suiteDefinitionVersion
             ~f:SuiteDefinitionVersion.to_value));
        ("suiteRunId", (Option.map x.suiteRunId ~f:UUID.to_value));
        ("suiteRunArn",
          (Option.map x.suiteRunArn ~f:AmazonResourceName.to_value));
        ("suiteRunConfiguration",
          (Option.map x.suiteRunConfiguration
             ~f:SuiteRunConfiguration.to_value));
        ("testResult", (Option.map x.testResult ~f:TestResult.to_value));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("endTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("status", (Option.map x.status ~f:SuiteRunStatus.to_value));
        ("errorReason", (Option.map x.errorReason ~f:ErrorReason.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let errorReason =
        (Option.map ~f:ErrorReason.of_xml) (Xml.child xml_arg0 "errorReason") in
      let status =
        (Option.map ~f:SuiteRunStatus.of_xml) (Xml.child xml_arg0 "status") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let testResult =
        (Option.map ~f:TestResult.of_xml) (Xml.child xml_arg0 "testResult") in
      let suiteRunConfiguration =
        (Option.map ~f:SuiteRunConfiguration.of_xml)
          (Xml.child xml_arg0 "suiteRunConfiguration") in
      let suiteRunArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "suiteRunArn") in
      let suiteRunId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "suiteRunId") in
      let suiteDefinitionVersion =
        (Option.map ~f:SuiteDefinitionVersion.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionVersion") in
      let suiteDefinitionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "suiteDefinitionId") in
      make ?tags ?errorReason ?status ?endTime ?startTime ?testResult
        ?suiteRunConfiguration ?suiteRunArn ?suiteRunId
        ?suiteDefinitionVersion ?suiteDefinitionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let errorReason = field_map json__ "errorReason" ErrorReason.of_json in
      let status = field_map json__ "status" SuiteRunStatus.of_json in
      let endTime = field_map json__ "endTime" Timestamp.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let testResult = field_map json__ "testResult" TestResult.of_json in
      let suiteRunConfiguration =
        field_map json__ "suiteRunConfiguration"
          SuiteRunConfiguration.of_json in
      let suiteRunArn =
        field_map json__ "suiteRunArn" AmazonResourceName.of_json in
      let suiteRunId = field_map json__ "suiteRunId" UUID.of_json in
      let suiteDefinitionVersion =
        field_map json__ "suiteDefinitionVersion"
          SuiteDefinitionVersion.of_json in
      let suiteDefinitionId =
        field_map json__ "suiteDefinitionId" UUID.of_json in
      make ?tags ?errorReason ?status ?endTime ?startTime ?testResult
        ?suiteRunConfiguration ?suiteRunArn ?suiteRunId
        ?suiteDefinitionVersion ?suiteDefinitionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a Device Advisor test suite run. Requires permission to access the GetSuiteRun action."]
module GetSuiteRunRequest =
  struct
    type nonrec t =
      {
      suiteDefinitionId: UUID.t
        [@ocaml.doc "Suite definition ID for the test suite run."];
      suiteRunId: UUID.t [@ocaml.doc "Suite run ID for the test suite run."]}
    let context_ = "GetSuiteRunRequest"
    let make ~suiteDefinitionId =
      fun ~suiteRunId -> fun () -> { suiteDefinitionId; suiteRunId }
    let to_value x =
      structure_to_value
        [("suiteDefinitionId", (Some (UUID.to_value x.suiteDefinitionId)));
        ("suiteRunId", (Some (UUID.to_value x.suiteRunId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let suiteRunId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "suiteRunId") in
      let suiteDefinitionId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "suiteDefinitionId") in
      make ~suiteRunId ~suiteDefinitionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let suiteRunId = field_map_exn json__ "suiteRunId" UUID.of_json in
      let suiteDefinitionId =
        field_map_exn json__ "suiteDefinitionId" UUID.of_json in
      make ~suiteRunId ~suiteDefinitionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a Device Advisor test suite run. Requires permission to access the GetSuiteRun action."]
module GetSuiteRunReportResponse =
  struct
    type nonrec t =
      {
      qualificationReportDownloadUrl: QualificationReportDownloadUrl.t option
        [@ocaml.doc "Download URL of the qualification report."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?qualificationReportDownloadUrl =
      fun () -> { qualificationReportDownloadUrl }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("qualificationReportDownloadUrl",
           (Option.map x.qualificationReportDownloadUrl
              ~f:QualificationReportDownloadUrl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let qualificationReportDownloadUrl =
        (Option.map ~f:QualificationReportDownloadUrl.of_xml)
          (Xml.child xml_arg0 "qualificationReportDownloadUrl") in
      make ?qualificationReportDownloadUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let qualificationReportDownloadUrl =
        field_map json__ "qualificationReportDownloadUrl"
          QualificationReportDownloadUrl.of_json in
      make ?qualificationReportDownloadUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a report download link for a successful Device Advisor qualifying test suite run. Requires permission to access the GetSuiteRunReport action."]
module GetSuiteRunReportRequest =
  struct
    type nonrec t =
      {
      suiteDefinitionId: UUID.t
        [@ocaml.doc "Suite definition ID of the test suite."];
      suiteRunId: UUID.t [@ocaml.doc "Suite run ID of the test suite run."]}
    let context_ = "GetSuiteRunReportRequest"
    let make ~suiteDefinitionId =
      fun ~suiteRunId -> fun () -> { suiteDefinitionId; suiteRunId }
    let to_value x =
      structure_to_value
        [("suiteDefinitionId", (Some (UUID.to_value x.suiteDefinitionId)));
        ("suiteRunId", (Some (UUID.to_value x.suiteRunId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let suiteRunId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "suiteRunId") in
      let suiteDefinitionId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "suiteDefinitionId") in
      make ~suiteRunId ~suiteDefinitionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let suiteRunId = field_map_exn json__ "suiteRunId" UUID.of_json in
      let suiteDefinitionId =
        field_map_exn json__ "suiteDefinitionId" UUID.of_json in
      make ~suiteRunId ~suiteDefinitionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a report download link for a successful Device Advisor qualifying test suite run. Requires permission to access the GetSuiteRunReport action."]
module GetSuiteDefinitionResponse =
  struct
    type nonrec t =
      {
      suiteDefinitionId: UUID.t option
        [@ocaml.doc "Suite definition ID of the suite definition."];
      suiteDefinitionArn: AmazonResourceName.t option
        [@ocaml.doc "The ARN of the suite definition."];
      suiteDefinitionVersion: SuiteDefinitionVersion.t option
        [@ocaml.doc "Suite definition version of the suite definition."];
      latestVersion: SuiteDefinitionVersion.t option
        [@ocaml.doc
          "Latest suite definition version of the suite definition."];
      suiteDefinitionConfiguration: SuiteDefinitionConfiguration.t option
        [@ocaml.doc "Suite configuration of the suite definition."];
      createdAt: Timestamp.t option
        [@ocaml.doc
          "Date (in Unix epoch time) when the suite definition was created."];
      lastModifiedAt: Timestamp.t option
        [@ocaml.doc
          "Date (in Unix epoch time) when the suite definition was last modified."];
      tags: TagMap.t option
        [@ocaml.doc "Tags attached to the suite definition."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?suiteDefinitionId =
      fun ?suiteDefinitionArn ->
        fun ?suiteDefinitionVersion ->
          fun ?latestVersion ->
            fun ?suiteDefinitionConfiguration ->
              fun ?createdAt ->
                fun ?lastModifiedAt ->
                  fun ?tags ->
                    fun () ->
                      {
                        suiteDefinitionId;
                        suiteDefinitionArn;
                        suiteDefinitionVersion;
                        latestVersion;
                        suiteDefinitionConfiguration;
                        createdAt;
                        lastModifiedAt;
                        tags
                      }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("suiteDefinitionId",
           (Option.map x.suiteDefinitionId ~f:UUID.to_value));
        ("suiteDefinitionArn",
          (Option.map x.suiteDefinitionArn ~f:AmazonResourceName.to_value));
        ("suiteDefinitionVersion",
          (Option.map x.suiteDefinitionVersion
             ~f:SuiteDefinitionVersion.to_value));
        ("latestVersion",
          (Option.map x.latestVersion ~f:SuiteDefinitionVersion.to_value));
        ("suiteDefinitionConfiguration",
          (Option.map x.suiteDefinitionConfiguration
             ~f:SuiteDefinitionConfiguration.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("lastModifiedAt",
          (Option.map x.lastModifiedAt ~f:Timestamp.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let lastModifiedAt =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastModifiedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let suiteDefinitionConfiguration =
        (Option.map ~f:SuiteDefinitionConfiguration.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionConfiguration") in
      let latestVersion =
        (Option.map ~f:SuiteDefinitionVersion.of_xml)
          (Xml.child xml_arg0 "latestVersion") in
      let suiteDefinitionVersion =
        (Option.map ~f:SuiteDefinitionVersion.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionVersion") in
      let suiteDefinitionArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionArn") in
      let suiteDefinitionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "suiteDefinitionId") in
      make ?tags ?lastModifiedAt ?createdAt ?suiteDefinitionConfiguration
        ?latestVersion ?suiteDefinitionVersion ?suiteDefinitionArn
        ?suiteDefinitionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let lastModifiedAt =
        field_map json__ "lastModifiedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let suiteDefinitionConfiguration =
        field_map json__ "suiteDefinitionConfiguration"
          SuiteDefinitionConfiguration.of_json in
      let latestVersion =
        field_map json__ "latestVersion" SuiteDefinitionVersion.of_json in
      let suiteDefinitionVersion =
        field_map json__ "suiteDefinitionVersion"
          SuiteDefinitionVersion.of_json in
      let suiteDefinitionArn =
        field_map json__ "suiteDefinitionArn" AmazonResourceName.of_json in
      let suiteDefinitionId =
        field_map json__ "suiteDefinitionId" UUID.of_json in
      make ?tags ?lastModifiedAt ?createdAt ?suiteDefinitionConfiguration
        ?latestVersion ?suiteDefinitionVersion ?suiteDefinitionArn
        ?suiteDefinitionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a Device Advisor test suite. Requires permission to access the GetSuiteDefinition action."]
module GetSuiteDefinitionRequest =
  struct
    type nonrec t =
      {
      suiteDefinitionId: UUID.t
        [@ocaml.doc "Suite definition ID of the test suite to get."];
      suiteDefinitionVersion: SuiteDefinitionVersion.t option
        [@ocaml.doc "Suite definition version of the test suite to get."]}
    let context_ = "GetSuiteDefinitionRequest"
    let make ?suiteDefinitionVersion =
      fun ~suiteDefinitionId ->
        fun () -> { suiteDefinitionVersion; suiteDefinitionId }
    let to_value x =
      structure_to_value
        [("suiteDefinitionId", (Some (UUID.to_value x.suiteDefinitionId)));
        ("suiteDefinitionVersion",
          (Option.map x.suiteDefinitionVersion
             ~f:SuiteDefinitionVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let suiteDefinitionVersion =
        (Option.map ~f:SuiteDefinitionVersion.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionVersion") in
      let suiteDefinitionId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "suiteDefinitionId") in
      make ?suiteDefinitionVersion ~suiteDefinitionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let suiteDefinitionVersion =
        field_map json__ "suiteDefinitionVersion"
          SuiteDefinitionVersion.of_json in
      let suiteDefinitionId =
        field_map_exn json__ "suiteDefinitionId" UUID.of_json in
      make ?suiteDefinitionVersion ~suiteDefinitionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a Device Advisor test suite. Requires permission to access the GetSuiteDefinition action."]
module GetEndpointResponse =
  struct
    type nonrec t =
      {
      endpoint: Endpoint.t option
        [@ocaml.doc "The response of an Device Advisor endpoint."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?endpoint = fun () -> { endpoint }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("endpoint", (Option.map x.endpoint ~f:Endpoint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpoint =
        (Option.map ~f:Endpoint.of_xml) (Xml.child xml_arg0 "endpoint") in
      make ?endpoint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpoint = field_map json__ "endpoint" Endpoint.of_json in
      make ?endpoint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about an Device Advisor endpoint."]
module GetEndpointRequest =
  struct
    type nonrec t =
      {
      thingArn: AmazonResourceName.t option
        [@ocaml.doc
          "The thing ARN of the device. This is an optional parameter."];
      certificateArn: AmazonResourceName.t option
        [@ocaml.doc
          "The certificate ARN of the device. This is an optional parameter."];
      deviceRoleArn: AmazonResourceName.t option
        [@ocaml.doc
          "The device role ARN of the device. This is an optional parameter."];
      authenticationMethod: AuthenticationMethod.t option
        [@ocaml.doc
          "The authentication method used during the device connection."]}
    let make ?thingArn =
      fun ?certificateArn ->
        fun ?deviceRoleArn ->
          fun ?authenticationMethod ->
            fun () ->
              { thingArn; certificateArn; deviceRoleArn; authenticationMethod
              }
    let to_value x =
      structure_to_value
        [("thingArn", (Option.map x.thingArn ~f:AmazonResourceName.to_value));
        ("certificateArn",
          (Option.map x.certificateArn ~f:AmazonResourceName.to_value));
        ("deviceRoleArn",
          (Option.map x.deviceRoleArn ~f:AmazonResourceName.to_value));
        ("authenticationMethod",
          (Option.map x.authenticationMethod ~f:AuthenticationMethod.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authenticationMethod =
        (Option.map ~f:AuthenticationMethod.of_xml)
          (Xml.child xml_arg0 "authenticationMethod") in
      let deviceRoleArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "deviceRoleArn") in
      let certificateArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "certificateArn") in
      let thingArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "thingArn") in
      make ?authenticationMethod ?deviceRoleArn ?certificateArn ?thingArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authenticationMethod =
        field_map json__ "authenticationMethod" AuthenticationMethod.of_json in
      let deviceRoleArn =
        field_map json__ "deviceRoleArn" AmazonResourceName.of_json in
      let certificateArn =
        field_map json__ "certificateArn" AmazonResourceName.of_json in
      let thingArn = field_map json__ "thingArn" AmazonResourceName.of_json in
      make ?authenticationMethod ?deviceRoleArn ?certificateArn ?thingArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets information about an Device Advisor endpoint."]
module DeleteSuiteDefinitionResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `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 Device Advisor test suite. Requires permission to access the DeleteSuiteDefinition action."]
module DeleteSuiteDefinitionRequest =
  struct
    type nonrec t =
      {
      suiteDefinitionId: UUID.t
        [@ocaml.doc "Suite definition ID of the test suite to be deleted."]}
    let context_ = "DeleteSuiteDefinitionRequest"
    let make ~suiteDefinitionId = fun () -> { suiteDefinitionId }
    let to_value x =
      structure_to_value
        [("suiteDefinitionId", (Some (UUID.to_value x.suiteDefinitionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let suiteDefinitionId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "suiteDefinitionId") in
      make ~suiteDefinitionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let suiteDefinitionId =
        field_map_exn json__ "suiteDefinitionId" UUID.of_json in
      make ~suiteDefinitionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a Device Advisor test suite. Requires permission to access the DeleteSuiteDefinition action."]
module CreateSuiteDefinitionResponse =
  struct
    type nonrec t =
      {
      suiteDefinitionId: UUID.t option
        [@ocaml.doc "The UUID of the test suite created."];
      suiteDefinitionArn: AmazonResourceName.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the test suite."];
      suiteDefinitionName: SuiteDefinitionName.t option
        [@ocaml.doc
          "The suite definition name of the test suite. This is a required parameter."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The timestamp of when the test suite was created."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?suiteDefinitionId =
      fun ?suiteDefinitionArn ->
        fun ?suiteDefinitionName ->
          fun ?createdAt ->
            fun () ->
              {
                suiteDefinitionId;
                suiteDefinitionArn;
                suiteDefinitionName;
                createdAt
              }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("suiteDefinitionId",
           (Option.map x.suiteDefinitionId ~f:UUID.to_value));
        ("suiteDefinitionArn",
          (Option.map x.suiteDefinitionArn ~f:AmazonResourceName.to_value));
        ("suiteDefinitionName",
          (Option.map x.suiteDefinitionName ~f:SuiteDefinitionName.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let suiteDefinitionName =
        (Option.map ~f:SuiteDefinitionName.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionName") in
      let suiteDefinitionArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "suiteDefinitionArn") in
      let suiteDefinitionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "suiteDefinitionId") in
      make ?createdAt ?suiteDefinitionName ?suiteDefinitionArn
        ?suiteDefinitionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let suiteDefinitionName =
        field_map json__ "suiteDefinitionName" SuiteDefinitionName.of_json in
      let suiteDefinitionArn =
        field_map json__ "suiteDefinitionArn" AmazonResourceName.of_json in
      let suiteDefinitionId =
        field_map json__ "suiteDefinitionId" UUID.of_json in
      make ?createdAt ?suiteDefinitionName ?suiteDefinitionArn
        ?suiteDefinitionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Device Advisor test suite. Requires permission to access the CreateSuiteDefinition action."]
module CreateSuiteDefinitionRequest =
  struct
    type nonrec t =
      {
      suiteDefinitionConfiguration: SuiteDefinitionConfiguration.t
        [@ocaml.doc
          "Creates a Device Advisor test suite with suite definition configuration."];
      tags: TagMap.t option
        [@ocaml.doc "The tags to be attached to the suite definition."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "The client token for the test suite definition creation. This token is used for tracking test suite definition creation using retries and obtaining its status. This parameter is optional."]}
    let context_ = "CreateSuiteDefinitionRequest"
    let make ?tags =
      fun ?clientToken ->
        fun ~suiteDefinitionConfiguration ->
          fun () -> { tags; clientToken; suiteDefinitionConfiguration }
    let to_value x =
      structure_to_value
        [("suiteDefinitionConfiguration",
           (Some
              (SuiteDefinitionConfiguration.to_value
                 x.suiteDefinitionConfiguration)));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let suiteDefinitionConfiguration =
        SuiteDefinitionConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "suiteDefinitionConfiguration") in
      make ?clientToken ?tags ~suiteDefinitionConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let suiteDefinitionConfiguration =
        field_map_exn json__ "suiteDefinitionConfiguration"
          SuiteDefinitionConfiguration.of_json in
      make ?clientToken ?tags ~suiteDefinitionConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Device Advisor test suite. Requires permission to access the CreateSuiteDefinition action."]