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.mgh
let apiVersion = "2017-05-31"
let endpointPrefix = "mgh"
let serviceFullName = "AWS Migration Hub"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "AWSMigrationHub"
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 ProgressPercent =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ProgressPercent" 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 Status =
  struct
    type nonrec t =
      | NOT_STARTED 
      | IN_PROGRESS 
      | FAILED 
      | COMPLETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_STARTED -> "NOT_STARTED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | FAILED -> "FAILED"
      | COMPLETED -> "COMPLETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_STARTED" -> NOT_STARTED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "FAILED" -> FAILED
      | "COMPLETED" -> COMPLETED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration 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 StatusDetail =
  struct
    type nonrec t = string
    let context_ = "StatusDetail"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2500) >>=
                  (fun () -> check_pattern i ~pattern:"^.{0,2500}$")));
        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:"StatusDetail" j
    let to_json = simple_to_json to_value
  end
module ResourceAttributeType =
  struct
    type nonrec t =
      | IPV4_ADDRESS 
      | IPV6_ADDRESS 
      | MAC_ADDRESS 
      | FQDN 
      | VM_MANAGER_ID 
      | VM_MANAGED_OBJECT_REFERENCE 
      | VM_NAME 
      | VM_PATH 
      | BIOS_ID 
      | MOTHERBOARD_SERIAL_NUMBER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IPV4_ADDRESS -> "IPV4_ADDRESS"
      | IPV6_ADDRESS -> "IPV6_ADDRESS"
      | MAC_ADDRESS -> "MAC_ADDRESS"
      | FQDN -> "FQDN"
      | VM_MANAGER_ID -> "VM_MANAGER_ID"
      | VM_MANAGED_OBJECT_REFERENCE -> "VM_MANAGED_OBJECT_REFERENCE"
      | VM_NAME -> "VM_NAME"
      | VM_PATH -> "VM_PATH"
      | BIOS_ID -> "BIOS_ID"
      | MOTHERBOARD_SERIAL_NUMBER -> "MOTHERBOARD_SERIAL_NUMBER"
      | Non_static_id s -> s
    let of_string =
      function
      | "IPV4_ADDRESS" -> IPV4_ADDRESS
      | "IPV6_ADDRESS" -> IPV6_ADDRESS
      | "MAC_ADDRESS" -> MAC_ADDRESS
      | "FQDN" -> FQDN
      | "VM_MANAGER_ID" -> VM_MANAGER_ID
      | "VM_MANAGED_OBJECT_REFERENCE" -> VM_MANAGED_OBJECT_REFERENCE
      | "VM_NAME" -> VM_NAME
      | "VM_PATH" -> VM_PATH
      | "BIOS_ID" -> BIOS_ID
      | "MOTHERBOARD_SERIAL_NUMBER" -> MOTHERBOARD_SERIAL_NUMBER
      | 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 ResourceAttributeType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResourceAttributeType" j)
    let to_json = simple_to_json to_value
  end
module ResourceAttributeValue =
  struct
    type nonrec t = string
    let context_ = "ResourceAttributeValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"^.{1,256}$")));
        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:"ResourceAttributeValue" j
    let to_json = simple_to_json to_value
  end
module SourceResourceDescription =
  struct
    type nonrec t = string
    let context_ = "SourceResourceDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"^.{0,500}$")));
        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:"SourceResourceDescription" j
    let to_json = simple_to_json to_value
  end
module SourceResourceName =
  struct
    type nonrec t = string
    let context_ = "SourceResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1600) >>=
             (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:"SourceResourceName" j
    let to_json = simple_to_json to_value
  end
module ProgressUpdateStream =
  struct
    type nonrec t = string
    let context_ = "ProgressUpdateStream"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[^/:|\\000-\\037]+")));
        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:"ProgressUpdateStream" j
    let to_json = simple_to_json to_value
  end
module MigrationTaskName =
  struct
    type nonrec t = string
    let context_ = "MigrationTaskName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[^:|]+")));
        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:"MigrationTaskName" j
    let to_json = simple_to_json to_value
  end
