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.amplify
let apiVersion = "2017-07-25"
let endpointPrefix = "amplify"
let serviceFullName = "AWS Amplify"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Amplify"
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 BranchName =
  struct
    type nonrec t = string
    let context_ = "BranchName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BranchName" j
    let to_json = simple_to_json to_value
  end
module DomainPrefix =
  struct
    type nonrec t = string
    let context_ = "DomainPrefix"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DomainPrefix" j
    let to_json = simple_to_json to_value
  end
module DNSRecord =
  struct
    type nonrec t = string
    let context_ = "DNSRecord"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"DNSRecord" j
    let to_json = simple_to_json to_value
  end
module SubDomainSetting =
  struct
    type nonrec t =
      {
      prefix: DomainPrefix.t
        [@ocaml.doc "The prefix setting for the subdomain."];
      branchName: BranchName.t
        [@ocaml.doc "The branch name setting for the subdomain."]}
    let context_ = "SubDomainSetting"
    let make ~prefix = fun ~branchName -> fun () -> { prefix; branchName }
    let to_value x =
      structure_to_value
        [("prefix", (Some (DomainPrefix.to_value x.prefix)));
        ("branchName", (Some (BranchName.to_value x.branchName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let prefix =
        DomainPrefix.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "prefix") in
      make ~branchName ~prefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let prefix = field_map_exn json__ "prefix" DomainPrefix.of_json in
      make ~branchName ~prefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the settings for the subdomain."]
module Verified =
  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 EnvKey =
  struct
    type nonrec t = string
    let context_ = "EnvKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EnvKey" j
    let to_json = simple_to_json to_value
  end
module EnvValue =
  struct
    type nonrec t = string
    let context_ = "EnvValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:5500) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EnvValue" j
    let to_json = simple_to_json to_value
  end
module Condition =
  struct
    type nonrec t = string
    let context_ = "Condition"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Condition" j
    let to_json = simple_to_json to_value
  end
module Source =
  struct
    type nonrec t = string
    let context_ = "Source"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).+")));
        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:"Source" j
    let to_json = simple_to_json to_value
  end
module Status =
  struct
    type nonrec t = string
    let context_ = "Status"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:7) >>=
                  (fun () -> check_pattern i ~pattern:".{3,7}")));
        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:"Status" j
    let to_json = simple_to_json to_value
  end
module Target =
  struct
    type nonrec t = string
    let context_ = "Target"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).+")));
        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:"Target" j
    let to_json = simple_to_json to_value
  end
module ThumbnailName =
  struct
    type nonrec t = string
    let context_ = "ThumbnailName"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:256); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ThumbnailName" j
    let to_json = simple_to_json to_value
  end
module ThumbnailUrl =
  struct
    type nonrec t = string
    let context_ = "ThumbnailUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ThumbnailUrl" j
    let to_json = simple_to_json to_value
  end
module AutoSubDomainCreationPattern =
  struct
    type nonrec t = string
    let context_ = "AutoSubDomainCreationPattern"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).+")));
        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:"AutoSubDomainCreationPattern" j
    let to_json = simple_to_json to_value
  end
module CertificateArn =
  struct
    type nonrec t = string
    let context_ = "CertificateArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws:acm:[a-z0-9-]+:\\d{12}:certificate\\/.+$")));
        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:"CertificateArn" j
    let to_json = simple_to_json to_value
  end
module CertificateType =
  struct
    type nonrec t =
      | AMPLIFY_MANAGED 
      | CUSTOM 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AMPLIFY_MANAGED -> "AMPLIFY_MANAGED"
      | CUSTOM -> "CUSTOM"
      | Non_static_id s -> s
    let of_string =
      function
      | "AMPLIFY_MANAGED" -> AMPLIFY_MANAGED
      | "CUSTOM" -> CUSTOM
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration CertificateType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CertificateType" j)
    let to_json = simple_to_json to_value
  end
module CertificateVerificationDNSRecord =
  struct
    type nonrec t = string
    let context_ = "CertificateVerificationDNSRecord"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"CertificateVerificationDNSRecord" j
    let to_json = simple_to_json to_value
  end
module SubDomain =
  struct
    type nonrec t =
      {
      subDomainSetting: SubDomainSetting.t option
        [@ocaml.doc "Describes the settings for the subdomain."];
      verified: Verified.t option
        [@ocaml.doc "The verified status of the subdomain"];
      dnsRecord: DNSRecord.t option
        [@ocaml.doc "The DNS record for the subdomain."]}
    let make ?subDomainSetting =
      fun ?verified ->
        fun ?dnsRecord -> fun () -> { subDomainSetting; verified; dnsRecord }
    let to_value x =
      structure_to_value
        [("subDomainSetting",
           (Option.map x.subDomainSetting ~f:SubDomainSetting.to_value));
        ("verified", (Option.map x.verified ~f:Verified.to_value));
        ("dnsRecord", (Option.map x.dnsRecord ~f:DNSRecord.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dnsRecord =
        (Option.map ~f:DNSRecord.of_xml) (Xml.child xml_arg0 "dnsRecord") in
      let verified =
        (Option.map ~f:Verified.of_xml) (Xml.child xml_arg0 "verified") in
      let subDomainSetting =
        (Option.map ~f:SubDomainSetting.of_xml)
          (Xml.child xml_arg0 "subDomainSetting") in
      make ?dnsRecord ?verified ?subDomainSetting ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dnsRecord = field_map json__ "dnsRecord" DNSRecord.of_json in
      let verified = field_map json__ "verified" Verified.of_json in
      let subDomainSetting =
        field_map json__ "subDomainSetting" SubDomainSetting.of_json in
      make ?dnsRecord ?verified ?subDomainSetting ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The subdomain for the domain association."]
module AssociatedResource =
  struct
    type nonrec t = string
    let context_ = "AssociatedResource"
    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:"AssociatedResource" j
    let to_json = simple_to_json to_value
  end
module StackArn =
  struct
    type nonrec t = string
    let context_ = "StackArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws:cloudformation:[a-z0-9-]+:\\d{12}:stack/.+/.+$")));
        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:"StackArn" j
    let to_json = simple_to_json to_value
  end
module CustomDomain =
  struct
    type nonrec t = string
    let context_ = "CustomDomain"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:255); 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:"CustomDomain" 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_max i ~max:256) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module BasicAuthCredentials =
  struct
    type nonrec t = string
    let context_ = "BasicAuthCredentials"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BasicAuthCredentials" j
    let to_json = simple_to_json to_value
  end
module BuildSpec =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The build specification (build spec) file for an Amplify app build."]
    let context_ = "BuildSpec"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:25000) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BuildSpec" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The build specification (build spec) file for an Amplify app build."]
module EnableAutoBuild =
  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 EnableBasicAuth =
  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 EnablePerformanceMode =
  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 EnablePullRequestPreview =
  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 EnvironmentVariables =
  struct
    type nonrec t = (EnvKey.t * EnvValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((EnvKey.of_string chopped),
                              (EnvValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (EnvKey.to_value x) |>
                    (fun x -> (EnvValue.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:EnvKey.of_string
        ~of_json:EnvValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Framework =
  struct
    type nonrec t = string
    let context_ = "Framework"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Framework" j
    let to_json = simple_to_json to_value
  end
module PullRequestEnvironmentName =
  struct
    type nonrec t = string
    let context_ = "PullRequestEnvironmentName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:20) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PullRequestEnvironmentName" j
    let to_json = simple_to_json to_value
  end
module Stage =
  struct
    type nonrec t =
      | PRODUCTION 
      | BETA 
      | DEVELOPMENT 
      | EXPERIMENTAL 
      | PULL_REQUEST 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PRODUCTION -> "PRODUCTION"
      | BETA -> "BETA"
      | DEVELOPMENT -> "DEVELOPMENT"
      | EXPERIMENTAL -> "EXPERIMENTAL"
      | PULL_REQUEST -> "PULL_REQUEST"
      | Non_static_id s -> s
    let of_string =
      function
      | "PRODUCTION" -> PRODUCTION
      | "BETA" -> BETA
      | "DEVELOPMENT" -> DEVELOPMENT
      | "EXPERIMENTAL" -> EXPERIMENTAL
      | "PULL_REQUEST" -> PULL_REQUEST
      | 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 Stage" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Stage" j)
    let to_json = simple_to_json to_value
  end
module AutoBranchCreationPattern =
  struct
    type nonrec t = string
    let context_ = "AutoBranchCreationPattern"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).+")));
        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:"AutoBranchCreationPattern" j
    let to_json = simple_to_json to_value
  end
module CacheConfigType =
  struct
    type nonrec t =
      | AMPLIFY_MANAGED 
      | AMPLIFY_MANAGED_NO_COOKIES 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AMPLIFY_MANAGED -> "AMPLIFY_MANAGED"
      | AMPLIFY_MANAGED_NO_COOKIES -> "AMPLIFY_MANAGED_NO_COOKIES"
      | Non_static_id s -> s
    let of_string =
      function
      | "AMPLIFY_MANAGED" -> AMPLIFY_MANAGED
      | "AMPLIFY_MANAGED_NO_COOKIES" -> AMPLIFY_MANAGED_NO_COOKIES
      | 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 CacheConfigType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CacheConfigType" j)
    let to_json = simple_to_json to_value
  end
module CustomRule =
  struct
    type nonrec t =
      {
      source: Source.t
        [@ocaml.doc "The source pattern for a URL rewrite or redirect rule."];
      target: Target.t
        [@ocaml.doc "The target pattern for a URL rewrite or redirect rule."];
      status: Status.t option
        [@ocaml.doc
          "The status code for a URL rewrite or redirect rule. 200 Represents a 200 rewrite rule. 301 Represents a 301 (moved permanently) redirect rule. This and all future requests should be directed to the target URL. 302 Represents a 302 temporary redirect rule. 404 Represents a 404 redirect rule. 404-200 Represents a 404 rewrite rule."];
      condition: Condition.t option
        [@ocaml.doc
          "The condition for a URL rewrite or redirect rule, such as a country code."]}
    let context_ = "CustomRule"
    let make ?status =
      fun ?condition ->
        fun ~source ->
          fun ~target -> fun () -> { status; condition; source; target }
    let to_value x =
      structure_to_value
        [("source", (Some (Source.to_value x.source)));
        ("target", (Some (Target.to_value x.target)));
        ("status", (Option.map x.status ~f:Status.to_value));
        ("condition", (Option.map x.condition ~f:Condition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let condition =
        (Option.map ~f:Condition.of_xml) (Xml.child xml_arg0 "condition") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "status") in
      let target =
        Target.of_xml (Xml.child_exn ~context:context_ xml_arg0 "target") in
      let source =
        Source.of_xml (Xml.child_exn ~context:context_ xml_arg0 "source") in
      make ?condition ?status ~target ~source ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let condition = field_map json__ "condition" Condition.of_json in
      let status = field_map json__ "status" Status.of_json in
      let target = field_map_exn json__ "target" Target.of_json in
      let source = field_map_exn json__ "source" Source.of_json in
      make ?condition ?status ~target ~source ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a custom rewrite or redirect rule."]
module BuildComputeType =
  struct
    type nonrec t =
      | STANDARD_8GB 
      | LARGE_16GB 
      | XLARGE_72GB 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD_8GB -> "STANDARD_8GB"
      | LARGE_16GB -> "LARGE_16GB"
      | XLARGE_72GB -> "XLARGE_72GB"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD_8GB" -> STANDARD_8GB
      | "LARGE_16GB" -> LARGE_16GB
      | "XLARGE_72GB" -> XLARGE_72GB
      | 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 BuildComputeType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BuildComputeType" j)
    let to_json = simple_to_json to_value
  end
module LastDeployTime =
  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 StatusReason =
  struct
    type nonrec t = string
    let context_ = "StatusReason"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"StatusReason" j
    let to_json = simple_to_json to_value
  end
module WafStatus =
  struct
    type nonrec t =
      | ASSOCIATING 
      | ASSOCIATION_FAILED 
      | ASSOCIATION_SUCCESS 
      | DISASSOCIATING 
      | DISASSOCIATION_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ASSOCIATING -> "ASSOCIATING"
      | ASSOCIATION_FAILED -> "ASSOCIATION_FAILED"
      | ASSOCIATION_SUCCESS -> "ASSOCIATION_SUCCESS"
      | DISASSOCIATING -> "DISASSOCIATING"
      | DISASSOCIATION_FAILED -> "DISASSOCIATION_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ASSOCIATING" -> ASSOCIATING
      | "ASSOCIATION_FAILED" -> ASSOCIATION_FAILED
      | "ASSOCIATION_SUCCESS" -> ASSOCIATION_SUCCESS
      | "DISASSOCIATING" -> DISASSOCIATING
      | "DISASSOCIATION_FAILED" -> DISASSOCIATION_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 WafStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WafStatus" j)
    let to_json = simple_to_json to_value
  end
module WebAclArn =
  struct
    type nonrec t = string
    let context_ = "WebAclArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () -> check_pattern i ~pattern:"^arn:aws:wafv2:.*")));
        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:"WebAclArn" j
    let to_json = simple_to_json to_value
  end
module ArtifactsUrl =
  struct
    type nonrec t = string
    let context_ = "ArtifactsUrl"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"ArtifactsUrl" j
    let to_json = simple_to_json to_value
  end
module Context =
  struct
    type nonrec t = string
    let context_ = "Context"
    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:"Context" j
    let to_json = simple_to_json to_value
  end
module EndTime =
  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 JobStatus =
  struct
    type nonrec t =
      | CREATED 
      | PENDING 
      | PROVISIONING 
      | RUNNING 
      | FAILED 
      | SUCCEED 
      | CANCELLING 
      | CANCELLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATED -> "CREATED"
      | PENDING -> "PENDING"
      | PROVISIONING -> "PROVISIONING"
      | RUNNING -> "RUNNING"
      | FAILED -> "FAILED"
      | SUCCEED -> "SUCCEED"
      | CANCELLING -> "CANCELLING"
      | CANCELLED -> "CANCELLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATED" -> CREATED
      | "PENDING" -> PENDING
      | "PROVISIONING" -> PROVISIONING
      | "RUNNING" -> RUNNING
      | "FAILED" -> FAILED
      | "SUCCEED" -> SUCCEED
      | "CANCELLING" -> CANCELLING
      | "CANCELLED" -> CANCELLED
      | 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 JobStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"JobStatus" j)
    let to_json = simple_to_json to_value
  end
module LogUrl =
  struct
    type nonrec t = string
    let context_ = "LogUrl"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LogUrl" j
    let to_json = simple_to_json to_value
  end
module Screenshots =
  struct
    type nonrec t = (ThumbnailName.t * ThumbnailUrl.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((ThumbnailName.of_string chopped),
                              (ThumbnailUrl.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ThumbnailName.to_value x) |>
                    (fun x -> (ThumbnailUrl.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:ThumbnailName.of_string
        ~of_json:ThumbnailUrl.of_json j
    let to_json v = composed_to_json to_value v
  end
module StartTime =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module StepName =
  struct
    type nonrec t = string
    let context_ = "StepName"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:255); 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:"StepName" j
    let to_json = simple_to_json to_value
  end
module TestArtifactsUrl =
  struct
    type nonrec t = string
    let context_ = "TestArtifactsUrl"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"TestArtifactsUrl" j
    let to_json = simple_to_json to_value
  end
module TestConfigUrl =
  struct
    type nonrec t = string
    let context_ = "TestConfigUrl"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"TestConfigUrl" j
    let to_json = simple_to_json to_value
  end
module AppId =
  struct
    type nonrec t = string
    let context_ = "AppId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () -> check_pattern i ~pattern:"d[a-z0-9]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AppId" j
    let to_json = simple_to_json to_value
  end
module CreateTime =
  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 Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Description" j
    let to_json = simple_to_json to_value
  end
module UpdateTime =
  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 WebhookArn =
  struct
    type nonrec t = string
    let context_ = "WebhookArn"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"WebhookArn" j
    let to_json = simple_to_json to_value
  end
module WebhookId =
  struct
    type nonrec t = string
    let context_ = "WebhookId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"WebhookId" j
    let to_json = simple_to_json to_value
  end
module WebhookUrl =
  struct
    type nonrec t = string
    let context_ = "WebhookUrl"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"WebhookUrl" j
    let to_json = simple_to_json to_value
  end
module CommitId =
  struct
    type nonrec t = string
    let context_ = "CommitId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CommitId" j
    let to_json = simple_to_json to_value
  end
module CommitMessage =
  struct
    type nonrec t = string
    let context_ = "CommitMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10000) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CommitMessage" j
    let to_json = simple_to_json to_value
  end
module CommitTime =
  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 JobArn =
  struct
    type nonrec t = string
    let context_ = "JobArn"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"JobArn" j
    let to_json = simple_to_json to_value
  end
module JobId =
  struct
    type nonrec t = string
    let context_ = "JobId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_pattern i ~pattern:"[0-9]+"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"JobId" j
    let to_json = simple_to_json to_value
  end
module JobType =
  struct
    type nonrec t =
      | RELEASE 
      | RETRY 
      | MANUAL 
      | WEB_HOOK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RELEASE -> "RELEASE"
      | RETRY -> "RETRY"
      | MANUAL -> "MANUAL"
      | WEB_HOOK -> "WEB_HOOK"
      | Non_static_id s -> s
    let of_string =
      function
      | "RELEASE" -> RELEASE
      | "RETRY" -> RETRY
      | "MANUAL" -> MANUAL
      | "WEB_HOOK" -> WEB_HOOK
      | 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 JobType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"JobType" j)
    let to_json = simple_to_json to_value
  end
module SourceUrl =
  struct
    type nonrec t = string
    let context_ = "SourceUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:3000) >>=
             (fun () -> check_pattern i ~pattern:"^(s3|https|http)://.*"));
        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:"SourceUrl" j
    let to_json = simple_to_json to_value
  end
module SourceUrlType =
  struct
    type nonrec t =
      | ZIP 
      | BUCKET_PREFIX 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ZIP -> "ZIP"
      | BUCKET_PREFIX -> "BUCKET_PREFIX"
      | Non_static_id s -> s
    let of_string =
      function
      | "ZIP" -> ZIP
      | "BUCKET_PREFIX" -> BUCKET_PREFIX
      | 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 SourceUrlType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SourceUrlType" j)
    let to_json = simple_to_json to_value
  end
module AutoSubDomainCreationPatterns =
  struct
    type nonrec t = AutoSubDomainCreationPattern.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:AutoSubDomainCreationPattern.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:AutoSubDomainCreationPattern.of_xml)
    let of_json j =
      list_of_json ~kind:"AutoSubDomainCreationPatterns"
        ~of_json:AutoSubDomainCreationPattern.of_json j
    let to_json v = composed_to_json to_value v
  end
module AutoSubDomainIAMRole =
  struct
    type nonrec t = string
    let context_ = "AutoSubDomainIAMRole"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () ->
                check_pattern i ~pattern:"^$|^arn:aws:iam::\\d{12}:role.+"));
        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:"AutoSubDomainIAMRole" j
    let to_json = simple_to_json to_value
  end
module Certificate =
  struct
    type nonrec t =
      {
      type_: CertificateType.t option
        [@ocaml.doc
          "The type of SSL/TLS certificate that you want to use. Specify AMPLIFY_MANAGED to use the default certificate that Amplify provisions for you. Specify CUSTOM to use your own certificate that you have already added to Certificate Manager in your Amazon Web Services account. Make sure you request (or import) the certificate in the US East (N. Virginia) Region (us-east-1). For more information about using ACM, see Importing certificates into Certificate Manager in the ACM User guide."];
      customCertificateArn: CertificateArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) for a custom certificate that you have already added to Certificate Manager in your Amazon Web Services account. This field is required only when the certificate type is CUSTOM."];
      certificateVerificationDNSRecord:
        CertificateVerificationDNSRecord.t option
        [@ocaml.doc "The DNS record for certificate verification."]}
    let make ?type_ =
      fun ?customCertificateArn ->
        fun ?certificateVerificationDNSRecord ->
          fun () ->
            { type_; customCertificateArn; certificateVerificationDNSRecord }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:CertificateType.to_value));
        ("customCertificateArn",
          (Option.map x.customCertificateArn ~f:CertificateArn.to_value));
        ("certificateVerificationDNSRecord",
          (Option.map x.certificateVerificationDNSRecord
             ~f:CertificateVerificationDNSRecord.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateVerificationDNSRecord =
        (Option.map ~f:CertificateVerificationDNSRecord.of_xml)
          (Xml.child xml_arg0 "certificateVerificationDNSRecord") in
      let customCertificateArn =
        (Option.map ~f:CertificateArn.of_xml)
          (Xml.child xml_arg0 "customCertificateArn") in
      let type_ =
        (Option.map ~f:CertificateType.of_xml) (Xml.child xml_arg0 "type") in
      make ?certificateVerificationDNSRecord ?customCertificateArn ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateVerificationDNSRecord =
        field_map json__ "certificateVerificationDNSRecord"
          CertificateVerificationDNSRecord.of_json in
      let customCertificateArn =
        field_map json__ "customCertificateArn" CertificateArn.of_json in
      let type_ = field_map json__ "type" CertificateType.of_json in
      make ?certificateVerificationDNSRecord ?customCertificateArn ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the current SSL/TLS certificate that is in use for the domain. If you are using CreateDomainAssociation to create a new domain association, Certificate describes the new certificate that you are creating."]
module DomainAssociationArn =
  struct
    type nonrec t = string
    let context_ = "DomainAssociationArn"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"DomainAssociationArn" j
    let to_json = simple_to_json to_value
  end
module DomainName =
  struct
    type nonrec t = string
    let context_ = "DomainName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^(((?!-)[A-Za-z0-9-]{0,62}[A-Za-z0-9])\\.)+((?!-)[A-Za-z0-9-]{1,62}[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:"DomainName" j
    let to_json = simple_to_json to_value
  end
module DomainStatus =
  struct
    type nonrec t =
      | PENDING_VERIFICATION 
      | IN_PROGRESS 
      | AVAILABLE 
      | IMPORTING_CUSTOM_CERTIFICATE 
      | PENDING_DEPLOYMENT 
      | AWAITING_APP_CNAME 
      | FAILED 
      | CREATING 
      | REQUESTING_CERTIFICATE 
      | UPDATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING_VERIFICATION -> "PENDING_VERIFICATION"
      | IN_PROGRESS -> "IN_PROGRESS"
      | AVAILABLE -> "AVAILABLE"
      | IMPORTING_CUSTOM_CERTIFICATE -> "IMPORTING_CUSTOM_CERTIFICATE"
      | PENDING_DEPLOYMENT -> "PENDING_DEPLOYMENT"
      | AWAITING_APP_CNAME -> "AWAITING_APP_CNAME"
      | FAILED -> "FAILED"
      | CREATING -> "CREATING"
      | REQUESTING_CERTIFICATE -> "REQUESTING_CERTIFICATE"
      | UPDATING -> "UPDATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING_VERIFICATION" -> PENDING_VERIFICATION
      | "IN_PROGRESS" -> IN_PROGRESS
      | "AVAILABLE" -> AVAILABLE
      | "IMPORTING_CUSTOM_CERTIFICATE" -> IMPORTING_CUSTOM_CERTIFICATE
      | "PENDING_DEPLOYMENT" -> PENDING_DEPLOYMENT
      | "AWAITING_APP_CNAME" -> AWAITING_APP_CNAME
      | "FAILED" -> FAILED
      | "CREATING" -> CREATING
      | "REQUESTING_CERTIFICATE" -> REQUESTING_CERTIFICATE
      | "UPDATING" -> UPDATING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration DomainStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DomainStatus" j)
    let to_json = simple_to_json to_value
  end
module EnableAutoSubDomain =
  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 SubDomains =
  struct
    type nonrec t = SubDomain.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:500); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SubDomain.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:SubDomain.of_xml)
    let of_json j =
      list_of_json ~kind:"SubDomains" ~of_json:SubDomain.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateStatus =
  struct
    type nonrec t =
      | REQUESTING_CERTIFICATE 
      | PENDING_VERIFICATION 
      | IMPORTING_CUSTOM_CERTIFICATE 
      | PENDING_DEPLOYMENT 
      | AWAITING_APP_CNAME 
      | UPDATE_COMPLETE 
      | UPDATE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REQUESTING_CERTIFICATE -> "REQUESTING_CERTIFICATE"
      | PENDING_VERIFICATION -> "PENDING_VERIFICATION"
      | IMPORTING_CUSTOM_CERTIFICATE -> "IMPORTING_CUSTOM_CERTIFICATE"
      | PENDING_DEPLOYMENT -> "PENDING_DEPLOYMENT"
      | AWAITING_APP_CNAME -> "AWAITING_APP_CNAME"
      | UPDATE_COMPLETE -> "UPDATE_COMPLETE"
      | UPDATE_FAILED -> "UPDATE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "REQUESTING_CERTIFICATE" -> REQUESTING_CERTIFICATE
      | "PENDING_VERIFICATION" -> PENDING_VERIFICATION
      | "IMPORTING_CUSTOM_CERTIFICATE" -> IMPORTING_CUSTOM_CERTIFICATE
      | "PENDING_DEPLOYMENT" -> PENDING_DEPLOYMENT
      | "AWAITING_APP_CNAME" -> AWAITING_APP_CNAME
      | "UPDATE_COMPLETE" -> UPDATE_COMPLETE
      | "UPDATE_FAILED" -> UPDATE_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 UpdateStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UpdateStatus" j)
    let to_json = simple_to_json to_value
  end
module ActiveJobId =
  struct
    type nonrec t = string
    let context_ = "ActiveJobId"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"ActiveJobId" j
    let to_json = simple_to_json to_value
  end
module AssociatedResources =
  struct
    type nonrec t = AssociatedResource.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:AssociatedResource.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:AssociatedResource.of_xml)
    let of_json j =
      list_of_json ~kind:"AssociatedResources"
        ~of_json:AssociatedResource.of_json j
    let to_json v = composed_to_json to_value v
  end
