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.launch_wizard
let apiVersion = "2018-05-10"
let endpointPrefix = "launchwizard"
let serviceFullName = "AWS Launch Wizard"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module ValueString =
  struct
    type nonrec t = string
    let context_ = "ValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1500) >>=
             (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:"ValueString" j
    let to_json = simple_to_json to_value
  end
module DeploymentConditionalField =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the deployment condition."];
      value: String_.t option [@ocaml.doc "The value of the condition."];
      comparator: String_.t option
        [@ocaml.doc
          "The comparator of the condition. Valid values: Equal | NotEqual"]}
    let make ?name =
      fun ?value -> fun ?comparator -> fun () -> { name; value; comparator }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("value", (Option.map x.value ~f:String_.to_value));
        ("comparator", (Option.map x.comparator ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comparator =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "comparator") in
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "value") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?comparator ?value ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comparator = field_map json__ "comparator" String_.of_json in
      let value = field_map json__ "value" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?comparator ?value ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A field that details a condition of the specifications for a deployment."]
module DeploymentFilterValuesMemberString =
  struct
    type nonrec t = string
    let context_ = "DeploymentFilterValuesMemberString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:".*(^(([A-Za-z])+([0-9A-Za-z\\-\\_])+)$).*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"DeploymentFilterValuesMemberString" j
    let to_json = simple_to_json to_value
  end
module DeploymentPatternVersionFilterValuesMemberString =
  struct
    type nonrec t = string
    let context_ = "DeploymentPatternVersionFilterValuesMemberString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(0|[1-9]\\d*)\\.(0|[1-9]\\d*)\\.(0|[1-9]\\d*)")));
        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:"DeploymentPatternVersionFilterValuesMemberString"
        j
    let to_json = simple_to_json to_value
  end
module AllowedValues =
  struct
    type nonrec t = ValueString.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:ValueString.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:ValueString.of_xml)
    let of_json j =
      list_of_json ~kind:"AllowedValues" ~of_json:ValueString.of_json j
    let to_json v = composed_to_json to_value v
  end
module SpecificationsConditionalData =
  struct
    type nonrec t = DeploymentConditionalField.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DeploymentConditionalField.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:DeploymentConditionalField.of_xml)
    let of_json j =
      list_of_json ~kind:"SpecificationsConditionalData"
        ~of_json:DeploymentConditionalField.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkloadName =
  struct
    type nonrec t = string
    let context_ = "WorkloadName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[A-Za-z][a-zA-Z0-9-_]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WorkloadName" j
    let to_json = simple_to_json to_value
  end
module WorkloadStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | INACTIVE 
      | DISABLED 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | DISABLED -> "DISABLED"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | "DISABLED" -> DISABLED
      | "DELETED" -> DELETED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration WorkloadStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WorkloadStatus" j)
    let to_json = simple_to_json to_value
  end
module DeploymentPatternName =
  struct
    type nonrec t = string
    let context_ = "DeploymentPatternName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[A-Za-z0-9][a-zA-Z0-9-]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DeploymentPatternName" j
    let to_json = simple_to_json to_value
  end
module DeploymentPatternVersionName =
  struct
    type nonrec t = string
    let context_ = "DeploymentPatternVersionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(([A-Za-z0-9][a-zA-Z0-9-]*)|(\\d+\\.\\d+\\.\\d+))")));
        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:"DeploymentPatternVersionName" j
    let to_json = simple_to_json to_value
  end
module WorkloadDeploymentPatternStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | INACTIVE 
      | DISABLED 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | DISABLED -> "DISABLED"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | "DISABLED" -> DISABLED
      | "DELETED" -> DELETED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration WorkloadDeploymentPatternStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"WorkloadDeploymentPatternStatus" j)
    let to_json = simple_to_json to_value
  end
module WorkloadVersionName =
  struct
    type nonrec t = string
    let context_ = "WorkloadVersionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(([A-Za-z0-9][a-zA-Z0-9-]*)|(\\d+\\.\\d+\\.\\d+))")));
        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:"WorkloadVersionName" j
    let to_json = simple_to_json to_value
  end
module DeploymentId =
  struct
    type nonrec t = string
    let context_ = "DeploymentId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DeploymentId" j
    let to_json = simple_to_json to_value
  end
module DeploymentStatus =
  struct
    type nonrec t =
      | COMPLETED 
      | CREATING 
      | DELETE_IN_PROGRESS 
      | DELETE_INITIATING 
      | DELETE_FAILED 
      | DELETED 
      | FAILED 
      | IN_PROGRESS 
      | VALIDATING 
      | UPDATE_IN_PROGRESS 
      | UPDATE_COMPLETED 
      | UPDATE_FAILED 
      | UPDATE_ROLLBACK_COMPLETED 
      | UPDATE_ROLLBACK_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLETED -> "COMPLETED"
      | CREATING -> "CREATING"
      | DELETE_IN_PROGRESS -> "DELETE_IN_PROGRESS"
      | DELETE_INITIATING -> "DELETE_INITIATING"
      | DELETE_FAILED -> "DELETE_FAILED"
      | DELETED -> "DELETED"
      | FAILED -> "FAILED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | VALIDATING -> "VALIDATING"
      | UPDATE_IN_PROGRESS -> "UPDATE_IN_PROGRESS"
      | UPDATE_COMPLETED -> "UPDATE_COMPLETED"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | UPDATE_ROLLBACK_COMPLETED -> "UPDATE_ROLLBACK_COMPLETED"
      | UPDATE_ROLLBACK_FAILED -> "UPDATE_ROLLBACK_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLETED" -> COMPLETED
      | "CREATING" -> CREATING
      | "DELETE_IN_PROGRESS" -> DELETE_IN_PROGRESS
      | "DELETE_INITIATING" -> DELETE_INITIATING
      | "DELETE_FAILED" -> DELETE_FAILED
      | "DELETED" -> DELETED
      | "FAILED" -> FAILED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "VALIDATING" -> VALIDATING
      | "UPDATE_IN_PROGRESS" -> UPDATE_IN_PROGRESS
      | "UPDATE_COMPLETED" -> UPDATE_COMPLETED
      | "UPDATE_FAILED" -> UPDATE_FAILED
      | "UPDATE_ROLLBACK_COMPLETED" -> UPDATE_ROLLBACK_COMPLETED
      | "UPDATE_ROLLBACK_FAILED" -> UPDATE_ROLLBACK_FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration DeploymentStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeploymentStatus" j)
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module DeploymentFilterKey =
  struct
    type nonrec t =
      | WORKLOAD_NAME 
      | DEPLOYMENT_STATUS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | WORKLOAD_NAME -> "WORKLOAD_NAME"
      | DEPLOYMENT_STATUS -> "DEPLOYMENT_STATUS"
      | Non_static_id s -> s
    let of_string =
      function
      | "WORKLOAD_NAME" -> WORKLOAD_NAME
      | "DEPLOYMENT_STATUS" -> DEPLOYMENT_STATUS
      | 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 DeploymentFilterKey" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeploymentFilterKey" j)
    let to_json = simple_to_json to_value
  end
module DeploymentFilterValues =
  struct
    type nonrec t = DeploymentFilterValuesMemberString.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:DeploymentFilterValuesMemberString.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:DeploymentFilterValuesMemberString.of_xml)
    let of_json j =
      list_of_json ~kind:"DeploymentFilterValues"
        ~of_json:DeploymentFilterValuesMemberString.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeploymentPatternVersionFilterKey =
  struct
    type nonrec t =
      | UpdateFromVersion 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UpdateFromVersion -> "updateFromVersion"
      | Non_static_id s -> s
    let of_string =
      function
      | "updateFromVersion" -> UpdateFromVersion
      | 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 DeploymentPatternVersionFilterKey"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DeploymentPatternVersionFilterKey" j)
    let to_json = simple_to_json to_value
  end