module UpdateDateTime =
  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 Task =
  struct
    type nonrec t =
      {
      status: Status.t
        [@ocaml.doc
          "Status of the task - Not Started, In-Progress, Complete."];
      statusDetail: StatusDetail.t option
        [@ocaml.doc
          "Details of task status as notified by a migration tool. A tool might use this field to provide clarifying information about the status that is unique to that tool or that explains an error state."];
      progressPercent: ProgressPercent.t option
        [@ocaml.doc "Indication of the percentage completion of the task."]}
    let context_ = "Task"
    let make ?statusDetail =
      fun ?progressPercent ->
        fun ~status -> fun () -> { statusDetail; progressPercent; status }
    let to_value x =
      structure_to_value
        [("Status", (Some (Status.to_value x.status)));
        ("StatusDetail",
          (Option.map x.statusDetail ~f:StatusDetail.to_value));
        ("ProgressPercent",
          (Option.map x.progressPercent ~f:ProgressPercent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let progressPercent =
        (Option.map ~f:ProgressPercent.of_xml)
          (Xml.child xml_arg0 "ProgressPercent") in
      let statusDetail =
        (Option.map ~f:StatusDetail.of_xml)
          (Xml.child xml_arg0 "StatusDetail") in
      let status =
        Status.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      make ?progressPercent ?statusDetail ~status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let progressPercent =
        field_map json__ "ProgressPercent" ProgressPercent.of_json in
      let statusDetail = field_map json__ "StatusDetail" StatusDetail.of_json in
      let status = field_map_exn json__ "Status" Status.of_json in
      make ?progressPercent ?statusDetail ~status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Task object encapsulating task information."]
module UpdateType =
  struct
    type nonrec t =
      | MIGRATION_TASK_STATE_UPDATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MIGRATION_TASK_STATE_UPDATED -> "MIGRATION_TASK_STATE_UPDATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "MIGRATION_TASK_STATE_UPDATED" -> MIGRATION_TASK_STATE_UPDATED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration UpdateType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UpdateType" j)
    let to_json = simple_to_json to_value
  end
module ConfigurationId =
  struct
    type nonrec t = string
    let context_ = "ConfigurationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () -> check_pattern i ~pattern:"^.{1,1600}$")));
        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:"ConfigurationId" j
    let to_json = simple_to_json to_value
  end
module DiscoveredResourceDescription =
  struct
    type nonrec t = string
    let context_ = "DiscoveredResourceDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"^.{0,500}$")));
        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:"DiscoveredResourceDescription" j
    let to_json = simple_to_json to_value
  end
module CreatedArtifactDescription =
  struct
    type nonrec t = string
    let context_ = "CreatedArtifactDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () -> check_pattern i ~pattern:"^.{0,500}$")));
        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:"CreatedArtifactDescription" j
    let to_json = simple_to_json to_value
  end
module CreatedArtifactName =
  struct
    type nonrec t = string
    let context_ = "CreatedArtifactName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z-]+:[a-z0-9-]+:(?:[a-z0-9-]+|):(?:[0-9]{12}|):.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CreatedArtifactName" j
    let to_json = simple_to_json to_value
  end
module ApplicationId =
  struct
    type nonrec t = string
    let context_ = "ApplicationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () -> check_pattern i ~pattern:"^.{1,1600}$")));
        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:"ApplicationId" j
    let to_json = simple_to_json to_value
  end
module ApplicationStatus =
  struct
    type nonrec t =
      | NOT_STARTED 
      | IN_PROGRESS 
      | COMPLETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_STARTED -> "NOT_STARTED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | COMPLETED -> "COMPLETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_STARTED" -> NOT_STARTED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "COMPLETED" -> COMPLETED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ApplicationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ApplicationStatus" j)
    let to_json = simple_to_json to_value
  end
module ResourceAttribute =
  struct
    type nonrec t =
      {
      type_: ResourceAttributeType.t [@ocaml.doc "Type of resource."];
      value: ResourceAttributeValue.t
        [@ocaml.doc "Value of the resource type."]}
    let context_ = "ResourceAttribute"
    let make ~type_ = fun ~value -> fun () -> { type_; value }
    let to_value x =
      structure_to_value
        [("Type", (Some (ResourceAttributeType.to_value x.type_)));
        ("Value", (Some (ResourceAttributeValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        ResourceAttributeValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let type_ =
        ResourceAttributeType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      make ~value ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" ResourceAttributeValue.of_json in
      let type_ = field_map_exn json__ "Type" ResourceAttributeType.of_json in
      make ~value ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attribute associated with a resource. Note the corresponding format required per type listed below: IPV4 x.x.x.x where x is an integer in the range \\[0,255\\] IPV6 y : y : y : y : y : y : y : y where y is a hexadecimal between 0 and FFFF. \\[0, FFFF\\] MAC_ADDRESS ^(\\[0-9A-Fa-f\\]\\{2\\}\\[:-\\])\\{5\\}(\\[0-9A-Fa-f\\]\\{2\\})$ FQDN ^\\[^<>\\{\\}\\\\\\\\/?,=\\\\p\\{Cntrl\\}\\]\\{1,256\\}$"]
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    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:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module RetryAfterSeconds =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for RetryAfterSeconds" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module SourceResource =
  struct
    type nonrec t =
      {
      name: SourceResourceName.t
        [@ocaml.doc
          "This is the name that you want to use to identify the resource. If the resource is an AWS resource, we recommend that you set this parameter to the ARN of the resource."];
      description: SourceResourceDescription.t option
        [@ocaml.doc
          "A description that can be free-form text to record additional detail about the resource for clarity or later reference."];
      statusDetail: StatusDetail.t option
        [@ocaml.doc "A free-form description of the status of the resource."]}
    let context_ = "SourceResource"
    let make ?description =
      fun ?statusDetail ->
        fun ~name -> fun () -> { description; statusDetail; name }
    let to_value x =
      structure_to_value
        [("Name", (Some (SourceResourceName.to_value x.name)));
        ("Description",
          (Option.map x.description ~f:SourceResourceDescription.to_value));
        ("StatusDetail",
          (Option.map x.statusDetail ~f:StatusDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusDetail =
        (Option.map ~f:StatusDetail.of_xml)
          (Xml.child xml_arg0 "StatusDetail") in
      let description =
        (Option.map ~f:SourceResourceDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        SourceResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?statusDetail ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusDetail = field_map json__ "StatusDetail" StatusDetail.of_json in
      let description =
        field_map json__ "Description" SourceResourceDescription.of_json in
      let name = field_map_exn json__ "Name" SourceResourceName.of_json in
      make ?statusDetail ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A source resource can be a source server, a migration wave, an application, or any other resource that you track."]
module ProgressUpdateStreamSummary =
  struct
    type nonrec t =
      {
      progressUpdateStreamName: ProgressUpdateStream.t option
        [@ocaml.doc
          "The name of the ProgressUpdateStream. Do not store personal data in this field."]}
    let make ?progressUpdateStreamName =
      fun () -> { progressUpdateStreamName }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStreamName",
           (Option.map x.progressUpdateStreamName
              ~f:ProgressUpdateStream.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let progressUpdateStreamName =
        (Option.map ~f:ProgressUpdateStream.of_xml)
          (Xml.child xml_arg0 "ProgressUpdateStreamName") in
      make ?progressUpdateStreamName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let progressUpdateStreamName =
        field_map json__ "ProgressUpdateStreamName"
          ProgressUpdateStream.of_json in
      make ?progressUpdateStreamName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary of the AWS resource used for access control that is implicitly linked to your AWS account."]
module MigrationTaskSummary =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t option
        [@ocaml.doc
          "An AWS resource used for access control. It should uniquely identify the migration tool as it is used for all updates made by the tool."];
      migrationTaskName: MigrationTaskName.t option
        [@ocaml.doc
          "Unique identifier that references the migration task. Do not store personal data in this field."];
      status: Status.t option [@ocaml.doc "Status of the task."];
      progressPercent: ProgressPercent.t option
        [@ocaml.doc "Indication of the percentage completion of the task."];
      statusDetail: StatusDetail.t option
        [@ocaml.doc
          "Detail information of what is being done within the overall status state."];
      updateDateTime: UpdateDateTime.t option
        [@ocaml.doc "The timestamp when the task was gathered."]}
    let make ?progressUpdateStream =
      fun ?migrationTaskName ->
        fun ?status ->
          fun ?progressPercent ->
            fun ?statusDetail ->
              fun ?updateDateTime ->
                fun () ->
                  {
                    progressUpdateStream;
                    migrationTaskName;
                    status;
                    progressPercent;
                    statusDetail;
                    updateDateTime
                  }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Option.map x.progressUpdateStream
              ~f:ProgressUpdateStream.to_value));
        ("MigrationTaskName",
          (Option.map x.migrationTaskName ~f:MigrationTaskName.to_value));
        ("Status", (Option.map x.status ~f:Status.to_value));
        ("ProgressPercent",
          (Option.map x.progressPercent ~f:ProgressPercent.to_value));
        ("StatusDetail",
          (Option.map x.statusDetail ~f:StatusDetail.to_value));
        ("UpdateDateTime",
          (Option.map x.updateDateTime ~f:UpdateDateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateDateTime =
        (Option.map ~f:UpdateDateTime.of_xml)
          (Xml.child xml_arg0 "UpdateDateTime") in
      let statusDetail =
        (Option.map ~f:StatusDetail.of_xml)
          (Xml.child xml_arg0 "StatusDetail") in
      let progressPercent =
        (Option.map ~f:ProgressPercent.of_xml)
          (Xml.child xml_arg0 "ProgressPercent") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "Status") in
      let migrationTaskName =
        (Option.map ~f:MigrationTaskName.of_xml)
          (Xml.child xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        (Option.map ~f:ProgressUpdateStream.of_xml)
          (Xml.child xml_arg0 "ProgressUpdateStream") in
      make ?updateDateTime ?statusDetail ?progressPercent ?status
        ?migrationTaskName ?progressUpdateStream ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateDateTime =
        field_map json__ "UpdateDateTime" UpdateDateTime.of_json in
      let statusDetail = field_map json__ "StatusDetail" StatusDetail.of_json in
      let progressPercent =
        field_map json__ "ProgressPercent" ProgressPercent.of_json in
      let status = field_map json__ "Status" Status.of_json in
      let migrationTaskName =
        field_map json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map json__ "ProgressUpdateStream" ProgressUpdateStream.of_json in
      make ?updateDateTime ?statusDetail ?progressPercent ?status
        ?migrationTaskName ?progressUpdateStream ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "MigrationTaskSummary includes MigrationTaskName, ProgressPercent, ProgressUpdateStream, Status, and UpdateDateTime for each task."]
module MigrationTaskUpdate =
  struct
    type nonrec t =
      {
      updateDateTime: UpdateDateTime.t option
        [@ocaml.doc "The timestamp for the update."];
      updateType: UpdateType.t option [@ocaml.doc "The type of the update."];
      migrationTaskState: Task.t option }
    let make ?updateDateTime =
      fun ?updateType ->
        fun ?migrationTaskState ->
          fun () -> { updateDateTime; updateType; migrationTaskState }
    let to_value x =
      structure_to_value
        [("UpdateDateTime",
           (Option.map x.updateDateTime ~f:UpdateDateTime.to_value));
        ("UpdateType", (Option.map x.updateType ~f:UpdateType.to_value));
        ("MigrationTaskState",
          (Option.map x.migrationTaskState ~f:Task.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let migrationTaskState =
        (Option.map ~f:Task.of_xml) (Xml.child xml_arg0 "MigrationTaskState") in
      let updateType =
        (Option.map ~f:UpdateType.of_xml) (Xml.child xml_arg0 "UpdateType") in
      let updateDateTime =
        (Option.map ~f:UpdateDateTime.of_xml)
          (Xml.child xml_arg0 "UpdateDateTime") in
      make ?migrationTaskState ?updateType ?updateDateTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let migrationTaskState =
        field_map json__ "MigrationTaskState" Task.of_json in
      let updateType = field_map json__ "UpdateType" UpdateType.of_json in
      let updateDateTime =
        field_map json__ "UpdateDateTime" UpdateDateTime.of_json in
      make ?migrationTaskState ?updateType ?updateDateTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A migration-task progress update."]
module DiscoveredResource =
  struct
    type nonrec t =
      {
      configurationId: ConfigurationId.t
        [@ocaml.doc
          "The configurationId in Application Discovery Service that uniquely identifies the on-premise resource."];
      description: DiscoveredResourceDescription.t option
        [@ocaml.doc
          "A description that can be free-form text to record additional detail about the discovered resource for clarity or later reference."]}
    let context_ = "DiscoveredResource"
    let make ?description =
      fun ~configurationId -> fun () -> { description; configurationId }
    let to_value x =
      structure_to_value
        [("ConfigurationId",
           (Some (ConfigurationId.to_value x.configurationId)));
        ("Description",
          (Option.map x.description ~f:DiscoveredResourceDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:DiscoveredResourceDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let configurationId =
        ConfigurationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationId") in
      make ?description ~configurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "Description" DiscoveredResourceDescription.of_json in
      let configurationId =
        field_map_exn json__ "ConfigurationId" ConfigurationId.of_json in
      make ?description ~configurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object representing the on-premises resource being migrated."]
module CreatedArtifact =
  struct
    type nonrec t =
      {
      name: CreatedArtifactName.t
        [@ocaml.doc
          "An ARN that uniquely identifies the result of a migration task."];
      description: CreatedArtifactDescription.t option
        [@ocaml.doc
          "A description that can be free-form text to record additional detail about the artifact for clarity or for later reference."]}
    let context_ = "CreatedArtifact"
    let make ?description = fun ~name -> fun () -> { description; name }
    let to_value x =
      structure_to_value
        [("Name", (Some (CreatedArtifactName.to_value x.name)));
        ("Description",
          (Option.map x.description ~f:CreatedArtifactDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:CreatedArtifactDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        CreatedArtifactName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "Description" CreatedArtifactDescription.of_json in
      let name = field_map_exn json__ "Name" CreatedArtifactName.of_json in
      make ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An ARN of the AWS cloud resource target receiving the migration (e.g., AMI, EC2 instance, RDS instance, etc.)."]
module ApplicationState =
  struct
    type nonrec t =
      {
      applicationId: ApplicationId.t option
        [@ocaml.doc
          "The configurationId from the Application Discovery Service that uniquely identifies an application."];
      applicationStatus: ApplicationStatus.t option
        [@ocaml.doc "The current status of an application."];
      lastUpdatedTime: UpdateDateTime.t option
        [@ocaml.doc
          "The timestamp when the application status was last updated."]}
    let make ?applicationId =
      fun ?applicationStatus ->
        fun ?lastUpdatedTime ->
          fun () -> { applicationId; applicationStatus; lastUpdatedTime }
    let to_value x =
      structure_to_value
        [("ApplicationId",
           (Option.map x.applicationId ~f:ApplicationId.to_value));
        ("ApplicationStatus",
          (Option.map x.applicationStatus ~f:ApplicationStatus.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:UpdateDateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTime =
        (Option.map ~f:UpdateDateTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let applicationStatus =
        (Option.map ~f:ApplicationStatus.of_xml)
          (Xml.child xml_arg0 "ApplicationStatus") in
      let applicationId =
        (Option.map ~f:ApplicationId.of_xml)
          (Xml.child xml_arg0 "ApplicationId") in
      make ?lastUpdatedTime ?applicationStatus ?applicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" UpdateDateTime.of_json in
      let applicationStatus =
        field_map json__ "ApplicationStatus" ApplicationStatus.of_json in
      let applicationId =
        field_map json__ "ApplicationId" ApplicationId.of_json in
      make ?lastUpdatedTime ?applicationStatus ?applicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The state of an application discovered through Migration Hub import, the AWS Agentless Discovery Connector, or the AWS Application Discovery Agent."]
module LatestResourceAttributeList =
  struct
    type nonrec t = ResourceAttribute.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:ResourceAttribute.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:ResourceAttribute.of_xml)
    let of_json j =
      list_of_json ~kind:"LatestResourceAttributeList"
        ~of_json:ResourceAttribute.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient access to perform this action."]
module DryRunOperation =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exception raised to indicate a successfully authorized action when the DryRun flag is set to \"true\"."]
module HomeRegionNotSetException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The home region is not set. Set the home region to continue."]
module InternalServerError =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exception raised when an internal, configuration, or dependency error is encountered."]
module InvalidInputException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exception raised when the provided input violates a policy constraint or is entered in the wrong format or data type."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exception raised when the request references a resource (Application Discovery Service configuration, update stream, migration task, etc.) that does not exist in Application Discovery Service (Application Discovery Service) or in Migration Hub's repository."]
module ServiceUnavailableException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exception raised when there is an internal, configuration, or dependency error encountered."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option
        [@ocaml.doc
          "A message that provides information about the exception."];
      retryAfterSeconds: RetryAfterSeconds.t option
        [@ocaml.doc
          "The number of seconds the caller should wait before retrying."]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("RetryAfterSeconds",
          (Option.map x.retryAfterSeconds ~f:RetryAfterSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:RetryAfterSeconds.of_xml)
          (Xml.child xml_arg0 "RetryAfterSeconds") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "RetryAfterSeconds" RetryAfterSeconds.of_json in
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module UnauthorizedOperation =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exception raised to indicate a request was not authorized when the DryRun flag is set to \"true\"."]
module DryRun =
  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 ResourceAttributeList =
  struct
    type nonrec t = ResourceAttribute.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ResourceAttribute.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:ResourceAttribute.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceAttributeList"
        ~of_json:ResourceAttribute.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextUpdateSeconds =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for NextUpdateSeconds" 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 PolicyErrorException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exception raised when there are problems accessing Application Discovery Service (Application Discovery Service); most likely due to a misconfigured policy or the migrationhub-discovery role is missing or not configured correctly."]
module SourceResourceList =
  struct
    type nonrec t = SourceResource.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:SourceResource.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:SourceResource.of_xml)
    let of_json j =
      list_of_json ~kind:"SourceResourceList" ~of_json:SourceResource.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module Token =
  struct
    type nonrec t = string
    let context_ = "Token"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[a-zA-Z0-9\\/\\+\\=]{0,2048}$")));
        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 MaxResultsSourceResources =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min: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 MaxResultsSourceResources"
           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 ProgressUpdateStreamSummaryList =
  struct
    type nonrec t = ProgressUpdateStreamSummary.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:ProgressUpdateStreamSummary.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:ProgressUpdateStreamSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ProgressUpdateStreamSummaryList"
        ~of_json:ProgressUpdateStreamSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for 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 MigrationTaskSummaryList =
  struct
    type nonrec t = MigrationTaskSummary.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:MigrationTaskSummary.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:MigrationTaskSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"MigrationTaskSummaryList"
        ~of_json:MigrationTaskSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceName =
  struct
    type nonrec t = string
    let context_ = "ResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1600) >>=
                  (fun () -> check_pattern i ~pattern:"^.{1,1600}$")));
        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:"ResourceName" j
    let to_json = simple_to_json to_value
  end
module MigrationTaskUpdateList =
  struct
    type nonrec t = MigrationTaskUpdate.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:MigrationTaskUpdate.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:MigrationTaskUpdate.of_xml)
    let of_json j =
      list_of_json ~kind:"MigrationTaskUpdateList"
        ~of_json:MigrationTaskUpdate.of_json j
    let to_json v = composed_to_json to_value v
  end
module DiscoveredResourceList =
  struct
    type nonrec t = DiscoveredResource.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:DiscoveredResource.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:DiscoveredResource.of_xml)
    let of_json j =
      list_of_json ~kind:"DiscoveredResourceList"
        ~of_json:DiscoveredResource.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResultsResources =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min: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 MaxResultsResources" 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 CreatedArtifactList =
  struct
    type nonrec t = CreatedArtifact.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:CreatedArtifact.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:CreatedArtifact.of_xml)
    let of_json j =
      list_of_json ~kind:"CreatedArtifactList"
        ~of_json:CreatedArtifact.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResultsCreatedArtifacts =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min: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 MaxResultsCreatedArtifacts"
           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 ApplicationStateList =
  struct
    type nonrec t = ApplicationState.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1000) >>=
             (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:ApplicationState.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:ApplicationState.of_xml)
    let of_json j =
      list_of_json ~kind:"ApplicationStateList"
        ~of_json:ApplicationState.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApplicationIds =
  struct
    type nonrec t = ApplicationId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ApplicationId.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:ApplicationId.of_xml)
    let of_json j =
      list_of_json ~kind:"ApplicationIds" ~of_json:ApplicationId.of_json j
    let to_json v = composed_to_json to_value v
  end
module MigrationTask =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t option
        [@ocaml.doc
          "A name that identifies the vendor of the migration tool being used."];
      migrationTaskName: MigrationTaskName.t option
        [@ocaml.doc
          "Unique identifier that references the migration task. Do not store personal data in this field."];
      task: Task.t option
        [@ocaml.doc "Task object encapsulating task information."];
      updateDateTime: UpdateDateTime.t option
        [@ocaml.doc "The timestamp when the task was gathered."];
      resourceAttributeList: LatestResourceAttributeList.t option
        [@ocaml.doc
          "Information about the resource that is being migrated. This data will be used to map the task to a resource in the Application Discovery Service repository."]}
    let make ?progressUpdateStream =
      fun ?migrationTaskName ->
        fun ?task ->
          fun ?updateDateTime ->
            fun ?resourceAttributeList ->
              fun () ->
                {
                  progressUpdateStream;
                  migrationTaskName;
                  task;
                  updateDateTime;
                  resourceAttributeList
                }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Option.map x.progressUpdateStream
              ~f:ProgressUpdateStream.to_value));
        ("MigrationTaskName",
          (Option.map x.migrationTaskName ~f:MigrationTaskName.to_value));
        ("Task", (Option.map x.task ~f:Task.to_value));
        ("UpdateDateTime",
          (Option.map x.updateDateTime ~f:UpdateDateTime.to_value));
        ("ResourceAttributeList",
          (Option.map x.resourceAttributeList
             ~f:LatestResourceAttributeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceAttributeList =
        (Option.map ~f:LatestResourceAttributeList.of_xml)
          (Xml.child xml_arg0 "ResourceAttributeList") in
      let updateDateTime =
        (Option.map ~f:UpdateDateTime.of_xml)
          (Xml.child xml_arg0 "UpdateDateTime") in
      let task = (Option.map ~f:Task.of_xml) (Xml.child xml_arg0 "Task") in
      let migrationTaskName =
        (Option.map ~f:MigrationTaskName.of_xml)
          (Xml.child xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        (Option.map ~f:ProgressUpdateStream.of_xml)
          (Xml.child xml_arg0 "ProgressUpdateStream") in
      make ?resourceAttributeList ?updateDateTime ?task ?migrationTaskName
        ?progressUpdateStream ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceAttributeList =
        field_map json__ "ResourceAttributeList"
          LatestResourceAttributeList.of_json in
      let updateDateTime =
        field_map json__ "UpdateDateTime" UpdateDateTime.of_json in
      let task = field_map json__ "Task" Task.of_json in
      let migrationTaskName =
        field_map json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map json__ "ProgressUpdateStream" ProgressUpdateStream.of_json in
      make ?resourceAttributeList ?updateDateTime ?task ?migrationTaskName
        ?progressUpdateStream ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents a migration task in a migration tool."]
module PutResourceAttributesResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DryRunOperation of DryRunOperation.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedOperation of UnauthorizedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DryRunOperation e ->
          `Assoc
            [("error", (`String "DryRunOperation"));
            ("details", (DryRunOperation.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedOperation e ->
          `Assoc
            [("error", (`String "UnauthorizedOperation"));
            ("details", (UnauthorizedOperation.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
       "Provides identifying details of the resource being migrated so that it can be associated in the Application Discovery Service repository. This association occurs asynchronously after PutResourceAttributes returns. Keep in mind that subsequent calls to PutResourceAttributes will override previously stored attributes. For example, if it is first called with a MAC address, but later, it is desired to add an IP address, it will then be required to call it with both the IP and MAC addresses to prevent overriding the MAC address. Note the instructions regarding the special use case of the ResourceAttributeList parameter when specifying any \"VM\" related value. Because this is an asynchronous call, it will always return 200, whether an association occurs or not. To confirm if an association was found based on the provided details, call ListDiscoveredResources."]
module PutResourceAttributesRequest =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t
        [@ocaml.doc "The name of the ProgressUpdateStream."];
      migrationTaskName: MigrationTaskName.t
        [@ocaml.doc
          "Unique identifier that references the migration task. Do not store personal data in this field."];
      resourceAttributeList: ResourceAttributeList.t
        [@ocaml.doc
          "Information about the resource that is being migrated. This data will be used to map the task to a resource in the Application Discovery Service repository. Takes the object array of ResourceAttribute where the Type field is reserved for the following values: IPV4_ADDRESS | IPV6_ADDRESS | MAC_ADDRESS | FQDN | VM_MANAGER_ID | VM_MANAGED_OBJECT_REFERENCE | VM_NAME | VM_PATH | BIOS_ID | MOTHERBOARD_SERIAL_NUMBER where the identifying value can be a string up to 256 characters. If any \"VM\" related value is set for a ResourceAttribute object, it is required that VM_MANAGER_ID, as a minimum, is always set. If VM_MANAGER_ID is not set, then all \"VM\" fields will be discarded and \"VM\" fields will not be used for matching the migration task to a server in Application Discovery Service repository. See the Example section below for a use case of specifying \"VM\" related values. If a server you are trying to match has multiple IP or MAC addresses, you should provide as many as you know in separate type/value pairs passed to the ResourceAttributeList parameter to maximize the chances of matching."];
      dryRun: DryRun.t option
        [@ocaml.doc
          "Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call."]}
    let context_ = "PutResourceAttributesRequest"
    let make ?dryRun =
      fun ~progressUpdateStream ->
        fun ~migrationTaskName ->
          fun ~resourceAttributeList ->
            fun () ->
              {
                dryRun;
                progressUpdateStream;
                migrationTaskName;
                resourceAttributeList
              }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStream)));
        ("MigrationTaskName",
          (Some (MigrationTaskName.to_value x.migrationTaskName)));
        ("ResourceAttributeList",
          (Some (ResourceAttributeList.to_value x.resourceAttributeList)));
        ("DryRun", (Option.map x.dryRun ~f:DryRun.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      let resourceAttributeList =
        ResourceAttributeList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceAttributeList") in
      let migrationTaskName =
        MigrationTaskName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProgressUpdateStream") in
      make ?dryRun ~resourceAttributeList ~migrationTaskName
        ~progressUpdateStream ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      let resourceAttributeList =
        field_map_exn json__ "ResourceAttributeList"
          ResourceAttributeList.of_json in
      let migrationTaskName =
        field_map_exn json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map_exn json__ "ProgressUpdateStream"
          ProgressUpdateStream.of_json in
      make ?dryRun ~resourceAttributeList ~migrationTaskName
        ~progressUpdateStream ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides identifying details of the resource being migrated so that it can be associated in the Application Discovery Service repository. This association occurs asynchronously after PutResourceAttributes returns. Keep in mind that subsequent calls to PutResourceAttributes will override previously stored attributes. For example, if it is first called with a MAC address, but later, it is desired to add an IP address, it will then be required to call it with both the IP and MAC addresses to prevent overriding the MAC address. Note the instructions regarding the special use case of the ResourceAttributeList parameter when specifying any \"VM\" related value. Because this is an asynchronous call, it will always return 200, whether an association occurs or not. To confirm if an association was found based on the provided details, call ListDiscoveredResources."]
module NotifyMigrationTaskStateResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DryRunOperation of DryRunOperation.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedOperation of UnauthorizedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DryRunOperation e ->
          `Assoc
            [("error", (`String "DryRunOperation"));
            ("details", (DryRunOperation.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedOperation e ->
          `Assoc
            [("error", (`String "UnauthorizedOperation"));
            ("details", (UnauthorizedOperation.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
       "Notifies Migration Hub of the current status, progress, or other detail regarding a migration task. This API has the following traits: Migration tools will call the NotifyMigrationTaskState API to share the latest progress and status. MigrationTaskName is used for addressing updates to the correct target. ProgressUpdateStream is used for access control and to provide a namespace for each migration tool."]
module NotifyMigrationTaskStateRequest =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t
        [@ocaml.doc "The name of the ProgressUpdateStream."];
      migrationTaskName: MigrationTaskName.t
        [@ocaml.doc
          "Unique identifier that references the migration task. Do not store personal data in this field."];
      task: Task.t
        [@ocaml.doc "Information about the task's progress and status."];
      updateDateTime: UpdateDateTime.t
        [@ocaml.doc "The timestamp when the task was gathered."];
      nextUpdateSeconds: NextUpdateSeconds.t
        [@ocaml.doc
          "Number of seconds after the UpdateDateTime within which the Migration Hub can expect an update. If Migration Hub does not receive an update within the specified interval, then the migration task will be considered stale."];
      dryRun: DryRun.t option
        [@ocaml.doc
          "Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call."]}
    let context_ = "NotifyMigrationTaskStateRequest"
    let make ?dryRun =
      fun ~progressUpdateStream ->
        fun ~migrationTaskName ->
          fun ~task ->
            fun ~updateDateTime ->
              fun ~nextUpdateSeconds ->
                fun () ->
                  {
                    dryRun;
                    progressUpdateStream;
                    migrationTaskName;
                    task;
                    updateDateTime;
                    nextUpdateSeconds
                  }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStream)));
        ("MigrationTaskName",
          (Some (MigrationTaskName.to_value x.migrationTaskName)));
        ("Task", (Some (Task.to_value x.task)));
        ("UpdateDateTime", (Some (UpdateDateTime.to_value x.updateDateTime)));
        ("NextUpdateSeconds",
          (Some (NextUpdateSeconds.to_value x.nextUpdateSeconds)));
        ("DryRun", (Option.map x.dryRun ~f:DryRun.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      let nextUpdateSeconds =
        NextUpdateSeconds.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NextUpdateSeconds") in
      let updateDateTime =
        UpdateDateTime.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UpdateDateTime") in
      let task =
        Task.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Task") in
      let migrationTaskName =
        MigrationTaskName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProgressUpdateStream") in
      make ?dryRun ~nextUpdateSeconds ~updateDateTime ~task
        ~migrationTaskName ~progressUpdateStream ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      let nextUpdateSeconds =
        field_map_exn json__ "NextUpdateSeconds" NextUpdateSeconds.of_json in
      let updateDateTime =
        field_map_exn json__ "UpdateDateTime" UpdateDateTime.of_json in
      let task = field_map_exn json__ "Task" Task.of_json in
      let migrationTaskName =
        field_map_exn json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map_exn json__ "ProgressUpdateStream"
          ProgressUpdateStream.of_json in
      make ?dryRun ~nextUpdateSeconds ~updateDateTime ~task
        ~migrationTaskName ~progressUpdateStream ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Notifies Migration Hub of the current status, progress, or other detail regarding a migration task. This API has the following traits: Migration tools will call the NotifyMigrationTaskState API to share the latest progress and status. MigrationTaskName is used for addressing updates to the correct target. ProgressUpdateStream is used for access control and to provide a namespace for each migration tool."]
module NotifyApplicationStateResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DryRunOperation of DryRunOperation.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `PolicyErrorException of PolicyErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedOperation of UnauthorizedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "PolicyErrorException" ->
          `PolicyErrorException (PolicyErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "PolicyErrorException" ->
          `PolicyErrorException (PolicyErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DryRunOperation e ->
          `Assoc
            [("error", (`String "DryRunOperation"));
            ("details", (DryRunOperation.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `PolicyErrorException e ->
          `Assoc
            [("error", (`String "PolicyErrorException"));
            ("details", (PolicyErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedOperation e ->
          `Assoc
            [("error", (`String "UnauthorizedOperation"));
            ("details", (UnauthorizedOperation.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
       "Sets the migration state of an application. For a given application identified by the value passed to ApplicationId, its status is set or updated by passing one of three values to Status: NOT_STARTED | IN_PROGRESS | COMPLETED."]
module NotifyApplicationStateRequest =
  struct
    type nonrec t =
      {
      applicationId: ApplicationId.t
        [@ocaml.doc
          "The configurationId in Application Discovery Service that uniquely identifies the grouped application."];
      status: ApplicationStatus.t
        [@ocaml.doc
          "Status of the application - Not Started, In-Progress, Complete."];
      updateDateTime: UpdateDateTime.t option
        [@ocaml.doc "The timestamp when the application state changed."];
      dryRun: DryRun.t option
        [@ocaml.doc
          "Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call."]}
    let context_ = "NotifyApplicationStateRequest"
    let make ?updateDateTime =
      fun ?dryRun ->
        fun ~applicationId ->
          fun ~status ->
            fun () -> { updateDateTime; dryRun; applicationId; status }
    let to_value x =
      structure_to_value
        [("ApplicationId", (Some (ApplicationId.to_value x.applicationId)));
        ("Status", (Some (ApplicationStatus.to_value x.status)));
        ("UpdateDateTime",
          (Option.map x.updateDateTime ~f:UpdateDateTime.to_value));
        ("DryRun", (Option.map x.dryRun ~f:DryRun.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      let updateDateTime =
        (Option.map ~f:UpdateDateTime.of_xml)
          (Xml.child xml_arg0 "UpdateDateTime") in
      let status =
        ApplicationStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      let applicationId =
        ApplicationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationId") in
      make ?dryRun ?updateDateTime ~status ~applicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      let updateDateTime =
        field_map json__ "UpdateDateTime" UpdateDateTime.of_json in
      let status = field_map_exn json__ "Status" ApplicationStatus.of_json in
      let applicationId =
        field_map_exn json__ "ApplicationId" ApplicationId.of_json in
      make ?dryRun ?updateDateTime ~status ~applicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the migration state of an application. For a given application identified by the value passed to ApplicationId, its status is set or updated by passing one of three values to Status: NOT_STARTED | IN_PROGRESS | COMPLETED."]
module ListSourceResourcesResult =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "If the response includes a NextToken value, that means that there are more results available. The value of NextToken is a unique pagination token for each page. To retrieve the next page of results, call this API again and specify this NextToken value in the request. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."];
      sourceResourceList: SourceResourceList.t option
        [@ocaml.doc "The list of source resources."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?sourceResourceList -> fun () -> { nextToken; sourceResourceList }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("SourceResourceList",
          (Option.map x.sourceResourceList ~f:SourceResourceList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceResourceList =
        (Option.map ~f:SourceResourceList.of_xml)
          (Xml.child xml_arg0 "SourceResourceList") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?sourceResourceList ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceResourceList =
        field_map json__ "SourceResourceList" SourceResourceList.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      make ?sourceResourceList ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the source resource that are associated with the specified MigrationTaskName and ProgressUpdateStream."]
module ListSourceResourcesRequest =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t
        [@ocaml.doc
          "The name of the progress-update stream, which is used for access control as well as a namespace for migration-task names that is implicitly linked to your AWS account. The progress-update stream must uniquely identify the migration tool as it is used for all updates made by the tool; however, it does not need to be unique for each AWS account because it is scoped to the AWS account."];
      migrationTaskName: MigrationTaskName.t
        [@ocaml.doc
          "A unique identifier that references the migration task. Do not store confidential data in this field."];
      nextToken: Token.t option
        [@ocaml.doc
          "If NextToken was returned by a previous call, there are more results available. The value of NextToken is a unique pagination token for each page. To retrieve the next page of results, specify the NextToken value that the previous call returned. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."];
      maxResults: MaxResultsSourceResources.t option
        [@ocaml.doc
          "The maximum number of results to include in the response. If more results exist than the value that you specify here for MaxResults, the response will include a token that you can use to retrieve the next set of results."]}
    let context_ = "ListSourceResourcesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~progressUpdateStream ->
          fun ~migrationTaskName ->
            fun () ->
              {
                nextToken;
                maxResults;
                progressUpdateStream;
                migrationTaskName
              }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStream)));
        ("MigrationTaskName",
          (Some (MigrationTaskName.to_value x.migrationTaskName)));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxResultsSourceResources.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResultsSourceResources.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let migrationTaskName =
        MigrationTaskName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProgressUpdateStream") in
      make ?maxResults ?nextToken ~migrationTaskName ~progressUpdateStream ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" MaxResultsSourceResources.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let migrationTaskName =
        field_map_exn json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map_exn json__ "ProgressUpdateStream"
          ProgressUpdateStream.of_json in
      make ?maxResults ?nextToken ~migrationTaskName ~progressUpdateStream ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the source resource that are associated with the specified MigrationTaskName and ProgressUpdateStream."]
module ListProgressUpdateStreamsResult =
  struct
    type nonrec t =
      {
      progressUpdateStreamSummaryList:
        ProgressUpdateStreamSummaryList.t option
        [@ocaml.doc
          "List of progress update streams up to the max number of results passed in the input."];
      nextToken: Token.t option
        [@ocaml.doc
          "If there are more streams created than the max result, return the next token to be passed to the next call as a bookmark of where to start from."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?progressUpdateStreamSummaryList =
      fun ?nextToken ->
        fun () -> { progressUpdateStreamSummaryList; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("ProgressUpdateStreamSummaryList",
           (Option.map x.progressUpdateStreamSummaryList
              ~f:ProgressUpdateStreamSummaryList.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 progressUpdateStreamSummaryList =
        (Option.map ~f:ProgressUpdateStreamSummaryList.of_xml)
          (Xml.child xml_arg0 "ProgressUpdateStreamSummaryList") in
      make ?nextToken ?progressUpdateStreamSummaryList ()
    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 progressUpdateStreamSummaryList =
        field_map json__ "ProgressUpdateStreamSummaryList"
          ProgressUpdateStreamSummaryList.of_json in
      make ?nextToken ?progressUpdateStreamSummaryList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists progress update streams associated with the user account making this call."]
module ListProgressUpdateStreamsRequest =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "If a NextToken was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in NextToken."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Filter to limit the maximum number of results to list per page."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists progress update streams associated with the user account making this call."]
module ListMigrationTasksResult =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "If there are more migration tasks than the max result, return the next token to be passed to the next call as a bookmark of where to start from."];
      migrationTaskSummaryList: MigrationTaskSummaryList.t option
        [@ocaml.doc
          "Lists the migration task's summary which includes: MigrationTaskName, ProgressPercent, ProgressUpdateStream, Status, and the UpdateDateTime for each task."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `PolicyErrorException of PolicyErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?migrationTaskSummaryList ->
        fun () -> { nextToken; migrationTaskSummaryList }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "PolicyErrorException" ->
          `PolicyErrorException (PolicyErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "PolicyErrorException" ->
          `PolicyErrorException (PolicyErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `PolicyErrorException e ->
          `Assoc
            [("error", (`String "PolicyErrorException"));
            ("details", (PolicyErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("MigrationTaskSummaryList",
          (Option.map x.migrationTaskSummaryList
             ~f:MigrationTaskSummaryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let migrationTaskSummaryList =
        (Option.map ~f:MigrationTaskSummaryList.of_xml)
          (Xml.child xml_arg0 "MigrationTaskSummaryList") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?migrationTaskSummaryList ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let migrationTaskSummaryList =
        field_map json__ "MigrationTaskSummaryList"
          MigrationTaskSummaryList.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      make ?migrationTaskSummaryList ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all, or filtered by resource name, migration tasks associated with the user account making this call. This API has the following traits: Can show a summary list of the most recent migration tasks. Can show a summary list of migration tasks associated with a given discovered resource. Lists migration tasks in a paginated interface."]
module ListMigrationTasksRequest =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "If a NextToken was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in NextToken."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Value to specify how many results are returned per page."];
      resourceName: ResourceName.t option
        [@ocaml.doc "Filter migration tasks by discovered resource name."]}
    let make ?nextToken =
      fun ?maxResults ->
        fun ?resourceName ->
          fun () -> { nextToken; maxResults; resourceName }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("ResourceName",
          (Option.map x.resourceName ~f:ResourceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceName =
        (Option.map ~f:ResourceName.of_xml)
          (Xml.child xml_arg0 "ResourceName") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?resourceName ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceName = field_map json__ "ResourceName" ResourceName.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      make ?resourceName ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all, or filtered by resource name, migration tasks associated with the user account making this call. This API has the following traits: Can show a summary list of the most recent migration tasks. Can show a summary list of migration tasks associated with a given discovered resource. Lists migration tasks in a paginated interface."]
module ListMigrationTaskUpdatesResult =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "If the response includes a NextToken value, that means that there are more results available. The value of NextToken is a unique pagination token for each page. To retrieve the next page of results, call this API again and specify this NextToken value in the request. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."];
      migrationTaskUpdateList: MigrationTaskUpdateList.t option
        [@ocaml.doc "The list of migration-task updates."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?migrationTaskUpdateList ->
        fun () -> { nextToken; migrationTaskUpdateList }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("MigrationTaskUpdateList",
          (Option.map x.migrationTaskUpdateList
             ~f:MigrationTaskUpdateList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let migrationTaskUpdateList =
        (Option.map ~f:MigrationTaskUpdateList.of_xml)
          (Xml.child xml_arg0 "MigrationTaskUpdateList") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?migrationTaskUpdateList ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let migrationTaskUpdateList =
        field_map json__ "MigrationTaskUpdateList"
          MigrationTaskUpdateList.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      make ?migrationTaskUpdateList ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is a paginated API that returns all the migration-task states for the specified MigrationTaskName and ProgressUpdateStream."]
module ListMigrationTaskUpdatesRequest =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t
        [@ocaml.doc
          "The name of the progress-update stream, which is used for access control as well as a namespace for migration-task names that is implicitly linked to your AWS account. The progress-update stream must uniquely identify the migration tool as it is used for all updates made by the tool; however, it does not need to be unique for each AWS account because it is scoped to the AWS account."];
      migrationTaskName: MigrationTaskName.t
        [@ocaml.doc
          "A unique identifier that references the migration task. Do not include sensitive data in this field."];
      nextToken: Token.t option
        [@ocaml.doc
          "If NextToken was returned by a previous call, there are more results available. The value of NextToken is a unique pagination token for each page. To retrieve the next page of results, specify the NextToken value that the previous call returned. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to include in the response. If more results exist than the value that you specify here for MaxResults, the response will include a token that you can use to retrieve the next set of results."]}
    let context_ = "ListMigrationTaskUpdatesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~progressUpdateStream ->
          fun ~migrationTaskName ->
            fun () ->
              {
                nextToken;
                maxResults;
                progressUpdateStream;
                migrationTaskName
              }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStream)));
        ("MigrationTaskName",
          (Some (MigrationTaskName.to_value x.migrationTaskName)));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let migrationTaskName =
        MigrationTaskName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProgressUpdateStream") in
      make ?maxResults ?nextToken ~migrationTaskName ~progressUpdateStream ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let migrationTaskName =
        field_map_exn json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map_exn json__ "ProgressUpdateStream"
          ProgressUpdateStream.of_json in
      make ?maxResults ?nextToken ~migrationTaskName ~progressUpdateStream ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This is a paginated API that returns all the migration-task states for the specified MigrationTaskName and ProgressUpdateStream."]
module ListDiscoveredResourcesResult =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "If there are more discovered resources than the max result, return the next token to be passed to the next call as a bookmark of where to start from."];
      discoveredResourceList: DiscoveredResourceList.t option
        [@ocaml.doc
          "Returned list of discovered resources associated with the given MigrationTask."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?discoveredResourceList ->
        fun () -> { nextToken; discoveredResourceList }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("DiscoveredResourceList",
          (Option.map x.discoveredResourceList
             ~f:DiscoveredResourceList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let discoveredResourceList =
        (Option.map ~f:DiscoveredResourceList.of_xml)
          (Xml.child xml_arg0 "DiscoveredResourceList") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?discoveredResourceList ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let discoveredResourceList =
        field_map json__ "DiscoveredResourceList"
          DiscoveredResourceList.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      make ?discoveredResourceList ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists discovered resources associated with the given MigrationTask."]
module ListDiscoveredResourcesRequest =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t
        [@ocaml.doc "The name of the ProgressUpdateStream."];
      migrationTaskName: MigrationTaskName.t
        [@ocaml.doc
          "The name of the MigrationTask. Do not store personal data in this field."];
      nextToken: Token.t option
        [@ocaml.doc
          "If a NextToken was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in NextToken."];
      maxResults: MaxResultsResources.t option
        [@ocaml.doc "The maximum number of results returned per page."]}
    let context_ = "ListDiscoveredResourcesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~progressUpdateStream ->
          fun ~migrationTaskName ->
            fun () ->
              {
                nextToken;
                maxResults;
                progressUpdateStream;
                migrationTaskName
              }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStream)));
        ("MigrationTaskName",
          (Some (MigrationTaskName.to_value x.migrationTaskName)));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxResultsResources.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResultsResources.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let migrationTaskName =
        MigrationTaskName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProgressUpdateStream") in
      make ?maxResults ?nextToken ~migrationTaskName ~progressUpdateStream ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" MaxResultsResources.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let migrationTaskName =
        field_map_exn json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map_exn json__ "ProgressUpdateStream"
          ProgressUpdateStream.of_json in
      make ?maxResults ?nextToken ~migrationTaskName ~progressUpdateStream ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists discovered resources associated with the given MigrationTask."]
module ListCreatedArtifactsResult =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "If there are more created artifacts than the max result, return the next token to be passed to the next call as a bookmark of where to start from."];
      createdArtifactList: CreatedArtifactList.t option
        [@ocaml.doc
          "List of created artifacts up to the maximum number of results specified in the request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?createdArtifactList ->
        fun () -> { nextToken; createdArtifactList }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("CreatedArtifactList",
          (Option.map x.createdArtifactList ~f:CreatedArtifactList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdArtifactList =
        (Option.map ~f:CreatedArtifactList.of_xml)
          (Xml.child xml_arg0 "CreatedArtifactList") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?createdArtifactList ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdArtifactList =
        field_map json__ "CreatedArtifactList" CreatedArtifactList.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      make ?createdArtifactList ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the created artifacts attached to a given migration task in an update stream. This API has the following traits: Gets the list of the created artifacts while migration is taking place. Shows the artifacts created by the migration tool that was associated by the AssociateCreatedArtifact API. Lists created artifacts in a paginated interface."]
module ListCreatedArtifactsRequest =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t
        [@ocaml.doc "The name of the ProgressUpdateStream."];
      migrationTaskName: MigrationTaskName.t
        [@ocaml.doc
          "Unique identifier that references the migration task. Do not store personal data in this field."];
      nextToken: Token.t option
        [@ocaml.doc
          "If a NextToken was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in NextToken."];
      maxResults: MaxResultsCreatedArtifacts.t option
        [@ocaml.doc "Maximum number of results to be returned per page."]}
    let context_ = "ListCreatedArtifactsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~progressUpdateStream ->
          fun ~migrationTaskName ->
            fun () ->
              {
                nextToken;
                maxResults;
                progressUpdateStream;
                migrationTaskName
              }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStream)));
        ("MigrationTaskName",
          (Some (MigrationTaskName.to_value x.migrationTaskName)));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxResultsCreatedArtifacts.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResultsCreatedArtifacts.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let migrationTaskName =
        MigrationTaskName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProgressUpdateStream") in
      make ?maxResults ?nextToken ~migrationTaskName ~progressUpdateStream ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" MaxResultsCreatedArtifacts.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let migrationTaskName =
        field_map_exn json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map_exn json__ "ProgressUpdateStream"
          ProgressUpdateStream.of_json in
      make ?maxResults ?nextToken ~migrationTaskName ~progressUpdateStream ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the created artifacts attached to a given migration task in an update stream. This API has the following traits: Gets the list of the created artifacts while migration is taking place. Shows the artifacts created by the migration tool that was associated by the AssociateCreatedArtifact API. Lists created artifacts in a paginated interface."]
module ListApplicationStatesResult =
  struct
    type nonrec t =
      {
      applicationStateList: ApplicationStateList.t option
        [@ocaml.doc
          "A list of Applications that exist in Application Discovery Service."];
      nextToken: Token.t option
        [@ocaml.doc
          "If a NextToken was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in NextToken."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationStateList =
      fun ?nextToken -> fun () -> { applicationStateList; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("ApplicationStateList",
           (Option.map x.applicationStateList
              ~f:ApplicationStateList.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 applicationStateList =
        (Option.map ~f:ApplicationStateList.of_xml)
          (Xml.child xml_arg0 "ApplicationStateList") in
      make ?nextToken ?applicationStateList ()
    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 applicationStateList =
        field_map json__ "ApplicationStateList" ApplicationStateList.of_json in
      make ?nextToken ?applicationStateList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the migration statuses for your applications. If you use the optional ApplicationIds parameter, only the migration statuses for those applications will be returned."]
module ListApplicationStatesRequest =
  struct
    type nonrec t =
      {
      applicationIds: ApplicationIds.t option
        [@ocaml.doc
          "The configurationIds from the Application Discovery Service that uniquely identifies your applications."];
      nextToken: Token.t option
        [@ocaml.doc
          "If a NextToken was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in NextToken."];
      maxResults: MaxResults.t option
        [@ocaml.doc "Maximum number of results to be returned per page."]}
    let make ?applicationIds =
      fun ?nextToken ->
        fun ?maxResults ->
          fun () -> { applicationIds; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("ApplicationIds",
           (Option.map x.applicationIds ~f:ApplicationIds.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let applicationIds =
        (Option.map ~f:ApplicationIds.of_xml)
          (Xml.child xml_arg0 "ApplicationIds") in
      make ?maxResults ?nextToken ?applicationIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let applicationIds =
        field_map json__ "ApplicationIds" ApplicationIds.of_json in
      make ?maxResults ?nextToken ?applicationIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the migration statuses for your applications. If you use the optional ApplicationIds parameter, only the migration statuses for those applications will be returned."]
module ImportMigrationTaskResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DryRunOperation of DryRunOperation.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedOperation of UnauthorizedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DryRunOperation e ->
          `Assoc
            [("error", (`String "DryRunOperation"));
            ("details", (DryRunOperation.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedOperation e ->
          `Assoc
            [("error", (`String "UnauthorizedOperation"));
            ("details", (UnauthorizedOperation.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
       "Registers a new migration task which represents a server, database, etc., being migrated to AWS by a migration tool. This API is a prerequisite to calling the NotifyMigrationTaskState API as the migration tool must first register the migration task with Migration Hub."]
module ImportMigrationTaskRequest =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t
        [@ocaml.doc "The name of the ProgressUpdateStream. >"];
      migrationTaskName: MigrationTaskName.t
        [@ocaml.doc
          "Unique identifier that references the migration task. Do not store personal data in this field."];
      dryRun: DryRun.t option
        [@ocaml.doc
          "Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call."]}
    let context_ = "ImportMigrationTaskRequest"
    let make ?dryRun =
      fun ~progressUpdateStream ->
        fun ~migrationTaskName ->
          fun () -> { dryRun; progressUpdateStream; migrationTaskName }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStream)));
        ("MigrationTaskName",
          (Some (MigrationTaskName.to_value x.migrationTaskName)));
        ("DryRun", (Option.map x.dryRun ~f:DryRun.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      let migrationTaskName =
        MigrationTaskName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProgressUpdateStream") in
      make ?dryRun ~migrationTaskName ~progressUpdateStream ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      let migrationTaskName =
        field_map_exn json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map_exn json__ "ProgressUpdateStream"
          ProgressUpdateStream.of_json in
      make ?dryRun ~migrationTaskName ~progressUpdateStream ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Registers a new migration task which represents a server, database, etc., being migrated to AWS by a migration tool. This API is a prerequisite to calling the NotifyMigrationTaskState API as the migration tool must first register the migration task with Migration Hub."]
module DisassociateSourceResourceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DryRunOperation of DryRunOperation.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedOperation of UnauthorizedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DryRunOperation e ->
          `Assoc
            [("error", (`String "DryRunOperation"));
            ("details", (DryRunOperation.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedOperation e ->
          `Assoc
            [("error", (`String "UnauthorizedOperation"));
            ("details", (UnauthorizedOperation.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association between a source resource and a migration task."]
module DisassociateSourceResourceRequest =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t
        [@ocaml.doc
          "The name of the progress-update stream, which is used for access control as well as a namespace for migration-task names that is implicitly linked to your AWS account. The progress-update stream must uniquely identify the migration tool as it is used for all updates made by the tool; however, it does not need to be unique for each AWS account because it is scoped to the AWS account."];
      migrationTaskName: MigrationTaskName.t
        [@ocaml.doc
          "A unique identifier that references the migration task. Do not include sensitive data in this field."];
      sourceResourceName: SourceResourceName.t
        [@ocaml.doc "The name that was specified for the source resource."];
      dryRun: DryRun.t option
        [@ocaml.doc
          "This is an optional parameter that you can use to test whether the call will succeed. Set this parameter to true to verify that you have the permissions that are required to make the call, and that you have specified the other parameters in the call correctly."]}
    let context_ = "DisassociateSourceResourceRequest"
    let make ?dryRun =
      fun ~progressUpdateStream ->
        fun ~migrationTaskName ->
          fun ~sourceResourceName ->
            fun () ->
              {
                dryRun;
                progressUpdateStream;
                migrationTaskName;
                sourceResourceName
              }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStream)));
        ("MigrationTaskName",
          (Some (MigrationTaskName.to_value x.migrationTaskName)));
        ("SourceResourceName",
          (Some (SourceResourceName.to_value x.sourceResourceName)));
        ("DryRun", (Option.map x.dryRun ~f:DryRun.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      let sourceResourceName =
        SourceResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceResourceName") in
      let migrationTaskName =
        MigrationTaskName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProgressUpdateStream") in
      make ?dryRun ~sourceResourceName ~migrationTaskName
        ~progressUpdateStream ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      let sourceResourceName =
        field_map_exn json__ "SourceResourceName" SourceResourceName.of_json in
      let migrationTaskName =
        field_map_exn json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map_exn json__ "ProgressUpdateStream"
          ProgressUpdateStream.of_json in
      make ?dryRun ~sourceResourceName ~migrationTaskName
        ~progressUpdateStream ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association between a source resource and a migration task."]
module DisassociateDiscoveredResourceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DryRunOperation of DryRunOperation.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedOperation of UnauthorizedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DryRunOperation e ->
          `Assoc
            [("error", (`String "DryRunOperation"));
            ("details", (DryRunOperation.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedOperation e ->
          `Assoc
            [("error", (`String "UnauthorizedOperation"));
            ("details", (UnauthorizedOperation.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
       "Disassociate an Application Discovery Service discovered resource from a migration task."]
module DisassociateDiscoveredResourceRequest =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t
        [@ocaml.doc "The name of the ProgressUpdateStream."];
      migrationTaskName: MigrationTaskName.t
        [@ocaml.doc
          "The identifier given to the MigrationTask. Do not store personal data in this field."];
      configurationId: ConfigurationId.t
        [@ocaml.doc
          "ConfigurationId of the Application Discovery Service resource to be disassociated."];
      dryRun: DryRun.t option
        [@ocaml.doc
          "Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call."]}
    let context_ = "DisassociateDiscoveredResourceRequest"
    let make ?dryRun =
      fun ~progressUpdateStream ->
        fun ~migrationTaskName ->
          fun ~configurationId ->
            fun () ->
              {
                dryRun;
                progressUpdateStream;
                migrationTaskName;
                configurationId
              }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStream)));
        ("MigrationTaskName",
          (Some (MigrationTaskName.to_value x.migrationTaskName)));
        ("ConfigurationId",
          (Some (ConfigurationId.to_value x.configurationId)));
        ("DryRun", (Option.map x.dryRun ~f:DryRun.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      let configurationId =
        ConfigurationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ConfigurationId") in
      let migrationTaskName =
        MigrationTaskName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProgressUpdateStream") in
      make ?dryRun ~configurationId ~migrationTaskName ~progressUpdateStream
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      let configurationId =
        field_map_exn json__ "ConfigurationId" ConfigurationId.of_json in
      let migrationTaskName =
        field_map_exn json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map_exn json__ "ProgressUpdateStream"
          ProgressUpdateStream.of_json in
      make ?dryRun ~configurationId ~migrationTaskName ~progressUpdateStream
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociate an Application Discovery Service discovered resource from a migration task."]
module DisassociateCreatedArtifactResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DryRunOperation of DryRunOperation.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedOperation of UnauthorizedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DryRunOperation e ->
          `Assoc
            [("error", (`String "DryRunOperation"));
            ("details", (DryRunOperation.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedOperation e ->
          `Assoc
            [("error", (`String "UnauthorizedOperation"));
            ("details", (UnauthorizedOperation.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a created artifact of an AWS resource with a migration task performed by a migration tool that was previously associated. This API has the following traits: A migration user can call the DisassociateCreatedArtifacts operation to disassociate a created AWS Artifact from a migration task. The created artifact name must be provided in ARN (Amazon Resource Name) format which will contain information about type and region; for example: arn:aws:ec2:us-east-1:488216288981:image/ami-6d0ba87b. Examples of the AWS resource behind the created artifact are, AMI's, EC2 instance, or RDS instance, etc."]
module DisassociateCreatedArtifactRequest =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t
        [@ocaml.doc "The name of the ProgressUpdateStream."];
      migrationTaskName: MigrationTaskName.t
        [@ocaml.doc
          "Unique identifier that references the migration task to be disassociated with the artifact. Do not store personal data in this field."];
      createdArtifactName: CreatedArtifactName.t
        [@ocaml.doc
          "An ARN of the AWS resource related to the migration (e.g., AMI, EC2 instance, RDS instance, etc.)"];
      dryRun: DryRun.t option
        [@ocaml.doc
          "Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call."]}
    let context_ = "DisassociateCreatedArtifactRequest"
    let make ?dryRun =
      fun ~progressUpdateStream ->
        fun ~migrationTaskName ->
          fun ~createdArtifactName ->
            fun () ->
              {
                dryRun;
                progressUpdateStream;
                migrationTaskName;
                createdArtifactName
              }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStream)));
        ("MigrationTaskName",
          (Some (MigrationTaskName.to_value x.migrationTaskName)));
        ("CreatedArtifactName",
          (Some (CreatedArtifactName.to_value x.createdArtifactName)));
        ("DryRun", (Option.map x.dryRun ~f:DryRun.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      let createdArtifactName =
        CreatedArtifactName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CreatedArtifactName") in
      let migrationTaskName =
        MigrationTaskName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProgressUpdateStream") in
      make ?dryRun ~createdArtifactName ~migrationTaskName
        ~progressUpdateStream ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      let createdArtifactName =
        field_map_exn json__ "CreatedArtifactName"
          CreatedArtifactName.of_json in
      let migrationTaskName =
        field_map_exn json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map_exn json__ "ProgressUpdateStream"
          ProgressUpdateStream.of_json in
      make ?dryRun ~createdArtifactName ~migrationTaskName
        ~progressUpdateStream ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a created artifact of an AWS resource with a migration task performed by a migration tool that was previously associated. This API has the following traits: A migration user can call the DisassociateCreatedArtifacts operation to disassociate a created AWS Artifact from a migration task. The created artifact name must be provided in ARN (Amazon Resource Name) format which will contain information about type and region; for example: arn:aws:ec2:us-east-1:488216288981:image/ami-6d0ba87b. Examples of the AWS resource behind the created artifact are, AMI's, EC2 instance, or RDS instance, etc."]
module DescribeMigrationTaskResult =
  struct
    type nonrec t =
      {
      migrationTask: MigrationTask.t option
        [@ocaml.doc
          "Object encapsulating information about the migration task."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?migrationTask = fun () -> { migrationTask }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("MigrationTask",
           (Option.map x.migrationTask ~f:MigrationTask.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let migrationTask =
        (Option.map ~f:MigrationTask.of_xml)
          (Xml.child xml_arg0 "MigrationTask") in
      make ?migrationTask ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let migrationTask =
        field_map json__ "MigrationTask" MigrationTask.of_json in
      make ?migrationTask ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of all attributes associated with a specific migration task."]
module DescribeMigrationTaskRequest =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t
        [@ocaml.doc "The name of the ProgressUpdateStream."];
      migrationTaskName: MigrationTaskName.t
        [@ocaml.doc
          "The identifier given to the MigrationTask. Do not store personal data in this field."]}
    let context_ = "DescribeMigrationTaskRequest"
    let make ~progressUpdateStream =
      fun ~migrationTaskName ->
        fun () -> { progressUpdateStream; migrationTaskName }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStream)));
        ("MigrationTaskName",
          (Some (MigrationTaskName.to_value x.migrationTaskName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let migrationTaskName =
        MigrationTaskName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProgressUpdateStream") in
      make ~migrationTaskName ~progressUpdateStream ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let migrationTaskName =
        field_map_exn json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map_exn json__ "ProgressUpdateStream"
          ProgressUpdateStream.of_json in
      make ~migrationTaskName ~progressUpdateStream ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of all attributes associated with a specific migration task."]
module DescribeApplicationStateResult =
  struct
    type nonrec t =
      {
      applicationStatus: ApplicationStatus.t option
        [@ocaml.doc
          "Status of the application - Not Started, In-Progress, Complete."];
      lastUpdatedTime: UpdateDateTime.t option
        [@ocaml.doc
          "The timestamp when the application status was last updated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `PolicyErrorException of PolicyErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationStatus =
      fun ?lastUpdatedTime ->
        fun () -> { applicationStatus; lastUpdatedTime }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "PolicyErrorException" ->
          `PolicyErrorException (PolicyErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "PolicyErrorException" ->
          `PolicyErrorException (PolicyErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `PolicyErrorException e ->
          `Assoc
            [("error", (`String "PolicyErrorException"));
            ("details", (PolicyErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("ApplicationStatus",
           (Option.map x.applicationStatus ~f:ApplicationStatus.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:UpdateDateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTime =
        (Option.map ~f:UpdateDateTime.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let applicationStatus =
        (Option.map ~f:ApplicationStatus.of_xml)
          (Xml.child xml_arg0 "ApplicationStatus") in
      make ?lastUpdatedTime ?applicationStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" UpdateDateTime.of_json in
      let applicationStatus =
        field_map json__ "ApplicationStatus" ApplicationStatus.of_json in
      make ?lastUpdatedTime ?applicationStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the migration status of an application."]
module DescribeApplicationStateRequest =
  struct
    type nonrec t =
      {
      applicationId: ApplicationId.t
        [@ocaml.doc
          "The configurationId in Application Discovery Service that uniquely identifies the grouped application."]}
    let context_ = "DescribeApplicationStateRequest"
    let make ~applicationId = fun () -> { applicationId }
    let to_value x =
      structure_to_value
        [("ApplicationId", (Some (ApplicationId.to_value x.applicationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationId =
        ApplicationId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationId") in
      make ~applicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationId =
        field_map_exn json__ "ApplicationId" ApplicationId.of_json in
      make ~applicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Gets the migration status of an application."]
module DeleteProgressUpdateStreamResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DryRunOperation of DryRunOperation.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedOperation of UnauthorizedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DryRunOperation e ->
          `Assoc
            [("error", (`String "DryRunOperation"));
            ("details", (DryRunOperation.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedOperation e ->
          `Assoc
            [("error", (`String "UnauthorizedOperation"));
            ("details", (UnauthorizedOperation.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 progress update stream, including all of its tasks, which was previously created as an AWS resource used for access control. This API has the following traits: The only parameter needed for DeleteProgressUpdateStream is the stream name (same as a CreateProgressUpdateStream call). The call will return, and a background process will asynchronously delete the stream and all of its resources (tasks, associated resources, resource attributes, created artifacts). If the stream takes time to be deleted, it might still show up on a ListProgressUpdateStreams call. CreateProgressUpdateStream, ImportMigrationTask, NotifyMigrationTaskState, and all Associate\\[*\\] APIs related to the tasks belonging to the stream will throw \"InvalidInputException\" if the stream of the same name is in the process of being deleted. Once the stream and all of its resources are deleted, CreateProgressUpdateStream for a stream of the same name will succeed, and that stream will be an entirely new logical resource (without any resources associated with the old stream)."]
module DeleteProgressUpdateStreamRequest =
  struct
    type nonrec t =
      {
      progressUpdateStreamName: ProgressUpdateStream.t
        [@ocaml.doc
          "The name of the ProgressUpdateStream. Do not store personal data in this field."];
      dryRun: DryRun.t option
        [@ocaml.doc
          "Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call."]}
    let context_ = "DeleteProgressUpdateStreamRequest"
    let make ?dryRun =
      fun ~progressUpdateStreamName ->
        fun () -> { dryRun; progressUpdateStreamName }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStreamName",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStreamName)));
        ("DryRun", (Option.map x.dryRun ~f:DryRun.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      let progressUpdateStreamName =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ProgressUpdateStreamName") in
      make ?dryRun ~progressUpdateStreamName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      let progressUpdateStreamName =
        field_map_exn json__ "ProgressUpdateStreamName"
          ProgressUpdateStream.of_json in
      make ?dryRun ~progressUpdateStreamName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a progress update stream, including all of its tasks, which was previously created as an AWS resource used for access control. This API has the following traits: The only parameter needed for DeleteProgressUpdateStream is the stream name (same as a CreateProgressUpdateStream call). The call will return, and a background process will asynchronously delete the stream and all of its resources (tasks, associated resources, resource attributes, created artifacts). If the stream takes time to be deleted, it might still show up on a ListProgressUpdateStreams call. CreateProgressUpdateStream, ImportMigrationTask, NotifyMigrationTaskState, and all Associate\\[*\\] APIs related to the tasks belonging to the stream will throw \"InvalidInputException\" if the stream of the same name is in the process of being deleted. Once the stream and all of its resources are deleted, CreateProgressUpdateStream for a stream of the same name will succeed, and that stream will be an entirely new logical resource (without any resources associated with the old stream)."]
module CreateProgressUpdateStreamResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DryRunOperation of DryRunOperation.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedOperation of UnauthorizedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DryRunOperation e ->
          `Assoc
            [("error", (`String "DryRunOperation"));
            ("details", (DryRunOperation.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedOperation e ->
          `Assoc
            [("error", (`String "UnauthorizedOperation"));
            ("details", (UnauthorizedOperation.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a progress update stream which is an AWS resource used for access control as well as a namespace for migration task names that is implicitly linked to your AWS account. It must uniquely identify the migration tool as it is used for all updates made by the tool; however, it does not need to be unique for each AWS account because it is scoped to the AWS account."]
module CreateProgressUpdateStreamRequest =
  struct
    type nonrec t =
      {
      progressUpdateStreamName: ProgressUpdateStream.t
        [@ocaml.doc
          "The name of the ProgressUpdateStream. Do not store personal data in this field."];
      dryRun: DryRun.t option
        [@ocaml.doc
          "Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call."]}
    let context_ = "CreateProgressUpdateStreamRequest"
    let make ?dryRun =
      fun ~progressUpdateStreamName ->
        fun () -> { dryRun; progressUpdateStreamName }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStreamName",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStreamName)));
        ("DryRun", (Option.map x.dryRun ~f:DryRun.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      let progressUpdateStreamName =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ProgressUpdateStreamName") in
      make ?dryRun ~progressUpdateStreamName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      let progressUpdateStreamName =
        field_map_exn json__ "ProgressUpdateStreamName"
          ProgressUpdateStream.of_json in
      make ?dryRun ~progressUpdateStreamName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a progress update stream which is an AWS resource used for access control as well as a namespace for migration task names that is implicitly linked to your AWS account. It must uniquely identify the migration tool as it is used for all updates made by the tool; however, it does not need to be unique for each AWS account because it is scoped to the AWS account."]
module AssociateSourceResourceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DryRunOperation of DryRunOperation.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedOperation of UnauthorizedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DryRunOperation e ->
          `Assoc
            [("error", (`String "DryRunOperation"));
            ("details", (DryRunOperation.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedOperation e ->
          `Assoc
            [("error", (`String "UnauthorizedOperation"));
            ("details", (UnauthorizedOperation.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a source resource with a migration task. For example, the source resource can be a source server, an application, or a migration wave."]
module AssociateSourceResourceRequest =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t
        [@ocaml.doc
          "The name of the progress-update stream, which is used for access control as well as a namespace for migration-task names that is implicitly linked to your AWS account. The progress-update stream must uniquely identify the migration tool as it is used for all updates made by the tool; however, it does not need to be unique for each AWS account because it is scoped to the AWS account."];
      migrationTaskName: MigrationTaskName.t
        [@ocaml.doc
          "A unique identifier that references the migration task. Do not include sensitive data in this field."];
      sourceResource: SourceResource.t
        [@ocaml.doc "The source resource that you want to associate."];
      dryRun: DryRun.t option
        [@ocaml.doc
          "This is an optional parameter that you can use to test whether the call will succeed. Set this parameter to true to verify that you have the permissions that are required to make the call, and that you have specified the other parameters in the call correctly."]}
    let context_ = "AssociateSourceResourceRequest"
    let make ?dryRun =
      fun ~progressUpdateStream ->
        fun ~migrationTaskName ->
          fun ~sourceResource ->
            fun () ->
              {
                dryRun;
                progressUpdateStream;
                migrationTaskName;
                sourceResource
              }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStream)));
        ("MigrationTaskName",
          (Some (MigrationTaskName.to_value x.migrationTaskName)));
        ("SourceResource", (Some (SourceResource.to_value x.sourceResource)));
        ("DryRun", (Option.map x.dryRun ~f:DryRun.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      let sourceResource =
        SourceResource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceResource") in
      let migrationTaskName =
        MigrationTaskName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProgressUpdateStream") in
      make ?dryRun ~sourceResource ~migrationTaskName ~progressUpdateStream
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      let sourceResource =
        field_map_exn json__ "SourceResource" SourceResource.of_json in
      let migrationTaskName =
        field_map_exn json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map_exn json__ "ProgressUpdateStream"
          ProgressUpdateStream.of_json in
      make ?dryRun ~sourceResource ~migrationTaskName ~progressUpdateStream
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a source resource with a migration task. For example, the source resource can be a source server, an application, or a migration wave."]
module AssociateDiscoveredResourceResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DryRunOperation of DryRunOperation.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `PolicyErrorException of PolicyErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedOperation of UnauthorizedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "PolicyErrorException" ->
          `PolicyErrorException (PolicyErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "PolicyErrorException" ->
          `PolicyErrorException (PolicyErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DryRunOperation e ->
          `Assoc
            [("error", (`String "DryRunOperation"));
            ("details", (DryRunOperation.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `PolicyErrorException e ->
          `Assoc
            [("error", (`String "PolicyErrorException"));
            ("details", (PolicyErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedOperation e ->
          `Assoc
            [("error", (`String "UnauthorizedOperation"));
            ("details", (UnauthorizedOperation.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a discovered resource ID from Application Discovery Service with a migration task."]
module AssociateDiscoveredResourceRequest =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t
        [@ocaml.doc "The name of the ProgressUpdateStream."];
      migrationTaskName: MigrationTaskName.t
        [@ocaml.doc
          "The identifier given to the MigrationTask. Do not store personal data in this field."];
      discoveredResource: DiscoveredResource.t
        [@ocaml.doc "Object representing a Resource."];
      dryRun: DryRun.t option
        [@ocaml.doc
          "Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call."]}
    let context_ = "AssociateDiscoveredResourceRequest"
    let make ?dryRun =
      fun ~progressUpdateStream ->
        fun ~migrationTaskName ->
          fun ~discoveredResource ->
            fun () ->
              {
                dryRun;
                progressUpdateStream;
                migrationTaskName;
                discoveredResource
              }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStream)));
        ("MigrationTaskName",
          (Some (MigrationTaskName.to_value x.migrationTaskName)));
        ("DiscoveredResource",
          (Some (DiscoveredResource.to_value x.discoveredResource)));
        ("DryRun", (Option.map x.dryRun ~f:DryRun.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      let discoveredResource =
        DiscoveredResource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DiscoveredResource") in
      let migrationTaskName =
        MigrationTaskName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProgressUpdateStream") in
      make ?dryRun ~discoveredResource ~migrationTaskName
        ~progressUpdateStream ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      let discoveredResource =
        field_map_exn json__ "DiscoveredResource" DiscoveredResource.of_json in
      let migrationTaskName =
        field_map_exn json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map_exn json__ "ProgressUpdateStream"
          ProgressUpdateStream.of_json in
      make ?dryRun ~discoveredResource ~migrationTaskName
        ~progressUpdateStream ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a discovered resource ID from Application Discovery Service with a migration task."]
module AssociateCreatedArtifactResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DryRunOperation of DryRunOperation.t 
      | `HomeRegionNotSetException of HomeRegionNotSetException.t 
      | `InternalServerError of InternalServerError.t 
      | `InvalidInputException of InvalidInputException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedOperation of UnauthorizedOperation.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_json json)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DryRunOperation" -> `DryRunOperation (DryRunOperation.of_xml xml)
      | "HomeRegionNotSetException" ->
          `HomeRegionNotSetException (HomeRegionNotSetException.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidInputException" ->
          `InvalidInputException (InvalidInputException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedOperation" ->
          `UnauthorizedOperation (UnauthorizedOperation.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DryRunOperation e ->
          `Assoc
            [("error", (`String "DryRunOperation"));
            ("details", (DryRunOperation.to_json e))]
      | `HomeRegionNotSetException e ->
          `Assoc
            [("error", (`String "HomeRegionNotSetException"));
            ("details", (HomeRegionNotSetException.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidInputException e ->
          `Assoc
            [("error", (`String "InvalidInputException"));
            ("details", (InvalidInputException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedOperation e ->
          `Assoc
            [("error", (`String "UnauthorizedOperation"));
            ("details", (UnauthorizedOperation.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a created artifact of an AWS cloud resource, the target receiving the migration, with the migration task performed by a migration tool. This API has the following traits: Migration tools can call the AssociateCreatedArtifact operation to indicate which AWS artifact is associated with a migration task. The created artifact name must be provided in ARN (Amazon Resource Name) format which will contain information about type and region; for example: arn:aws:ec2:us-east-1:488216288981:image/ami-6d0ba87b. Examples of the AWS resource behind the created artifact are, AMI's, EC2 instance, or DMS endpoint, etc."]
module AssociateCreatedArtifactRequest =
  struct
    type nonrec t =
      {
      progressUpdateStream: ProgressUpdateStream.t
        [@ocaml.doc "The name of the ProgressUpdateStream."];
      migrationTaskName: MigrationTaskName.t
        [@ocaml.doc
          "Unique identifier that references the migration task. Do not store personal data in this field."];
      createdArtifact: CreatedArtifact.t
        [@ocaml.doc
          "An ARN of the AWS resource related to the migration (e.g., AMI, EC2 instance, RDS instance, etc.)"];
      dryRun: DryRun.t option
        [@ocaml.doc
          "Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call."]}
    let context_ = "AssociateCreatedArtifactRequest"
    let make ?dryRun =
      fun ~progressUpdateStream ->
        fun ~migrationTaskName ->
          fun ~createdArtifact ->
            fun () ->
              {
                dryRun;
                progressUpdateStream;
                migrationTaskName;
                createdArtifact
              }
    let to_value x =
      structure_to_value
        [("ProgressUpdateStream",
           (Some (ProgressUpdateStream.to_value x.progressUpdateStream)));
        ("MigrationTaskName",
          (Some (MigrationTaskName.to_value x.migrationTaskName)));
        ("CreatedArtifact",
          (Some (CreatedArtifact.to_value x.createdArtifact)));
        ("DryRun", (Option.map x.dryRun ~f:DryRun.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dryRun =
        (Option.map ~f:DryRun.of_xml) (Xml.child xml_arg0 "DryRun") in
      let createdArtifact =
        CreatedArtifact.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CreatedArtifact") in
      let migrationTaskName =
        MigrationTaskName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MigrationTaskName") in
      let progressUpdateStream =
        ProgressUpdateStream.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProgressUpdateStream") in
      make ?dryRun ~createdArtifact ~migrationTaskName ~progressUpdateStream
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dryRun = field_map json__ "DryRun" DryRun.of_json in
      let createdArtifact =
        field_map_exn json__ "CreatedArtifact" CreatedArtifact.of_json in
      let migrationTaskName =
        field_map_exn json__ "MigrationTaskName" MigrationTaskName.of_json in
      let progressUpdateStream =
        field_map_exn json__ "ProgressUpdateStream"
          ProgressUpdateStream.of_json in
      make ?dryRun ~createdArtifact ~migrationTaskName ~progressUpdateStream
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a created artifact of an AWS cloud resource, the target receiving the migration, with the migration task performed by a migration tool. This API has the following traits: Migration tools can call the AssociateCreatedArtifact operation to indicate which AWS artifact is associated with a migration task. The created artifact name must be provided in ARN (Amazon Resource Name) format which will contain information about type and region; for example: arn:aws:ec2:us-east-1:488216288981:image/ami-6d0ba87b. Examples of the AWS resource behind the created artifact are, AMI's, EC2 instance, or DMS endpoint, etc."]