module Backend =
  struct
    type nonrec t =
      {
      stackArn: StackArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the CloudFormation stack."]}
    let make ?stackArn = fun () -> { stackArn }
    let to_value x =
      structure_to_value
        [("stackArn", (Option.map x.stackArn ~f:StackArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stackArn =
        (Option.map ~f:StackArn.of_xml) (Xml.child xml_arg0 "stackArn") in
      make ?stackArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stackArn = field_map json__ "stackArn" StackArn.of_json in
      make ?stackArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the backend associated with an Amplify Branch. This property is available to Amplify Gen 2 apps only. When you deploy an application with Amplify Gen 2, you provision the app's backend infrastructure using Typescript code."]
module BackendEnvironmentArn =
  struct
    type nonrec t = string
    let context_ = "BackendEnvironmentArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BackendEnvironmentArn" j
    let to_json = simple_to_json to_value
  end
module BranchArn =
  struct
    type nonrec t = string
    let context_ = "BranchArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BranchArn" j
    let to_json = simple_to_json to_value
  end
module ComputeRoleArn =
  struct
    type nonrec t = string
    let context_ = "ComputeRoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ComputeRoleArn" j
    let to_json = simple_to_json to_value
  end
module CustomDomains =
  struct
    type nonrec t = CustomDomain.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:255); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CustomDomain.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:CustomDomain.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomDomains" ~of_json:CustomDomain.of_json j
    let to_json v = composed_to_json to_value v
  end
module DisplayName =
  struct
    type nonrec t = string
    let context_ = "DisplayName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DisplayName" j
    let to_json = simple_to_json to_value
  end
module EnableNotification =
  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 EnableSkewProtection =
  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 TTL =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The content Time to Live (TTL) for the website in seconds."]
    let context_ = "TTL"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () -> check_pattern i ~pattern:"\\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:"TTL" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The content Time to Live (TTL) for the website in seconds."]
module TagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((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 TotalNumberOfJobs =
  struct
    type nonrec t = string
    let context_ = "TotalNumberOfJobs"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"TotalNumberOfJobs" j
    let to_json = simple_to_json to_value
  end
module DeploymentArtifacts =
  struct
    type nonrec t = string
    let context_ = "DeploymentArtifacts"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DeploymentArtifacts" j
    let to_json = simple_to_json to_value
  end
module EnvironmentName =
  struct
    type nonrec t = string
    let context_ = "EnvironmentName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EnvironmentName" j
    let to_json = simple_to_json to_value
  end
module StackName =
  struct
    type nonrec t = string
    let context_ = "StackName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StackName" j
    let to_json = simple_to_json to_value
  end
module ArtifactFileName =
  struct
    type nonrec t = string
    let context_ = "ArtifactFileName"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"ArtifactFileName" j
    let to_json = simple_to_json to_value
  end
module ArtifactId =
  struct
    type nonrec t = string
    let context_ = "ArtifactId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ArtifactId" j
    let to_json = simple_to_json to_value
  end
module AppArn =
  struct
    type nonrec t = string
    let context_ = "AppArn"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"AppArn" j
    let to_json = simple_to_json to_value
  end
module AutoBranchCreationConfig =
  struct
    type nonrec t =
      {
      stage: Stage.t option
        [@ocaml.doc
          "Describes the current stage for the autocreated branch."];
      framework: Framework.t option
        [@ocaml.doc "The framework for the autocreated branch."];
      enableAutoBuild: EnableAutoBuild.t option
        [@ocaml.doc "Enables auto building for the autocreated branch."];
      environmentVariables: EnvironmentVariables.t option
        [@ocaml.doc "The environment variables for the autocreated branch."];
      basicAuthCredentials: BasicAuthCredentials.t option
        [@ocaml.doc
          "The basic authorization credentials for the autocreated branch. You must base64-encode the authorization credentials and provide them in the format user:password."];
      enableBasicAuth: EnableBasicAuth.t option
        [@ocaml.doc
          "Enables basic authorization for the autocreated branch."];
      enablePerformanceMode: EnablePerformanceMode.t option
        [@ocaml.doc
          "Enables performance mode for the branch. Performance mode optimizes for faster hosting performance by keeping content cached at the edge for a longer interval. When performance mode is enabled, hosting configuration or code changes can take up to 10 minutes to roll out."];
      buildSpec: BuildSpec.t option
        [@ocaml.doc
          "The build specification (build spec) for the autocreated branch."];
      enablePullRequestPreview: EnablePullRequestPreview.t option
        [@ocaml.doc
          "Enables pull request previews for the autocreated branch."];
      pullRequestEnvironmentName: PullRequestEnvironmentName.t option
        [@ocaml.doc "The Amplify environment name for the pull request."]}
    let make ?stage =
      fun ?framework ->
        fun ?enableAutoBuild ->
          fun ?environmentVariables ->
            fun ?basicAuthCredentials ->
              fun ?enableBasicAuth ->
                fun ?enablePerformanceMode ->
                  fun ?buildSpec ->
                    fun ?enablePullRequestPreview ->
                      fun ?pullRequestEnvironmentName ->
                        fun () ->
                          {
                            stage;
                            framework;
                            enableAutoBuild;
                            environmentVariables;
                            basicAuthCredentials;
                            enableBasicAuth;
                            enablePerformanceMode;
                            buildSpec;
                            enablePullRequestPreview;
                            pullRequestEnvironmentName
                          }
    let to_value x =
      structure_to_value
        [("stage", (Option.map x.stage ~f:Stage.to_value));
        ("framework", (Option.map x.framework ~f:Framework.to_value));
        ("enableAutoBuild",
          (Option.map x.enableAutoBuild ~f:EnableAutoBuild.to_value));
        ("environmentVariables",
          (Option.map x.environmentVariables ~f:EnvironmentVariables.to_value));
        ("basicAuthCredentials",
          (Option.map x.basicAuthCredentials ~f:BasicAuthCredentials.to_value));
        ("enableBasicAuth",
          (Option.map x.enableBasicAuth ~f:EnableBasicAuth.to_value));
        ("enablePerformanceMode",
          (Option.map x.enablePerformanceMode
             ~f:EnablePerformanceMode.to_value));
        ("buildSpec", (Option.map x.buildSpec ~f:BuildSpec.to_value));
        ("enablePullRequestPreview",
          (Option.map x.enablePullRequestPreview
             ~f:EnablePullRequestPreview.to_value));
        ("pullRequestEnvironmentName",
          (Option.map x.pullRequestEnvironmentName
             ~f:PullRequestEnvironmentName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pullRequestEnvironmentName =
        (Option.map ~f:PullRequestEnvironmentName.of_xml)
          (Xml.child xml_arg0 "pullRequestEnvironmentName") in
      let enablePullRequestPreview =
        (Option.map ~f:EnablePullRequestPreview.of_xml)
          (Xml.child xml_arg0 "enablePullRequestPreview") in
      let buildSpec =
        (Option.map ~f:BuildSpec.of_xml) (Xml.child xml_arg0 "buildSpec") in
      let enablePerformanceMode =
        (Option.map ~f:EnablePerformanceMode.of_xml)
          (Xml.child xml_arg0 "enablePerformanceMode") in
      let enableBasicAuth =
        (Option.map ~f:EnableBasicAuth.of_xml)
          (Xml.child xml_arg0 "enableBasicAuth") in
      let basicAuthCredentials =
        (Option.map ~f:BasicAuthCredentials.of_xml)
          (Xml.child xml_arg0 "basicAuthCredentials") in
      let environmentVariables =
        (Option.map ~f:EnvironmentVariables.of_xml)
          (Xml.child xml_arg0 "environmentVariables") in
      let enableAutoBuild =
        (Option.map ~f:EnableAutoBuild.of_xml)
          (Xml.child xml_arg0 "enableAutoBuild") in
      let framework =
        (Option.map ~f:Framework.of_xml) (Xml.child xml_arg0 "framework") in
      let stage = (Option.map ~f:Stage.of_xml) (Xml.child xml_arg0 "stage") in
      make ?pullRequestEnvironmentName ?enablePullRequestPreview ?buildSpec
        ?enablePerformanceMode ?enableBasicAuth ?basicAuthCredentials
        ?environmentVariables ?enableAutoBuild ?framework ?stage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pullRequestEnvironmentName =
        field_map json__ "pullRequestEnvironmentName"
          PullRequestEnvironmentName.of_json in
      let enablePullRequestPreview =
        field_map json__ "enablePullRequestPreview"
          EnablePullRequestPreview.of_json in
      let buildSpec = field_map json__ "buildSpec" BuildSpec.of_json in
      let enablePerformanceMode =
        field_map json__ "enablePerformanceMode"
          EnablePerformanceMode.of_json in
      let enableBasicAuth =
        field_map json__ "enableBasicAuth" EnableBasicAuth.of_json in
      let basicAuthCredentials =
        field_map json__ "basicAuthCredentials" BasicAuthCredentials.of_json in
      let environmentVariables =
        field_map json__ "environmentVariables" EnvironmentVariables.of_json in
      let enableAutoBuild =
        field_map json__ "enableAutoBuild" EnableAutoBuild.of_json in
      let framework = field_map json__ "framework" Framework.of_json in
      let stage = field_map json__ "stage" Stage.of_json in
      make ?pullRequestEnvironmentName ?enablePullRequestPreview ?buildSpec
        ?enablePerformanceMode ?enableBasicAuth ?basicAuthCredentials
        ?environmentVariables ?enableAutoBuild ?framework ?stage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the automated branch creation configuration."]
module AutoBranchCreationPatterns =
  struct
    type nonrec t = AutoBranchCreationPattern.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:AutoBranchCreationPattern.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:AutoBranchCreationPattern.of_xml)
    let of_json j =
      list_of_json ~kind:"AutoBranchCreationPatterns"
        ~of_json:AutoBranchCreationPattern.of_json j
    let to_json v = composed_to_json to_value v
  end
module CacheConfig =
  struct
    type nonrec t =
      {
      type_: CacheConfigType.t
        [@ocaml.doc
          "The type of cache configuration to use for an Amplify app. The AMPLIFY_MANAGED cache configuration automatically applies an optimized cache configuration for your app based on its platform, routing rules, and rewrite rules. The AMPLIFY_MANAGED_NO_COOKIES cache configuration type is the same as AMPLIFY_MANAGED, except that it excludes all cookies from the cache key. This is the default setting."]}
    let context_ = "CacheConfig"
    let make ~type_ = fun () -> { type_ }
    let to_value x =
      structure_to_value
        [("type", (Some (CacheConfigType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        CacheConfigType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "type" CacheConfigType.of_json in
      make ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the cache configuration for an Amplify app. For more information about how Amplify applies an optimal cache configuration for your app based on the type of content that is being served, see Managing cache configuration in the Amplify User guide."]
module CustomHeaders =
  struct
    type nonrec t = string
    let context_ = "CustomHeaders"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:25000) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CustomHeaders" j
    let to_json = simple_to_json to_value
  end
module CustomRules =
  struct
    type nonrec t = CustomRule.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:CustomRule.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:CustomRule.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomRules" ~of_json:CustomRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module DefaultDomain =
  struct
    type nonrec t = string
    let context_ = "DefaultDomain"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (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:"DefaultDomain" j
    let to_json = simple_to_json to_value
  end
module EnableAutoBranchCreation =
  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 EnableBranchAutoBuild =
  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 EnableBranchAutoDeletion =
  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 JobConfig =
  struct
    type nonrec t =
      {
      buildComputeType: BuildComputeType.t
        [@ocaml.doc
          "Specifies the size of the build instance. Amplify supports three instance sizes: STANDARD_8GB, LARGE_16GB, and XLARGE_72GB. If you don't specify a value, Amplify uses the STANDARD_8GB default. The following list describes the CPU, memory, and storage capacity for each build instance type: STANDARD_8GB vCPUs: 4 Memory: 8 GiB Disk space: 128 GB LARGE_16GB vCPUs: 8 Memory: 16 GiB Disk space: 128 GB XLARGE_72GB vCPUs: 36 Memory: 72 GiB Disk space: 256 GB"]}
    let context_ = "JobConfig"
    let make ~buildComputeType = fun () -> { buildComputeType }
    let to_value x =
      structure_to_value
        [("buildComputeType",
           (Some (BuildComputeType.to_value x.buildComputeType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let buildComputeType =
        BuildComputeType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "buildComputeType") in
      make ~buildComputeType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let buildComputeType =
        field_map_exn json__ "buildComputeType" BuildComputeType.of_json in
      make ~buildComputeType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the configuration details that apply to the jobs for an Amplify app. Use JobConfig to apply configuration to jobs, such as customizing the build instance size when you create or update an Amplify app. For more information about customizable build instances, see Custom build instances in the Amplify User Guide."]
module Name =
  struct
    type nonrec t = string
    let context_ = "Name"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Name" j
    let to_json = simple_to_json to_value
  end
module Platform =
  struct
    type nonrec t =
      | WEB 
      | WEB_DYNAMIC 
      | WEB_COMPUTE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | WEB -> "WEB"
      | WEB_DYNAMIC -> "WEB_DYNAMIC"
      | WEB_COMPUTE -> "WEB_COMPUTE"
      | Non_static_id s -> s
    let of_string =
      function
      | "WEB" -> WEB
      | "WEB_DYNAMIC" -> WEB_DYNAMIC
      | "WEB_COMPUTE" -> WEB_COMPUTE
      | 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 Platform" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Platform" j)
    let to_json = simple_to_json to_value
  end
module ProductionBranch =
  struct
    type nonrec t =
      {
      lastDeployTime: LastDeployTime.t option
        [@ocaml.doc "The last deploy time of the production branch."];
      status: Status.t option
        [@ocaml.doc "The status of the production branch."];
      thumbnailUrl: ThumbnailUrl.t option
        [@ocaml.doc "The thumbnail URL for the production branch."];
      branchName: BranchName.t option
        [@ocaml.doc "The branch name for the production branch."]}
    let make ?lastDeployTime =
      fun ?status ->
        fun ?thumbnailUrl ->
          fun ?branchName ->
            fun () -> { lastDeployTime; status; thumbnailUrl; branchName }
    let to_value x =
      structure_to_value
        [("lastDeployTime",
           (Option.map x.lastDeployTime ~f:LastDeployTime.to_value));
        ("status", (Option.map x.status ~f:Status.to_value));
        ("thumbnailUrl",
          (Option.map x.thumbnailUrl ~f:ThumbnailUrl.to_value));
        ("branchName", (Option.map x.branchName ~f:BranchName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let branchName =
        (Option.map ~f:BranchName.of_xml) (Xml.child xml_arg0 "branchName") in
      let thumbnailUrl =
        (Option.map ~f:ThumbnailUrl.of_xml)
          (Xml.child xml_arg0 "thumbnailUrl") in
      let status =
        (Option.map ~f:Status.of_xml) (Xml.child xml_arg0 "status") in
      let lastDeployTime =
        (Option.map ~f:LastDeployTime.of_xml)
          (Xml.child xml_arg0 "lastDeployTime") in
      make ?branchName ?thumbnailUrl ?status ?lastDeployTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let branchName = field_map json__ "branchName" BranchName.of_json in
      let thumbnailUrl = field_map json__ "thumbnailUrl" ThumbnailUrl.of_json in
      let status = field_map json__ "status" Status.of_json in
      let lastDeployTime =
        field_map json__ "lastDeployTime" LastDeployTime.of_json in
      make ?branchName ?thumbnailUrl ?status ?lastDeployTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the information about a production branch for an Amplify app."]
module Repository =
  struct
    type nonrec t = string
    let context_ = "Repository"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Repository" j
    let to_json = simple_to_json to_value
  end
module RepositoryCloneMethod =
  struct
    type nonrec t =
      | SSH 
      | TOKEN 
      | SIGV4 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SSH -> "SSH"
      | TOKEN -> "TOKEN"
      | SIGV4 -> "SIGV4"
      | Non_static_id s -> s
    let of_string =
      function
      | "SSH" -> SSH
      | "TOKEN" -> TOKEN
      | "SIGV4" -> SIGV4
      | 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 RepositoryCloneMethod" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RepositoryCloneMethod" j)
    let to_json = simple_to_json to_value
  end
module ServiceRoleArn =
  struct
    type nonrec t = string
    let context_ = "ServiceRoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServiceRoleArn" j
    let to_json = simple_to_json to_value
  end
module WafConfiguration =
  struct
    type nonrec t =
      {
      webAclArn: WebAclArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the web ACL associated with an Amplify app."];
      wafStatus: WafStatus.t option
        [@ocaml.doc
          "The status of the process to associate or disassociate a web ACL to an Amplify app."];
      statusReason: StatusReason.t option
        [@ocaml.doc
          "The reason for the current status of the Firewall configuration."]}
    let make ?webAclArn =
      fun ?wafStatus ->
        fun ?statusReason -> fun () -> { webAclArn; wafStatus; statusReason }
    let to_value x =
      structure_to_value
        [("webAclArn", (Option.map x.webAclArn ~f:WebAclArn.to_value));
        ("wafStatus", (Option.map x.wafStatus ~f:WafStatus.to_value));
        ("statusReason",
          (Option.map x.statusReason ~f:StatusReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusReason =
        (Option.map ~f:StatusReason.of_xml)
          (Xml.child xml_arg0 "statusReason") in
      let wafStatus =
        (Option.map ~f:WafStatus.of_xml) (Xml.child xml_arg0 "wafStatus") in
      let webAclArn =
        (Option.map ~f:WebAclArn.of_xml) (Xml.child xml_arg0 "webAclArn") in
      make ?statusReason ?wafStatus ?webAclArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusReason = field_map json__ "statusReason" StatusReason.of_json in
      let wafStatus = field_map json__ "wafStatus" WafStatus.of_json in
      let webAclArn = field_map json__ "webAclArn" WebAclArn.of_json in
      make ?statusReason ?wafStatus ?webAclArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the Firewall configuration for a hosted Amplify application. Firewall support enables you to protect your web applications with a direct integration with WAF. For more information about using WAF protections for an Amplify application, see Firewall support for hosted sites in the Amplify User Guide."]
module WebhookCreateTime =
  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 Step =
  struct
    type nonrec t =
      {
      stepName: StepName.t option
        [@ocaml.doc "The name of the execution step."];
      startTime: StartTime.t option
        [@ocaml.doc "The start date and time of the execution step."];
      status: JobStatus.t option
        [@ocaml.doc "The status of the execution step."];
      endTime: EndTime.t option
        [@ocaml.doc "The end date and time of the execution step."];
      logUrl: LogUrl.t option
        [@ocaml.doc "The URL to the logs for the execution step."];
      artifactsUrl: ArtifactsUrl.t option
        [@ocaml.doc "The URL to the build artifact for the execution step."];
      testArtifactsUrl: TestArtifactsUrl.t option
        [@ocaml.doc "The URL to the test artifact for the execution step."];
      testConfigUrl: TestConfigUrl.t option
        [@ocaml.doc
          "The URL to the test configuration for the execution step."];
      screenshots: Screenshots.t option
        [@ocaml.doc
          "The list of screenshot URLs for the execution step, if relevant."];
      statusReason: StatusReason.t option
        [@ocaml.doc "The reason for the current step status."];
      context: Context.t option
        [@ocaml.doc
          "The context for the current step. Includes a build image if the step is build."]}
    let make ?stepName =
      fun ?startTime ->
        fun ?status ->
          fun ?endTime ->
            fun ?logUrl ->
              fun ?artifactsUrl ->
                fun ?testArtifactsUrl ->
                  fun ?testConfigUrl ->
                    fun ?screenshots ->
                      fun ?statusReason ->
                        fun ?context ->
                          fun () ->
                            {
                              stepName;
                              startTime;
                              status;
                              endTime;
                              logUrl;
                              artifactsUrl;
                              testArtifactsUrl;
                              testConfigUrl;
                              screenshots;
                              statusReason;
                              context
                            }
    let to_value x =
      structure_to_value
        [("stepName", (Option.map x.stepName ~f:StepName.to_value));
        ("startTime", (Option.map x.startTime ~f:StartTime.to_value));
        ("status", (Option.map x.status ~f:JobStatus.to_value));
        ("endTime", (Option.map x.endTime ~f:EndTime.to_value));
        ("logUrl", (Option.map x.logUrl ~f:LogUrl.to_value));
        ("artifactsUrl",
          (Option.map x.artifactsUrl ~f:ArtifactsUrl.to_value));
        ("testArtifactsUrl",
          (Option.map x.testArtifactsUrl ~f:TestArtifactsUrl.to_value));
        ("testConfigUrl",
          (Option.map x.testConfigUrl ~f:TestConfigUrl.to_value));
        ("screenshots", (Option.map x.screenshots ~f:Screenshots.to_value));
        ("statusReason",
          (Option.map x.statusReason ~f:StatusReason.to_value));
        ("context", (Option.map x.context ~f:Context.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let context =
        (Option.map ~f:Context.of_xml) (Xml.child xml_arg0 "context") in
      let statusReason =
        (Option.map ~f:StatusReason.of_xml)
          (Xml.child xml_arg0 "statusReason") in
      let screenshots =
        (Option.map ~f:Screenshots.of_xml) (Xml.child xml_arg0 "screenshots") in
      let testConfigUrl =
        (Option.map ~f:TestConfigUrl.of_xml)
          (Xml.child xml_arg0 "testConfigUrl") in
      let testArtifactsUrl =
        (Option.map ~f:TestArtifactsUrl.of_xml)
          (Xml.child xml_arg0 "testArtifactsUrl") in
      let artifactsUrl =
        (Option.map ~f:ArtifactsUrl.of_xml)
          (Xml.child xml_arg0 "artifactsUrl") in
      let logUrl =
        (Option.map ~f:LogUrl.of_xml) (Xml.child xml_arg0 "logUrl") in
      let endTime =
        (Option.map ~f:EndTime.of_xml) (Xml.child xml_arg0 "endTime") in
      let status =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "status") in
      let startTime =
        (Option.map ~f:StartTime.of_xml) (Xml.child xml_arg0 "startTime") in
      let stepName =
        (Option.map ~f:StepName.of_xml) (Xml.child xml_arg0 "stepName") in
      make ?context ?statusReason ?screenshots ?testConfigUrl
        ?testArtifactsUrl ?artifactsUrl ?logUrl ?endTime ?status ?startTime
        ?stepName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let context = field_map json__ "context" Context.of_json in
      let statusReason = field_map json__ "statusReason" StatusReason.of_json in
      let screenshots = field_map json__ "screenshots" Screenshots.of_json in
      let testConfigUrl =
        field_map json__ "testConfigUrl" TestConfigUrl.of_json in
      let testArtifactsUrl =
        field_map json__ "testArtifactsUrl" TestArtifactsUrl.of_json in
      let artifactsUrl = field_map json__ "artifactsUrl" ArtifactsUrl.of_json in
      let logUrl = field_map json__ "logUrl" LogUrl.of_json in
      let endTime = field_map json__ "endTime" EndTime.of_json in
      let status = field_map json__ "status" JobStatus.of_json in
      let startTime = field_map json__ "startTime" StartTime.of_json in
      let stepName = field_map json__ "stepName" StepName.of_json in
      make ?context ?statusReason ?screenshots ?testConfigUrl
        ?testArtifactsUrl ?artifactsUrl ?logUrl ?endTime ?status ?startTime
        ?stepName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes an execution step, for an execution job, for an Amplify app."]
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:255); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module Code =
  struct
    type nonrec t = string
    let context_ = "Code"
    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:"Code" j
    let to_json = simple_to_json to_value
  end
module Webhook =
  struct
    type nonrec t =
      {
      webhookArn: WebhookArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the webhook."];
      webhookId: WebhookId.t option [@ocaml.doc "The ID of the webhook."];
      webhookUrl: WebhookUrl.t option [@ocaml.doc "The URL of the webhook."];
      appId: AppId.t option [@ocaml.doc "The unique ID of an Amplify app."];
      branchName: BranchName.t option
        [@ocaml.doc "The name for a branch that is part of an Amplify app."];
      description: Description.t option
        [@ocaml.doc "The description for a webhook."];
      createTime: CreateTime.t option
        [@ocaml.doc
          "A timestamp of when Amplify created the webhook in your Git repository."];
      updateTime: UpdateTime.t option
        [@ocaml.doc
          "A timestamp of when Amplify updated the webhook in your Git repository."]}
    let make ?webhookArn =
      fun ?webhookId ->
        fun ?webhookUrl ->
          fun ?appId ->
            fun ?branchName ->
              fun ?description ->
                fun ?createTime ->
                  fun ?updateTime ->
                    fun () ->
                      {
                        webhookArn;
                        webhookId;
                        webhookUrl;
                        appId;
                        branchName;
                        description;
                        createTime;
                        updateTime
                      }
    let to_value x =
      structure_to_value
        [("webhookArn", (Option.map x.webhookArn ~f:WebhookArn.to_value));
        ("webhookId", (Option.map x.webhookId ~f:WebhookId.to_value));
        ("webhookUrl", (Option.map x.webhookUrl ~f:WebhookUrl.to_value));
        ("appId", (Option.map x.appId ~f:AppId.to_value));
        ("branchName", (Option.map x.branchName ~f:BranchName.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("createTime", (Option.map x.createTime ~f:CreateTime.to_value));
        ("updateTime", (Option.map x.updateTime ~f:UpdateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateTime =
        (Option.map ~f:UpdateTime.of_xml) (Xml.child xml_arg0 "updateTime") in
      let createTime =
        (Option.map ~f:CreateTime.of_xml) (Xml.child xml_arg0 "createTime") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let branchName =
        (Option.map ~f:BranchName.of_xml) (Xml.child xml_arg0 "branchName") in
      let appId = (Option.map ~f:AppId.of_xml) (Xml.child xml_arg0 "appId") in
      let webhookUrl =
        (Option.map ~f:WebhookUrl.of_xml) (Xml.child xml_arg0 "webhookUrl") in
      let webhookId =
        (Option.map ~f:WebhookId.of_xml) (Xml.child xml_arg0 "webhookId") in
      let webhookArn =
        (Option.map ~f:WebhookArn.of_xml) (Xml.child xml_arg0 "webhookArn") in
      make ?updateTime ?createTime ?description ?branchName ?appId
        ?webhookUrl ?webhookId ?webhookArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateTime = field_map json__ "updateTime" UpdateTime.of_json in
      let createTime = field_map json__ "createTime" CreateTime.of_json in
      let description = field_map json__ "description" Description.of_json in
      let branchName = field_map json__ "branchName" BranchName.of_json in
      let appId = field_map json__ "appId" AppId.of_json in
      let webhookUrl = field_map json__ "webhookUrl" WebhookUrl.of_json in
      let webhookId = field_map json__ "webhookId" WebhookId.of_json in
      let webhookArn = field_map json__ "webhookArn" WebhookArn.of_json in
      make ?updateTime ?createTime ?description ?branchName ?appId
        ?webhookUrl ?webhookId ?webhookArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a webhook that connects repository events to an Amplify app."]
module JobSummary =
  struct
    type nonrec t =
      {
      jobArn: JobArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the job."];
      jobId: JobId.t option [@ocaml.doc "The unique ID for the job."];
      commitId: CommitId.t option
        [@ocaml.doc
          "The commit ID from a third-party repository provider for the job."];
      commitMessage: CommitMessage.t option
        [@ocaml.doc
          "The commit message from a third-party repository provider for the job."];
      commitTime: CommitTime.t option
        [@ocaml.doc "The commit date and time for the job."];
      startTime: StartTime.t option
        [@ocaml.doc "The start date and time for the job."];
      status: JobStatus.t option
        [@ocaml.doc "The current status for the job."];
      endTime: EndTime.t option
        [@ocaml.doc "The end date and time for the job."];
      jobType: JobType.t option
        [@ocaml.doc
          "The type for the job. If the value is RELEASE, the job was manually released from its source by using the StartJob API. This value is available only for apps that are connected to a repository. If the value is RETRY, the job was manually retried using the StartJob API. If the value is WEB_HOOK, the job was automatically triggered by webhooks. If the value is MANUAL, the job is for a manually deployed app. Manually deployed apps are not connected to a Git repository."];
      sourceUrl: SourceUrl.t option
        [@ocaml.doc
          "The source URL for the files to deploy. The source URL can be either an HTTP GET URL that is publicly accessible and downloads a single .zip file, or an Amazon S3 bucket and prefix."];
      sourceUrlType: SourceUrlType.t option
        [@ocaml.doc
          "The type of source specified by the sourceURL. If the value is ZIP, the source is a .zip file. If the value is BUCKET_PREFIX, the source is an Amazon S3 bucket and prefix. If no value is specified, the default is ZIP."]}
    let make ?jobArn =
      fun ?jobId ->
        fun ?commitId ->
          fun ?commitMessage ->
            fun ?commitTime ->
              fun ?startTime ->
                fun ?status ->
                  fun ?endTime ->
                    fun ?jobType ->
                      fun ?sourceUrl ->
                        fun ?sourceUrlType ->
                          fun () ->
                            {
                              jobArn;
                              jobId;
                              commitId;
                              commitMessage;
                              commitTime;
                              startTime;
                              status;
                              endTime;
                              jobType;
                              sourceUrl;
                              sourceUrlType
                            }
    let to_value x =
      structure_to_value
        [("jobArn", (Option.map x.jobArn ~f:JobArn.to_value));
        ("jobId", (Option.map x.jobId ~f:JobId.to_value));
        ("commitId", (Option.map x.commitId ~f:CommitId.to_value));
        ("commitMessage",
          (Option.map x.commitMessage ~f:CommitMessage.to_value));
        ("commitTime", (Option.map x.commitTime ~f:CommitTime.to_value));
        ("startTime", (Option.map x.startTime ~f:StartTime.to_value));
        ("status", (Option.map x.status ~f:JobStatus.to_value));
        ("endTime", (Option.map x.endTime ~f:EndTime.to_value));
        ("jobType", (Option.map x.jobType ~f:JobType.to_value));
        ("sourceUrl", (Option.map x.sourceUrl ~f:SourceUrl.to_value));
        ("sourceUrlType",
          (Option.map x.sourceUrlType ~f:SourceUrlType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceUrlType =
        (Option.map ~f:SourceUrlType.of_xml)
          (Xml.child xml_arg0 "sourceUrlType") in
      let sourceUrl =
        (Option.map ~f:SourceUrl.of_xml) (Xml.child xml_arg0 "sourceUrl") in
      let jobType =
        (Option.map ~f:JobType.of_xml) (Xml.child xml_arg0 "jobType") in
      let endTime =
        (Option.map ~f:EndTime.of_xml) (Xml.child xml_arg0 "endTime") in
      let status =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "status") in
      let startTime =
        (Option.map ~f:StartTime.of_xml) (Xml.child xml_arg0 "startTime") in
      let commitTime =
        (Option.map ~f:CommitTime.of_xml) (Xml.child xml_arg0 "commitTime") in
      let commitMessage =
        (Option.map ~f:CommitMessage.of_xml)
          (Xml.child xml_arg0 "commitMessage") in
      let commitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "commitId") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "jobId") in
      let jobArn =
        (Option.map ~f:JobArn.of_xml) (Xml.child xml_arg0 "jobArn") in
      make ?sourceUrlType ?sourceUrl ?jobType ?endTime ?status ?startTime
        ?commitTime ?commitMessage ?commitId ?jobId ?jobArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceUrlType =
        field_map json__ "sourceUrlType" SourceUrlType.of_json in
      let sourceUrl = field_map json__ "sourceUrl" SourceUrl.of_json in
      let jobType = field_map json__ "jobType" JobType.of_json in
      let endTime = field_map json__ "endTime" EndTime.of_json in
      let status = field_map json__ "status" JobStatus.of_json in
      let startTime = field_map json__ "startTime" StartTime.of_json in
      let commitTime = field_map json__ "commitTime" CommitTime.of_json in
      let commitMessage =
        field_map json__ "commitMessage" CommitMessage.of_json in
      let commitId = field_map json__ "commitId" CommitId.of_json in
      let jobId = field_map json__ "jobId" JobId.of_json in
      let jobArn = field_map json__ "jobArn" JobArn.of_json in
      make ?sourceUrlType ?sourceUrl ?jobType ?endTime ?status ?startTime
        ?commitTime ?commitMessage ?commitId ?jobId ?jobArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the summary for an execution job for an Amplify app."]
module DomainAssociation =
  struct
    type nonrec t =
      {
      domainAssociationArn: DomainAssociationArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the domain association."];
      domainName: DomainName.t option [@ocaml.doc "The name of the domain."];
      enableAutoSubDomain: EnableAutoSubDomain.t option
        [@ocaml.doc
          "Enables the automated creation of subdomains for branches."];
      autoSubDomainCreationPatterns: AutoSubDomainCreationPatterns.t option
        [@ocaml.doc "Sets branch patterns for automatic subdomain creation."];
      autoSubDomainIAMRole: AutoSubDomainIAMRole.t option
        [@ocaml.doc
          "The required AWS Identity and Access Management (IAM) service role for the Amazon Resource Name (ARN) for automatically creating subdomains."];
      domainStatus: DomainStatus.t option
        [@ocaml.doc "The current status of the domain association."];
      updateStatus: UpdateStatus.t option
        [@ocaml.doc
          "The status of the domain update operation that is currently in progress. The following list describes the valid update states. REQUESTING_CERTIFICATE The certificate is in the process of being updated. PENDING_VERIFICATION Indicates that an Amplify managed certificate is in the process of being verified. This occurs during the creation of a custom domain or when a custom domain is updated to use a managed certificate. IMPORTING_CUSTOM_CERTIFICATE Indicates that an Amplify custom certificate is in the process of being imported. This occurs during the creation of a custom domain or when a custom domain is updated to use a custom certificate. PENDING_DEPLOYMENT Indicates that the subdomain or certificate changes are being propagated. AWAITING_APP_CNAME Amplify is waiting for CNAME records corresponding to subdomains to be propagated. If your custom domain is on Route\194\16053, Amplify handles this for you automatically. For more information about custom domains, see Setting up custom domains in the Amplify Hosting User Guide. UPDATE_COMPLETE The certificate has been associated with a domain. UPDATE_FAILED The certificate has failed to be provisioned or associated, and there is no existing active certificate to roll back to."];
      statusReason: StatusReason.t option
        [@ocaml.doc
          "Additional information that describes why the domain association is in the current state."];
      certificateVerificationDNSRecord:
        CertificateVerificationDNSRecord.t option
        [@ocaml.doc "The DNS record for certificate verification."];
      subDomains: SubDomains.t option
        [@ocaml.doc "The subdomains for the domain association."];
      certificate: Certificate.t option
        [@ocaml.doc
          "Describes the SSL/TLS certificate for the domain association. This can be your own custom certificate or the default certificate that Amplify provisions for you. If you are updating your domain to use a different certificate, certificate points to the new certificate that is being created instead of the current active certificate. Otherwise, certificate points to the current active certificate."]}
    let make ?domainAssociationArn =
      fun ?domainName ->
        fun ?enableAutoSubDomain ->
          fun ?autoSubDomainCreationPatterns ->
            fun ?autoSubDomainIAMRole ->
              fun ?domainStatus ->
                fun ?updateStatus ->
                  fun ?statusReason ->
                    fun ?certificateVerificationDNSRecord ->
                      fun ?subDomains ->
                        fun ?certificate ->
                          fun () ->
                            {
                              domainAssociationArn;
                              domainName;
                              enableAutoSubDomain;
                              autoSubDomainCreationPatterns;
                              autoSubDomainIAMRole;
                              domainStatus;
                              updateStatus;
                              statusReason;
                              certificateVerificationDNSRecord;
                              subDomains;
                              certificate
                            }
    let to_value x =
      structure_to_value
        [("domainAssociationArn",
           (Option.map x.domainAssociationArn
              ~f:DomainAssociationArn.to_value));
        ("domainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("enableAutoSubDomain",
          (Option.map x.enableAutoSubDomain ~f:EnableAutoSubDomain.to_value));
        ("autoSubDomainCreationPatterns",
          (Option.map x.autoSubDomainCreationPatterns
             ~f:AutoSubDomainCreationPatterns.to_value));
        ("autoSubDomainIAMRole",
          (Option.map x.autoSubDomainIAMRole ~f:AutoSubDomainIAMRole.to_value));
        ("domainStatus",
          (Option.map x.domainStatus ~f:DomainStatus.to_value));
        ("updateStatus",
          (Option.map x.updateStatus ~f:UpdateStatus.to_value));
        ("statusReason",
          (Option.map x.statusReason ~f:StatusReason.to_value));
        ("certificateVerificationDNSRecord",
          (Option.map x.certificateVerificationDNSRecord
             ~f:CertificateVerificationDNSRecord.to_value));
        ("subDomains", (Option.map x.subDomains ~f:SubDomains.to_value));
        ("certificate", (Option.map x.certificate ~f:Certificate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificate =
        (Option.map ~f:Certificate.of_xml) (Xml.child xml_arg0 "certificate") in
      let subDomains =
        (Option.map ~f:SubDomains.of_xml) (Xml.child xml_arg0 "subDomains") in
      let certificateVerificationDNSRecord =
        (Option.map ~f:CertificateVerificationDNSRecord.of_xml)
          (Xml.child xml_arg0 "certificateVerificationDNSRecord") in
      let statusReason =
        (Option.map ~f:StatusReason.of_xml)
          (Xml.child xml_arg0 "statusReason") in
      let updateStatus =
        (Option.map ~f:UpdateStatus.of_xml)
          (Xml.child xml_arg0 "updateStatus") in
      let domainStatus =
        (Option.map ~f:DomainStatus.of_xml)
          (Xml.child xml_arg0 "domainStatus") in
      let autoSubDomainIAMRole =
        (Option.map ~f:AutoSubDomainIAMRole.of_xml)
          (Xml.child xml_arg0 "autoSubDomainIAMRole") in
      let autoSubDomainCreationPatterns =
        (Option.map ~f:AutoSubDomainCreationPatterns.of_xml)
          (Xml.child xml_arg0 "autoSubDomainCreationPatterns") in
      let enableAutoSubDomain =
        (Option.map ~f:EnableAutoSubDomain.of_xml)
          (Xml.child xml_arg0 "enableAutoSubDomain") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "domainName") in
      let domainAssociationArn =
        (Option.map ~f:DomainAssociationArn.of_xml)
          (Xml.child xml_arg0 "domainAssociationArn") in
      make ?certificate ?subDomains ?certificateVerificationDNSRecord
        ?statusReason ?updateStatus ?domainStatus ?autoSubDomainIAMRole
        ?autoSubDomainCreationPatterns ?enableAutoSubDomain ?domainName
        ?domainAssociationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificate = field_map json__ "certificate" Certificate.of_json in
      let subDomains = field_map json__ "subDomains" SubDomains.of_json in
      let certificateVerificationDNSRecord =
        field_map json__ "certificateVerificationDNSRecord"
          CertificateVerificationDNSRecord.of_json in
      let statusReason = field_map json__ "statusReason" StatusReason.of_json in
      let updateStatus = field_map json__ "updateStatus" UpdateStatus.of_json in
      let domainStatus = field_map json__ "domainStatus" DomainStatus.of_json in
      let autoSubDomainIAMRole =
        field_map json__ "autoSubDomainIAMRole" AutoSubDomainIAMRole.of_json in
      let autoSubDomainCreationPatterns =
        field_map json__ "autoSubDomainCreationPatterns"
          AutoSubDomainCreationPatterns.of_json in
      let enableAutoSubDomain =
        field_map json__ "enableAutoSubDomain" EnableAutoSubDomain.of_json in
      let domainName = field_map json__ "domainName" DomainName.of_json in
      let domainAssociationArn =
        field_map json__ "domainAssociationArn" DomainAssociationArn.of_json in
      make ?certificate ?subDomains ?certificateVerificationDNSRecord
        ?statusReason ?updateStatus ?domainStatus ?autoSubDomainIAMRole
        ?autoSubDomainCreationPatterns ?enableAutoSubDomain ?domainName
        ?domainAssociationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the association between a custom domain and an Amplify app."]
module Branch =
  struct
    type nonrec t =
      {
      branchArn: BranchArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for a branch that is part of an Amplify app."];
      branchName: BranchName.t option
        [@ocaml.doc
          "The name for the branch that is part of an Amplify app."];
      description: Description.t option
        [@ocaml.doc
          "The description for the branch that is part of an Amplify app."];
      tags: TagMap.t option
        [@ocaml.doc "The tag for the branch of an Amplify app."];
      stage: Stage.t option
        [@ocaml.doc
          "The current stage for the branch that is part of an Amplify app."];
      displayName: DisplayName.t option
        [@ocaml.doc
          "The display name for the branch. This is used as the default domain prefix."];
      enableNotification: EnableNotification.t option
        [@ocaml.doc
          "Enables notifications for a branch that is part of an Amplify app."];
      createTime: CreateTime.t option
        [@ocaml.doc "A timestamp of when Amplify created the branch."];
      updateTime: UpdateTime.t option
        [@ocaml.doc "A timestamp for the last updated time for a branch."];
      environmentVariables: EnvironmentVariables.t option
        [@ocaml.doc
          "The environment variables specific to a branch of an Amplify app."];
      enableAutoBuild: EnableAutoBuild.t option
        [@ocaml.doc
          "Enables auto-building on push for a branch of an Amplify app."];
      enableSkewProtection: EnableSkewProtection.t option
        [@ocaml.doc
          "Specifies whether the skew protection feature is enabled for the branch. Deployment skew protection is available to Amplify applications to eliminate version skew issues between client and servers in web applications. When you apply skew protection to a branch, you can ensure that your clients always interact with the correct version of server-side assets, regardless of when a deployment occurs. For more information about skew protection, see Skew protection for Amplify deployments in the Amplify User Guide."];
      customDomains: CustomDomains.t option
        [@ocaml.doc "The custom domains for a branch of an Amplify app."];
      framework: Framework.t option
        [@ocaml.doc "The framework for a branch of an Amplify app."];
      activeJobId: ActiveJobId.t option
        [@ocaml.doc
          "The ID of the active job for a branch of an Amplify app."];
      totalNumberOfJobs: TotalNumberOfJobs.t option
        [@ocaml.doc
          "The total number of jobs that are part of an Amplify app."];
      enableBasicAuth: EnableBasicAuth.t option
        [@ocaml.doc
          "Enables basic authorization for a branch of an Amplify app."];
      enablePerformanceMode: EnablePerformanceMode.t option
        [@ocaml.doc
          "Enables performance mode for the branch. Performance mode optimizes for faster hosting performance by keeping content cached at the edge for a longer interval. When performance mode is enabled, hosting configuration or code changes can take up to 10 minutes to roll out."];
      thumbnailUrl: ThumbnailUrl.t option
        [@ocaml.doc "The thumbnail URL for the branch of an Amplify app."];
      basicAuthCredentials: BasicAuthCredentials.t option
        [@ocaml.doc
          "The basic authorization credentials for a branch of an Amplify app. You must base64-encode the authorization credentials and provide them in the format user:password."];
      buildSpec: BuildSpec.t option
        [@ocaml.doc
          "The build specification (build spec) content for the branch of an Amplify app."];
      ttl: TTL.t option
        [@ocaml.doc
          "The content Time to Live (TTL) for the website in seconds."];
      associatedResources: AssociatedResources.t option
        [@ocaml.doc
          "A list of custom resources that are linked to this branch."];
      enablePullRequestPreview: EnablePullRequestPreview.t option
        [@ocaml.doc "Enables pull request previews for the branch."];
      pullRequestEnvironmentName: PullRequestEnvironmentName.t option
        [@ocaml.doc "The Amplify environment name for the pull request."];
      destinationBranch: BranchName.t option
        [@ocaml.doc
          "The destination branch if the branch is a pull request branch."];
      sourceBranch: BranchName.t option
        [@ocaml.doc
          "The source branch if the branch is a pull request branch."];
      backendEnvironmentArn: BackendEnvironmentArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for a backend environment that is part of an Amplify app. This property is available to Amplify Gen 1 apps only. When you deploy an application with Amplify Gen 2, you provision the app's backend infrastructure using Typescript code."];
      backend: Backend.t option ;
      computeRoleArn: ComputeRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role for a branch of an SSR app. The Compute role allows the Amplify Hosting compute service to securely access specific Amazon Web Services resources based on the role's permissions. For more information about the SSR Compute role, see Adding an SSR Compute role in the Amplify User Guide."]}
    let make ?branchArn =
      fun ?branchName ->
        fun ?description ->
          fun ?tags ->
            fun ?stage ->
              fun ?displayName ->
                fun ?enableNotification ->
                  fun ?createTime ->
                    fun ?updateTime ->
                      fun ?environmentVariables ->
                        fun ?enableAutoBuild ->
                          fun ?enableSkewProtection ->
                            fun ?customDomains ->
                              fun ?framework ->
                                fun ?activeJobId ->
                                  fun ?totalNumberOfJobs ->
                                    fun ?enableBasicAuth ->
                                      fun ?enablePerformanceMode ->
                                        fun ?thumbnailUrl ->
                                          fun ?basicAuthCredentials ->
                                            fun ?buildSpec ->
                                              fun ?ttl ->
                                                fun ?associatedResources ->
                                                  fun
                                                    ?enablePullRequestPreview
                                                    ->
                                                    fun
                                                      ?pullRequestEnvironmentName
                                                      ->
                                                      fun ?destinationBranch
                                                        ->
                                                        fun ?sourceBranch ->
                                                          fun
                                                            ?backendEnvironmentArn
                                                            ->
                                                            fun ?backend ->
                                                              fun
                                                                ?computeRoleArn
                                                                ->
                                                                fun () ->
                                                                  {
                                                                    branchArn;
                                                                    branchName;
                                                                    description;
                                                                    tags;
                                                                    stage;
                                                                    displayName;
                                                                    enableNotification;
                                                                    createTime;
                                                                    updateTime;
                                                                    environmentVariables;
                                                                    enableAutoBuild;
                                                                    enableSkewProtection;
                                                                    customDomains;
                                                                    framework;
                                                                    activeJobId;
                                                                    totalNumberOfJobs;
                                                                    enableBasicAuth;
                                                                    enablePerformanceMode;
                                                                    thumbnailUrl;
                                                                    basicAuthCredentials;
                                                                    buildSpec;
                                                                    ttl;
                                                                    associatedResources;
                                                                    enablePullRequestPreview;
                                                                    pullRequestEnvironmentName;
                                                                    destinationBranch;
                                                                    sourceBranch;
                                                                    backendEnvironmentArn;
                                                                    backend;
                                                                    computeRoleArn
                                                                  }
    let to_value x =
      structure_to_value
        [("branchArn", (Option.map x.branchArn ~f:BranchArn.to_value));
        ("branchName", (Option.map x.branchName ~f:BranchName.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("stage", (Option.map x.stage ~f:Stage.to_value));
        ("displayName", (Option.map x.displayName ~f:DisplayName.to_value));
        ("enableNotification",
          (Option.map x.enableNotification ~f:EnableNotification.to_value));
        ("createTime", (Option.map x.createTime ~f:CreateTime.to_value));
        ("updateTime", (Option.map x.updateTime ~f:UpdateTime.to_value));
        ("environmentVariables",
          (Option.map x.environmentVariables ~f:EnvironmentVariables.to_value));
        ("enableAutoBuild",
          (Option.map x.enableAutoBuild ~f:EnableAutoBuild.to_value));
        ("enableSkewProtection",
          (Option.map x.enableSkewProtection ~f:EnableSkewProtection.to_value));
        ("customDomains",
          (Option.map x.customDomains ~f:CustomDomains.to_value));
        ("framework", (Option.map x.framework ~f:Framework.to_value));
        ("activeJobId", (Option.map x.activeJobId ~f:ActiveJobId.to_value));
        ("totalNumberOfJobs",
          (Option.map x.totalNumberOfJobs ~f:TotalNumberOfJobs.to_value));
        ("enableBasicAuth",
          (Option.map x.enableBasicAuth ~f:EnableBasicAuth.to_value));
        ("enablePerformanceMode",
          (Option.map x.enablePerformanceMode
             ~f:EnablePerformanceMode.to_value));
        ("thumbnailUrl",
          (Option.map x.thumbnailUrl ~f:ThumbnailUrl.to_value));
        ("basicAuthCredentials",
          (Option.map x.basicAuthCredentials ~f:BasicAuthCredentials.to_value));
        ("buildSpec", (Option.map x.buildSpec ~f:BuildSpec.to_value));
        ("ttl", (Option.map x.ttl ~f:TTL.to_value));
        ("associatedResources",
          (Option.map x.associatedResources ~f:AssociatedResources.to_value));
        ("enablePullRequestPreview",
          (Option.map x.enablePullRequestPreview
             ~f:EnablePullRequestPreview.to_value));
        ("pullRequestEnvironmentName",
          (Option.map x.pullRequestEnvironmentName
             ~f:PullRequestEnvironmentName.to_value));
        ("destinationBranch",
          (Option.map x.destinationBranch ~f:BranchName.to_value));
        ("sourceBranch", (Option.map x.sourceBranch ~f:BranchName.to_value));
        ("backendEnvironmentArn",
          (Option.map x.backendEnvironmentArn
             ~f:BackendEnvironmentArn.to_value));
        ("backend", (Option.map x.backend ~f:Backend.to_value));
        ("computeRoleArn",
          (Option.map x.computeRoleArn ~f:ComputeRoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let computeRoleArn =
        (Option.map ~f:ComputeRoleArn.of_xml)
          (Xml.child xml_arg0 "computeRoleArn") in
      let backend =
        (Option.map ~f:Backend.of_xml) (Xml.child xml_arg0 "backend") in
      let backendEnvironmentArn =
        (Option.map ~f:BackendEnvironmentArn.of_xml)
          (Xml.child xml_arg0 "backendEnvironmentArn") in
      let sourceBranch =
        (Option.map ~f:BranchName.of_xml) (Xml.child xml_arg0 "sourceBranch") in
      let destinationBranch =
        (Option.map ~f:BranchName.of_xml)
          (Xml.child xml_arg0 "destinationBranch") in
      let pullRequestEnvironmentName =
        (Option.map ~f:PullRequestEnvironmentName.of_xml)
          (Xml.child xml_arg0 "pullRequestEnvironmentName") in
      let enablePullRequestPreview =
        (Option.map ~f:EnablePullRequestPreview.of_xml)
          (Xml.child xml_arg0 "enablePullRequestPreview") in
      let associatedResources =
        (Option.map ~f:AssociatedResources.of_xml)
          (Xml.child xml_arg0 "associatedResources") in
      let ttl = (Option.map ~f:TTL.of_xml) (Xml.child xml_arg0 "ttl") in
      let buildSpec =
        (Option.map ~f:BuildSpec.of_xml) (Xml.child xml_arg0 "buildSpec") in
      let basicAuthCredentials =
        (Option.map ~f:BasicAuthCredentials.of_xml)
          (Xml.child xml_arg0 "basicAuthCredentials") in
      let thumbnailUrl =
        (Option.map ~f:ThumbnailUrl.of_xml)
          (Xml.child xml_arg0 "thumbnailUrl") in
      let enablePerformanceMode =
        (Option.map ~f:EnablePerformanceMode.of_xml)
          (Xml.child xml_arg0 "enablePerformanceMode") in
      let enableBasicAuth =
        (Option.map ~f:EnableBasicAuth.of_xml)
          (Xml.child xml_arg0 "enableBasicAuth") in
      let totalNumberOfJobs =
        (Option.map ~f:TotalNumberOfJobs.of_xml)
          (Xml.child xml_arg0 "totalNumberOfJobs") in
      let activeJobId =
        (Option.map ~f:ActiveJobId.of_xml) (Xml.child xml_arg0 "activeJobId") in
      let framework =
        (Option.map ~f:Framework.of_xml) (Xml.child xml_arg0 "framework") in
      let customDomains =
        (Option.map ~f:CustomDomains.of_xml)
          (Xml.child xml_arg0 "customDomains") in
      let enableSkewProtection =
        (Option.map ~f:EnableSkewProtection.of_xml)
          (Xml.child xml_arg0 "enableSkewProtection") in
      let enableAutoBuild =
        (Option.map ~f:EnableAutoBuild.of_xml)
          (Xml.child xml_arg0 "enableAutoBuild") in
      let environmentVariables =
        (Option.map ~f:EnvironmentVariables.of_xml)
          (Xml.child xml_arg0 "environmentVariables") in
      let updateTime =
        (Option.map ~f:UpdateTime.of_xml) (Xml.child xml_arg0 "updateTime") in
      let createTime =
        (Option.map ~f:CreateTime.of_xml) (Xml.child xml_arg0 "createTime") in
      let enableNotification =
        (Option.map ~f:EnableNotification.of_xml)
          (Xml.child xml_arg0 "enableNotification") in
      let displayName =
        (Option.map ~f:DisplayName.of_xml) (Xml.child xml_arg0 "displayName") in
      let stage = (Option.map ~f:Stage.of_xml) (Xml.child xml_arg0 "stage") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let branchName =
        (Option.map ~f:BranchName.of_xml) (Xml.child xml_arg0 "branchName") in
      let branchArn =
        (Option.map ~f:BranchArn.of_xml) (Xml.child xml_arg0 "branchArn") in
      make ?computeRoleArn ?backend ?backendEnvironmentArn ?sourceBranch
        ?destinationBranch ?pullRequestEnvironmentName
        ?enablePullRequestPreview ?associatedResources ?ttl ?buildSpec
        ?basicAuthCredentials ?thumbnailUrl ?enablePerformanceMode
        ?enableBasicAuth ?totalNumberOfJobs ?activeJobId ?framework
        ?customDomains ?enableSkewProtection ?enableAutoBuild
        ?environmentVariables ?updateTime ?createTime ?enableNotification
        ?displayName ?stage ?tags ?description ?branchName ?branchArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let computeRoleArn =
        field_map json__ "computeRoleArn" ComputeRoleArn.of_json in
      let backend = field_map json__ "backend" Backend.of_json in
      let backendEnvironmentArn =
        field_map json__ "backendEnvironmentArn"
          BackendEnvironmentArn.of_json in
      let sourceBranch = field_map json__ "sourceBranch" BranchName.of_json in
      let destinationBranch =
        field_map json__ "destinationBranch" BranchName.of_json in
      let pullRequestEnvironmentName =
        field_map json__ "pullRequestEnvironmentName"
          PullRequestEnvironmentName.of_json in
      let enablePullRequestPreview =
        field_map json__ "enablePullRequestPreview"
          EnablePullRequestPreview.of_json in
      let associatedResources =
        field_map json__ "associatedResources" AssociatedResources.of_json in
      let ttl = field_map json__ "ttl" TTL.of_json in
      let buildSpec = field_map json__ "buildSpec" BuildSpec.of_json in
      let basicAuthCredentials =
        field_map json__ "basicAuthCredentials" BasicAuthCredentials.of_json in
      let thumbnailUrl = field_map json__ "thumbnailUrl" ThumbnailUrl.of_json in
      let enablePerformanceMode =
        field_map json__ "enablePerformanceMode"
          EnablePerformanceMode.of_json in
      let enableBasicAuth =
        field_map json__ "enableBasicAuth" EnableBasicAuth.of_json in
      let totalNumberOfJobs =
        field_map json__ "totalNumberOfJobs" TotalNumberOfJobs.of_json in
      let activeJobId = field_map json__ "activeJobId" ActiveJobId.of_json in
      let framework = field_map json__ "framework" Framework.of_json in
      let customDomains =
        field_map json__ "customDomains" CustomDomains.of_json in
      let enableSkewProtection =
        field_map json__ "enableSkewProtection" EnableSkewProtection.of_json in
      let enableAutoBuild =
        field_map json__ "enableAutoBuild" EnableAutoBuild.of_json in
      let environmentVariables =
        field_map json__ "environmentVariables" EnvironmentVariables.of_json in
      let updateTime = field_map json__ "updateTime" UpdateTime.of_json in
      let createTime = field_map json__ "createTime" CreateTime.of_json in
      let enableNotification =
        field_map json__ "enableNotification" EnableNotification.of_json in
      let displayName = field_map json__ "displayName" DisplayName.of_json in
      let stage = field_map json__ "stage" Stage.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let description = field_map json__ "description" Description.of_json in
      let branchName = field_map json__ "branchName" BranchName.of_json in
      let branchArn = field_map json__ "branchArn" BranchArn.of_json in
      make ?computeRoleArn ?backend ?backendEnvironmentArn ?sourceBranch
        ?destinationBranch ?pullRequestEnvironmentName
        ?enablePullRequestPreview ?associatedResources ?ttl ?buildSpec
        ?basicAuthCredentials ?thumbnailUrl ?enablePerformanceMode
        ?enableBasicAuth ?totalNumberOfJobs ?activeJobId ?framework
        ?customDomains ?enableSkewProtection ?enableAutoBuild
        ?environmentVariables ?updateTime ?createTime ?enableNotification
        ?displayName ?stage ?tags ?description ?branchName ?branchArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The branch for an Amplify app, which maps to a third-party repository branch."]
module BackendEnvironment =
  struct
    type nonrec t =
      {
      backendEnvironmentArn: BackendEnvironmentArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for a backend environment that is part of an Amplify app."];
      environmentName: EnvironmentName.t option
        [@ocaml.doc
          "The name for a backend environment that is part of an Amplify app."];
      stackName: StackName.t option
        [@ocaml.doc
          "The AWS CloudFormation stack name of a backend environment."];
      deploymentArtifacts: DeploymentArtifacts.t option
        [@ocaml.doc "The name of deployment artifacts."];
      createTime: CreateTime.t option
        [@ocaml.doc
          "The creation date and time for a backend environment that is part of an Amplify app."];
      updateTime: UpdateTime.t option
        [@ocaml.doc
          "The last updated date and time for a backend environment that is part of an Amplify app."]}
    let make ?backendEnvironmentArn =
      fun ?environmentName ->
        fun ?stackName ->
          fun ?deploymentArtifacts ->
            fun ?createTime ->
              fun ?updateTime ->
                fun () ->
                  {
                    backendEnvironmentArn;
                    environmentName;
                    stackName;
                    deploymentArtifacts;
                    createTime;
                    updateTime
                  }
    let to_value x =
      structure_to_value
        [("backendEnvironmentArn",
           (Option.map x.backendEnvironmentArn
              ~f:BackendEnvironmentArn.to_value));
        ("environmentName",
          (Option.map x.environmentName ~f:EnvironmentName.to_value));
        ("stackName", (Option.map x.stackName ~f:StackName.to_value));
        ("deploymentArtifacts",
          (Option.map x.deploymentArtifacts ~f:DeploymentArtifacts.to_value));
        ("createTime", (Option.map x.createTime ~f:CreateTime.to_value));
        ("updateTime", (Option.map x.updateTime ~f:UpdateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateTime =
        (Option.map ~f:UpdateTime.of_xml) (Xml.child xml_arg0 "updateTime") in
      let createTime =
        (Option.map ~f:CreateTime.of_xml) (Xml.child xml_arg0 "createTime") in
      let deploymentArtifacts =
        (Option.map ~f:DeploymentArtifacts.of_xml)
          (Xml.child xml_arg0 "deploymentArtifacts") in
      let stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "stackName") in
      let environmentName =
        (Option.map ~f:EnvironmentName.of_xml)
          (Xml.child xml_arg0 "environmentName") in
      let backendEnvironmentArn =
        (Option.map ~f:BackendEnvironmentArn.of_xml)
          (Xml.child xml_arg0 "backendEnvironmentArn") in
      make ?updateTime ?createTime ?deploymentArtifacts ?stackName
        ?environmentName ?backendEnvironmentArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateTime = field_map json__ "updateTime" UpdateTime.of_json in
      let createTime = field_map json__ "createTime" CreateTime.of_json in
      let deploymentArtifacts =
        field_map json__ "deploymentArtifacts" DeploymentArtifacts.of_json in
      let stackName = field_map json__ "stackName" StackName.of_json in
      let environmentName =
        field_map json__ "environmentName" EnvironmentName.of_json in
      let backendEnvironmentArn =
        field_map json__ "backendEnvironmentArn"
          BackendEnvironmentArn.of_json in
      make ?updateTime ?createTime ?deploymentArtifacts ?stackName
        ?environmentName ?backendEnvironmentArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the backend environment associated with a Branch of a Gen 1 Amplify app. Amplify Gen 1 applications are created using Amplify Studio or the Amplify command line interface (CLI)."]
module Artifact =
  struct
    type nonrec t =
      {
      artifactFileName: ArtifactFileName.t option
        [@ocaml.doc "The file name for the artifact."];
      artifactId: ArtifactId.t option
        [@ocaml.doc "The unique ID for the artifact."]}
    let make ?artifactFileName =
      fun ?artifactId -> fun () -> { artifactFileName; artifactId }
    let to_value x =
      structure_to_value
        [("artifactFileName",
           (Option.map x.artifactFileName ~f:ArtifactFileName.to_value));
        ("artifactId", (Option.map x.artifactId ~f:ArtifactId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let artifactId =
        (Option.map ~f:ArtifactId.of_xml) (Xml.child xml_arg0 "artifactId") in
      let artifactFileName =
        (Option.map ~f:ArtifactFileName.of_xml)
          (Xml.child xml_arg0 "artifactFileName") in
      make ?artifactId ?artifactFileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let artifactId = field_map json__ "artifactId" ArtifactId.of_json in
      let artifactFileName =
        field_map json__ "artifactFileName" ArtifactFileName.of_json in
      make ?artifactId ?artifactFileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an artifact."]
module App =
  struct
    type nonrec t =
      {
      appId: AppId.t option [@ocaml.doc "The unique ID of the Amplify app."];
      appArn: AppArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Amplify app."];
      name: Name.t option [@ocaml.doc "The name for the Amplify app."];
      tags: TagMap.t option [@ocaml.doc "The tag for the Amplify app."];
      description: Description.t option
        [@ocaml.doc "The description for the Amplify app."];
      repository: Repository.t option
        [@ocaml.doc "The Git repository for the Amplify app."];
      platform: Platform.t option
        [@ocaml.doc
          "The platform for the Amplify app. For a static app, set the platform type to WEB. For a dynamic server-side rendered (SSR) app, set the platform type to WEB_COMPUTE. For an app requiring Amplify Hosting's original SSR support only, set the platform type to WEB_DYNAMIC. If you are deploying an SSG only app with Next.js 14 or later, you must use the platform type WEB_COMPUTE."];
      createTime: CreateTime.t option
        [@ocaml.doc "A timestamp of when Amplify created the application."];
      updateTime: UpdateTime.t option
        [@ocaml.doc "A timestamp of when Amplify updated the application."];
      computeRoleArn: ComputeRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role for an SSR app. The Compute role allows the Amplify Hosting compute service to securely access specific Amazon Web Services resources based on the role's permissions. For more information about the SSR Compute role, see Adding an SSR Compute role in the Amplify User Guide."];
      iamServiceRoleArn: ServiceRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM service role for the Amplify app."];
      environmentVariables: EnvironmentVariables.t option
        [@ocaml.doc
          "The environment variables for the Amplify app. For a list of the environment variables that are accessible to Amplify by default, see Amplify Environment variables in the Amplify Hosting User Guide."];
      defaultDomain: DefaultDomain.t option
        [@ocaml.doc "The default domain for the Amplify app."];
      enableBranchAutoBuild: EnableBranchAutoBuild.t option
        [@ocaml.doc
          "Enables the auto-building of branches for the Amplify app."];
      enableBranchAutoDeletion: EnableBranchAutoDeletion.t option
        [@ocaml.doc
          "Automatically disconnect a branch in the Amplify console when you delete a branch from your Git repository."];
      enableBasicAuth: EnableBasicAuth.t option
        [@ocaml.doc
          "Enables basic authorization for the Amplify app's branches."];
      basicAuthCredentials: BasicAuthCredentials.t option
        [@ocaml.doc
          "The basic authorization credentials for branches for the Amplify app. You must base64-encode the authorization credentials and provide them in the format user:password."];
      customRules: CustomRules.t option
        [@ocaml.doc
          "Describes the custom redirect and rewrite rules for the Amplify app."];
      productionBranch: ProductionBranch.t option
        [@ocaml.doc
          "Describes the information about a production branch of the Amplify app."];
      buildSpec: BuildSpec.t option
        [@ocaml.doc
          "Describes the content of the build specification (build spec) for the Amplify app."];
      customHeaders: CustomHeaders.t option
        [@ocaml.doc "Describes the custom HTTP headers for the Amplify app."];
      enableAutoBranchCreation: EnableAutoBranchCreation.t option
        [@ocaml.doc "Enables automated branch creation for the Amplify app."];
      autoBranchCreationPatterns: AutoBranchCreationPatterns.t option
        [@ocaml.doc
          "Describes the automated branch creation glob patterns for the Amplify app."];
      autoBranchCreationConfig: AutoBranchCreationConfig.t option
        [@ocaml.doc
          "Describes the automated branch creation configuration for the Amplify app."];
      repositoryCloneMethod: RepositoryCloneMethod.t option
        [@ocaml.doc
          "This is for internal use. The Amplify service uses this parameter to specify the authentication protocol to use to access the Git repository for an Amplify app. Amplify specifies TOKEN for a GitHub repository, SIGV4 for an Amazon Web Services CodeCommit repository, and SSH for GitLab and Bitbucket repositories."];
      cacheConfig: CacheConfig.t option
        [@ocaml.doc
          "The cache configuration for the Amplify app. If you don't specify the cache configuration type, Amplify uses the default AMPLIFY_MANAGED setting."];
      webhookCreateTime: WebhookCreateTime.t option
        [@ocaml.doc
          "A timestamp of when Amplify created the webhook in your Git repository."];
      wafConfiguration: WafConfiguration.t option
        [@ocaml.doc
          "Describes the Firewall configuration for the Amplify app. Firewall support enables you to protect your hosted applications with a direct integration with WAF."];
      jobConfig: JobConfig.t option
        [@ocaml.doc
          "The configuration details that apply to the jobs for an Amplify app."]}
    let make ?appId =
      fun ?appArn ->
        fun ?name ->
          fun ?tags ->
            fun ?description ->
              fun ?repository ->
                fun ?platform ->
                  fun ?createTime ->
                    fun ?updateTime ->
                      fun ?computeRoleArn ->
                        fun ?iamServiceRoleArn ->
                          fun ?environmentVariables ->
                            fun ?defaultDomain ->
                              fun ?enableBranchAutoBuild ->
                                fun ?enableBranchAutoDeletion ->
                                  fun ?enableBasicAuth ->
                                    fun ?basicAuthCredentials ->
                                      fun ?customRules ->
                                        fun ?productionBranch ->
                                          fun ?buildSpec ->
                                            fun ?customHeaders ->
                                              fun ?enableAutoBranchCreation
                                                ->
                                                fun
                                                  ?autoBranchCreationPatterns
                                                  ->
                                                  fun
                                                    ?autoBranchCreationConfig
                                                    ->
                                                    fun
                                                      ?repositoryCloneMethod
                                                      ->
                                                      fun ?cacheConfig ->
                                                        fun
                                                          ?webhookCreateTime
                                                          ->
                                                          fun
                                                            ?wafConfiguration
                                                            ->
                                                            fun ?jobConfig ->
                                                              fun () ->
                                                                {
                                                                  appId;
                                                                  appArn;
                                                                  name;
                                                                  tags;
                                                                  description;
                                                                  repository;
                                                                  platform;
                                                                  createTime;
                                                                  updateTime;
                                                                  computeRoleArn;
                                                                  iamServiceRoleArn;
                                                                  environmentVariables;
                                                                  defaultDomain;
                                                                  enableBranchAutoBuild;
                                                                  enableBranchAutoDeletion;
                                                                  enableBasicAuth;
                                                                  basicAuthCredentials;
                                                                  customRules;
                                                                  productionBranch;
                                                                  buildSpec;
                                                                  customHeaders;
                                                                  enableAutoBranchCreation;
                                                                  autoBranchCreationPatterns;
                                                                  autoBranchCreationConfig;
                                                                  repositoryCloneMethod;
                                                                  cacheConfig;
                                                                  webhookCreateTime;
                                                                  wafConfiguration;
                                                                  jobConfig
                                                                }
    let to_value x =
      structure_to_value
        [("appId", (Option.map x.appId ~f:AppId.to_value));
        ("appArn", (Option.map x.appArn ~f:AppArn.to_value));
        ("name", (Option.map x.name ~f:Name.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("repository", (Option.map x.repository ~f:Repository.to_value));
        ("platform", (Option.map x.platform ~f:Platform.to_value));
        ("createTime", (Option.map x.createTime ~f:CreateTime.to_value));
        ("updateTime", (Option.map x.updateTime ~f:UpdateTime.to_value));
        ("computeRoleArn",
          (Option.map x.computeRoleArn ~f:ComputeRoleArn.to_value));
        ("iamServiceRoleArn",
          (Option.map x.iamServiceRoleArn ~f:ServiceRoleArn.to_value));
        ("environmentVariables",
          (Option.map x.environmentVariables ~f:EnvironmentVariables.to_value));
        ("defaultDomain",
          (Option.map x.defaultDomain ~f:DefaultDomain.to_value));
        ("enableBranchAutoBuild",
          (Option.map x.enableBranchAutoBuild
             ~f:EnableBranchAutoBuild.to_value));
        ("enableBranchAutoDeletion",
          (Option.map x.enableBranchAutoDeletion
             ~f:EnableBranchAutoDeletion.to_value));
        ("enableBasicAuth",
          (Option.map x.enableBasicAuth ~f:EnableBasicAuth.to_value));
        ("basicAuthCredentials",
          (Option.map x.basicAuthCredentials ~f:BasicAuthCredentials.to_value));
        ("customRules", (Option.map x.customRules ~f:CustomRules.to_value));
        ("productionBranch",
          (Option.map x.productionBranch ~f:ProductionBranch.to_value));
        ("buildSpec", (Option.map x.buildSpec ~f:BuildSpec.to_value));
        ("customHeaders",
          (Option.map x.customHeaders ~f:CustomHeaders.to_value));
        ("enableAutoBranchCreation",
          (Option.map x.enableAutoBranchCreation
             ~f:EnableAutoBranchCreation.to_value));
        ("autoBranchCreationPatterns",
          (Option.map x.autoBranchCreationPatterns
             ~f:AutoBranchCreationPatterns.to_value));
        ("autoBranchCreationConfig",
          (Option.map x.autoBranchCreationConfig
             ~f:AutoBranchCreationConfig.to_value));
        ("repositoryCloneMethod",
          (Option.map x.repositoryCloneMethod
             ~f:RepositoryCloneMethod.to_value));
        ("cacheConfig", (Option.map x.cacheConfig ~f:CacheConfig.to_value));
        ("webhookCreateTime",
          (Option.map x.webhookCreateTime ~f:WebhookCreateTime.to_value));
        ("wafConfiguration",
          (Option.map x.wafConfiguration ~f:WafConfiguration.to_value));
        ("jobConfig", (Option.map x.jobConfig ~f:JobConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobConfig =
        (Option.map ~f:JobConfig.of_xml) (Xml.child xml_arg0 "jobConfig") in
      let wafConfiguration =
        (Option.map ~f:WafConfiguration.of_xml)
          (Xml.child xml_arg0 "wafConfiguration") in
      let webhookCreateTime =
        (Option.map ~f:WebhookCreateTime.of_xml)
          (Xml.child xml_arg0 "webhookCreateTime") in
      let cacheConfig =
        (Option.map ~f:CacheConfig.of_xml) (Xml.child xml_arg0 "cacheConfig") in
      let repositoryCloneMethod =
        (Option.map ~f:RepositoryCloneMethod.of_xml)
          (Xml.child xml_arg0 "repositoryCloneMethod") in
      let autoBranchCreationConfig =
        (Option.map ~f:AutoBranchCreationConfig.of_xml)
          (Xml.child xml_arg0 "autoBranchCreationConfig") in
      let autoBranchCreationPatterns =
        (Option.map ~f:AutoBranchCreationPatterns.of_xml)
          (Xml.child xml_arg0 "autoBranchCreationPatterns") in
      let enableAutoBranchCreation =
        (Option.map ~f:EnableAutoBranchCreation.of_xml)
          (Xml.child xml_arg0 "enableAutoBranchCreation") in
      let customHeaders =
        (Option.map ~f:CustomHeaders.of_xml)
          (Xml.child xml_arg0 "customHeaders") in
      let buildSpec =
        (Option.map ~f:BuildSpec.of_xml) (Xml.child xml_arg0 "buildSpec") in
      let productionBranch =
        (Option.map ~f:ProductionBranch.of_xml)
          (Xml.child xml_arg0 "productionBranch") in
      let customRules =
        (Option.map ~f:CustomRules.of_xml) (Xml.child xml_arg0 "customRules") in
      let basicAuthCredentials =
        (Option.map ~f:BasicAuthCredentials.of_xml)
          (Xml.child xml_arg0 "basicAuthCredentials") in
      let enableBasicAuth =
        (Option.map ~f:EnableBasicAuth.of_xml)
          (Xml.child xml_arg0 "enableBasicAuth") in
      let enableBranchAutoDeletion =
        (Option.map ~f:EnableBranchAutoDeletion.of_xml)
          (Xml.child xml_arg0 "enableBranchAutoDeletion") in
      let enableBranchAutoBuild =
        (Option.map ~f:EnableBranchAutoBuild.of_xml)
          (Xml.child xml_arg0 "enableBranchAutoBuild") in
      let defaultDomain =
        (Option.map ~f:DefaultDomain.of_xml)
          (Xml.child xml_arg0 "defaultDomain") in
      let environmentVariables =
        (Option.map ~f:EnvironmentVariables.of_xml)
          (Xml.child xml_arg0 "environmentVariables") in
      let iamServiceRoleArn =
        (Option.map ~f:ServiceRoleArn.of_xml)
          (Xml.child xml_arg0 "iamServiceRoleArn") in
      let computeRoleArn =
        (Option.map ~f:ComputeRoleArn.of_xml)
          (Xml.child xml_arg0 "computeRoleArn") in
      let updateTime =
        (Option.map ~f:UpdateTime.of_xml) (Xml.child xml_arg0 "updateTime") in
      let createTime =
        (Option.map ~f:CreateTime.of_xml) (Xml.child xml_arg0 "createTime") in
      let platform =
        (Option.map ~f:Platform.of_xml) (Xml.child xml_arg0 "platform") in
      let repository =
        (Option.map ~f:Repository.of_xml) (Xml.child xml_arg0 "repository") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "name") in
      let appArn =
        (Option.map ~f:AppArn.of_xml) (Xml.child xml_arg0 "appArn") in
      let appId = (Option.map ~f:AppId.of_xml) (Xml.child xml_arg0 "appId") in
      make ?jobConfig ?wafConfiguration ?webhookCreateTime ?cacheConfig
        ?repositoryCloneMethod ?autoBranchCreationConfig
        ?autoBranchCreationPatterns ?enableAutoBranchCreation ?customHeaders
        ?buildSpec ?productionBranch ?customRules ?basicAuthCredentials
        ?enableBasicAuth ?enableBranchAutoDeletion ?enableBranchAutoBuild
        ?defaultDomain ?environmentVariables ?iamServiceRoleArn
        ?computeRoleArn ?updateTime ?createTime ?platform ?repository
        ?description ?tags ?name ?appArn ?appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobConfig = field_map json__ "jobConfig" JobConfig.of_json in
      let wafConfiguration =
        field_map json__ "wafConfiguration" WafConfiguration.of_json in
      let webhookCreateTime =
        field_map json__ "webhookCreateTime" WebhookCreateTime.of_json in
      let cacheConfig = field_map json__ "cacheConfig" CacheConfig.of_json in
      let repositoryCloneMethod =
        field_map json__ "repositoryCloneMethod"
          RepositoryCloneMethod.of_json in
      let autoBranchCreationConfig =
        field_map json__ "autoBranchCreationConfig"
          AutoBranchCreationConfig.of_json in
      let autoBranchCreationPatterns =
        field_map json__ "autoBranchCreationPatterns"
          AutoBranchCreationPatterns.of_json in
      let enableAutoBranchCreation =
        field_map json__ "enableAutoBranchCreation"
          EnableAutoBranchCreation.of_json in
      let customHeaders =
        field_map json__ "customHeaders" CustomHeaders.of_json in
      let buildSpec = field_map json__ "buildSpec" BuildSpec.of_json in
      let productionBranch =
        field_map json__ "productionBranch" ProductionBranch.of_json in
      let customRules = field_map json__ "customRules" CustomRules.of_json in
      let basicAuthCredentials =
        field_map json__ "basicAuthCredentials" BasicAuthCredentials.of_json in
      let enableBasicAuth =
        field_map json__ "enableBasicAuth" EnableBasicAuth.of_json in
      let enableBranchAutoDeletion =
        field_map json__ "enableBranchAutoDeletion"
          EnableBranchAutoDeletion.of_json in
      let enableBranchAutoBuild =
        field_map json__ "enableBranchAutoBuild"
          EnableBranchAutoBuild.of_json in
      let defaultDomain =
        field_map json__ "defaultDomain" DefaultDomain.of_json in
      let environmentVariables =
        field_map json__ "environmentVariables" EnvironmentVariables.of_json in
      let iamServiceRoleArn =
        field_map json__ "iamServiceRoleArn" ServiceRoleArn.of_json in
      let computeRoleArn =
        field_map json__ "computeRoleArn" ComputeRoleArn.of_json in
      let updateTime = field_map json__ "updateTime" UpdateTime.of_json in
      let createTime = field_map json__ "createTime" CreateTime.of_json in
      let platform = field_map json__ "platform" Platform.of_json in
      let repository = field_map json__ "repository" Repository.of_json in
      let description = field_map json__ "description" Description.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let name = field_map json__ "name" Name.of_json in
      let appArn = field_map json__ "appArn" AppArn.of_json in
      let appId = field_map json__ "appId" AppId.of_json in
      make ?jobConfig ?wafConfiguration ?webhookCreateTime ?cacheConfig
        ?repositoryCloneMethod ?autoBranchCreationConfig
        ?autoBranchCreationPatterns ?enableAutoBranchCreation ?customHeaders
        ?buildSpec ?productionBranch ?customRules ?basicAuthCredentials
        ?enableBasicAuth ?enableBranchAutoDeletion ?enableBranchAutoBuild
        ?defaultDomain ?environmentVariables ?iamServiceRoleArn
        ?computeRoleArn ?updateTime ?createTime ?platform ?repository
        ?description ?tags ?name ?appArn ?appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the different branches of a repository for building, deploying, and hosting an Amplify app."]
module Steps =
  struct
    type nonrec t = Step.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:Step.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:Step.of_xml)
    let of_json j = list_of_json ~kind:"Steps" ~of_json:Step.of_json j
    let to_json v = composed_to_json to_value v
  end
module FileName =
  struct
    type nonrec t = string
    let context_ = "FileName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FileName" j
    let to_json = simple_to_json to_value
  end
module UploadUrl =
  struct
    type nonrec t = string
    let context_ = "UploadUrl"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"UploadUrl" j
    let to_json = simple_to_json to_value
  end
module MD5Hash =
  struct
    type nonrec t = string
    let context_ = "MD5Hash"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:32) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MD5Hash" j
    let to_json = simple_to_json to_value
  end
module BadRequestException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request contains unexpected data."]
module DependentServiceFailureException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An operation failed because a dependent service threw an exception."]
module InternalFailureException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The service failed to perform an operation due to an internal issue."]
module NotFoundException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An entity was not found during an operation."]
module UnauthorizedException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An operation failed due to a lack of access."]
module CertificateSettings =
  struct
    type nonrec t =
      {
      type_: CertificateType.t
        [@ocaml.doc
          "The certificate type. Specify AMPLIFY_MANAGED to use the default certificate that Amplify provisions for you. Specify CUSTOM to use your own certificate that you have already added to Certificate Manager in your Amazon Web Services account. Make sure you request (or import) the certificate in the US East (N. Virginia) Region (us-east-1). For more information about using ACM, see Importing certificates into Certificate Manager in the ACM User guide."];
      customCertificateArn: CertificateArn.t option
        [@ocaml.doc
          "The Amazon resource name (ARN) for the custom certificate that you have already added to Certificate Manager in your Amazon Web Services account. This field is required only when the certificate type is CUSTOM."]}
    let context_ = "CertificateSettings"
    let make ?customCertificateArn =
      fun ~type_ -> fun () -> { customCertificateArn; type_ }
    let to_value x =
      structure_to_value
        [("type", (Some (CertificateType.to_value x.type_)));
        ("customCertificateArn",
          (Option.map x.customCertificateArn ~f:CertificateArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customCertificateArn =
        (Option.map ~f:CertificateArn.of_xml)
          (Xml.child xml_arg0 "customCertificateArn") in
      let type_ =
        CertificateType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?customCertificateArn ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customCertificateArn =
        field_map json__ "customCertificateArn" CertificateArn.of_json in
      let type_ = field_map_exn json__ "type" CertificateType.of_json in
      make ?customCertificateArn ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The type of SSL/TLS certificate to use for your custom domain. If a certificate type isn't specified, Amplify uses the default AMPLIFY_MANAGED certificate."]
module SubDomainSettings =
  struct
    type nonrec t = SubDomainSetting.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:500); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SubDomainSetting.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:SubDomainSetting.of_xml)
    let of_json j =
      list_of_json ~kind:"SubDomainSettings"
        ~of_json:SubDomainSetting.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessToken =
  struct
    type nonrec t = string
    let context_ = "AccessToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"(?s).+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccessToken" j
    let to_json = simple_to_json to_value
  end
module OauthToken =
  struct
    type nonrec t = string
    let context_ = "OauthToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OauthToken" j
    let to_json = simple_to_json to_value
  end
module ResourceNotFoundException =
  struct
    type nonrec t = {
      code: Code.t option ;
      message: ErrorMessage.t option }
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("code", (Option.map x.code ~f:Code.to_value));
        ("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      let code = (Option.map ~f:Code.of_xml) (Xml.child xml_arg0 "code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      let code = field_map json__ "code" Code.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An operation failed due to a non-existent resource."]
module ResourceArn =
  struct
    type nonrec t = string
    let context_ = "ResourceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"^arn:aws:amplify:.*")));
        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:"ResourceArn" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min: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 LimitExceededException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A resource could not be created because service quotas were exceeded."]
module JobReason =
  struct
    type nonrec t = string
    let context_ = "JobReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"JobReason" j
    let to_json = simple_to_json to_value
  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:2000) >>=
             (fun () -> check_pattern i ~pattern:"(?s).*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module Webhooks =
  struct
    type nonrec t = Webhook.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:Webhook.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:Webhook.of_xml)
    let of_json j = list_of_json ~kind:"Webhooks" ~of_json:Webhook.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module JobSummaries =
  struct
    type nonrec t = JobSummary.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:JobSummary.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:JobSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"JobSummaries" ~of_json:JobSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module DomainAssociations =
  struct
    type nonrec t = DomainAssociation.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:255); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DomainAssociation.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:DomainAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainAssociations"
        ~of_json:DomainAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module Branches =
  struct
    type nonrec t = Branch.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:255); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Branch.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:Branch.of_xml)
    let of_json j = list_of_json ~kind:"Branches" ~of_json:Branch.of_json j
    let to_json v = composed_to_json to_value v
  end
module BackendEnvironments =
  struct
    type nonrec t = BackendEnvironment.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:BackendEnvironment.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:BackendEnvironment.of_xml)
    let of_json j =
      list_of_json ~kind:"BackendEnvironments"
        ~of_json:BackendEnvironment.of_json j
    let to_json v = composed_to_json to_value v
  end
module Artifacts =
  struct
    type nonrec t = Artifact.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:Artifact.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:Artifact.of_xml)
    let of_json j =
      list_of_json ~kind:"Artifacts" ~of_json:Artifact.of_json j
    let to_json v = composed_to_json to_value v
  end
module Apps =
  struct
    type nonrec t = App.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:App.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:App.of_xml)
    let of_json j = list_of_json ~kind:"Apps" ~of_json:App.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResultsForListApps =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResultsForListApps" 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 Job =
  struct
    type nonrec t =
      {
      summary: JobSummary.t option
        [@ocaml.doc
          "Describes the summary for an execution job for an Amplify app."];
      steps: Steps.t option
        [@ocaml.doc
          "The execution steps for an execution job, for an Amplify app."]}
    let make ?summary = fun ?steps -> fun () -> { summary; steps }
    let to_value x =
      structure_to_value
        [("summary", (Option.map x.summary ~f:JobSummary.to_value));
        ("steps", (Option.map x.steps ~f:Steps.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let steps = (Option.map ~f:Steps.of_xml) (Xml.child xml_arg0 "steps") in
      let summary =
        (Option.map ~f:JobSummary.of_xml) (Xml.child xml_arg0 "summary") in
      make ?steps ?summary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let steps = field_map json__ "steps" Steps.of_json in
      let summary = field_map json__ "summary" JobSummary.of_json in
      make ?steps ?summary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an execution job for an Amplify app."]
module ArtifactUrl =
  struct
    type nonrec t = string
    let context_ = "ArtifactUrl"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); 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:"ArtifactUrl" j
    let to_json = simple_to_json to_value
  end
module FileUploadUrls =
  struct
    type nonrec t = (FileName.t * UploadUrl.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((FileName.of_string chopped),
                              (UploadUrl.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (FileName.to_value x) |>
                    (fun x -> (UploadUrl.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:FileName.of_string
        ~of_json:UploadUrl.of_json j
    let to_json v = composed_to_json to_value v
  end
module FileMap =
  struct
    type nonrec t = (FileName.t * MD5Hash.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((FileName.of_string chopped),
                              (MD5Hash.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (FileName.to_value x) |>
                    (fun x -> (MD5Hash.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:FileName.of_string
        ~of_json:MD5Hash.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateWebhookResult =
  struct
    type nonrec t =
      {
      webhook: Webhook.t option
        [@ocaml.doc
          "Describes a webhook that connects repository events to an Amplify app."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `DependentServiceFailureException of
          DependentServiceFailureException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?webhook = fun () -> { webhook }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `DependentServiceFailureException e ->
          `Assoc
            [("error", (`String "DependentServiceFailureException"));
            ("details", (DependentServiceFailureException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("webhook", (Option.map x.webhook ~f:Webhook.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhook =
        (Option.map ~f:Webhook.of_xml) (Xml.child xml_arg0 "webhook") in
      make ?webhook ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhook = field_map json__ "webhook" Webhook.of_json in
      make ?webhook ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for the update webhook request."]
module UpdateWebhookRequest =
  struct
    type nonrec t =
      {
      webhookId: WebhookId.t [@ocaml.doc "The unique ID for a webhook."];
      branchName: BranchName.t option
        [@ocaml.doc "The name for a branch that is part of an Amplify app."];
      description: Description.t option
        [@ocaml.doc "The description for a webhook."]}
    let context_ = "UpdateWebhookRequest"
    let make ?branchName =
      fun ?description ->
        fun ~webhookId -> fun () -> { branchName; description; webhookId }
    let to_value x =
      structure_to_value
        [("webhookId", (Some (WebhookId.to_value x.webhookId)));
        ("branchName", (Option.map x.branchName ~f:BranchName.to_value));
        ("description", (Option.map x.description ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let branchName =
        (Option.map ~f:BranchName.of_xml) (Xml.child xml_arg0 "branchName") in
      let webhookId =
        WebhookId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "webhookId") in
      make ?description ?branchName ~webhookId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "description" Description.of_json in
      let branchName = field_map json__ "branchName" BranchName.of_json in
      let webhookId = field_map_exn json__ "webhookId" WebhookId.of_json in
      make ?description ?branchName ~webhookId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the update webhook request."]
module UpdateDomainAssociationResult =
  struct
    type nonrec t =
      {
      domainAssociation: DomainAssociation.t option
        [@ocaml.doc
          "Describes a domain association, which associates a custom domain with an Amplify app."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `DependentServiceFailureException of
          DependentServiceFailureException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainAssociation = fun () -> { domainAssociation }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `DependentServiceFailureException e ->
          `Assoc
            [("error", (`String "DependentServiceFailureException"));
            ("details", (DependentServiceFailureException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("domainAssociation",
           (Option.map x.domainAssociation ~f:DomainAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainAssociation =
        (Option.map ~f:DomainAssociation.of_xml)
          (Xml.child xml_arg0 "domainAssociation") in
      make ?domainAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainAssociation =
        field_map json__ "domainAssociation" DomainAssociation.of_json in
      make ?domainAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result structure for the update domain association request."]
module UpdateDomainAssociationRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      domainName: DomainName.t [@ocaml.doc "The name of the domain."];
      enableAutoSubDomain: EnableAutoSubDomain.t option
        [@ocaml.doc
          "Enables the automated creation of subdomains for branches."];
      subDomainSettings: SubDomainSettings.t option
        [@ocaml.doc "Describes the settings for the subdomain."];
      autoSubDomainCreationPatterns: AutoSubDomainCreationPatterns.t option
        [@ocaml.doc
          "Sets the branch patterns for automatic subdomain creation."];
      autoSubDomainIAMRole: AutoSubDomainIAMRole.t option
        [@ocaml.doc
          "The required AWS Identity and Access Management (IAM) service role for the Amazon Resource Name (ARN) for automatically creating subdomains."];
      certificateSettings: CertificateSettings.t option
        [@ocaml.doc
          "The type of SSL/TLS certificate to use for your custom domain."]}
    let context_ = "UpdateDomainAssociationRequest"
    let make ?enableAutoSubDomain =
      fun ?subDomainSettings ->
        fun ?autoSubDomainCreationPatterns ->
          fun ?autoSubDomainIAMRole ->
            fun ?certificateSettings ->
              fun ~appId ->
                fun ~domainName ->
                  fun () ->
                    {
                      enableAutoSubDomain;
                      subDomainSettings;
                      autoSubDomainCreationPatterns;
                      autoSubDomainIAMRole;
                      certificateSettings;
                      appId;
                      domainName
                    }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("domainName", (Some (DomainName.to_value x.domainName)));
        ("enableAutoSubDomain",
          (Option.map x.enableAutoSubDomain ~f:EnableAutoSubDomain.to_value));
        ("subDomainSettings",
          (Option.map x.subDomainSettings ~f:SubDomainSettings.to_value));
        ("autoSubDomainCreationPatterns",
          (Option.map x.autoSubDomainCreationPatterns
             ~f:AutoSubDomainCreationPatterns.to_value));
        ("autoSubDomainIAMRole",
          (Option.map x.autoSubDomainIAMRole ~f:AutoSubDomainIAMRole.to_value));
        ("certificateSettings",
          (Option.map x.certificateSettings ~f:CertificateSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateSettings =
        (Option.map ~f:CertificateSettings.of_xml)
          (Xml.child xml_arg0 "certificateSettings") in
      let autoSubDomainIAMRole =
        (Option.map ~f:AutoSubDomainIAMRole.of_xml)
          (Xml.child xml_arg0 "autoSubDomainIAMRole") in
      let autoSubDomainCreationPatterns =
        (Option.map ~f:AutoSubDomainCreationPatterns.of_xml)
          (Xml.child xml_arg0 "autoSubDomainCreationPatterns") in
      let subDomainSettings =
        (Option.map ~f:SubDomainSettings.of_xml)
          (Xml.child xml_arg0 "subDomainSettings") in
      let enableAutoSubDomain =
        (Option.map ~f:EnableAutoSubDomain.of_xml)
          (Xml.child xml_arg0 "enableAutoSubDomain") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "domainName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?certificateSettings ?autoSubDomainIAMRole
        ?autoSubDomainCreationPatterns ?subDomainSettings
        ?enableAutoSubDomain ~domainName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateSettings =
        field_map json__ "certificateSettings" CertificateSettings.of_json in
      let autoSubDomainIAMRole =
        field_map json__ "autoSubDomainIAMRole" AutoSubDomainIAMRole.of_json in
      let autoSubDomainCreationPatterns =
        field_map json__ "autoSubDomainCreationPatterns"
          AutoSubDomainCreationPatterns.of_json in
      let subDomainSettings =
        field_map json__ "subDomainSettings" SubDomainSettings.of_json in
      let enableAutoSubDomain =
        field_map json__ "enableAutoSubDomain" EnableAutoSubDomain.of_json in
      let domainName = field_map_exn json__ "domainName" DomainName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?certificateSettings ?autoSubDomainIAMRole
        ?autoSubDomainCreationPatterns ?subDomainSettings
        ?enableAutoSubDomain ~domainName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request structure for the update domain association request."]
module UpdateBranchResult =
  struct
    type nonrec t =
      {
      branch: Branch.t option
        [@ocaml.doc
          "The branch for an Amplify app, which maps to a third-party repository branch."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `DependentServiceFailureException of
          DependentServiceFailureException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?branch = fun () -> { branch }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `DependentServiceFailureException e ->
          `Assoc
            [("error", (`String "DependentServiceFailureException"));
            ("details", (DependentServiceFailureException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("branch", (Option.map x.branch ~f:Branch.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let branch =
        (Option.map ~f:Branch.of_xml) (Xml.child xml_arg0 "branch") in
      make ?branch ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let branch = field_map json__ "branch" Branch.of_json in
      make ?branch ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for the update branch request."]
module UpdateBranchRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      branchName: BranchName.t [@ocaml.doc "The name of the branch."];
      description: Description.t option
        [@ocaml.doc "The description for the branch."];
      framework: Framework.t option
        [@ocaml.doc "The framework for the branch."];
      stage: Stage.t option
        [@ocaml.doc "Describes the current stage for the branch."];
      enableNotification: EnableNotification.t option
        [@ocaml.doc "Enables notifications for the branch."];
      enableAutoBuild: EnableAutoBuild.t option
        [@ocaml.doc "Enables auto building for the branch."];
      enableSkewProtection: EnableSkewProtection.t option
        [@ocaml.doc
          "Specifies whether the skew protection feature is enabled for the branch. Deployment skew protection is available to Amplify applications to eliminate version skew issues between client and servers in web applications. When you apply skew protection to a branch, you can ensure that your clients always interact with the correct version of server-side assets, regardless of when a deployment occurs. For more information about skew protection, see Skew protection for Amplify deployments in the Amplify User Guide."];
      environmentVariables: EnvironmentVariables.t option
        [@ocaml.doc "The environment variables for the branch."];
      basicAuthCredentials: BasicAuthCredentials.t option
        [@ocaml.doc
          "The basic authorization credentials for the branch. You must base64-encode the authorization credentials and provide them in the format user:password."];
      enableBasicAuth: EnableBasicAuth.t option
        [@ocaml.doc "Enables basic authorization for the branch."];
      enablePerformanceMode: EnablePerformanceMode.t option
        [@ocaml.doc
          "Enables performance mode for the branch. Performance mode optimizes for faster hosting performance by keeping content cached at the edge for a longer interval. When performance mode is enabled, hosting configuration or code changes can take up to 10 minutes to roll out."];
      buildSpec: BuildSpec.t option
        [@ocaml.doc "The build specification (build spec) for the branch."];
      ttl: TTL.t option
        [@ocaml.doc
          "The content Time to Live (TTL) for the website in seconds."];
      displayName: DisplayName.t option
        [@ocaml.doc
          "The display name for a branch. This is used as the default domain prefix."];
      enablePullRequestPreview: EnablePullRequestPreview.t option
        [@ocaml.doc "Enables pull request previews for this branch."];
      pullRequestEnvironmentName: PullRequestEnvironmentName.t option
        [@ocaml.doc "The Amplify environment name for the pull request."];
      backendEnvironmentArn: BackendEnvironmentArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for a backend environment that is part of a Gen 1 Amplify app. This field is available to Amplify Gen 1 apps only where the backend is created using Amplify Studio or the Amplify command line interface (CLI)."];
      backend: Backend.t option
        [@ocaml.doc
          "The backend for a Branch of an Amplify app. Use for a backend created from an CloudFormation stack. This field is available to Amplify Gen 2 apps only. When you deploy an application with Amplify Gen 2, you provision the app's backend infrastructure using Typescript code."];
      computeRoleArn: ComputeRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role to assign to a branch of an SSR app. The SSR Compute role allows the Amplify Hosting compute service to securely access specific Amazon Web Services resources based on the role's permissions. For more information about the SSR Compute role, see Adding an SSR Compute role in the Amplify User Guide."]}
    let context_ = "UpdateBranchRequest"
    let make ?description =
      fun ?framework ->
        fun ?stage ->
          fun ?enableNotification ->
            fun ?enableAutoBuild ->
              fun ?enableSkewProtection ->
                fun ?environmentVariables ->
                  fun ?basicAuthCredentials ->
                    fun ?enableBasicAuth ->
                      fun ?enablePerformanceMode ->
                        fun ?buildSpec ->
                          fun ?ttl ->
                            fun ?displayName ->
                              fun ?enablePullRequestPreview ->
                                fun ?pullRequestEnvironmentName ->
                                  fun ?backendEnvironmentArn ->
                                    fun ?backend ->
                                      fun ?computeRoleArn ->
                                        fun ~appId ->
                                          fun ~branchName ->
                                            fun () ->
                                              {
                                                description;
                                                framework;
                                                stage;
                                                enableNotification;
                                                enableAutoBuild;
                                                enableSkewProtection;
                                                environmentVariables;
                                                basicAuthCredentials;
                                                enableBasicAuth;
                                                enablePerformanceMode;
                                                buildSpec;
                                                ttl;
                                                displayName;
                                                enablePullRequestPreview;
                                                pullRequestEnvironmentName;
                                                backendEnvironmentArn;
                                                backend;
                                                computeRoleArn;
                                                appId;
                                                branchName
                                              }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("framework", (Option.map x.framework ~f:Framework.to_value));
        ("stage", (Option.map x.stage ~f:Stage.to_value));
        ("enableNotification",
          (Option.map x.enableNotification ~f:EnableNotification.to_value));
        ("enableAutoBuild",
          (Option.map x.enableAutoBuild ~f:EnableAutoBuild.to_value));
        ("enableSkewProtection",
          (Option.map x.enableSkewProtection ~f:EnableSkewProtection.to_value));
        ("environmentVariables",
          (Option.map x.environmentVariables ~f:EnvironmentVariables.to_value));
        ("basicAuthCredentials",
          (Option.map x.basicAuthCredentials ~f:BasicAuthCredentials.to_value));
        ("enableBasicAuth",
          (Option.map x.enableBasicAuth ~f:EnableBasicAuth.to_value));
        ("enablePerformanceMode",
          (Option.map x.enablePerformanceMode
             ~f:EnablePerformanceMode.to_value));
        ("buildSpec", (Option.map x.buildSpec ~f:BuildSpec.to_value));
        ("ttl", (Option.map x.ttl ~f:TTL.to_value));
        ("displayName", (Option.map x.displayName ~f:DisplayName.to_value));
        ("enablePullRequestPreview",
          (Option.map x.enablePullRequestPreview
             ~f:EnablePullRequestPreview.to_value));
        ("pullRequestEnvironmentName",
          (Option.map x.pullRequestEnvironmentName
             ~f:PullRequestEnvironmentName.to_value));
        ("backendEnvironmentArn",
          (Option.map x.backendEnvironmentArn
             ~f:BackendEnvironmentArn.to_value));
        ("backend", (Option.map x.backend ~f:Backend.to_value));
        ("computeRoleArn",
          (Option.map x.computeRoleArn ~f:ComputeRoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let computeRoleArn =
        (Option.map ~f:ComputeRoleArn.of_xml)
          (Xml.child xml_arg0 "computeRoleArn") in
      let backend =
        (Option.map ~f:Backend.of_xml) (Xml.child xml_arg0 "backend") in
      let backendEnvironmentArn =
        (Option.map ~f:BackendEnvironmentArn.of_xml)
          (Xml.child xml_arg0 "backendEnvironmentArn") in
      let pullRequestEnvironmentName =
        (Option.map ~f:PullRequestEnvironmentName.of_xml)
          (Xml.child xml_arg0 "pullRequestEnvironmentName") in
      let enablePullRequestPreview =
        (Option.map ~f:EnablePullRequestPreview.of_xml)
          (Xml.child xml_arg0 "enablePullRequestPreview") in
      let displayName =
        (Option.map ~f:DisplayName.of_xml) (Xml.child xml_arg0 "displayName") in
      let ttl = (Option.map ~f:TTL.of_xml) (Xml.child xml_arg0 "ttl") in
      let buildSpec =
        (Option.map ~f:BuildSpec.of_xml) (Xml.child xml_arg0 "buildSpec") in
      let enablePerformanceMode =
        (Option.map ~f:EnablePerformanceMode.of_xml)
          (Xml.child xml_arg0 "enablePerformanceMode") in
      let enableBasicAuth =
        (Option.map ~f:EnableBasicAuth.of_xml)
          (Xml.child xml_arg0 "enableBasicAuth") in
      let basicAuthCredentials =
        (Option.map ~f:BasicAuthCredentials.of_xml)
          (Xml.child xml_arg0 "basicAuthCredentials") in
      let environmentVariables =
        (Option.map ~f:EnvironmentVariables.of_xml)
          (Xml.child xml_arg0 "environmentVariables") in
      let enableSkewProtection =
        (Option.map ~f:EnableSkewProtection.of_xml)
          (Xml.child xml_arg0 "enableSkewProtection") in
      let enableAutoBuild =
        (Option.map ~f:EnableAutoBuild.of_xml)
          (Xml.child xml_arg0 "enableAutoBuild") in
      let enableNotification =
        (Option.map ~f:EnableNotification.of_xml)
          (Xml.child xml_arg0 "enableNotification") in
      let stage = (Option.map ~f:Stage.of_xml) (Xml.child xml_arg0 "stage") in
      let framework =
        (Option.map ~f:Framework.of_xml) (Xml.child xml_arg0 "framework") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?computeRoleArn ?backend ?backendEnvironmentArn
        ?pullRequestEnvironmentName ?enablePullRequestPreview ?displayName
        ?ttl ?buildSpec ?enablePerformanceMode ?enableBasicAuth
        ?basicAuthCredentials ?environmentVariables ?enableSkewProtection
        ?enableAutoBuild ?enableNotification ?stage ?framework ?description
        ~branchName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let computeRoleArn =
        field_map json__ "computeRoleArn" ComputeRoleArn.of_json in
      let backend = field_map json__ "backend" Backend.of_json in
      let backendEnvironmentArn =
        field_map json__ "backendEnvironmentArn"
          BackendEnvironmentArn.of_json in
      let pullRequestEnvironmentName =
        field_map json__ "pullRequestEnvironmentName"
          PullRequestEnvironmentName.of_json in
      let enablePullRequestPreview =
        field_map json__ "enablePullRequestPreview"
          EnablePullRequestPreview.of_json in
      let displayName = field_map json__ "displayName" DisplayName.of_json in
      let ttl = field_map json__ "ttl" TTL.of_json in
      let buildSpec = field_map json__ "buildSpec" BuildSpec.of_json in
      let enablePerformanceMode =
        field_map json__ "enablePerformanceMode"
          EnablePerformanceMode.of_json in
      let enableBasicAuth =
        field_map json__ "enableBasicAuth" EnableBasicAuth.of_json in
      let basicAuthCredentials =
        field_map json__ "basicAuthCredentials" BasicAuthCredentials.of_json in
      let environmentVariables =
        field_map json__ "environmentVariables" EnvironmentVariables.of_json in
      let enableSkewProtection =
        field_map json__ "enableSkewProtection" EnableSkewProtection.of_json in
      let enableAutoBuild =
        field_map json__ "enableAutoBuild" EnableAutoBuild.of_json in
      let enableNotification =
        field_map json__ "enableNotification" EnableNotification.of_json in
      let stage = field_map json__ "stage" Stage.of_json in
      let framework = field_map json__ "framework" Framework.of_json in
      let description = field_map json__ "description" Description.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?computeRoleArn ?backend ?backendEnvironmentArn
        ?pullRequestEnvironmentName ?enablePullRequestPreview ?displayName
        ?ttl ?buildSpec ?enablePerformanceMode ?enableBasicAuth
        ?basicAuthCredentials ?environmentVariables ?enableSkewProtection
        ?enableAutoBuild ?enableNotification ?stage ?framework ?description
        ~branchName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the update branch request."]
module UpdateAppResult =
  struct
    type nonrec t =
      {
      app: App.t option [@ocaml.doc "Represents the updated Amplify app."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?app = fun () -> { app }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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 [("app", (Option.map x.app ~f:App.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let app = (Option.map ~f:App.of_xml) (Xml.child xml_arg0 "app") in
      make ?app ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let app = field_map json__ "app" App.of_json in make ?app ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for an Amplify app update request."]
module UpdateAppRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      name: Name.t option [@ocaml.doc "The name for an Amplify app."];
      description: Description.t option
        [@ocaml.doc "The description for an Amplify app."];
      platform: Platform.t option
        [@ocaml.doc
          "The platform for the Amplify app. For a static app, set the platform type to WEB. For a dynamic server-side rendered (SSR) app, set the platform type to WEB_COMPUTE. For an app requiring Amplify Hosting's original SSR support only, set the platform type to WEB_DYNAMIC. If you are deploying an SSG only app with Next.js version 14 or later, you must set the platform type to WEB_COMPUTE."];
      computeRoleArn: ComputeRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role to assign to an SSR app. The SSR Compute role allows the Amplify Hosting compute service to securely access specific Amazon Web Services resources based on the role's permissions. For more information about the SSR Compute role, see Adding an SSR Compute role in the Amplify User Guide."];
      iamServiceRoleArn: ServiceRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM service role for the Amplify app."];
      environmentVariables: EnvironmentVariables.t option
        [@ocaml.doc "The environment variables for an Amplify app."];
      enableBranchAutoBuild: EnableAutoBuild.t option
        [@ocaml.doc "Enables branch auto-building for an Amplify app."];
      enableBranchAutoDeletion: EnableBranchAutoDeletion.t option
        [@ocaml.doc
          "Automatically disconnects a branch in the Amplify console when you delete a branch from your Git repository."];
      enableBasicAuth: EnableBasicAuth.t option
        [@ocaml.doc "Enables basic authorization for an Amplify app."];
      basicAuthCredentials: BasicAuthCredentials.t option
        [@ocaml.doc
          "The basic authorization credentials for an Amplify app. You must base64-encode the authorization credentials and provide them in the format user:password."];
      customRules: CustomRules.t option
        [@ocaml.doc
          "The custom redirect and rewrite rules for an Amplify app."];
      buildSpec: BuildSpec.t option
        [@ocaml.doc
          "The build specification (build spec) for an Amplify app."];
      customHeaders: CustomHeaders.t option
        [@ocaml.doc "The custom HTTP headers for an Amplify app."];
      enableAutoBranchCreation: EnableAutoBranchCreation.t option
        [@ocaml.doc "Enables automated branch creation for an Amplify app."];
      autoBranchCreationPatterns: AutoBranchCreationPatterns.t option
        [@ocaml.doc
          "Describes the automated branch creation glob patterns for an Amplify app."];
      autoBranchCreationConfig: AutoBranchCreationConfig.t option
        [@ocaml.doc
          "The automated branch creation configuration for an Amplify app."];
      repository: Repository.t option
        [@ocaml.doc "The name of the Git repository for an Amplify app."];
      oauthToken: OauthToken.t option
        [@ocaml.doc
          "The OAuth token for a third-party source control system for an Amplify app. The OAuth token is used to create a webhook and a read-only deploy key using SSH cloning. The OAuth token is not stored. Use oauthToken for repository providers other than GitHub, such as Bitbucket or CodeCommit. To authorize access to GitHub as your repository provider, use accessToken. You must specify either oauthToken or accessToken when you update an app. Existing Amplify apps deployed from a GitHub repository using OAuth continue to work with CI/CD. However, we strongly recommend that you migrate these apps to use the GitHub App. For more information, see Migrating an existing OAuth app to the Amplify GitHub App in the Amplify User Guide ."];
      accessToken: AccessToken.t option
        [@ocaml.doc
          "The personal access token for a GitHub repository for an Amplify app. The personal access token is used to authorize access to a GitHub repository using the Amplify GitHub App. The token is not stored. Use accessToken for GitHub repositories only. To authorize access to a repository provider such as Bitbucket or CodeCommit, use oauthToken. You must specify either accessToken or oauthToken when you update an app. Existing Amplify apps deployed from a GitHub repository using OAuth continue to work with CI/CD. However, we strongly recommend that you migrate these apps to use the GitHub App. For more information, see Migrating an existing OAuth app to the Amplify GitHub App in the Amplify User Guide ."];
      jobConfig: JobConfig.t option
        [@ocaml.doc
          "Describes the configuration details that apply to the jobs for an Amplify app."];
      cacheConfig: CacheConfig.t option
        [@ocaml.doc "The cache configuration for the Amplify app."]}
    let context_ = "UpdateAppRequest"
    let make ?name =
      fun ?description ->
        fun ?platform ->
          fun ?computeRoleArn ->
            fun ?iamServiceRoleArn ->
              fun ?environmentVariables ->
                fun ?enableBranchAutoBuild ->
                  fun ?enableBranchAutoDeletion ->
                    fun ?enableBasicAuth ->
                      fun ?basicAuthCredentials ->
                        fun ?customRules ->
                          fun ?buildSpec ->
                            fun ?customHeaders ->
                              fun ?enableAutoBranchCreation ->
                                fun ?autoBranchCreationPatterns ->
                                  fun ?autoBranchCreationConfig ->
                                    fun ?repository ->
                                      fun ?oauthToken ->
                                        fun ?accessToken ->
                                          fun ?jobConfig ->
                                            fun ?cacheConfig ->
                                              fun ~appId ->
                                                fun () ->
                                                  {
                                                    name;
                                                    description;
                                                    platform;
                                                    computeRoleArn;
                                                    iamServiceRoleArn;
                                                    environmentVariables;
                                                    enableBranchAutoBuild;
                                                    enableBranchAutoDeletion;
                                                    enableBasicAuth;
                                                    basicAuthCredentials;
                                                    customRules;
                                                    buildSpec;
                                                    customHeaders;
                                                    enableAutoBranchCreation;
                                                    autoBranchCreationPatterns;
                                                    autoBranchCreationConfig;
                                                    repository;
                                                    oauthToken;
                                                    accessToken;
                                                    jobConfig;
                                                    cacheConfig;
                                                    appId
                                                  }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("name", (Option.map x.name ~f:Name.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("platform", (Option.map x.platform ~f:Platform.to_value));
        ("computeRoleArn",
          (Option.map x.computeRoleArn ~f:ComputeRoleArn.to_value));
        ("iamServiceRoleArn",
          (Option.map x.iamServiceRoleArn ~f:ServiceRoleArn.to_value));
        ("environmentVariables",
          (Option.map x.environmentVariables ~f:EnvironmentVariables.to_value));
        ("enableBranchAutoBuild",
          (Option.map x.enableBranchAutoBuild ~f:EnableAutoBuild.to_value));
        ("enableBranchAutoDeletion",
          (Option.map x.enableBranchAutoDeletion
             ~f:EnableBranchAutoDeletion.to_value));
        ("enableBasicAuth",
          (Option.map x.enableBasicAuth ~f:EnableBasicAuth.to_value));
        ("basicAuthCredentials",
          (Option.map x.basicAuthCredentials ~f:BasicAuthCredentials.to_value));
        ("customRules", (Option.map x.customRules ~f:CustomRules.to_value));
        ("buildSpec", (Option.map x.buildSpec ~f:BuildSpec.to_value));
        ("customHeaders",
          (Option.map x.customHeaders ~f:CustomHeaders.to_value));
        ("enableAutoBranchCreation",
          (Option.map x.enableAutoBranchCreation
             ~f:EnableAutoBranchCreation.to_value));
        ("autoBranchCreationPatterns",
          (Option.map x.autoBranchCreationPatterns
             ~f:AutoBranchCreationPatterns.to_value));
        ("autoBranchCreationConfig",
          (Option.map x.autoBranchCreationConfig
             ~f:AutoBranchCreationConfig.to_value));
        ("repository", (Option.map x.repository ~f:Repository.to_value));
        ("oauthToken", (Option.map x.oauthToken ~f:OauthToken.to_value));
        ("accessToken", (Option.map x.accessToken ~f:AccessToken.to_value));
        ("jobConfig", (Option.map x.jobConfig ~f:JobConfig.to_value));
        ("cacheConfig", (Option.map x.cacheConfig ~f:CacheConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cacheConfig =
        (Option.map ~f:CacheConfig.of_xml) (Xml.child xml_arg0 "cacheConfig") in
      let jobConfig =
        (Option.map ~f:JobConfig.of_xml) (Xml.child xml_arg0 "jobConfig") in
      let accessToken =
        (Option.map ~f:AccessToken.of_xml) (Xml.child xml_arg0 "accessToken") in
      let oauthToken =
        (Option.map ~f:OauthToken.of_xml) (Xml.child xml_arg0 "oauthToken") in
      let repository =
        (Option.map ~f:Repository.of_xml) (Xml.child xml_arg0 "repository") in
      let autoBranchCreationConfig =
        (Option.map ~f:AutoBranchCreationConfig.of_xml)
          (Xml.child xml_arg0 "autoBranchCreationConfig") in
      let autoBranchCreationPatterns =
        (Option.map ~f:AutoBranchCreationPatterns.of_xml)
          (Xml.child xml_arg0 "autoBranchCreationPatterns") in
      let enableAutoBranchCreation =
        (Option.map ~f:EnableAutoBranchCreation.of_xml)
          (Xml.child xml_arg0 "enableAutoBranchCreation") in
      let customHeaders =
        (Option.map ~f:CustomHeaders.of_xml)
          (Xml.child xml_arg0 "customHeaders") in
      let buildSpec =
        (Option.map ~f:BuildSpec.of_xml) (Xml.child xml_arg0 "buildSpec") in
      let customRules =
        (Option.map ~f:CustomRules.of_xml) (Xml.child xml_arg0 "customRules") in
      let basicAuthCredentials =
        (Option.map ~f:BasicAuthCredentials.of_xml)
          (Xml.child xml_arg0 "basicAuthCredentials") in
      let enableBasicAuth =
        (Option.map ~f:EnableBasicAuth.of_xml)
          (Xml.child xml_arg0 "enableBasicAuth") in
      let enableBranchAutoDeletion =
        (Option.map ~f:EnableBranchAutoDeletion.of_xml)
          (Xml.child xml_arg0 "enableBranchAutoDeletion") in
      let enableBranchAutoBuild =
        (Option.map ~f:EnableAutoBuild.of_xml)
          (Xml.child xml_arg0 "enableBranchAutoBuild") in
      let environmentVariables =
        (Option.map ~f:EnvironmentVariables.of_xml)
          (Xml.child xml_arg0 "environmentVariables") in
      let iamServiceRoleArn =
        (Option.map ~f:ServiceRoleArn.of_xml)
          (Xml.child xml_arg0 "iamServiceRoleArn") in
      let computeRoleArn =
        (Option.map ~f:ComputeRoleArn.of_xml)
          (Xml.child xml_arg0 "computeRoleArn") in
      let platform =
        (Option.map ~f:Platform.of_xml) (Xml.child xml_arg0 "platform") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "name") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?cacheConfig ?jobConfig ?accessToken ?oauthToken ?repository
        ?autoBranchCreationConfig ?autoBranchCreationPatterns
        ?enableAutoBranchCreation ?customHeaders ?buildSpec ?customRules
        ?basicAuthCredentials ?enableBasicAuth ?enableBranchAutoDeletion
        ?enableBranchAutoBuild ?environmentVariables ?iamServiceRoleArn
        ?computeRoleArn ?platform ?description ?name ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cacheConfig = field_map json__ "cacheConfig" CacheConfig.of_json in
      let jobConfig = field_map json__ "jobConfig" JobConfig.of_json in
      let accessToken = field_map json__ "accessToken" AccessToken.of_json in
      let oauthToken = field_map json__ "oauthToken" OauthToken.of_json in
      let repository = field_map json__ "repository" Repository.of_json in
      let autoBranchCreationConfig =
        field_map json__ "autoBranchCreationConfig"
          AutoBranchCreationConfig.of_json in
      let autoBranchCreationPatterns =
        field_map json__ "autoBranchCreationPatterns"
          AutoBranchCreationPatterns.of_json in
      let enableAutoBranchCreation =
        field_map json__ "enableAutoBranchCreation"
          EnableAutoBranchCreation.of_json in
      let customHeaders =
        field_map json__ "customHeaders" CustomHeaders.of_json in
      let buildSpec = field_map json__ "buildSpec" BuildSpec.of_json in
      let customRules = field_map json__ "customRules" CustomRules.of_json in
      let basicAuthCredentials =
        field_map json__ "basicAuthCredentials" BasicAuthCredentials.of_json in
      let enableBasicAuth =
        field_map json__ "enableBasicAuth" EnableBasicAuth.of_json in
      let enableBranchAutoDeletion =
        field_map json__ "enableBranchAutoDeletion"
          EnableBranchAutoDeletion.of_json in
      let enableBranchAutoBuild =
        field_map json__ "enableBranchAutoBuild" EnableAutoBuild.of_json in
      let environmentVariables =
        field_map json__ "environmentVariables" EnvironmentVariables.of_json in
      let iamServiceRoleArn =
        field_map json__ "iamServiceRoleArn" ServiceRoleArn.of_json in
      let computeRoleArn =
        field_map json__ "computeRoleArn" ComputeRoleArn.of_json in
      let platform = field_map json__ "platform" Platform.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map json__ "name" Name.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?cacheConfig ?jobConfig ?accessToken ?oauthToken ?repository
        ?autoBranchCreationConfig ?autoBranchCreationPatterns
        ?enableAutoBranchCreation ?customHeaders ?buildSpec ?customRules
        ?basicAuthCredentials ?enableBasicAuth ?enableBranchAutoDeletion
        ?enableBranchAutoBuild ?environmentVariables ?iamServiceRoleArn
        ?computeRoleArn ?platform ?description ?name ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the update app request."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.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
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.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
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.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 of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response for the untag resource request."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) to use to untag a resource."];
      tagKeys: TagKeyList.t
        [@ocaml.doc "The tag keys to use to untag a resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.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 =
        ResourceArn.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" ResourceArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the untag resource request."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.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
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.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
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.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 of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response for the tag resource request."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) to use to tag a resource."];
      tags: TagMap.t [@ocaml.doc "The tags used to tag the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("tags", (Some (TagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagMap.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request structure to tag a resource with a tag key and value."]
module StopJobResult =
  struct
    type nonrec t =
      {
      jobSummary: JobSummary.t option [@ocaml.doc "The summary for the job."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobSummary = fun () -> { jobSummary }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("jobSummary", (Option.map x.jobSummary ~f:JobSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobSummary =
        (Option.map ~f:JobSummary.of_xml) (Xml.child xml_arg0 "jobSummary") in
      make ?jobSummary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobSummary = field_map json__ "jobSummary" JobSummary.of_json in
      make ?jobSummary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for the stop job request."]
module StopJobRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      branchName: BranchName.t
        [@ocaml.doc
          "The name of the branch to use for the stop job request."];
      jobId: JobId.t [@ocaml.doc "The unique id for the job."]}
    let context_ = "StopJobRequest"
    let make ~appId =
      fun ~branchName -> fun ~jobId -> fun () -> { appId; branchName; jobId }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("jobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ~jobId ~branchName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "jobId" JobId.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ~jobId ~branchName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the stop job request."]
module StartJobResult =
  struct
    type nonrec t =
      {
      jobSummary: JobSummary.t option [@ocaml.doc "The summary for the job."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobSummary = fun () -> { jobSummary }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("jobSummary", (Option.map x.jobSummary ~f:JobSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobSummary =
        (Option.map ~f:JobSummary.of_xml) (Xml.child xml_arg0 "jobSummary") in
      make ?jobSummary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobSummary = field_map json__ "jobSummary" JobSummary.of_json in
      make ?jobSummary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for the run job request."]
module StartJobRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      branchName: BranchName.t
        [@ocaml.doc "The name of the branch to use for the job."];
      jobId: JobId.t option
        [@ocaml.doc
          "The unique ID for an existing job. This is required if the value of jobType is RETRY."];
      jobType: JobType.t
        [@ocaml.doc
          "Describes the type for the job. The job type RELEASE starts a new job with the latest change from the specified branch. This value is available only for apps that are connected to a repository. The job type RETRY retries an existing job. If the job type value is RETRY, the jobId is also required."];
      jobReason: JobReason.t option
        [@ocaml.doc "A descriptive reason for starting the job."];
      commitId: CommitId.t option
        [@ocaml.doc
          "The commit ID from a third-party repository provider for the job."];
      commitMessage: CommitMessage.t option
        [@ocaml.doc
          "The commit message from a third-party repository provider for the job."];
      commitTime: CommitTime.t option
        [@ocaml.doc "The commit date and time for the job."]}
    let context_ = "StartJobRequest"
    let make ?jobId =
      fun ?jobReason ->
        fun ?commitId ->
          fun ?commitMessage ->
            fun ?commitTime ->
              fun ~appId ->
                fun ~branchName ->
                  fun ~jobType ->
                    fun () ->
                      {
                        jobId;
                        jobReason;
                        commitId;
                        commitMessage;
                        commitTime;
                        appId;
                        branchName;
                        jobType
                      }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("jobId", (Option.map x.jobId ~f:JobId.to_value));
        ("jobType", (Some (JobType.to_value x.jobType)));
        ("jobReason", (Option.map x.jobReason ~f:JobReason.to_value));
        ("commitId", (Option.map x.commitId ~f:CommitId.to_value));
        ("commitMessage",
          (Option.map x.commitMessage ~f:CommitMessage.to_value));
        ("commitTime", (Option.map x.commitTime ~f:CommitTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let commitTime =
        (Option.map ~f:CommitTime.of_xml) (Xml.child xml_arg0 "commitTime") in
      let commitMessage =
        (Option.map ~f:CommitMessage.of_xml)
          (Xml.child xml_arg0 "commitMessage") in
      let commitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "commitId") in
      let jobReason =
        (Option.map ~f:JobReason.of_xml) (Xml.child xml_arg0 "jobReason") in
      let jobType =
        JobType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobType") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "jobId") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?commitTime ?commitMessage ?commitId ?jobReason ~jobType ?jobId
        ~branchName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let commitTime = field_map json__ "commitTime" CommitTime.of_json in
      let commitMessage =
        field_map json__ "commitMessage" CommitMessage.of_json in
      let commitId = field_map json__ "commitId" CommitId.of_json in
      let jobReason = field_map json__ "jobReason" JobReason.of_json in
      let jobType = field_map_exn json__ "jobType" JobType.of_json in
      let jobId = field_map json__ "jobId" JobId.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?commitTime ?commitMessage ?commitId ?jobReason ~jobType ?jobId
        ~branchName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the start job request."]
module StartDeploymentResult =
  struct
    type nonrec t =
      {
      jobSummary: JobSummary.t option [@ocaml.doc "The summary for the job."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobSummary = fun () -> { jobSummary }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("jobSummary", (Option.map x.jobSummary ~f:JobSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobSummary =
        (Option.map ~f:JobSummary.of_xml) (Xml.child xml_arg0 "jobSummary") in
      make ?jobSummary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobSummary = field_map json__ "jobSummary" JobSummary.of_json in
      make ?jobSummary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for the start a deployment request."]
module StartDeploymentRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      branchName: BranchName.t
        [@ocaml.doc "The name of the branch to use for the deployment job."];
      jobId: JobId.t option
        [@ocaml.doc
          "The job ID for this deployment that is generated by the CreateDeployment request."];
      sourceUrl: SourceUrl.t option
        [@ocaml.doc
          "The source URL for the deployment that is used when calling StartDeployment without CreateDeployment. The source URL can be either an HTTP GET URL that is publicly accessible and downloads a single .zip file, or an Amazon S3 bucket and prefix."];
      sourceUrlType: SourceUrlType.t option
        [@ocaml.doc
          "The type of source specified by the sourceURL. If the value is ZIP, the source is a .zip file. If the value is BUCKET_PREFIX, the source is an Amazon S3 bucket and prefix. If no value is specified, the default is ZIP."]}
    let context_ = "StartDeploymentRequest"
    let make ?jobId =
      fun ?sourceUrl ->
        fun ?sourceUrlType ->
          fun ~appId ->
            fun ~branchName ->
              fun () ->
                { jobId; sourceUrl; sourceUrlType; appId; branchName }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("jobId", (Option.map x.jobId ~f:JobId.to_value));
        ("sourceUrl", (Option.map x.sourceUrl ~f:SourceUrl.to_value));
        ("sourceUrlType",
          (Option.map x.sourceUrlType ~f:SourceUrlType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceUrlType =
        (Option.map ~f:SourceUrlType.of_xml)
          (Xml.child xml_arg0 "sourceUrlType") in
      let sourceUrl =
        (Option.map ~f:SourceUrl.of_xml) (Xml.child xml_arg0 "sourceUrl") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "jobId") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?sourceUrlType ?sourceUrl ?jobId ~branchName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceUrlType =
        field_map json__ "sourceUrlType" SourceUrlType.of_json in
      let sourceUrl = field_map json__ "sourceUrl" SourceUrl.of_json in
      let jobId = field_map json__ "jobId" JobId.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?sourceUrlType ?sourceUrl ?jobId ~branchName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request structure for the start a deployment request."]
module ListWebhooksResult =
  struct
    type nonrec t =
      {
      webhooks: Webhooks.t option [@ocaml.doc "A list of webhooks."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If non-null, the pagination token is returned in a result. Pass its value in another request to retrieve more entries."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?webhooks = fun ?nextToken -> fun () -> { webhooks; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("webhooks", (Option.map x.webhooks ~f:Webhooks.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 webhooks =
        (Option.map ~f:Webhooks.of_xml) (Xml.child xml_arg0 "webhooks") in
      make ?nextToken ?webhooks ()
    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 webhooks = field_map json__ "webhooks" Webhooks.of_json in
      make ?nextToken ?webhooks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for the list webhooks request."]
module ListWebhooksRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. Set to null to start listing webhooks from the start. If non-null,the pagination token is returned in a result. Pass its value in here to list more webhooks."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of records to list in a single response."]}
    let context_ = "ListWebhooksRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~appId -> fun () -> { nextToken; maxResults; appId }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?maxResults ?nextToken ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?maxResults ?nextToken ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the list webhooks request."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagMap.t option
        [@ocaml.doc
          "A list of tags for the specified The Amazon Resource Name (ARN)."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.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
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.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
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.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 [("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response for the list tags for resource request."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) to use to list tags."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ResourceArn.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" ResourceArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request structure to use to list tags for a resource."]
module ListJobsResult =
  struct
    type nonrec t =
      {
      jobSummaries: JobSummaries.t option
        [@ocaml.doc "The result structure for the list job result request."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If non-null the pagination token is returned in a result. Pass its value in another request to retrieve more entries."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobSummaries =
      fun ?nextToken -> fun () -> { jobSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("jobSummaries",
           (Option.map x.jobSummaries ~f:JobSummaries.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 jobSummaries =
        (Option.map ~f:JobSummaries.of_xml)
          (Xml.child xml_arg0 "jobSummaries") in
      make ?nextToken ?jobSummaries ()
    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 jobSummaries = field_map json__ "jobSummaries" JobSummaries.of_json in
      make ?nextToken ?jobSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The maximum number of records to list in a single response."]
module ListJobsRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      branchName: BranchName.t
        [@ocaml.doc "The name of the branch to use for the request."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. Set to null to start listing steps from the start. If a non-null pagination token is returned in a result, pass its value in here to list more steps."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of records to list in a single response."]}
    let context_ = "ListJobsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~appId ->
          fun ~branchName ->
            fun () -> { nextToken; maxResults; appId; branchName }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?maxResults ?nextToken ~branchName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?maxResults ?nextToken ~branchName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the list jobs request."]
module ListDomainAssociationsResult =
  struct
    type nonrec t =
      {
      domainAssociations: DomainAssociations.t option
        [@ocaml.doc "A list of domain associations."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If non-null, a pagination token is returned in a result. Pass its value in another request to retrieve more entries."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainAssociations =
      fun ?nextToken -> fun () -> { domainAssociations; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("domainAssociations",
           (Option.map x.domainAssociations ~f:DomainAssociations.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 domainAssociations =
        (Option.map ~f:DomainAssociations.of_xml)
          (Xml.child xml_arg0 "domainAssociations") in
      make ?nextToken ?domainAssociations ()
    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 domainAssociations =
        field_map json__ "domainAssociations" DomainAssociations.of_json in
      make ?nextToken ?domainAssociations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result structure for the list domain association request."]
module ListDomainAssociationsRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. Set to null to start listing apps from the start. If non-null, a pagination token is returned in a result. Pass its value in here to list more projects."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of records to list in a single response."]}
    let context_ = "ListDomainAssociationsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~appId -> fun () -> { nextToken; maxResults; appId }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?maxResults ?nextToken ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?maxResults ?nextToken ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request structure for the list domain associations request."]
module ListBranchesResult =
  struct
    type nonrec t =
      {
      branches: Branches.t option
        [@ocaml.doc "A list of branches for an Amplify app."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If a non-null pagination token is returned in a result, pass its value in another request to retrieve more entries."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?branches = fun ?nextToken -> fun () -> { branches; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("branches", (Option.map x.branches ~f:Branches.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 branches =
        (Option.map ~f:Branches.of_xml) (Xml.child xml_arg0 "branches") in
      make ?nextToken ?branches ()
    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 branches = field_map json__ "branches" Branches.of_json in
      make ?nextToken ?branches ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for the list branches request."]
module ListBranchesRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. Set to null to start listing branches from the start. If a non-null pagination token is returned in a result, pass its value in here to list more branches."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of records to list in a single response."]}
    let context_ = "ListBranchesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~appId -> fun () -> { nextToken; maxResults; appId }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?maxResults ?nextToken ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?maxResults ?nextToken ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the list branches request."]
module ListBackendEnvironmentsResult =
  struct
    type nonrec t =
      {
      backendEnvironments: BackendEnvironments.t option
        [@ocaml.doc "The list of backend environments for an Amplify app."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If a non-null pagination token is returned in a result, pass its value in another request to retrieve more entries."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?backendEnvironments =
      fun ?nextToken -> fun () -> { backendEnvironments; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("backendEnvironments",
           (Option.map x.backendEnvironments ~f:BackendEnvironments.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 backendEnvironments =
        (Option.map ~f:BackendEnvironments.of_xml)
          (Xml.child xml_arg0 "backendEnvironments") in
      make ?nextToken ?backendEnvironments ()
    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 backendEnvironments =
        field_map json__ "backendEnvironments" BackendEnvironments.of_json in
      make ?nextToken ?backendEnvironments ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result structure for the list backend environments result."]
module ListBackendEnvironmentsRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      environmentName: EnvironmentName.t option
        [@ocaml.doc "The name of the backend environment"];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. Set to null to start listing backend environments from the start. If a non-null pagination token is returned in a result, pass its value in here to list more backend environments."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of records to list in a single response."]}
    let context_ = "ListBackendEnvironmentsRequest"
    let make ?environmentName =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~appId ->
            fun () -> { environmentName; nextToken; maxResults; appId }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("environmentName",
          (Option.map x.environmentName ~f:EnvironmentName.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let environmentName =
        (Option.map ~f:EnvironmentName.of_xml)
          (Xml.child xml_arg0 "environmentName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?maxResults ?nextToken ?environmentName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let environmentName =
        field_map json__ "environmentName" EnvironmentName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?maxResults ?nextToken ?environmentName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request structure for the list backend environments request."]
module ListArtifactsResult =
  struct
    type nonrec t =
      {
      artifacts: Artifacts.t option [@ocaml.doc "A list of artifacts."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If a non-null pagination token is returned in a result, pass its value in another request to retrieve more entries."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?artifacts =
      fun ?nextToken -> fun () -> { artifacts; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("artifacts", (Option.map x.artifacts ~f:Artifacts.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 artifacts =
        (Option.map ~f:Artifacts.of_xml) (Xml.child xml_arg0 "artifacts") in
      make ?nextToken ?artifacts ()
    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 artifacts = field_map json__ "artifacts" Artifacts.of_json in
      make ?nextToken ?artifacts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for the list artifacts request."]
module ListArtifactsRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      branchName: BranchName.t
        [@ocaml.doc "The name of a branch that is part of an Amplify app."];
      jobId: JobId.t [@ocaml.doc "The unique ID for a job."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. Set to null to start listing artifacts from start. If a non-null pagination token is returned in a result, pass its value in here to list more artifacts."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of records to list in a single response."]}
    let context_ = "ListArtifactsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~appId ->
          fun ~branchName ->
            fun ~jobId ->
              fun () -> { nextToken; maxResults; appId; branchName; jobId }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("jobId", (Some (JobId.to_value x.jobId)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?maxResults ?nextToken ~jobId ~branchName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let jobId = field_map_exn json__ "jobId" JobId.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?maxResults ?nextToken ~jobId ~branchName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the request structure for the list artifacts request."]
module ListAppsResult =
  struct
    type nonrec t =
      {
      apps: Apps.t option [@ocaml.doc "A list of Amplify apps."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. Set to null to start listing apps from start. If non-null, the pagination token is returned in a result. Pass its value in here to list more projects."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?apps = fun ?nextToken -> fun () -> { apps; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("apps", (Option.map x.apps ~f:Apps.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 apps = (Option.map ~f:Apps.of_xml) (Xml.child xml_arg0 "apps") in
      make ?nextToken ?apps ()
    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 apps = field_map json__ "apps" Apps.of_json in
      make ?nextToken ?apps ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for an Amplify app list request."]
module ListAppsRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token. If non-null, the pagination token is returned in a result. Pass its value in another request to retrieve more entries."];
      maxResults: MaxResultsForListApps.t option
        [@ocaml.doc
          "The maximum number of records to list in a single response."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:MaxResultsForListApps.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResultsForListApps.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" MaxResultsForListApps.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the list apps request."]
module GetWebhookResult =
  struct
    type nonrec t =
      {
      webhook: Webhook.t option
        [@ocaml.doc "Describes the structure of a webhook."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?webhook = fun () -> { webhook }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("webhook", (Option.map x.webhook ~f:Webhook.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhook =
        (Option.map ~f:Webhook.of_xml) (Xml.child xml_arg0 "webhook") in
      make ?webhook ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhook = field_map json__ "webhook" Webhook.of_json in
      make ?webhook ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for the get webhook request."]
module GetWebhookRequest =
  struct
    type nonrec t =
      {
      webhookId: WebhookId.t [@ocaml.doc "The unique ID for a webhook."]}
    let context_ = "GetWebhookRequest"
    let make ~webhookId = fun () -> { webhookId }
    let to_value x =
      structure_to_value
        [("webhookId", (Some (WebhookId.to_value x.webhookId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhookId =
        WebhookId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "webhookId") in
      make ~webhookId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhookId = field_map_exn json__ "webhookId" WebhookId.of_json in
      make ~webhookId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the get webhook request."]
module GetJobResult =
  struct
    type nonrec t = {
      job: Job.t option }
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?job = fun () -> { job }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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 [("job", (Option.map x.job ~f:Job.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let job = (Option.map ~f:Job.of_xml) (Xml.child xml_arg0 "job") in
      make ?job ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let job = field_map json__ "job" Job.of_json in make ?job ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a job for a branch of an Amplify app."]
module GetJobRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      branchName: BranchName.t
        [@ocaml.doc "The name of the branch to use for the job."];
      jobId: JobId.t [@ocaml.doc "The unique ID for the job."]}
    let context_ = "GetJobRequest"
    let make ~appId =
      fun ~branchName -> fun ~jobId -> fun () -> { appId; branchName; jobId }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("jobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ~jobId ~branchName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "jobId" JobId.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ~jobId ~branchName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the get job request."]
module GetDomainAssociationResult =
  struct
    type nonrec t =
      {
      domainAssociation: DomainAssociation.t option
        [@ocaml.doc
          "Describes the structure of a domain association, which associates a custom domain with an Amplify app."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainAssociation = fun () -> { domainAssociation }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("domainAssociation",
           (Option.map x.domainAssociation ~f:DomainAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainAssociation =
        (Option.map ~f:DomainAssociation.of_xml)
          (Xml.child xml_arg0 "domainAssociation") in
      make ?domainAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainAssociation =
        field_map json__ "domainAssociation" DomainAssociation.of_json in
      make ?domainAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result structure for the get domain association request."]
module GetDomainAssociationRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique id for an Amplify app."];
      domainName: DomainName.t [@ocaml.doc "The name of the domain."]}
    let context_ = "GetDomainAssociationRequest"
    let make ~appId = fun ~domainName -> fun () -> { appId; domainName }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("domainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "domainName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ~domainName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "domainName" DomainName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ~domainName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request structure for the get domain association request."]
module GetBranchResult =
  struct
    type nonrec t = {
      branch: Branch.t option }
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?branch = fun () -> { branch }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("branch", (Option.map x.branch ~f:Branch.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let branch =
        (Option.map ~f:Branch.of_xml) (Xml.child xml_arg0 "branch") in
      make ?branch ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let branch = field_map json__ "branch" Branch.of_json in
      make ?branch ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a branch for an Amplify app."]
module GetBranchRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      branchName: BranchName.t [@ocaml.doc "The name of the branch."]}
    let context_ = "GetBranchRequest"
    let make ~appId = fun ~branchName -> fun () -> { appId; branchName }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("branchName", (Some (BranchName.to_value x.branchName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ~branchName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ~branchName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the get branch request."]
module GetBackendEnvironmentResult =
  struct
    type nonrec t =
      {
      backendEnvironment: BackendEnvironment.t option
        [@ocaml.doc "Describes the backend environment for an Amplify app."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?backendEnvironment = fun () -> { backendEnvironment }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("backendEnvironment",
           (Option.map x.backendEnvironment ~f:BackendEnvironment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let backendEnvironment =
        (Option.map ~f:BackendEnvironment.of_xml)
          (Xml.child xml_arg0 "backendEnvironment") in
      make ?backendEnvironment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let backendEnvironment =
        field_map json__ "backendEnvironment" BackendEnvironment.of_json in
      make ?backendEnvironment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result structure for the get backend environment result."]
module GetBackendEnvironmentRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique id for an Amplify app."];
      environmentName: EnvironmentName.t
        [@ocaml.doc "The name for the backend environment."]}
    let context_ = "GetBackendEnvironmentRequest"
    let make ~appId =
      fun ~environmentName -> fun () -> { appId; environmentName }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("environmentName",
          (Some (EnvironmentName.to_value x.environmentName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let environmentName =
        EnvironmentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "environmentName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ~environmentName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let environmentName =
        field_map_exn json__ "environmentName" EnvironmentName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ~environmentName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request structure for the get backend environment request."]
module GetArtifactUrlResult =
  struct
    type nonrec t =
      {
      artifactId: ArtifactId.t option
        [@ocaml.doc "The unique ID for an artifact."];
      artifactUrl: ArtifactUrl.t option
        [@ocaml.doc "The presigned URL for the artifact."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?artifactId =
      fun ?artifactUrl -> fun () -> { artifactId; artifactUrl }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("artifactId", (Option.map x.artifactId ~f:ArtifactId.to_value));
        ("artifactUrl", (Option.map x.artifactUrl ~f:ArtifactUrl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let artifactUrl =
        (Option.map ~f:ArtifactUrl.of_xml) (Xml.child xml_arg0 "artifactUrl") in
      let artifactId =
        (Option.map ~f:ArtifactId.of_xml) (Xml.child xml_arg0 "artifactId") in
      make ?artifactUrl ?artifactId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let artifactUrl = field_map json__ "artifactUrl" ArtifactUrl.of_json in
      let artifactId = field_map json__ "artifactId" ArtifactId.of_json in
      make ?artifactUrl ?artifactId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the result structure for the get artifact request."]
module GetArtifactUrlRequest =
  struct
    type nonrec t =
      {
      artifactId: ArtifactId.t [@ocaml.doc "The unique ID for an artifact."]}
    let context_ = "GetArtifactUrlRequest"
    let make ~artifactId = fun () -> { artifactId }
    let to_value x =
      structure_to_value
        [("artifactId", (Some (ArtifactId.to_value x.artifactId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let artifactId =
        ArtifactId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "artifactId") in
      make ~artifactId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let artifactId = field_map_exn json__ "artifactId" ArtifactId.of_json in
      make ~artifactId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the request structure for the get artifact request."]
module GetAppResult =
  struct
    type nonrec t = {
      app: App.t option }
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?app = fun () -> { app }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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 [("app", (Option.map x.app ~f:App.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let app = (Option.map ~f:App.of_xml) (Xml.child xml_arg0 "app") in
      make ?app ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let app = field_map json__ "app" App.of_json in make ?app ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns an existing Amplify app specified by an app ID."]
module GetAppRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."]}
    let context_ = "GetAppRequest"
    let make ~appId = fun () -> { appId }
    let to_value x =
      structure_to_value [("appId", (Some (AppId.to_value x.appId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the get app request."]
module GenerateAccessLogsResult =
  struct
    type nonrec t =
      {
      logUrl: LogUrl.t option
        [@ocaml.doc "The pre-signed URL for the requested access logs."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?logUrl = fun () -> { logUrl }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("logUrl", (Option.map x.logUrl ~f:LogUrl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logUrl =
        (Option.map ~f:LogUrl.of_xml) (Xml.child xml_arg0 "logUrl") in
      make ?logUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logUrl = field_map json__ "logUrl" LogUrl.of_json in
      make ?logUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result structure for the generate access logs request."]
module GenerateAccessLogsRequest =
  struct
    type nonrec t =
      {
      startTime: StartTime.t option
        [@ocaml.doc
          "The time at which the logs should start. The time range specified is inclusive of the start time."];
      endTime: EndTime.t option
        [@ocaml.doc
          "The time at which the logs should end. The time range specified is inclusive of the end time."];
      domainName: DomainName.t [@ocaml.doc "The name of the domain."];
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."]}
    let context_ = "GenerateAccessLogsRequest"
    let make ?startTime =
      fun ?endTime ->
        fun ~domainName ->
          fun ~appId -> fun () -> { startTime; endTime; domainName; appId }
    let to_value x =
      structure_to_value
        [("startTime", (Option.map x.startTime ~f:StartTime.to_value));
        ("endTime", (Option.map x.endTime ~f:EndTime.to_value));
        ("domainName", (Some (DomainName.to_value x.domainName)));
        ("appId", (Some (AppId.to_value x.appId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "domainName") in
      let endTime =
        (Option.map ~f:EndTime.of_xml) (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:StartTime.of_xml) (Xml.child xml_arg0 "startTime") in
      make ~appId ~domainName ?endTime ?startTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appId = field_map_exn json__ "appId" AppId.of_json in
      let domainName = field_map_exn json__ "domainName" DomainName.of_json in
      let endTime = field_map json__ "endTime" EndTime.of_json in
      let startTime = field_map json__ "startTime" StartTime.of_json in
      make ~appId ~domainName ?endTime ?startTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request structure for the generate access logs request."]
module DeleteWebhookResult =
  struct
    type nonrec t =
      {
      webhook: Webhook.t option
        [@ocaml.doc
          "Describes a webhook that connects repository events to an Amplify app."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?webhook = fun () -> { webhook }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("webhook", (Option.map x.webhook ~f:Webhook.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhook =
        (Option.map ~f:Webhook.of_xml) (Xml.child xml_arg0 "webhook") in
      make ?webhook ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhook = field_map json__ "webhook" Webhook.of_json in
      make ?webhook ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for the delete webhook request."]
module DeleteWebhookRequest =
  struct
    type nonrec t =
      {
      webhookId: WebhookId.t [@ocaml.doc "The unique ID for a webhook."]}
    let context_ = "DeleteWebhookRequest"
    let make ~webhookId = fun () -> { webhookId }
    let to_value x =
      structure_to_value
        [("webhookId", (Some (WebhookId.to_value x.webhookId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhookId =
        WebhookId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "webhookId") in
      make ~webhookId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhookId = field_map_exn json__ "webhookId" WebhookId.of_json in
      make ~webhookId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the delete webhook request."]
module DeleteJobResult =
  struct
    type nonrec t = {
      jobSummary: JobSummary.t option }
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobSummary = fun () -> { jobSummary }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("jobSummary", (Option.map x.jobSummary ~f:JobSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobSummary =
        (Option.map ~f:JobSummary.of_xml) (Xml.child xml_arg0 "jobSummary") in
      make ?jobSummary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobSummary = field_map json__ "jobSummary" JobSummary.of_json in
      make ?jobSummary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for the delete job request."]
module DeleteJobRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      branchName: BranchName.t
        [@ocaml.doc "The name of the branch to use for the job."];
      jobId: JobId.t [@ocaml.doc "The unique ID for the job."]}
    let context_ = "DeleteJobRequest"
    let make ~appId =
      fun ~branchName -> fun ~jobId -> fun () -> { appId; branchName; jobId }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("jobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ~jobId ~branchName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "jobId" JobId.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ~jobId ~branchName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the delete job request."]
module DeleteDomainAssociationResult =
  struct
    type nonrec t = {
      domainAssociation: DomainAssociation.t option }
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `DependentServiceFailureException of
          DependentServiceFailureException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainAssociation = fun () -> { domainAssociation }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `DependentServiceFailureException e ->
          `Assoc
            [("error", (`String "DependentServiceFailureException"));
            ("details", (DependentServiceFailureException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("domainAssociation",
           (Option.map x.domainAssociation ~f:DomainAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainAssociation =
        (Option.map ~f:DomainAssociation.of_xml)
          (Xml.child xml_arg0 "domainAssociation") in
      make ?domainAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainAssociation =
        field_map json__ "domainAssociation" DomainAssociation.of_json in
      make ?domainAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a domain association for an Amplify app."]
module DeleteDomainAssociationRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique id for an Amplify app."];
      domainName: DomainName.t [@ocaml.doc "The name of the domain."]}
    let context_ = "DeleteDomainAssociationRequest"
    let make ~appId = fun ~domainName -> fun () -> { appId; domainName }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("domainName", (Some (DomainName.to_value x.domainName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "domainName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ~domainName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainName = field_map_exn json__ "domainName" DomainName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ~domainName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request structure for the delete domain association request."]
module DeleteBranchResult =
  struct
    type nonrec t =
      {
      branch: Branch.t option
        [@ocaml.doc
          "The branch for an Amplify app, which maps to a third-party repository branch."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `DependentServiceFailureException of
          DependentServiceFailureException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?branch = fun () -> { branch }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `DependentServiceFailureException e ->
          `Assoc
            [("error", (`String "DependentServiceFailureException"));
            ("details", (DependentServiceFailureException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("branch", (Option.map x.branch ~f:Branch.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let branch =
        (Option.map ~f:Branch.of_xml) (Xml.child xml_arg0 "branch") in
      make ?branch ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let branch = field_map json__ "branch" Branch.of_json in
      make ?branch ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for the delete branch request."]
module DeleteBranchRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      branchName: BranchName.t [@ocaml.doc "The name of the branch."]}
    let context_ = "DeleteBranchRequest"
    let make ~appId = fun ~branchName -> fun () -> { appId; branchName }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("branchName", (Some (BranchName.to_value x.branchName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ~branchName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ~branchName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the delete branch request."]
module DeleteBackendEnvironmentResult =
  struct
    type nonrec t =
      {
      backendEnvironment: BackendEnvironment.t option
        [@ocaml.doc "Describes the backend environment for an Amplify app."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `DependentServiceFailureException of
          DependentServiceFailureException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?backendEnvironment = fun () -> { backendEnvironment }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `DependentServiceFailureException e ->
          `Assoc
            [("error", (`String "DependentServiceFailureException"));
            ("details", (DependentServiceFailureException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("backendEnvironment",
           (Option.map x.backendEnvironment ~f:BackendEnvironment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let backendEnvironment =
        (Option.map ~f:BackendEnvironment.of_xml)
          (Xml.child xml_arg0 "backendEnvironment") in
      make ?backendEnvironment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let backendEnvironment =
        field_map json__ "backendEnvironment" BackendEnvironment.of_json in
      make ?backendEnvironment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result structure of the delete backend environment result."]
module DeleteBackendEnvironmentRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID of an Amplify app."];
      environmentName: EnvironmentName.t
        [@ocaml.doc "The name of a backend environment of an Amplify app."]}
    let context_ = "DeleteBackendEnvironmentRequest"
    let make ~appId =
      fun ~environmentName -> fun () -> { appId; environmentName }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("environmentName",
          (Some (EnvironmentName.to_value x.environmentName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let environmentName =
        EnvironmentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "environmentName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ~environmentName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let environmentName =
        field_map_exn json__ "environmentName" EnvironmentName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ~environmentName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request structure for the delete backend environment request."]
module DeleteAppResult =
  struct
    type nonrec t = {
      app: App.t option }
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `DependentServiceFailureException of
          DependentServiceFailureException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?app = fun () -> { app }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `DependentServiceFailureException e ->
          `Assoc
            [("error", (`String "DependentServiceFailureException"));
            ("details", (DependentServiceFailureException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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 [("app", (Option.map x.app ~f:App.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let app = (Option.map ~f:App.of_xml) (Xml.child xml_arg0 "app") in
      make ?app ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let app = field_map json__ "app" App.of_json in make ?app ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for the delete app request."]
module DeleteAppRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."]}
    let context_ = "DeleteAppRequest"
    let make ~appId = fun () -> { appId }
    let to_value x =
      structure_to_value [("appId", (Some (AppId.to_value x.appId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the request structure for the delete app request."]
module CreateWebhookResult =
  struct
    type nonrec t =
      {
      webhook: Webhook.t option
        [@ocaml.doc
          "Describes a webhook that connects repository events to an Amplify app."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `DependentServiceFailureException of
          DependentServiceFailureException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?webhook = fun () -> { webhook }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `DependentServiceFailureException e ->
          `Assoc
            [("error", (`String "DependentServiceFailureException"));
            ("details", (DependentServiceFailureException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("webhook", (Option.map x.webhook ~f:Webhook.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhook =
        (Option.map ~f:Webhook.of_xml) (Xml.child xml_arg0 "webhook") in
      make ?webhook ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhook = field_map json__ "webhook" Webhook.of_json in
      make ?webhook ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for the create webhook request."]
module CreateWebhookRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      branchName: BranchName.t
        [@ocaml.doc "The name for a branch that is part of an Amplify app."];
      description: Description.t option
        [@ocaml.doc "The description for a webhook."]}
    let context_ = "CreateWebhookRequest"
    let make ?description =
      fun ~appId ->
        fun ~branchName -> fun () -> { description; appId; branchName }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("description", (Option.map x.description ~f:Description.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?description ~branchName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "description" Description.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?description ~branchName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the create webhook request."]
module CreateDomainAssociationResult =
  struct
    type nonrec t =
      {
      domainAssociation: DomainAssociation.t option
        [@ocaml.doc
          "Describes the structure of a domain association, which associates a custom domain with an Amplify app."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `DependentServiceFailureException of
          DependentServiceFailureException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainAssociation = fun () -> { domainAssociation }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `DependentServiceFailureException e ->
          `Assoc
            [("error", (`String "DependentServiceFailureException"));
            ("details", (DependentServiceFailureException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("domainAssociation",
           (Option.map x.domainAssociation ~f:DomainAssociation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainAssociation =
        (Option.map ~f:DomainAssociation.of_xml)
          (Xml.child xml_arg0 "domainAssociation") in
      make ?domainAssociation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainAssociation =
        field_map json__ "domainAssociation" DomainAssociation.of_json in
      make ?domainAssociation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result structure for the create domain association request."]
module CreateDomainAssociationRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      domainName: DomainName.t
        [@ocaml.doc "The domain name for the domain association."];
      enableAutoSubDomain: EnableAutoSubDomain.t option
        [@ocaml.doc
          "Enables the automated creation of subdomains for branches."];
      subDomainSettings: SubDomainSettings.t
        [@ocaml.doc "The setting for the subdomain."];
      autoSubDomainCreationPatterns: AutoSubDomainCreationPatterns.t option
        [@ocaml.doc
          "Sets the branch patterns for automatic subdomain creation."];
      autoSubDomainIAMRole: AutoSubDomainIAMRole.t option
        [@ocaml.doc
          "The required AWS Identity and Access Management (IAM) service role for the Amazon Resource Name (ARN) for automatically creating subdomains."];
      certificateSettings: CertificateSettings.t option
        [@ocaml.doc
          "The type of SSL/TLS certificate to use for your custom domain. If you don't specify a certificate type, Amplify uses the default certificate that it provisions and manages for you."]}
    let context_ = "CreateDomainAssociationRequest"
    let make ?enableAutoSubDomain =
      fun ?autoSubDomainCreationPatterns ->
        fun ?autoSubDomainIAMRole ->
          fun ?certificateSettings ->
            fun ~appId ->
              fun ~domainName ->
                fun ~subDomainSettings ->
                  fun () ->
                    {
                      enableAutoSubDomain;
                      autoSubDomainCreationPatterns;
                      autoSubDomainIAMRole;
                      certificateSettings;
                      appId;
                      domainName;
                      subDomainSettings
                    }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("domainName", (Some (DomainName.to_value x.domainName)));
        ("enableAutoSubDomain",
          (Option.map x.enableAutoSubDomain ~f:EnableAutoSubDomain.to_value));
        ("subDomainSettings",
          (Some (SubDomainSettings.to_value x.subDomainSettings)));
        ("autoSubDomainCreationPatterns",
          (Option.map x.autoSubDomainCreationPatterns
             ~f:AutoSubDomainCreationPatterns.to_value));
        ("autoSubDomainIAMRole",
          (Option.map x.autoSubDomainIAMRole ~f:AutoSubDomainIAMRole.to_value));
        ("certificateSettings",
          (Option.map x.certificateSettings ~f:CertificateSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateSettings =
        (Option.map ~f:CertificateSettings.of_xml)
          (Xml.child xml_arg0 "certificateSettings") in
      let autoSubDomainIAMRole =
        (Option.map ~f:AutoSubDomainIAMRole.of_xml)
          (Xml.child xml_arg0 "autoSubDomainIAMRole") in
      let autoSubDomainCreationPatterns =
        (Option.map ~f:AutoSubDomainCreationPatterns.of_xml)
          (Xml.child xml_arg0 "autoSubDomainCreationPatterns") in
      let subDomainSettings =
        SubDomainSettings.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "subDomainSettings") in
      let enableAutoSubDomain =
        (Option.map ~f:EnableAutoSubDomain.of_xml)
          (Xml.child xml_arg0 "enableAutoSubDomain") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "domainName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?certificateSettings ?autoSubDomainIAMRole
        ?autoSubDomainCreationPatterns ~subDomainSettings
        ?enableAutoSubDomain ~domainName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateSettings =
        field_map json__ "certificateSettings" CertificateSettings.of_json in
      let autoSubDomainIAMRole =
        field_map json__ "autoSubDomainIAMRole" AutoSubDomainIAMRole.of_json in
      let autoSubDomainCreationPatterns =
        field_map json__ "autoSubDomainCreationPatterns"
          AutoSubDomainCreationPatterns.of_json in
      let subDomainSettings =
        field_map_exn json__ "subDomainSettings" SubDomainSettings.of_json in
      let enableAutoSubDomain =
        field_map json__ "enableAutoSubDomain" EnableAutoSubDomain.of_json in
      let domainName = field_map_exn json__ "domainName" DomainName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?certificateSettings ?autoSubDomainIAMRole
        ?autoSubDomainCreationPatterns ~subDomainSettings
        ?enableAutoSubDomain ~domainName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request structure for the create domain association request."]
module CreateDeploymentResult =
  struct
    type nonrec t =
      {
      jobId: JobId.t option
        [@ocaml.doc
          "The job ID for this deployment. will supply to start deployment api."];
      fileUploadUrls: FileUploadUrls.t option
        [@ocaml.doc
          "When the fileMap argument is provided in the request, fileUploadUrls will contain a map of file names to upload URLs."];
      zipUploadUrl: UploadUrl.t option
        [@ocaml.doc
          "When the fileMap argument is not provided in the request, this zipUploadUrl is returned."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobId =
      fun ?fileUploadUrls ->
        fun ?zipUploadUrl ->
          fun () -> { jobId; fileUploadUrls; zipUploadUrl }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("jobId", (Option.map x.jobId ~f:JobId.to_value));
        ("fileUploadUrls",
          (Option.map x.fileUploadUrls ~f:FileUploadUrls.to_value));
        ("zipUploadUrl", (Option.map x.zipUploadUrl ~f:UploadUrl.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let zipUploadUrl =
        (Option.map ~f:UploadUrl.of_xml) (Xml.child xml_arg0 "zipUploadUrl") in
      let fileUploadUrls =
        (Option.map ~f:FileUploadUrls.of_xml)
          (Xml.child xml_arg0 "fileUploadUrls") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "jobId") in
      make ?zipUploadUrl ?fileUploadUrls ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let zipUploadUrl = field_map json__ "zipUploadUrl" UploadUrl.of_json in
      let fileUploadUrls =
        field_map json__ "fileUploadUrls" FileUploadUrls.of_json in
      let jobId = field_map json__ "jobId" JobId.of_json in
      make ?zipUploadUrl ?fileUploadUrls ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result structure for the create a new deployment request."]
module CreateDeploymentRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      branchName: BranchName.t
        [@ocaml.doc "The name of the branch to use for the job."];
      fileMap: FileMap.t option
        [@ocaml.doc
          "An optional file map that contains the file name as the key and the file content md5 hash as the value. If this argument is provided, the service will generate a unique upload URL per file. Otherwise, the service will only generate a single upload URL for the zipped files."]}
    let context_ = "CreateDeploymentRequest"
    let make ?fileMap =
      fun ~appId ->
        fun ~branchName -> fun () -> { fileMap; appId; branchName }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("fileMap", (Option.map x.fileMap ~f:FileMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileMap =
        (Option.map ~f:FileMap.of_xml) (Xml.child xml_arg0 "fileMap") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?fileMap ~branchName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileMap = field_map json__ "fileMap" FileMap.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?fileMap ~branchName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request structure for the create a new deployment request."]
module CreateBranchResult =
  struct
    type nonrec t =
      {
      branch: Branch.t option
        [@ocaml.doc
          "Describes the branch for an Amplify app, which maps to a third-party repository branch."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `DependentServiceFailureException of
          DependentServiceFailureException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?branch = fun () -> { branch }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `DependentServiceFailureException e ->
          `Assoc
            [("error", (`String "DependentServiceFailureException"));
            ("details", (DependentServiceFailureException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("branch", (Option.map x.branch ~f:Branch.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let branch =
        (Option.map ~f:Branch.of_xml) (Xml.child xml_arg0 "branch") in
      make ?branch ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let branch = field_map json__ "branch" Branch.of_json in
      make ?branch ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result structure for create branch request."]
module CreateBranchRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      branchName: BranchName.t [@ocaml.doc "The name for the branch."];
      description: Description.t option
        [@ocaml.doc "The description for the branch."];
      stage: Stage.t option
        [@ocaml.doc "Describes the current stage for the branch."];
      framework: Framework.t option
        [@ocaml.doc "The framework for the branch."];
      enableNotification: EnableNotification.t option
        [@ocaml.doc "Enables notifications for the branch."];
      enableAutoBuild: EnableAutoBuild.t option
        [@ocaml.doc "Enables auto building for the branch."];
      enableSkewProtection: EnableSkewProtection.t option
        [@ocaml.doc
          "Specifies whether the skew protection feature is enabled for the branch. Deployment skew protection is available to Amplify applications to eliminate version skew issues between client and servers in web applications. When you apply skew protection to a branch, you can ensure that your clients always interact with the correct version of server-side assets, regardless of when a deployment occurs. For more information about skew protection, see Skew protection for Amplify deployments in the Amplify User Guide."];
      environmentVariables: EnvironmentVariables.t option
        [@ocaml.doc "The environment variables for the branch."];
      basicAuthCredentials: BasicAuthCredentials.t option
        [@ocaml.doc
          "The basic authorization credentials for the branch. You must base64-encode the authorization credentials and provide them in the format user:password."];
      enableBasicAuth: EnableBasicAuth.t option
        [@ocaml.doc "Enables basic authorization for the branch."];
      enablePerformanceMode: EnablePerformanceMode.t option
        [@ocaml.doc
          "Enables performance mode for the branch. Performance mode optimizes for faster hosting performance by keeping content cached at the edge for a longer interval. When performance mode is enabled, hosting configuration or code changes can take up to 10 minutes to roll out."];
      tags: TagMap.t option [@ocaml.doc "The tag for the branch."];
      buildSpec: BuildSpec.t option
        [@ocaml.doc "The build specification (build spec) for the branch."];
      ttl: TTL.t option
        [@ocaml.doc
          "The content Time To Live (TTL) for the website in seconds."];
      displayName: DisplayName.t option
        [@ocaml.doc
          "The display name for a branch. This is used as the default domain prefix."];
      enablePullRequestPreview: EnablePullRequestPreview.t option
        [@ocaml.doc "Enables pull request previews for this branch."];
      pullRequestEnvironmentName: PullRequestEnvironmentName.t option
        [@ocaml.doc "The Amplify environment name for the pull request."];
      backendEnvironmentArn: BackendEnvironmentArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for a backend environment that is part of a Gen 1 Amplify app. This field is available to Amplify Gen 1 apps only where the backend is created using Amplify Studio or the Amplify command line interface (CLI)."];
      backend: Backend.t option
        [@ocaml.doc
          "The backend for a Branch of an Amplify app. Use for a backend created from an CloudFormation stack. This field is available to Amplify Gen 2 apps only. When you deploy an application with Amplify Gen 2, you provision the app's backend infrastructure using Typescript code."];
      computeRoleArn: ComputeRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role to assign to a branch of an SSR app. The SSR Compute role allows the Amplify Hosting compute service to securely access specific Amazon Web Services resources based on the role's permissions. For more information about the SSR Compute role, see Adding an SSR Compute role in the Amplify User Guide."]}
    let context_ = "CreateBranchRequest"
    let make ?description =
      fun ?stage ->
        fun ?framework ->
          fun ?enableNotification ->
            fun ?enableAutoBuild ->
              fun ?enableSkewProtection ->
                fun ?environmentVariables ->
                  fun ?basicAuthCredentials ->
                    fun ?enableBasicAuth ->
                      fun ?enablePerformanceMode ->
                        fun ?tags ->
                          fun ?buildSpec ->
                            fun ?ttl ->
                              fun ?displayName ->
                                fun ?enablePullRequestPreview ->
                                  fun ?pullRequestEnvironmentName ->
                                    fun ?backendEnvironmentArn ->
                                      fun ?backend ->
                                        fun ?computeRoleArn ->
                                          fun ~appId ->
                                            fun ~branchName ->
                                              fun () ->
                                                {
                                                  description;
                                                  stage;
                                                  framework;
                                                  enableNotification;
                                                  enableAutoBuild;
                                                  enableSkewProtection;
                                                  environmentVariables;
                                                  basicAuthCredentials;
                                                  enableBasicAuth;
                                                  enablePerformanceMode;
                                                  tags;
                                                  buildSpec;
                                                  ttl;
                                                  displayName;
                                                  enablePullRequestPreview;
                                                  pullRequestEnvironmentName;
                                                  backendEnvironmentArn;
                                                  backend;
                                                  computeRoleArn;
                                                  appId;
                                                  branchName
                                                }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("stage", (Option.map x.stage ~f:Stage.to_value));
        ("framework", (Option.map x.framework ~f:Framework.to_value));
        ("enableNotification",
          (Option.map x.enableNotification ~f:EnableNotification.to_value));
        ("enableAutoBuild",
          (Option.map x.enableAutoBuild ~f:EnableAutoBuild.to_value));
        ("enableSkewProtection",
          (Option.map x.enableSkewProtection ~f:EnableSkewProtection.to_value));
        ("environmentVariables",
          (Option.map x.environmentVariables ~f:EnvironmentVariables.to_value));
        ("basicAuthCredentials",
          (Option.map x.basicAuthCredentials ~f:BasicAuthCredentials.to_value));
        ("enableBasicAuth",
          (Option.map x.enableBasicAuth ~f:EnableBasicAuth.to_value));
        ("enablePerformanceMode",
          (Option.map x.enablePerformanceMode
             ~f:EnablePerformanceMode.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("buildSpec", (Option.map x.buildSpec ~f:BuildSpec.to_value));
        ("ttl", (Option.map x.ttl ~f:TTL.to_value));
        ("displayName", (Option.map x.displayName ~f:DisplayName.to_value));
        ("enablePullRequestPreview",
          (Option.map x.enablePullRequestPreview
             ~f:EnablePullRequestPreview.to_value));
        ("pullRequestEnvironmentName",
          (Option.map x.pullRequestEnvironmentName
             ~f:PullRequestEnvironmentName.to_value));
        ("backendEnvironmentArn",
          (Option.map x.backendEnvironmentArn
             ~f:BackendEnvironmentArn.to_value));
        ("backend", (Option.map x.backend ~f:Backend.to_value));
        ("computeRoleArn",
          (Option.map x.computeRoleArn ~f:ComputeRoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let computeRoleArn =
        (Option.map ~f:ComputeRoleArn.of_xml)
          (Xml.child xml_arg0 "computeRoleArn") in
      let backend =
        (Option.map ~f:Backend.of_xml) (Xml.child xml_arg0 "backend") in
      let backendEnvironmentArn =
        (Option.map ~f:BackendEnvironmentArn.of_xml)
          (Xml.child xml_arg0 "backendEnvironmentArn") in
      let pullRequestEnvironmentName =
        (Option.map ~f:PullRequestEnvironmentName.of_xml)
          (Xml.child xml_arg0 "pullRequestEnvironmentName") in
      let enablePullRequestPreview =
        (Option.map ~f:EnablePullRequestPreview.of_xml)
          (Xml.child xml_arg0 "enablePullRequestPreview") in
      let displayName =
        (Option.map ~f:DisplayName.of_xml) (Xml.child xml_arg0 "displayName") in
      let ttl = (Option.map ~f:TTL.of_xml) (Xml.child xml_arg0 "ttl") in
      let buildSpec =
        (Option.map ~f:BuildSpec.of_xml) (Xml.child xml_arg0 "buildSpec") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let enablePerformanceMode =
        (Option.map ~f:EnablePerformanceMode.of_xml)
          (Xml.child xml_arg0 "enablePerformanceMode") in
      let enableBasicAuth =
        (Option.map ~f:EnableBasicAuth.of_xml)
          (Xml.child xml_arg0 "enableBasicAuth") in
      let basicAuthCredentials =
        (Option.map ~f:BasicAuthCredentials.of_xml)
          (Xml.child xml_arg0 "basicAuthCredentials") in
      let environmentVariables =
        (Option.map ~f:EnvironmentVariables.of_xml)
          (Xml.child xml_arg0 "environmentVariables") in
      let enableSkewProtection =
        (Option.map ~f:EnableSkewProtection.of_xml)
          (Xml.child xml_arg0 "enableSkewProtection") in
      let enableAutoBuild =
        (Option.map ~f:EnableAutoBuild.of_xml)
          (Xml.child xml_arg0 "enableAutoBuild") in
      let enableNotification =
        (Option.map ~f:EnableNotification.of_xml)
          (Xml.child xml_arg0 "enableNotification") in
      let framework =
        (Option.map ~f:Framework.of_xml) (Xml.child xml_arg0 "framework") in
      let stage = (Option.map ~f:Stage.of_xml) (Xml.child xml_arg0 "stage") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?computeRoleArn ?backend ?backendEnvironmentArn
        ?pullRequestEnvironmentName ?enablePullRequestPreview ?displayName
        ?ttl ?buildSpec ?tags ?enablePerformanceMode ?enableBasicAuth
        ?basicAuthCredentials ?environmentVariables ?enableSkewProtection
        ?enableAutoBuild ?enableNotification ?framework ?stage ?description
        ~branchName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let computeRoleArn =
        field_map json__ "computeRoleArn" ComputeRoleArn.of_json in
      let backend = field_map json__ "backend" Backend.of_json in
      let backendEnvironmentArn =
        field_map json__ "backendEnvironmentArn"
          BackendEnvironmentArn.of_json in
      let pullRequestEnvironmentName =
        field_map json__ "pullRequestEnvironmentName"
          PullRequestEnvironmentName.of_json in
      let enablePullRequestPreview =
        field_map json__ "enablePullRequestPreview"
          EnablePullRequestPreview.of_json in
      let displayName = field_map json__ "displayName" DisplayName.of_json in
      let ttl = field_map json__ "ttl" TTL.of_json in
      let buildSpec = field_map json__ "buildSpec" BuildSpec.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let enablePerformanceMode =
        field_map json__ "enablePerformanceMode"
          EnablePerformanceMode.of_json in
      let enableBasicAuth =
        field_map json__ "enableBasicAuth" EnableBasicAuth.of_json in
      let basicAuthCredentials =
        field_map json__ "basicAuthCredentials" BasicAuthCredentials.of_json in
      let environmentVariables =
        field_map json__ "environmentVariables" EnvironmentVariables.of_json in
      let enableSkewProtection =
        field_map json__ "enableSkewProtection" EnableSkewProtection.of_json in
      let enableAutoBuild =
        field_map json__ "enableAutoBuild" EnableAutoBuild.of_json in
      let enableNotification =
        field_map json__ "enableNotification" EnableNotification.of_json in
      let framework = field_map json__ "framework" Framework.of_json in
      let stage = field_map json__ "stage" Stage.of_json in
      let description = field_map json__ "description" Description.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?computeRoleArn ?backend ?backendEnvironmentArn
        ?pullRequestEnvironmentName ?enablePullRequestPreview ?displayName
        ?ttl ?buildSpec ?tags ?enablePerformanceMode ?enableBasicAuth
        ?basicAuthCredentials ?environmentVariables ?enableSkewProtection
        ?enableAutoBuild ?enableNotification ?framework ?stage ?description
        ~branchName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure for the create branch request."]
module CreateBackendEnvironmentResult =
  struct
    type nonrec t =
      {
      backendEnvironment: BackendEnvironment.t option
        [@ocaml.doc "Describes the backend environment for an Amplify app."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotFoundException of NotFoundException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?backendEnvironment = fun () -> { backendEnvironment }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("backendEnvironment",
           (Option.map x.backendEnvironment ~f:BackendEnvironment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let backendEnvironment =
        (Option.map ~f:BackendEnvironment.of_xml)
          (Xml.child xml_arg0 "backendEnvironment") in
      make ?backendEnvironment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let backendEnvironment =
        field_map json__ "backendEnvironment" BackendEnvironment.of_json in
      make ?backendEnvironment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The result structure for the create backend environment request."]
module CreateBackendEnvironmentRequest =
  struct
    type nonrec t =
      {
      appId: AppId.t [@ocaml.doc "The unique ID for an Amplify app."];
      environmentName: EnvironmentName.t
        [@ocaml.doc "The name for the backend environment."];
      stackName: StackName.t option
        [@ocaml.doc
          "The AWS CloudFormation stack name of a backend environment."];
      deploymentArtifacts: DeploymentArtifacts.t option
        [@ocaml.doc "The name of deployment artifacts."]}
    let context_ = "CreateBackendEnvironmentRequest"
    let make ?stackName =
      fun ?deploymentArtifacts ->
        fun ~appId ->
          fun ~environmentName ->
            fun () ->
              { stackName; deploymentArtifacts; appId; environmentName }
    let to_value x =
      structure_to_value
        [("appId", (Some (AppId.to_value x.appId)));
        ("environmentName",
          (Some (EnvironmentName.to_value x.environmentName)));
        ("stackName", (Option.map x.stackName ~f:StackName.to_value));
        ("deploymentArtifacts",
          (Option.map x.deploymentArtifacts ~f:DeploymentArtifacts.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deploymentArtifacts =
        (Option.map ~f:DeploymentArtifacts.of_xml)
          (Xml.child xml_arg0 "deploymentArtifacts") in
      let stackName =
        (Option.map ~f:StackName.of_xml) (Xml.child xml_arg0 "stackName") in
      let environmentName =
        EnvironmentName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "environmentName") in
      let appId =
        AppId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      make ?deploymentArtifacts ?stackName ~environmentName ~appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deploymentArtifacts =
        field_map json__ "deploymentArtifacts" DeploymentArtifacts.of_json in
      let stackName = field_map json__ "stackName" StackName.of_json in
      let environmentName =
        field_map_exn json__ "environmentName" EnvironmentName.of_json in
      let appId = field_map_exn json__ "appId" AppId.of_json in
      make ?deploymentArtifacts ?stackName ~environmentName ~appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request structure for the backend environment create request."]
module CreateAppResult =
  struct
    type nonrec t = {
      app: App.t option }
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `DependentServiceFailureException of
          DependentServiceFailureException.t 
      | `InternalFailureException of InternalFailureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?app = fun () -> { app }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_json json)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "DependentServiceFailureException" ->
          `DependentServiceFailureException
            (DependentServiceFailureException.of_xml xml)
      | "InternalFailureException" ->
          `InternalFailureException (InternalFailureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `DependentServiceFailureException e ->
          `Assoc
            [("error", (`String "DependentServiceFailureException"));
            ("details", (DependentServiceFailureException.to_json e))]
      | `InternalFailureException e ->
          `Assoc
            [("error", (`String "InternalFailureException"));
            ("details", (InternalFailureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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 [("app", (Option.map x.app ~f:App.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let app = (Option.map ~f:App.of_xml) (Xml.child xml_arg0 "app") in
      make ?app ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let app = field_map json__ "app" App.of_json in make ?app ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new Amplify app."]
module CreateAppRequest =
  struct
    type nonrec t =
      {
      name: Name.t [@ocaml.doc "The name of the Amplify app."];
      description: Description.t option
        [@ocaml.doc "The description of the Amplify app."];
      repository: Repository.t option
        [@ocaml.doc "The Git repository for the Amplify app."];
      platform: Platform.t option
        [@ocaml.doc
          "The platform for the Amplify app. For a static app, set the platform type to WEB. For a dynamic server-side rendered (SSR) app, set the platform type to WEB_COMPUTE. For an app requiring Amplify Hosting's original SSR support only, set the platform type to WEB_DYNAMIC. If you are deploying an SSG only app with Next.js version 14 or later, you must set the platform type to WEB_COMPUTE and set the artifacts baseDirectory to .next in the application's build settings. For an example of the build specification settings, see Amplify build settings for a Next.js 14 SSG application in the Amplify Hosting User Guide."];
      computeRoleArn: ComputeRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM role to assign to an SSR app. The SSR Compute role allows the Amplify Hosting compute service to securely access specific Amazon Web Services resources based on the role's permissions. For more information about the SSR Compute role, see Adding an SSR Compute role in the Amplify User Guide."];
      iamServiceRoleArn: ServiceRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the IAM service role for the Amplify app."];
      oauthToken: OauthToken.t option
        [@ocaml.doc
          "The OAuth token for a third-party source control system for an Amplify app. The OAuth token is used to create a webhook and a read-only deploy key using SSH cloning. The OAuth token is not stored. Use oauthToken for repository providers other than GitHub, such as Bitbucket or CodeCommit. To authorize access to GitHub as your repository provider, use accessToken. You must specify either oauthToken or accessToken when you create a new app. Existing Amplify apps deployed from a GitHub repository using OAuth continue to work with CI/CD. However, we strongly recommend that you migrate these apps to use the GitHub App. For more information, see Migrating an existing OAuth app to the Amplify GitHub App in the Amplify User Guide ."];
      accessToken: AccessToken.t option
        [@ocaml.doc
          "The personal access token for a GitHub repository for an Amplify app. The personal access token is used to authorize access to a GitHub repository using the Amplify GitHub App. The token is not stored. Use accessToken for GitHub repositories only. To authorize access to a repository provider such as Bitbucket or CodeCommit, use oauthToken. You must specify either accessToken or oauthToken when you create a new app. Existing Amplify apps deployed from a GitHub repository using OAuth continue to work with CI/CD. However, we strongly recommend that you migrate these apps to use the GitHub App. For more information, see Migrating an existing OAuth app to the Amplify GitHub App in the Amplify User Guide ."];
      environmentVariables: EnvironmentVariables.t option
        [@ocaml.doc
          "The environment variables map for an Amplify app. For a list of the environment variables that are accessible to Amplify by default, see Amplify Environment variables in the Amplify Hosting User Guide."];
      enableBranchAutoBuild: EnableBranchAutoBuild.t option
        [@ocaml.doc
          "Enables the auto building of branches for an Amplify app."];
      enableBranchAutoDeletion: EnableBranchAutoDeletion.t option
        [@ocaml.doc
          "Automatically disconnects a branch in the Amplify console when you delete a branch from your Git repository."];
      enableBasicAuth: EnableBasicAuth.t option
        [@ocaml.doc
          "Enables basic authorization for an Amplify app. This will apply to all branches that are part of this app."];
      basicAuthCredentials: BasicAuthCredentials.t option
        [@ocaml.doc
          "The credentials for basic authorization for an Amplify app. You must base64-encode the authorization credentials and provide them in the format user:password."];
      customRules: CustomRules.t option
        [@ocaml.doc
          "The custom rewrite and redirect rules for an Amplify app."];
      tags: TagMap.t option [@ocaml.doc "The tag for an Amplify app."];
      buildSpec: BuildSpec.t option
        [@ocaml.doc
          "The build specification (build spec) for an Amplify app."];
      customHeaders: CustomHeaders.t option
        [@ocaml.doc "The custom HTTP headers for an Amplify app."];
      enableAutoBranchCreation: EnableAutoBranchCreation.t option
        [@ocaml.doc "Enables automated branch creation for an Amplify app."];
      autoBranchCreationPatterns: AutoBranchCreationPatterns.t option
        [@ocaml.doc
          "The automated branch creation glob patterns for an Amplify app."];
      autoBranchCreationConfig: AutoBranchCreationConfig.t option
        [@ocaml.doc
          "The automated branch creation configuration for an Amplify app."];
      jobConfig: JobConfig.t option
        [@ocaml.doc
          "Describes the configuration details that apply to the jobs for an Amplify app."];
      cacheConfig: CacheConfig.t option
        [@ocaml.doc "The cache configuration for the Amplify app."]}
    let context_ = "CreateAppRequest"
    let make ?description =
      fun ?repository ->
        fun ?platform ->
          fun ?computeRoleArn ->
            fun ?iamServiceRoleArn ->
              fun ?oauthToken ->
                fun ?accessToken ->
                  fun ?environmentVariables ->
                    fun ?enableBranchAutoBuild ->
                      fun ?enableBranchAutoDeletion ->
                        fun ?enableBasicAuth ->
                          fun ?basicAuthCredentials ->
                            fun ?customRules ->
                              fun ?tags ->
                                fun ?buildSpec ->
                                  fun ?customHeaders ->
                                    fun ?enableAutoBranchCreation ->
                                      fun ?autoBranchCreationPatterns ->
                                        fun ?autoBranchCreationConfig ->
                                          fun ?jobConfig ->
                                            fun ?cacheConfig ->
                                              fun ~name ->
                                                fun () ->
                                                  {
                                                    description;
                                                    repository;
                                                    platform;
                                                    computeRoleArn;
                                                    iamServiceRoleArn;
                                                    oauthToken;
                                                    accessToken;
                                                    environmentVariables;
                                                    enableBranchAutoBuild;
                                                    enableBranchAutoDeletion;
                                                    enableBasicAuth;
                                                    basicAuthCredentials;
                                                    customRules;
                                                    tags;
                                                    buildSpec;
                                                    customHeaders;
                                                    enableAutoBranchCreation;
                                                    autoBranchCreationPatterns;
                                                    autoBranchCreationConfig;
                                                    jobConfig;
                                                    cacheConfig;
                                                    name
                                                  }
    let to_value x =
      structure_to_value
        [("name", (Some (Name.to_value x.name)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("repository", (Option.map x.repository ~f:Repository.to_value));
        ("platform", (Option.map x.platform ~f:Platform.to_value));
        ("computeRoleArn",
          (Option.map x.computeRoleArn ~f:ComputeRoleArn.to_value));
        ("iamServiceRoleArn",
          (Option.map x.iamServiceRoleArn ~f:ServiceRoleArn.to_value));
        ("oauthToken", (Option.map x.oauthToken ~f:OauthToken.to_value));
        ("accessToken", (Option.map x.accessToken ~f:AccessToken.to_value));
        ("environmentVariables",
          (Option.map x.environmentVariables ~f:EnvironmentVariables.to_value));
        ("enableBranchAutoBuild",
          (Option.map x.enableBranchAutoBuild
             ~f:EnableBranchAutoBuild.to_value));
        ("enableBranchAutoDeletion",
          (Option.map x.enableBranchAutoDeletion
             ~f:EnableBranchAutoDeletion.to_value));
        ("enableBasicAuth",
          (Option.map x.enableBasicAuth ~f:EnableBasicAuth.to_value));
        ("basicAuthCredentials",
          (Option.map x.basicAuthCredentials ~f:BasicAuthCredentials.to_value));
        ("customRules", (Option.map x.customRules ~f:CustomRules.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("buildSpec", (Option.map x.buildSpec ~f:BuildSpec.to_value));
        ("customHeaders",
          (Option.map x.customHeaders ~f:CustomHeaders.to_value));
        ("enableAutoBranchCreation",
          (Option.map x.enableAutoBranchCreation
             ~f:EnableAutoBranchCreation.to_value));
        ("autoBranchCreationPatterns",
          (Option.map x.autoBranchCreationPatterns
             ~f:AutoBranchCreationPatterns.to_value));
        ("autoBranchCreationConfig",
          (Option.map x.autoBranchCreationConfig
             ~f:AutoBranchCreationConfig.to_value));
        ("jobConfig", (Option.map x.jobConfig ~f:JobConfig.to_value));
        ("cacheConfig", (Option.map x.cacheConfig ~f:CacheConfig.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cacheConfig =
        (Option.map ~f:CacheConfig.of_xml) (Xml.child xml_arg0 "cacheConfig") in
      let jobConfig =
        (Option.map ~f:JobConfig.of_xml) (Xml.child xml_arg0 "jobConfig") in
      let autoBranchCreationConfig =
        (Option.map ~f:AutoBranchCreationConfig.of_xml)
          (Xml.child xml_arg0 "autoBranchCreationConfig") in
      let autoBranchCreationPatterns =
        (Option.map ~f:AutoBranchCreationPatterns.of_xml)
          (Xml.child xml_arg0 "autoBranchCreationPatterns") in
      let enableAutoBranchCreation =
        (Option.map ~f:EnableAutoBranchCreation.of_xml)
          (Xml.child xml_arg0 "enableAutoBranchCreation") in
      let customHeaders =
        (Option.map ~f:CustomHeaders.of_xml)
          (Xml.child xml_arg0 "customHeaders") in
      let buildSpec =
        (Option.map ~f:BuildSpec.of_xml) (Xml.child xml_arg0 "buildSpec") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let customRules =
        (Option.map ~f:CustomRules.of_xml) (Xml.child xml_arg0 "customRules") in
      let basicAuthCredentials =
        (Option.map ~f:BasicAuthCredentials.of_xml)
          (Xml.child xml_arg0 "basicAuthCredentials") in
      let enableBasicAuth =
        (Option.map ~f:EnableBasicAuth.of_xml)
          (Xml.child xml_arg0 "enableBasicAuth") in
      let enableBranchAutoDeletion =
        (Option.map ~f:EnableBranchAutoDeletion.of_xml)
          (Xml.child xml_arg0 "enableBranchAutoDeletion") in
      let enableBranchAutoBuild =
        (Option.map ~f:EnableBranchAutoBuild.of_xml)
          (Xml.child xml_arg0 "enableBranchAutoBuild") in
      let environmentVariables =
        (Option.map ~f:EnvironmentVariables.of_xml)
          (Xml.child xml_arg0 "environmentVariables") in
      let accessToken =
        (Option.map ~f:AccessToken.of_xml) (Xml.child xml_arg0 "accessToken") in
      let oauthToken =
        (Option.map ~f:OauthToken.of_xml) (Xml.child xml_arg0 "oauthToken") in
      let iamServiceRoleArn =
        (Option.map ~f:ServiceRoleArn.of_xml)
          (Xml.child xml_arg0 "iamServiceRoleArn") in
      let computeRoleArn =
        (Option.map ~f:ComputeRoleArn.of_xml)
          (Xml.child xml_arg0 "computeRoleArn") in
      let platform =
        (Option.map ~f:Platform.of_xml) (Xml.child xml_arg0 "platform") in
      let repository =
        (Option.map ~f:Repository.of_xml) (Xml.child xml_arg0 "repository") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let name =
        Name.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?cacheConfig ?jobConfig ?autoBranchCreationConfig
        ?autoBranchCreationPatterns ?enableAutoBranchCreation ?customHeaders
        ?buildSpec ?tags ?customRules ?basicAuthCredentials ?enableBasicAuth
        ?enableBranchAutoDeletion ?enableBranchAutoBuild
        ?environmentVariables ?accessToken ?oauthToken ?iamServiceRoleArn
        ?computeRoleArn ?platform ?repository ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cacheConfig = field_map json__ "cacheConfig" CacheConfig.of_json in
      let jobConfig = field_map json__ "jobConfig" JobConfig.of_json in
      let autoBranchCreationConfig =
        field_map json__ "autoBranchCreationConfig"
          AutoBranchCreationConfig.of_json in
      let autoBranchCreationPatterns =
        field_map json__ "autoBranchCreationPatterns"
          AutoBranchCreationPatterns.of_json in
      let enableAutoBranchCreation =
        field_map json__ "enableAutoBranchCreation"
          EnableAutoBranchCreation.of_json in
      let customHeaders =
        field_map json__ "customHeaders" CustomHeaders.of_json in
      let buildSpec = field_map json__ "buildSpec" BuildSpec.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let customRules = field_map json__ "customRules" CustomRules.of_json in
      let basicAuthCredentials =
        field_map json__ "basicAuthCredentials" BasicAuthCredentials.of_json in
      let enableBasicAuth =
        field_map json__ "enableBasicAuth" EnableBasicAuth.of_json in
      let enableBranchAutoDeletion =
        field_map json__ "enableBranchAutoDeletion"
          EnableBranchAutoDeletion.of_json in
      let enableBranchAutoBuild =
        field_map json__ "enableBranchAutoBuild"
          EnableBranchAutoBuild.of_json in
      let environmentVariables =
        field_map json__ "environmentVariables" EnvironmentVariables.of_json in
      let accessToken = field_map json__ "accessToken" AccessToken.of_json in
      let oauthToken = field_map json__ "oauthToken" OauthToken.of_json in
      let iamServiceRoleArn =
        field_map json__ "iamServiceRoleArn" ServiceRoleArn.of_json in
      let computeRoleArn =
        field_map json__ "computeRoleArn" ComputeRoleArn.of_json in
      let platform = field_map json__ "platform" Platform.of_json in
      let repository = field_map json__ "repository" Repository.of_json in
      let description = field_map json__ "description" Description.of_json in
      let name = field_map_exn json__ "name" Name.of_json in
      make ?cacheConfig ?jobConfig ?autoBranchCreationConfig
        ?autoBranchCreationPatterns ?enableAutoBranchCreation ?customHeaders
        ?buildSpec ?tags ?customRules ?basicAuthCredentials ?enableBasicAuth
        ?enableBranchAutoDeletion ?enableBranchAutoBuild
        ?environmentVariables ?accessToken ?oauthToken ?iamServiceRoleArn
        ?computeRoleArn ?platform ?repository ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request structure used to create apps in Amplify."]