module DeploymentPatternVersionFilterValues =
  struct
    type nonrec t = DeploymentPatternVersionFilterValuesMemberString.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:DeploymentPatternVersionFilterValuesMemberString.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:DeploymentPatternVersionFilterValuesMemberString.of_xml)
    let of_json j =
      list_of_json ~kind:"DeploymentPatternVersionFilterValues"
        ~of_json:DeploymentPatternVersionFilterValuesMemberString.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventStatus =
  struct
    type nonrec t =
      | CANCELED 
      | CANCELING 
      | COMPLETED 
      | CREATED 
      | FAILED 
      | IN_PROGRESS 
      | PENDING 
      | TIMED_OUT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CANCELED -> "CANCELED"
      | CANCELING -> "CANCELING"
      | COMPLETED -> "COMPLETED"
      | CREATED -> "CREATED"
      | FAILED -> "FAILED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | PENDING -> "PENDING"
      | TIMED_OUT -> "TIMED_OUT"
      | Non_static_id s -> s
    let of_string =
      function
      | "CANCELED" -> CANCELED
      | "CANCELING" -> CANCELING
      | "COMPLETED" -> COMPLETED
      | "CREATED" -> CREATED
      | "FAILED" -> FAILED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "PENDING" -> PENDING
      | "TIMED_OUT" -> TIMED_OUT
      | 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 EventStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EventStatus" j)
    let to_json = simple_to_json to_value
  end
module DeploymentSpecificationsField =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the deployment specification."];
      description: String_.t option
        [@ocaml.doc "The description of the deployment specification."];
      allowedValues: AllowedValues.t option
        [@ocaml.doc "The allowed values of the deployment specification."];
      required: String_.t option
        [@ocaml.doc "Indicates if the deployment specification is required."];
      conditionals: SpecificationsConditionalData.t option
        [@ocaml.doc
          "The conditionals used for the deployment specification."]}
    let make ?name =
      fun ?description ->
        fun ?allowedValues ->
          fun ?required ->
            fun ?conditionals ->
              fun () ->
                { name; description; allowedValues; required; conditionals }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("allowedValues",
          (Option.map x.allowedValues ~f:AllowedValues.to_value));
        ("required", (Option.map x.required ~f:String_.to_value));
        ("conditionals",
          (Option.map x.conditionals
             ~f:SpecificationsConditionalData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conditionals =
        (Option.map ~f:SpecificationsConditionalData.of_xml)
          (Xml.child xml_arg0 "conditionals") in
      let required =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "required") in
      let allowedValues =
        (Option.map ~f:AllowedValues.of_xml)
          (Xml.child xml_arg0 "allowedValues") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?conditionals ?required ?allowedValues ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conditionals =
        field_map json__ "conditionals" SpecificationsConditionalData.of_json in
      let required = field_map json__ "required" String_.of_json in
      let allowedValues =
        field_map json__ "allowedValues" AllowedValues.of_json in
      let description = field_map json__ "description" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?conditionals ?required ?allowedValues ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A field that details a specification of a deployment pattern."]
module KeyString =
  struct
    type nonrec t = string
    let context_ = "KeyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9-:]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"KeyString" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"(?!aws:)[a-zA-Z+-=._:/]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z+-=._:/]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module WorkloadDataSummary =
  struct
    type nonrec t =
      {
      workloadName: WorkloadName.t option
        [@ocaml.doc "The name of the workload."];
      displayName: String_.t option
        [@ocaml.doc "The display name of the workload data."];
      status: WorkloadStatus.t option
        [@ocaml.doc "The status of the workload."]}
    let make ?workloadName =
      fun ?displayName ->
        fun ?status -> fun () -> { workloadName; displayName; status }
    let to_value x =
      structure_to_value
        [("workloadName",
           (Option.map x.workloadName ~f:WorkloadName.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value));
        ("status", (Option.map x.status ~f:WorkloadStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:WorkloadStatus.of_xml) (Xml.child xml_arg0 "status") in
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let workloadName =
        (Option.map ~f:WorkloadName.of_xml)
          (Xml.child xml_arg0 "workloadName") in
      make ?status ?displayName ?workloadName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" WorkloadStatus.of_json in
      let displayName = field_map json__ "displayName" String_.of_json in
      let workloadName = field_map json__ "workloadName" WorkloadName.of_json in
      make ?status ?displayName ?workloadName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes workload data."]
module WorkloadDeploymentPatternDataSummary =
  struct
    type nonrec t =
      {
      workloadName: WorkloadName.t option
        [@ocaml.doc "The name of the workload."];
      deploymentPatternName: DeploymentPatternName.t option
        [@ocaml.doc "The name of a workload deployment pattern."];
      workloadVersionName: WorkloadVersionName.t option
        [@ocaml.doc "The name of the workload deployment pattern version."];
      deploymentPatternVersionName: DeploymentPatternVersionName.t option
        [@ocaml.doc "The version name of a workload deployment pattern."];
      displayName: String_.t option
        [@ocaml.doc "The display name of a workload deployment pattern."];
      description: String_.t option
        [@ocaml.doc "The description of a workload deployment pattern."];
      status: WorkloadDeploymentPatternStatus.t option
        [@ocaml.doc "The status of a workload deployment pattern."];
      statusMessage: String_.t option
        [@ocaml.doc
          "A message about a workload deployment pattern's status."]}
    let make ?workloadName =
      fun ?deploymentPatternName ->
        fun ?workloadVersionName ->
          fun ?deploymentPatternVersionName ->
            fun ?displayName ->
              fun ?description ->
                fun ?status ->
                  fun ?statusMessage ->
                    fun () ->
                      {
                        workloadName;
                        deploymentPatternName;
                        workloadVersionName;
                        deploymentPatternVersionName;
                        displayName;
                        description;
                        status;
                        statusMessage
                      }
    let to_value x =
      structure_to_value
        [("workloadName",
           (Option.map x.workloadName ~f:WorkloadName.to_value));
        ("deploymentPatternName",
          (Option.map x.deploymentPatternName
             ~f:DeploymentPatternName.to_value));
        ("workloadVersionName",
          (Option.map x.workloadVersionName ~f:WorkloadVersionName.to_value));
        ("deploymentPatternVersionName",
          (Option.map x.deploymentPatternVersionName
             ~f:DeploymentPatternVersionName.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("status",
          (Option.map x.status ~f:WorkloadDeploymentPatternStatus.to_value));
        ("statusMessage", (Option.map x.statusMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusMessage") in
      let status =
        (Option.map ~f:WorkloadDeploymentPatternStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let deploymentPatternVersionName =
        (Option.map ~f:DeploymentPatternVersionName.of_xml)
          (Xml.child xml_arg0 "deploymentPatternVersionName") in
      let workloadVersionName =
        (Option.map ~f:WorkloadVersionName.of_xml)
          (Xml.child xml_arg0 "workloadVersionName") in
      let deploymentPatternName =
        (Option.map ~f:DeploymentPatternName.of_xml)
          (Xml.child xml_arg0 "deploymentPatternName") in
      let workloadName =
        (Option.map ~f:WorkloadName.of_xml)
          (Xml.child xml_arg0 "workloadName") in
      make ?statusMessage ?status ?description ?displayName
        ?deploymentPatternVersionName ?workloadVersionName
        ?deploymentPatternName ?workloadName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage = field_map json__ "statusMessage" String_.of_json in
      let status =
        field_map json__ "status" WorkloadDeploymentPatternStatus.of_json in
      let description = field_map json__ "description" String_.of_json in
      let displayName = field_map json__ "displayName" String_.of_json in
      let deploymentPatternVersionName =
        field_map json__ "deploymentPatternVersionName"
          DeploymentPatternVersionName.of_json in
      let workloadVersionName =
        field_map json__ "workloadVersionName" WorkloadVersionName.of_json in
      let deploymentPatternName =
        field_map json__ "deploymentPatternName"
          DeploymentPatternName.of_json in
      let workloadName = field_map json__ "workloadName" WorkloadName.of_json in
      make ?statusMessage ?status ?description ?displayName
        ?deploymentPatternVersionName ?workloadVersionName
        ?deploymentPatternName ?workloadName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a workload deployment pattern."]
module DeploymentDataSummary =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the deployment"];
      id: DeploymentId.t option [@ocaml.doc "The ID of the deployment."];
      workloadName: WorkloadName.t option
        [@ocaml.doc "The name of the workload."];
      patternName: DeploymentPatternName.t option
        [@ocaml.doc "The name of the workload deployment pattern."];
      status: DeploymentStatus.t option
        [@ocaml.doc "The status of the deployment."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The time the deployment was created."];
      modifiedAt: Timestamp.t option
        [@ocaml.doc "The time the deployment was last modified."]}
    let make ?name =
      fun ?id ->
        fun ?workloadName ->
          fun ?patternName ->
            fun ?status ->
              fun ?createdAt ->
                fun ?modifiedAt ->
                  fun () ->
                    {
                      name;
                      id;
                      workloadName;
                      patternName;
                      status;
                      createdAt;
                      modifiedAt
                    }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("id", (Option.map x.id ~f:DeploymentId.to_value));
        ("workloadName",
          (Option.map x.workloadName ~f:WorkloadName.to_value));
        ("patternName",
          (Option.map x.patternName ~f:DeploymentPatternName.to_value));
        ("status", (Option.map x.status ~f:DeploymentStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("modifiedAt", (Option.map x.modifiedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modifiedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:DeploymentStatus.of_xml) (Xml.child xml_arg0 "status") in
      let patternName =
        (Option.map ~f:DeploymentPatternName.of_xml)
          (Xml.child xml_arg0 "patternName") in
      let workloadName =
        (Option.map ~f:WorkloadName.of_xml)
          (Xml.child xml_arg0 "workloadName") in
      let id = (Option.map ~f:DeploymentId.of_xml) (Xml.child xml_arg0 "id") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?modifiedAt ?createdAt ?status ?patternName ?workloadName ?id
        ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modifiedAt = field_map json__ "modifiedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let status = field_map json__ "status" DeploymentStatus.of_json in
      let patternName =
        field_map json__ "patternName" DeploymentPatternName.of_json in
      let workloadName = field_map json__ "workloadName" WorkloadName.of_json in
      let id = field_map json__ "id" DeploymentId.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?modifiedAt ?createdAt ?status ?patternName ?workloadName ?id
        ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A summary of the deployment data."]
module DeploymentFilter =
  struct
    type nonrec t =
      {
      name: DeploymentFilterKey.t option
        [@ocaml.doc
          "The name of the filter. Filter names are case-sensitive."];
      values: DeploymentFilterValues.t option
        [@ocaml.doc
          "The filter values. Filter values are case-sensitive. If you specify multiple values for a filter, the values are joined with an OR, and the request returns all results that match any of the specified values."]}
    let make ?name = fun ?values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:DeploymentFilterKey.to_value));
        ("values", (Option.map x.values ~f:DeploymentFilterValues.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:DeploymentFilterValues.of_xml)
          (Xml.child xml_arg0 "values") in
      let name =
        (Option.map ~f:DeploymentFilterKey.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?values ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map json__ "values" DeploymentFilterValues.of_json in
      let name = field_map json__ "name" DeploymentFilterKey.of_json in
      make ?values ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter name and value pair that is used to return more specific results from a describe operation. Filters can be used to match a set of resources by specific criteria."]
module DeploymentPatternVersionDataSummary =
  struct
    type nonrec t =
      {
      deploymentPatternVersionName: String_.t option
        [@ocaml.doc "The name of the deployment pattern version."];
      description: String_.t option
        [@ocaml.doc "The description of the deployment pattern version."];
      documentationUrl: String_.t option
        [@ocaml.doc
          "The URL of the documentation for the deployment pattern version."];
      workloadName: String_.t option [@ocaml.doc "The name of the workload."];
      deploymentPatternName: String_.t option
        [@ocaml.doc "The name of the deployment pattern."]}
    let make ?deploymentPatternVersionName =
      fun ?description ->
        fun ?documentationUrl ->
          fun ?workloadName ->
            fun ?deploymentPatternName ->
              fun () ->
                {
                  deploymentPatternVersionName;
                  description;
                  documentationUrl;
                  workloadName;
                  deploymentPatternName
                }
    let to_value x =
      structure_to_value
        [("deploymentPatternVersionName",
           (Option.map x.deploymentPatternVersionName ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("documentationUrl",
          (Option.map x.documentationUrl ~f:String_.to_value));
        ("workloadName", (Option.map x.workloadName ~f:String_.to_value));
        ("deploymentPatternName",
          (Option.map x.deploymentPatternName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deploymentPatternName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "deploymentPatternName") in
      let workloadName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "workloadName") in
      let documentationUrl =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "documentationUrl") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let deploymentPatternVersionName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "deploymentPatternVersionName") in
      make ?deploymentPatternName ?workloadName ?documentationUrl
        ?description ?deploymentPatternVersionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deploymentPatternName =
        field_map json__ "deploymentPatternName" String_.of_json in
      let workloadName = field_map json__ "workloadName" String_.of_json in
      let documentationUrl =
        field_map json__ "documentationUrl" String_.of_json in
      let description = field_map json__ "description" String_.of_json in
      let deploymentPatternVersionName =
        field_map json__ "deploymentPatternVersionName" String_.of_json in
      make ?deploymentPatternName ?workloadName ?documentationUrl
        ?description ?deploymentPatternVersionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a deployment pattern version summary."]
module DeploymentPatternVersionFilter =
  struct
    type nonrec t =
      {
      name: DeploymentPatternVersionFilterKey.t
        [@ocaml.doc
          "The name of the filter attribute. Specifies which attribute to filter on when querying deployment pattern versions."];
      values: DeploymentPatternVersionFilterValues.t
        [@ocaml.doc
          "The values to filter by. Contains the specific values to match against when filtering deployment pattern versions."]}
    let context_ = "DeploymentPatternVersionFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("name", (Some (DeploymentPatternVersionFilterKey.to_value x.name)));
        ("values",
          (Some (DeploymentPatternVersionFilterValues.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        DeploymentPatternVersionFilterValues.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "values") in
      let name =
        DeploymentPatternVersionFilterKey.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values =
        field_map_exn json__ "values"
          DeploymentPatternVersionFilterValues.of_json in
      let name =
        field_map_exn json__ "name" DeploymentPatternVersionFilterKey.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter for deployment pattern versions. Use this filter to specify criteria for querying deployment pattern versions in Launch Wizard."]
module DeploymentEventDataSummary =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the deployment event."];
      description: String_.t option
        [@ocaml.doc "The description of the deployment event."];
      status: EventStatus.t option
        [@ocaml.doc "The status of the deployment event."];
      statusReason: String_.t option
        [@ocaml.doc "The reason of the deployment event status."];
      timestamp: Timestamp.t option
        [@ocaml.doc "The timestamp of the deployment event."]}
    let make ?name =
      fun ?description ->
        fun ?status ->
          fun ?statusReason ->
            fun ?timestamp ->
              fun () ->
                { name; description; status; statusReason; timestamp }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("status", (Option.map x.status ~f:EventStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("timestamp", (Option.map x.timestamp ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "timestamp") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:EventStatus.of_xml) (Xml.child xml_arg0 "status") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?timestamp ?statusReason ?status ?description ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timestamp = field_map json__ "timestamp" Timestamp.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status = field_map json__ "status" EventStatus.of_json in
      let description = field_map json__ "description" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?timestamp ?statusReason ?status ?description ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A summary of the deployment event data."]
module DeploymentSpecificationsData =
  struct
    type nonrec t = DeploymentSpecificationsField.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:DeploymentSpecificationsField.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:DeploymentSpecificationsField.of_xml)
    let of_json j =
      list_of_json ~kind:"DeploymentSpecificationsData"
        ~of_json:DeploymentSpecificationsField.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeploymentSpecifications =
  struct
    type nonrec t = (KeyString.t * ValueString.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_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((KeyString.of_string chopped),
                              (ValueString.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (KeyString.to_value x) |>
                    (fun x -> (ValueString.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:KeyString.of_string
        ~of_json:ValueString.of_json j
    let to_json v = composed_to_json to_value v
  end
module Tags =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An internal error has occurred. Retry your request, but if the problem persists, contact us with details by posting a question on re:Post."]
module ResourceLimitException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You have exceeded an Launch Wizard resource limit. For example, you might have too many deployments in progress."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified workload or deployment resource can't be found."]
module ValidationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input fails to satisfy the constraints specified by an Amazon Web Services service."]
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (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:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module WorkloadDataSummaryList =
  struct
    type nonrec t = WorkloadDataSummary.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:WorkloadDataSummary.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:WorkloadDataSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkloadDataSummaryList"
        ~of_json:WorkloadDataSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxWorkloadResults =
  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 MaxWorkloadResults" 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 WorkloadDeploymentPatternDataSummaryList =
  struct
    type nonrec t = WorkloadDeploymentPatternDataSummary.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:WorkloadDeploymentPatternDataSummary.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:WorkloadDeploymentPatternDataSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkloadDeploymentPatternDataSummaryList"
        ~of_json:WorkloadDeploymentPatternDataSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxWorkloadDeploymentPatternResults =
  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 MaxWorkloadDeploymentPatternResults"
           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 DeploymentDataSummaryList =
  struct
    type nonrec t = DeploymentDataSummary.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:DeploymentDataSummary.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:DeploymentDataSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DeploymentDataSummaryList"
        ~of_json:DeploymentDataSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeploymentFilterList =
  struct
    type nonrec t = DeploymentFilter.t list
    let make i =
      let open Result in ok_or_failwith (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:DeploymentFilter.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:DeploymentFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"DeploymentFilterList"
        ~of_json:DeploymentFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxDeploymentResults =
  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 MaxDeploymentResults" 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 DeploymentPatternVersionDataSummaryList =
  struct
    type nonrec t = DeploymentPatternVersionDataSummary.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:DeploymentPatternVersionDataSummary.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:DeploymentPatternVersionDataSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DeploymentPatternVersionDataSummaryList"
        ~of_json:DeploymentPatternVersionDataSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module FilterList =
  struct
    type nonrec t = DeploymentPatternVersionFilter.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:DeploymentPatternVersionFilter.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:DeploymentPatternVersionFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"FilterList"
        ~of_json:DeploymentPatternVersionFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeploymentEventDataSummaryList =
  struct
    type nonrec t = DeploymentEventDataSummary.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:DeploymentEventDataSummary.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:DeploymentEventDataSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DeploymentEventDataSummaryList"
        ~of_json:DeploymentEventDataSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxDeploymentEventResults =
  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 MaxDeploymentEventResults"
           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 WorkloadData =
  struct
    type nonrec t =
      {
      workloadName: WorkloadName.t option
        [@ocaml.doc "The name of the workload."];
      displayName: String_.t option
        [@ocaml.doc "The display name of a workload."];
      status: WorkloadStatus.t option
        [@ocaml.doc
          "The status of a workload. You can list deployments in the DISABLED status."];
      description: String_.t option
        [@ocaml.doc "The description of a workload."];
      documentationUrl: String_.t option
        [@ocaml.doc "The URL of a workload document."];
      iconUrl: String_.t option [@ocaml.doc "The URL of a workload icon."];
      statusMessage: String_.t option
        [@ocaml.doc "The message about a workload's status."]}
    let make ?workloadName =
      fun ?displayName ->
        fun ?status ->
          fun ?description ->
            fun ?documentationUrl ->
              fun ?iconUrl ->
                fun ?statusMessage ->
                  fun () ->
                    {
                      workloadName;
                      displayName;
                      status;
                      description;
                      documentationUrl;
                      iconUrl;
                      statusMessage
                    }
    let to_value x =
      structure_to_value
        [("workloadName",
           (Option.map x.workloadName ~f:WorkloadName.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value));
        ("status", (Option.map x.status ~f:WorkloadStatus.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("documentationUrl",
          (Option.map x.documentationUrl ~f:String_.to_value));
        ("iconUrl", (Option.map x.iconUrl ~f:String_.to_value));
        ("statusMessage", (Option.map x.statusMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusMessage") in
      let iconUrl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "iconUrl") in
      let documentationUrl =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "documentationUrl") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let status =
        (Option.map ~f:WorkloadStatus.of_xml) (Xml.child xml_arg0 "status") in
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let workloadName =
        (Option.map ~f:WorkloadName.of_xml)
          (Xml.child xml_arg0 "workloadName") in
      make ?statusMessage ?iconUrl ?documentationUrl ?description ?status
        ?displayName ?workloadName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage = field_map json__ "statusMessage" String_.of_json in
      let iconUrl = field_map json__ "iconUrl" String_.of_json in
      let documentationUrl =
        field_map json__ "documentationUrl" String_.of_json in
      let description = field_map json__ "description" String_.of_json in
      let status = field_map json__ "status" WorkloadStatus.of_json in
      let displayName = field_map json__ "displayName" String_.of_json in
      let workloadName = field_map json__ "workloadName" WorkloadName.of_json in
      make ?statusMessage ?iconUrl ?documentationUrl ?description ?status
        ?displayName ?workloadName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a workload."]
module WorkloadDeploymentPatternData =
  struct
    type nonrec t =
      {
      workloadName: WorkloadName.t option
        [@ocaml.doc "The workload name of the deployment pattern."];
      deploymentPatternName: DeploymentPatternName.t option
        [@ocaml.doc "The name of the deployment pattern."];
      workloadVersionName: WorkloadVersionName.t option
        [@ocaml.doc "The workload version name of the deployment pattern."];
      deploymentPatternVersionName: DeploymentPatternVersionName.t option
        [@ocaml.doc "The version name of the deployment pattern."];
      displayName: String_.t option
        [@ocaml.doc "The display name of the deployment pattern."];
      description: String_.t option
        [@ocaml.doc "The description of the deployment pattern."];
      status: WorkloadDeploymentPatternStatus.t option
        [@ocaml.doc "The status of the deployment pattern."];
      statusMessage: String_.t option
        [@ocaml.doc "The status message of the deployment pattern."];
      specifications: DeploymentSpecificationsData.t option
        [@ocaml.doc
          "The settings specified for the deployment. These settings define how to deploy and configure your resources created by the deployment. For more information about the specifications required for creating a deployment for a SAP workload, see SAP deployment specifications. To retrieve the specifications required to create a deployment for other workloads, use the GetWorkloadDeploymentPattern operation."]}
    let make ?workloadName =
      fun ?deploymentPatternName ->
        fun ?workloadVersionName ->
          fun ?deploymentPatternVersionName ->
            fun ?displayName ->
              fun ?description ->
                fun ?status ->
                  fun ?statusMessage ->
                    fun ?specifications ->
                      fun () ->
                        {
                          workloadName;
                          deploymentPatternName;
                          workloadVersionName;
                          deploymentPatternVersionName;
                          displayName;
                          description;
                          status;
                          statusMessage;
                          specifications
                        }
    let to_value x =
      structure_to_value
        [("workloadName",
           (Option.map x.workloadName ~f:WorkloadName.to_value));
        ("deploymentPatternName",
          (Option.map x.deploymentPatternName
             ~f:DeploymentPatternName.to_value));
        ("workloadVersionName",
          (Option.map x.workloadVersionName ~f:WorkloadVersionName.to_value));
        ("deploymentPatternVersionName",
          (Option.map x.deploymentPatternVersionName
             ~f:DeploymentPatternVersionName.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value));
        ("status",
          (Option.map x.status ~f:WorkloadDeploymentPatternStatus.to_value));
        ("statusMessage", (Option.map x.statusMessage ~f:String_.to_value));
        ("specifications",
          (Option.map x.specifications
             ~f:DeploymentSpecificationsData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let specifications =
        (Option.map ~f:DeploymentSpecificationsData.of_xml)
          (Xml.child xml_arg0 "specifications") in
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusMessage") in
      let status =
        (Option.map ~f:WorkloadDeploymentPatternStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let deploymentPatternVersionName =
        (Option.map ~f:DeploymentPatternVersionName.of_xml)
          (Xml.child xml_arg0 "deploymentPatternVersionName") in
      let workloadVersionName =
        (Option.map ~f:WorkloadVersionName.of_xml)
          (Xml.child xml_arg0 "workloadVersionName") in
      let deploymentPatternName =
        (Option.map ~f:DeploymentPatternName.of_xml)
          (Xml.child xml_arg0 "deploymentPatternName") in
      let workloadName =
        (Option.map ~f:WorkloadName.of_xml)
          (Xml.child xml_arg0 "workloadName") in
      make ?specifications ?statusMessage ?status ?description ?displayName
        ?deploymentPatternVersionName ?workloadVersionName
        ?deploymentPatternName ?workloadName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let specifications =
        field_map json__ "specifications"
          DeploymentSpecificationsData.of_json in
      let statusMessage = field_map json__ "statusMessage" String_.of_json in
      let status =
        field_map json__ "status" WorkloadDeploymentPatternStatus.of_json in
      let description = field_map json__ "description" String_.of_json in
      let displayName = field_map json__ "displayName" String_.of_json in
      let deploymentPatternVersionName =
        field_map json__ "deploymentPatternVersionName"
          DeploymentPatternVersionName.of_json in
      let workloadVersionName =
        field_map json__ "workloadVersionName" WorkloadVersionName.of_json in
      let deploymentPatternName =
        field_map json__ "deploymentPatternName"
          DeploymentPatternName.of_json in
      let workloadName = field_map json__ "workloadName" WorkloadName.of_json in
      make ?specifications ?statusMessage ?status ?description ?displayName
        ?deploymentPatternVersionName ?workloadVersionName
        ?deploymentPatternName ?workloadName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The data that details a workload deployment pattern."]
module DeploymentData =
  struct
    type nonrec t =
      {
      name: String_.t option [@ocaml.doc "The name of the deployment."];
      id: DeploymentId.t option [@ocaml.doc "The ID of the deployment."];
      workloadName: WorkloadName.t option
        [@ocaml.doc "The name of the workload."];
      patternName: DeploymentPatternName.t option
        [@ocaml.doc "The pattern name of the deployment."];
      status: DeploymentStatus.t option
        [@ocaml.doc "The status of the deployment."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The time the deployment was created."];
      modifiedAt: Timestamp.t option
        [@ocaml.doc "The time the deployment was last modified."];
      specifications: DeploymentSpecifications.t option
        [@ocaml.doc
          "The settings specified for the deployment. These settings define how to deploy and configure your resources created by the deployment. For more information about the specifications required for creating a deployment for a SAP workload, see SAP deployment specifications. To retrieve the specifications required to create a deployment for other workloads, use the GetWorkloadDeploymentPattern operation."];
      resourceGroup: String_.t option
        [@ocaml.doc "The resource group of the deployment."];
      deletedAt: Timestamp.t option
        [@ocaml.doc "The time the deployment was deleted."];
      tags: Tags.t option
        [@ocaml.doc "Information about the tags attached to a deployment."];
      deploymentArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the deployment."]}
    let make ?name =
      fun ?id ->
        fun ?workloadName ->
          fun ?patternName ->
            fun ?status ->
              fun ?createdAt ->
                fun ?modifiedAt ->
                  fun ?specifications ->
                    fun ?resourceGroup ->
                      fun ?deletedAt ->
                        fun ?tags ->
                          fun ?deploymentArn ->
                            fun () ->
                              {
                                name;
                                id;
                                workloadName;
                                patternName;
                                status;
                                createdAt;
                                modifiedAt;
                                specifications;
                                resourceGroup;
                                deletedAt;
                                tags;
                                deploymentArn
                              }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("id", (Option.map x.id ~f:DeploymentId.to_value));
        ("workloadName",
          (Option.map x.workloadName ~f:WorkloadName.to_value));
        ("patternName",
          (Option.map x.patternName ~f:DeploymentPatternName.to_value));
        ("status", (Option.map x.status ~f:DeploymentStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("modifiedAt", (Option.map x.modifiedAt ~f:Timestamp.to_value));
        ("specifications",
          (Option.map x.specifications ~f:DeploymentSpecifications.to_value));
        ("resourceGroup", (Option.map x.resourceGroup ~f:String_.to_value));
        ("deletedAt", (Option.map x.deletedAt ~f:Timestamp.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("deploymentArn", (Option.map x.deploymentArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deploymentArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "deploymentArn") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let deletedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "deletedAt") in
      let resourceGroup =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceGroup") in
      let specifications =
        (Option.map ~f:DeploymentSpecifications.of_xml)
          (Xml.child xml_arg0 "specifications") in
      let modifiedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:DeploymentStatus.of_xml) (Xml.child xml_arg0 "status") in
      let patternName =
        (Option.map ~f:DeploymentPatternName.of_xml)
          (Xml.child xml_arg0 "patternName") in
      let workloadName =
        (Option.map ~f:WorkloadName.of_xml)
          (Xml.child xml_arg0 "workloadName") in
      let id = (Option.map ~f:DeploymentId.of_xml) (Xml.child xml_arg0 "id") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?deploymentArn ?tags ?deletedAt ?resourceGroup ?specifications
        ?modifiedAt ?createdAt ?status ?patternName ?workloadName ?id ?name
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deploymentArn = field_map json__ "deploymentArn" String_.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let deletedAt = field_map json__ "deletedAt" Timestamp.of_json in
      let resourceGroup = field_map json__ "resourceGroup" String_.of_json in
      let specifications =
        field_map json__ "specifications" DeploymentSpecifications.of_json in
      let modifiedAt = field_map json__ "modifiedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let status = field_map json__ "status" DeploymentStatus.of_json in
      let patternName =
        field_map json__ "patternName" DeploymentPatternName.of_json in
      let workloadName = field_map json__ "workloadName" WorkloadName.of_json in
      let id = field_map json__ "id" DeploymentId.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?deploymentArn ?tags ?deletedAt ?resourceGroup ?specifications
        ?modifiedAt ?createdAt ?status ?patternName ?workloadName ?id ?name
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The data associated with a deployment."]
module DeploymentName =
  struct
    type nonrec t = string
    let context_ = "DeploymentName"
    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:"[A-Za-z0-9_\\.-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DeploymentName" j
    let to_json = simple_to_json to_value
  end
module UpdateDeploymentOutput =
  struct
    type nonrec t =
      {
      deployment: DeploymentDataSummary.t option
        [@ocaml.doc "The deployment."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceLimitException of ResourceLimitException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deployment = fun () -> { deployment }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceLimitException" ->
          `ResourceLimitException (ResourceLimitException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceLimitException" ->
          `ResourceLimitException (ResourceLimitException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceLimitException e ->
          `Assoc
            [("error", (`String "ResourceLimitException"));
            ("details", (ResourceLimitException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("deployment",
           (Option.map x.deployment ~f:DeploymentDataSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deployment =
        (Option.map ~f:DeploymentDataSummary.of_xml)
          (Xml.child xml_arg0 "deployment") in
      make ?deployment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deployment =
        field_map json__ "deployment" DeploymentDataSummary.of_json in
      make ?deployment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a deployment."]
module UpdateDeploymentInput =
  struct
    type nonrec t =
      {
      deploymentId: DeploymentId.t [@ocaml.doc "The ID of the deployment."];
      specifications: DeploymentSpecifications.t
        [@ocaml.doc
          "The settings specified for the deployment. These settings define how to deploy and configure your resources created by the deployment. For more information about the specifications required for creating a deployment for a SAP workload, see SAP deployment specifications. To retrieve the specifications required to create a deployment for other workloads, use the GetWorkloadDeploymentPattern operation."];
      workloadVersionName: WorkloadVersionName.t option
        [@ocaml.doc "The name of the workload version."];
      deploymentPatternVersionName: DeploymentPatternVersionName.t option
        [@ocaml.doc "The name of the deployment pattern version."];
      dryRun: Boolean.t option
        [@ocaml.doc
          "Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is DryRunOperation. Otherwise, it is UnauthorizedOperation."];
      force: Boolean.t option
        [@ocaml.doc
          "Forces the update even if validation warnings are present."]}
    let context_ = "UpdateDeploymentInput"
    let make ?workloadVersionName =
      fun ?deploymentPatternVersionName ->
        fun ?dryRun ->
          fun ?force ->
            fun ~deploymentId ->
              fun ~specifications ->
                fun () ->
                  {
                    workloadVersionName;
                    deploymentPatternVersionName;
                    dryRun;
                    force;
                    deploymentId;
                    specifications
                  }
    let to_value x =
      structure_to_value
        [("deploymentId", (Some (DeploymentId.to_value x.deploymentId)));
        ("specifications",
          (Some (DeploymentSpecifications.to_value x.specifications)));
        ("workloadVersionName",
          (Option.map x.workloadVersionName ~f:WorkloadVersionName.to_value));
        ("deploymentPatternVersionName",
          (Option.map x.deploymentPatternVersionName
             ~f:DeploymentPatternVersionName.to_value));
        ("dryRun", (Option.map x.dryRun ~f:Boolean.to_value));
        ("force", (Option.map x.force ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let force = (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "force") in
      let dryRun =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "dryRun") in
      let deploymentPatternVersionName =
        (Option.map ~f:DeploymentPatternVersionName.of_xml)
          (Xml.child xml_arg0 "deploymentPatternVersionName") in
      let workloadVersionName =
        (Option.map ~f:WorkloadVersionName.of_xml)
          (Xml.child xml_arg0 "workloadVersionName") in
      let specifications =
        DeploymentSpecifications.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "specifications") in
      let deploymentId =
        DeploymentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "deploymentId") in
      make ?force ?dryRun ?deploymentPatternVersionName ?workloadVersionName
        ~specifications ~deploymentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let force = field_map json__ "force" Boolean.of_json in
      let dryRun = field_map json__ "dryRun" Boolean.of_json in
      let deploymentPatternVersionName =
        field_map json__ "deploymentPatternVersionName"
          DeploymentPatternVersionName.of_json in
      let workloadVersionName =
        field_map json__ "workloadVersionName" WorkloadVersionName.of_json in
      let specifications =
        field_map_exn json__ "specifications"
          DeploymentSpecifications.of_json in
      let deploymentId =
        field_map_exn json__ "deploymentId" DeploymentId.of_json in
      make ?force ?dryRun ?deploymentPatternVersionName ?workloadVersionName
        ~specifications ~deploymentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a deployment."]
module UntagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes the specified tags from the given resource."]
module UntagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      tagKeys: TagKeyList.t
        [@ocaml.doc "Keys identifying the tags to remove."]}
    let context_ = "UntagResourceInput"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (String_.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeyList.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" String_.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes the specified tags from the given resource."]
module TagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds the specified tags to the given resource."]
module TagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."];
      tags: Tags.t [@ocaml.doc "One or more tags to attach to the resource."]}
    let context_ = "TagResourceInput"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (String_.to_value x.resourceArn)));
        ("tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" Tags.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" String_.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds the specified tags to the given resource."]
module ListWorkloadsOutput =
  struct
    type nonrec t =
      {
      workloads: WorkloadDataSummaryList.t option
        [@ocaml.doc "Information about the workloads."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to include in another request to get the next page of items. This value is null when there are no more items to return."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workloads =
      fun ?nextToken -> fun () -> { workloads; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("workloads",
           (Option.map x.workloads ~f:WorkloadDataSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let workloads =
        (Option.map ~f:WorkloadDataSummaryList.of_xml)
          (Xml.child xml_arg0 "workloads") in
      make ?nextToken ?workloads ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let workloads =
        field_map json__ "workloads" WorkloadDataSummaryList.of_json in
      make ?nextToken ?workloads ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the available workload names. You can use the ListWorkloadDeploymentPatterns operation to discover the available deployment patterns for a given workload."]
module ListWorkloadsInput =
  struct
    type nonrec t =
      {
      maxResults: MaxWorkloadResults.t option
        [@ocaml.doc
          "The maximum number of items to return for this request. To get the next page of items, make another request with the token returned in the output."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned from a previous paginated request. Pagination continues from the end of the items returned by the previous request."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults",
           (Option.map x.maxResults ~f:MaxWorkloadResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxWorkloadResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults" MaxWorkloadResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the available workload names. You can use the ListWorkloadDeploymentPatterns operation to discover the available deployment patterns for a given workload."]
module ListWorkloadDeploymentPatternsOutput =
  struct
    type nonrec t =
      {
      workloadDeploymentPatterns:
        WorkloadDeploymentPatternDataSummaryList.t option
        [@ocaml.doc "Describes the workload deployment patterns."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to include in another request to get the next page of items. This value is null when there are no more items to return."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workloadDeploymentPatterns =
      fun ?nextToken -> fun () -> { workloadDeploymentPatterns; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("workloadDeploymentPatterns",
           (Option.map x.workloadDeploymentPatterns
              ~f:WorkloadDeploymentPatternDataSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let workloadDeploymentPatterns =
        (Option.map ~f:WorkloadDeploymentPatternDataSummaryList.of_xml)
          (Xml.child xml_arg0 "workloadDeploymentPatterns") in
      make ?nextToken ?workloadDeploymentPatterns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let workloadDeploymentPatterns =
        field_map json__ "workloadDeploymentPatterns"
          WorkloadDeploymentPatternDataSummaryList.of_json in
      make ?nextToken ?workloadDeploymentPatterns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the workload deployment patterns for a given workload name. You can use the ListWorkloads operation to discover the available workload names."]
module ListWorkloadDeploymentPatternsInput =
  struct
    type nonrec t =
      {
      workloadName: WorkloadName.t [@ocaml.doc "The name of the workload."];
      maxResults: MaxWorkloadDeploymentPatternResults.t option
        [@ocaml.doc
          "The maximum number of items to return for this request. To get the next page of items, make another request with the token returned in the output."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned from a previous paginated request. Pagination continues from the end of the items returned by the previous request."]}
    let context_ = "ListWorkloadDeploymentPatternsInput"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~workloadName ->
          fun () -> { maxResults; nextToken; workloadName }
    let to_value x =
      structure_to_value
        [("workloadName", (Some (WorkloadName.to_value x.workloadName)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:MaxWorkloadDeploymentPatternResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxWorkloadDeploymentPatternResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let workloadName =
        WorkloadName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workloadName") in
      make ?nextToken ?maxResults ~workloadName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          MaxWorkloadDeploymentPatternResults.of_json in
      let workloadName =
        field_map_exn json__ "workloadName" WorkloadName.of_json in
      make ?nextToken ?maxResults ~workloadName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the workload deployment patterns for a given workload name. You can use the ListWorkloads operation to discover the available workload names."]
module ListTagsForResourceOutput =
  struct
    type nonrec t =
      {
      tags: Tags.t option [@ocaml.doc "Information about the tags."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the tags associated with a specified resource."]
module ListTagsForResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource."]}
    let context_ = "ListTagsForResourceInput"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (String_.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map_exn json__ "resourceArn" String_.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the tags associated with a specified resource."]
module ListDeploymentsOutput =
  struct
    type nonrec t =
      {
      deployments: DeploymentDataSummaryList.t option
        [@ocaml.doc "Lists the deployments."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to include in another request to get the next page of items. This value is null when there are no more items to return."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deployments =
      fun ?nextToken -> fun () -> { deployments; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("deployments",
           (Option.map x.deployments ~f:DeploymentDataSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let deployments =
        (Option.map ~f:DeploymentDataSummaryList.of_xml)
          (Xml.child xml_arg0 "deployments") in
      make ?nextToken ?deployments ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let deployments =
        field_map json__ "deployments" DeploymentDataSummaryList.of_json in
      make ?nextToken ?deployments ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the deployments that have been created."]
module ListDeploymentsInput =
  struct
    type nonrec t =
      {
      filters: DeploymentFilterList.t option
        [@ocaml.doc
          "Filters to scope the results. The following filters are supported: WORKLOAD_NAME - The name used in deployments. DEPLOYMENT_STATUS - COMPLETED | CREATING | DELETE_IN_PROGRESS | DELETE_INITIATING | DELETE_FAILED | DELETED | FAILED | IN_PROGRESS | VALIDATING"];
      maxResults: MaxDeploymentResults.t option
        [@ocaml.doc
          "The maximum number of items to return for this request. To get the next page of items, make another request with the token returned in the output."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned from a previous paginated request. Pagination continues from the end of the items returned by the previous request."]}
    let make ?filters =
      fun ?maxResults ->
        fun ?nextToken -> fun () -> { filters; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("filters", (Option.map x.filters ~f:DeploymentFilterList.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxDeploymentResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxDeploymentResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let filters =
        (Option.map ~f:DeploymentFilterList.of_xml)
          (Xml.child xml_arg0 "filters") in
      make ?nextToken ?maxResults ?filters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults" MaxDeploymentResults.of_json in
      let filters = field_map json__ "filters" DeploymentFilterList.of_json in
      make ?nextToken ?maxResults ?filters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the deployments that have been created."]
module ListDeploymentPatternVersionsOutput =
  struct
    type nonrec t =
      {
      deploymentPatternVersions:
        DeploymentPatternVersionDataSummaryList.t option
        [@ocaml.doc "The deployment pattern versions."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next set of results."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deploymentPatternVersions =
      fun ?nextToken -> fun () -> { deploymentPatternVersions; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("deploymentPatternVersions",
           (Option.map x.deploymentPatternVersions
              ~f:DeploymentPatternVersionDataSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let deploymentPatternVersions =
        (Option.map ~f:DeploymentPatternVersionDataSummaryList.of_xml)
          (Xml.child xml_arg0 "deploymentPatternVersions") in
      make ?nextToken ?deploymentPatternVersions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let deploymentPatternVersions =
        field_map json__ "deploymentPatternVersions"
          DeploymentPatternVersionDataSummaryList.of_json in
      make ?nextToken ?deploymentPatternVersions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the deployment pattern versions."]
module ListDeploymentPatternVersionsInput =
  struct
    type nonrec t =
      {
      workloadName: WorkloadName.t
        [@ocaml.doc
          "The name of the workload. You can use the ListWorkloads operation to discover supported values for this parameter."];
      deploymentPatternName: DeploymentPatternName.t
        [@ocaml.doc
          "The name of the deployment pattern. You can use the ListWorkloadDeploymentPatterns operation to discover supported values for this parameter."];
      maxResults: MaxWorkloadResults.t option
        [@ocaml.doc
          "The maximum number of deployment pattern versions to list."];
      nextToken: NextToken.t option
        [@ocaml.doc "The token for the next set of results."];
      filters: FilterList.t option
        [@ocaml.doc
          "Filters to apply when listing deployment pattern versions."]}
    let context_ = "ListDeploymentPatternVersionsInput"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filters ->
          fun ~workloadName ->
            fun ~deploymentPatternName ->
              fun () ->
                {
                  maxResults;
                  nextToken;
                  filters;
                  workloadName;
                  deploymentPatternName
                }
    let to_value x =
      structure_to_value
        [("workloadName", (Some (WorkloadName.to_value x.workloadName)));
        ("deploymentPatternName",
          (Some (DeploymentPatternName.to_value x.deploymentPatternName)));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxWorkloadResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("filters", (Option.map x.filters ~f:FilterList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:FilterList.of_xml) (Xml.child xml_arg0 "filters") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxWorkloadResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let deploymentPatternName =
        DeploymentPatternName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "deploymentPatternName") in
      let workloadName =
        WorkloadName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workloadName") in
      make ?filters ?nextToken ?maxResults ~deploymentPatternName
        ~workloadName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "filters" FilterList.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults" MaxWorkloadResults.of_json in
      let deploymentPatternName =
        field_map_exn json__ "deploymentPatternName"
          DeploymentPatternName.of_json in
      let workloadName =
        field_map_exn json__ "workloadName" WorkloadName.of_json in
      make ?filters ?nextToken ?maxResults ~deploymentPatternName
        ~workloadName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the deployment pattern versions."]
module ListDeploymentEventsOutput =
  struct
    type nonrec t =
      {
      deploymentEvents: DeploymentEventDataSummaryList.t option
        [@ocaml.doc "Lists the deployment events."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token to include in another request to get the next page of items. This value is null when there are no more items to return."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deploymentEvents =
      fun ?nextToken -> fun () -> { deploymentEvents; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("deploymentEvents",
           (Option.map x.deploymentEvents
              ~f:DeploymentEventDataSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let deploymentEvents =
        (Option.map ~f:DeploymentEventDataSummaryList.of_xml)
          (Xml.child xml_arg0 "deploymentEvents") in
      make ?nextToken ?deploymentEvents ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let deploymentEvents =
        field_map json__ "deploymentEvents"
          DeploymentEventDataSummaryList.of_json in
      make ?nextToken ?deploymentEvents ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the events of a deployment."]
module ListDeploymentEventsInput =
  struct
    type nonrec t =
      {
      deploymentId: DeploymentId.t [@ocaml.doc "The ID of the deployment."];
      maxResults: MaxDeploymentEventResults.t option
        [@ocaml.doc
          "The maximum number of items to return for this request. To get the next page of items, make another request with the token returned in the output."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token returned from a previous paginated request. Pagination continues from the end of the items returned by the previous request."]}
    let context_ = "ListDeploymentEventsInput"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~deploymentId ->
          fun () -> { maxResults; nextToken; deploymentId }
    let to_value x =
      structure_to_value
        [("deploymentId", (Some (DeploymentId.to_value x.deploymentId)));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxDeploymentEventResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxDeploymentEventResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let deploymentId =
        DeploymentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "deploymentId") in
      make ?nextToken ?maxResults ~deploymentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults" MaxDeploymentEventResults.of_json in
      let deploymentId =
        field_map_exn json__ "deploymentId" DeploymentId.of_json in
      make ?nextToken ?maxResults ~deploymentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the events of a deployment."]
module GetWorkloadOutput =
  struct
    type nonrec t =
      {
      workload: WorkloadData.t option
        [@ocaml.doc "Information about the workload."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workload = fun () -> { workload }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("workload", (Option.map x.workload ~f:WorkloadData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workload =
        (Option.map ~f:WorkloadData.of_xml) (Xml.child xml_arg0 "workload") in
      make ?workload ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workload = field_map json__ "workload" WorkloadData.of_json in
      make ?workload ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a workload."]
module GetWorkloadInput =
  struct
    type nonrec t =
      {
      workloadName: WorkloadName.t [@ocaml.doc "The name of the workload."]}
    let context_ = "GetWorkloadInput"
    let make ~workloadName = fun () -> { workloadName }
    let to_value x =
      structure_to_value
        [("workloadName", (Some (WorkloadName.to_value x.workloadName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workloadName =
        WorkloadName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workloadName") in
      make ~workloadName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workloadName =
        field_map_exn json__ "workloadName" WorkloadName.of_json in
      make ~workloadName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a workload."]
module GetWorkloadDeploymentPatternOutput =
  struct
    type nonrec t =
      {
      workloadDeploymentPattern: WorkloadDeploymentPatternData.t option
        [@ocaml.doc "Details about the workload deployment pattern."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?workloadDeploymentPattern =
      fun () -> { workloadDeploymentPattern }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("workloadDeploymentPattern",
           (Option.map x.workloadDeploymentPattern
              ~f:WorkloadDeploymentPatternData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workloadDeploymentPattern =
        (Option.map ~f:WorkloadDeploymentPatternData.of_xml)
          (Xml.child xml_arg0 "workloadDeploymentPattern") in
      make ?workloadDeploymentPattern ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workloadDeploymentPattern =
        field_map json__ "workloadDeploymentPattern"
          WorkloadDeploymentPatternData.of_json in
      make ?workloadDeploymentPattern ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns details for a given workload and deployment pattern, including the available specifications. You can use the ListWorkloads operation to discover the available workload names and the ListWorkloadDeploymentPatterns operation to discover the available deployment pattern names of a given workload."]
module GetWorkloadDeploymentPatternInput =
  struct
    type nonrec t =
      {
      workloadName: WorkloadName.t [@ocaml.doc "The name of the workload."];
      deploymentPatternName: DeploymentPatternName.t
        [@ocaml.doc "The name of the deployment pattern."]}
    let context_ = "GetWorkloadDeploymentPatternInput"
    let make ~workloadName =
      fun ~deploymentPatternName ->
        fun () -> { workloadName; deploymentPatternName }
    let to_value x =
      structure_to_value
        [("workloadName", (Some (WorkloadName.to_value x.workloadName)));
        ("deploymentPatternName",
          (Some (DeploymentPatternName.to_value x.deploymentPatternName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deploymentPatternName =
        DeploymentPatternName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "deploymentPatternName") in
      let workloadName =
        WorkloadName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workloadName") in
      make ~deploymentPatternName ~workloadName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deploymentPatternName =
        field_map_exn json__ "deploymentPatternName"
          DeploymentPatternName.of_json in
      let workloadName =
        field_map_exn json__ "workloadName" WorkloadName.of_json in
      make ~deploymentPatternName ~workloadName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns details for a given workload and deployment pattern, including the available specifications. You can use the ListWorkloads operation to discover the available workload names and the ListWorkloadDeploymentPatterns operation to discover the available deployment pattern names of a given workload."]
module GetDeploymentPatternVersionOutput =
  struct
    type nonrec t =
      {
      deploymentPatternVersion: DeploymentPatternVersionDataSummary.t option
        [@ocaml.doc "The deployment pattern version."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deploymentPatternVersion =
      fun () -> { deploymentPatternVersion }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `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
        [("deploymentPatternVersion",
           (Option.map x.deploymentPatternVersion
              ~f:DeploymentPatternVersionDataSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deploymentPatternVersion =
        (Option.map ~f:DeploymentPatternVersionDataSummary.of_xml)
          (Xml.child xml_arg0 "deploymentPatternVersion") in
      make ?deploymentPatternVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deploymentPatternVersion =
        field_map json__ "deploymentPatternVersion"
          DeploymentPatternVersionDataSummary.of_json in
      make ?deploymentPatternVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a deployment pattern version."]
module GetDeploymentPatternVersionInput =
  struct
    type nonrec t =
      {
      workloadName: WorkloadName.t
        [@ocaml.doc
          "The name of the workload. You can use the ListWorkloads operation to discover supported values for this parameter."];
      deploymentPatternName: DeploymentPatternName.t
        [@ocaml.doc
          "The name of the deployment pattern. You can use the ListWorkloadDeploymentPatterns operation to discover supported values for this parameter."];
      deploymentPatternVersionName: DeploymentPatternVersionName.t
        [@ocaml.doc "The name of the deployment pattern version."]}
    let context_ = "GetDeploymentPatternVersionInput"
    let make ~workloadName =
      fun ~deploymentPatternName ->
        fun ~deploymentPatternVersionName ->
          fun () ->
            {
              workloadName;
              deploymentPatternName;
              deploymentPatternVersionName
            }
    let to_value x =
      structure_to_value
        [("workloadName", (Some (WorkloadName.to_value x.workloadName)));
        ("deploymentPatternName",
          (Some (DeploymentPatternName.to_value x.deploymentPatternName)));
        ("deploymentPatternVersionName",
          (Some
             (DeploymentPatternVersionName.to_value
                x.deploymentPatternVersionName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deploymentPatternVersionName =
        DeploymentPatternVersionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "deploymentPatternVersionName") in
      let deploymentPatternName =
        DeploymentPatternName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "deploymentPatternName") in
      let workloadName =
        WorkloadName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workloadName") in
      make ~deploymentPatternVersionName ~deploymentPatternName ~workloadName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deploymentPatternVersionName =
        field_map_exn json__ "deploymentPatternVersionName"
          DeploymentPatternVersionName.of_json in
      let deploymentPatternName =
        field_map_exn json__ "deploymentPatternName"
          DeploymentPatternName.of_json in
      let workloadName =
        field_map_exn json__ "workloadName" WorkloadName.of_json in
      make ~deploymentPatternVersionName ~deploymentPatternName ~workloadName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a deployment pattern version."]
module GetDeploymentOutput =
  struct
    type nonrec t =
      {
      deployment: DeploymentData.t option
        [@ocaml.doc "An object that details the deployment."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deployment = fun () -> { deployment }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("deployment", (Option.map x.deployment ~f:DeploymentData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deployment =
        (Option.map ~f:DeploymentData.of_xml)
          (Xml.child xml_arg0 "deployment") in
      make ?deployment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deployment = field_map json__ "deployment" DeploymentData.of_json in
      make ?deployment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about the deployment."]
module GetDeploymentInput =
  struct
    type nonrec t =
      {
      deploymentId: DeploymentId.t [@ocaml.doc "The ID of the deployment."]}
    let context_ = "GetDeploymentInput"
    let make ~deploymentId = fun () -> { deploymentId }
    let to_value x =
      structure_to_value
        [("deploymentId", (Some (DeploymentId.to_value x.deploymentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deploymentId =
        DeploymentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "deploymentId") in
      make ~deploymentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deploymentId =
        field_map_exn json__ "deploymentId" DeploymentId.of_json in
      make ~deploymentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about the deployment."]
module DeleteDeploymentOutput =
  struct
    type nonrec t =
      {
      status: DeploymentStatus.t option
        [@ocaml.doc "The status of the deployment."];
      statusReason: String_.t option
        [@ocaml.doc "The reason for the deployment status."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceLimitException of ResourceLimitException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status =
      fun ?statusReason -> fun () -> { status; statusReason }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceLimitException" ->
          `ResourceLimitException (ResourceLimitException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceLimitException" ->
          `ResourceLimitException (ResourceLimitException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceLimitException e ->
          `Assoc
            [("error", (`String "ResourceLimitException"));
            ("details", (ResourceLimitException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:DeploymentStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:DeploymentStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?statusReason ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status = field_map json__ "status" DeploymentStatus.of_json in
      make ?statusReason ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a deployment."]
module DeleteDeploymentInput =
  struct
    type nonrec t =
      {
      deploymentId: DeploymentId.t [@ocaml.doc "The ID of the deployment."]}
    let context_ = "DeleteDeploymentInput"
    let make ~deploymentId = fun () -> { deploymentId }
    let to_value x =
      structure_to_value
        [("deploymentId", (Some (DeploymentId.to_value x.deploymentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deploymentId =
        DeploymentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "deploymentId") in
      make ~deploymentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deploymentId =
        field_map_exn json__ "deploymentId" DeploymentId.of_json in
      make ~deploymentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a deployment."]
module CreateDeploymentOutput =
  struct
    type nonrec t =
      {
      deploymentId: DeploymentId.t option
        [@ocaml.doc "The ID of the deployment."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceLimitException of ResourceLimitException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deploymentId = fun () -> { deploymentId }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceLimitException" ->
          `ResourceLimitException (ResourceLimitException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceLimitException" ->
          `ResourceLimitException (ResourceLimitException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceLimitException e ->
          `Assoc
            [("error", (`String "ResourceLimitException"));
            ("details", (ResourceLimitException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("deploymentId",
           (Option.map x.deploymentId ~f:DeploymentId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deploymentId =
        (Option.map ~f:DeploymentId.of_xml)
          (Xml.child xml_arg0 "deploymentId") in
      make ?deploymentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deploymentId = field_map json__ "deploymentId" DeploymentId.of_json in
      make ?deploymentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a deployment for the given workload. Deployments created by this operation are not available in the Launch Wizard console to use the Clone deployment action on."]
module CreateDeploymentInput =
  struct
    type nonrec t =
      {
      workloadName: WorkloadName.t
        [@ocaml.doc
          "The name of the workload. You can use the ListWorkloads operation to discover supported values for this parameter."];
      deploymentPatternName: DeploymentPatternName.t
        [@ocaml.doc
          "The name of the deployment pattern supported by a given workload. You can use the ListWorkloadDeploymentPatterns operation to discover supported values for this parameter."];
      name: DeploymentName.t [@ocaml.doc "The name of the deployment."];
      specifications: DeploymentSpecifications.t
        [@ocaml.doc
          "The settings specified for the deployment. These settings define how to deploy and configure your resources created by the deployment. For more information about the specifications required for creating a deployment for a SAP workload, see SAP deployment specifications. To retrieve the specifications required to create a deployment for other workloads, use the GetWorkloadDeploymentPattern operation."];
      dryRun: Boolean.t option
        [@ocaml.doc
          "Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is DryRunOperation. Otherwise, it is UnauthorizedOperation."];
      tags: Tags.t option [@ocaml.doc "The tags to add to the deployment."]}
    let context_ = "CreateDeploymentInput"
    let make ?dryRun =
      fun ?tags ->
        fun ~workloadName ->
          fun ~deploymentPatternName ->
            fun ~name ->
              fun ~specifications ->
                fun () ->
                  {
                    dryRun;
                    tags;
                    workloadName;
                    deploymentPatternName;
                    name;
                    specifications
                  }
    let to_value x =
      structure_to_value
        [("workloadName", (Some (WorkloadName.to_value x.workloadName)));
        ("deploymentPatternName",
          (Some (DeploymentPatternName.to_value x.deploymentPatternName)));
        ("name", (Some (DeploymentName.to_value x.name)));
        ("specifications",
          (Some (DeploymentSpecifications.to_value x.specifications)));
        ("dryRun", (Option.map x.dryRun ~f:Boolean.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let dryRun =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "dryRun") in
      let specifications =
        DeploymentSpecifications.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "specifications") in
      let name =
        DeploymentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let deploymentPatternName =
        DeploymentPatternName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "deploymentPatternName") in
      let workloadName =
        WorkloadName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "workloadName") in
      make ?tags ?dryRun ~specifications ~name ~deploymentPatternName
        ~workloadName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let dryRun = field_map json__ "dryRun" Boolean.of_json in
      let specifications =
        field_map_exn json__ "specifications"
          DeploymentSpecifications.of_json in
      let name = field_map_exn json__ "name" DeploymentName.of_json in
      let deploymentPatternName =
        field_map_exn json__ "deploymentPatternName"
          DeploymentPatternName.of_json in
      let workloadName =
        field_map_exn json__ "workloadName" WorkloadName.of_json in
      make ?tags ?dryRun ~specifications ~name ~deploymentPatternName
        ~workloadName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a deployment for the given workload. Deployments created by this operation are not available in the Launch Wizard console to use the Clone deployment action on."]