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.codepipeline
let apiVersion = "2015-07-09"
let endpointPrefix = "codepipeline"
let serviceFullName = "AWS CodePipeline"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "CodePipeline"
let targetPrefix = "CodePipeline_20150709"
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 ArtifactName =
  struct
    type nonrec t = string
    let context_ = "ArtifactName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-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:"ArtifactName" j
    let to_json = simple_to_json to_value
  end
module Command =
  struct
    type nonrec t = string
    let context_ = "Command"
    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:"Command" j
    let to_json = simple_to_json to_value
  end
module InputArtifact =
  struct
    type nonrec t =
      {
      name: ArtifactName.t
        [@ocaml.doc
          "The name of the artifact to be worked on (for example, \"My App\"). Artifacts are the files that are worked on by actions in the pipeline. See the action configuration for each action for details about artifact parameters. For example, the S3 source action input artifact is a file name (or file path), and the files are generally provided as a ZIP file. Example artifact name: SampleApp_Windows.zip The input artifact of an action must exactly match the output artifact declared in a preceding action, but the input artifact does not have to be the next action in strict sequence from the action that provided the output artifact. Actions in parallel can declare different output artifacts, which are in turn consumed by different following actions."]}
    let context_ = "InputArtifact"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("name", (Some (ArtifactName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        ArtifactName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" ArtifactName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about an artifact to be worked on, such as a test or build artifact."]
module RuleConfigurationKey =
  struct
    type nonrec t = string
    let context_ = "RuleConfigurationKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (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:"RuleConfigurationKey" j
    let to_json = simple_to_json to_value
  end
module RuleConfigurationValue =
  struct
    type nonrec t = string
    let context_ = "RuleConfigurationValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10000) >>=
             (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:"RuleConfigurationValue" j
    let to_json = simple_to_json to_value
  end
module RuleCategory =
  struct
    type nonrec t =
      | Rule 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Rule -> "Rule" | Non_static_id s -> s
    let of_string = function | "Rule" -> Rule | 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 RuleCategory" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleCategory" j)
    let to_json = simple_to_json to_value
  end
module RuleOwner =
  struct
    type nonrec t =
      | AWS 
      | Non_static_id of string 
    let make i = i
    let to_string = function | AWS -> "AWS" | Non_static_id s -> s
    let of_string = function | "AWS" -> AWS | 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 RuleOwner" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleOwner" j)
    let to_json = simple_to_json to_value
  end
module RuleProvider =
  struct
    type nonrec t = string
    let context_ = "RuleProvider"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:35) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9A-Za-z_-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RuleProvider" j
    let to_json = simple_to_json to_value
  end
module Version =
  struct
    type nonrec t = string
    let context_ = "Version"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:9) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9A-Za-z_-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Version" 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 Message =
  struct
    type nonrec t = string
    let context_ = "Message"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:5000) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Message" j
    let to_json = simple_to_json to_value
  end
module AWSRegionName =
  struct
    type nonrec t = string
    let context_ = "AWSRegionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:30) >>=
             (fun () -> check_string_min i ~min:4));
        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:"AWSRegionName" j
    let to_json = simple_to_json to_value
  end
module CommandList =
  struct
    type nonrec t = Command.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:Command.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:Command.of_xml)
    let of_json j =
      list_of_json ~kind:"CommandList" ~of_json:Command.of_json j
    let to_json v = composed_to_json to_value v
  end
module InputArtifactList =
  struct
    type nonrec t = InputArtifact.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:InputArtifact.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:InputArtifact.of_xml)
    let of_json j =
      list_of_json ~kind:"InputArtifactList" ~of_json:InputArtifact.of_json j
    let to_json v = composed_to_json to_value v
  end
module RoleArn =
  struct
    type nonrec t = string
    let context_ = "RoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"arn:aws(-[\\w]+)*:iam::[0-9]{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:"RoleArn" j
    let to_json = simple_to_json to_value
  end
module RuleConfigurationMap =
  struct
    type nonrec t = (RuleConfigurationKey.t * RuleConfigurationValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (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 ->
                            ((RuleConfigurationKey.of_string chopped),
                              (RuleConfigurationValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (RuleConfigurationKey.to_value x) |>
                    (fun x ->
                       (RuleConfigurationValue.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:RuleConfigurationKey.of_string
        ~of_json:RuleConfigurationValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleName =
  struct
    type nonrec t = string
    let context_ = "RuleName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-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:"RuleName" j
    let to_json = simple_to_json to_value
  end
module RuleTimeout =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:86400) >>=
             (fun () -> check_int_min i ~min:5));
        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 RuleTimeout" 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 RuleTypeId =
  struct
    type nonrec t =
      {
      category: RuleCategory.t
        [@ocaml.doc
          "A category defines what kind of rule can be run in the stage, and constrains the provider type for the rule. The valid category is Rule."];
      owner: RuleOwner.t option
        [@ocaml.doc
          "The creator of the rule being called. The valid value for the Owner field in the rule category is AWS."];
      provider: RuleProvider.t
        [@ocaml.doc
          "The rule provider, such as the DeploymentWindow rule. For a list of rule provider names, see the rules listed in the CodePipeline rule reference."];
      version: Version.t option
        [@ocaml.doc "A string that describes the rule version."]}
    let context_ = "RuleTypeId"
    let make ?owner =
      fun ?version ->
        fun ~category ->
          fun ~provider -> fun () -> { owner; version; category; provider }
    let to_value x =
      structure_to_value
        [("category", (Some (RuleCategory.to_value x.category)));
        ("owner", (Option.map x.owner ~f:RuleOwner.to_value));
        ("provider", (Some (RuleProvider.to_value x.provider)));
        ("version", (Option.map x.version ~f:Version.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:Version.of_xml) (Xml.child xml_arg0 "version") in
      let provider =
        RuleProvider.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "provider") in
      let owner =
        (Option.map ~f:RuleOwner.of_xml) (Xml.child xml_arg0 "owner") in
      let category =
        RuleCategory.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "category") in
      make ?version ~provider ?owner ~category ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "version" Version.of_json in
      let provider = field_map_exn json__ "provider" RuleProvider.of_json in
      let owner = field_map json__ "owner" RuleOwner.of_json in
      let category = field_map_exn json__ "category" RuleCategory.of_json in
      make ?version ~provider ?owner ~category ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The ID for the rule type, which is made up of the combined values for category, owner, provider, and version. For more information about conditions, see Stage conditions. For more information about rules, see the CodePipeline rule reference."]
module FilePath =
  struct
    type nonrec t = string
    let context_ = "FilePath"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FilePath" j
    let to_json = simple_to_json to_value
  end
module GitBranchNamePattern =
  struct
    type nonrec t = string
    let context_ = "GitBranchNamePattern"
    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:".*")));
        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:"GitBranchNamePattern" j
    let to_json = simple_to_json to_value
  end
module GitFilePathPattern =
  struct
    type nonrec t = string
    let context_ = "GitFilePathPattern"
    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:".*")));
        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:"GitFilePathPattern" j
    let to_json = simple_to_json to_value
  end
module GitTagNamePattern =
  struct
    type nonrec t = string
    let context_ = "GitTagNamePattern"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (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:"GitTagNamePattern" j
    let to_json = simple_to_json to_value
  end
module ErrorDetails =
  struct
    type nonrec t =
      {
      code: Code.t option
        [@ocaml.doc "The system ID or number code of the error."];
      message: Message.t option [@ocaml.doc "The text of the error message."]}
    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:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      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" Message.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 "Represents information about an error in CodePipeline."]
module ExecutionId =
  struct
    type nonrec t = string
    let context_ = "ExecutionId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1500) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ExecutionId" j
    let to_json = simple_to_json to_value
  end
module ExecutionSummary =
  struct
    type nonrec t = string
    let context_ = "ExecutionSummary"
    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:"ExecutionSummary" j
    let to_json = simple_to_json to_value
  end
module LastUpdatedBy =
  struct
    type nonrec t = string
    let context_ = "LastUpdatedBy"
    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:"LastUpdatedBy" j
    let to_json = simple_to_json to_value
  end
module RuleExecutionId =
  struct
    type nonrec t = string
    let context_ = "RuleExecutionId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (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:"RuleExecutionId" j
    let to_json = simple_to_json to_value
  end
module RuleExecutionStatus =
  struct
    type nonrec t =
      | InProgress 
      | Abandoned 
      | Succeeded 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | InProgress -> "InProgress"
      | Abandoned -> "Abandoned"
      | Succeeded -> "Succeeded"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "InProgress" -> InProgress
      | "Abandoned" -> Abandoned
      | "Succeeded" -> Succeeded
      | "Failed" -> 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 RuleExecutionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleExecutionStatus" j)
    let to_json = simple_to_json to_value
  end
module RuleExecutionToken =
  struct
    type nonrec t = string
    let context_ = "RuleExecutionToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9\\-\\.]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RuleExecutionToken" j
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module Url =
  struct
    type nonrec t = string
    let context_ = "Url"
    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:"Url" j
    let to_json = simple_to_json to_value
  end
module Revision =
  struct
    type nonrec t = string
    let context_ = "Revision"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1500) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Revision" j
    let to_json = simple_to_json to_value
  end
module RevisionChangeIdentifier =
  struct
    type nonrec t = string
    let context_ = "RevisionChangeIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"RevisionChangeIdentifier" j
    let to_json = simple_to_json to_value
  end
module RuleDeclaration =
  struct
    type nonrec t =
      {
      name: RuleName.t
        [@ocaml.doc
          "The name of the rule that is created for the condition, such as VariableCheck."];
      ruleTypeId: RuleTypeId.t
        [@ocaml.doc
          "The ID for the rule type, which is made up of the combined values for category, owner, provider, and version."];
      configuration: RuleConfigurationMap.t option
        [@ocaml.doc "The action configuration fields for the rule."];
      commands: CommandList.t option
        [@ocaml.doc
          "The shell commands to run with your commands rule in CodePipeline. All commands are supported except multi-line formats. While CodeBuild logs and permissions are used, you do not need to create any resources in CodeBuild. Using compute time for this action will incur separate charges in CodeBuild."];
      inputArtifacts: InputArtifactList.t option
        [@ocaml.doc
          "The input artifacts fields for the rule, such as specifying an input file for the rule."];
      roleArn: RoleArn.t option
        [@ocaml.doc "The pipeline role ARN associated with the rule."];
      region: AWSRegionName.t option
        [@ocaml.doc "The Region for the condition associated with the rule."];
      timeoutInMinutes: RuleTimeout.t option
        [@ocaml.doc "The action timeout for the rule."]}
    let context_ = "RuleDeclaration"
    let make ?configuration =
      fun ?commands ->
        fun ?inputArtifacts ->
          fun ?roleArn ->
            fun ?region ->
              fun ?timeoutInMinutes ->
                fun ~name ->
                  fun ~ruleTypeId ->
                    fun () ->
                      {
                        configuration;
                        commands;
                        inputArtifacts;
                        roleArn;
                        region;
                        timeoutInMinutes;
                        name;
                        ruleTypeId
                      }
    let to_value x =
      structure_to_value
        [("name", (Some (RuleName.to_value x.name)));
        ("ruleTypeId", (Some (RuleTypeId.to_value x.ruleTypeId)));
        ("configuration",
          (Option.map x.configuration ~f:RuleConfigurationMap.to_value));
        ("commands", (Option.map x.commands ~f:CommandList.to_value));
        ("inputArtifacts",
          (Option.map x.inputArtifacts ~f:InputArtifactList.to_value));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("region", (Option.map x.region ~f:AWSRegionName.to_value));
        ("timeoutInMinutes",
          (Option.map x.timeoutInMinutes ~f:RuleTimeout.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timeoutInMinutes =
        (Option.map ~f:RuleTimeout.of_xml)
          (Xml.child xml_arg0 "timeoutInMinutes") in
      let region =
        (Option.map ~f:AWSRegionName.of_xml) (Xml.child xml_arg0 "region") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let inputArtifacts =
        (Option.map ~f:InputArtifactList.of_xml)
          (Xml.child xml_arg0 "inputArtifacts") in
      let commands =
        (Option.map ~f:CommandList.of_xml) (Xml.child xml_arg0 "commands") in
      let configuration =
        (Option.map ~f:RuleConfigurationMap.of_xml)
          (Xml.child xml_arg0 "configuration") in
      let ruleTypeId =
        RuleTypeId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ruleTypeId") in
      let name =
        RuleName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?timeoutInMinutes ?region ?roleArn ?inputArtifacts ?commands
        ?configuration ~ruleTypeId ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timeoutInMinutes =
        field_map json__ "timeoutInMinutes" RuleTimeout.of_json in
      let region = field_map json__ "region" AWSRegionName.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let inputArtifacts =
        field_map json__ "inputArtifacts" InputArtifactList.of_json in
      let commands = field_map json__ "commands" CommandList.of_json in
      let configuration =
        field_map json__ "configuration" RuleConfigurationMap.of_json in
      let ruleTypeId = field_map_exn json__ "ruleTypeId" RuleTypeId.of_json in
      let name = field_map_exn json__ "name" RuleName.of_json in
      make ?timeoutInMinutes ?region ?roleArn ?inputArtifacts ?commands
        ?configuration ~ruleTypeId ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about the rule to be created for an associated condition. An example would be creating a new rule for an entry condition, such as a rule that checks for a test result before allowing the run to enter the deployment stage. For more information about conditions, see Stage conditions and How do stage conditions work?. For more information about rules, see the CodePipeline rule reference."]
module EnvironmentVariableName =
  struct
    type nonrec t = string
    let context_ = "EnvironmentVariableName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EnvironmentVariableName" j
    let to_json = simple_to_json to_value
  end
module EnvironmentVariableType =
  struct
    type nonrec t =
      | PLAINTEXT 
      | SECRETS_MANAGER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PLAINTEXT -> "PLAINTEXT"
      | SECRETS_MANAGER -> "SECRETS_MANAGER"
      | Non_static_id s -> s
    let of_string =
      function
      | "PLAINTEXT" -> PLAINTEXT
      | "SECRETS_MANAGER" -> SECRETS_MANAGER
      | 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 EnvironmentVariableType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"EnvironmentVariableType" j)
    let to_json = simple_to_json to_value
  end
module EnvironmentVariableValue =
  struct
    type nonrec t = string
    let context_ = "EnvironmentVariableValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2000) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EnvironmentVariableValue" j
    let to_json = simple_to_json to_value
  end
module FilePathList =
  struct
    type nonrec t = FilePath.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (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:FilePath.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:FilePath.of_xml)
    let of_json j =
      list_of_json ~kind:"FilePathList" ~of_json:FilePath.of_json j
    let to_json v = composed_to_json to_value v
  end
module GitBranchPatternList =
  struct
    type nonrec t = GitBranchNamePattern.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:8) >>= (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:GitBranchNamePattern.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:GitBranchNamePattern.of_xml)
    let of_json j =
      list_of_json ~kind:"GitBranchPatternList"
        ~of_json:GitBranchNamePattern.of_json j
    let to_json v = composed_to_json to_value v
  end
module GitFilePathPatternList =
  struct
    type nonrec t = GitFilePathPattern.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:8) >>= (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:GitFilePathPattern.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:GitFilePathPattern.of_xml)
    let of_json j =
      list_of_json ~kind:"GitFilePathPatternList"
        ~of_json:GitFilePathPattern.of_json j
    let to_json v = composed_to_json to_value v
  end
module GitPullRequestEventType =
  struct
    type nonrec t =
      | OPEN 
      | UPDATED 
      | CLOSED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OPEN -> "OPEN"
      | UPDATED -> "UPDATED"
      | CLOSED -> "CLOSED"
      | Non_static_id s -> s
    let of_string =
      function
      | "OPEN" -> OPEN
      | "UPDATED" -> UPDATED
      | "CLOSED" -> CLOSED
      | 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 GitPullRequestEventType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"GitPullRequestEventType" j)
    let to_json = simple_to_json to_value
  end
module GitTagPatternList =
  struct
    type nonrec t = GitTagNamePattern.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:8) >>= (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:GitTagNamePattern.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:GitTagNamePattern.of_xml)
    let of_json j =
      list_of_json ~kind:"GitTagPatternList"
        ~of_json:GitTagNamePattern.of_json j
    let to_json v = composed_to_json to_value v
  end
module S3BucketName =
  struct
    type nonrec t = string
    let context_ = "S3BucketName"
    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:"S3BucketName" j
    let to_json = simple_to_json to_value
  end
module S3ObjectKey =
  struct
    type nonrec t = string
    let context_ = "S3ObjectKey"
    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:"S3ObjectKey" j
    let to_json = simple_to_json to_value
  end
module RuleExecution =
  struct
    type nonrec t =
      {
      ruleExecutionId: RuleExecutionId.t option
        [@ocaml.doc "The execution ID for the run of the rule."];
      status: RuleExecutionStatus.t option
        [@ocaml.doc "The status of the run of the rule, such as FAILED."];
      summary: ExecutionSummary.t option
        [@ocaml.doc "A summary of the run of the rule."];
      lastStatusChange: Timestamp.t option
        [@ocaml.doc "The last status change of the rule."];
      token: RuleExecutionToken.t option
        [@ocaml.doc
          "The system-generated token used to identify a unique request."];
      lastUpdatedBy: LastUpdatedBy.t option
        [@ocaml.doc "The ARN of the user who last changed the rule."];
      externalExecutionId: ExecutionId.t option
        [@ocaml.doc "The external ID of the run of the rule."];
      externalExecutionUrl: Url.t option
        [@ocaml.doc
          "The URL of a resource external to Amazon Web Services that is used when running the rule (for example, an external repository URL)."];
      errorDetails: ErrorDetails.t option }
    let make ?ruleExecutionId =
      fun ?status ->
        fun ?summary ->
          fun ?lastStatusChange ->
            fun ?token ->
              fun ?lastUpdatedBy ->
                fun ?externalExecutionId ->
                  fun ?externalExecutionUrl ->
                    fun ?errorDetails ->
                      fun () ->
                        {
                          ruleExecutionId;
                          status;
                          summary;
                          lastStatusChange;
                          token;
                          lastUpdatedBy;
                          externalExecutionId;
                          externalExecutionUrl;
                          errorDetails
                        }
    let to_value x =
      structure_to_value
        [("ruleExecutionId",
           (Option.map x.ruleExecutionId ~f:RuleExecutionId.to_value));
        ("status", (Option.map x.status ~f:RuleExecutionStatus.to_value));
        ("summary", (Option.map x.summary ~f:ExecutionSummary.to_value));
        ("lastStatusChange",
          (Option.map x.lastStatusChange ~f:Timestamp.to_value));
        ("token", (Option.map x.token ~f:RuleExecutionToken.to_value));
        ("lastUpdatedBy",
          (Option.map x.lastUpdatedBy ~f:LastUpdatedBy.to_value));
        ("externalExecutionId",
          (Option.map x.externalExecutionId ~f:ExecutionId.to_value));
        ("externalExecutionUrl",
          (Option.map x.externalExecutionUrl ~f:Url.to_value));
        ("errorDetails",
          (Option.map x.errorDetails ~f:ErrorDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorDetails =
        (Option.map ~f:ErrorDetails.of_xml)
          (Xml.child xml_arg0 "errorDetails") in
      let externalExecutionUrl =
        (Option.map ~f:Url.of_xml)
          (Xml.child xml_arg0 "externalExecutionUrl") in
      let externalExecutionId =
        (Option.map ~f:ExecutionId.of_xml)
          (Xml.child xml_arg0 "externalExecutionId") in
      let lastUpdatedBy =
        (Option.map ~f:LastUpdatedBy.of_xml)
          (Xml.child xml_arg0 "lastUpdatedBy") in
      let token =
        (Option.map ~f:RuleExecutionToken.of_xml)
          (Xml.child xml_arg0 "token") in
      let lastStatusChange =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastStatusChange") in
      let summary =
        (Option.map ~f:ExecutionSummary.of_xml)
          (Xml.child xml_arg0 "summary") in
      let status =
        (Option.map ~f:RuleExecutionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let ruleExecutionId =
        (Option.map ~f:RuleExecutionId.of_xml)
          (Xml.child xml_arg0 "ruleExecutionId") in
      make ?errorDetails ?externalExecutionUrl ?externalExecutionId
        ?lastUpdatedBy ?token ?lastStatusChange ?summary ?status
        ?ruleExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorDetails = field_map json__ "errorDetails" ErrorDetails.of_json in
      let externalExecutionUrl =
        field_map json__ "externalExecutionUrl" Url.of_json in
      let externalExecutionId =
        field_map json__ "externalExecutionId" ExecutionId.of_json in
      let lastUpdatedBy =
        field_map json__ "lastUpdatedBy" LastUpdatedBy.of_json in
      let token = field_map json__ "token" RuleExecutionToken.of_json in
      let lastStatusChange =
        field_map json__ "lastStatusChange" Timestamp.of_json in
      let summary = field_map json__ "summary" ExecutionSummary.of_json in
      let status = field_map json__ "status" RuleExecutionStatus.of_json in
      let ruleExecutionId =
        field_map json__ "ruleExecutionId" RuleExecutionId.of_json in
      make ?errorDetails ?externalExecutionUrl ?externalExecutionId
        ?lastUpdatedBy ?token ?lastStatusChange ?summary ?status
        ?ruleExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about each time a rule is run as part of the pipeline execution for a pipeline configured with conditions."]
module RuleRevision =
  struct
    type nonrec t =
      {
      revisionId: Revision.t option
        [@ocaml.doc
          "The system-generated unique ID that identifies the revision number of the rule."];
      revisionChangeId: RevisionChangeIdentifier.t option
        [@ocaml.doc
          "The unique identifier of the change that set the state to this revision (for example, a deployment ID or timestamp)."];
      created: Timestamp.t option
        [@ocaml.doc
          "The date and time when the most recent version of the rule was created, in timestamp format."]}
    let make ?revisionId =
      fun ?revisionChangeId ->
        fun ?created -> fun () -> { revisionId; revisionChangeId; created }
    let to_value x =
      structure_to_value
        [("revisionId", (Option.map x.revisionId ~f:Revision.to_value));
        ("revisionChangeId",
          (Option.map x.revisionChangeId ~f:RevisionChangeIdentifier.to_value));
        ("created", (Option.map x.created ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let created =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "created") in
      let revisionChangeId =
        (Option.map ~f:RevisionChangeIdentifier.of_xml)
          (Xml.child xml_arg0 "revisionChangeId") in
      let revisionId =
        (Option.map ~f:Revision.of_xml) (Xml.child xml_arg0 "revisionId") in
      make ?created ?revisionChangeId ?revisionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let created = field_map json__ "created" Timestamp.of_json in
      let revisionChangeId =
        field_map json__ "revisionChangeId" RevisionChangeIdentifier.of_json in
      let revisionId = field_map json__ "revisionId" Revision.of_json in
      make ?created ?revisionChangeId ?revisionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The change to a rule that creates a revision of the rule."]
module Result_ =
  struct
    type nonrec t =
      | ROLLBACK 
      | FAIL 
      | RETRY 
      | SKIP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ROLLBACK -> "ROLLBACK"
      | FAIL -> "FAIL"
      | RETRY -> "RETRY"
      | SKIP -> "SKIP"
      | Non_static_id s -> s
    let of_string =
      function
      | "ROLLBACK" -> ROLLBACK
      | "FAIL" -> FAIL
      | "RETRY" -> RETRY
      | "SKIP" -> SKIP
      | 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 Result" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Result" j)
    let to_json = simple_to_json to_value
  end
module RuleDeclarationList =
  struct
    type nonrec t = RuleDeclaration.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:RuleDeclaration.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:RuleDeclaration.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleDeclarationList"
        ~of_json:RuleDeclaration.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActionConfigurationKey =
  struct
    type nonrec t = string
    let context_ = "ActionConfigurationKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (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:"ActionConfigurationKey" j
    let to_json = simple_to_json to_value
  end
module ActionConfigurationValue =
  struct
    type nonrec t = string
    let context_ = "ActionConfigurationValue"
    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:"ActionConfigurationValue" j
    let to_json = simple_to_json to_value
  end
module ActionCategory =
  struct
    type nonrec t =
      | Source 
      | Build 
      | Deploy 
      | Test 
      | Invoke 
      | Approval 
      | Compute 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Source -> "Source"
      | Build -> "Build"
      | Deploy -> "Deploy"
      | Test -> "Test"
      | Invoke -> "Invoke"
      | Approval -> "Approval"
      | Compute -> "Compute"
      | Non_static_id s -> s
    let of_string =
      function
      | "Source" -> Source
      | "Build" -> Build
      | "Deploy" -> Deploy
      | "Test" -> Test
      | "Invoke" -> Invoke
      | "Approval" -> Approval
      | "Compute" -> 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 ActionCategory" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ActionCategory" j)
    let to_json = simple_to_json to_value
  end
module ActionOwner =
  struct
    type nonrec t =
      | AWS 
      | ThirdParty 
      | Custom 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AWS -> "AWS"
      | ThirdParty -> "ThirdParty"
      | Custom -> "Custom"
      | Non_static_id s -> s
    let of_string =
      function
      | "AWS" -> AWS
      | "ThirdParty" -> ThirdParty
      | "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 ActionOwner" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ActionOwner" j)
    let to_json = simple_to_json to_value
  end
module ActionProvider =
  struct
    type nonrec t = string
    let context_ = "ActionProvider"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:35) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9A-Za-z_-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ActionProvider" j
    let to_json = simple_to_json to_value
  end
module EnvironmentVariable =
  struct
    type nonrec t =
      {
      name: EnvironmentVariableName.t
        [@ocaml.doc "The environment variable name in the key-value pair."];
      value: EnvironmentVariableValue.t
        [@ocaml.doc "The environment variable value in the key-value pair."];
      type_: EnvironmentVariableType.t option
        [@ocaml.doc
          "Specifies the type of use for the environment variable value. The value can be either PLAINTEXT or SECRETS_MANAGER. If the value is SECRETS_MANAGER, provide the Secrets reference in the EnvironmentVariable value."]}
    let context_ = "EnvironmentVariable"
    let make ?type_ =
      fun ~name -> fun ~value -> fun () -> { type_; name; value }
    let to_value x =
      structure_to_value
        [("name", (Some (EnvironmentVariableName.to_value x.name)));
        ("value", (Some (EnvironmentVariableValue.to_value x.value)));
        ("type", (Option.map x.type_ ~f:EnvironmentVariableType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:EnvironmentVariableType.of_xml)
          (Xml.child xml_arg0 "type") in
      let value =
        EnvironmentVariableValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let name =
        EnvironmentVariableName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?type_ ~value ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "type" EnvironmentVariableType.of_json in
      let value =
        field_map_exn json__ "value" EnvironmentVariableValue.of_json in
      let name = field_map_exn json__ "name" EnvironmentVariableName.of_json in
      make ?type_ ~value ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The environment variables for the action."]
module OutputArtifact =
  struct
    type nonrec t =
      {
      name: ArtifactName.t
        [@ocaml.doc
          "The name of the output of an artifact, such as \"My App\". The input artifact of an action must exactly match the output artifact declared in a preceding action, but the input artifact does not have to be the next action in strict sequence from the action that provided the output artifact. Actions in parallel can declare different output artifacts, which are in turn consumed by different following actions. Output artifact names must be unique within a pipeline."];
      files: FilePathList.t option
        [@ocaml.doc
          "The files that you want to associate with the output artifact that will be exported from the compute action."]}
    let context_ = "OutputArtifact"
    let make ?files = fun ~name -> fun () -> { files; name }
    let to_value x =
      structure_to_value
        [("name", (Some (ArtifactName.to_value x.name)));
        ("files", (Option.map x.files ~f:FilePathList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let files =
        (Option.map ~f:FilePathList.of_xml) (Xml.child xml_arg0 "files") in
      let name =
        ArtifactName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?files ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let files = field_map json__ "files" FilePathList.of_json in
      let name = field_map_exn json__ "name" ArtifactName.of_json in
      make ?files ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about the output of an action."]
module OutputVariable =
  struct
    type nonrec t = string
    let context_ = "OutputVariable"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OutputVariable" j
    let to_json = simple_to_json to_value
  end
module GitBranchFilterCriteria =
  struct
    type nonrec t =
      {
      includes: GitBranchPatternList.t option
        [@ocaml.doc
          "The list of patterns of Git branches that, when a commit is pushed, are to be included as criteria that starts the pipeline."];
      excludes: GitBranchPatternList.t option
        [@ocaml.doc
          "The list of patterns of Git branches that, when a commit is pushed, are to be excluded from starting the pipeline."]}
    let make ?includes = fun ?excludes -> fun () -> { includes; excludes }
    let to_value x =
      structure_to_value
        [("includes",
           (Option.map x.includes ~f:GitBranchPatternList.to_value));
        ("excludes",
          (Option.map x.excludes ~f:GitBranchPatternList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let excludes =
        (Option.map ~f:GitBranchPatternList.of_xml)
          (Xml.child xml_arg0 "excludes") in
      let includes =
        (Option.map ~f:GitBranchPatternList.of_xml)
          (Xml.child xml_arg0 "includes") in
      make ?excludes ?includes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let excludes = field_map json__ "excludes" GitBranchPatternList.of_json in
      let includes = field_map json__ "includes" GitBranchPatternList.of_json in
      make ?excludes ?includes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Git repository branches specified as filter criteria to start the pipeline."]
module GitFilePathFilterCriteria =
  struct
    type nonrec t =
      {
      includes: GitFilePathPatternList.t option
        [@ocaml.doc
          "The list of patterns of Git repository file paths that, when a commit is pushed, are to be included as criteria that starts the pipeline."];
      excludes: GitFilePathPatternList.t option
        [@ocaml.doc
          "The list of patterns of Git repository file paths that, when a commit is pushed, are to be excluded from starting the pipeline."]}
    let make ?includes = fun ?excludes -> fun () -> { includes; excludes }
    let to_value x =
      structure_to_value
        [("includes",
           (Option.map x.includes ~f:GitFilePathPatternList.to_value));
        ("excludes",
          (Option.map x.excludes ~f:GitFilePathPatternList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let excludes =
        (Option.map ~f:GitFilePathPatternList.of_xml)
          (Xml.child xml_arg0 "excludes") in
      let includes =
        (Option.map ~f:GitFilePathPatternList.of_xml)
          (Xml.child xml_arg0 "includes") in
      make ?excludes ?includes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let excludes =
        field_map json__ "excludes" GitFilePathPatternList.of_json in
      let includes =
        field_map json__ "includes" GitFilePathPatternList.of_json in
      make ?excludes ?includes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Git repository file paths specified as filter criteria to start the pipeline."]
module GitPullRequestEventTypeList =
  struct
    type nonrec t = GitPullRequestEventType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:3) >>= (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:GitPullRequestEventType.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:GitPullRequestEventType.of_xml)
    let of_json j =
      list_of_json ~kind:"GitPullRequestEventTypeList"
        ~of_json:GitPullRequestEventType.of_json j
    let to_json v = composed_to_json to_value v
  end
module GitTagFilterCriteria =
  struct
    type nonrec t =
      {
      includes: GitTagPatternList.t option
        [@ocaml.doc
          "The list of patterns of Git tags that, when pushed, are to be included as criteria that starts the pipeline."];
      excludes: GitTagPatternList.t option
        [@ocaml.doc
          "The list of patterns of Git tags that, when pushed, are to be excluded from starting the pipeline."]}
    let make ?includes = fun ?excludes -> fun () -> { includes; excludes }
    let to_value x =
      structure_to_value
        [("includes", (Option.map x.includes ~f:GitTagPatternList.to_value));
        ("excludes", (Option.map x.excludes ~f:GitTagPatternList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let excludes =
        (Option.map ~f:GitTagPatternList.of_xml)
          (Xml.child xml_arg0 "excludes") in
      let includes =
        (Option.map ~f:GitTagPatternList.of_xml)
          (Xml.child xml_arg0 "includes") in
      make ?excludes ?includes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let excludes = field_map json__ "excludes" GitTagPatternList.of_json in
      let includes = field_map json__ "includes" GitTagPatternList.of_json in
      make ?excludes ?includes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Git tags specified as filter criteria for whether a Git tag repository event will start the pipeline."]
module ArtifactLocationType =
  struct
    type nonrec t =
      | S3 
      | Non_static_id of string 
    let make i = i
    let to_string = function | S3 -> "S3" | Non_static_id s -> s
    let of_string = function | "S3" -> S3 | 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 ArtifactLocationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ArtifactLocationType" j)
    let to_json = simple_to_json to_value
  end
module S3ArtifactLocation =
  struct
    type nonrec t =
      {
      bucketName: S3BucketName.t option
        [@ocaml.doc "The name of the S3 bucket."];
      objectKey: S3ObjectKey.t option
        [@ocaml.doc
          "The key of the object in the S3 bucket, which uniquely identifies the object in the bucket."]}
    let make ?bucketName =
      fun ?objectKey -> fun () -> { bucketName; objectKey }
    let to_value x =
      structure_to_value
        [("bucketName", (Option.map x.bucketName ~f:S3BucketName.to_value));
        ("objectKey", (Option.map x.objectKey ~f:S3ObjectKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let objectKey =
        (Option.map ~f:S3ObjectKey.of_xml) (Xml.child xml_arg0 "objectKey") in
      let bucketName =
        (Option.map ~f:S3BucketName.of_xml) (Xml.child xml_arg0 "bucketName") in
      make ?objectKey ?bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let objectKey = field_map json__ "objectKey" S3ObjectKey.of_json in
      let bucketName = field_map json__ "bucketName" S3BucketName.of_json in
      make ?objectKey ?bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The location of the S3 bucket that contains a revision."]
module S3Bucket =
  struct
    type nonrec t = string
    let context_ = "S3Bucket"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (fun () -> check_string_min i ~min:3));
        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:"S3Bucket" j
    let to_json = simple_to_json to_value
  end
module S3Key =
  struct
    type nonrec t = string
    let context_ = "S3Key"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"S3Key" j
    let to_json = simple_to_json to_value
  end
module ConditionExecutionStatus =
  struct
    type nonrec t =
      | InProgress 
      | Failed 
      | Errored 
      | Succeeded 
      | Cancelled 
      | Abandoned 
      | Overridden 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | InProgress -> "InProgress"
      | Failed -> "Failed"
      | Errored -> "Errored"
      | Succeeded -> "Succeeded"
      | Cancelled -> "Cancelled"
      | Abandoned -> "Abandoned"
      | Overridden -> "Overridden"
      | Non_static_id s -> s
    let of_string =
      function
      | "InProgress" -> InProgress
      | "Failed" -> Failed
      | "Errored" -> Errored
      | "Succeeded" -> Succeeded
      | "Cancelled" -> Cancelled
      | "Abandoned" -> Abandoned
      | "Overridden" -> Overridden
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ConditionExecutionStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConditionExecutionStatus" j)
    let to_json = simple_to_json to_value
  end
module RuleState =
  struct
    type nonrec t =
      {
      ruleName: RuleName.t option [@ocaml.doc "The name of the rule."];
      currentRevision: RuleRevision.t option
        [@ocaml.doc
          "The ID of the current revision of the artifact successfully worked on by the job."];
      latestExecution: RuleExecution.t option
        [@ocaml.doc
          "Represents information about the latest run of an rule."];
      entityUrl: Url.t option
        [@ocaml.doc
          "A URL link for more information about the state of the action, such as a details page."];
      revisionUrl: Url.t option
        [@ocaml.doc
          "A URL link for more information about the revision, such as a commit details page."]}
    let make ?ruleName =
      fun ?currentRevision ->
        fun ?latestExecution ->
          fun ?entityUrl ->
            fun ?revisionUrl ->
              fun () ->
                {
                  ruleName;
                  currentRevision;
                  latestExecution;
                  entityUrl;
                  revisionUrl
                }
    let to_value x =
      structure_to_value
        [("ruleName", (Option.map x.ruleName ~f:RuleName.to_value));
        ("currentRevision",
          (Option.map x.currentRevision ~f:RuleRevision.to_value));
        ("latestExecution",
          (Option.map x.latestExecution ~f:RuleExecution.to_value));
        ("entityUrl", (Option.map x.entityUrl ~f:Url.to_value));
        ("revisionUrl", (Option.map x.revisionUrl ~f:Url.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionUrl =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "revisionUrl") in
      let entityUrl =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "entityUrl") in
      let latestExecution =
        (Option.map ~f:RuleExecution.of_xml)
          (Xml.child xml_arg0 "latestExecution") in
      let currentRevision =
        (Option.map ~f:RuleRevision.of_xml)
          (Xml.child xml_arg0 "currentRevision") in
      let ruleName =
        (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "ruleName") in
      make ?revisionUrl ?entityUrl ?latestExecution ?currentRevision
        ?ruleName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionUrl = field_map json__ "revisionUrl" Url.of_json in
      let entityUrl = field_map json__ "entityUrl" Url.of_json in
      let latestExecution =
        field_map json__ "latestExecution" RuleExecution.of_json in
      let currentRevision =
        field_map json__ "currentRevision" RuleRevision.of_json in
      let ruleName = field_map json__ "ruleName" RuleName.of_json in
      make ?revisionUrl ?entityUrl ?latestExecution ?currentRevision
        ?ruleName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the state of a rule. Values returned in the revisionId field indicate the rule revision information, such as the commit ID, for the current state."]
module Condition =
  struct
    type nonrec t =
      {
      result: Result_.t option
        [@ocaml.doc
          "The action to be done when the condition is met. For example, rolling back an execution for a failure condition."];
      rules: RuleDeclarationList.t option
        [@ocaml.doc "The rules that make up the condition."]}
    let make ?result = fun ?rules -> fun () -> { result; rules }
    let to_value x =
      structure_to_value
        [("result", (Option.map x.result ~f:Result_.to_value));
        ("rules", (Option.map x.rules ~f:RuleDeclarationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rules =
        (Option.map ~f:RuleDeclarationList.of_xml)
          (Xml.child xml_arg0 "rules") in
      let result =
        (Option.map ~f:Result_.of_xml) (Xml.child xml_arg0 "result") in
      make ?rules ?result ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rules = field_map json__ "rules" RuleDeclarationList.of_json in
      let result = field_map json__ "result" Result_.of_json in
      make ?rules ?result ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The condition for the stage. A condition is made up of the rules and the result for the condition. For more information about conditions, see Stage conditions and How do stage conditions work?.. For more information about rules, see the CodePipeline rule reference."]
module StageRetryMode =
  struct
    type nonrec t =
      | FAILED_ACTIONS 
      | ALL_ACTIONS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FAILED_ACTIONS -> "FAILED_ACTIONS"
      | ALL_ACTIONS -> "ALL_ACTIONS"
      | Non_static_id s -> s
    let of_string =
      function
      | "FAILED_ACTIONS" -> FAILED_ACTIONS
      | "ALL_ACTIONS" -> ALL_ACTIONS
      | 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 StageRetryMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StageRetryMode" j)
    let to_json = simple_to_json to_value
  end
module ActionConfigurationMap =
  struct
    type nonrec t =
      (ActionConfigurationKey.t * ActionConfigurationValue.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 ->
                            ((ActionConfigurationKey.of_string chopped),
                              (ActionConfigurationValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ActionConfigurationKey.to_value x) |>
                    (fun x ->
                       (ActionConfigurationValue.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:ActionConfigurationKey.of_string
        ~of_json:ActionConfigurationValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActionName =
  struct
    type nonrec t = string
    let context_ = "ActionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-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:"ActionName" j
    let to_json = simple_to_json to_value
  end
module ActionNamespace =
  struct
    type nonrec t = string
    let context_ = "ActionNamespace"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-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:"ActionNamespace" j
    let to_json = simple_to_json to_value
  end
module ActionRunOrder =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:999) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ActionRunOrder" 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 ActionTimeout =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:86400) >>=
             (fun () -> check_int_min i ~min:5));
        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 ActionTimeout" 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 ActionTypeId =
  struct
    type nonrec t =
      {
      category: ActionCategory.t
        [@ocaml.doc
          "A category defines what kind of action can be taken in the stage, and constrains the provider type for the action. Valid categories are limited to one of the following values. Source Build Test Deploy Invoke Approval Compute"];
      owner: ActionOwner.t
        [@ocaml.doc
          "The creator of the action being called. There are three valid values for the Owner field in the action category section within your pipeline structure: AWS, ThirdParty, and Custom. For more information, see Valid Action Types and Providers in CodePipeline."];
      provider: ActionProvider.t
        [@ocaml.doc
          "The provider of the service being called by the action. Valid providers are determined by the action category. For example, an action in the Deploy category type might have a provider of CodeDeploy, which would be specified as CodeDeploy. For more information, see Valid Action Types and Providers in CodePipeline."];
      version: Version.t
        [@ocaml.doc "A string that describes the action version."]}
    let context_ = "ActionTypeId"
    let make ~category =
      fun ~owner ->
        fun ~provider ->
          fun ~version -> fun () -> { category; owner; provider; version }
    let to_value x =
      structure_to_value
        [("category", (Some (ActionCategory.to_value x.category)));
        ("owner", (Some (ActionOwner.to_value x.owner)));
        ("provider", (Some (ActionProvider.to_value x.provider)));
        ("version", (Some (Version.to_value x.version)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        Version.of_xml (Xml.child_exn ~context:context_ xml_arg0 "version") in
      let provider =
        ActionProvider.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "provider") in
      let owner =
        ActionOwner.of_xml (Xml.child_exn ~context:context_ xml_arg0 "owner") in
      let category =
        ActionCategory.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "category") in
      make ~version ~provider ~owner ~category ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map_exn json__ "version" Version.of_json in
      let provider = field_map_exn json__ "provider" ActionProvider.of_json in
      let owner = field_map_exn json__ "owner" ActionOwner.of_json in
      let category = field_map_exn json__ "category" ActionCategory.of_json in
      make ~version ~provider ~owner ~category ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about an action type."]
module EnvironmentVariableList =
  struct
    type nonrec t = EnvironmentVariable.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (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:EnvironmentVariable.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:EnvironmentVariable.of_xml)
    let of_json j =
      list_of_json ~kind:"EnvironmentVariableList"
        ~of_json:EnvironmentVariable.of_json j
    let to_json v = composed_to_json to_value v
  end
module OutputArtifactList =
  struct
    type nonrec t = OutputArtifact.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:OutputArtifact.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:OutputArtifact.of_xml)
    let of_json j =
      list_of_json ~kind:"OutputArtifactList" ~of_json:OutputArtifact.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module OutputVariableList =
  struct
    type nonrec t = OutputVariable.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:15) >>= (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:OutputVariable.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:OutputVariable.of_xml)
    let of_json j =
      list_of_json ~kind:"OutputVariableList" ~of_json:OutputVariable.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module BlockerName =
  struct
    type nonrec t = string
    let context_ = "BlockerName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"BlockerName" j
    let to_json = simple_to_json to_value
  end
module BlockerType =
  struct
    type nonrec t =
      | Schedule 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Schedule -> "Schedule" | Non_static_id s -> s
    let of_string = function | "Schedule" -> Schedule | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration BlockerType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BlockerType" j)
    let to_json = simple_to_json to_value
  end
module GitPullRequestFilter =
  struct
    type nonrec t =
      {
      events: GitPullRequestEventTypeList.t option
        [@ocaml.doc
          "The field that specifies which pull request events to filter on (OPEN, UPDATED, CLOSED) for the trigger configuration."];
      branches: GitBranchFilterCriteria.t option
        [@ocaml.doc
          "The field that specifies to filter on branches for the pull request trigger configuration."];
      filePaths: GitFilePathFilterCriteria.t option
        [@ocaml.doc
          "The field that specifies to filter on file paths for the pull request trigger configuration."]}
    let make ?events =
      fun ?branches ->
        fun ?filePaths -> fun () -> { events; branches; filePaths }
    let to_value x =
      structure_to_value
        [("events",
           (Option.map x.events ~f:GitPullRequestEventTypeList.to_value));
        ("branches",
          (Option.map x.branches ~f:GitBranchFilterCriteria.to_value));
        ("filePaths",
          (Option.map x.filePaths ~f:GitFilePathFilterCriteria.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filePaths =
        (Option.map ~f:GitFilePathFilterCriteria.of_xml)
          (Xml.child xml_arg0 "filePaths") in
      let branches =
        (Option.map ~f:GitBranchFilterCriteria.of_xml)
          (Xml.child xml_arg0 "branches") in
      let events =
        (Option.map ~f:GitPullRequestEventTypeList.of_xml)
          (Xml.child xml_arg0 "events") in
      make ?filePaths ?branches ?events ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filePaths =
        field_map json__ "filePaths" GitFilePathFilterCriteria.of_json in
      let branches =
        field_map json__ "branches" GitBranchFilterCriteria.of_json in
      let events =
        field_map json__ "events" GitPullRequestEventTypeList.of_json in
      make ?filePaths ?branches ?events ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The event criteria for the pull request trigger configuration, such as the lists of branches or file paths to include and exclude. The following are valid values for the events for this filter: CLOSED OPEN UPDATED"]
module GitPushFilter =
  struct
    type nonrec t =
      {
      tags: GitTagFilterCriteria.t option
        [@ocaml.doc
          "The field that contains the details for the Git tags trigger configuration."];
      branches: GitBranchFilterCriteria.t option
        [@ocaml.doc
          "The field that specifies to filter on branches for the push trigger configuration."];
      filePaths: GitFilePathFilterCriteria.t option
        [@ocaml.doc
          "The field that specifies to filter on file paths for the push trigger configuration."]}
    let make ?tags =
      fun ?branches ->
        fun ?filePaths -> fun () -> { tags; branches; filePaths }
    let to_value x =
      structure_to_value
        [("tags", (Option.map x.tags ~f:GitTagFilterCriteria.to_value));
        ("branches",
          (Option.map x.branches ~f:GitBranchFilterCriteria.to_value));
        ("filePaths",
          (Option.map x.filePaths ~f:GitFilePathFilterCriteria.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filePaths =
        (Option.map ~f:GitFilePathFilterCriteria.of_xml)
          (Xml.child xml_arg0 "filePaths") in
      let branches =
        (Option.map ~f:GitBranchFilterCriteria.of_xml)
          (Xml.child xml_arg0 "branches") in
      let tags =
        (Option.map ~f:GitTagFilterCriteria.of_xml)
          (Xml.child xml_arg0 "tags") in
      make ?filePaths ?branches ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filePaths =
        field_map json__ "filePaths" GitFilePathFilterCriteria.of_json in
      let branches =
        field_map json__ "branches" GitBranchFilterCriteria.of_json in
      let tags = field_map json__ "tags" GitTagFilterCriteria.of_json in
      make ?filePaths ?branches ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The event criteria that specify when a specified repository event will start the pipeline for the specified trigger configuration, such as the lists of Git tags to include and exclude."]
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[0-9]{12}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountId" j
    let to_json = simple_to_json to_value
  end
module ServicePrincipal =
  struct
    type nonrec t = string
    let context_ = "ServicePrincipal"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ServicePrincipal" j
    let to_json = simple_to_json to_value
  end
module ArtifactLocation =
  struct
    type nonrec t =
      {
      type_: ArtifactLocationType.t option
        [@ocaml.doc "The type of artifact in the location."];
      s3Location: S3ArtifactLocation.t option
        [@ocaml.doc "The S3 bucket that contains the artifact."]}
    let make ?type_ = fun ?s3Location -> fun () -> { type_; s3Location }
    let to_value x =
      structure_to_value
        [("type", (Option.map x.type_ ~f:ArtifactLocationType.to_value));
        ("s3Location",
          (Option.map x.s3Location ~f:S3ArtifactLocation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3Location =
        (Option.map ~f:S3ArtifactLocation.of_xml)
          (Xml.child xml_arg0 "s3Location") in
      let type_ =
        (Option.map ~f:ArtifactLocationType.of_xml)
          (Xml.child xml_arg0 "type") in
      make ?s3Location ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3Location =
        field_map json__ "s3Location" S3ArtifactLocation.of_json in
      let type_ = field_map json__ "type" ArtifactLocationType.of_json in
      make ?s3Location ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about the location of an artifact."]
module ActionExecutionId =
  struct
    type nonrec t = string
    let context_ = "ActionExecutionId"
    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:"ActionExecutionId" j
    let to_json = simple_to_json to_value
  end
module StageName =
  struct
    type nonrec t = string
    let context_ = "StageName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-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:"StageName" j
    let to_json = simple_to_json to_value
  end
module JsonPath =
  struct
    type nonrec t = string
    let context_ = "JsonPath"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:150) >>=
             (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:"JsonPath" j
    let to_json = simple_to_json to_value
  end
module MatchEquals =
  struct
    type nonrec t = string
    let context_ = "MatchEquals"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:150) >>=
             (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:"MatchEquals" j
    let to_json = simple_to_json to_value
  end
module S3Location =
  struct
    type nonrec t =
      {
      bucket: S3Bucket.t option
        [@ocaml.doc
          "The Amazon S3 artifact bucket for an action's artifacts."];
      key: S3Key.t option [@ocaml.doc "The artifact name."]}
    let make ?bucket = fun ?key -> fun () -> { bucket; key }
    let to_value x =
      structure_to_value
        [("bucket", (Option.map x.bucket ~f:S3Bucket.to_value));
        ("key", (Option.map x.key ~f:S3Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = (Option.map ~f:S3Key.of_xml) (Xml.child xml_arg0 "key") in
      let bucket =
        (Option.map ~f:S3Bucket.of_xml) (Xml.child xml_arg0 "bucket") in
      make ?key ?bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map json__ "key" S3Key.of_json in
      let bucket = field_map json__ "bucket" S3Bucket.of_json in
      make ?key ?bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon S3 artifact location for an action's artifacts."]
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module ActionExecutionStatus =
  struct
    type nonrec t =
      | InProgress 
      | Abandoned 
      | Succeeded 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | InProgress -> "InProgress"
      | Abandoned -> "Abandoned"
      | Succeeded -> "Succeeded"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "InProgress" -> InProgress
      | "Abandoned" -> Abandoned
      | "Succeeded" -> Succeeded
      | "Failed" -> 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 ActionExecutionStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ActionExecutionStatus" j)
    let to_json = simple_to_json to_value
  end
module ActionExecutionToken =
  struct
    type nonrec t = string
    let context_ = "ActionExecutionToken"
    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:"ActionExecutionToken" j
    let to_json = simple_to_json to_value
  end
module LogStreamARN =
  struct
    type nonrec t = string
    let context_ = "LogStreamARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:250) >>=
             (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:"LogStreamARN" j
    let to_json = simple_to_json to_value
  end
module Percentage =
  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 Percentage" 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 ConditionExecution =
  struct
    type nonrec t =
      {
      status: ConditionExecutionStatus.t option
        [@ocaml.doc "The status of the run for a condition."];
      summary: ExecutionSummary.t option
        [@ocaml.doc
          "The summary of information about a run for a condition."];
      lastStatusChange: Timestamp.t option
        [@ocaml.doc "The last status change of the condition."]}
    let make ?status =
      fun ?summary ->
        fun ?lastStatusChange ->
          fun () -> { status; summary; lastStatusChange }
    let to_value x =
      structure_to_value
        [("status",
           (Option.map x.status ~f:ConditionExecutionStatus.to_value));
        ("summary", (Option.map x.summary ~f:ExecutionSummary.to_value));
        ("lastStatusChange",
          (Option.map x.lastStatusChange ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastStatusChange =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastStatusChange") in
      let summary =
        (Option.map ~f:ExecutionSummary.of_xml)
          (Xml.child xml_arg0 "summary") in
      let status =
        (Option.map ~f:ConditionExecutionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?lastStatusChange ?summary ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastStatusChange =
        field_map json__ "lastStatusChange" Timestamp.of_json in
      let summary = field_map json__ "summary" ExecutionSummary.of_json in
      let status = field_map json__ "status" ConditionExecutionStatus.of_json in
      make ?lastStatusChange ?summary ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The run of a condition."]
module RuleStateList =
  struct
    type nonrec t = RuleState.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:RuleState.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:RuleState.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleStateList" ~of_json:RuleState.of_json j
    let to_json v = composed_to_json to_value v
  end
module EncryptionKeyId =
  struct
    type nonrec t = string
    let context_ = "EncryptionKeyId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:400) >>=
             (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:"EncryptionKeyId" j
    let to_json = simple_to_json to_value
  end
module EncryptionKeyType =
  struct
    type nonrec t =
      | KMS 
      | Non_static_id of string 
    let make i = i
    let to_string = function | KMS -> "KMS" | Non_static_id s -> s
    let of_string = function | "KMS" -> KMS | 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 EncryptionKeyType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EncryptionKeyType" j)
    let to_json = simple_to_json to_value
  end
module ConditionList =
  struct
    type nonrec t = Condition.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:Condition.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:Condition.of_xml)
    let of_json j =
      list_of_json ~kind:"ConditionList" ~of_json:Condition.of_json j
    let to_json v = composed_to_json to_value v
  end
module RetryConfiguration =
  struct
    type nonrec t =
      {
      retryMode: StageRetryMode.t option
        [@ocaml.doc
          "The method that you want to configure for automatic stage retry on stage failure. You can specify to retry only failed action in the stage or all actions in the stage."]}
    let make ?retryMode = fun () -> { retryMode }
    let to_value x =
      structure_to_value
        [("retryMode", (Option.map x.retryMode ~f:StageRetryMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryMode =
        (Option.map ~f:StageRetryMode.of_xml)
          (Xml.child xml_arg0 "retryMode") in
      make ?retryMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryMode = field_map json__ "retryMode" StageRetryMode.of_json in
      make ?retryMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The retry configuration specifies automatic retry for a failed stage, along with the configured retry mode."]
module ActionDeclaration =
  struct
    type nonrec t =
      {
      name: ActionName.t [@ocaml.doc "The action declaration's name."];
      actionTypeId: ActionTypeId.t
        [@ocaml.doc
          "Specifies the action type and the provider of the action."];
      runOrder: ActionRunOrder.t option
        [@ocaml.doc "The order in which actions are run."];
      configuration: ActionConfigurationMap.t option
        [@ocaml.doc
          "The action's configuration. These are key-value pairs that specify input values for an action. For more information, see Action Structure Requirements in CodePipeline. For the list of configuration properties for the CloudFormation action type in CodePipeline, see Configuration Properties Reference in the CloudFormation User Guide. For template snippets with examples, see Using Parameter Override Functions with CodePipeline Pipelines in the CloudFormation User Guide. The values can be represented in either JSON or YAML format. For example, the JSON configuration item format is as follows: JSON: \"Configuration\" : \\{ Key : Value \\},"];
      commands: CommandList.t option
        [@ocaml.doc
          "The shell commands to run with your compute action in CodePipeline. All commands are supported except multi-line formats. While CodeBuild logs and permissions are used, you do not need to create any resources in CodeBuild. Using compute time for this action will incur separate charges in CodeBuild."];
      outputArtifacts: OutputArtifactList.t option
        [@ocaml.doc
          "The name or ID of the result of the action declaration, such as a test or build artifact."];
      inputArtifacts: InputArtifactList.t option
        [@ocaml.doc
          "The name or ID of the artifact consumed by the action, such as a test or build artifact."];
      outputVariables: OutputVariableList.t option
        [@ocaml.doc
          "The list of variables that are to be exported from the compute action. This is specifically CodeBuild environment variables as used for that action."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM service role that performs the declared action. This is assumed through the roleArn for the pipeline."];
      region: AWSRegionName.t option
        [@ocaml.doc
          "The action declaration's Amazon Web Services Region, such as us-east-1."];
      namespace: ActionNamespace.t option
        [@ocaml.doc
          "The variable namespace associated with the action. All variables produced as output by this action fall under this namespace."];
      timeoutInMinutes: ActionTimeout.t option
        [@ocaml.doc
          "A timeout duration in minutes that can be applied against the ActionType\226\128\153s default timeout value specified in Quotas for CodePipeline . This attribute is available only to the manual approval ActionType."];
      environmentVariables: EnvironmentVariableList.t option
        [@ocaml.doc "The environment variables for the action."]}
    let context_ = "ActionDeclaration"
    let make ?runOrder =
      fun ?configuration ->
        fun ?commands ->
          fun ?outputArtifacts ->
            fun ?inputArtifacts ->
              fun ?outputVariables ->
                fun ?roleArn ->
                  fun ?region ->
                    fun ?namespace ->
                      fun ?timeoutInMinutes ->
                        fun ?environmentVariables ->
                          fun ~name ->
                            fun ~actionTypeId ->
                              fun () ->
                                {
                                  runOrder;
                                  configuration;
                                  commands;
                                  outputArtifacts;
                                  inputArtifacts;
                                  outputVariables;
                                  roleArn;
                                  region;
                                  namespace;
                                  timeoutInMinutes;
                                  environmentVariables;
                                  name;
                                  actionTypeId
                                }
    let to_value x =
      structure_to_value
        [("name", (Some (ActionName.to_value x.name)));
        ("actionTypeId", (Some (ActionTypeId.to_value x.actionTypeId)));
        ("runOrder", (Option.map x.runOrder ~f:ActionRunOrder.to_value));
        ("configuration",
          (Option.map x.configuration ~f:ActionConfigurationMap.to_value));
        ("commands", (Option.map x.commands ~f:CommandList.to_value));
        ("outputArtifacts",
          (Option.map x.outputArtifacts ~f:OutputArtifactList.to_value));
        ("inputArtifacts",
          (Option.map x.inputArtifacts ~f:InputArtifactList.to_value));
        ("outputVariables",
          (Option.map x.outputVariables ~f:OutputVariableList.to_value));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("region", (Option.map x.region ~f:AWSRegionName.to_value));
        ("namespace", (Option.map x.namespace ~f:ActionNamespace.to_value));
        ("timeoutInMinutes",
          (Option.map x.timeoutInMinutes ~f:ActionTimeout.to_value));
        ("environmentVariables",
          (Option.map x.environmentVariables
             ~f:EnvironmentVariableList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let environmentVariables =
        (Option.map ~f:EnvironmentVariableList.of_xml)
          (Xml.child xml_arg0 "environmentVariables") in
      let timeoutInMinutes =
        (Option.map ~f:ActionTimeout.of_xml)
          (Xml.child xml_arg0 "timeoutInMinutes") in
      let namespace =
        (Option.map ~f:ActionNamespace.of_xml)
          (Xml.child xml_arg0 "namespace") in
      let region =
        (Option.map ~f:AWSRegionName.of_xml) (Xml.child xml_arg0 "region") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let outputVariables =
        (Option.map ~f:OutputVariableList.of_xml)
          (Xml.child xml_arg0 "outputVariables") in
      let inputArtifacts =
        (Option.map ~f:InputArtifactList.of_xml)
          (Xml.child xml_arg0 "inputArtifacts") in
      let outputArtifacts =
        (Option.map ~f:OutputArtifactList.of_xml)
          (Xml.child xml_arg0 "outputArtifacts") in
      let commands =
        (Option.map ~f:CommandList.of_xml) (Xml.child xml_arg0 "commands") in
      let configuration =
        (Option.map ~f:ActionConfigurationMap.of_xml)
          (Xml.child xml_arg0 "configuration") in
      let runOrder =
        (Option.map ~f:ActionRunOrder.of_xml) (Xml.child xml_arg0 "runOrder") in
      let actionTypeId =
        ActionTypeId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "actionTypeId") in
      let name =
        ActionName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?environmentVariables ?timeoutInMinutes ?namespace ?region
        ?roleArn ?outputVariables ?inputArtifacts ?outputArtifacts ?commands
        ?configuration ?runOrder ~actionTypeId ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let environmentVariables =
        field_map json__ "environmentVariables"
          EnvironmentVariableList.of_json in
      let timeoutInMinutes =
        field_map json__ "timeoutInMinutes" ActionTimeout.of_json in
      let namespace = field_map json__ "namespace" ActionNamespace.of_json in
      let region = field_map json__ "region" AWSRegionName.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let outputVariables =
        field_map json__ "outputVariables" OutputVariableList.of_json in
      let inputArtifacts =
        field_map json__ "inputArtifacts" InputArtifactList.of_json in
      let outputArtifacts =
        field_map json__ "outputArtifacts" OutputArtifactList.of_json in
      let commands = field_map json__ "commands" CommandList.of_json in
      let configuration =
        field_map json__ "configuration" ActionConfigurationMap.of_json in
      let runOrder = field_map json__ "runOrder" ActionRunOrder.of_json in
      let actionTypeId =
        field_map_exn json__ "actionTypeId" ActionTypeId.of_json in
      let name = field_map_exn json__ "name" ActionName.of_json in
      make ?environmentVariables ?timeoutInMinutes ?namespace ?region
        ?roleArn ?outputVariables ?inputArtifacts ?outputArtifacts ?commands
        ?configuration ?runOrder ~actionTypeId ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about an action declaration."]
module BlockerDeclaration =
  struct
    type nonrec t =
      {
      name: BlockerName.t [@ocaml.doc "Reserved for future use."];
      type_: BlockerType.t [@ocaml.doc "Reserved for future use."]}
    let context_ = "BlockerDeclaration"
    let make ~name = fun ~type_ -> fun () -> { name; type_ }
    let to_value x =
      structure_to_value
        [("name", (Some (BlockerName.to_value x.name)));
        ("type", (Some (BlockerType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        BlockerType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let name =
        BlockerName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~type_ ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "type" BlockerType.of_json in
      let name = field_map_exn json__ "name" BlockerName.of_json in
      make ~type_ ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Reserved for future use."]
module GitPullRequestFilterList =
  struct
    type nonrec t = GitPullRequestFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:3) >>= (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:GitPullRequestFilter.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:GitPullRequestFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"GitPullRequestFilterList"
        ~of_json:GitPullRequestFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module GitPushFilterList =
  struct
    type nonrec t = GitPushFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:3) >>= (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:GitPushFilter.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:GitPushFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"GitPushFilterList" ~of_json:GitPushFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module PollingAccountList =
  struct
    type nonrec t = AccountId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1000) >>=
             (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:AccountId.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:AccountId.of_xml)
    let of_json j =
      list_of_json ~kind:"PollingAccountList" ~of_json:AccountId.of_json j
    let to_json v = composed_to_json to_value v
  end
module PollingServicePrincipalList =
  struct
    type nonrec t = ServicePrincipal.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (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:ServicePrincipal.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:ServicePrincipal.of_xml)
    let of_json j =
      list_of_json ~kind:"PollingServicePrincipalList"
        ~of_json:ServicePrincipal.of_json j
    let to_json v = composed_to_json to_value v
  end
module LambdaFunctionArn =
  struct
    type nonrec t = string
    let context_ = "LambdaFunctionArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:140) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(-[\\w]+)*:lambda:.+:[0-9]{12}:function:.+")));
        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:"LambdaFunctionArn" j
    let to_json = simple_to_json to_value
  end
module AccessKeyId =
  struct
    type nonrec t = string
    let context_ = "AccessKeyId"
    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:"AccessKeyId" j
    let to_json = simple_to_json to_value
  end
module SecretAccessKey =
  struct
    type nonrec t = string
    let context_ = "SecretAccessKey"
    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:"SecretAccessKey" j
    let to_json = simple_to_json to_value
  end
module SessionToken =
  struct
    type nonrec t = string
    let context_ = "SessionToken"
    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:"SessionToken" j
    let to_json = simple_to_json to_value
  end
module Artifact =
  struct
    type nonrec t =
      {
      name: ArtifactName.t option [@ocaml.doc "The artifact's name."];
      revision: Revision.t option
        [@ocaml.doc
          "The artifact's revision ID. Depending on the type of object, this could be a commit ID (GitHub) or a revision ID (Amazon S3)."];
      location: ArtifactLocation.t option
        [@ocaml.doc "The location of an artifact."]}
    let make ?name =
      fun ?revision ->
        fun ?location -> fun () -> { name; revision; location }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:ArtifactName.to_value));
        ("revision", (Option.map x.revision ~f:Revision.to_value));
        ("location", (Option.map x.location ~f:ArtifactLocation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let location =
        (Option.map ~f:ArtifactLocation.of_xml)
          (Xml.child xml_arg0 "location") in
      let revision =
        (Option.map ~f:Revision.of_xml) (Xml.child xml_arg0 "revision") in
      let name =
        (Option.map ~f:ArtifactName.of_xml) (Xml.child xml_arg0 "name") in
      make ?location ?revision ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let location = field_map json__ "location" ArtifactLocation.of_json in
      let revision = field_map json__ "revision" Revision.of_json in
      let name = field_map json__ "name" ArtifactName.of_json in
      make ?location ?revision ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Artifacts are the files that are worked on by actions in the pipeline. See the action configuration for each action for details about artifact parameters. For example, the S3 source action artifact is a file name (or file path), and the files are generally provided as a ZIP file. Example artifact name: SampleApp_Windows.zip"]
module ActionContext =
  struct
    type nonrec t =
      {
      name: ActionName.t option
        [@ocaml.doc "The name of the action in the context of a job."];
      actionExecutionId: ActionExecutionId.t option
        [@ocaml.doc
          "The system-generated unique ID that corresponds to an action's execution."]}
    let make ?name =
      fun ?actionExecutionId -> fun () -> { name; actionExecutionId }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:ActionName.to_value));
        ("actionExecutionId",
          (Option.map x.actionExecutionId ~f:ActionExecutionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let actionExecutionId =
        (Option.map ~f:ActionExecutionId.of_xml)
          (Xml.child xml_arg0 "actionExecutionId") in
      let name =
        (Option.map ~f:ActionName.of_xml) (Xml.child xml_arg0 "name") in
      make ?actionExecutionId ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let actionExecutionId =
        field_map json__ "actionExecutionId" ActionExecutionId.of_json in
      let name = field_map json__ "name" ActionName.of_json in
      make ?actionExecutionId ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the context of an action in the stage of a pipeline to a job worker."]
module PipelineArn =
  struct
    type nonrec t = string
    let context_ = "PipelineArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws(-[\\w]+)*:codepipeline:.+:[0-9]{12}:.+");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PipelineArn" j
    let to_json = simple_to_json to_value
  end
module PipelineExecutionId =
  struct
    type nonrec t = string
    let context_ = "PipelineExecutionId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PipelineExecutionId" j
    let to_json = simple_to_json to_value
  end
module PipelineName =
  struct
    type nonrec t = string
    let context_ = "PipelineName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-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:"PipelineName" j
    let to_json = simple_to_json to_value
  end
module StageContext =
  struct
    type nonrec t =
      {
      name: StageName.t option [@ocaml.doc "The name of the stage."]}
    let make ?name = fun () -> { name }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:StageName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:StageName.of_xml) (Xml.child xml_arg0 "name") in
      make ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" StageName.of_json in make ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about a stage to a job worker."]
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"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_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module WebhookAuthConfigurationAllowedIPRange =
  struct
    type nonrec t = string
    let context_ = "WebhookAuthConfigurationAllowedIPRange"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"WebhookAuthConfigurationAllowedIPRange" j
    let to_json = simple_to_json to_value
  end
module WebhookAuthConfigurationSecretToken =
  struct
    type nonrec t = string
    let context_ = "WebhookAuthConfigurationSecretToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"WebhookAuthConfigurationSecretToken" j
    let to_json = simple_to_json to_value
  end
module WebhookFilterRule =
  struct
    type nonrec t =
      {
      jsonPath: JsonPath.t
        [@ocaml.doc
          "A JsonPath expression that is applied to the body/payload of the webhook. The value selected by the JsonPath expression must match the value specified in the MatchEquals field. Otherwise, the request is ignored. For more information, see Java JsonPath implementation in GitHub."];
      matchEquals: MatchEquals.t option
        [@ocaml.doc
          "The value selected by the JsonPath expression must match what is supplied in the MatchEquals field. Otherwise, the request is ignored. Properties from the target action configuration can be included as placeholders in this value by surrounding the action configuration key with curly brackets. For example, if the value supplied here is \"refs/heads/\\{Branch\\}\" and the target action has an action configuration property called \"Branch\" with a value of \"main\", the MatchEquals value is evaluated as \"refs/heads/main\". For a list of action configuration properties for built-in action types, see Pipeline Structure Reference Action Requirements."]}
    let context_ = "WebhookFilterRule"
    let make ?matchEquals =
      fun ~jsonPath -> fun () -> { matchEquals; jsonPath }
    let to_value x =
      structure_to_value
        [("jsonPath", (Some (JsonPath.to_value x.jsonPath)));
        ("matchEquals", (Option.map x.matchEquals ~f:MatchEquals.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let matchEquals =
        (Option.map ~f:MatchEquals.of_xml) (Xml.child xml_arg0 "matchEquals") in
      let jsonPath =
        JsonPath.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jsonPath") in
      make ?matchEquals ~jsonPath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let matchEquals = field_map json__ "matchEquals" MatchEquals.of_json in
      let jsonPath = field_map_exn json__ "jsonPath" JsonPath.of_json in
      make ?matchEquals ~jsonPath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The event criteria that specify when a webhook notification is sent to your URL."]
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:160) >>=
             (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:"Description" j
    let to_json = simple_to_json to_value
  end
module RuleConfigurationPropertyType =
  struct
    type nonrec t =
      | String_ 
      | Number 
      | Boolean 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | String_ -> "String"
      | Number -> "Number"
      | Boolean -> "Boolean"
      | Non_static_id s -> s
    let of_string =
      function
      | "String" -> String_
      | "Number" -> Number
      | "Boolean" -> Boolean
      | 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 RuleConfigurationPropertyType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RuleConfigurationPropertyType" j)
    let to_json = simple_to_json to_value
  end
module ArtifactDetail =
  struct
    type nonrec t =
      {
      name: ArtifactName.t option
        [@ocaml.doc "The artifact object name for the action execution."];
      s3location: S3Location.t option
        [@ocaml.doc
          "The Amazon S3 artifact location for the action execution."]}
    let make ?name = fun ?s3location -> fun () -> { name; s3location }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:ArtifactName.to_value));
        ("s3location", (Option.map x.s3location ~f:S3Location.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3location =
        (Option.map ~f:S3Location.of_xml) (Xml.child xml_arg0 "s3location") in
      let name =
        (Option.map ~f:ArtifactName.of_xml) (Xml.child xml_arg0 "name") in
      make ?s3location ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3location = field_map json__ "s3location" S3Location.of_json in
      let name = field_map json__ "name" ArtifactName.of_json in
      make ?s3location ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Artifact details for the action execution, such as the artifact location."]
module ExternalExecutionId =
  struct
    type nonrec t = string
    let context_ = "ExternalExecutionId"
    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:"ExternalExecutionId" j
    let to_json = simple_to_json to_value
  end
module ExternalExecutionSummary =
  struct
    type nonrec t = string
    let context_ = "ExternalExecutionSummary"
    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:"ExternalExecutionSummary" j
    let to_json = simple_to_json to_value
  end
module RevisionSummary =
  struct
    type nonrec t = string
    let context_ = "RevisionSummary"
    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:"RevisionSummary" j
    let to_json = simple_to_json to_value
  end
module DeployTargetEventContext =
  struct
    type nonrec t =
      {
      ssmCommandId: String_.t option
        [@ocaml.doc "The command ID for the event for the deploy action."];
      message: String_.t option
        [@ocaml.doc
          "The context message for the event for the deploy action."]}
    let make ?ssmCommandId =
      fun ?message -> fun () -> { ssmCommandId; message }
    let to_value x =
      structure_to_value
        [("ssmCommandId", (Option.map x.ssmCommandId ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let ssmCommandId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ssmCommandId") in
      make ?message ?ssmCommandId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let ssmCommandId = field_map json__ "ssmCommandId" String_.of_json in
      make ?message ?ssmCommandId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The context for the event for the deploy action."]
module ActionConfigurationPropertyType =
  struct
    type nonrec t =
      | String_ 
      | Number 
      | Boolean 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | String_ -> "String"
      | Number -> "Number"
      | Boolean -> "Boolean"
      | Non_static_id s -> s
    let of_string =
      function
      | "String" -> String_
      | "Number" -> Number
      | "Boolean" -> Boolean
      | 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 ActionConfigurationPropertyType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ActionConfigurationPropertyType" j)
    let to_json = simple_to_json to_value
  end
module OutputVariablesKey =
  struct
    type nonrec t = string
    let context_ = "OutputVariablesKey"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[A-Za-z0-9@\\-_]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OutputVariablesKey" j
    let to_json = simple_to_json to_value
  end
module OutputVariablesValue =
  struct
    type nonrec t = string
    let context_ = "OutputVariablesValue"
    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:"OutputVariablesValue" j
    let to_json = simple_to_json to_value
  end
module ActionExecution =
  struct
    type nonrec t =
      {
      actionExecutionId: ActionExecutionId.t option
        [@ocaml.doc
          "ID of the workflow action execution in the current stage. Use the GetPipelineState action to retrieve the current action execution details of the current stage. For older executions, this field might be empty. The action execution ID is available for executions run on or after March 2020."];
      status: ActionExecutionStatus.t option
        [@ocaml.doc
          "The status of the action, or for a completed action, the last status of the action."];
      summary: ExecutionSummary.t option
        [@ocaml.doc "A summary of the run of the action."];
      lastStatusChange: Timestamp.t option
        [@ocaml.doc "The last status change of the action."];
      token: ActionExecutionToken.t option
        [@ocaml.doc
          "The system-generated token used to identify a unique approval request. The token for each open approval request can be obtained using the GetPipelineState command. It is used to validate that the approval request corresponding to this token is still valid."];
      lastUpdatedBy: LastUpdatedBy.t option
        [@ocaml.doc "The ARN of the user who last changed the pipeline."];
      externalExecutionId: ExecutionId.t option
        [@ocaml.doc "The external ID of the run of the action."];
      externalExecutionUrl: Url.t option
        [@ocaml.doc
          "The URL of a resource external to Amazon Web Services that is used when running the action (for example, an external repository URL)."];
      percentComplete: Percentage.t option
        [@ocaml.doc "A percentage of completeness of the action as it runs."];
      errorDetails: ErrorDetails.t option
        [@ocaml.doc
          "The details of an error returned by a URL external to Amazon Web Services."];
      logStreamARN: LogStreamARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the log stream for the action compute."]}
    let make ?actionExecutionId =
      fun ?status ->
        fun ?summary ->
          fun ?lastStatusChange ->
            fun ?token ->
              fun ?lastUpdatedBy ->
                fun ?externalExecutionId ->
                  fun ?externalExecutionUrl ->
                    fun ?percentComplete ->
                      fun ?errorDetails ->
                        fun ?logStreamARN ->
                          fun () ->
                            {
                              actionExecutionId;
                              status;
                              summary;
                              lastStatusChange;
                              token;
                              lastUpdatedBy;
                              externalExecutionId;
                              externalExecutionUrl;
                              percentComplete;
                              errorDetails;
                              logStreamARN
                            }
    let to_value x =
      structure_to_value
        [("actionExecutionId",
           (Option.map x.actionExecutionId ~f:ActionExecutionId.to_value));
        ("status", (Option.map x.status ~f:ActionExecutionStatus.to_value));
        ("summary", (Option.map x.summary ~f:ExecutionSummary.to_value));
        ("lastStatusChange",
          (Option.map x.lastStatusChange ~f:Timestamp.to_value));
        ("token", (Option.map x.token ~f:ActionExecutionToken.to_value));
        ("lastUpdatedBy",
          (Option.map x.lastUpdatedBy ~f:LastUpdatedBy.to_value));
        ("externalExecutionId",
          (Option.map x.externalExecutionId ~f:ExecutionId.to_value));
        ("externalExecutionUrl",
          (Option.map x.externalExecutionUrl ~f:Url.to_value));
        ("percentComplete",
          (Option.map x.percentComplete ~f:Percentage.to_value));
        ("errorDetails",
          (Option.map x.errorDetails ~f:ErrorDetails.to_value));
        ("logStreamARN",
          (Option.map x.logStreamARN ~f:LogStreamARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logStreamARN =
        (Option.map ~f:LogStreamARN.of_xml)
          (Xml.child xml_arg0 "logStreamARN") in
      let errorDetails =
        (Option.map ~f:ErrorDetails.of_xml)
          (Xml.child xml_arg0 "errorDetails") in
      let percentComplete =
        (Option.map ~f:Percentage.of_xml)
          (Xml.child xml_arg0 "percentComplete") in
      let externalExecutionUrl =
        (Option.map ~f:Url.of_xml)
          (Xml.child xml_arg0 "externalExecutionUrl") in
      let externalExecutionId =
        (Option.map ~f:ExecutionId.of_xml)
          (Xml.child xml_arg0 "externalExecutionId") in
      let lastUpdatedBy =
        (Option.map ~f:LastUpdatedBy.of_xml)
          (Xml.child xml_arg0 "lastUpdatedBy") in
      let token =
        (Option.map ~f:ActionExecutionToken.of_xml)
          (Xml.child xml_arg0 "token") in
      let lastStatusChange =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastStatusChange") in
      let summary =
        (Option.map ~f:ExecutionSummary.of_xml)
          (Xml.child xml_arg0 "summary") in
      let status =
        (Option.map ~f:ActionExecutionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let actionExecutionId =
        (Option.map ~f:ActionExecutionId.of_xml)
          (Xml.child xml_arg0 "actionExecutionId") in
      make ?logStreamARN ?errorDetails ?percentComplete ?externalExecutionUrl
        ?externalExecutionId ?lastUpdatedBy ?token ?lastStatusChange ?summary
        ?status ?actionExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logStreamARN = field_map json__ "logStreamARN" LogStreamARN.of_json in
      let errorDetails = field_map json__ "errorDetails" ErrorDetails.of_json in
      let percentComplete =
        field_map json__ "percentComplete" Percentage.of_json in
      let externalExecutionUrl =
        field_map json__ "externalExecutionUrl" Url.of_json in
      let externalExecutionId =
        field_map json__ "externalExecutionId" ExecutionId.of_json in
      let lastUpdatedBy =
        field_map json__ "lastUpdatedBy" LastUpdatedBy.of_json in
      let token = field_map json__ "token" ActionExecutionToken.of_json in
      let lastStatusChange =
        field_map json__ "lastStatusChange" Timestamp.of_json in
      let summary = field_map json__ "summary" ExecutionSummary.of_json in
      let status = field_map json__ "status" ActionExecutionStatus.of_json in
      let actionExecutionId =
        field_map json__ "actionExecutionId" ActionExecutionId.of_json in
      make ?logStreamARN ?errorDetails ?percentComplete ?externalExecutionUrl
        ?externalExecutionId ?lastUpdatedBy ?token ?lastStatusChange ?summary
        ?status ?actionExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about the run of an action."]
module ActionRevision =
  struct
    type nonrec t =
      {
      revisionId: Revision.t
        [@ocaml.doc
          "The system-generated unique ID that identifies the revision number of the action."];
      revisionChangeId: RevisionChangeIdentifier.t
        [@ocaml.doc
          "The unique identifier of the change that set the state to this revision (for example, a deployment ID or timestamp)."];
      created: Timestamp.t
        [@ocaml.doc
          "The date and time when the most recent version of the action was created, in timestamp format."]}
    let context_ = "ActionRevision"
    let make ~revisionId =
      fun ~revisionChangeId ->
        fun ~created -> fun () -> { revisionId; revisionChangeId; created }
    let to_value x =
      structure_to_value
        [("revisionId", (Some (Revision.to_value x.revisionId)));
        ("revisionChangeId",
          (Some (RevisionChangeIdentifier.to_value x.revisionChangeId)));
        ("created", (Some (Timestamp.to_value x.created)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let created =
        Timestamp.of_xml (Xml.child_exn ~context:context_ xml_arg0 "created") in
      let revisionChangeId =
        RevisionChangeIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "revisionChangeId") in
      let revisionId =
        Revision.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "revisionId") in
      make ~created ~revisionChangeId ~revisionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let created = field_map_exn json__ "created" Timestamp.of_json in
      let revisionChangeId =
        field_map_exn json__ "revisionChangeId"
          RevisionChangeIdentifier.of_json in
      let revisionId = field_map_exn json__ "revisionId" Revision.of_json in
      make ~created ~revisionChangeId ~revisionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about the version (or revision) of an action."]
module ConditionState =
  struct
    type nonrec t =
      {
      latestExecution: ConditionExecution.t option
        [@ocaml.doc "The state of the latest run of the rule."];
      ruleStates: RuleStateList.t option
        [@ocaml.doc "The state of the rules for the condition."]}
    let make ?latestExecution =
      fun ?ruleStates -> fun () -> { latestExecution; ruleStates }
    let to_value x =
      structure_to_value
        [("latestExecution",
           (Option.map x.latestExecution ~f:ConditionExecution.to_value));
        ("ruleStates", (Option.map x.ruleStates ~f:RuleStateList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleStates =
        (Option.map ~f:RuleStateList.of_xml)
          (Xml.child xml_arg0 "ruleStates") in
      let latestExecution =
        (Option.map ~f:ConditionExecution.of_xml)
          (Xml.child xml_arg0 "latestExecution") in
      make ?ruleStates ?latestExecution ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleStates = field_map json__ "ruleStates" RuleStateList.of_json in
      let latestExecution =
        field_map json__ "latestExecution" ConditionExecution.of_json in
      make ?ruleStates ?latestExecution ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the state of the condition."]
module ExecutionType =
  struct
    type nonrec t =
      | STANDARD 
      | ROLLBACK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD -> "STANDARD"
      | ROLLBACK -> "ROLLBACK"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD" -> STANDARD
      | "ROLLBACK" -> ROLLBACK
      | 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 ExecutionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExecutionType" j)
    let to_json = simple_to_json to_value
  end
module StageExecutionStatus =
  struct
    type nonrec t =
      | Cancelled 
      | InProgress 
      | Failed 
      | Stopped 
      | Stopping 
      | Succeeded 
      | Skipped 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Cancelled -> "Cancelled"
      | InProgress -> "InProgress"
      | Failed -> "Failed"
      | Stopped -> "Stopped"
      | Stopping -> "Stopping"
      | Succeeded -> "Succeeded"
      | Skipped -> "Skipped"
      | Non_static_id s -> s
    let of_string =
      function
      | "Cancelled" -> Cancelled
      | "InProgress" -> InProgress
      | "Failed" -> Failed
      | "Stopped" -> Stopped
      | "Stopping" -> Stopping
      | "Succeeded" -> Succeeded
      | "Skipped" -> Skipped
      | 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 StageExecutionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StageExecutionStatus" j)
    let to_json = simple_to_json to_value
  end
module ArtifactStoreLocation =
  struct
    type nonrec t = string
    let context_ = "ArtifactStoreLocation"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9\\-\\.]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ArtifactStoreLocation" j
    let to_json = simple_to_json to_value
  end
module ArtifactStoreType =
  struct
    type nonrec t =
      | S3 
      | Non_static_id of string 
    let make i = i
    let to_string = function | S3 -> "S3" | Non_static_id s -> s
    let of_string = function | "S3" -> S3 | 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 ArtifactStoreType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ArtifactStoreType" j)
    let to_json = simple_to_json to_value
  end
module EncryptionKey =
  struct
    type nonrec t =
      {
      id: EncryptionKeyId.t
        [@ocaml.doc
          "The ID used to identify the key. For an Amazon Web Services KMS key, you can use the key ID, the key ARN, or the alias ARN. Aliases are recognized only in the account that created the KMS key. For cross-account actions, you can only use the key ID or key ARN to identify the key. Cross-account actions involve using the role from the other account (AccountB), so specifying the key ID will use the key from the other account (AccountB)."];
      type_: EncryptionKeyType.t
        [@ocaml.doc
          "The type of encryption key, such as an Amazon Web Services KMS key. When creating or updating a pipeline, the value must be set to 'KMS'."]}
    let context_ = "EncryptionKey"
    let make ~id = fun ~type_ -> fun () -> { id; type_ }
    let to_value x =
      structure_to_value
        [("id", (Some (EncryptionKeyId.to_value x.id)));
        ("type", (Some (EncryptionKeyType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        EncryptionKeyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let id =
        EncryptionKeyId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~type_ ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "type" EncryptionKeyType.of_json in
      let id = field_map_exn json__ "id" EncryptionKeyId.of_json in
      make ~type_ ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about the key used to encrypt data in the artifact store, such as an Amazon Web Services Key Management Service (Key Management Service) key."]
module BeforeEntryConditions =
  struct
    type nonrec t =
      {
      conditions: ConditionList.t
        [@ocaml.doc
          "The conditions that are configured as entry conditions."]}
    let context_ = "BeforeEntryConditions"
    let make ~conditions = fun () -> { conditions }
    let to_value x =
      structure_to_value
        [("conditions", (Some (ConditionList.to_value x.conditions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conditions =
        ConditionList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "conditions") in
      make ~conditions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conditions =
        field_map_exn json__ "conditions" ConditionList.of_json in
      make ~conditions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The conditions for making checks for entry to a stage. For more information about conditions, see Stage conditions and How do stage conditions work?."]
module FailureConditions =
  struct
    type nonrec t =
      {
      result: Result_.t option
        [@ocaml.doc
          "The specified result for when the failure conditions are met, such as rolling back the stage."];
      retryConfiguration: RetryConfiguration.t option
        [@ocaml.doc
          "The retry configuration specifies automatic retry for a failed stage, along with the configured retry mode."];
      conditions: ConditionList.t option
        [@ocaml.doc
          "The conditions that are configured as failure conditions. For more information about conditions, see Stage conditions and How do stage conditions work?."]}
    let make ?result =
      fun ?retryConfiguration ->
        fun ?conditions ->
          fun () -> { result; retryConfiguration; conditions }
    let to_value x =
      structure_to_value
        [("result", (Option.map x.result ~f:Result_.to_value));
        ("retryConfiguration",
          (Option.map x.retryConfiguration ~f:RetryConfiguration.to_value));
        ("conditions", (Option.map x.conditions ~f:ConditionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conditions =
        (Option.map ~f:ConditionList.of_xml)
          (Xml.child xml_arg0 "conditions") in
      let retryConfiguration =
        (Option.map ~f:RetryConfiguration.of_xml)
          (Xml.child xml_arg0 "retryConfiguration") in
      let result =
        (Option.map ~f:Result_.of_xml) (Xml.child xml_arg0 "result") in
      make ?conditions ?retryConfiguration ?result ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conditions = field_map json__ "conditions" ConditionList.of_json in
      let retryConfiguration =
        field_map json__ "retryConfiguration" RetryConfiguration.of_json in
      let result = field_map json__ "result" Result_.of_json in
      make ?conditions ?retryConfiguration ?result ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The configuration that specifies the result, such as rollback, to occur upon stage failure. For more information about conditions, see Stage conditions and How do stage conditions work?."]
module StageActionDeclarationList =
  struct
    type nonrec t = ActionDeclaration.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:ActionDeclaration.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:ActionDeclaration.of_xml)
    let of_json j =
      list_of_json ~kind:"StageActionDeclarationList"
        ~of_json:ActionDeclaration.of_json j
    let to_json v = composed_to_json to_value v
  end
module StageBlockerDeclarationList =
  struct
    type nonrec t = BlockerDeclaration.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:BlockerDeclaration.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:BlockerDeclaration.of_xml)
    let of_json j =
      list_of_json ~kind:"StageBlockerDeclarationList"
        ~of_json:BlockerDeclaration.of_json j
    let to_json v = composed_to_json to_value v
  end
module SuccessConditions =
  struct
    type nonrec t =
      {
      conditions: ConditionList.t
        [@ocaml.doc "The conditions that are success conditions."]}
    let context_ = "SuccessConditions"
    let make ~conditions = fun () -> { conditions }
    let to_value x =
      structure_to_value
        [("conditions", (Some (ConditionList.to_value x.conditions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conditions =
        ConditionList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "conditions") in
      make ~conditions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conditions =
        field_map_exn json__ "conditions" ConditionList.of_json in
      make ~conditions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The conditions for making checks that, if met, succeed a stage. For more information about conditions, see Stage conditions and How do stage conditions work?."]
module GitConfiguration =
  struct
    type nonrec t =
      {
      sourceActionName: ActionName.t
        [@ocaml.doc
          "The name of the pipeline source action where the trigger configuration, such as Git tags, is specified. The trigger configuration will start the pipeline upon the specified change only. You can only specify one trigger configuration per source action."];
      push: GitPushFilterList.t option
        [@ocaml.doc
          "The field where the repository event that will start the pipeline, such as pushing Git tags, is specified with details."];
      pullRequest: GitPullRequestFilterList.t option
        [@ocaml.doc
          "The field where the repository event that will start the pipeline is specified as pull requests."]}
    let context_ = "GitConfiguration"
    let make ?push =
      fun ?pullRequest ->
        fun ~sourceActionName ->
          fun () -> { push; pullRequest; sourceActionName }
    let to_value x =
      structure_to_value
        [("sourceActionName",
           (Some (ActionName.to_value x.sourceActionName)));
        ("push", (Option.map x.push ~f:GitPushFilterList.to_value));
        ("pullRequest",
          (Option.map x.pullRequest ~f:GitPullRequestFilterList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pullRequest =
        (Option.map ~f:GitPullRequestFilterList.of_xml)
          (Xml.child xml_arg0 "pullRequest") in
      let push =
        (Option.map ~f:GitPushFilterList.of_xml) (Xml.child xml_arg0 "push") in
      let sourceActionName =
        ActionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceActionName") in
      make ?pullRequest ?push ~sourceActionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pullRequest =
        field_map json__ "pullRequest" GitPullRequestFilterList.of_json in
      let push = field_map json__ "push" GitPushFilterList.of_json in
      let sourceActionName =
        field_map_exn json__ "sourceActionName" ActionName.of_json in
      make ?pullRequest ?push ~sourceActionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A type of trigger configuration for Git-based source actions. You can specify the Git configuration trigger type for all third-party Git-based source actions that are supported by the CodeStarSourceConnection action type."]
module PipelineTriggerProviderType =
  struct
    type nonrec t =
      | CodeStarSourceConnection 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CodeStarSourceConnection -> "CodeStarSourceConnection"
      | Non_static_id s -> s
    let of_string =
      function
      | "CodeStarSourceConnection" -> CodeStarSourceConnection
      | 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 PipelineTriggerProviderType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PipelineTriggerProviderType" j)
    let to_json = simple_to_json to_value
  end
module PipelineVariableDescription =
  struct
    type nonrec t = string
    let context_ = "PipelineVariableDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PipelineVariableDescription" j
    let to_json = simple_to_json to_value
  end
module PipelineVariableName =
  struct
    type nonrec t = string
    let context_ = "PipelineVariableName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9@\\-_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PipelineVariableName" j
    let to_json = simple_to_json to_value
  end
module PipelineVariableValue =
  struct
    type nonrec t = string
    let context_ = "PipelineVariableValue"
    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:".*")));
        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:"PipelineVariableValue" j
    let to_json = simple_to_json to_value
  end
module JobWorkerExecutorConfiguration =
  struct
    type nonrec t =
      {
      pollingAccounts: PollingAccountList.t option
        [@ocaml.doc
          "The accounts in which the job worker is configured and might poll for jobs as part of the action execution."];
      pollingServicePrincipals: PollingServicePrincipalList.t option
        [@ocaml.doc
          "The service Principals in which the job worker is configured and might poll for jobs as part of the action execution."]}
    let make ?pollingAccounts =
      fun ?pollingServicePrincipals ->
        fun () -> { pollingAccounts; pollingServicePrincipals }
    let to_value x =
      structure_to_value
        [("pollingAccounts",
           (Option.map x.pollingAccounts ~f:PollingAccountList.to_value));
        ("pollingServicePrincipals",
          (Option.map x.pollingServicePrincipals
             ~f:PollingServicePrincipalList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pollingServicePrincipals =
        (Option.map ~f:PollingServicePrincipalList.of_xml)
          (Xml.child xml_arg0 "pollingServicePrincipals") in
      let pollingAccounts =
        (Option.map ~f:PollingAccountList.of_xml)
          (Xml.child xml_arg0 "pollingAccounts") in
      make ?pollingServicePrincipals ?pollingAccounts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pollingServicePrincipals =
        field_map json__ "pollingServicePrincipals"
          PollingServicePrincipalList.of_json in
      let pollingAccounts =
        field_map json__ "pollingAccounts" PollingAccountList.of_json in
      make ?pollingServicePrincipals ?pollingAccounts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about the polling configuration for the JobWorker action engine, or executor."]
module LambdaExecutorConfiguration =
  struct
    type nonrec t =
      {
      lambdaFunctionArn: LambdaFunctionArn.t
        [@ocaml.doc
          "The ARN of the Lambda function used by the action engine."]}
    let context_ = "LambdaExecutorConfiguration"
    let make ~lambdaFunctionArn = fun () -> { lambdaFunctionArn }
    let to_value x =
      structure_to_value
        [("lambdaFunctionArn",
           (Some (LambdaFunctionArn.to_value x.lambdaFunctionArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lambdaFunctionArn =
        LambdaFunctionArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "lambdaFunctionArn") in
      make ~lambdaFunctionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lambdaFunctionArn =
        field_map_exn json__ "lambdaFunctionArn" LambdaFunctionArn.of_json in
      make ~lambdaFunctionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details about the configuration for the Lambda action engine, or executor."]
module AllowedAccount =
  struct
    type nonrec t = string
    let context_ = "AllowedAccount"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[0-9]{12}|\\*"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AllowedAccount" j
    let to_json = simple_to_json to_value
  end
module PropertyDescription =
  struct
    type nonrec t = string
    let context_ = "PropertyDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:250) >>=
             (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:"PropertyDescription" j
    let to_json = simple_to_json to_value
  end
module AWSSessionCredentials =
  struct
    type nonrec t =
      {
      accessKeyId: AccessKeyId.t option
        [@ocaml.doc "The access key for the session."];
      secretAccessKey: SecretAccessKey.t option
        [@ocaml.doc "The secret access key for the session."];
      sessionToken: SessionToken.t option
        [@ocaml.doc "The token for the session."]}
    let make ?accessKeyId =
      fun ?secretAccessKey ->
        fun ?sessionToken ->
          fun () -> { accessKeyId; secretAccessKey; sessionToken }
    let to_value x =
      structure_to_value
        [("accessKeyId", (Option.map x.accessKeyId ~f:AccessKeyId.to_value));
        ("secretAccessKey",
          (Option.map x.secretAccessKey ~f:SecretAccessKey.to_value));
        ("sessionToken",
          (Option.map x.sessionToken ~f:SessionToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionToken =
        (Option.map ~f:SessionToken.of_xml)
          (Xml.child xml_arg0 "sessionToken") in
      let secretAccessKey =
        (Option.map ~f:SecretAccessKey.of_xml)
          (Xml.child xml_arg0 "secretAccessKey") in
      let accessKeyId =
        (Option.map ~f:AccessKeyId.of_xml) (Xml.child xml_arg0 "accessKeyId") in
      make ?sessionToken ?secretAccessKey ?accessKeyId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionToken = field_map json__ "sessionToken" SessionToken.of_json in
      let secretAccessKey =
        field_map json__ "secretAccessKey" SecretAccessKey.of_json in
      let accessKeyId = field_map json__ "accessKeyId" AccessKeyId.of_json in
      make ?sessionToken ?secretAccessKey ?accessKeyId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents an Amazon Web Services session credentials object. These credentials are temporary credentials that are issued by Amazon Web Services Secure Token Service (STS). They can be used to access input and output artifacts in the S3 bucket used to store artifact for the pipeline in CodePipeline."]
module ActionConfiguration =
  struct
    type nonrec t =
      {
      configuration: ActionConfigurationMap.t option
        [@ocaml.doc "The configuration data for the action."]}
    let make ?configuration = fun () -> { configuration }
    let to_value x =
      structure_to_value
        [("configuration",
           (Option.map x.configuration ~f:ActionConfigurationMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configuration =
        (Option.map ~f:ActionConfigurationMap.of_xml)
          (Xml.child xml_arg0 "configuration") in
      make ?configuration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configuration =
        field_map json__ "configuration" ActionConfigurationMap.of_json in
      make ?configuration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about an action configuration."]
module ArtifactList =
  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:"ArtifactList" ~of_json:Artifact.of_json j
    let to_json v = composed_to_json to_value v
  end
module ContinuationToken =
  struct
    type nonrec t = string
    let context_ = "ContinuationToken"
    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:"ContinuationToken" j
    let to_json = simple_to_json to_value
  end
module PipelineContext =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t option
        [@ocaml.doc
          "The name of the pipeline. This is a user-specified value. Pipeline names must be unique across all pipeline names under an Amazon Web Services account."];
      stage: StageContext.t option [@ocaml.doc "The stage of the pipeline."];
      action: ActionContext.t option
        [@ocaml.doc
          "The context of an action to a job worker in the stage of a pipeline."];
      pipelineArn: PipelineArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the pipeline."];
      pipelineExecutionId: PipelineExecutionId.t option
        [@ocaml.doc "The execution ID of the pipeline."]}
    let make ?pipelineName =
      fun ?stage ->
        fun ?action ->
          fun ?pipelineArn ->
            fun ?pipelineExecutionId ->
              fun () ->
                {
                  pipelineName;
                  stage;
                  action;
                  pipelineArn;
                  pipelineExecutionId
                }
    let to_value x =
      structure_to_value
        [("pipelineName",
           (Option.map x.pipelineName ~f:PipelineName.to_value));
        ("stage", (Option.map x.stage ~f:StageContext.to_value));
        ("action", (Option.map x.action ~f:ActionContext.to_value));
        ("pipelineArn", (Option.map x.pipelineArn ~f:PipelineArn.to_value));
        ("pipelineExecutionId",
          (Option.map x.pipelineExecutionId ~f:PipelineExecutionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pipelineExecutionId =
        (Option.map ~f:PipelineExecutionId.of_xml)
          (Xml.child xml_arg0 "pipelineExecutionId") in
      let pipelineArn =
        (Option.map ~f:PipelineArn.of_xml) (Xml.child xml_arg0 "pipelineArn") in
      let action =
        (Option.map ~f:ActionContext.of_xml) (Xml.child xml_arg0 "action") in
      let stage =
        (Option.map ~f:StageContext.of_xml) (Xml.child xml_arg0 "stage") in
      let pipelineName =
        (Option.map ~f:PipelineName.of_xml)
          (Xml.child xml_arg0 "pipelineName") in
      make ?pipelineExecutionId ?pipelineArn ?action ?stage ?pipelineName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pipelineExecutionId =
        field_map json__ "pipelineExecutionId" PipelineExecutionId.of_json in
      let pipelineArn = field_map json__ "pipelineArn" PipelineArn.of_json in
      let action = field_map json__ "action" ActionContext.of_json in
      let stage = field_map json__ "stage" StageContext.of_json in
      let pipelineName = field_map json__ "pipelineName" PipelineName.of_json in
      make ?pipelineExecutionId ?pipelineArn ?action ?stage ?pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about a pipeline to a job worker. PipelineContext contains pipelineArn and pipelineExecutionId for custom action jobs. The pipelineArn and pipelineExecutionId fields are not populated for ThirdParty action jobs."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "The tag's key."];
      value: TagValue.t [@ocaml.doc "The tag's value."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Some (TagKey.to_value x.key)));
        ("value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "value" TagValue.of_json in
      let key = field_map_exn json__ "key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A tag is a key-value pair that is used to manage the resource."]
module WebhookAuthConfiguration =
  struct
    type nonrec t =
      {
      allowedIPRange: WebhookAuthConfigurationAllowedIPRange.t option
        [@ocaml.doc
          "The property used to configure acceptance of webhooks in an IP address range. For IP, only the AllowedIPRange property must be set. This property must be set to a valid CIDR range."];
      secretToken: WebhookAuthConfigurationSecretToken.t option
        [@ocaml.doc
          "The property used to configure GitHub authentication. For GITHUB_HMAC, only the SecretToken property must be set. When creating CodePipeline webhooks, do not use your own credentials or reuse the same secret token across multiple webhooks. For optimal security, generate a unique secret token for each webhook you create. The secret token is an arbitrary string that you provide, which GitHub uses to compute and sign the webhook payloads sent to CodePipeline, for protecting the integrity and authenticity of the webhook payloads. Using your own credentials or reusing the same token across multiple webhooks can lead to security vulnerabilities. If a secret token was provided, it will be redacted in the response."]}
    let make ?allowedIPRange =
      fun ?secretToken -> fun () -> { allowedIPRange; secretToken }
    let to_value x =
      structure_to_value
        [("AllowedIPRange",
           (Option.map x.allowedIPRange
              ~f:WebhookAuthConfigurationAllowedIPRange.to_value));
        ("SecretToken",
          (Option.map x.secretToken
             ~f:WebhookAuthConfigurationSecretToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let secretToken =
        (Option.map ~f:WebhookAuthConfigurationSecretToken.of_xml)
          (Xml.child xml_arg0 "SecretToken") in
      let allowedIPRange =
        (Option.map ~f:WebhookAuthConfigurationAllowedIPRange.of_xml)
          (Xml.child xml_arg0 "AllowedIPRange") in
      make ?secretToken ?allowedIPRange ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let secretToken =
        field_map json__ "SecretToken"
          WebhookAuthConfigurationSecretToken.of_json in
      let allowedIPRange =
        field_map json__ "AllowedIPRange"
          WebhookAuthConfigurationAllowedIPRange.of_json in
      make ?secretToken ?allowedIPRange ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The authentication applied to incoming webhook trigger requests."]
module WebhookAuthenticationType =
  struct
    type nonrec t =
      | GITHUB_HMAC 
      | IP 
      | UNAUTHENTICATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GITHUB_HMAC -> "GITHUB_HMAC"
      | IP -> "IP"
      | UNAUTHENTICATED -> "UNAUTHENTICATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "GITHUB_HMAC" -> GITHUB_HMAC
      | "IP" -> IP
      | "UNAUTHENTICATED" -> UNAUTHENTICATED
      | 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 WebhookAuthenticationType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"WebhookAuthenticationType" j)
    let to_json = simple_to_json to_value
  end
module WebhookFilters =
  struct
    type nonrec t = WebhookFilterRule.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:5); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:WebhookFilterRule.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:WebhookFilterRule.of_xml)
    let of_json j =
      list_of_json ~kind:"WebhookFilters" ~of_json:WebhookFilterRule.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module WebhookName =
  struct
    type nonrec t = string
    let context_ = "WebhookName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-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:"WebhookName" j
    let to_json = simple_to_json to_value
  end
module MaximumArtifactCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:5) >>= (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 MaximumArtifactCount" 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 MinimumArtifactCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:5) >>= (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 MinimumArtifactCount" 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 RuleConfigurationProperty =
  struct
    type nonrec t =
      {
      name: RuleConfigurationKey.t option
        [@ocaml.doc "The name of the rule configuration property."];
      required: Boolean.t option
        [@ocaml.doc
          "Whether the configuration property is a required value."];
      key: Boolean.t option
        [@ocaml.doc "Whether the configuration property is a key."];
      secret: Boolean.t option
        [@ocaml.doc
          "Whether the configuration property is secret. When updating a pipeline, passing * * * * * without changing any other values of the action preserves the previous value of the secret."];
      queryable: Boolean.t option
        [@ocaml.doc
          "Indicates whether the property can be queried. If you create a pipeline with a condition and rule, and that rule contains a queryable property, the value for that configuration property is subject to other restrictions. The value must be less than or equal to twenty (20) characters. The value can contain only alphanumeric characters, underscores, and hyphens."];
      description: Description.t option
        [@ocaml.doc
          "The description of the action configuration property that is displayed to users."];
      type_: RuleConfigurationPropertyType.t option
        [@ocaml.doc "The type of the configuration property."]}
    let make ?name =
      fun ?required ->
        fun ?key ->
          fun ?secret ->
            fun ?queryable ->
              fun ?description ->
                fun ?type_ ->
                  fun () ->
                    {
                      name;
                      required;
                      key;
                      secret;
                      queryable;
                      description;
                      type_
                    }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:RuleConfigurationKey.to_value));
        ("required", (Option.map x.required ~f:Boolean.to_value));
        ("key", (Option.map x.key ~f:Boolean.to_value));
        ("secret", (Option.map x.secret ~f:Boolean.to_value));
        ("queryable", (Option.map x.queryable ~f:Boolean.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("type",
          (Option.map x.type_ ~f:RuleConfigurationPropertyType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:RuleConfigurationPropertyType.of_xml)
          (Xml.child xml_arg0 "type") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let queryable =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "queryable") in
      let secret =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "secret") in
      let key = (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "key") in
      let required =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "required") in
      let name =
        (Option.map ~f:RuleConfigurationKey.of_xml)
          (Xml.child xml_arg0 "name") in
      make ?type_ ?description ?queryable ?secret ?key ?required ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ =
        field_map json__ "type" RuleConfigurationPropertyType.of_json in
      let description = field_map json__ "description" Description.of_json in
      let queryable = field_map json__ "queryable" Boolean.of_json in
      let secret = field_map json__ "secret" Boolean.of_json in
      let key = field_map json__ "key" Boolean.of_json in
      let required = field_map json__ "required" Boolean.of_json in
      let name = field_map json__ "name" RuleConfigurationKey.of_json in
      make ?type_ ?description ?queryable ?secret ?key ?required ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about a rule configuration property."]
module UrlTemplate =
  struct
    type nonrec t = string
    let context_ = "UrlTemplate"
    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:"UrlTemplate" j
    let to_json = simple_to_json to_value
  end
module ArtifactDetailList =
  struct
    type nonrec t = ArtifactDetail.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:ArtifactDetail.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:ArtifactDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"ArtifactDetailList" ~of_json:ArtifactDetail.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ResolvedRuleConfigurationMap =
  struct
    type nonrec t = (String_.t * String_.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 ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.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:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleExecutionResult =
  struct
    type nonrec t =
      {
      externalExecutionId: ExternalExecutionId.t option
        [@ocaml.doc "The external ID for the rule execution."];
      externalExecutionSummary: ExternalExecutionSummary.t option
        [@ocaml.doc "The external provider summary for the rule execution."];
      externalExecutionUrl: Url.t option
        [@ocaml.doc
          "The deepest external link to the external resource (for example, a repository URL or deployment endpoint) that is used when running the rule."];
      errorDetails: ErrorDetails.t option }
    let make ?externalExecutionId =
      fun ?externalExecutionSummary ->
        fun ?externalExecutionUrl ->
          fun ?errorDetails ->
            fun () ->
              {
                externalExecutionId;
                externalExecutionSummary;
                externalExecutionUrl;
                errorDetails
              }
    let to_value x =
      structure_to_value
        [("externalExecutionId",
           (Option.map x.externalExecutionId ~f:ExternalExecutionId.to_value));
        ("externalExecutionSummary",
          (Option.map x.externalExecutionSummary
             ~f:ExternalExecutionSummary.to_value));
        ("externalExecutionUrl",
          (Option.map x.externalExecutionUrl ~f:Url.to_value));
        ("errorDetails",
          (Option.map x.errorDetails ~f:ErrorDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorDetails =
        (Option.map ~f:ErrorDetails.of_xml)
          (Xml.child xml_arg0 "errorDetails") in
      let externalExecutionUrl =
        (Option.map ~f:Url.of_xml)
          (Xml.child xml_arg0 "externalExecutionUrl") in
      let externalExecutionSummary =
        (Option.map ~f:ExternalExecutionSummary.of_xml)
          (Xml.child xml_arg0 "externalExecutionSummary") in
      let externalExecutionId =
        (Option.map ~f:ExternalExecutionId.of_xml)
          (Xml.child xml_arg0 "externalExecutionId") in
      make ?errorDetails ?externalExecutionUrl ?externalExecutionSummary
        ?externalExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorDetails = field_map json__ "errorDetails" ErrorDetails.of_json in
      let externalExecutionUrl =
        field_map json__ "externalExecutionUrl" Url.of_json in
      let externalExecutionSummary =
        field_map json__ "externalExecutionSummary"
          ExternalExecutionSummary.of_json in
      let externalExecutionId =
        field_map json__ "externalExecutionId" ExternalExecutionId.of_json in
      make ?errorDetails ?externalExecutionUrl ?externalExecutionSummary
        ?externalExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Execution result information, such as the external execution ID."]
module TriggerDetail =
  struct
    type nonrec t = string
    let context_ = "TriggerDetail"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TriggerDetail" j
    let to_json = simple_to_json to_value
  end
module TriggerType =
  struct
    type nonrec t =
      | CreatePipeline 
      | StartPipelineExecution 
      | PollForSourceChanges 
      | Webhook 
      | CloudWatchEvent 
      | PutActionRevision 
      | WebhookV2 
      | ManualRollback 
      | AutomatedRollback 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CreatePipeline -> "CreatePipeline"
      | StartPipelineExecution -> "StartPipelineExecution"
      | PollForSourceChanges -> "PollForSourceChanges"
      | Webhook -> "Webhook"
      | CloudWatchEvent -> "CloudWatchEvent"
      | PutActionRevision -> "PutActionRevision"
      | WebhookV2 -> "WebhookV2"
      | ManualRollback -> "ManualRollback"
      | AutomatedRollback -> "AutomatedRollback"
      | Non_static_id s -> s
    let of_string =
      function
      | "CreatePipeline" -> CreatePipeline
      | "StartPipelineExecution" -> StartPipelineExecution
      | "PollForSourceChanges" -> PollForSourceChanges
      | "Webhook" -> Webhook
      | "CloudWatchEvent" -> CloudWatchEvent
      | "PutActionRevision" -> PutActionRevision
      | "WebhookV2" -> WebhookV2
      | "ManualRollback" -> ManualRollback
      | "AutomatedRollback" -> AutomatedRollback
      | 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 TriggerType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TriggerType" j)
    let to_json = simple_to_json to_value
  end
module SourceRevision =
  struct
    type nonrec t =
      {
      actionName: ActionName.t option
        [@ocaml.doc
          "The name of the action that processed the revision to the source artifact."];
      revisionId: Revision.t option
        [@ocaml.doc
          "The system-generated unique ID that identifies the revision number of the artifact."];
      revisionSummary: RevisionSummary.t option
        [@ocaml.doc
          "Summary information about the most recent revision of the artifact. For GitHub and CodeCommit repositories, the commit message. For Amazon S3 buckets or actions, the user-provided content of a codepipeline-artifact-revision-summary key specified in the object metadata."];
      revisionUrl: Url.t option
        [@ocaml.doc
          "The commit ID for the artifact revision. For artifacts stored in GitHub or CodeCommit repositories, the commit ID is linked to a commit details page."]}
    let make ?actionName =
      fun ?revisionId ->
        fun ?revisionSummary ->
          fun ?revisionUrl ->
            fun () ->
              { actionName; revisionId; revisionSummary; revisionUrl }
    let to_value x =
      structure_to_value
        [("actionName", (Option.map x.actionName ~f:ActionName.to_value));
        ("revisionId", (Option.map x.revisionId ~f:Revision.to_value));
        ("revisionSummary",
          (Option.map x.revisionSummary ~f:RevisionSummary.to_value));
        ("revisionUrl", (Option.map x.revisionUrl ~f:Url.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionUrl =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "revisionUrl") in
      let revisionSummary =
        (Option.map ~f:RevisionSummary.of_xml)
          (Xml.child xml_arg0 "revisionSummary") in
      let revisionId =
        (Option.map ~f:Revision.of_xml) (Xml.child xml_arg0 "revisionId") in
      let actionName =
        (Option.map ~f:ActionName.of_xml) (Xml.child xml_arg0 "actionName") in
      make ?revisionUrl ?revisionSummary ?revisionId ?actionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionUrl = field_map json__ "revisionUrl" Url.of_json in
      let revisionSummary =
        field_map json__ "revisionSummary" RevisionSummary.of_json in
      let revisionId = field_map json__ "revisionId" Revision.of_json in
      let actionName = field_map json__ "actionName" ActionName.of_json in
      make ?revisionUrl ?revisionSummary ?revisionId ?actionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the version (or revision) of a source artifact that initiated a pipeline execution."]
module StopPipelineExecutionReason =
  struct
    type nonrec t = string
    let context_ = "StopPipelineExecutionReason"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:200); 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:"StopPipelineExecutionReason" j
    let to_json = simple_to_json to_value
  end
module DeployTargetEvent =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the event for the deploy action."];
      status: String_.t option
        [@ocaml.doc "The status of the event for the deploy action."];
      startTime: Timestamp.t option
        [@ocaml.doc "The start time for the event for the deploy action."];
      endTime: Timestamp.t option
        [@ocaml.doc "The end time for the event for the deploy action."];
      context: DeployTargetEventContext.t option
        [@ocaml.doc "The context for the event for the deploy action."]}
    let make ?name =
      fun ?status ->
        fun ?startTime ->
          fun ?endTime ->
            fun ?context ->
              fun () -> { name; status; startTime; endTime; context }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("status", (Option.map x.status ~f:String_.to_value));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("endTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("context",
          (Option.map x.context ~f:DeployTargetEventContext.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let context =
        (Option.map ~f:DeployTargetEventContext.of_xml)
          (Xml.child xml_arg0 "context") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?context ?endTime ?startTime ?status ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let context =
        field_map json__ "context" DeployTargetEventContext.of_json in
      let endTime = field_map json__ "endTime" Timestamp.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let status = field_map json__ "status" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?context ?endTime ?startTime ?status ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A lifecycle event for the deploy action."]
module TargetFilterValue =
  struct
    type nonrec t = string
    let context_ = "TargetFilterValue"
    let make i =
      let open Result in ok_or_failwith (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:"TargetFilterValue" j
    let to_json = simple_to_json to_value
  end
module ActionConfigurationProperty =
  struct
    type nonrec t =
      {
      name: ActionConfigurationKey.t
        [@ocaml.doc "The name of the action configuration property."];
      required: Boolean.t
        [@ocaml.doc
          "Whether the configuration property is a required value."];
      key: Boolean.t
        [@ocaml.doc "Whether the configuration property is a key."];
      secret: Boolean.t
        [@ocaml.doc
          "Whether the configuration property is secret. Secrets are hidden from all calls except for GetJobDetails, GetThirdPartyJobDetails, PollForJobs, and PollForThirdPartyJobs. When updating a pipeline, passing * * * * * without changing any other values of the action preserves the previous value of the secret."];
      queryable: Boolean.t option
        [@ocaml.doc
          "Indicates that the property is used with PollForJobs. When creating a custom action, an action can have up to one queryable property. If it has one, that property must be both required and not secret. If you create a pipeline with a custom action type, and that custom action contains a queryable property, the value for that configuration property is subject to other restrictions. The value must be less than or equal to twenty (20) characters. The value can contain only alphanumeric characters, underscores, and hyphens."];
      description: Description.t option
        [@ocaml.doc
          "The description of the action configuration property that is displayed to users."];
      type_: ActionConfigurationPropertyType.t option
        [@ocaml.doc "The type of the configuration property."]}
    let context_ = "ActionConfigurationProperty"
    let make ?queryable =
      fun ?description ->
        fun ?type_ ->
          fun ~name ->
            fun ~required ->
              fun ~key ->
                fun ~secret ->
                  fun () ->
                    {
                      queryable;
                      description;
                      type_;
                      name;
                      required;
                      key;
                      secret
                    }
    let to_value x =
      structure_to_value
        [("name", (Some (ActionConfigurationKey.to_value x.name)));
        ("required", (Some (Boolean.to_value x.required)));
        ("key", (Some (Boolean.to_value x.key)));
        ("secret", (Some (Boolean.to_value x.secret)));
        ("queryable", (Option.map x.queryable ~f:Boolean.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("type",
          (Option.map x.type_ ~f:ActionConfigurationPropertyType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:ActionConfigurationPropertyType.of_xml)
          (Xml.child xml_arg0 "type") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let queryable =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "queryable") in
      let secret =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "secret") in
      let key =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      let required =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "required") in
      let name =
        ActionConfigurationKey.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?type_ ?description ?queryable ~secret ~key ~required ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ =
        field_map json__ "type" ActionConfigurationPropertyType.of_json in
      let description = field_map json__ "description" Description.of_json in
      let queryable = field_map json__ "queryable" Boolean.of_json in
      let secret = field_map_exn json__ "secret" Boolean.of_json in
      let key = field_map_exn json__ "key" Boolean.of_json in
      let required = field_map_exn json__ "required" Boolean.of_json in
      let name = field_map_exn json__ "name" ActionConfigurationKey.of_json in
      make ?type_ ?description ?queryable ~secret ~key ~required ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about an action configuration property."]
module ResolvedActionConfigurationMap =
  struct
    type nonrec t = (String_.t * String_.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 ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.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:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActionExecutionResult =
  struct
    type nonrec t =
      {
      externalExecutionId: ExternalExecutionId.t option
        [@ocaml.doc
          "The action provider's external ID for the action execution."];
      externalExecutionSummary: ExternalExecutionSummary.t option
        [@ocaml.doc
          "The action provider's summary for the action execution."];
      externalExecutionUrl: Url.t option
        [@ocaml.doc
          "The deepest external link to the external resource (for example, a repository URL or deployment endpoint) that is used when running the action."];
      errorDetails: ErrorDetails.t option ;
      logStreamARN: LogStreamARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the log stream for the action compute."]}
    let make ?externalExecutionId =
      fun ?externalExecutionSummary ->
        fun ?externalExecutionUrl ->
          fun ?errorDetails ->
            fun ?logStreamARN ->
              fun () ->
                {
                  externalExecutionId;
                  externalExecutionSummary;
                  externalExecutionUrl;
                  errorDetails;
                  logStreamARN
                }
    let to_value x =
      structure_to_value
        [("externalExecutionId",
           (Option.map x.externalExecutionId ~f:ExternalExecutionId.to_value));
        ("externalExecutionSummary",
          (Option.map x.externalExecutionSummary
             ~f:ExternalExecutionSummary.to_value));
        ("externalExecutionUrl",
          (Option.map x.externalExecutionUrl ~f:Url.to_value));
        ("errorDetails",
          (Option.map x.errorDetails ~f:ErrorDetails.to_value));
        ("logStreamARN",
          (Option.map x.logStreamARN ~f:LogStreamARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logStreamARN =
        (Option.map ~f:LogStreamARN.of_xml)
          (Xml.child xml_arg0 "logStreamARN") in
      let errorDetails =
        (Option.map ~f:ErrorDetails.of_xml)
          (Xml.child xml_arg0 "errorDetails") in
      let externalExecutionUrl =
        (Option.map ~f:Url.of_xml)
          (Xml.child xml_arg0 "externalExecutionUrl") in
      let externalExecutionSummary =
        (Option.map ~f:ExternalExecutionSummary.of_xml)
          (Xml.child xml_arg0 "externalExecutionSummary") in
      let externalExecutionId =
        (Option.map ~f:ExternalExecutionId.of_xml)
          (Xml.child xml_arg0 "externalExecutionId") in
      make ?logStreamARN ?errorDetails ?externalExecutionUrl
        ?externalExecutionSummary ?externalExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logStreamARN = field_map json__ "logStreamARN" LogStreamARN.of_json in
      let errorDetails = field_map json__ "errorDetails" ErrorDetails.of_json in
      let externalExecutionUrl =
        field_map json__ "externalExecutionUrl" Url.of_json in
      let externalExecutionSummary =
        field_map json__ "externalExecutionSummary"
          ExternalExecutionSummary.of_json in
      let externalExecutionId =
        field_map json__ "externalExecutionId" ExternalExecutionId.of_json in
      make ?logStreamARN ?errorDetails ?externalExecutionUrl
        ?externalExecutionSummary ?externalExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Execution result information, such as the external execution ID."]
module OutputVariablesMap =
  struct
    type nonrec t = (OutputVariablesKey.t * OutputVariablesValue.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 ->
                            ((OutputVariablesKey.of_string chopped),
                              (OutputVariablesValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (OutputVariablesKey.to_value x) |>
                    (fun x ->
                       (OutputVariablesValue.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:OutputVariablesKey.of_string
        ~of_json:OutputVariablesValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActionState =
  struct
    type nonrec t =
      {
      actionName: ActionName.t option [@ocaml.doc "The name of the action."];
      currentRevision: ActionRevision.t option
        [@ocaml.doc
          "Represents information about the version (or revision) of an action."];
      latestExecution: ActionExecution.t option
        [@ocaml.doc "Represents information about the run of an action."];
      entityUrl: Url.t option
        [@ocaml.doc
          "A URL link for more information about the state of the action, such as a deployment group details page."];
      revisionUrl: Url.t option
        [@ocaml.doc
          "A URL link for more information about the revision, such as a commit details page."]}
    let make ?actionName =
      fun ?currentRevision ->
        fun ?latestExecution ->
          fun ?entityUrl ->
            fun ?revisionUrl ->
              fun () ->
                {
                  actionName;
                  currentRevision;
                  latestExecution;
                  entityUrl;
                  revisionUrl
                }
    let to_value x =
      structure_to_value
        [("actionName", (Option.map x.actionName ~f:ActionName.to_value));
        ("currentRevision",
          (Option.map x.currentRevision ~f:ActionRevision.to_value));
        ("latestExecution",
          (Option.map x.latestExecution ~f:ActionExecution.to_value));
        ("entityUrl", (Option.map x.entityUrl ~f:Url.to_value));
        ("revisionUrl", (Option.map x.revisionUrl ~f:Url.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionUrl =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "revisionUrl") in
      let entityUrl =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "entityUrl") in
      let latestExecution =
        (Option.map ~f:ActionExecution.of_xml)
          (Xml.child xml_arg0 "latestExecution") in
      let currentRevision =
        (Option.map ~f:ActionRevision.of_xml)
          (Xml.child xml_arg0 "currentRevision") in
      let actionName =
        (Option.map ~f:ActionName.of_xml) (Xml.child xml_arg0 "actionName") in
      make ?revisionUrl ?entityUrl ?latestExecution ?currentRevision
        ?actionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionUrl = field_map json__ "revisionUrl" Url.of_json in
      let entityUrl = field_map json__ "entityUrl" Url.of_json in
      let latestExecution =
        field_map json__ "latestExecution" ActionExecution.of_json in
      let currentRevision =
        field_map json__ "currentRevision" ActionRevision.of_json in
      let actionName = field_map json__ "actionName" ActionName.of_json in
      make ?revisionUrl ?entityUrl ?latestExecution ?currentRevision
        ?actionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about the state of an action."]
module RetryAttempt =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for RetryAttempt" 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 RetryTrigger =
  struct
    type nonrec t =
      | AutomatedStageRetry 
      | ManualStageRetry 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AutomatedStageRetry -> "AutomatedStageRetry"
      | ManualStageRetry -> "ManualStageRetry"
      | Non_static_id s -> s
    let of_string =
      function
      | "AutomatedStageRetry" -> AutomatedStageRetry
      | "ManualStageRetry" -> ManualStageRetry
      | 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 RetryTrigger" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RetryTrigger" j)
    let to_json = simple_to_json to_value
  end
module ConditionStateList =
  struct
    type nonrec t = ConditionState.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:ConditionState.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:ConditionState.of_xml)
    let of_json j =
      list_of_json ~kind:"ConditionStateList" ~of_json:ConditionState.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module StageConditionsExecution =
  struct
    type nonrec t =
      {
      status: ConditionExecutionStatus.t option
        [@ocaml.doc "The status of a run of a condition for a stage."];
      summary: ExecutionSummary.t option
        [@ocaml.doc "A summary of the run of the condition for a stage."]}
    let make ?status = fun ?summary -> fun () -> { status; summary }
    let to_value x =
      structure_to_value
        [("status",
           (Option.map x.status ~f:ConditionExecutionStatus.to_value));
        ("summary", (Option.map x.summary ~f:ExecutionSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let summary =
        (Option.map ~f:ExecutionSummary.of_xml)
          (Xml.child xml_arg0 "summary") in
      let status =
        (Option.map ~f:ConditionExecutionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?summary ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let summary = field_map json__ "summary" ExecutionSummary.of_json in
      let status = field_map json__ "status" ConditionExecutionStatus.of_json in
      make ?summary ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about the run of a condition for a stage."]
module StageExecution =
  struct
    type nonrec t =
      {
      pipelineExecutionId: PipelineExecutionId.t option
        [@ocaml.doc
          "The ID of the pipeline execution associated with the stage."];
      status: StageExecutionStatus.t option
        [@ocaml.doc
          "The status of the stage, or for a completed stage, the last status of the stage. A status of cancelled means that the pipeline\226\128\153s definition was updated before the stage execution could be completed."];
      type_: ExecutionType.t option
        [@ocaml.doc
          "The type of pipeline execution for the stage, such as a rollback pipeline execution."]}
    let make ?pipelineExecutionId =
      fun ?status ->
        fun ?type_ -> fun () -> { pipelineExecutionId; status; type_ }
    let to_value x =
      structure_to_value
        [("pipelineExecutionId",
           (Option.map x.pipelineExecutionId ~f:PipelineExecutionId.to_value));
        ("status", (Option.map x.status ~f:StageExecutionStatus.to_value));
        ("type", (Option.map x.type_ ~f:ExecutionType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:ExecutionType.of_xml) (Xml.child xml_arg0 "type") in
      let status =
        (Option.map ~f:StageExecutionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let pipelineExecutionId =
        (Option.map ~f:PipelineExecutionId.of_xml)
          (Xml.child xml_arg0 "pipelineExecutionId") in
      make ?type_ ?status ?pipelineExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "type" ExecutionType.of_json in
      let status = field_map json__ "status" StageExecutionStatus.of_json in
      let pipelineExecutionId =
        field_map json__ "pipelineExecutionId" PipelineExecutionId.of_json in
      make ?type_ ?status ?pipelineExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about the run of a stage."]
module DisabledReason =
  struct
    type nonrec t = string
    let context_ = "DisabledReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:300) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9!@ \\(\\)\\.\\*\\?\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DisabledReason" j
    let to_json = simple_to_json to_value
  end
module Enabled =
  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 LastChangedAt =
  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 LastChangedBy =
  struct
    type nonrec t = string
    let context_ = "LastChangedBy"
    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:"LastChangedBy" j
    let to_json = simple_to_json to_value
  end
module ArtifactStore =
  struct
    type nonrec t =
      {
      type_: ArtifactStoreType.t
        [@ocaml.doc "The type of the artifact store, such as S3."];
      location: ArtifactStoreLocation.t
        [@ocaml.doc
          "The S3 bucket used for storing the artifacts for a pipeline. You can specify the name of an S3 bucket but not a folder in the bucket. A folder to contain the pipeline artifacts is created for you based on the name of the pipeline. You can use any S3 bucket in the same Amazon Web Services Region as the pipeline to store your pipeline artifacts."];
      encryptionKey: EncryptionKey.t option
        [@ocaml.doc
          "The encryption key used to encrypt the data in the artifact store, such as an Amazon Web Services Key Management Service key. If this is undefined, the default key for Amazon S3 is used."]}
    let context_ = "ArtifactStore"
    let make ?encryptionKey =
      fun ~type_ ->
        fun ~location -> fun () -> { encryptionKey; type_; location }
    let to_value x =
      structure_to_value
        [("type", (Some (ArtifactStoreType.to_value x.type_)));
        ("location", (Some (ArtifactStoreLocation.to_value x.location)));
        ("encryptionKey",
          (Option.map x.encryptionKey ~f:EncryptionKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionKey =
        (Option.map ~f:EncryptionKey.of_xml)
          (Xml.child xml_arg0 "encryptionKey") in
      let location =
        ArtifactStoreLocation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "location") in
      let type_ =
        ArtifactStoreType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?encryptionKey ~location ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionKey =
        field_map json__ "encryptionKey" EncryptionKey.of_json in
      let location =
        field_map_exn json__ "location" ArtifactStoreLocation.of_json in
      let type_ = field_map_exn json__ "type" ArtifactStoreType.of_json in
      make ?encryptionKey ~location ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The S3 bucket where artifacts for the pipeline are stored. You must include either artifactStore or artifactStores in your pipeline, but you cannot use both. If you create a cross-region action in your pipeline, you must use artifactStores."]
module StageDeclaration =
  struct
    type nonrec t =
      {
      name: StageName.t [@ocaml.doc "The name of the stage."];
      blockers: StageBlockerDeclarationList.t option
        [@ocaml.doc "Reserved for future use."];
      actions: StageActionDeclarationList.t
        [@ocaml.doc "The actions included in a stage."];
      onFailure: FailureConditions.t option
        [@ocaml.doc
          "The method to use when a stage has not completed successfully. For example, configuring this field for rollback will roll back a failed stage automatically to the last successful pipeline execution in the stage."];
      onSuccess: SuccessConditions.t option
        [@ocaml.doc
          "The method to use when a stage has succeeded. For example, configuring this field for conditions will allow the stage to succeed when the conditions are met."];
      beforeEntry: BeforeEntryConditions.t option
        [@ocaml.doc
          "The method to use when a stage allows entry. For example, configuring this field for conditions will allow entry to the stage when the conditions are met."]}
    let context_ = "StageDeclaration"
    let make ?blockers =
      fun ?onFailure ->
        fun ?onSuccess ->
          fun ?beforeEntry ->
            fun ~name ->
              fun ~actions ->
                fun () ->
                  {
                    blockers;
                    onFailure;
                    onSuccess;
                    beforeEntry;
                    name;
                    actions
                  }
    let to_value x =
      structure_to_value
        [("name", (Some (StageName.to_value x.name)));
        ("blockers",
          (Option.map x.blockers ~f:StageBlockerDeclarationList.to_value));
        ("actions", (Some (StageActionDeclarationList.to_value x.actions)));
        ("onFailure", (Option.map x.onFailure ~f:FailureConditions.to_value));
        ("onSuccess", (Option.map x.onSuccess ~f:SuccessConditions.to_value));
        ("beforeEntry",
          (Option.map x.beforeEntry ~f:BeforeEntryConditions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let beforeEntry =
        (Option.map ~f:BeforeEntryConditions.of_xml)
          (Xml.child xml_arg0 "beforeEntry") in
      let onSuccess =
        (Option.map ~f:SuccessConditions.of_xml)
          (Xml.child xml_arg0 "onSuccess") in
      let onFailure =
        (Option.map ~f:FailureConditions.of_xml)
          (Xml.child xml_arg0 "onFailure") in
      let actions =
        StageActionDeclarationList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "actions") in
      let blockers =
        (Option.map ~f:StageBlockerDeclarationList.of_xml)
          (Xml.child xml_arg0 "blockers") in
      let name =
        StageName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?beforeEntry ?onSuccess ?onFailure ~actions ?blockers ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let beforeEntry =
        field_map json__ "beforeEntry" BeforeEntryConditions.of_json in
      let onSuccess = field_map json__ "onSuccess" SuccessConditions.of_json in
      let onFailure = field_map json__ "onFailure" FailureConditions.of_json in
      let actions =
        field_map_exn json__ "actions" StageActionDeclarationList.of_json in
      let blockers =
        field_map json__ "blockers" StageBlockerDeclarationList.of_json in
      let name = field_map_exn json__ "name" StageName.of_json in
      make ?beforeEntry ?onSuccess ?onFailure ~actions ?blockers ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about a stage and its definition."]
module PipelineTriggerDeclaration =
  struct
    type nonrec t =
      {
      providerType: PipelineTriggerProviderType.t
        [@ocaml.doc
          "The source provider for the event, such as connections configured for a repository with Git tags, for the specified trigger configuration."];
      gitConfiguration: GitConfiguration.t
        [@ocaml.doc
          "Provides the filter criteria and the source stage for the repository event that starts the pipeline, such as Git tags."]}
    let context_ = "PipelineTriggerDeclaration"
    let make ~providerType =
      fun ~gitConfiguration -> fun () -> { providerType; gitConfiguration }
    let to_value x =
      structure_to_value
        [("providerType",
           (Some (PipelineTriggerProviderType.to_value x.providerType)));
        ("gitConfiguration",
          (Some (GitConfiguration.to_value x.gitConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gitConfiguration =
        GitConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "gitConfiguration") in
      let providerType =
        PipelineTriggerProviderType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "providerType") in
      make ~gitConfiguration ~providerType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gitConfiguration =
        field_map_exn json__ "gitConfiguration" GitConfiguration.of_json in
      let providerType =
        field_map_exn json__ "providerType"
          PipelineTriggerProviderType.of_json in
      make ~gitConfiguration ~providerType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about the specified trigger configuration, such as the filter criteria and the source stage for the action that contains the trigger. This is only supported for the CodeStarSourceConnection action type. When a trigger configuration is specified, default change detection for repository and branch commits is disabled."]
module PipelineVariableDeclaration =
  struct
    type nonrec t =
      {
      name: PipelineVariableName.t
        [@ocaml.doc "The name of a pipeline-level variable."];
      defaultValue: PipelineVariableValue.t option
        [@ocaml.doc "The value of a pipeline-level variable."];
      description: PipelineVariableDescription.t option
        [@ocaml.doc
          "The description of a pipeline-level variable. It's used to add additional context about the variable, and not being used at time when pipeline executes."]}
    let context_ = "PipelineVariableDeclaration"
    let make ?defaultValue =
      fun ?description ->
        fun ~name -> fun () -> { defaultValue; description; name }
    let to_value x =
      structure_to_value
        [("name", (Some (PipelineVariableName.to_value x.name)));
        ("defaultValue",
          (Option.map x.defaultValue ~f:PipelineVariableValue.to_value));
        ("description",
          (Option.map x.description ~f:PipelineVariableDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:PipelineVariableDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let defaultValue =
        (Option.map ~f:PipelineVariableValue.of_xml)
          (Xml.child xml_arg0 "defaultValue") in
      let name =
        PipelineVariableName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?description ?defaultValue ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "description" PipelineVariableDescription.of_json in
      let defaultValue =
        field_map json__ "defaultValue" PipelineVariableValue.of_json in
      let name = field_map_exn json__ "name" PipelineVariableName.of_json in
      make ?description ?defaultValue ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A variable declared at the pipeline level."]
module MaximumActionTypeArtifactCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min: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 MaximumActionTypeArtifactCount"
           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 MinimumActionTypeArtifactCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (fun () -> check_int_min i ~min: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 MinimumActionTypeArtifactCount"
           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 ExecutorConfiguration =
  struct
    type nonrec t =
      {
      lambdaExecutorConfiguration: LambdaExecutorConfiguration.t option
        [@ocaml.doc "Details about the Lambda executor of the action type."];
      jobWorkerExecutorConfiguration: JobWorkerExecutorConfiguration.t option
        [@ocaml.doc
          "Details about the JobWorker executor of the action type."]}
    let make ?lambdaExecutorConfiguration =
      fun ?jobWorkerExecutorConfiguration ->
        fun () ->
          { lambdaExecutorConfiguration; jobWorkerExecutorConfiguration }
    let to_value x =
      structure_to_value
        [("lambdaExecutorConfiguration",
           (Option.map x.lambdaExecutorConfiguration
              ~f:LambdaExecutorConfiguration.to_value));
        ("jobWorkerExecutorConfiguration",
          (Option.map x.jobWorkerExecutorConfiguration
             ~f:JobWorkerExecutorConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobWorkerExecutorConfiguration =
        (Option.map ~f:JobWorkerExecutorConfiguration.of_xml)
          (Xml.child xml_arg0 "jobWorkerExecutorConfiguration") in
      let lambdaExecutorConfiguration =
        (Option.map ~f:LambdaExecutorConfiguration.of_xml)
          (Xml.child xml_arg0 "lambdaExecutorConfiguration") in
      make ?jobWorkerExecutorConfiguration ?lambdaExecutorConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobWorkerExecutorConfiguration =
        field_map json__ "jobWorkerExecutorConfiguration"
          JobWorkerExecutorConfiguration.of_json in
      let lambdaExecutorConfiguration =
        field_map json__ "lambdaExecutorConfiguration"
          LambdaExecutorConfiguration.of_json in
      make ?jobWorkerExecutorConfiguration ?lambdaExecutorConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The action engine, or executor, related to the supported integration model used to create and update the action type. The available executor types are Lambda and JobWorker."]
module ExecutorType =
  struct
    type nonrec t =
      | JobWorker 
      | Lambda 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | JobWorker -> "JobWorker"
      | Lambda -> "Lambda"
      | Non_static_id s -> s
    let of_string =
      function
      | "JobWorker" -> JobWorker
      | "Lambda" -> Lambda
      | 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 ExecutorType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExecutorType" j)
    let to_json = simple_to_json to_value
  end
module JobTimeout =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:43200) >>=
             (fun () -> check_int_min i ~min:60));
        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 JobTimeout" 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 PolicyStatementsTemplate =
  struct
    type nonrec t = string
    let context_ = "PolicyStatementsTemplate"
    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:"PolicyStatementsTemplate" j
    let to_json = simple_to_json to_value
  end
module ActionTypeOwner =
  struct
    type nonrec t = string
    let context_ = "ActionTypeOwner"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"AWS|ThirdParty"); 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:"ActionTypeOwner" j
    let to_json = simple_to_json to_value
  end
module AllowedAccounts =
  struct
    type nonrec t = AllowedAccount.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1000) >>=
             (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:AllowedAccount.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:AllowedAccount.of_xml)
    let of_json j =
      list_of_json ~kind:"AllowedAccounts" ~of_json:AllowedAccount.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActionTypeProperty =
  struct
    type nonrec t =
      {
      name: ActionConfigurationKey.t
        [@ocaml.doc "The property name that is displayed to users."];
      optional: Boolean.t
        [@ocaml.doc
          "Whether the configuration property is an optional value."];
      key: Boolean.t
        [@ocaml.doc "Whether the configuration property is a key."];
      noEcho: Boolean.t
        [@ocaml.doc
          "Whether to omit the field value entered by the customer in the log. If true, the value is not saved in CloudTrail logs for the action execution."];
      queryable: Boolean.t option
        [@ocaml.doc
          "Indicates that the property is used with polling. An action type can have up to one queryable property. If it has one, that property must be both required and not secret."];
      description: PropertyDescription.t option
        [@ocaml.doc
          "The description of the property that is displayed to users."]}
    let context_ = "ActionTypeProperty"
    let make ?queryable =
      fun ?description ->
        fun ~name ->
          fun ~optional ->
            fun ~key ->
              fun ~noEcho ->
                fun () ->
                  { queryable; description; name; optional; key; noEcho }
    let to_value x =
      structure_to_value
        [("name", (Some (ActionConfigurationKey.to_value x.name)));
        ("optional", (Some (Boolean.to_value x.optional)));
        ("key", (Some (Boolean.to_value x.key)));
        ("noEcho", (Some (Boolean.to_value x.noEcho)));
        ("queryable", (Option.map x.queryable ~f:Boolean.to_value));
        ("description",
          (Option.map x.description ~f:PropertyDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:PropertyDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let queryable =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "queryable") in
      let noEcho =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "noEcho") in
      let key =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      let optional =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "optional") in
      let name =
        ActionConfigurationKey.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?description ?queryable ~noEcho ~key ~optional ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "description" PropertyDescription.of_json in
      let queryable = field_map json__ "queryable" Boolean.of_json in
      let noEcho = field_map_exn json__ "noEcho" Boolean.of_json in
      let key = field_map_exn json__ "key" Boolean.of_json in
      let optional = field_map_exn json__ "optional" Boolean.of_json in
      let name = field_map_exn json__ "name" ActionConfigurationKey.of_json in
      make ?description ?queryable ~noEcho ~key ~optional ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about each property specified in the action configuration, such as the description and key name that display for the customer using the action type."]
module SourceRevisionType =
  struct
    type nonrec t =
      | COMMIT_ID 
      | IMAGE_DIGEST 
      | S3_OBJECT_VERSION_ID 
      | S3_OBJECT_KEY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMMIT_ID -> "COMMIT_ID"
      | IMAGE_DIGEST -> "IMAGE_DIGEST"
      | S3_OBJECT_VERSION_ID -> "S3_OBJECT_VERSION_ID"
      | S3_OBJECT_KEY -> "S3_OBJECT_KEY"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMMIT_ID" -> COMMIT_ID
      | "IMAGE_DIGEST" -> IMAGE_DIGEST
      | "S3_OBJECT_VERSION_ID" -> S3_OBJECT_VERSION_ID
      | "S3_OBJECT_KEY" -> S3_OBJECT_KEY
      | 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 SourceRevisionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SourceRevisionType" j)
    let to_json = simple_to_json to_value
  end
module ClientId =
  struct
    type nonrec t = string
    let context_ = "ClientId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientId" 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_pattern i
             ~pattern:"[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"JobId" j
    let to_json = simple_to_json to_value
  end
module JobData =
  struct
    type nonrec t =
      {
      actionTypeId: ActionTypeId.t option
        [@ocaml.doc "Represents information about an action type."];
      actionConfiguration: ActionConfiguration.t option
        [@ocaml.doc "Represents information about an action configuration."];
      pipelineContext: PipelineContext.t option
        [@ocaml.doc
          "Represents information about a pipeline to a job worker. Includes pipelineArn and pipelineExecutionId for custom jobs."];
      inputArtifacts: ArtifactList.t option
        [@ocaml.doc "The artifact supplied to the job."];
      outputArtifacts: ArtifactList.t option
        [@ocaml.doc "The output of the job."];
      artifactCredentials: AWSSessionCredentials.t option
        [@ocaml.doc
          "Represents an Amazon Web Services session credentials object. These credentials are temporary credentials that are issued by Amazon Web Services Secure Token Service (STS). They can be used to access input and output artifacts in the S3 bucket used to store artifacts for the pipeline in CodePipeline."];
      continuationToken: ContinuationToken.t option
        [@ocaml.doc
          "A system-generated token, such as a deployment ID, required by a job to continue the job asynchronously."];
      encryptionKey: EncryptionKey.t option
        [@ocaml.doc
          "Represents information about the key used to encrypt data in the artifact store, such as an KMS key."]}
    let make ?actionTypeId =
      fun ?actionConfiguration ->
        fun ?pipelineContext ->
          fun ?inputArtifacts ->
            fun ?outputArtifacts ->
              fun ?artifactCredentials ->
                fun ?continuationToken ->
                  fun ?encryptionKey ->
                    fun () ->
                      {
                        actionTypeId;
                        actionConfiguration;
                        pipelineContext;
                        inputArtifacts;
                        outputArtifacts;
                        artifactCredentials;
                        continuationToken;
                        encryptionKey
                      }
    let to_value x =
      structure_to_value
        [("actionTypeId",
           (Option.map x.actionTypeId ~f:ActionTypeId.to_value));
        ("actionConfiguration",
          (Option.map x.actionConfiguration ~f:ActionConfiguration.to_value));
        ("pipelineContext",
          (Option.map x.pipelineContext ~f:PipelineContext.to_value));
        ("inputArtifacts",
          (Option.map x.inputArtifacts ~f:ArtifactList.to_value));
        ("outputArtifacts",
          (Option.map x.outputArtifacts ~f:ArtifactList.to_value));
        ("artifactCredentials",
          (Option.map x.artifactCredentials ~f:AWSSessionCredentials.to_value));
        ("continuationToken",
          (Option.map x.continuationToken ~f:ContinuationToken.to_value));
        ("encryptionKey",
          (Option.map x.encryptionKey ~f:EncryptionKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionKey =
        (Option.map ~f:EncryptionKey.of_xml)
          (Xml.child xml_arg0 "encryptionKey") in
      let continuationToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "continuationToken") in
      let artifactCredentials =
        (Option.map ~f:AWSSessionCredentials.of_xml)
          (Xml.child xml_arg0 "artifactCredentials") in
      let outputArtifacts =
        (Option.map ~f:ArtifactList.of_xml)
          (Xml.child xml_arg0 "outputArtifacts") in
      let inputArtifacts =
        (Option.map ~f:ArtifactList.of_xml)
          (Xml.child xml_arg0 "inputArtifacts") in
      let pipelineContext =
        (Option.map ~f:PipelineContext.of_xml)
          (Xml.child xml_arg0 "pipelineContext") in
      let actionConfiguration =
        (Option.map ~f:ActionConfiguration.of_xml)
          (Xml.child xml_arg0 "actionConfiguration") in
      let actionTypeId =
        (Option.map ~f:ActionTypeId.of_xml)
          (Xml.child xml_arg0 "actionTypeId") in
      make ?encryptionKey ?continuationToken ?artifactCredentials
        ?outputArtifacts ?inputArtifacts ?pipelineContext
        ?actionConfiguration ?actionTypeId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionKey =
        field_map json__ "encryptionKey" EncryptionKey.of_json in
      let continuationToken =
        field_map json__ "continuationToken" ContinuationToken.of_json in
      let artifactCredentials =
        field_map json__ "artifactCredentials" AWSSessionCredentials.of_json in
      let outputArtifacts =
        field_map json__ "outputArtifacts" ArtifactList.of_json in
      let inputArtifacts =
        field_map json__ "inputArtifacts" ArtifactList.of_json in
      let pipelineContext =
        field_map json__ "pipelineContext" PipelineContext.of_json in
      let actionConfiguration =
        field_map json__ "actionConfiguration" ActionConfiguration.of_json in
      let actionTypeId = field_map json__ "actionTypeId" ActionTypeId.of_json in
      make ?encryptionKey ?continuationToken ?artifactCredentials
        ?outputArtifacts ?inputArtifacts ?pipelineContext
        ?actionConfiguration ?actionTypeId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents other information about a job required for a job worker to complete the job."]
module Nonce =
  struct
    type nonrec t = string
    let context_ = "Nonce"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (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:"Nonce" j
    let to_json = simple_to_json to_value
  end
module TagList =
  struct
    type nonrec t = Tag.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:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module WebhookArn =
  struct
    type nonrec t = string
    let context_ = "WebhookArn"
    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:"WebhookArn" j
    let to_json = simple_to_json to_value
  end
module WebhookDefinition =
  struct
    type nonrec t =
      {
      name: WebhookName.t [@ocaml.doc "The name of the webhook."];
      targetPipeline: PipelineName.t
        [@ocaml.doc
          "The name of the pipeline you want to connect to the webhook."];
      targetAction: ActionName.t
        [@ocaml.doc
          "The name of the action in a pipeline you want to connect to the webhook. The action must be from the source (first) stage of the pipeline."];
      filters: WebhookFilters.t
        [@ocaml.doc
          "A list of rules applied to the body/payload sent in the POST request to a webhook URL. All defined rules must pass for the request to be accepted and the pipeline started."];
      authentication: WebhookAuthenticationType.t
        [@ocaml.doc
          "Supported options are GITHUB_HMAC, IP, and UNAUTHENTICATED. When creating CodePipeline webhooks, do not use your own credentials or reuse the same secret token across multiple webhooks. For optimal security, generate a unique secret token for each webhook you create. The secret token is an arbitrary string that you provide, which GitHub uses to compute and sign the webhook payloads sent to CodePipeline, for protecting the integrity and authenticity of the webhook payloads. Using your own credentials or reusing the same token across multiple webhooks can lead to security vulnerabilities. If a secret token was provided, it will be redacted in the response. For information about the authentication scheme implemented by GITHUB_HMAC, see Securing your webhooks on the GitHub Developer website. IP rejects webhooks trigger requests unless they originate from an IP address in the IP range whitelisted in the authentication configuration. UNAUTHENTICATED accepts all webhook trigger requests regardless of origin."];
      authenticationConfiguration: WebhookAuthConfiguration.t
        [@ocaml.doc
          "Properties that configure the authentication applied to incoming webhook trigger requests. The required properties depend on the authentication type. For GITHUB_HMAC, only the SecretToken property must be set. For IP, only the AllowedIPRange property must be set to a valid CIDR range. For UNAUTHENTICATED, no properties can be set."]}
    let context_ = "WebhookDefinition"
    let make ~name =
      fun ~targetPipeline ->
        fun ~targetAction ->
          fun ~filters ->
            fun ~authentication ->
              fun ~authenticationConfiguration ->
                fun () ->
                  {
                    name;
                    targetPipeline;
                    targetAction;
                    filters;
                    authentication;
                    authenticationConfiguration
                  }
    let to_value x =
      structure_to_value
        [("name", (Some (WebhookName.to_value x.name)));
        ("targetPipeline", (Some (PipelineName.to_value x.targetPipeline)));
        ("targetAction", (Some (ActionName.to_value x.targetAction)));
        ("filters", (Some (WebhookFilters.to_value x.filters)));
        ("authentication",
          (Some (WebhookAuthenticationType.to_value x.authentication)));
        ("authenticationConfiguration",
          (Some
             (WebhookAuthConfiguration.to_value x.authenticationConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authenticationConfiguration =
        WebhookAuthConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "authenticationConfiguration") in
      let authentication =
        WebhookAuthenticationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "authentication") in
      let filters =
        WebhookFilters.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "filters") in
      let targetAction =
        ActionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetAction") in
      let targetPipeline =
        PipelineName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetPipeline") in
      let name =
        WebhookName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~authenticationConfiguration ~authentication ~filters
        ~targetAction ~targetPipeline ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authenticationConfiguration =
        field_map_exn json__ "authenticationConfiguration"
          WebhookAuthConfiguration.of_json in
      let authentication =
        field_map_exn json__ "authentication"
          WebhookAuthenticationType.of_json in
      let filters = field_map_exn json__ "filters" WebhookFilters.of_json in
      let targetAction =
        field_map_exn json__ "targetAction" ActionName.of_json in
      let targetPipeline =
        field_map_exn json__ "targetPipeline" PipelineName.of_json in
      let name = field_map_exn json__ "name" WebhookName.of_json in
      make ~authenticationConfiguration ~authentication ~filters
        ~targetAction ~targetPipeline ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about a webhook and its definition."]
module WebhookErrorCode =
  struct
    type nonrec t = string
    let context_ = "WebhookErrorCode"
    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:"WebhookErrorCode" j
    let to_json = simple_to_json to_value
  end
module WebhookErrorMessage =
  struct
    type nonrec t = string
    let context_ = "WebhookErrorMessage"
    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:"WebhookErrorMessage" j
    let to_json = simple_to_json to_value
  end
module WebhookLastTriggered =
  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 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) >>=
             (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:"WebhookUrl" j
    let to_json = simple_to_json to_value
  end
module ArtifactDetails =
  struct
    type nonrec t =
      {
      minimumCount: MinimumArtifactCount.t
        [@ocaml.doc
          "The minimum number of artifacts allowed for the action type."];
      maximumCount: MaximumArtifactCount.t
        [@ocaml.doc
          "The maximum number of artifacts allowed for the action type."]}
    let context_ = "ArtifactDetails"
    let make ~minimumCount =
      fun ~maximumCount -> fun () -> { minimumCount; maximumCount }
    let to_value x =
      structure_to_value
        [("minimumCount",
           (Some (MinimumArtifactCount.to_value x.minimumCount)));
        ("maximumCount",
          (Some (MaximumArtifactCount.to_value x.maximumCount)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maximumCount =
        MaximumArtifactCount.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "maximumCount") in
      let minimumCount =
        MinimumArtifactCount.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "minimumCount") in
      make ~maximumCount ~minimumCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maximumCount =
        field_map_exn json__ "maximumCount" MaximumArtifactCount.of_json in
      let minimumCount =
        field_map_exn json__ "minimumCount" MinimumArtifactCount.of_json in
      make ~maximumCount ~minimumCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about the details of an artifact."]
module RuleConfigurationPropertyList =
  struct
    type nonrec t = RuleConfigurationProperty.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:10); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:RuleConfigurationProperty.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:RuleConfigurationProperty.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleConfigurationPropertyList"
        ~of_json:RuleConfigurationProperty.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleTypeSettings =
  struct
    type nonrec t =
      {
      thirdPartyConfigurationUrl: Url.t option
        [@ocaml.doc
          "The URL of a sign-up page where users can sign up for an external service and perform initial configuration of the action provided by that service."];
      entityUrlTemplate: UrlTemplate.t option
        [@ocaml.doc
          "The URL returned to the CodePipeline console that provides a deep link to the resources of the external system, such as the configuration page for a CodeDeploy deployment group. This link is provided as part of the action display in the pipeline."];
      executionUrlTemplate: UrlTemplate.t option
        [@ocaml.doc
          "The URL returned to the CodePipeline console that contains a link to the top-level landing page for the external system, such as the console page for CodeDeploy. This link is shown on the pipeline view page in the CodePipeline console and provides a link to the execution entity of the external action."];
      revisionUrlTemplate: UrlTemplate.t option
        [@ocaml.doc
          "The URL returned to the CodePipeline console that contains a link to the page where customers can update or change the configuration of the external action."]}
    let make ?thirdPartyConfigurationUrl =
      fun ?entityUrlTemplate ->
        fun ?executionUrlTemplate ->
          fun ?revisionUrlTemplate ->
            fun () ->
              {
                thirdPartyConfigurationUrl;
                entityUrlTemplate;
                executionUrlTemplate;
                revisionUrlTemplate
              }
    let to_value x =
      structure_to_value
        [("thirdPartyConfigurationUrl",
           (Option.map x.thirdPartyConfigurationUrl ~f:Url.to_value));
        ("entityUrlTemplate",
          (Option.map x.entityUrlTemplate ~f:UrlTemplate.to_value));
        ("executionUrlTemplate",
          (Option.map x.executionUrlTemplate ~f:UrlTemplate.to_value));
        ("revisionUrlTemplate",
          (Option.map x.revisionUrlTemplate ~f:UrlTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionUrlTemplate =
        (Option.map ~f:UrlTemplate.of_xml)
          (Xml.child xml_arg0 "revisionUrlTemplate") in
      let executionUrlTemplate =
        (Option.map ~f:UrlTemplate.of_xml)
          (Xml.child xml_arg0 "executionUrlTemplate") in
      let entityUrlTemplate =
        (Option.map ~f:UrlTemplate.of_xml)
          (Xml.child xml_arg0 "entityUrlTemplate") in
      let thirdPartyConfigurationUrl =
        (Option.map ~f:Url.of_xml)
          (Xml.child xml_arg0 "thirdPartyConfigurationUrl") in
      make ?revisionUrlTemplate ?executionUrlTemplate ?entityUrlTemplate
        ?thirdPartyConfigurationUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionUrlTemplate =
        field_map json__ "revisionUrlTemplate" UrlTemplate.of_json in
      let executionUrlTemplate =
        field_map json__ "executionUrlTemplate" UrlTemplate.of_json in
      let entityUrlTemplate =
        field_map json__ "entityUrlTemplate" UrlTemplate.of_json in
      let thirdPartyConfigurationUrl =
        field_map json__ "thirdPartyConfigurationUrl" Url.of_json in
      make ?revisionUrlTemplate ?executionUrlTemplate ?entityUrlTemplate
        ?thirdPartyConfigurationUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about the settings for a rule type."]
module PipelineVersion =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for PipelineVersion" 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 RuleExecutionInput =
  struct
    type nonrec t =
      {
      ruleTypeId: RuleTypeId.t option
        [@ocaml.doc
          "The ID for the rule type, which is made up of the combined values for category, owner, provider, and version. For more information about conditions, see Stage conditions. For more information about rules, see the CodePipeline rule reference."];
      configuration: RuleConfigurationMap.t option
        [@ocaml.doc
          "Configuration data for a rule execution, such as the resolved values for that run."];
      resolvedConfiguration: ResolvedRuleConfigurationMap.t option
        [@ocaml.doc
          "Configuration data for a rule execution with all variable references replaced with their real values for the execution."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM service role that performs the declared rule. This is assumed through the roleArn for the pipeline."];
      region: AWSRegionName.t option
        [@ocaml.doc
          "The Amazon Web Services Region for the rule, such as us-east-1."];
      inputArtifacts: ArtifactDetailList.t option
        [@ocaml.doc
          "Details of input artifacts of the rule that correspond to the rule execution."]}
    let make ?ruleTypeId =
      fun ?configuration ->
        fun ?resolvedConfiguration ->
          fun ?roleArn ->
            fun ?region ->
              fun ?inputArtifacts ->
                fun () ->
                  {
                    ruleTypeId;
                    configuration;
                    resolvedConfiguration;
                    roleArn;
                    region;
                    inputArtifacts
                  }
    let to_value x =
      structure_to_value
        [("ruleTypeId", (Option.map x.ruleTypeId ~f:RuleTypeId.to_value));
        ("configuration",
          (Option.map x.configuration ~f:RuleConfigurationMap.to_value));
        ("resolvedConfiguration",
          (Option.map x.resolvedConfiguration
             ~f:ResolvedRuleConfigurationMap.to_value));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("region", (Option.map x.region ~f:AWSRegionName.to_value));
        ("inputArtifacts",
          (Option.map x.inputArtifacts ~f:ArtifactDetailList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputArtifacts =
        (Option.map ~f:ArtifactDetailList.of_xml)
          (Xml.child xml_arg0 "inputArtifacts") in
      let region =
        (Option.map ~f:AWSRegionName.of_xml) (Xml.child xml_arg0 "region") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let resolvedConfiguration =
        (Option.map ~f:ResolvedRuleConfigurationMap.of_xml)
          (Xml.child xml_arg0 "resolvedConfiguration") in
      let configuration =
        (Option.map ~f:RuleConfigurationMap.of_xml)
          (Xml.child xml_arg0 "configuration") in
      let ruleTypeId =
        (Option.map ~f:RuleTypeId.of_xml) (Xml.child xml_arg0 "ruleTypeId") in
      make ?inputArtifacts ?region ?roleArn ?resolvedConfiguration
        ?configuration ?ruleTypeId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputArtifacts =
        field_map json__ "inputArtifacts" ArtifactDetailList.of_json in
      let region = field_map json__ "region" AWSRegionName.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let resolvedConfiguration =
        field_map json__ "resolvedConfiguration"
          ResolvedRuleConfigurationMap.of_json in
      let configuration =
        field_map json__ "configuration" RuleConfigurationMap.of_json in
      let ruleTypeId = field_map json__ "ruleTypeId" RuleTypeId.of_json in
      make ?inputArtifacts ?region ?roleArn ?resolvedConfiguration
        ?configuration ?ruleTypeId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input information used for a rule execution."]
module RuleExecutionOutput =
  struct
    type nonrec t =
      {
      executionResult: RuleExecutionResult.t option
        [@ocaml.doc
          "Execution result information listed in the output details for a rule execution."]}
    let make ?executionResult = fun () -> { executionResult }
    let to_value x =
      structure_to_value
        [("executionResult",
           (Option.map x.executionResult ~f:RuleExecutionResult.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let executionResult =
        (Option.map ~f:RuleExecutionResult.of_xml)
          (Xml.child xml_arg0 "executionResult") in
      make ?executionResult ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let executionResult =
        field_map json__ "executionResult" RuleExecutionResult.of_json in
      make ?executionResult ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output details listed for a rule execution, such as the rule execution result."]
module StartTimeRange =
  struct
    type nonrec t =
      | Latest 
      | All 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Latest -> "Latest" | All -> "All" | Non_static_id s -> s
    let of_string =
      function | "Latest" -> Latest | "All" -> All | 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 StartTimeRange" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StartTimeRange" j)
    let to_json = simple_to_json to_value
  end
module ExecutionMode =
  struct
    type nonrec t =
      | QUEUED 
      | SUPERSEDED 
      | PARALLEL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | QUEUED -> "QUEUED"
      | SUPERSEDED -> "SUPERSEDED"
      | PARALLEL -> "PARALLEL"
      | Non_static_id s -> s
    let of_string =
      function
      | "QUEUED" -> QUEUED
      | "SUPERSEDED" -> SUPERSEDED
      | "PARALLEL" -> PARALLEL
      | 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 ExecutionMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExecutionMode" j)
    let to_json = simple_to_json to_value
  end
module PipelineType =
  struct
    type nonrec t =
      | V1 
      | V2 
      | Non_static_id of string 
    let make i = i
    let to_string = function | V1 -> "V1" | V2 -> "V2" | Non_static_id s -> s
    let of_string = function | "V1" -> V1 | "V2" -> V2 | 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 PipelineType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PipelineType" j)
    let to_json = simple_to_json to_value
  end
module ExecutionTrigger =
  struct
    type nonrec t =
      {
      triggerType: TriggerType.t option
        [@ocaml.doc
          "The type of change-detection method, command, or user interaction that started a pipeline execution."];
      triggerDetail: TriggerDetail.t option
        [@ocaml.doc
          "Detail related to the event that started a pipeline execution, such as the webhook ARN of the webhook that triggered the pipeline execution or the user ARN for a user-initiated start-pipeline-execution CLI command."]}
    let make ?triggerType =
      fun ?triggerDetail -> fun () -> { triggerType; triggerDetail }
    let to_value x =
      structure_to_value
        [("triggerType", (Option.map x.triggerType ~f:TriggerType.to_value));
        ("triggerDetail",
          (Option.map x.triggerDetail ~f:TriggerDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let triggerDetail =
        (Option.map ~f:TriggerDetail.of_xml)
          (Xml.child xml_arg0 "triggerDetail") in
      let triggerType =
        (Option.map ~f:TriggerType.of_xml) (Xml.child xml_arg0 "triggerType") in
      make ?triggerDetail ?triggerType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let triggerDetail =
        field_map json__ "triggerDetail" TriggerDetail.of_json in
      let triggerType = field_map json__ "triggerType" TriggerType.of_json in
      make ?triggerDetail ?triggerType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The interaction or event that started a pipeline execution."]
module PipelineExecutionStatus =
  struct
    type nonrec t =
      | Cancelled 
      | InProgress 
      | Stopped 
      | Stopping 
      | Succeeded 
      | Superseded 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Cancelled -> "Cancelled"
      | InProgress -> "InProgress"
      | Stopped -> "Stopped"
      | Stopping -> "Stopping"
      | Succeeded -> "Succeeded"
      | Superseded -> "Superseded"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Cancelled" -> Cancelled
      | "InProgress" -> InProgress
      | "Stopped" -> Stopped
      | "Stopping" -> Stopping
      | "Succeeded" -> Succeeded
      | "Superseded" -> Superseded
      | "Failed" -> 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 PipelineExecutionStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PipelineExecutionStatus" j)
    let to_json = simple_to_json to_value
  end
module PipelineExecutionStatusSummary =
  struct
    type nonrec t = string
    let context_ = "PipelineExecutionStatusSummary"
    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:"PipelineExecutionStatusSummary" j
    let to_json = simple_to_json to_value
  end
module PipelineRollbackMetadata =
  struct
    type nonrec t =
      {
      rollbackTargetPipelineExecutionId: PipelineExecutionId.t option
        [@ocaml.doc
          "The pipeline execution ID to which the stage will be rolled back."]}
    let make ?rollbackTargetPipelineExecutionId =
      fun () -> { rollbackTargetPipelineExecutionId }
    let to_value x =
      structure_to_value
        [("rollbackTargetPipelineExecutionId",
           (Option.map x.rollbackTargetPipelineExecutionId
              ~f:PipelineExecutionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rollbackTargetPipelineExecutionId =
        (Option.map ~f:PipelineExecutionId.of_xml)
          (Xml.child xml_arg0 "rollbackTargetPipelineExecutionId") in
      make ?rollbackTargetPipelineExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rollbackTargetPipelineExecutionId =
        field_map json__ "rollbackTargetPipelineExecutionId"
          PipelineExecutionId.of_json in
      make ?rollbackTargetPipelineExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The metadata for the stage execution to be rolled back."]
module SourceRevisionList =
  struct
    type nonrec t = SourceRevision.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:SourceRevision.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:SourceRevision.of_xml)
    let of_json j =
      list_of_json ~kind:"SourceRevisionList" ~of_json:SourceRevision.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module StopExecutionTrigger =
  struct
    type nonrec t =
      {
      reason: StopPipelineExecutionReason.t option
        [@ocaml.doc "The user-specified reason the pipeline was stopped."]}
    let make ?reason = fun () -> { reason }
    let to_value x =
      structure_to_value
        [("reason",
           (Option.map x.reason ~f:StopPipelineExecutionReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:StopPipelineExecutionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      make ?reason ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "reason" StopPipelineExecutionReason.of_json in
      make ?reason ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The interaction that stopped a pipeline execution."]
module DeployTargetEventList =
  struct
    type nonrec t = DeployTargetEvent.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:DeployTargetEvent.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:DeployTargetEvent.of_xml)
    let of_json j =
      list_of_json ~kind:"DeployTargetEventList"
        ~of_json:DeployTargetEvent.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetFilterName =
  struct
    type nonrec t =
      | TARGET_STATUS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | TARGET_STATUS -> "TARGET_STATUS" | Non_static_id s -> s
    let of_string =
      function | "TARGET_STATUS" -> TARGET_STATUS | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration TargetFilterName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TargetFilterName" j)
    let to_json = simple_to_json to_value
  end
module TargetFilterValueList =
  struct
    type nonrec t = TargetFilterValue.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:TargetFilterValue.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:TargetFilterValue.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetFilterValueList"
        ~of_json:TargetFilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActionConfigurationPropertyList =
  struct
    type nonrec t = ActionConfigurationProperty.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:10); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ActionConfigurationProperty.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:ActionConfigurationProperty.of_xml)
    let of_json j =
      list_of_json ~kind:"ActionConfigurationPropertyList"
        ~of_json:ActionConfigurationProperty.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActionTypeSettings =
  struct
    type nonrec t =
      {
      thirdPartyConfigurationUrl: Url.t option
        [@ocaml.doc
          "The URL of a sign-up page where users can sign up for an external service and perform initial configuration of the action provided by that service."];
      entityUrlTemplate: UrlTemplate.t option
        [@ocaml.doc
          "The URL returned to the CodePipeline console that provides a deep link to the resources of the external system, such as the configuration page for a CodeDeploy deployment group. This link is provided as part of the action display in the pipeline."];
      executionUrlTemplate: UrlTemplate.t option
        [@ocaml.doc
          "The URL returned to the CodePipeline console that contains a link to the top-level landing page for the external system, such as the console page for CodeDeploy. This link is shown on the pipeline view page in the CodePipeline console and provides a link to the execution entity of the external action."];
      revisionUrlTemplate: UrlTemplate.t option
        [@ocaml.doc
          "The URL returned to the CodePipeline console that contains a link to the page where customers can update or change the configuration of the external action."]}
    let make ?thirdPartyConfigurationUrl =
      fun ?entityUrlTemplate ->
        fun ?executionUrlTemplate ->
          fun ?revisionUrlTemplate ->
            fun () ->
              {
                thirdPartyConfigurationUrl;
                entityUrlTemplate;
                executionUrlTemplate;
                revisionUrlTemplate
              }
    let to_value x =
      structure_to_value
        [("thirdPartyConfigurationUrl",
           (Option.map x.thirdPartyConfigurationUrl ~f:Url.to_value));
        ("entityUrlTemplate",
          (Option.map x.entityUrlTemplate ~f:UrlTemplate.to_value));
        ("executionUrlTemplate",
          (Option.map x.executionUrlTemplate ~f:UrlTemplate.to_value));
        ("revisionUrlTemplate",
          (Option.map x.revisionUrlTemplate ~f:UrlTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionUrlTemplate =
        (Option.map ~f:UrlTemplate.of_xml)
          (Xml.child xml_arg0 "revisionUrlTemplate") in
      let executionUrlTemplate =
        (Option.map ~f:UrlTemplate.of_xml)
          (Xml.child xml_arg0 "executionUrlTemplate") in
      let entityUrlTemplate =
        (Option.map ~f:UrlTemplate.of_xml)
          (Xml.child xml_arg0 "entityUrlTemplate") in
      let thirdPartyConfigurationUrl =
        (Option.map ~f:Url.of_xml)
          (Xml.child xml_arg0 "thirdPartyConfigurationUrl") in
      make ?revisionUrlTemplate ?executionUrlTemplate ?entityUrlTemplate
        ?thirdPartyConfigurationUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionUrlTemplate =
        field_map json__ "revisionUrlTemplate" UrlTemplate.of_json in
      let executionUrlTemplate =
        field_map json__ "executionUrlTemplate" UrlTemplate.of_json in
      let entityUrlTemplate =
        field_map json__ "entityUrlTemplate" UrlTemplate.of_json in
      let thirdPartyConfigurationUrl =
        field_map json__ "thirdPartyConfigurationUrl" Url.of_json in
      make ?revisionUrlTemplate ?executionUrlTemplate ?entityUrlTemplate
        ?thirdPartyConfigurationUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the settings for an action type."]
module ActionExecutionInput =
  struct
    type nonrec t =
      {
      actionTypeId: ActionTypeId.t option ;
      configuration: ActionConfigurationMap.t option
        [@ocaml.doc "Configuration data for an action execution."];
      resolvedConfiguration: ResolvedActionConfigurationMap.t option
        [@ocaml.doc
          "Configuration data for an action execution with all variable references replaced with their real values for the execution."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "The ARN of the IAM service role that performs the declared action. This is assumed through the roleArn for the pipeline."];
      region: AWSRegionName.t option
        [@ocaml.doc
          "The Amazon Web Services Region for the action, such as us-east-1."];
      inputArtifacts: ArtifactDetailList.t option
        [@ocaml.doc
          "Details of input artifacts of the action that correspond to the action execution."];
      namespace: ActionNamespace.t option
        [@ocaml.doc
          "The variable namespace associated with the action. All variables produced as output by this action fall under this namespace."]}
    let make ?actionTypeId =
      fun ?configuration ->
        fun ?resolvedConfiguration ->
          fun ?roleArn ->
            fun ?region ->
              fun ?inputArtifacts ->
                fun ?namespace ->
                  fun () ->
                    {
                      actionTypeId;
                      configuration;
                      resolvedConfiguration;
                      roleArn;
                      region;
                      inputArtifacts;
                      namespace
                    }
    let to_value x =
      structure_to_value
        [("actionTypeId",
           (Option.map x.actionTypeId ~f:ActionTypeId.to_value));
        ("configuration",
          (Option.map x.configuration ~f:ActionConfigurationMap.to_value));
        ("resolvedConfiguration",
          (Option.map x.resolvedConfiguration
             ~f:ResolvedActionConfigurationMap.to_value));
        ("roleArn", (Option.map x.roleArn ~f:RoleArn.to_value));
        ("region", (Option.map x.region ~f:AWSRegionName.to_value));
        ("inputArtifacts",
          (Option.map x.inputArtifacts ~f:ArtifactDetailList.to_value));
        ("namespace", (Option.map x.namespace ~f:ActionNamespace.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let namespace =
        (Option.map ~f:ActionNamespace.of_xml)
          (Xml.child xml_arg0 "namespace") in
      let inputArtifacts =
        (Option.map ~f:ArtifactDetailList.of_xml)
          (Xml.child xml_arg0 "inputArtifacts") in
      let region =
        (Option.map ~f:AWSRegionName.of_xml) (Xml.child xml_arg0 "region") in
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "roleArn") in
      let resolvedConfiguration =
        (Option.map ~f:ResolvedActionConfigurationMap.of_xml)
          (Xml.child xml_arg0 "resolvedConfiguration") in
      let configuration =
        (Option.map ~f:ActionConfigurationMap.of_xml)
          (Xml.child xml_arg0 "configuration") in
      let actionTypeId =
        (Option.map ~f:ActionTypeId.of_xml)
          (Xml.child xml_arg0 "actionTypeId") in
      make ?namespace ?inputArtifacts ?region ?roleArn ?resolvedConfiguration
        ?configuration ?actionTypeId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let namespace = field_map json__ "namespace" ActionNamespace.of_json in
      let inputArtifacts =
        field_map json__ "inputArtifacts" ArtifactDetailList.of_json in
      let region = field_map json__ "region" AWSRegionName.of_json in
      let roleArn = field_map json__ "roleArn" RoleArn.of_json in
      let resolvedConfiguration =
        field_map json__ "resolvedConfiguration"
          ResolvedActionConfigurationMap.of_json in
      let configuration =
        field_map json__ "configuration" ActionConfigurationMap.of_json in
      let actionTypeId = field_map json__ "actionTypeId" ActionTypeId.of_json in
      make ?namespace ?inputArtifacts ?region ?roleArn ?resolvedConfiguration
        ?configuration ?actionTypeId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input information used for an action execution."]
module ActionExecutionOutput =
  struct
    type nonrec t =
      {
      outputArtifacts: ArtifactDetailList.t option
        [@ocaml.doc
          "Details of output artifacts of the action that correspond to the action execution."];
      executionResult: ActionExecutionResult.t option
        [@ocaml.doc
          "Execution result information listed in the output details for an action execution."];
      outputVariables: OutputVariablesMap.t option
        [@ocaml.doc
          "The outputVariables field shows the key-value pairs that were output as part of that execution."]}
    let make ?outputArtifacts =
      fun ?executionResult ->
        fun ?outputVariables ->
          fun () -> { outputArtifacts; executionResult; outputVariables }
    let to_value x =
      structure_to_value
        [("outputArtifacts",
           (Option.map x.outputArtifacts ~f:ArtifactDetailList.to_value));
        ("executionResult",
          (Option.map x.executionResult ~f:ActionExecutionResult.to_value));
        ("outputVariables",
          (Option.map x.outputVariables ~f:OutputVariablesMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outputVariables =
        (Option.map ~f:OutputVariablesMap.of_xml)
          (Xml.child xml_arg0 "outputVariables") in
      let executionResult =
        (Option.map ~f:ActionExecutionResult.of_xml)
          (Xml.child xml_arg0 "executionResult") in
      let outputArtifacts =
        (Option.map ~f:ArtifactDetailList.of_xml)
          (Xml.child xml_arg0 "outputArtifacts") in
      make ?outputVariables ?executionResult ?outputArtifacts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outputVariables =
        field_map json__ "outputVariables" OutputVariablesMap.of_json in
      let executionResult =
        field_map json__ "executionResult" ActionExecutionResult.of_json in
      let outputArtifacts =
        field_map json__ "outputArtifacts" ArtifactDetailList.of_json in
      make ?outputVariables ?executionResult ?outputArtifacts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output details listed for an action execution, such as the action execution result."]
module ActionStateList =
  struct
    type nonrec t = ActionState.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:ActionState.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:ActionState.of_xml)
    let of_json j =
      list_of_json ~kind:"ActionStateList" ~of_json:ActionState.of_json j
    let to_json v = composed_to_json to_value v
  end
module RetryStageMetadata =
  struct
    type nonrec t =
      {
      autoStageRetryAttempt: RetryAttempt.t option
        [@ocaml.doc
          "The number of attempts for a specific stage with automatic retry on stage failure. One attempt is allowed for automatic stage retry on failure."];
      manualStageRetryAttempt: RetryAttempt.t option
        [@ocaml.doc
          "The number of attempts for a specific stage where manual retries have been made upon stage failure."];
      latestRetryTrigger: RetryTrigger.t option
        [@ocaml.doc
          "The latest trigger for a specific stage where manual or automatic retries have been made upon stage failure."]}
    let make ?autoStageRetryAttempt =
      fun ?manualStageRetryAttempt ->
        fun ?latestRetryTrigger ->
          fun () ->
            {
              autoStageRetryAttempt;
              manualStageRetryAttempt;
              latestRetryTrigger
            }
    let to_value x =
      structure_to_value
        [("autoStageRetryAttempt",
           (Option.map x.autoStageRetryAttempt ~f:RetryAttempt.to_value));
        ("manualStageRetryAttempt",
          (Option.map x.manualStageRetryAttempt ~f:RetryAttempt.to_value));
        ("latestRetryTrigger",
          (Option.map x.latestRetryTrigger ~f:RetryTrigger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let latestRetryTrigger =
        (Option.map ~f:RetryTrigger.of_xml)
          (Xml.child xml_arg0 "latestRetryTrigger") in
      let manualStageRetryAttempt =
        (Option.map ~f:RetryAttempt.of_xml)
          (Xml.child xml_arg0 "manualStageRetryAttempt") in
      let autoStageRetryAttempt =
        (Option.map ~f:RetryAttempt.of_xml)
          (Xml.child xml_arg0 "autoStageRetryAttempt") in
      make ?latestRetryTrigger ?manualStageRetryAttempt
        ?autoStageRetryAttempt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let latestRetryTrigger =
        field_map json__ "latestRetryTrigger" RetryTrigger.of_json in
      let manualStageRetryAttempt =
        field_map json__ "manualStageRetryAttempt" RetryAttempt.of_json in
      let autoStageRetryAttempt =
        field_map json__ "autoStageRetryAttempt" RetryAttempt.of_json in
      make ?latestRetryTrigger ?manualStageRetryAttempt
        ?autoStageRetryAttempt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of a specific automatic retry on stage failure, including the attempt number and trigger."]
module StageConditionState =
  struct
    type nonrec t =
      {
      latestExecution: StageConditionsExecution.t option
        [@ocaml.doc
          "Represents information about the latest run of a condition for a stage."];
      conditionStates: ConditionStateList.t option
        [@ocaml.doc
          "The states of the conditions for a run of a condition for a stage."]}
    let make ?latestExecution =
      fun ?conditionStates -> fun () -> { latestExecution; conditionStates }
    let to_value x =
      structure_to_value
        [("latestExecution",
           (Option.map x.latestExecution ~f:StageConditionsExecution.to_value));
        ("conditionStates",
          (Option.map x.conditionStates ~f:ConditionStateList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conditionStates =
        (Option.map ~f:ConditionStateList.of_xml)
          (Xml.child xml_arg0 "conditionStates") in
      let latestExecution =
        (Option.map ~f:StageConditionsExecution.of_xml)
          (Xml.child xml_arg0 "latestExecution") in
      make ?conditionStates ?latestExecution ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conditionStates =
        field_map json__ "conditionStates" ConditionStateList.of_json in
      let latestExecution =
        field_map json__ "latestExecution" StageConditionsExecution.of_json in
      make ?conditionStates ?latestExecution ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The state of a run of a condition for a stage."]
module StageExecutionList =
  struct
    type nonrec t = StageExecution.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:StageExecution.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:StageExecution.of_xml)
    let of_json j =
      list_of_json ~kind:"StageExecutionList" ~of_json:StageExecution.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module TransitionState =
  struct
    type nonrec t =
      {
      enabled: Enabled.t option
        [@ocaml.doc
          "Whether the transition between stages is enabled (true) or disabled (false)."];
      lastChangedBy: LastChangedBy.t option
        [@ocaml.doc
          "The ID of the user who last changed the transition state."];
      lastChangedAt: LastChangedAt.t option
        [@ocaml.doc
          "The timestamp when the transition state was last changed."];
      disabledReason: DisabledReason.t option
        [@ocaml.doc
          "The user-specified reason why the transition between two stages of a pipeline was disabled."]}
    let make ?enabled =
      fun ?lastChangedBy ->
        fun ?lastChangedAt ->
          fun ?disabledReason ->
            fun () ->
              { enabled; lastChangedBy; lastChangedAt; disabledReason }
    let to_value x =
      structure_to_value
        [("enabled", (Option.map x.enabled ~f:Enabled.to_value));
        ("lastChangedBy",
          (Option.map x.lastChangedBy ~f:LastChangedBy.to_value));
        ("lastChangedAt",
          (Option.map x.lastChangedAt ~f:LastChangedAt.to_value));
        ("disabledReason",
          (Option.map x.disabledReason ~f:DisabledReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let disabledReason =
        (Option.map ~f:DisabledReason.of_xml)
          (Xml.child xml_arg0 "disabledReason") in
      let lastChangedAt =
        (Option.map ~f:LastChangedAt.of_xml)
          (Xml.child xml_arg0 "lastChangedAt") in
      let lastChangedBy =
        (Option.map ~f:LastChangedBy.of_xml)
          (Xml.child xml_arg0 "lastChangedBy") in
      let enabled =
        (Option.map ~f:Enabled.of_xml) (Xml.child xml_arg0 "enabled") in
      make ?disabledReason ?lastChangedAt ?lastChangedBy ?enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let disabledReason =
        field_map json__ "disabledReason" DisabledReason.of_json in
      let lastChangedAt =
        field_map json__ "lastChangedAt" LastChangedAt.of_json in
      let lastChangedBy =
        field_map json__ "lastChangedBy" LastChangedBy.of_json in
      let enabled = field_map json__ "enabled" Enabled.of_json in
      make ?disabledReason ?lastChangedAt ?lastChangedBy ?enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about the state of transitions between one stage and another stage."]
module ArtifactRevision =
  struct
    type nonrec t =
      {
      name: ArtifactName.t option
        [@ocaml.doc
          "The name of an artifact. This name might be system-generated, such as \"MyApp\", or defined by the user when an action is created."];
      revisionId: Revision.t option
        [@ocaml.doc "The revision ID of the artifact."];
      revisionChangeIdentifier: RevisionChangeIdentifier.t option
        [@ocaml.doc
          "An additional identifier for a revision, such as a commit date or, for artifacts stored in Amazon S3 buckets, the ETag value."];
      revisionSummary: RevisionSummary.t option
        [@ocaml.doc
          "Summary information about the most recent revision of the artifact. For GitHub and CodeCommit repositories, the commit message. For Amazon S3 buckets or actions, the user-provided content of a codepipeline-artifact-revision-summary key specified in the object metadata."];
      created: Timestamp.t option
        [@ocaml.doc
          "The date and time when the most recent revision of the artifact was created, in timestamp format."];
      revisionUrl: Url.t option
        [@ocaml.doc
          "The commit ID for the artifact revision. For artifacts stored in GitHub or CodeCommit repositories, the commit ID is linked to a commit details page."]}
    let make ?name =
      fun ?revisionId ->
        fun ?revisionChangeIdentifier ->
          fun ?revisionSummary ->
            fun ?created ->
              fun ?revisionUrl ->
                fun () ->
                  {
                    name;
                    revisionId;
                    revisionChangeIdentifier;
                    revisionSummary;
                    created;
                    revisionUrl
                  }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:ArtifactName.to_value));
        ("revisionId", (Option.map x.revisionId ~f:Revision.to_value));
        ("revisionChangeIdentifier",
          (Option.map x.revisionChangeIdentifier
             ~f:RevisionChangeIdentifier.to_value));
        ("revisionSummary",
          (Option.map x.revisionSummary ~f:RevisionSummary.to_value));
        ("created", (Option.map x.created ~f:Timestamp.to_value));
        ("revisionUrl", (Option.map x.revisionUrl ~f:Url.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionUrl =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "revisionUrl") in
      let created =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "created") in
      let revisionSummary =
        (Option.map ~f:RevisionSummary.of_xml)
          (Xml.child xml_arg0 "revisionSummary") in
      let revisionChangeIdentifier =
        (Option.map ~f:RevisionChangeIdentifier.of_xml)
          (Xml.child xml_arg0 "revisionChangeIdentifier") in
      let revisionId =
        (Option.map ~f:Revision.of_xml) (Xml.child xml_arg0 "revisionId") in
      let name =
        (Option.map ~f:ArtifactName.of_xml) (Xml.child xml_arg0 "name") in
      make ?revisionUrl ?created ?revisionSummary ?revisionChangeIdentifier
        ?revisionId ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionUrl = field_map json__ "revisionUrl" Url.of_json in
      let created = field_map json__ "created" Timestamp.of_json in
      let revisionSummary =
        field_map json__ "revisionSummary" RevisionSummary.of_json in
      let revisionChangeIdentifier =
        field_map json__ "revisionChangeIdentifier"
          RevisionChangeIdentifier.of_json in
      let revisionId = field_map json__ "revisionId" Revision.of_json in
      let name = field_map json__ "name" ArtifactName.of_json in
      make ?revisionUrl ?created ?revisionSummary ?revisionChangeIdentifier
        ?revisionId ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents revision details of an artifact."]
module ResolvedPipelineVariable =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of a pipeline-level variable."];
      resolvedValue: String_.t option
        [@ocaml.doc "The resolved value of a pipeline-level variable."]}
    let make ?name = fun ?resolvedValue -> fun () -> { name; resolvedValue }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("resolvedValue", (Option.map x.resolvedValue ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resolvedValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resolvedValue") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?resolvedValue ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resolvedValue = field_map json__ "resolvedValue" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?resolvedValue ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A pipeline-level variable used for a pipeline execution."]
module ArtifactStoreMap =
  struct
    type nonrec t = (AWSRegionName.t * ArtifactStore.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types AWSRegionName ArtifactStore"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (AWSRegionName.to_value x) |>
                    (fun x -> (ArtifactStore.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:AWSRegionName.of_string
        ~of_json:ArtifactStore.of_json j
    let to_json v = composed_to_json to_value v
  end
module PipelineStageDeclarationList =
  struct
    type nonrec t = StageDeclaration.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:StageDeclaration.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:StageDeclaration.of_xml)
    let of_json j =
      list_of_json ~kind:"PipelineStageDeclarationList"
        ~of_json:StageDeclaration.of_json j
    let to_json v = composed_to_json to_value v
  end
module PipelineTriggerDeclarationList =
  struct
    type nonrec t = PipelineTriggerDeclaration.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:50); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PipelineTriggerDeclaration.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:PipelineTriggerDeclaration.of_xml)
    let of_json j =
      list_of_json ~kind:"PipelineTriggerDeclarationList"
        ~of_json:PipelineTriggerDeclaration.of_json j
    let to_json v = composed_to_json to_value v
  end
module PipelineVariableDeclarationList =
  struct
    type nonrec t = PipelineVariableDeclaration.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:50); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PipelineVariableDeclaration.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:PipelineVariableDeclaration.of_xml)
    let of_json j =
      list_of_json ~kind:"PipelineVariableDeclarationList"
        ~of_json:PipelineVariableDeclaration.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActionTypeArtifactDetails =
  struct
    type nonrec t =
      {
      minimumCount: MinimumActionTypeArtifactCount.t
        [@ocaml.doc
          "The minimum number of artifacts that can be used with the action type. For example, you should specify a minimum and maximum of zero input artifacts for an action type with a category of source."];
      maximumCount: MaximumActionTypeArtifactCount.t
        [@ocaml.doc
          "The maximum number of artifacts that can be used with the actiontype. For example, you should specify a minimum and maximum of zero input artifacts for an action type with a category of source."]}
    let context_ = "ActionTypeArtifactDetails"
    let make ~minimumCount =
      fun ~maximumCount -> fun () -> { minimumCount; maximumCount }
    let to_value x =
      structure_to_value
        [("minimumCount",
           (Some (MinimumActionTypeArtifactCount.to_value x.minimumCount)));
        ("maximumCount",
          (Some (MaximumActionTypeArtifactCount.to_value x.maximumCount)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maximumCount =
        MaximumActionTypeArtifactCount.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "maximumCount") in
      let minimumCount =
        MinimumActionTypeArtifactCount.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "minimumCount") in
      make ~maximumCount ~minimumCount ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maximumCount =
        field_map_exn json__ "maximumCount"
          MaximumActionTypeArtifactCount.of_json in
      let minimumCount =
        field_map_exn json__ "minimumCount"
          MinimumActionTypeArtifactCount.of_json in
      make ~maximumCount ~minimumCount ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about parameters for artifacts associated with the action type, such as the minimum and maximum artifacts allowed."]
module ActionTypeDescription =
  struct
    type nonrec t = string
    let context_ = "ActionTypeDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (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:"ActionTypeDescription" j
    let to_json = simple_to_json to_value
  end
module ActionTypeExecutor =
  struct
    type nonrec t =
      {
      configuration: ExecutorConfiguration.t
        [@ocaml.doc
          "The action configuration properties for the action type. These properties are specified in the action definition when the action type is created."];
      type_: ExecutorType.t
        [@ocaml.doc
          "The integration model used to create and update the action type, Lambda or JobWorker."];
      policyStatementsTemplate: PolicyStatementsTemplate.t option
        [@ocaml.doc
          "The policy statement that specifies the permissions in the CodePipeline customer account that are needed to successfully run an action. To grant permission to another account, specify the account ID as the Principal, a domain-style identifier defined by the service, for example codepipeline.amazonaws.com. The size of the passed JSON policy document cannot exceed 2048 characters."];
      jobTimeout: JobTimeout.t option
        [@ocaml.doc
          "The timeout in seconds for the job. An action execution can have multiple jobs. This is the timeout for a single job, not the entire action execution."]}
    let context_ = "ActionTypeExecutor"
    let make ?policyStatementsTemplate =
      fun ?jobTimeout ->
        fun ~configuration ->
          fun ~type_ ->
            fun () ->
              { policyStatementsTemplate; jobTimeout; configuration; type_ }
    let to_value x =
      structure_to_value
        [("configuration",
           (Some (ExecutorConfiguration.to_value x.configuration)));
        ("type", (Some (ExecutorType.to_value x.type_)));
        ("policyStatementsTemplate",
          (Option.map x.policyStatementsTemplate
             ~f:PolicyStatementsTemplate.to_value));
        ("jobTimeout", (Option.map x.jobTimeout ~f:JobTimeout.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobTimeout =
        (Option.map ~f:JobTimeout.of_xml) (Xml.child xml_arg0 "jobTimeout") in
      let policyStatementsTemplate =
        (Option.map ~f:PolicyStatementsTemplate.of_xml)
          (Xml.child xml_arg0 "policyStatementsTemplate") in
      let type_ =
        ExecutorType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let configuration =
        ExecutorConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "configuration") in
      make ?jobTimeout ?policyStatementsTemplate ~type_ ~configuration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobTimeout = field_map json__ "jobTimeout" JobTimeout.of_json in
      let policyStatementsTemplate =
        field_map json__ "policyStatementsTemplate"
          PolicyStatementsTemplate.of_json in
      let type_ = field_map_exn json__ "type" ExecutorType.of_json in
      let configuration =
        field_map_exn json__ "configuration" ExecutorConfiguration.of_json in
      make ?jobTimeout ?policyStatementsTemplate ~type_ ~configuration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The action engine, or executor, for an action type created for a provider, where the action is to be used by customers of the provider. The action engine is associated with the model used to create and update the action, such as the Lambda integration model."]
module ActionTypeIdentifier =
  struct
    type nonrec t =
      {
      category: ActionCategory.t
        [@ocaml.doc
          "Defines what kind of action can be taken in the stage, one of the following: Source Build Test Deploy Approval Invoke"];
      owner: ActionTypeOwner.t
        [@ocaml.doc
          "The creator of the action type being called: AWS or ThirdParty."];
      provider: ActionProvider.t
        [@ocaml.doc
          "The provider of the action type being called. The provider name is supplied when the action type is created."];
      version: Version.t
        [@ocaml.doc "A string that describes the action type version."]}
    let context_ = "ActionTypeIdentifier"
    let make ~category =
      fun ~owner ->
        fun ~provider ->
          fun ~version -> fun () -> { category; owner; provider; version }
    let to_value x =
      structure_to_value
        [("category", (Some (ActionCategory.to_value x.category)));
        ("owner", (Some (ActionTypeOwner.to_value x.owner)));
        ("provider", (Some (ActionProvider.to_value x.provider)));
        ("version", (Some (Version.to_value x.version)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        Version.of_xml (Xml.child_exn ~context:context_ xml_arg0 "version") in
      let provider =
        ActionProvider.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "provider") in
      let owner =
        ActionTypeOwner.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "owner") in
      let category =
        ActionCategory.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "category") in
      make ~version ~provider ~owner ~category ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map_exn json__ "version" Version.of_json in
      let provider = field_map_exn json__ "provider" ActionProvider.of_json in
      let owner = field_map_exn json__ "owner" ActionTypeOwner.of_json in
      let category = field_map_exn json__ "category" ActionCategory.of_json in
      make ~version ~provider ~owner ~category ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the category, owner, provider, and version of the action type."]
module ActionTypePermissions =
  struct
    type nonrec t =
      {
      allowedAccounts: AllowedAccounts.t
        [@ocaml.doc
          "A list of Amazon Web Services account IDs with access to use the action type in their pipelines."]}
    let context_ = "ActionTypePermissions"
    let make ~allowedAccounts = fun () -> { allowedAccounts }
    let to_value x =
      structure_to_value
        [("allowedAccounts",
           (Some (AllowedAccounts.to_value x.allowedAccounts)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allowedAccounts =
        AllowedAccounts.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "allowedAccounts") in
      make ~allowedAccounts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allowedAccounts =
        field_map_exn json__ "allowedAccounts" AllowedAccounts.of_json in
      make ~allowedAccounts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details identifying the users with permissions to use the action type."]
module ActionTypeProperties =
  struct
    type nonrec t = ActionTypeProperty.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:10); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ActionTypeProperty.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:ActionTypeProperty.of_xml)
    let of_json j =
      list_of_json ~kind:"ActionTypeProperties"
        ~of_json:ActionTypeProperty.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActionTypeUrls =
  struct
    type nonrec t =
      {
      configurationUrl: Url.t option
        [@ocaml.doc
          "The URL returned to the CodePipeline console that contains a link to the page where customers can configure the external action."];
      entityUrlTemplate: UrlTemplate.t option
        [@ocaml.doc
          "The URL returned to the CodePipeline console that provides a deep link to the resources of the external system, such as a status page. This link is provided as part of the action display in the pipeline."];
      executionUrlTemplate: UrlTemplate.t option
        [@ocaml.doc
          "The link to an execution page for the action type in progress. For example, for a CodeDeploy action, this link is shown on the pipeline view page in the CodePipeline console, and it links to a CodeDeploy status page."];
      revisionUrlTemplate: UrlTemplate.t option
        [@ocaml.doc
          "The URL returned to the CodePipeline console that contains a link to the page where customers can update or change the configuration of the external action."]}
    let make ?configurationUrl =
      fun ?entityUrlTemplate ->
        fun ?executionUrlTemplate ->
          fun ?revisionUrlTemplate ->
            fun () ->
              {
                configurationUrl;
                entityUrlTemplate;
                executionUrlTemplate;
                revisionUrlTemplate
              }
    let to_value x =
      structure_to_value
        [("configurationUrl",
           (Option.map x.configurationUrl ~f:Url.to_value));
        ("entityUrlTemplate",
          (Option.map x.entityUrlTemplate ~f:UrlTemplate.to_value));
        ("executionUrlTemplate",
          (Option.map x.executionUrlTemplate ~f:UrlTemplate.to_value));
        ("revisionUrlTemplate",
          (Option.map x.revisionUrlTemplate ~f:UrlTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionUrlTemplate =
        (Option.map ~f:UrlTemplate.of_xml)
          (Xml.child xml_arg0 "revisionUrlTemplate") in
      let executionUrlTemplate =
        (Option.map ~f:UrlTemplate.of_xml)
          (Xml.child xml_arg0 "executionUrlTemplate") in
      let entityUrlTemplate =
        (Option.map ~f:UrlTemplate.of_xml)
          (Xml.child xml_arg0 "entityUrlTemplate") in
      let configurationUrl =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "configurationUrl") in
      make ?revisionUrlTemplate ?executionUrlTemplate ?entityUrlTemplate
        ?configurationUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionUrlTemplate =
        field_map json__ "revisionUrlTemplate" UrlTemplate.of_json in
      let executionUrlTemplate =
        field_map json__ "executionUrlTemplate" UrlTemplate.of_json in
      let entityUrlTemplate =
        field_map json__ "entityUrlTemplate" UrlTemplate.of_json in
      let configurationUrl = field_map json__ "configurationUrl" Url.of_json in
      make ?revisionUrlTemplate ?executionUrlTemplate ?entityUrlTemplate
        ?configurationUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about URLs for web pages that display to customers as links on the pipeline view, such as an external configuration page for the action type."]
module PipelineVariable =
  struct
    type nonrec t =
      {
      name: PipelineVariableName.t
        [@ocaml.doc "The name of a pipeline-level variable."];
      value: PipelineVariableValue.t
        [@ocaml.doc "The value of a pipeline-level variable."]}
    let context_ = "PipelineVariable"
    let make ~name = fun ~value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("name", (Some (PipelineVariableName.to_value x.name)));
        ("value", (Some (PipelineVariableValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        PipelineVariableValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let name =
        PipelineVariableName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~value ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "value" PipelineVariableValue.of_json in
      let name = field_map_exn json__ "name" PipelineVariableName.of_json in
      make ~value ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A pipeline-level variable used for a pipeline execution."]
module SourceRevisionOverride =
  struct
    type nonrec t =
      {
      actionName: ActionName.t
        [@ocaml.doc
          "The name of the action where the override will be applied."];
      revisionType: SourceRevisionType.t
        [@ocaml.doc
          "The type of source revision, based on the source provider. For example, the revision type for the CodeCommit action provider is the commit ID."];
      revisionValue: Revision.t
        [@ocaml.doc
          "The source revision, or version of your source artifact, with the changes that you want to run in the pipeline execution."]}
    let context_ = "SourceRevisionOverride"
    let make ~actionName =
      fun ~revisionType ->
        fun ~revisionValue ->
          fun () -> { actionName; revisionType; revisionValue }
    let to_value x =
      structure_to_value
        [("actionName", (Some (ActionName.to_value x.actionName)));
        ("revisionType", (Some (SourceRevisionType.to_value x.revisionType)));
        ("revisionValue", (Some (Revision.to_value x.revisionValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionValue =
        Revision.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "revisionValue") in
      let revisionType =
        SourceRevisionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "revisionType") in
      let actionName =
        ActionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "actionName") in
      make ~revisionValue ~revisionType ~actionName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionValue =
        field_map_exn json__ "revisionValue" Revision.of_json in
      let revisionType =
        field_map_exn json__ "revisionType" SourceRevisionType.of_json in
      let actionName = field_map_exn json__ "actionName" ActionName.of_json in
      make ~revisionValue ~revisionType ~actionName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list that allows you to specify, or override, the source revision for a pipeline execution that's being started. A source revision is the version with all the changes to your application code, or source artifact, for the pipeline execution. For the S3_OBJECT_VERSION_ID and S3_OBJECT_KEY types of source revisions, either of the types can be used independently, or they can be used together to override the source with a specific ObjectKey and VersionID."]
module Time =
  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 FailureType =
  struct
    type nonrec t =
      | JobFailed 
      | ConfigurationError 
      | PermissionError 
      | RevisionOutOfSync 
      | RevisionUnavailable 
      | SystemUnavailable 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | JobFailed -> "JobFailed"
      | ConfigurationError -> "ConfigurationError"
      | PermissionError -> "PermissionError"
      | RevisionOutOfSync -> "RevisionOutOfSync"
      | RevisionUnavailable -> "RevisionUnavailable"
      | SystemUnavailable -> "SystemUnavailable"
      | Non_static_id s -> s
    let of_string =
      function
      | "JobFailed" -> JobFailed
      | "ConfigurationError" -> ConfigurationError
      | "PermissionError" -> PermissionError
      | "RevisionOutOfSync" -> RevisionOutOfSync
      | "RevisionUnavailable" -> RevisionUnavailable
      | "SystemUnavailable" -> SystemUnavailable
      | 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 FailureType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FailureType" j)
    let to_json = simple_to_json to_value
  end
module ApprovalStatus =
  struct
    type nonrec t =
      | Approved 
      | Rejected 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Approved -> "Approved"
      | Rejected -> "Rejected"
      | Non_static_id s -> s
    let of_string =
      function
      | "Approved" -> Approved
      | "Rejected" -> Rejected
      | 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 ApprovalStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ApprovalStatus" j)
    let to_json = simple_to_json to_value
  end
module ApprovalSummary =
  struct
    type nonrec t = string
    let context_ = "ApprovalSummary"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ApprovalSummary" j
    let to_json = simple_to_json to_value
  end
module ThirdPartyJob =
  struct
    type nonrec t =
      {
      clientId: ClientId.t option
        [@ocaml.doc
          "The clientToken portion of the clientId and clientToken pair used to verify that the calling entity is allowed access to the job and its details."];
      jobId: JobId.t option
        [@ocaml.doc
          "The identifier used to identify the job in CodePipeline."]}
    let make ?clientId = fun ?jobId -> fun () -> { clientId; jobId }
    let to_value x =
      structure_to_value
        [("clientId", (Option.map x.clientId ~f:ClientId.to_value));
        ("jobId", (Option.map x.jobId ~f:JobId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "jobId") in
      let clientId =
        (Option.map ~f:ClientId.of_xml) (Xml.child xml_arg0 "clientId") in
      make ?jobId ?clientId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map json__ "jobId" JobId.of_json in
      let clientId = field_map json__ "clientId" ClientId.of_json in
      make ?jobId ?clientId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A response to a PollForThirdPartyJobs request returned by CodePipeline when there is a job to be worked on by a partner action."]
module Job =
  struct
    type nonrec t =
      {
      id: JobId.t option
        [@ocaml.doc "The unique system-generated ID of the job."];
      data: JobData.t option [@ocaml.doc "Other data about a job."];
      nonce: Nonce.t option
        [@ocaml.doc
          "A system-generated random number that CodePipeline uses to ensure that the job is being worked on by only one job worker. Use this number in an AcknowledgeJob request."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The ID of the Amazon Web Services account to use when performing the job."]}
    let make ?id =
      fun ?data ->
        fun ?nonce ->
          fun ?accountId -> fun () -> { id; data; nonce; accountId }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:JobId.to_value));
        ("data", (Option.map x.data ~f:JobData.to_value));
        ("nonce", (Option.map x.nonce ~f:Nonce.to_value));
        ("accountId", (Option.map x.accountId ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let nonce = (Option.map ~f:Nonce.of_xml) (Xml.child xml_arg0 "nonce") in
      let data = (Option.map ~f:JobData.of_xml) (Xml.child xml_arg0 "data") in
      let id = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "id") in
      make ?accountId ?nonce ?data ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map json__ "accountId" AccountId.of_json in
      let nonce = field_map json__ "nonce" Nonce.of_json in
      let data = field_map json__ "data" JobData.of_json in
      let id = field_map json__ "id" JobId.of_json in
      make ?accountId ?nonce ?data ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about a job."]
module ActionConfigurationQueryableValue =
  struct
    type nonrec t = string
    let context_ = "ActionConfigurationQueryableValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ActionConfigurationQueryableValue" j
    let to_json = simple_to_json to_value
  end
module ListWebhookItem =
  struct
    type nonrec t =
      {
      definition: WebhookDefinition.t option
        [@ocaml.doc
          "The detail returned for each webhook, such as the webhook authentication type and filter rules."];
      url: WebhookUrl.t option
        [@ocaml.doc
          "A unique URL generated by CodePipeline. When a POST request is made to this URL, the defined pipeline is started as long as the body of the post request satisfies the defined authentication and filtering conditions. Deleting and re-creating a webhook makes the old URL invalid and generates a new one."];
      errorMessage: WebhookErrorMessage.t option
        [@ocaml.doc "The text of the error message about the webhook."];
      errorCode: WebhookErrorCode.t option
        [@ocaml.doc "The number code of the error."];
      lastTriggered: WebhookLastTriggered.t option
        [@ocaml.doc
          "The date and time a webhook was last successfully triggered, in timestamp format."];
      arn: WebhookArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the webhook."];
      tags: TagList.t option
        [@ocaml.doc "Specifies the tags applied to the webhook."]}
    let make ?definition =
      fun ?url ->
        fun ?errorMessage ->
          fun ?errorCode ->
            fun ?lastTriggered ->
              fun ?arn ->
                fun ?tags ->
                  fun () ->
                    {
                      definition;
                      url;
                      errorMessage;
                      errorCode;
                      lastTriggered;
                      arn;
                      tags
                    }
    let to_value x =
      structure_to_value
        [("definition",
           (Option.map x.definition ~f:WebhookDefinition.to_value));
        ("url", (Option.map x.url ~f:WebhookUrl.to_value));
        ("errorMessage",
          (Option.map x.errorMessage ~f:WebhookErrorMessage.to_value));
        ("errorCode", (Option.map x.errorCode ~f:WebhookErrorCode.to_value));
        ("lastTriggered",
          (Option.map x.lastTriggered ~f:WebhookLastTriggered.to_value));
        ("arn", (Option.map x.arn ~f:WebhookArn.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let arn = (Option.map ~f:WebhookArn.of_xml) (Xml.child xml_arg0 "arn") in
      let lastTriggered =
        (Option.map ~f:WebhookLastTriggered.of_xml)
          (Xml.child xml_arg0 "lastTriggered") in
      let errorCode =
        (Option.map ~f:WebhookErrorCode.of_xml)
          (Xml.child xml_arg0 "errorCode") in
      let errorMessage =
        (Option.map ~f:WebhookErrorMessage.of_xml)
          (Xml.child xml_arg0 "errorMessage") in
      let url = (Option.map ~f:WebhookUrl.of_xml) (Xml.child xml_arg0 "url") in
      let definition =
        (Option.map ~f:WebhookDefinition.of_xml)
          (Xml.child xml_arg0 "definition") in
      make ?tags ?arn ?lastTriggered ?errorCode ?errorMessage ?url
        ?definition ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let arn = field_map json__ "arn" WebhookArn.of_json in
      let lastTriggered =
        field_map json__ "lastTriggered" WebhookLastTriggered.of_json in
      let errorCode = field_map json__ "errorCode" WebhookErrorCode.of_json in
      let errorMessage =
        field_map json__ "errorMessage" WebhookErrorMessage.of_json in
      let url = field_map json__ "url" WebhookUrl.of_json in
      let definition =
        field_map json__ "definition" WebhookDefinition.of_json in
      make ?tags ?arn ?lastTriggered ?errorCode ?errorMessage ?url
        ?definition ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The detail returned for each webhook after listing webhooks, such as the webhook URL, the webhook name, and the webhook ARN."]
module RuleType =
  struct
    type nonrec t =
      {
      id: RuleTypeId.t option
        [@ocaml.doc "Represents information about a rule type."];
      settings: RuleTypeSettings.t option
        [@ocaml.doc
          "Returns information about the settings for a rule type."];
      ruleConfigurationProperties: RuleConfigurationPropertyList.t option
        [@ocaml.doc "The configuration properties for the rule type."];
      inputArtifactDetails: ArtifactDetails.t option }
    let make ?id =
      fun ?settings ->
        fun ?ruleConfigurationProperties ->
          fun ?inputArtifactDetails ->
            fun () ->
              {
                id;
                settings;
                ruleConfigurationProperties;
                inputArtifactDetails
              }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:RuleTypeId.to_value));
        ("settings", (Option.map x.settings ~f:RuleTypeSettings.to_value));
        ("ruleConfigurationProperties",
          (Option.map x.ruleConfigurationProperties
             ~f:RuleConfigurationPropertyList.to_value));
        ("inputArtifactDetails",
          (Option.map x.inputArtifactDetails ~f:ArtifactDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputArtifactDetails =
        (Option.map ~f:ArtifactDetails.of_xml)
          (Xml.child xml_arg0 "inputArtifactDetails") in
      let ruleConfigurationProperties =
        (Option.map ~f:RuleConfigurationPropertyList.of_xml)
          (Xml.child xml_arg0 "ruleConfigurationProperties") in
      let settings =
        (Option.map ~f:RuleTypeSettings.of_xml)
          (Xml.child xml_arg0 "settings") in
      let id = (Option.map ~f:RuleTypeId.of_xml) (Xml.child xml_arg0 "id") in
      make ?inputArtifactDetails ?ruleConfigurationProperties ?settings ?id
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputArtifactDetails =
        field_map json__ "inputArtifactDetails" ArtifactDetails.of_json in
      let ruleConfigurationProperties =
        field_map json__ "ruleConfigurationProperties"
          RuleConfigurationPropertyList.of_json in
      let settings = field_map json__ "settings" RuleTypeSettings.of_json in
      let id = field_map json__ "id" RuleTypeId.of_json in
      make ?inputArtifactDetails ?ruleConfigurationProperties ?settings ?id
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The rule type, which is made up of the combined values for category, owner, provider, and version."]
module RuleExecutionDetail =
  struct
    type nonrec t =
      {
      pipelineExecutionId: PipelineExecutionId.t option
        [@ocaml.doc
          "The ID of the pipeline execution in the stage where the rule was run. Use the GetPipelineState action to retrieve the current pipelineExecutionId of the stage."];
      ruleExecutionId: RuleExecutionId.t option
        [@ocaml.doc "The ID of the run for the rule."];
      pipelineVersion: PipelineVersion.t option
        [@ocaml.doc
          "The version number of the pipeline with the stage where the rule was run."];
      stageName: StageName.t option
        [@ocaml.doc "The name of the stage where the rule was run."];
      ruleName: RuleName.t option
        [@ocaml.doc "The name of the rule that was run in the stage."];
      startTime: Timestamp.t option
        [@ocaml.doc "The start time of the rule execution."];
      lastUpdateTime: Timestamp.t option
        [@ocaml.doc
          "The date and time of the last change to the rule execution, in timestamp format."];
      updatedBy: LastUpdatedBy.t option
        [@ocaml.doc
          "The ARN of the user who changed the rule execution details."];
      status: RuleExecutionStatus.t option
        [@ocaml.doc
          "The status of the rule execution. Status categories are InProgress, Succeeded, and Failed."];
      input: RuleExecutionInput.t option
        [@ocaml.doc
          "Input details for the rule execution, such as role ARN, Region, and input artifacts."];
      output: RuleExecutionOutput.t option
        [@ocaml.doc
          "Output details for the rule execution, such as the rule execution result."]}
    let make ?pipelineExecutionId =
      fun ?ruleExecutionId ->
        fun ?pipelineVersion ->
          fun ?stageName ->
            fun ?ruleName ->
              fun ?startTime ->
                fun ?lastUpdateTime ->
                  fun ?updatedBy ->
                    fun ?status ->
                      fun ?input ->
                        fun ?output ->
                          fun () ->
                            {
                              pipelineExecutionId;
                              ruleExecutionId;
                              pipelineVersion;
                              stageName;
                              ruleName;
                              startTime;
                              lastUpdateTime;
                              updatedBy;
                              status;
                              input;
                              output
                            }
    let to_value x =
      structure_to_value
        [("pipelineExecutionId",
           (Option.map x.pipelineExecutionId ~f:PipelineExecutionId.to_value));
        ("ruleExecutionId",
          (Option.map x.ruleExecutionId ~f:RuleExecutionId.to_value));
        ("pipelineVersion",
          (Option.map x.pipelineVersion ~f:PipelineVersion.to_value));
        ("stageName", (Option.map x.stageName ~f:StageName.to_value));
        ("ruleName", (Option.map x.ruleName ~f:RuleName.to_value));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("lastUpdateTime",
          (Option.map x.lastUpdateTime ~f:Timestamp.to_value));
        ("updatedBy", (Option.map x.updatedBy ~f:LastUpdatedBy.to_value));
        ("status", (Option.map x.status ~f:RuleExecutionStatus.to_value));
        ("input", (Option.map x.input ~f:RuleExecutionInput.to_value));
        ("output", (Option.map x.output ~f:RuleExecutionOutput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let output =
        (Option.map ~f:RuleExecutionOutput.of_xml)
          (Xml.child xml_arg0 "output") in
      let input =
        (Option.map ~f:RuleExecutionInput.of_xml)
          (Xml.child xml_arg0 "input") in
      let status =
        (Option.map ~f:RuleExecutionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let updatedBy =
        (Option.map ~f:LastUpdatedBy.of_xml) (Xml.child xml_arg0 "updatedBy") in
      let lastUpdateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdateTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let ruleName =
        (Option.map ~f:RuleName.of_xml) (Xml.child xml_arg0 "ruleName") in
      let stageName =
        (Option.map ~f:StageName.of_xml) (Xml.child xml_arg0 "stageName") in
      let pipelineVersion =
        (Option.map ~f:PipelineVersion.of_xml)
          (Xml.child xml_arg0 "pipelineVersion") in
      let ruleExecutionId =
        (Option.map ~f:RuleExecutionId.of_xml)
          (Xml.child xml_arg0 "ruleExecutionId") in
      let pipelineExecutionId =
        (Option.map ~f:PipelineExecutionId.of_xml)
          (Xml.child xml_arg0 "pipelineExecutionId") in
      make ?output ?input ?status ?updatedBy ?lastUpdateTime ?startTime
        ?ruleName ?stageName ?pipelineVersion ?ruleExecutionId
        ?pipelineExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let output = field_map json__ "output" RuleExecutionOutput.of_json in
      let input = field_map json__ "input" RuleExecutionInput.of_json in
      let status = field_map json__ "status" RuleExecutionStatus.of_json in
      let updatedBy = field_map json__ "updatedBy" LastUpdatedBy.of_json in
      let lastUpdateTime =
        field_map json__ "lastUpdateTime" Timestamp.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let ruleName = field_map json__ "ruleName" RuleName.of_json in
      let stageName = field_map json__ "stageName" StageName.of_json in
      let pipelineVersion =
        field_map json__ "pipelineVersion" PipelineVersion.of_json in
      let ruleExecutionId =
        field_map json__ "ruleExecutionId" RuleExecutionId.of_json in
      let pipelineExecutionId =
        field_map json__ "pipelineExecutionId" PipelineExecutionId.of_json in
      make ?output ?input ?status ?updatedBy ?lastUpdateTime ?startTime
        ?ruleName ?stageName ?pipelineVersion ?ruleExecutionId
        ?pipelineExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of the runs for a rule and the results produced on an artifact as it passes through stages in the pipeline."]
module LatestInPipelineExecutionFilter =
  struct
    type nonrec t =
      {
      pipelineExecutionId: PipelineExecutionId.t
        [@ocaml.doc
          "The execution ID for the latest execution in the pipeline."];
      startTimeRange: StartTimeRange.t
        [@ocaml.doc
          "The start time to filter on for the latest execution in the pipeline. Valid options: All Latest"]}
    let context_ = "LatestInPipelineExecutionFilter"
    let make ~pipelineExecutionId =
      fun ~startTimeRange ->
        fun () -> { pipelineExecutionId; startTimeRange }
    let to_value x =
      structure_to_value
        [("pipelineExecutionId",
           (Some (PipelineExecutionId.to_value x.pipelineExecutionId)));
        ("startTimeRange", (Some (StartTimeRange.to_value x.startTimeRange)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startTimeRange =
        StartTimeRange.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "startTimeRange") in
      let pipelineExecutionId =
        PipelineExecutionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineExecutionId") in
      make ~startTimeRange ~pipelineExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startTimeRange =
        field_map_exn json__ "startTimeRange" StartTimeRange.of_json in
      let pipelineExecutionId =
        field_map_exn json__ "pipelineExecutionId"
          PipelineExecutionId.of_json in
      make ~startTimeRange ~pipelineExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The field that specifies to filter on the latest execution in the pipeline. Filtering on the latest execution is available for executions run on or after February 08, 2024."]
module PipelineSummary =
  struct
    type nonrec t =
      {
      name: PipelineName.t option [@ocaml.doc "The name of the pipeline."];
      version: PipelineVersion.t option
        [@ocaml.doc "The version number of the pipeline."];
      pipelineType: PipelineType.t option
        [@ocaml.doc
          "CodePipeline provides the following pipeline types, which differ in characteristics and price, so that you can tailor your pipeline features and cost to the needs of your applications. V1 type pipelines have a JSON structure that contains standard pipeline, stage, and action-level parameters. V2 type pipelines have the same structure as a V1 type, along with additional parameters for release safety and trigger configuration. Including V2 parameters, such as triggers on Git tags, in the pipeline JSON when creating or updating a pipeline will result in the pipeline having the V2 type of pipeline and the associated costs. For information about pricing for CodePipeline, see Pricing. For information about which type of pipeline to choose, see What type of pipeline is right for me?."];
      executionMode: ExecutionMode.t option
        [@ocaml.doc
          "The method that the pipeline will use to handle multiple executions. The default mode is SUPERSEDED."];
      created: Timestamp.t option
        [@ocaml.doc
          "The date and time the pipeline was created, in timestamp format."];
      updated: Timestamp.t option
        [@ocaml.doc
          "The date and time of the last update to the pipeline, in timestamp format."]}
    let make ?name =
      fun ?version ->
        fun ?pipelineType ->
          fun ?executionMode ->
            fun ?created ->
              fun ?updated ->
                fun () ->
                  {
                    name;
                    version;
                    pipelineType;
                    executionMode;
                    created;
                    updated
                  }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:PipelineName.to_value));
        ("version", (Option.map x.version ~f:PipelineVersion.to_value));
        ("pipelineType",
          (Option.map x.pipelineType ~f:PipelineType.to_value));
        ("executionMode",
          (Option.map x.executionMode ~f:ExecutionMode.to_value));
        ("created", (Option.map x.created ~f:Timestamp.to_value));
        ("updated", (Option.map x.updated ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updated") in
      let created =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "created") in
      let executionMode =
        (Option.map ~f:ExecutionMode.of_xml)
          (Xml.child xml_arg0 "executionMode") in
      let pipelineType =
        (Option.map ~f:PipelineType.of_xml)
          (Xml.child xml_arg0 "pipelineType") in
      let version =
        (Option.map ~f:PipelineVersion.of_xml) (Xml.child xml_arg0 "version") in
      let name =
        (Option.map ~f:PipelineName.of_xml) (Xml.child xml_arg0 "name") in
      make ?updated ?created ?executionMode ?pipelineType ?version ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updated = field_map json__ "updated" Timestamp.of_json in
      let created = field_map json__ "created" Timestamp.of_json in
      let executionMode =
        field_map json__ "executionMode" ExecutionMode.of_json in
      let pipelineType = field_map json__ "pipelineType" PipelineType.of_json in
      let version = field_map json__ "version" PipelineVersion.of_json in
      let name = field_map json__ "name" PipelineName.of_json in
      make ?updated ?created ?executionMode ?pipelineType ?version ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a summary of a pipeline."]
module PipelineExecutionSummary =
  struct
    type nonrec t =
      {
      pipelineExecutionId: PipelineExecutionId.t option
        [@ocaml.doc "The ID of the pipeline execution."];
      status: PipelineExecutionStatus.t option
        [@ocaml.doc
          "The status of the pipeline execution. InProgress: The pipeline execution is currently running. Stopped: The pipeline execution was manually stopped. For more information, see Stopped Executions. Stopping: The pipeline execution received a request to be manually stopped. Depending on the selected stop mode, the execution is either completing or abandoning in-progress actions. For more information, see Stopped Executions. Succeeded: The pipeline execution was completed successfully. Superseded: While this pipeline execution was waiting for the next stage to be completed, a newer pipeline execution advanced and continued through the pipeline instead. For more information, see Superseded Executions. Failed: The pipeline execution was not completed successfully."];
      statusSummary: PipelineExecutionStatusSummary.t option
        [@ocaml.doc "Status summary for the pipeline."];
      startTime: Timestamp.t option
        [@ocaml.doc
          "The date and time when the pipeline execution began, in timestamp format."];
      lastUpdateTime: Timestamp.t option
        [@ocaml.doc
          "The date and time of the last change to the pipeline execution, in timestamp format."];
      sourceRevisions: SourceRevisionList.t option
        [@ocaml.doc
          "A list of the source artifact revisions that initiated a pipeline execution."];
      trigger: ExecutionTrigger.t option
        [@ocaml.doc
          "The interaction or event that started a pipeline execution, such as automated change detection or a StartPipelineExecution API call."];
      stopTrigger: StopExecutionTrigger.t option
        [@ocaml.doc "The interaction that stopped a pipeline execution."];
      executionMode: ExecutionMode.t option
        [@ocaml.doc
          "The method that the pipeline will use to handle multiple executions. The default mode is SUPERSEDED."];
      executionType: ExecutionType.t option
        [@ocaml.doc "Type of the pipeline execution."];
      rollbackMetadata: PipelineRollbackMetadata.t option
        [@ocaml.doc
          "The metadata for the stage execution to be rolled back."]}
    let make ?pipelineExecutionId =
      fun ?status ->
        fun ?statusSummary ->
          fun ?startTime ->
            fun ?lastUpdateTime ->
              fun ?sourceRevisions ->
                fun ?trigger ->
                  fun ?stopTrigger ->
                    fun ?executionMode ->
                      fun ?executionType ->
                        fun ?rollbackMetadata ->
                          fun () ->
                            {
                              pipelineExecutionId;
                              status;
                              statusSummary;
                              startTime;
                              lastUpdateTime;
                              sourceRevisions;
                              trigger;
                              stopTrigger;
                              executionMode;
                              executionType;
                              rollbackMetadata
                            }
    let to_value x =
      structure_to_value
        [("pipelineExecutionId",
           (Option.map x.pipelineExecutionId ~f:PipelineExecutionId.to_value));
        ("status", (Option.map x.status ~f:PipelineExecutionStatus.to_value));
        ("statusSummary",
          (Option.map x.statusSummary
             ~f:PipelineExecutionStatusSummary.to_value));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("lastUpdateTime",
          (Option.map x.lastUpdateTime ~f:Timestamp.to_value));
        ("sourceRevisions",
          (Option.map x.sourceRevisions ~f:SourceRevisionList.to_value));
        ("trigger", (Option.map x.trigger ~f:ExecutionTrigger.to_value));
        ("stopTrigger",
          (Option.map x.stopTrigger ~f:StopExecutionTrigger.to_value));
        ("executionMode",
          (Option.map x.executionMode ~f:ExecutionMode.to_value));
        ("executionType",
          (Option.map x.executionType ~f:ExecutionType.to_value));
        ("rollbackMetadata",
          (Option.map x.rollbackMetadata ~f:PipelineRollbackMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rollbackMetadata =
        (Option.map ~f:PipelineRollbackMetadata.of_xml)
          (Xml.child xml_arg0 "rollbackMetadata") in
      let executionType =
        (Option.map ~f:ExecutionType.of_xml)
          (Xml.child xml_arg0 "executionType") in
      let executionMode =
        (Option.map ~f:ExecutionMode.of_xml)
          (Xml.child xml_arg0 "executionMode") in
      let stopTrigger =
        (Option.map ~f:StopExecutionTrigger.of_xml)
          (Xml.child xml_arg0 "stopTrigger") in
      let trigger =
        (Option.map ~f:ExecutionTrigger.of_xml)
          (Xml.child xml_arg0 "trigger") in
      let sourceRevisions =
        (Option.map ~f:SourceRevisionList.of_xml)
          (Xml.child xml_arg0 "sourceRevisions") in
      let lastUpdateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdateTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let statusSummary =
        (Option.map ~f:PipelineExecutionStatusSummary.of_xml)
          (Xml.child xml_arg0 "statusSummary") in
      let status =
        (Option.map ~f:PipelineExecutionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let pipelineExecutionId =
        (Option.map ~f:PipelineExecutionId.of_xml)
          (Xml.child xml_arg0 "pipelineExecutionId") in
      make ?rollbackMetadata ?executionType ?executionMode ?stopTrigger
        ?trigger ?sourceRevisions ?lastUpdateTime ?startTime ?statusSummary
        ?status ?pipelineExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rollbackMetadata =
        field_map json__ "rollbackMetadata" PipelineRollbackMetadata.of_json in
      let executionType =
        field_map json__ "executionType" ExecutionType.of_json in
      let executionMode =
        field_map json__ "executionMode" ExecutionMode.of_json in
      let stopTrigger =
        field_map json__ "stopTrigger" StopExecutionTrigger.of_json in
      let trigger = field_map json__ "trigger" ExecutionTrigger.of_json in
      let sourceRevisions =
        field_map json__ "sourceRevisions" SourceRevisionList.of_json in
      let lastUpdateTime =
        field_map json__ "lastUpdateTime" Timestamp.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let statusSummary =
        field_map json__ "statusSummary"
          PipelineExecutionStatusSummary.of_json in
      let status = field_map json__ "status" PipelineExecutionStatus.of_json in
      let pipelineExecutionId =
        field_map json__ "pipelineExecutionId" PipelineExecutionId.of_json in
      make ?rollbackMetadata ?executionType ?executionMode ?stopTrigger
        ?trigger ?sourceRevisions ?lastUpdateTime ?startTime ?statusSummary
        ?status ?pipelineExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary information about a pipeline execution."]
module SucceededInStageFilter =
  struct
    type nonrec t =
      {
      stageName: StageName.t option
        [@ocaml.doc
          "The name of the stage for filtering for pipeline executions where the stage was successful in the current pipeline version."]}
    let make ?stageName = fun () -> { stageName }
    let to_value x =
      structure_to_value
        [("stageName", (Option.map x.stageName ~f:StageName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stageName =
        (Option.map ~f:StageName.of_xml) (Xml.child xml_arg0 "stageName") in
      make ?stageName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stageName = field_map json__ "stageName" StageName.of_json in
      make ?stageName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Filter for pipeline executions that have successfully completed the stage in the current pipeline version."]
module DeployActionExecutionTarget =
  struct
    type nonrec t =
      {
      targetId: String_.t option
        [@ocaml.doc "The ID of the target for the deploy action."];
      targetType: String_.t option
        [@ocaml.doc "The type of target for the deploy action."];
      status: String_.t option
        [@ocaml.doc "The status of the deploy action."];
      startTime: Timestamp.t option
        [@ocaml.doc "The start time for the deploy action."];
      endTime: Timestamp.t option
        [@ocaml.doc "The end time for the deploy action."];
      events: DeployTargetEventList.t option
        [@ocaml.doc "The lifecycle events for the deploy action."]}
    let make ?targetId =
      fun ?targetType ->
        fun ?status ->
          fun ?startTime ->
            fun ?endTime ->
              fun ?events ->
                fun () ->
                  { targetId; targetType; status; startTime; endTime; events
                  }
    let to_value x =
      structure_to_value
        [("targetId", (Option.map x.targetId ~f:String_.to_value));
        ("targetType", (Option.map x.targetType ~f:String_.to_value));
        ("status", (Option.map x.status ~f:String_.to_value));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("endTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("events", (Option.map x.events ~f:DeployTargetEventList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let events =
        (Option.map ~f:DeployTargetEventList.of_xml)
          (Xml.child xml_arg0 "events") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let targetType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "targetType") in
      let targetId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "targetId") in
      make ?events ?endTime ?startTime ?status ?targetType ?targetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let events = field_map json__ "events" DeployTargetEventList.of_json in
      let endTime = field_map json__ "endTime" Timestamp.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let status = field_map json__ "status" String_.of_json in
      let targetType = field_map json__ "targetType" String_.of_json in
      let targetId = field_map json__ "targetId" String_.of_json in
      make ?events ?endTime ?startTime ?status ?targetType ?targetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The target for the deploy action."]
module TargetFilter =
  struct
    type nonrec t =
      {
      name: TargetFilterName.t option
        [@ocaml.doc "The name on which to filter."];
      values: TargetFilterValueList.t option
        [@ocaml.doc "The values on which to filter."]}
    let make ?name = fun ?values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:TargetFilterName.to_value));
        ("values", (Option.map x.values ~f:TargetFilterValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:TargetFilterValueList.of_xml)
          (Xml.child xml_arg0 "values") in
      let name =
        (Option.map ~f:TargetFilterName.of_xml) (Xml.child xml_arg0 "name") in
      make ?values ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map json__ "values" TargetFilterValueList.of_json in
      let name = field_map json__ "name" TargetFilterName.of_json in
      make ?values ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Filters the list of targets."]
module ActionType =
  struct
    type nonrec t =
      {
      id: ActionTypeId.t option
        [@ocaml.doc "Represents information about an action type."];
      settings: ActionTypeSettings.t option
        [@ocaml.doc "The settings for the action type."];
      actionConfigurationProperties: ActionConfigurationPropertyList.t option
        [@ocaml.doc "The configuration properties for the action type."];
      inputArtifactDetails: ArtifactDetails.t option
        [@ocaml.doc
          "The details of the input artifact for the action, such as its commit ID."];
      outputArtifactDetails: ArtifactDetails.t option
        [@ocaml.doc
          "The details of the output artifact of the action, such as its commit ID."]}
    let make ?id =
      fun ?settings ->
        fun ?actionConfigurationProperties ->
          fun ?inputArtifactDetails ->
            fun ?outputArtifactDetails ->
              fun () ->
                {
                  id;
                  settings;
                  actionConfigurationProperties;
                  inputArtifactDetails;
                  outputArtifactDetails
                }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ActionTypeId.to_value));
        ("settings", (Option.map x.settings ~f:ActionTypeSettings.to_value));
        ("actionConfigurationProperties",
          (Option.map x.actionConfigurationProperties
             ~f:ActionConfigurationPropertyList.to_value));
        ("inputArtifactDetails",
          (Option.map x.inputArtifactDetails ~f:ArtifactDetails.to_value));
        ("outputArtifactDetails",
          (Option.map x.outputArtifactDetails ~f:ArtifactDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outputArtifactDetails =
        (Option.map ~f:ArtifactDetails.of_xml)
          (Xml.child xml_arg0 "outputArtifactDetails") in
      let inputArtifactDetails =
        (Option.map ~f:ArtifactDetails.of_xml)
          (Xml.child xml_arg0 "inputArtifactDetails") in
      let actionConfigurationProperties =
        (Option.map ~f:ActionConfigurationPropertyList.of_xml)
          (Xml.child xml_arg0 "actionConfigurationProperties") in
      let settings =
        (Option.map ~f:ActionTypeSettings.of_xml)
          (Xml.child xml_arg0 "settings") in
      let id = (Option.map ~f:ActionTypeId.of_xml) (Xml.child xml_arg0 "id") in
      make ?outputArtifactDetails ?inputArtifactDetails
        ?actionConfigurationProperties ?settings ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outputArtifactDetails =
        field_map json__ "outputArtifactDetails" ArtifactDetails.of_json in
      let inputArtifactDetails =
        field_map json__ "inputArtifactDetails" ArtifactDetails.of_json in
      let actionConfigurationProperties =
        field_map json__ "actionConfigurationProperties"
          ActionConfigurationPropertyList.of_json in
      let settings = field_map json__ "settings" ActionTypeSettings.of_json in
      let id = field_map json__ "id" ActionTypeId.of_json in
      make ?outputArtifactDetails ?inputArtifactDetails
        ?actionConfigurationProperties ?settings ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about the details of an action type."]
module ActionExecutionDetail =
  struct
    type nonrec t =
      {
      pipelineExecutionId: PipelineExecutionId.t option
        [@ocaml.doc "The pipeline execution ID for the action execution."];
      actionExecutionId: ActionExecutionId.t option
        [@ocaml.doc "The action execution ID."];
      pipelineVersion: PipelineVersion.t option
        [@ocaml.doc "The version of the pipeline where the action was run."];
      stageName: StageName.t option
        [@ocaml.doc "The name of the stage that contains the action."];
      actionName: ActionName.t option [@ocaml.doc "The name of the action."];
      startTime: Timestamp.t option
        [@ocaml.doc "The start time of the action execution."];
      lastUpdateTime: Timestamp.t option
        [@ocaml.doc "The last update time of the action execution."];
      updatedBy: LastUpdatedBy.t option
        [@ocaml.doc
          "The ARN of the user who changed the pipeline execution details."];
      status: ActionExecutionStatus.t option
        [@ocaml.doc
          "The status of the action execution. Status categories are InProgress, Succeeded, and Failed."];
      input: ActionExecutionInput.t option
        [@ocaml.doc
          "Input details for the action execution, such as role ARN, Region, and input artifacts."];
      output: ActionExecutionOutput.t option
        [@ocaml.doc
          "Output details for the action execution, such as the action execution result."]}
    let make ?pipelineExecutionId =
      fun ?actionExecutionId ->
        fun ?pipelineVersion ->
          fun ?stageName ->
            fun ?actionName ->
              fun ?startTime ->
                fun ?lastUpdateTime ->
                  fun ?updatedBy ->
                    fun ?status ->
                      fun ?input ->
                        fun ?output ->
                          fun () ->
                            {
                              pipelineExecutionId;
                              actionExecutionId;
                              pipelineVersion;
                              stageName;
                              actionName;
                              startTime;
                              lastUpdateTime;
                              updatedBy;
                              status;
                              input;
                              output
                            }
    let to_value x =
      structure_to_value
        [("pipelineExecutionId",
           (Option.map x.pipelineExecutionId ~f:PipelineExecutionId.to_value));
        ("actionExecutionId",
          (Option.map x.actionExecutionId ~f:ActionExecutionId.to_value));
        ("pipelineVersion",
          (Option.map x.pipelineVersion ~f:PipelineVersion.to_value));
        ("stageName", (Option.map x.stageName ~f:StageName.to_value));
        ("actionName", (Option.map x.actionName ~f:ActionName.to_value));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("lastUpdateTime",
          (Option.map x.lastUpdateTime ~f:Timestamp.to_value));
        ("updatedBy", (Option.map x.updatedBy ~f:LastUpdatedBy.to_value));
        ("status", (Option.map x.status ~f:ActionExecutionStatus.to_value));
        ("input", (Option.map x.input ~f:ActionExecutionInput.to_value));
        ("output", (Option.map x.output ~f:ActionExecutionOutput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let output =
        (Option.map ~f:ActionExecutionOutput.of_xml)
          (Xml.child xml_arg0 "output") in
      let input =
        (Option.map ~f:ActionExecutionInput.of_xml)
          (Xml.child xml_arg0 "input") in
      let status =
        (Option.map ~f:ActionExecutionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let updatedBy =
        (Option.map ~f:LastUpdatedBy.of_xml) (Xml.child xml_arg0 "updatedBy") in
      let lastUpdateTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdateTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let actionName =
        (Option.map ~f:ActionName.of_xml) (Xml.child xml_arg0 "actionName") in
      let stageName =
        (Option.map ~f:StageName.of_xml) (Xml.child xml_arg0 "stageName") in
      let pipelineVersion =
        (Option.map ~f:PipelineVersion.of_xml)
          (Xml.child xml_arg0 "pipelineVersion") in
      let actionExecutionId =
        (Option.map ~f:ActionExecutionId.of_xml)
          (Xml.child xml_arg0 "actionExecutionId") in
      let pipelineExecutionId =
        (Option.map ~f:PipelineExecutionId.of_xml)
          (Xml.child xml_arg0 "pipelineExecutionId") in
      make ?output ?input ?status ?updatedBy ?lastUpdateTime ?startTime
        ?actionName ?stageName ?pipelineVersion ?actionExecutionId
        ?pipelineExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let output = field_map json__ "output" ActionExecutionOutput.of_json in
      let input = field_map json__ "input" ActionExecutionInput.of_json in
      let status = field_map json__ "status" ActionExecutionStatus.of_json in
      let updatedBy = field_map json__ "updatedBy" LastUpdatedBy.of_json in
      let lastUpdateTime =
        field_map json__ "lastUpdateTime" Timestamp.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let actionName = field_map json__ "actionName" ActionName.of_json in
      let stageName = field_map json__ "stageName" StageName.of_json in
      let pipelineVersion =
        field_map json__ "pipelineVersion" PipelineVersion.of_json in
      let actionExecutionId =
        field_map json__ "actionExecutionId" ActionExecutionId.of_json in
      let pipelineExecutionId =
        field_map json__ "pipelineExecutionId" PipelineExecutionId.of_json in
      make ?output ?input ?status ?updatedBy ?lastUpdateTime ?startTime
        ?actionName ?stageName ?pipelineVersion ?actionExecutionId
        ?pipelineExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about an execution of an action, including the action execution ID, and the name, version, and timing of the action."]
module ThirdPartyJobData =
  struct
    type nonrec t =
      {
      actionTypeId: ActionTypeId.t option
        [@ocaml.doc "Represents information about an action type."];
      actionConfiguration: ActionConfiguration.t option
        [@ocaml.doc "Represents information about an action configuration."];
      pipelineContext: PipelineContext.t option
        [@ocaml.doc
          "Represents information about a pipeline to a job worker. Does not include pipelineArn and pipelineExecutionId for ThirdParty jobs."];
      inputArtifacts: ArtifactList.t option
        [@ocaml.doc
          "The name of the artifact that is worked on by the action, if any. This name might be system-generated, such as \"MyApp\", or it might be defined by the user when the action is created. The input artifact name must match the name of an output artifact generated by an action in an earlier action or stage of the pipeline."];
      outputArtifacts: ArtifactList.t option
        [@ocaml.doc
          "The name of the artifact that is the result of the action, if any. This name might be system-generated, such as \"MyBuiltApp\", or it might be defined by the user when the action is created."];
      artifactCredentials: AWSSessionCredentials.t option
        [@ocaml.doc
          "Represents an Amazon Web Services session credentials object. These credentials are temporary credentials that are issued by Amazon Web Services Secure Token Service (STS). They can be used to access input and output artifacts in the S3 bucket used to store artifact for the pipeline in CodePipeline."];
      continuationToken: ContinuationToken.t option
        [@ocaml.doc
          "A system-generated token, such as a CodeDeploy deployment ID, that a job requires to continue the job asynchronously."];
      encryptionKey: EncryptionKey.t option
        [@ocaml.doc
          "The encryption key used to encrypt and decrypt data in the artifact store for the pipeline, such as an Amazon Web Services Key Management Service (Amazon Web Services KMS) key. This is optional and might not be present."]}
    let make ?actionTypeId =
      fun ?actionConfiguration ->
        fun ?pipelineContext ->
          fun ?inputArtifacts ->
            fun ?outputArtifacts ->
              fun ?artifactCredentials ->
                fun ?continuationToken ->
                  fun ?encryptionKey ->
                    fun () ->
                      {
                        actionTypeId;
                        actionConfiguration;
                        pipelineContext;
                        inputArtifacts;
                        outputArtifacts;
                        artifactCredentials;
                        continuationToken;
                        encryptionKey
                      }
    let to_value x =
      structure_to_value
        [("actionTypeId",
           (Option.map x.actionTypeId ~f:ActionTypeId.to_value));
        ("actionConfiguration",
          (Option.map x.actionConfiguration ~f:ActionConfiguration.to_value));
        ("pipelineContext",
          (Option.map x.pipelineContext ~f:PipelineContext.to_value));
        ("inputArtifacts",
          (Option.map x.inputArtifacts ~f:ArtifactList.to_value));
        ("outputArtifacts",
          (Option.map x.outputArtifacts ~f:ArtifactList.to_value));
        ("artifactCredentials",
          (Option.map x.artifactCredentials ~f:AWSSessionCredentials.to_value));
        ("continuationToken",
          (Option.map x.continuationToken ~f:ContinuationToken.to_value));
        ("encryptionKey",
          (Option.map x.encryptionKey ~f:EncryptionKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionKey =
        (Option.map ~f:EncryptionKey.of_xml)
          (Xml.child xml_arg0 "encryptionKey") in
      let continuationToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "continuationToken") in
      let artifactCredentials =
        (Option.map ~f:AWSSessionCredentials.of_xml)
          (Xml.child xml_arg0 "artifactCredentials") in
      let outputArtifacts =
        (Option.map ~f:ArtifactList.of_xml)
          (Xml.child xml_arg0 "outputArtifacts") in
      let inputArtifacts =
        (Option.map ~f:ArtifactList.of_xml)
          (Xml.child xml_arg0 "inputArtifacts") in
      let pipelineContext =
        (Option.map ~f:PipelineContext.of_xml)
          (Xml.child xml_arg0 "pipelineContext") in
      let actionConfiguration =
        (Option.map ~f:ActionConfiguration.of_xml)
          (Xml.child xml_arg0 "actionConfiguration") in
      let actionTypeId =
        (Option.map ~f:ActionTypeId.of_xml)
          (Xml.child xml_arg0 "actionTypeId") in
      make ?encryptionKey ?continuationToken ?artifactCredentials
        ?outputArtifacts ?inputArtifacts ?pipelineContext
        ?actionConfiguration ?actionTypeId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionKey =
        field_map json__ "encryptionKey" EncryptionKey.of_json in
      let continuationToken =
        field_map json__ "continuationToken" ContinuationToken.of_json in
      let artifactCredentials =
        field_map json__ "artifactCredentials" AWSSessionCredentials.of_json in
      let outputArtifacts =
        field_map json__ "outputArtifacts" ArtifactList.of_json in
      let inputArtifacts =
        field_map json__ "inputArtifacts" ArtifactList.of_json in
      let pipelineContext =
        field_map json__ "pipelineContext" PipelineContext.of_json in
      let actionConfiguration =
        field_map json__ "actionConfiguration" ActionConfiguration.of_json in
      let actionTypeId = field_map json__ "actionTypeId" ActionTypeId.of_json in
      make ?encryptionKey ?continuationToken ?artifactCredentials
        ?outputArtifacts ?inputArtifacts ?pipelineContext
        ?actionConfiguration ?actionTypeId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about the job data for a partner action."]
module ThirdPartyJobId =
  struct
    type nonrec t = string
    let context_ = "ThirdPartyJobId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (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:"ThirdPartyJobId" j
    let to_json = simple_to_json to_value
  end
module StageState =
  struct
    type nonrec t =
      {
      stageName: StageName.t option [@ocaml.doc "The name of the stage."];
      inboundExecution: StageExecution.t option ;
      inboundExecutions: StageExecutionList.t option
        [@ocaml.doc "The inbound executions for a stage."];
      inboundTransitionState: TransitionState.t option
        [@ocaml.doc
          "The state of the inbound transition, which is either enabled or disabled."];
      actionStates: ActionStateList.t option
        [@ocaml.doc "The state of the stage."];
      latestExecution: StageExecution.t option
        [@ocaml.doc
          "Information about the latest execution in the stage, including its ID and status."];
      beforeEntryConditionState: StageConditionState.t option
        [@ocaml.doc "The state of the entry conditions for a stage."];
      onSuccessConditionState: StageConditionState.t option
        [@ocaml.doc "The state of the success conditions for a stage."];
      onFailureConditionState: StageConditionState.t option
        [@ocaml.doc "The state of the failure conditions for a stage."];
      retryStageMetadata: RetryStageMetadata.t option
        [@ocaml.doc
          "he details of a specific automatic retry on stage failure, including the attempt number and trigger."]}
    let make ?stageName =
      fun ?inboundExecution ->
        fun ?inboundExecutions ->
          fun ?inboundTransitionState ->
            fun ?actionStates ->
              fun ?latestExecution ->
                fun ?beforeEntryConditionState ->
                  fun ?onSuccessConditionState ->
                    fun ?onFailureConditionState ->
                      fun ?retryStageMetadata ->
                        fun () ->
                          {
                            stageName;
                            inboundExecution;
                            inboundExecutions;
                            inboundTransitionState;
                            actionStates;
                            latestExecution;
                            beforeEntryConditionState;
                            onSuccessConditionState;
                            onFailureConditionState;
                            retryStageMetadata
                          }
    let to_value x =
      structure_to_value
        [("stageName", (Option.map x.stageName ~f:StageName.to_value));
        ("inboundExecution",
          (Option.map x.inboundExecution ~f:StageExecution.to_value));
        ("inboundExecutions",
          (Option.map x.inboundExecutions ~f:StageExecutionList.to_value));
        ("inboundTransitionState",
          (Option.map x.inboundTransitionState ~f:TransitionState.to_value));
        ("actionStates",
          (Option.map x.actionStates ~f:ActionStateList.to_value));
        ("latestExecution",
          (Option.map x.latestExecution ~f:StageExecution.to_value));
        ("beforeEntryConditionState",
          (Option.map x.beforeEntryConditionState
             ~f:StageConditionState.to_value));
        ("onSuccessConditionState",
          (Option.map x.onSuccessConditionState
             ~f:StageConditionState.to_value));
        ("onFailureConditionState",
          (Option.map x.onFailureConditionState
             ~f:StageConditionState.to_value));
        ("retryStageMetadata",
          (Option.map x.retryStageMetadata ~f:RetryStageMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryStageMetadata =
        (Option.map ~f:RetryStageMetadata.of_xml)
          (Xml.child xml_arg0 "retryStageMetadata") in
      let onFailureConditionState =
        (Option.map ~f:StageConditionState.of_xml)
          (Xml.child xml_arg0 "onFailureConditionState") in
      let onSuccessConditionState =
        (Option.map ~f:StageConditionState.of_xml)
          (Xml.child xml_arg0 "onSuccessConditionState") in
      let beforeEntryConditionState =
        (Option.map ~f:StageConditionState.of_xml)
          (Xml.child xml_arg0 "beforeEntryConditionState") in
      let latestExecution =
        (Option.map ~f:StageExecution.of_xml)
          (Xml.child xml_arg0 "latestExecution") in
      let actionStates =
        (Option.map ~f:ActionStateList.of_xml)
          (Xml.child xml_arg0 "actionStates") in
      let inboundTransitionState =
        (Option.map ~f:TransitionState.of_xml)
          (Xml.child xml_arg0 "inboundTransitionState") in
      let inboundExecutions =
        (Option.map ~f:StageExecutionList.of_xml)
          (Xml.child xml_arg0 "inboundExecutions") in
      let inboundExecution =
        (Option.map ~f:StageExecution.of_xml)
          (Xml.child xml_arg0 "inboundExecution") in
      let stageName =
        (Option.map ~f:StageName.of_xml) (Xml.child xml_arg0 "stageName") in
      make ?retryStageMetadata ?onFailureConditionState
        ?onSuccessConditionState ?beforeEntryConditionState ?latestExecution
        ?actionStates ?inboundTransitionState ?inboundExecutions
        ?inboundExecution ?stageName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryStageMetadata =
        field_map json__ "retryStageMetadata" RetryStageMetadata.of_json in
      let onFailureConditionState =
        field_map json__ "onFailureConditionState"
          StageConditionState.of_json in
      let onSuccessConditionState =
        field_map json__ "onSuccessConditionState"
          StageConditionState.of_json in
      let beforeEntryConditionState =
        field_map json__ "beforeEntryConditionState"
          StageConditionState.of_json in
      let latestExecution =
        field_map json__ "latestExecution" StageExecution.of_json in
      let actionStates =
        field_map json__ "actionStates" ActionStateList.of_json in
      let inboundTransitionState =
        field_map json__ "inboundTransitionState" TransitionState.of_json in
      let inboundExecutions =
        field_map json__ "inboundExecutions" StageExecutionList.of_json in
      let inboundExecution =
        field_map json__ "inboundExecution" StageExecution.of_json in
      let stageName = field_map json__ "stageName" StageName.of_json in
      make ?retryStageMetadata ?onFailureConditionState
        ?onSuccessConditionState ?beforeEntryConditionState ?latestExecution
        ?actionStates ?inboundTransitionState ?inboundExecutions
        ?inboundExecution ?stageName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about the state of the stage."]
module ArtifactRevisionList =
  struct
    type nonrec t = ArtifactRevision.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:ArtifactRevision.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:ArtifactRevision.of_xml)
    let of_json j =
      list_of_json ~kind:"ArtifactRevisionList"
        ~of_json:ArtifactRevision.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResolvedPipelineVariableList =
  struct
    type nonrec t = ResolvedPipelineVariable.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:ResolvedPipelineVariable.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:ResolvedPipelineVariable.of_xml)
    let of_json j =
      list_of_json ~kind:"ResolvedPipelineVariableList"
        ~of_json:ResolvedPipelineVariable.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidActionDeclarationException =
  struct
    type nonrec t = unit
    let make () = ()
    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 action declaration was specified in an invalid format."]
module InvalidBlockerDeclarationException =
  struct
    type nonrec t = unit
    let make () = ()
    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 "Reserved for future use."]
module InvalidStageDeclarationException =
  struct
    type nonrec t = unit
    let make () = ()
    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 stage declaration was specified in an invalid format."]
module InvalidStructureException =
  struct
    type nonrec t = unit
    let make () = ()
    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 structure was specified in an invalid format."]
module LimitExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    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 number of pipelines associated with the Amazon Web Services account has exceeded the limit allowed for the account."]
module PipelineDeclaration =
  struct
    type nonrec t =
      {
      name: PipelineName.t [@ocaml.doc "The name of the pipeline."];
      roleArn: RoleArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for CodePipeline to use to either perform actions with no actionRoleArn, or to use to assume roles for actions with an actionRoleArn."];
      artifactStore: ArtifactStore.t option
        [@ocaml.doc
          "Represents information about the S3 bucket where artifacts are stored for the pipeline. You must include either artifactStore or artifactStores in your pipeline, but you cannot use both. If you create a cross-region action in your pipeline, you must use artifactStores."];
      artifactStores: ArtifactStoreMap.t option
        [@ocaml.doc
          "A mapping of artifactStore objects and their corresponding Amazon Web Services Regions. There must be an artifact store for the pipeline Region and for each cross-region action in the pipeline. You must include either artifactStore or artifactStores in your pipeline, but you cannot use both. If you create a cross-region action in your pipeline, you must use artifactStores."];
      stages: PipelineStageDeclarationList.t
        [@ocaml.doc "The stage in which to perform the action."];
      version: PipelineVersion.t option
        [@ocaml.doc
          "The version number of the pipeline. A new pipeline always has a version number of 1. This number is incremented when a pipeline is updated."];
      executionMode: ExecutionMode.t option
        [@ocaml.doc
          "The method that the pipeline will use to handle multiple executions. The default mode is SUPERSEDED."];
      pipelineType: PipelineType.t option
        [@ocaml.doc
          "CodePipeline provides the following pipeline types, which differ in characteristics and price, so that you can tailor your pipeline features and cost to the needs of your applications. V1 type pipelines have a JSON structure that contains standard pipeline, stage, and action-level parameters. V2 type pipelines have the same structure as a V1 type, along with additional parameters for release safety and trigger configuration. Including V2 parameters, such as triggers on Git tags, in the pipeline JSON when creating or updating a pipeline will result in the pipeline having the V2 type of pipeline and the associated costs. For information about pricing for CodePipeline, see Pricing. For information about which type of pipeline to choose, see What type of pipeline is right for me?."];
      variables: PipelineVariableDeclarationList.t option
        [@ocaml.doc
          "A list that defines the pipeline variables for a pipeline resource. Variable names can have alphanumeric and underscore characters, and the values must match \\[A-Za-z0-9\\@\\-_\\]+."];
      triggers: PipelineTriggerDeclarationList.t option
        [@ocaml.doc
          "The trigger configuration specifying a type of event, such as Git tags, that starts the pipeline. When a trigger configuration is specified, default change detection for repository and branch commits is disabled."]}
    let context_ = "PipelineDeclaration"
    let make ?artifactStore =
      fun ?artifactStores ->
        fun ?version ->
          fun ?executionMode ->
            fun ?pipelineType ->
              fun ?variables ->
                fun ?triggers ->
                  fun ~name ->
                    fun ~roleArn ->
                      fun ~stages ->
                        fun () ->
                          {
                            artifactStore;
                            artifactStores;
                            version;
                            executionMode;
                            pipelineType;
                            variables;
                            triggers;
                            name;
                            roleArn;
                            stages
                          }
    let to_value x =
      structure_to_value
        [("name", (Some (PipelineName.to_value x.name)));
        ("roleArn", (Some (RoleArn.to_value x.roleArn)));
        ("artifactStore",
          (Option.map x.artifactStore ~f:ArtifactStore.to_value));
        ("artifactStores",
          (Option.map x.artifactStores ~f:ArtifactStoreMap.to_value));
        ("stages", (Some (PipelineStageDeclarationList.to_value x.stages)));
        ("version", (Option.map x.version ~f:PipelineVersion.to_value));
        ("executionMode",
          (Option.map x.executionMode ~f:ExecutionMode.to_value));
        ("pipelineType",
          (Option.map x.pipelineType ~f:PipelineType.to_value));
        ("variables",
          (Option.map x.variables ~f:PipelineVariableDeclarationList.to_value));
        ("triggers",
          (Option.map x.triggers ~f:PipelineTriggerDeclarationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let triggers =
        (Option.map ~f:PipelineTriggerDeclarationList.of_xml)
          (Xml.child xml_arg0 "triggers") in
      let variables =
        (Option.map ~f:PipelineVariableDeclarationList.of_xml)
          (Xml.child xml_arg0 "variables") in
      let pipelineType =
        (Option.map ~f:PipelineType.of_xml)
          (Xml.child xml_arg0 "pipelineType") in
      let executionMode =
        (Option.map ~f:ExecutionMode.of_xml)
          (Xml.child xml_arg0 "executionMode") in
      let version =
        (Option.map ~f:PipelineVersion.of_xml) (Xml.child xml_arg0 "version") in
      let stages =
        PipelineStageDeclarationList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "stages") in
      let artifactStores =
        (Option.map ~f:ArtifactStoreMap.of_xml)
          (Xml.child xml_arg0 "artifactStores") in
      let artifactStore =
        (Option.map ~f:ArtifactStore.of_xml)
          (Xml.child xml_arg0 "artifactStore") in
      let roleArn =
        RoleArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "roleArn") in
      let name =
        PipelineName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?triggers ?variables ?pipelineType ?executionMode ?version ~stages
        ?artifactStores ?artifactStore ~roleArn ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let triggers =
        field_map json__ "triggers" PipelineTriggerDeclarationList.of_json in
      let variables =
        field_map json__ "variables" PipelineVariableDeclarationList.of_json in
      let pipelineType = field_map json__ "pipelineType" PipelineType.of_json in
      let executionMode =
        field_map json__ "executionMode" ExecutionMode.of_json in
      let version = field_map json__ "version" PipelineVersion.of_json in
      let stages =
        field_map_exn json__ "stages" PipelineStageDeclarationList.of_json in
      let artifactStores =
        field_map json__ "artifactStores" ArtifactStoreMap.of_json in
      let artifactStore =
        field_map json__ "artifactStore" ArtifactStore.of_json in
      let roleArn = field_map_exn json__ "roleArn" RoleArn.of_json in
      let name = field_map_exn json__ "name" PipelineName.of_json in
      make ?triggers ?variables ?pipelineType ?executionMode ?version ~stages
        ?artifactStores ?artifactStore ~roleArn ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the structure of actions and stages to be performed in the pipeline."]
module ValidationException =
  struct
    type nonrec t = unit
    let make () = ()
    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 validation was specified in an invalid format."]
module ActionTypeDeclaration =
  struct
    type nonrec t =
      {
      description: ActionTypeDescription.t option
        [@ocaml.doc "The description for the action type to be updated."];
      executor: ActionTypeExecutor.t
        [@ocaml.doc
          "Information about the executor for an action type that was created with any supported integration model."];
      id: ActionTypeIdentifier.t
        [@ocaml.doc
          "The action category, owner, provider, and version of the action type to be updated."];
      inputArtifactDetails: ActionTypeArtifactDetails.t
        [@ocaml.doc
          "Details for the artifacts, such as application files, to be worked on by the action. For example, the minimum and maximum number of input artifacts allowed."];
      outputArtifactDetails: ActionTypeArtifactDetails.t
        [@ocaml.doc
          "Details for the output artifacts, such as a built application, that are the result of the action. For example, the minimum and maximum number of output artifacts allowed."];
      permissions: ActionTypePermissions.t option
        [@ocaml.doc
          "Details identifying the accounts with permissions to use the action type."];
      properties: ActionTypeProperties.t option
        [@ocaml.doc "The properties of the action type to be updated."];
      urls: ActionTypeUrls.t option
        [@ocaml.doc
          "The links associated with the action type to be updated."]}
    let context_ = "ActionTypeDeclaration"
    let make ?description =
      fun ?permissions ->
        fun ?properties ->
          fun ?urls ->
            fun ~executor ->
              fun ~id ->
                fun ~inputArtifactDetails ->
                  fun ~outputArtifactDetails ->
                    fun () ->
                      {
                        description;
                        permissions;
                        properties;
                        urls;
                        executor;
                        id;
                        inputArtifactDetails;
                        outputArtifactDetails
                      }
    let to_value x =
      structure_to_value
        [("description",
           (Option.map x.description ~f:ActionTypeDescription.to_value));
        ("executor", (Some (ActionTypeExecutor.to_value x.executor)));
        ("id", (Some (ActionTypeIdentifier.to_value x.id)));
        ("inputArtifactDetails",
          (Some (ActionTypeArtifactDetails.to_value x.inputArtifactDetails)));
        ("outputArtifactDetails",
          (Some (ActionTypeArtifactDetails.to_value x.outputArtifactDetails)));
        ("permissions",
          (Option.map x.permissions ~f:ActionTypePermissions.to_value));
        ("properties",
          (Option.map x.properties ~f:ActionTypeProperties.to_value));
        ("urls", (Option.map x.urls ~f:ActionTypeUrls.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let urls =
        (Option.map ~f:ActionTypeUrls.of_xml) (Xml.child xml_arg0 "urls") in
      let properties =
        (Option.map ~f:ActionTypeProperties.of_xml)
          (Xml.child xml_arg0 "properties") in
      let permissions =
        (Option.map ~f:ActionTypePermissions.of_xml)
          (Xml.child xml_arg0 "permissions") in
      let outputArtifactDetails =
        ActionTypeArtifactDetails.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "outputArtifactDetails") in
      let inputArtifactDetails =
        ActionTypeArtifactDetails.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "inputArtifactDetails") in
      let id =
        ActionTypeIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let executor =
        ActionTypeExecutor.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "executor") in
      let description =
        (Option.map ~f:ActionTypeDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      make ?urls ?properties ?permissions ~outputArtifactDetails
        ~inputArtifactDetails ~id ~executor ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let urls = field_map json__ "urls" ActionTypeUrls.of_json in
      let properties =
        field_map json__ "properties" ActionTypeProperties.of_json in
      let permissions =
        field_map json__ "permissions" ActionTypePermissions.of_json in
      let outputArtifactDetails =
        field_map_exn json__ "outputArtifactDetails"
          ActionTypeArtifactDetails.of_json in
      let inputArtifactDetails =
        field_map_exn json__ "inputArtifactDetails"
          ActionTypeArtifactDetails.of_json in
      let id = field_map_exn json__ "id" ActionTypeIdentifier.of_json in
      let executor =
        field_map_exn json__ "executor" ActionTypeExecutor.of_json in
      let description =
        field_map json__ "description" ActionTypeDescription.of_json in
      make ?urls ?properties ?permissions ~outputArtifactDetails
        ~inputArtifactDetails ~id ~executor ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The parameters for the action type definition that are provided when the action type is created or updated."]
module ConcurrentModificationException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Unable to modify the tag due to a simultaneous update request."]
module InvalidArnException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource ARN is invalid."]
module InvalidTagsException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource tags are invalid."]
module ResourceNotFoundException =
  struct
    type nonrec t = unit
    let make () = ()
    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 resource was specified in an invalid format."]
module ResourceArn =
  struct
    type nonrec t = string
    let context_ = "ResourceArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws(-[\\w]+)*:codepipeline:.+:[0-9]{12}:.+");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceArn" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.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: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 TooManyTagsException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The tags limit for a resource has been exceeded."]
module ConflictException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Your request cannot be handled because the pipeline is busy handling ongoing activities. Try again later."]
module DuplicatedStopRequestException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The pipeline execution is already in a Stopping state. If you already chose to stop and wait, you cannot make that request again. You can choose to stop and abandon now, but be aware that this option can lead to failed tasks or out of sequence tasks. If you already chose to stop and abandon, you cannot make that request again."]
module PipelineExecutionNotStoppableException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Unable to stop the pipeline execution. The execution might already be in a Stopped state, or it might no longer be in progress."]
module PipelineNotFoundException =
  struct
    type nonrec t = unit
    let make () = ()
    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 pipeline was specified in an invalid format or cannot be found."]
module ConcurrentPipelineExecutionsLimitExceededException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The pipeline has reached the limit for concurrent pipeline executions."]
module ClientRequestToken =
  struct
    type nonrec t = string
    let context_ = "ClientRequestToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9-]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientRequestToken" j
    let to_json = simple_to_json to_value
  end
module PipelineVariableList =
  struct
    type nonrec t = PipelineVariable.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:PipelineVariable.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:PipelineVariable.of_xml)
    let of_json j =
      list_of_json ~kind:"PipelineVariableList"
        ~of_json:PipelineVariable.of_json j
    let to_json v = composed_to_json to_value v
  end
module SourceRevisionOverrideList =
  struct
    type nonrec t = SourceRevisionOverride.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SourceRevisionOverride.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:SourceRevisionOverride.of_xml)
    let of_json j =
      list_of_json ~kind:"SourceRevisionOverrideList"
        ~of_json:SourceRevisionOverride.of_json j
    let to_json v = composed_to_json to_value v
  end
module PipelineExecutionNotFoundException =
  struct
    type nonrec t = unit
    let make () = ()
    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 pipeline execution was specified in an invalid format or cannot be found, or an execution ID does not belong to the specified pipeline."]
module PipelineExecutionOutdatedException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified pipeline execution is outdated and cannot be used as a target pipeline execution for rollback."]
module StageNotFoundException =
  struct
    type nonrec t = unit
    let make () = ()
    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 stage was specified in an invalid format or cannot be found."]
module UnableToRollbackStageException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Unable to roll back the stage. The cause might be if the pipeline version has changed since the target pipeline execution was deployed, the stage is currently running, or an incorrect target pipeline execution ID was provided."]
module NotLatestPipelineExecutionException =
  struct
    type nonrec t = unit
    let make () = ()
    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 stage has failed in a later run of the pipeline and the pipelineExecutionId associated with the request is out of date."]
module StageNotRetryableException =
  struct
    type nonrec t = unit
    let make () = ()
    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
       "Unable to retry. The pipeline structure or stage state might have changed while actions awaited retry, or the stage contains no failed actions."]
module WebhookNotFoundException =
  struct
    type nonrec t = unit
    let make () = ()
    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 specified webhook was entered in an invalid format or cannot be found."]
module InvalidWebhookAuthenticationParametersException =
  struct
    type nonrec t = unit
    let make () = ()
    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 specified authentication type is in an invalid format."]
module InvalidWebhookFilterPatternException =
  struct
    type nonrec t = unit
    let make () = ()
    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 specified event filter rule is in an invalid format."]
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module CurrentRevision =
  struct
    type nonrec t =
      {
      revision: Revision.t
        [@ocaml.doc "The revision ID of the current version of an artifact."];
      changeIdentifier: RevisionChangeIdentifier.t
        [@ocaml.doc "The change identifier for the current revision."];
      created: Time.t option
        [@ocaml.doc
          "The date and time when the most recent revision of the artifact was created, in timestamp format."];
      revisionSummary: RevisionSummary.t option
        [@ocaml.doc
          "The summary of the most recent revision of the artifact."]}
    let context_ = "CurrentRevision"
    let make ?created =
      fun ?revisionSummary ->
        fun ~revision ->
          fun ~changeIdentifier ->
            fun () ->
              { created; revisionSummary; revision; changeIdentifier }
    let to_value x =
      structure_to_value
        [("revision", (Some (Revision.to_value x.revision)));
        ("changeIdentifier",
          (Some (RevisionChangeIdentifier.to_value x.changeIdentifier)));
        ("created", (Option.map x.created ~f:Time.to_value));
        ("revisionSummary",
          (Option.map x.revisionSummary ~f:RevisionSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionSummary =
        (Option.map ~f:RevisionSummary.of_xml)
          (Xml.child xml_arg0 "revisionSummary") in
      let created =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "created") in
      let changeIdentifier =
        RevisionChangeIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "changeIdentifier") in
      let revision =
        Revision.of_xml (Xml.child_exn ~context:context_ xml_arg0 "revision") in
      make ?revisionSummary ?created ~changeIdentifier ~revision ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionSummary =
        field_map json__ "revisionSummary" RevisionSummary.of_json in
      let created = field_map json__ "created" Time.of_json in
      let changeIdentifier =
        field_map_exn json__ "changeIdentifier"
          RevisionChangeIdentifier.of_json in
      let revision = field_map_exn json__ "revision" Revision.of_json in
      make ?revisionSummary ?created ~changeIdentifier ~revision ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about a current revision."]
module ExecutionDetails =
  struct
    type nonrec t =
      {
      summary: ExecutionSummary.t option
        [@ocaml.doc "The summary of the current status of the actions."];
      externalExecutionId: ExecutionId.t option
        [@ocaml.doc
          "The system-generated unique ID of this action used to identify this job worker in any external systems, such as CodeDeploy."];
      percentComplete: Percentage.t option
        [@ocaml.doc
          "The percentage of work completed on the action, represented on a scale of 0 to 100 percent."]}
    let make ?summary =
      fun ?externalExecutionId ->
        fun ?percentComplete ->
          fun () -> { summary; externalExecutionId; percentComplete }
    let to_value x =
      structure_to_value
        [("summary", (Option.map x.summary ~f:ExecutionSummary.to_value));
        ("externalExecutionId",
          (Option.map x.externalExecutionId ~f:ExecutionId.to_value));
        ("percentComplete",
          (Option.map x.percentComplete ~f:Percentage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let percentComplete =
        (Option.map ~f:Percentage.of_xml)
          (Xml.child xml_arg0 "percentComplete") in
      let externalExecutionId =
        (Option.map ~f:ExecutionId.of_xml)
          (Xml.child xml_arg0 "externalExecutionId") in
      let summary =
        (Option.map ~f:ExecutionSummary.of_xml)
          (Xml.child xml_arg0 "summary") in
      make ?percentComplete ?externalExecutionId ?summary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let percentComplete =
        field_map json__ "percentComplete" Percentage.of_json in
      let externalExecutionId =
        field_map json__ "externalExecutionId" ExecutionId.of_json in
      let summary = field_map json__ "summary" ExecutionSummary.of_json in
      make ?percentComplete ?externalExecutionId ?summary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of the actions taken and results produced on an artifact as it passes through stages in the pipeline."]
module FailureDetails =
  struct
    type nonrec t =
      {
      type_: FailureType.t [@ocaml.doc "The type of the failure."];
      message: Message.t [@ocaml.doc "The message about the failure."];
      externalExecutionId: ExecutionId.t option
        [@ocaml.doc "The external ID of the run of the action that failed."]}
    let context_ = "FailureDetails"
    let make ?externalExecutionId =
      fun ~type_ ->
        fun ~message -> fun () -> { externalExecutionId; type_; message }
    let to_value x =
      structure_to_value
        [("type", (Some (FailureType.to_value x.type_)));
        ("message", (Some (Message.to_value x.message)));
        ("externalExecutionId",
          (Option.map x.externalExecutionId ~f:ExecutionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let externalExecutionId =
        (Option.map ~f:ExecutionId.of_xml)
          (Xml.child xml_arg0 "externalExecutionId") in
      let message =
        Message.of_xml (Xml.child_exn ~context:context_ xml_arg0 "message") in
      let type_ =
        FailureType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?externalExecutionId ~message ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let externalExecutionId =
        field_map json__ "externalExecutionId" ExecutionId.of_json in
      let message = field_map_exn json__ "message" Message.of_json in
      let type_ = field_map_exn json__ "type" FailureType.of_json in
      make ?externalExecutionId ~message ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about failure details."]
module ActionNotFoundException =
  struct
    type nonrec t = unit
    let make () = ()
    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 specified action cannot be found."]
module ApprovalAlreadyCompletedException =
  struct
    type nonrec t = unit
    let make () = ()
    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 approval action has already been approved or rejected."]
module InvalidApprovalTokenException =
  struct
    type nonrec t = unit
    let make () = ()
    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 approval request already received a response or has expired."]
module ApprovalResult =
  struct
    type nonrec t =
      {
      summary: ApprovalSummary.t
        [@ocaml.doc
          "The summary of the current status of the approval request."];
      status: ApprovalStatus.t
        [@ocaml.doc
          "The response submitted by a reviewer assigned to an approval action request."]}
    let context_ = "ApprovalResult"
    let make ~summary = fun ~status -> fun () -> { summary; status }
    let to_value x =
      structure_to_value
        [("summary", (Some (ApprovalSummary.to_value x.summary)));
        ("status", (Some (ApprovalStatus.to_value x.status)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        ApprovalStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "status") in
      let summary =
        ApprovalSummary.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "summary") in
      make ~status ~summary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map_exn json__ "status" ApprovalStatus.of_json in
      let summary = field_map_exn json__ "summary" ApprovalSummary.of_json in
      make ~status ~summary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents information about the result of an approval request."]
module ApprovalToken =
  struct
    type nonrec t = string
    let context_ = "ApprovalToken"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ApprovalToken" j
    let to_json = simple_to_json to_value
  end
module ActionTypeNotFoundException =
  struct
    type nonrec t = unit
    let make () = ()
    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 specified action type cannot be found."]
module ThirdPartyJobList =
  struct
    type nonrec t = ThirdPartyJob.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:ThirdPartyJob.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:ThirdPartyJob.of_xml)
    let of_json j =
      list_of_json ~kind:"ThirdPartyJobList" ~of_json:ThirdPartyJob.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxBatchSize =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxBatchSize" 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 JobList =
  struct
    type nonrec t = Job.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:Job.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:Job.of_xml)
    let of_json j = list_of_json ~kind:"JobList" ~of_json:Job.of_json j
    let to_json v = composed_to_json to_value v
  end
module QueryParamMap =
  struct
    type nonrec t =
      (ActionConfigurationKey.t * ActionConfigurationQueryableValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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 ->
                            ((ActionConfigurationKey.of_string chopped),
                              (ActionConfigurationQueryableValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ActionConfigurationKey.to_value x) |>
                    (fun x ->
                       (ActionConfigurationQueryableValue.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:ActionConfigurationKey.of_string
        ~of_json:ActionConfigurationQueryableValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConditionType =
  struct
    type nonrec t =
      | BEFORE_ENTRY 
      | ON_SUCCESS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BEFORE_ENTRY -> "BEFORE_ENTRY"
      | ON_SUCCESS -> "ON_SUCCESS"
      | Non_static_id s -> s
    let of_string =
      function
      | "BEFORE_ENTRY" -> BEFORE_ENTRY
      | "ON_SUCCESS" -> ON_SUCCESS
      | 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 ConditionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ConditionType" j)
    let to_json = simple_to_json to_value
  end
module InvalidNextTokenException =
  struct
    type nonrec t = unit
    let make () = ()
    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 next token was specified in an invalid format. Make sure that the next token you provide is the token returned by a previous call."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module WebhookList =
  struct
    type nonrec t = ListWebhookItem.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:ListWebhookItem.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:ListWebhookItem.of_xml)
    let of_json j =
      list_of_json ~kind:"WebhookList" ~of_json:ListWebhookItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module RuleTypeList =
  struct
    type nonrec t = RuleType.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:RuleType.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:RuleType.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleTypeList" ~of_json:RuleType.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleExecutionDetailList =
  struct
    type nonrec t = RuleExecutionDetail.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:RuleExecutionDetail.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:RuleExecutionDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"RuleExecutionDetailList"
        ~of_json:RuleExecutionDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module RuleExecutionFilter =
  struct
    type nonrec t =
      {
      pipelineExecutionId: PipelineExecutionId.t option
        [@ocaml.doc
          "The pipeline execution ID used to filter rule execution history."];
      latestInPipelineExecution: LatestInPipelineExecutionFilter.t option }
    let make ?pipelineExecutionId =
      fun ?latestInPipelineExecution ->
        fun () -> { pipelineExecutionId; latestInPipelineExecution }
    let to_value x =
      structure_to_value
        [("pipelineExecutionId",
           (Option.map x.pipelineExecutionId ~f:PipelineExecutionId.to_value));
        ("latestInPipelineExecution",
          (Option.map x.latestInPipelineExecution
             ~f:LatestInPipelineExecutionFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let latestInPipelineExecution =
        (Option.map ~f:LatestInPipelineExecutionFilter.of_xml)
          (Xml.child xml_arg0 "latestInPipelineExecution") in
      let pipelineExecutionId =
        (Option.map ~f:PipelineExecutionId.of_xml)
          (Xml.child xml_arg0 "pipelineExecutionId") in
      make ?latestInPipelineExecution ?pipelineExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let latestInPipelineExecution =
        field_map json__ "latestInPipelineExecution"
          LatestInPipelineExecutionFilter.of_json in
      let pipelineExecutionId =
        field_map json__ "pipelineExecutionId" PipelineExecutionId.of_json in
      make ?latestInPipelineExecution ?pipelineExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Filter values for the rule execution."]
module PipelineList =
  struct
    type nonrec t = PipelineSummary.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:PipelineSummary.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:PipelineSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"PipelineList" ~of_json:PipelineSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxPipelines =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxPipelines" 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 PipelineExecutionSummaryList =
  struct
    type nonrec t = PipelineExecutionSummary.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:PipelineExecutionSummary.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:PipelineExecutionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"PipelineExecutionSummaryList"
        ~of_json:PipelineExecutionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module PipelineExecutionFilter =
  struct
    type nonrec t =
      {
      succeededInStage: SucceededInStageFilter.t option
        [@ocaml.doc
          "Filter for pipeline executions where the stage was successful in the current pipeline version."]}
    let make ?succeededInStage = fun () -> { succeededInStage }
    let to_value x =
      structure_to_value
        [("succeededInStage",
           (Option.map x.succeededInStage ~f:SucceededInStageFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let succeededInStage =
        (Option.map ~f:SucceededInStageFilter.of_xml)
          (Xml.child xml_arg0 "succeededInStage") in
      make ?succeededInStage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let succeededInStage =
        field_map json__ "succeededInStage" SucceededInStageFilter.of_json in
      make ?succeededInStage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The pipeline execution to filter on."]
module ActionExecutionNotFoundException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The action execution was not found."]
module DeployActionExecutionTargetList =
  struct
    type nonrec t = DeployActionExecutionTarget.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:DeployActionExecutionTarget.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:DeployActionExecutionTarget.of_xml)
    let of_json j =
      list_of_json ~kind:"DeployActionExecutionTargetList"
        ~of_json:DeployActionExecutionTarget.of_json j
    let to_json v = composed_to_json to_value v
  end
module TargetFilterList =
  struct
    type nonrec t = TargetFilter.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:TargetFilter.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:TargetFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetFilterList" ~of_json:TargetFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActionTypeList =
  struct
    type nonrec t = ActionType.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:ActionType.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:ActionType.of_xml)
    let of_json j =
      list_of_json ~kind:"ActionTypeList" ~of_json:ActionType.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActionExecutionDetailList =
  struct
    type nonrec t = ActionExecutionDetail.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:ActionExecutionDetail.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:ActionExecutionDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"ActionExecutionDetailList"
        ~of_json:ActionExecutionDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActionExecutionFilter =
  struct
    type nonrec t =
      {
      pipelineExecutionId: PipelineExecutionId.t option
        [@ocaml.doc
          "The pipeline execution ID used to filter action execution history."];
      latestInPipelineExecution: LatestInPipelineExecutionFilter.t option
        [@ocaml.doc
          "The latest execution in the pipeline. Filtering on the latest execution is available for executions run on or after February 08, 2024."]}
    let make ?pipelineExecutionId =
      fun ?latestInPipelineExecution ->
        fun () -> { pipelineExecutionId; latestInPipelineExecution }
    let to_value x =
      structure_to_value
        [("pipelineExecutionId",
           (Option.map x.pipelineExecutionId ~f:PipelineExecutionId.to_value));
        ("latestInPipelineExecution",
          (Option.map x.latestInPipelineExecution
             ~f:LatestInPipelineExecutionFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let latestInPipelineExecution =
        (Option.map ~f:LatestInPipelineExecutionFilter.of_xml)
          (Xml.child xml_arg0 "latestInPipelineExecution") in
      let pipelineExecutionId =
        (Option.map ~f:PipelineExecutionId.of_xml)
          (Xml.child xml_arg0 "pipelineExecutionId") in
      make ?latestInPipelineExecution ?pipelineExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let latestInPipelineExecution =
        field_map json__ "latestInPipelineExecution"
          LatestInPipelineExecutionFilter.of_json in
      let pipelineExecutionId =
        field_map json__ "pipelineExecutionId" PipelineExecutionId.of_json in
      make ?latestInPipelineExecution ?pipelineExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Filter values for the action execution."]
module InvalidClientTokenException =
  struct
    type nonrec t = unit
    let make () = ()
    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 client token was specified in an invalid format"]
module InvalidJobException =
  struct
    type nonrec t = unit
    let make () = ()
    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 job was specified in an invalid format or cannot be found."]
module JobNotFoundException =
  struct
    type nonrec t = unit
    let make () = ()
    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 job was specified in an invalid format or cannot be found."]
module ThirdPartyJobDetails =
  struct
    type nonrec t =
      {
      id: ThirdPartyJobId.t option
        [@ocaml.doc
          "The identifier used to identify the job details in CodePipeline."];
      data: ThirdPartyJobData.t option
        [@ocaml.doc "The data to be returned by the third party job worker."];
      nonce: Nonce.t option
        [@ocaml.doc
          "A system-generated random number that CodePipeline uses to ensure that the job is being worked on by only one job worker. Use this number in an AcknowledgeThirdPartyJob request."]}
    let make ?id = fun ?data -> fun ?nonce -> fun () -> { id; data; nonce }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:ThirdPartyJobId.to_value));
        ("data", (Option.map x.data ~f:ThirdPartyJobData.to_value));
        ("nonce", (Option.map x.nonce ~f:Nonce.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nonce = (Option.map ~f:Nonce.of_xml) (Xml.child xml_arg0 "nonce") in
      let data =
        (Option.map ~f:ThirdPartyJobData.of_xml) (Xml.child xml_arg0 "data") in
      let id =
        (Option.map ~f:ThirdPartyJobId.of_xml) (Xml.child xml_arg0 "id") in
      make ?nonce ?data ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nonce = field_map json__ "nonce" Nonce.of_json in
      let data = field_map json__ "data" ThirdPartyJobData.of_json in
      let id = field_map json__ "id" ThirdPartyJobId.of_json in
      make ?nonce ?data ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of a job sent in response to a GetThirdPartyJobDetails request."]
module StageStateList =
  struct
    type nonrec t = StageState.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:StageState.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:StageState.of_xml)
    let of_json j =
      list_of_json ~kind:"StageStateList" ~of_json:StageState.of_json j
    let to_json v = composed_to_json to_value v
  end
module PipelineMetadata =
  struct
    type nonrec t =
      {
      pipelineArn: PipelineArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the pipeline."];
      created: Timestamp.t option
        [@ocaml.doc
          "The date and time the pipeline was created, in timestamp format."];
      updated: Timestamp.t option
        [@ocaml.doc
          "The date and time the pipeline was last updated, in timestamp format."];
      pollingDisabledAt: Timestamp.t option
        [@ocaml.doc
          "The date and time that polling for source changes (periodic checks) was stopped for the pipeline, in timestamp format. Pipelines that are inactive for longer than 30 days will have polling disabled for the pipeline. For more information, see pollingDisabledAt in the pipeline structure reference. For the steps to migrate your pipeline from polling to event-based change detection, see Migrate polling pipelines to use event-based change detection. You can migrate (update) a polling pipeline to use event-based change detection. For example, for a pipeline with a CodeCommit source, we recommend you migrate (update) your pipeline to use CloudWatch Events. To learn more, see Migrate polling pipelines to use event-based change detection in the CodePipeline User Guide."]}
    let make ?pipelineArn =
      fun ?created ->
        fun ?updated ->
          fun ?pollingDisabledAt ->
            fun () -> { pipelineArn; created; updated; pollingDisabledAt }
    let to_value x =
      structure_to_value
        [("pipelineArn", (Option.map x.pipelineArn ~f:PipelineArn.to_value));
        ("created", (Option.map x.created ~f:Timestamp.to_value));
        ("updated", (Option.map x.updated ~f:Timestamp.to_value));
        ("pollingDisabledAt",
          (Option.map x.pollingDisabledAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pollingDisabledAt =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "pollingDisabledAt") in
      let updated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updated") in
      let created =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "created") in
      let pipelineArn =
        (Option.map ~f:PipelineArn.of_xml) (Xml.child xml_arg0 "pipelineArn") in
      make ?pollingDisabledAt ?updated ?created ?pipelineArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pollingDisabledAt =
        field_map json__ "pollingDisabledAt" Timestamp.of_json in
      let updated = field_map json__ "updated" Timestamp.of_json in
      let created = field_map json__ "created" Timestamp.of_json in
      let pipelineArn = field_map json__ "pipelineArn" PipelineArn.of_json in
      make ?pollingDisabledAt ?updated ?created ?pipelineArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a pipeline."]
module PipelineVersionNotFoundException =
  struct
    type nonrec t = unit
    let make () = ()
    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 pipeline version was specified in an invalid format or cannot be found."]
module PipelineExecution =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t option
        [@ocaml.doc
          "The name of the pipeline with the specified pipeline execution."];
      pipelineVersion: PipelineVersion.t option
        [@ocaml.doc
          "The version number of the pipeline with the specified pipeline execution."];
      pipelineExecutionId: PipelineExecutionId.t option
        [@ocaml.doc "The ID of the pipeline execution."];
      status: PipelineExecutionStatus.t option
        [@ocaml.doc
          "The status of the pipeline execution. Cancelled: The pipeline\226\128\153s definition was updated before the pipeline execution could be completed. InProgress: The pipeline execution is currently running. Stopped: The pipeline execution was manually stopped. For more information, see Stopped Executions. Stopping: The pipeline execution received a request to be manually stopped. Depending on the selected stop mode, the execution is either completing or abandoning in-progress actions. For more information, see Stopped Executions. Succeeded: The pipeline execution was completed successfully. Superseded: While this pipeline execution was waiting for the next stage to be completed, a newer pipeline execution advanced and continued through the pipeline instead. For more information, see Superseded Executions. Failed: The pipeline execution was not completed successfully."];
      statusSummary: PipelineExecutionStatusSummary.t option
        [@ocaml.doc
          "A summary that contains a description of the pipeline execution status."];
      artifactRevisions: ArtifactRevisionList.t option
        [@ocaml.doc
          "A list of ArtifactRevision objects included in a pipeline execution."];
      variables: ResolvedPipelineVariableList.t option
        [@ocaml.doc
          "A list of pipeline variables used for the pipeline execution."];
      trigger: ExecutionTrigger.t option ;
      executionMode: ExecutionMode.t option
        [@ocaml.doc
          "The method that the pipeline will use to handle multiple executions. The default mode is SUPERSEDED."];
      executionType: ExecutionType.t option
        [@ocaml.doc "The type of the pipeline execution."];
      rollbackMetadata: PipelineRollbackMetadata.t option
        [@ocaml.doc
          "The metadata about the execution pertaining to stage rollback."]}
    let make ?pipelineName =
      fun ?pipelineVersion ->
        fun ?pipelineExecutionId ->
          fun ?status ->
            fun ?statusSummary ->
              fun ?artifactRevisions ->
                fun ?variables ->
                  fun ?trigger ->
                    fun ?executionMode ->
                      fun ?executionType ->
                        fun ?rollbackMetadata ->
                          fun () ->
                            {
                              pipelineName;
                              pipelineVersion;
                              pipelineExecutionId;
                              status;
                              statusSummary;
                              artifactRevisions;
                              variables;
                              trigger;
                              executionMode;
                              executionType;
                              rollbackMetadata
                            }
    let to_value x =
      structure_to_value
        [("pipelineName",
           (Option.map x.pipelineName ~f:PipelineName.to_value));
        ("pipelineVersion",
          (Option.map x.pipelineVersion ~f:PipelineVersion.to_value));
        ("pipelineExecutionId",
          (Option.map x.pipelineExecutionId ~f:PipelineExecutionId.to_value));
        ("status", (Option.map x.status ~f:PipelineExecutionStatus.to_value));
        ("statusSummary",
          (Option.map x.statusSummary
             ~f:PipelineExecutionStatusSummary.to_value));
        ("artifactRevisions",
          (Option.map x.artifactRevisions ~f:ArtifactRevisionList.to_value));
        ("variables",
          (Option.map x.variables ~f:ResolvedPipelineVariableList.to_value));
        ("trigger", (Option.map x.trigger ~f:ExecutionTrigger.to_value));
        ("executionMode",
          (Option.map x.executionMode ~f:ExecutionMode.to_value));
        ("executionType",
          (Option.map x.executionType ~f:ExecutionType.to_value));
        ("rollbackMetadata",
          (Option.map x.rollbackMetadata ~f:PipelineRollbackMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rollbackMetadata =
        (Option.map ~f:PipelineRollbackMetadata.of_xml)
          (Xml.child xml_arg0 "rollbackMetadata") in
      let executionType =
        (Option.map ~f:ExecutionType.of_xml)
          (Xml.child xml_arg0 "executionType") in
      let executionMode =
        (Option.map ~f:ExecutionMode.of_xml)
          (Xml.child xml_arg0 "executionMode") in
      let trigger =
        (Option.map ~f:ExecutionTrigger.of_xml)
          (Xml.child xml_arg0 "trigger") in
      let variables =
        (Option.map ~f:ResolvedPipelineVariableList.of_xml)
          (Xml.child xml_arg0 "variables") in
      let artifactRevisions =
        (Option.map ~f:ArtifactRevisionList.of_xml)
          (Xml.child xml_arg0 "artifactRevisions") in
      let statusSummary =
        (Option.map ~f:PipelineExecutionStatusSummary.of_xml)
          (Xml.child xml_arg0 "statusSummary") in
      let status =
        (Option.map ~f:PipelineExecutionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let pipelineExecutionId =
        (Option.map ~f:PipelineExecutionId.of_xml)
          (Xml.child xml_arg0 "pipelineExecutionId") in
      let pipelineVersion =
        (Option.map ~f:PipelineVersion.of_xml)
          (Xml.child xml_arg0 "pipelineVersion") in
      let pipelineName =
        (Option.map ~f:PipelineName.of_xml)
          (Xml.child xml_arg0 "pipelineName") in
      make ?rollbackMetadata ?executionType ?executionMode ?trigger
        ?variables ?artifactRevisions ?statusSummary ?status
        ?pipelineExecutionId ?pipelineVersion ?pipelineName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rollbackMetadata =
        field_map json__ "rollbackMetadata" PipelineRollbackMetadata.of_json in
      let executionType =
        field_map json__ "executionType" ExecutionType.of_json in
      let executionMode =
        field_map json__ "executionMode" ExecutionMode.of_json in
      let trigger = field_map json__ "trigger" ExecutionTrigger.of_json in
      let variables =
        field_map json__ "variables" ResolvedPipelineVariableList.of_json in
      let artifactRevisions =
        field_map json__ "artifactRevisions" ArtifactRevisionList.of_json in
      let statusSummary =
        field_map json__ "statusSummary"
          PipelineExecutionStatusSummary.of_json in
      let status = field_map json__ "status" PipelineExecutionStatus.of_json in
      let pipelineExecutionId =
        field_map json__ "pipelineExecutionId" PipelineExecutionId.of_json in
      let pipelineVersion =
        field_map json__ "pipelineVersion" PipelineVersion.of_json in
      let pipelineName = field_map json__ "pipelineName" PipelineName.of_json in
      make ?rollbackMetadata ?executionType ?executionMode ?trigger
        ?variables ?artifactRevisions ?statusSummary ?status
        ?pipelineExecutionId ?pipelineVersion ?pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about an execution of a pipeline."]
module JobDetails =
  struct
    type nonrec t =
      {
      id: JobId.t option
        [@ocaml.doc "The unique system-generated ID of the job."];
      data: JobData.t option
        [@ocaml.doc
          "Represents other information about a job required for a job worker to complete the job."];
      accountId: AccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID associated with the job."]}
    let make ?id =
      fun ?data -> fun ?accountId -> fun () -> { id; data; accountId }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:JobId.to_value));
        ("data", (Option.map x.data ~f:JobData.to_value));
        ("accountId", (Option.map x.accountId ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      let data = (Option.map ~f:JobData.of_xml) (Xml.child xml_arg0 "data") in
      let id = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "id") in
      make ?accountId ?data ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accountId = field_map json__ "accountId" AccountId.of_json in
      let data = field_map json__ "data" JobData.of_json in
      let id = field_map json__ "id" JobId.of_json in
      make ?accountId ?data ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents information about the details of a job."]
module StageTransitionType =
  struct
    type nonrec t =
      | Inbound 
      | Outbound 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Inbound -> "Inbound"
      | Outbound -> "Outbound"
      | Non_static_id s -> s
    let of_string =
      function
      | "Inbound" -> Inbound
      | "Outbound" -> Outbound
      | 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 StageTransitionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StageTransitionType" j)
    let to_json = simple_to_json to_value
  end
module PipelineNameInUseException =
  struct
    type nonrec t = unit
    let make () = ()
    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 specified pipeline name is already in use."]
module InvalidNonceException =
  struct
    type nonrec t = unit
    let make () = ()
    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 nonce was specified in an invalid format."]
module JobStatus =
  struct
    type nonrec t =
      | Created 
      | Queued 
      | Dispatched 
      | InProgress 
      | TimedOut 
      | Succeeded 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Created -> "Created"
      | Queued -> "Queued"
      | Dispatched -> "Dispatched"
      | InProgress -> "InProgress"
      | TimedOut -> "TimedOut"
      | Succeeded -> "Succeeded"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Created" -> Created
      | "Queued" -> Queued
      | "Dispatched" -> Dispatched
      | "InProgress" -> InProgress
      | "TimedOut" -> TimedOut
      | "Succeeded" -> Succeeded
      | "Failed" -> 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 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 UpdatePipelineOutput =
  struct
    type nonrec t =
      {
      pipeline: PipelineDeclaration.t option
        [@ocaml.doc "The structure of the updated pipeline."]}
    type nonrec error =
      [
        `InvalidActionDeclarationException of
          InvalidActionDeclarationException.t 
      | `InvalidBlockerDeclarationException of
          InvalidBlockerDeclarationException.t 
      | `InvalidStageDeclarationException of
          InvalidStageDeclarationException.t 
      | `InvalidStructureException of InvalidStructureException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pipeline = fun () -> { pipeline }
    let error_of_json name json =
      match name with
      | "InvalidActionDeclarationException" ->
          `InvalidActionDeclarationException
            (InvalidActionDeclarationException.of_json json)
      | "InvalidBlockerDeclarationException" ->
          `InvalidBlockerDeclarationException
            (InvalidBlockerDeclarationException.of_json json)
      | "InvalidStageDeclarationException" ->
          `InvalidStageDeclarationException
            (InvalidStageDeclarationException.of_json json)
      | "InvalidStructureException" ->
          `InvalidStructureException (InvalidStructureException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidActionDeclarationException" ->
          `InvalidActionDeclarationException
            (InvalidActionDeclarationException.of_xml xml)
      | "InvalidBlockerDeclarationException" ->
          `InvalidBlockerDeclarationException
            (InvalidBlockerDeclarationException.of_xml xml)
      | "InvalidStageDeclarationException" ->
          `InvalidStageDeclarationException
            (InvalidStageDeclarationException.of_xml xml)
      | "InvalidStructureException" ->
          `InvalidStructureException (InvalidStructureException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidActionDeclarationException e ->
          `Assoc
            [("error", (`String "InvalidActionDeclarationException"));
            ("details", (InvalidActionDeclarationException.to_json e))]
      | `InvalidBlockerDeclarationException e ->
          `Assoc
            [("error", (`String "InvalidBlockerDeclarationException"));
            ("details", (InvalidBlockerDeclarationException.to_json e))]
      | `InvalidStageDeclarationException e ->
          `Assoc
            [("error", (`String "InvalidStageDeclarationException"));
            ("details", (InvalidStageDeclarationException.to_json e))]
      | `InvalidStructureException e ->
          `Assoc
            [("error", (`String "InvalidStructureException"));
            ("details", (InvalidStructureException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("pipeline",
           (Option.map x.pipeline ~f:PipelineDeclaration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pipeline =
        (Option.map ~f:PipelineDeclaration.of_xml)
          (Xml.child xml_arg0 "pipeline") in
      make ?pipeline ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pipeline = field_map json__ "pipeline" PipelineDeclaration.of_json in
      make ?pipeline ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of an UpdatePipeline action."]
module UpdatePipelineInput =
  struct
    type nonrec t =
      {
      pipeline: PipelineDeclaration.t
        [@ocaml.doc "The name of the pipeline to be updated."]}
    let context_ = "UpdatePipelineInput"
    let make ~pipeline = fun () -> { pipeline }
    let to_value x =
      structure_to_value
        [("pipeline", (Some (PipelineDeclaration.to_value x.pipeline)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pipeline =
        PipelineDeclaration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipeline") in
      make ~pipeline ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pipeline =
        field_map_exn json__ "pipeline" PipelineDeclaration.of_json in
      make ~pipeline ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of an UpdatePipeline action."]
module UpdateActionTypeInput =
  struct
    type nonrec t =
      {
      actionType: ActionTypeDeclaration.t
        [@ocaml.doc
          "The action type definition for the action type to be updated."]}
    let context_ = "UpdateActionTypeInput"
    let make ~actionType = fun () -> { actionType }
    let to_value x =
      structure_to_value
        [("actionType", (Some (ActionTypeDeclaration.to_value x.actionType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let actionType =
        ActionTypeDeclaration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "actionType") in
      make ~actionType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let actionType =
        field_map_exn json__ "actionType" ActionTypeDeclaration.of_json in
      make ~actionType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an action type that was created with any supported integration model, where the action type is to be used by customers of the action type provider. Use a JSON file with the action definition and UpdateActionType to provide the full structure."]
module UntagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidTagsException of InvalidTagsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidTagsException" ->
          `InvalidTagsException (InvalidTagsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidTagsException" ->
          `InvalidTagsException (InvalidTagsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidTagsException e ->
          `Assoc
            [("error", (`String "InvalidTagsException"));
            ("details", (InvalidTagsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from an Amazon Web Services resource."]
module UntagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to remove tags from."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The list of keys for the tags to be removed from the resource."]}
    let context_ = "UntagResourceInput"
    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 "Removes tags from an Amazon Web Services resource."]
module TagResourceOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArnException of InvalidArnException.t 
      | `InvalidTagsException of InvalidTagsException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidTagsException" ->
          `InvalidTagsException (InvalidTagsException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidTagsException" ->
          `InvalidTagsException (InvalidTagsException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidTagsException e ->
          `Assoc
            [("error", (`String "InvalidTagsException"));
            ("details", (InvalidTagsException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds to or modifies the tags of the given resource. Tags are metadata that can be used to manage a resource."]
module TagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource you want to add tags to."];
      tags: TagList.t
        [@ocaml.doc "The tags you want to modify or add to the resource."]}
    let context_ = "TagResourceInput"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.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" TagList.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
       "Adds to or modifies the tags of the given resource. Tags are metadata that can be used to manage a resource."]
module StopPipelineExecutionOutput =
  struct
    type nonrec t =
      {
      pipelineExecutionId: PipelineExecutionId.t option
        [@ocaml.doc
          "The unique system-generated ID of the pipeline execution that was stopped."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `DuplicatedStopRequestException of DuplicatedStopRequestException.t 
      | `PipelineExecutionNotStoppableException of
          PipelineExecutionNotStoppableException.t 
      | `PipelineNotFoundException of PipelineNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pipelineExecutionId = fun () -> { pipelineExecutionId }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "DuplicatedStopRequestException" ->
          `DuplicatedStopRequestException
            (DuplicatedStopRequestException.of_json json)
      | "PipelineExecutionNotStoppableException" ->
          `PipelineExecutionNotStoppableException
            (PipelineExecutionNotStoppableException.of_json json)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "DuplicatedStopRequestException" ->
          `DuplicatedStopRequestException
            (DuplicatedStopRequestException.of_xml xml)
      | "PipelineExecutionNotStoppableException" ->
          `PipelineExecutionNotStoppableException
            (PipelineExecutionNotStoppableException.of_xml xml)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `DuplicatedStopRequestException e ->
          `Assoc
            [("error", (`String "DuplicatedStopRequestException"));
            ("details", (DuplicatedStopRequestException.to_json e))]
      | `PipelineExecutionNotStoppableException e ->
          `Assoc
            [("error", (`String "PipelineExecutionNotStoppableException"));
            ("details", (PipelineExecutionNotStoppableException.to_json e))]
      | `PipelineNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineNotFoundException"));
            ("details", (PipelineNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("pipelineExecutionId",
           (Option.map x.pipelineExecutionId ~f:PipelineExecutionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pipelineExecutionId =
        (Option.map ~f:PipelineExecutionId.of_xml)
          (Xml.child xml_arg0 "pipelineExecutionId") in
      make ?pipelineExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pipelineExecutionId =
        field_map json__ "pipelineExecutionId" PipelineExecutionId.of_json in
      make ?pipelineExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops the specified pipeline execution. You choose to either stop the pipeline execution by completing in-progress actions without starting subsequent actions, or by abandoning in-progress actions. While completing or abandoning in-progress actions, the pipeline execution is in a Stopping state. After all in-progress actions are completed or abandoned, the pipeline execution is in a Stopped state."]
module StopPipelineExecutionInput =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t
        [@ocaml.doc "The name of the pipeline to stop."];
      pipelineExecutionId: PipelineExecutionId.t
        [@ocaml.doc
          "The ID of the pipeline execution to be stopped in the current stage. Use the GetPipelineState action to retrieve the current pipelineExecutionId."];
      abandon: Boolean.t option
        [@ocaml.doc
          "Use this option to stop the pipeline execution by abandoning, rather than finishing, in-progress actions. This option can lead to failed or out-of-sequence tasks."];
      reason: StopPipelineExecutionReason.t option
        [@ocaml.doc
          "Use this option to enter comments, such as the reason the pipeline was stopped."]}
    let context_ = "StopPipelineExecutionInput"
    let make ?abandon =
      fun ?reason ->
        fun ~pipelineName ->
          fun ~pipelineExecutionId ->
            fun () -> { abandon; reason; pipelineName; pipelineExecutionId }
    let to_value x =
      structure_to_value
        [("pipelineName", (Some (PipelineName.to_value x.pipelineName)));
        ("pipelineExecutionId",
          (Some (PipelineExecutionId.to_value x.pipelineExecutionId)));
        ("abandon", (Option.map x.abandon ~f:Boolean.to_value));
        ("reason",
          (Option.map x.reason ~f:StopPipelineExecutionReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:StopPipelineExecutionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let abandon =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "abandon") in
      let pipelineExecutionId =
        PipelineExecutionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineExecutionId") in
      let pipelineName =
        PipelineName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineName") in
      make ?reason ?abandon ~pipelineExecutionId ~pipelineName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map json__ "reason" StopPipelineExecutionReason.of_json in
      let abandon = field_map json__ "abandon" Boolean.of_json in
      let pipelineExecutionId =
        field_map_exn json__ "pipelineExecutionId"
          PipelineExecutionId.of_json in
      let pipelineName =
        field_map_exn json__ "pipelineName" PipelineName.of_json in
      make ?reason ?abandon ~pipelineExecutionId ~pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops the specified pipeline execution. You choose to either stop the pipeline execution by completing in-progress actions without starting subsequent actions, or by abandoning in-progress actions. While completing or abandoning in-progress actions, the pipeline execution is in a Stopping state. After all in-progress actions are completed or abandoned, the pipeline execution is in a Stopped state."]
module StartPipelineExecutionOutput =
  struct
    type nonrec t =
      {
      pipelineExecutionId: PipelineExecutionId.t option
        [@ocaml.doc
          "The unique system-generated ID of the pipeline execution that was started."]}
    type nonrec error =
      [
        `ConcurrentPipelineExecutionsLimitExceededException of
          ConcurrentPipelineExecutionsLimitExceededException.t 
      | `ConflictException of ConflictException.t 
      | `PipelineNotFoundException of PipelineNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pipelineExecutionId = fun () -> { pipelineExecutionId }
    let error_of_json name json =
      match name with
      | "ConcurrentPipelineExecutionsLimitExceededException" ->
          `ConcurrentPipelineExecutionsLimitExceededException
            (ConcurrentPipelineExecutionsLimitExceededException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentPipelineExecutionsLimitExceededException" ->
          `ConcurrentPipelineExecutionsLimitExceededException
            (ConcurrentPipelineExecutionsLimitExceededException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentPipelineExecutionsLimitExceededException e ->
          `Assoc
            [("error",
               (`String "ConcurrentPipelineExecutionsLimitExceededException"));
            ("details",
              (ConcurrentPipelineExecutionsLimitExceededException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `PipelineNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineNotFoundException"));
            ("details", (PipelineNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("pipelineExecutionId",
           (Option.map x.pipelineExecutionId ~f:PipelineExecutionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pipelineExecutionId =
        (Option.map ~f:PipelineExecutionId.of_xml)
          (Xml.child xml_arg0 "pipelineExecutionId") in
      make ?pipelineExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pipelineExecutionId =
        field_map json__ "pipelineExecutionId" PipelineExecutionId.of_json in
      make ?pipelineExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a StartPipelineExecution action."]
module StartPipelineExecutionInput =
  struct
    type nonrec t =
      {
      name: PipelineName.t [@ocaml.doc "The name of the pipeline to start."];
      variables: PipelineVariableList.t option
        [@ocaml.doc
          "A list that overrides pipeline variables for a pipeline execution that's being started. Variable names must match \\[A-Za-z0-9\\@\\-_\\]+, and the values can be anything except an empty string."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "The system-generated unique ID used to identify a unique execution request."];
      sourceRevisions: SourceRevisionOverrideList.t option
        [@ocaml.doc
          "A list that allows you to specify, or override, the source revision for a pipeline execution that's being started. A source revision is the version with all the changes to your application code, or source artifact, for the pipeline execution."]}
    let context_ = "StartPipelineExecutionInput"
    let make ?variables =
      fun ?clientRequestToken ->
        fun ?sourceRevisions ->
          fun ~name ->
            fun () ->
              { variables; clientRequestToken; sourceRevisions; name }
    let to_value x =
      structure_to_value
        [("name", (Some (PipelineName.to_value x.name)));
        ("variables",
          (Option.map x.variables ~f:PipelineVariableList.to_value));
        ("clientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value));
        ("sourceRevisions",
          (Option.map x.sourceRevisions
             ~f:SourceRevisionOverrideList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceRevisions =
        (Option.map ~f:SourceRevisionOverrideList.of_xml)
          (Xml.child xml_arg0 "sourceRevisions") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "clientRequestToken") in
      let variables =
        (Option.map ~f:PipelineVariableList.of_xml)
          (Xml.child xml_arg0 "variables") in
      let name =
        PipelineName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?sourceRevisions ?clientRequestToken ?variables ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceRevisions =
        field_map json__ "sourceRevisions" SourceRevisionOverrideList.of_json in
      let clientRequestToken =
        field_map json__ "clientRequestToken" ClientRequestToken.of_json in
      let variables =
        field_map json__ "variables" PipelineVariableList.of_json in
      let name = field_map_exn json__ "name" PipelineName.of_json in
      make ?sourceRevisions ?clientRequestToken ?variables ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a StartPipelineExecution action."]
module RollbackStageOutput =
  struct
    type nonrec t =
      {
      pipelineExecutionId: PipelineExecutionId.t option
        [@ocaml.doc
          "The execution ID of the pipeline execution for the stage that has been rolled back."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `PipelineExecutionNotFoundException of
          PipelineExecutionNotFoundException.t 
      | `PipelineExecutionOutdatedException of
          PipelineExecutionOutdatedException.t 
      | `PipelineNotFoundException of PipelineNotFoundException.t 
      | `StageNotFoundException of StageNotFoundException.t 
      | `UnableToRollbackStageException of UnableToRollbackStageException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pipelineExecutionId = fun () -> { pipelineExecutionId }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "PipelineExecutionNotFoundException" ->
          `PipelineExecutionNotFoundException
            (PipelineExecutionNotFoundException.of_json json)
      | "PipelineExecutionOutdatedException" ->
          `PipelineExecutionOutdatedException
            (PipelineExecutionOutdatedException.of_json json)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_json json)
      | "StageNotFoundException" ->
          `StageNotFoundException (StageNotFoundException.of_json json)
      | "UnableToRollbackStageException" ->
          `UnableToRollbackStageException
            (UnableToRollbackStageException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "PipelineExecutionNotFoundException" ->
          `PipelineExecutionNotFoundException
            (PipelineExecutionNotFoundException.of_xml xml)
      | "PipelineExecutionOutdatedException" ->
          `PipelineExecutionOutdatedException
            (PipelineExecutionOutdatedException.of_xml xml)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_xml xml)
      | "StageNotFoundException" ->
          `StageNotFoundException (StageNotFoundException.of_xml xml)
      | "UnableToRollbackStageException" ->
          `UnableToRollbackStageException
            (UnableToRollbackStageException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `PipelineExecutionNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineExecutionNotFoundException"));
            ("details", (PipelineExecutionNotFoundException.to_json e))]
      | `PipelineExecutionOutdatedException e ->
          `Assoc
            [("error", (`String "PipelineExecutionOutdatedException"));
            ("details", (PipelineExecutionOutdatedException.to_json e))]
      | `PipelineNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineNotFoundException"));
            ("details", (PipelineNotFoundException.to_json e))]
      | `StageNotFoundException e ->
          `Assoc
            [("error", (`String "StageNotFoundException"));
            ("details", (StageNotFoundException.to_json e))]
      | `UnableToRollbackStageException e ->
          `Assoc
            [("error", (`String "UnableToRollbackStageException"));
            ("details", (UnableToRollbackStageException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("pipelineExecutionId",
           (Option.map x.pipelineExecutionId ~f:PipelineExecutionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pipelineExecutionId =
        (Option.map ~f:PipelineExecutionId.of_xml)
          (Xml.child xml_arg0 "pipelineExecutionId") in
      make ?pipelineExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pipelineExecutionId =
        field_map json__ "pipelineExecutionId" PipelineExecutionId.of_json in
      make ?pipelineExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Rolls back a stage execution."]
module RollbackStageInput =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t
        [@ocaml.doc
          "The name of the pipeline for which the stage will be rolled back."];
      stageName: StageName.t
        [@ocaml.doc
          "The name of the stage in the pipeline to be rolled back."];
      targetPipelineExecutionId: PipelineExecutionId.t
        [@ocaml.doc
          "The pipeline execution ID for the stage to be rolled back to."]}
    let context_ = "RollbackStageInput"
    let make ~pipelineName =
      fun ~stageName ->
        fun ~targetPipelineExecutionId ->
          fun () -> { pipelineName; stageName; targetPipelineExecutionId }
    let to_value x =
      structure_to_value
        [("pipelineName", (Some (PipelineName.to_value x.pipelineName)));
        ("stageName", (Some (StageName.to_value x.stageName)));
        ("targetPipelineExecutionId",
          (Some (PipelineExecutionId.to_value x.targetPipelineExecutionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetPipelineExecutionId =
        PipelineExecutionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "targetPipelineExecutionId") in
      let stageName =
        StageName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "stageName") in
      let pipelineName =
        PipelineName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineName") in
      make ~targetPipelineExecutionId ~stageName ~pipelineName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetPipelineExecutionId =
        field_map_exn json__ "targetPipelineExecutionId"
          PipelineExecutionId.of_json in
      let stageName = field_map_exn json__ "stageName" StageName.of_json in
      let pipelineName =
        field_map_exn json__ "pipelineName" PipelineName.of_json in
      make ~targetPipelineExecutionId ~stageName ~pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Rolls back a stage execution."]
module RetryStageExecutionOutput =
  struct
    type nonrec t =
      {
      pipelineExecutionId: PipelineExecutionId.t option
        [@ocaml.doc
          "The ID of the current workflow execution in the failed stage."]}
    type nonrec error =
      [
        `ConcurrentPipelineExecutionsLimitExceededException of
          ConcurrentPipelineExecutionsLimitExceededException.t 
      | `ConflictException of ConflictException.t 
      | `NotLatestPipelineExecutionException of
          NotLatestPipelineExecutionException.t 
      | `PipelineNotFoundException of PipelineNotFoundException.t 
      | `StageNotFoundException of StageNotFoundException.t 
      | `StageNotRetryableException of StageNotRetryableException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pipelineExecutionId = fun () -> { pipelineExecutionId }
    let error_of_json name json =
      match name with
      | "ConcurrentPipelineExecutionsLimitExceededException" ->
          `ConcurrentPipelineExecutionsLimitExceededException
            (ConcurrentPipelineExecutionsLimitExceededException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "NotLatestPipelineExecutionException" ->
          `NotLatestPipelineExecutionException
            (NotLatestPipelineExecutionException.of_json json)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_json json)
      | "StageNotFoundException" ->
          `StageNotFoundException (StageNotFoundException.of_json json)
      | "StageNotRetryableException" ->
          `StageNotRetryableException
            (StageNotRetryableException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentPipelineExecutionsLimitExceededException" ->
          `ConcurrentPipelineExecutionsLimitExceededException
            (ConcurrentPipelineExecutionsLimitExceededException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "NotLatestPipelineExecutionException" ->
          `NotLatestPipelineExecutionException
            (NotLatestPipelineExecutionException.of_xml xml)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_xml xml)
      | "StageNotFoundException" ->
          `StageNotFoundException (StageNotFoundException.of_xml xml)
      | "StageNotRetryableException" ->
          `StageNotRetryableException (StageNotRetryableException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentPipelineExecutionsLimitExceededException e ->
          `Assoc
            [("error",
               (`String "ConcurrentPipelineExecutionsLimitExceededException"));
            ("details",
              (ConcurrentPipelineExecutionsLimitExceededException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `NotLatestPipelineExecutionException e ->
          `Assoc
            [("error", (`String "NotLatestPipelineExecutionException"));
            ("details", (NotLatestPipelineExecutionException.to_json e))]
      | `PipelineNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineNotFoundException"));
            ("details", (PipelineNotFoundException.to_json e))]
      | `StageNotFoundException e ->
          `Assoc
            [("error", (`String "StageNotFoundException"));
            ("details", (StageNotFoundException.to_json e))]
      | `StageNotRetryableException e ->
          `Assoc
            [("error", (`String "StageNotRetryableException"));
            ("details", (StageNotRetryableException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("pipelineExecutionId",
           (Option.map x.pipelineExecutionId ~f:PipelineExecutionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pipelineExecutionId =
        (Option.map ~f:PipelineExecutionId.of_xml)
          (Xml.child xml_arg0 "pipelineExecutionId") in
      make ?pipelineExecutionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pipelineExecutionId =
        field_map json__ "pipelineExecutionId" PipelineExecutionId.of_json in
      make ?pipelineExecutionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a RetryStageExecution action."]
module RetryStageExecutionInput =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t
        [@ocaml.doc
          "The name of the pipeline that contains the failed stage."];
      stageName: StageName.t
        [@ocaml.doc "The name of the failed stage to be retried."];
      pipelineExecutionId: PipelineExecutionId.t
        [@ocaml.doc
          "The ID of the pipeline execution in the failed stage to be retried. Use the GetPipelineState action to retrieve the current pipelineExecutionId of the failed stage"];
      retryMode: StageRetryMode.t
        [@ocaml.doc "The scope of the retry attempt."]}
    let context_ = "RetryStageExecutionInput"
    let make ~pipelineName =
      fun ~stageName ->
        fun ~pipelineExecutionId ->
          fun ~retryMode ->
            fun () ->
              { pipelineName; stageName; pipelineExecutionId; retryMode }
    let to_value x =
      structure_to_value
        [("pipelineName", (Some (PipelineName.to_value x.pipelineName)));
        ("stageName", (Some (StageName.to_value x.stageName)));
        ("pipelineExecutionId",
          (Some (PipelineExecutionId.to_value x.pipelineExecutionId)));
        ("retryMode", (Some (StageRetryMode.to_value x.retryMode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryMode =
        StageRetryMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "retryMode") in
      let pipelineExecutionId =
        PipelineExecutionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineExecutionId") in
      let stageName =
        StageName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "stageName") in
      let pipelineName =
        PipelineName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineName") in
      make ~retryMode ~pipelineExecutionId ~stageName ~pipelineName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryMode = field_map_exn json__ "retryMode" StageRetryMode.of_json in
      let pipelineExecutionId =
        field_map_exn json__ "pipelineExecutionId"
          PipelineExecutionId.of_json in
      let stageName = field_map_exn json__ "stageName" StageName.of_json in
      let pipelineName =
        field_map_exn json__ "pipelineName" PipelineName.of_json in
      make ~retryMode ~pipelineExecutionId ~stageName ~pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a RetryStageExecution action."]
module RequestFailedException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request failed because of an unknown error, exception, or failure."]
module RegisterWebhookWithThirdPartyOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ValidationException of ValidationException.t 
      | `WebhookNotFoundException of WebhookNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | "WebhookNotFoundException" ->
          `WebhookNotFoundException (WebhookNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | "WebhookNotFoundException" ->
          `WebhookNotFoundException (WebhookNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `WebhookNotFoundException e ->
          `Assoc
            [("error", (`String "WebhookNotFoundException"));
            ("details", (WebhookNotFoundException.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
       "Configures a connection between the webhook that was created and the external tool with events to be detected."]
module RegisterWebhookWithThirdPartyInput =
  struct
    type nonrec t =
      {
      webhookName: WebhookName.t option
        [@ocaml.doc
          "The name of an existing webhook created with PutWebhook to register with a supported third party."]}
    let make ?webhookName = fun () -> { webhookName }
    let to_value x =
      structure_to_value
        [("webhookName", (Option.map x.webhookName ~f:WebhookName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhookName =
        (Option.map ~f:WebhookName.of_xml) (Xml.child xml_arg0 "webhookName") in
      make ?webhookName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhookName = field_map json__ "webhookName" WebhookName.of_json in
      make ?webhookName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configures a connection between the webhook that was created and the external tool with events to be detected."]
module PutWebhookOutput =
  struct
    type nonrec t =
      {
      webhook: ListWebhookItem.t option
        [@ocaml.doc
          "The detail returned from creating the webhook, such as the webhook name, webhook URL, and webhook ARN."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidTagsException of InvalidTagsException.t 
      | `InvalidWebhookAuthenticationParametersException of
          InvalidWebhookAuthenticationParametersException.t 
      | `InvalidWebhookFilterPatternException of
          InvalidWebhookFilterPatternException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `PipelineNotFoundException of PipelineNotFoundException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?webhook = fun () -> { webhook }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidTagsException" ->
          `InvalidTagsException (InvalidTagsException.of_json json)
      | "InvalidWebhookAuthenticationParametersException" ->
          `InvalidWebhookAuthenticationParametersException
            (InvalidWebhookAuthenticationParametersException.of_json json)
      | "InvalidWebhookFilterPatternException" ->
          `InvalidWebhookFilterPatternException
            (InvalidWebhookFilterPatternException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidTagsException" ->
          `InvalidTagsException (InvalidTagsException.of_xml xml)
      | "InvalidWebhookAuthenticationParametersException" ->
          `InvalidWebhookAuthenticationParametersException
            (InvalidWebhookAuthenticationParametersException.of_xml xml)
      | "InvalidWebhookFilterPatternException" ->
          `InvalidWebhookFilterPatternException
            (InvalidWebhookFilterPatternException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidTagsException e ->
          `Assoc
            [("error", (`String "InvalidTagsException"));
            ("details", (InvalidTagsException.to_json e))]
      | `InvalidWebhookAuthenticationParametersException e ->
          `Assoc
            [("error",
               (`String "InvalidWebhookAuthenticationParametersException"));
            ("details",
              (InvalidWebhookAuthenticationParametersException.to_json e))]
      | `InvalidWebhookFilterPatternException e ->
          `Assoc
            [("error", (`String "InvalidWebhookFilterPatternException"));
            ("details", (InvalidWebhookFilterPatternException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `PipelineNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineNotFoundException"));
            ("details", (PipelineNotFoundException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("webhook", (Option.map x.webhook ~f:ListWebhookItem.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhook =
        (Option.map ~f:ListWebhookItem.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" ListWebhookItem.of_json in
      make ?webhook ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines a webhook and returns a unique webhook URL generated by CodePipeline. This URL can be supplied to third party source hosting providers to call every time there's a code change. When CodePipeline receives a POST request on this URL, the pipeline defined in the webhook is started as long as the POST request satisfied the authentication and filtering requirements supplied when defining the webhook. RegisterWebhookWithThirdParty and DeregisterWebhookWithThirdParty APIs can be used to automatically configure supported third parties to call the generated webhook URL. When creating CodePipeline webhooks, do not use your own credentials or reuse the same secret token across multiple webhooks. For optimal security, generate a unique secret token for each webhook you create. The secret token is an arbitrary string that you provide, which GitHub uses to compute and sign the webhook payloads sent to CodePipeline, for protecting the integrity and authenticity of the webhook payloads. Using your own credentials or reusing the same token across multiple webhooks can lead to security vulnerabilities. If a secret token was provided, it will be redacted in the response."]
module PutWebhookInput =
  struct
    type nonrec t =
      {
      webhook: WebhookDefinition.t
        [@ocaml.doc
          "The detail provided in an input file to create the webhook, such as the webhook name, the pipeline name, and the action name. Give the webhook a unique name that helps you identify it. You might name the webhook after the pipeline and action it targets so that you can easily recognize what it's used for later."];
      tags: TagList.t option [@ocaml.doc "The tags for the webhook."]}
    let context_ = "PutWebhookInput"
    let make ?tags = fun ~webhook -> fun () -> { tags; webhook }
    let to_value x =
      structure_to_value
        [("webhook", (Some (WebhookDefinition.to_value x.webhook)));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let webhook =
        WebhookDefinition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "webhook") in
      make ?tags ~webhook ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let webhook = field_map_exn json__ "webhook" WebhookDefinition.of_json in
      make ?tags ~webhook ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines a webhook and returns a unique webhook URL generated by CodePipeline. This URL can be supplied to third party source hosting providers to call every time there's a code change. When CodePipeline receives a POST request on this URL, the pipeline defined in the webhook is started as long as the POST request satisfied the authentication and filtering requirements supplied when defining the webhook. RegisterWebhookWithThirdParty and DeregisterWebhookWithThirdParty APIs can be used to automatically configure supported third parties to call the generated webhook URL. When creating CodePipeline webhooks, do not use your own credentials or reuse the same secret token across multiple webhooks. For optimal security, generate a unique secret token for each webhook you create. The secret token is an arbitrary string that you provide, which GitHub uses to compute and sign the webhook payloads sent to CodePipeline, for protecting the integrity and authenticity of the webhook payloads. Using your own credentials or reusing the same token across multiple webhooks can lead to security vulnerabilities. If a secret token was provided, it will be redacted in the response."]
module PutThirdPartyJobSuccessResultInput =
  struct
    type nonrec t =
      {
      jobId: ThirdPartyJobId.t
        [@ocaml.doc
          "The ID of the job that successfully completed. This is the same ID returned from PollForThirdPartyJobs."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "The clientToken portion of the clientId and clientToken pair used to verify that the calling entity is allowed access to the job and its details."];
      currentRevision: CurrentRevision.t option
        [@ocaml.doc "Represents information about a current revision."];
      continuationToken: ContinuationToken.t option
        [@ocaml.doc
          "A token generated by a job worker, such as a CodeDeploy deployment ID, that a successful job provides to identify a partner action in progress. Future jobs use this token to identify the running instance of the action. It can be reused to return more information about the progress of the partner action. When the action is complete, no continuation token should be supplied."];
      executionDetails: ExecutionDetails.t option
        [@ocaml.doc
          "The details of the actions taken and results produced on an artifact as it passes through stages in the pipeline."]}
    let context_ = "PutThirdPartyJobSuccessResultInput"
    let make ?currentRevision =
      fun ?continuationToken ->
        fun ?executionDetails ->
          fun ~jobId ->
            fun ~clientToken ->
              fun () ->
                {
                  currentRevision;
                  continuationToken;
                  executionDetails;
                  jobId;
                  clientToken
                }
    let to_value x =
      structure_to_value
        [("jobId", (Some (ThirdPartyJobId.to_value x.jobId)));
        ("clientToken", (Some (ClientToken.to_value x.clientToken)));
        ("currentRevision",
          (Option.map x.currentRevision ~f:CurrentRevision.to_value));
        ("continuationToken",
          (Option.map x.continuationToken ~f:ContinuationToken.to_value));
        ("executionDetails",
          (Option.map x.executionDetails ~f:ExecutionDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let executionDetails =
        (Option.map ~f:ExecutionDetails.of_xml)
          (Xml.child xml_arg0 "executionDetails") in
      let continuationToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "continuationToken") in
      let currentRevision =
        (Option.map ~f:CurrentRevision.of_xml)
          (Xml.child xml_arg0 "currentRevision") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      let jobId =
        ThirdPartyJobId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ?executionDetails ?continuationToken ?currentRevision ~clientToken
        ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let executionDetails =
        field_map json__ "executionDetails" ExecutionDetails.of_json in
      let continuationToken =
        field_map json__ "continuationToken" ContinuationToken.of_json in
      let currentRevision =
        field_map json__ "currentRevision" CurrentRevision.of_json in
      let clientToken =
        field_map_exn json__ "clientToken" ClientToken.of_json in
      let jobId = field_map_exn json__ "jobId" ThirdPartyJobId.of_json in
      make ?executionDetails ?continuationToken ?currentRevision ~clientToken
        ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the input of a PutThirdPartyJobSuccessResult action."]
module PutThirdPartyJobFailureResultInput =
  struct
    type nonrec t =
      {
      jobId: ThirdPartyJobId.t
        [@ocaml.doc
          "The ID of the job that failed. This is the same ID returned from PollForThirdPartyJobs."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "The clientToken portion of the clientId and clientToken pair used to verify that the calling entity is allowed access to the job and its details."];
      failureDetails: FailureDetails.t
        [@ocaml.doc "Represents information about failure details."]}
    let context_ = "PutThirdPartyJobFailureResultInput"
    let make ~jobId =
      fun ~clientToken ->
        fun ~failureDetails ->
          fun () -> { jobId; clientToken; failureDetails }
    let to_value x =
      structure_to_value
        [("jobId", (Some (ThirdPartyJobId.to_value x.jobId)));
        ("clientToken", (Some (ClientToken.to_value x.clientToken)));
        ("failureDetails", (Some (FailureDetails.to_value x.failureDetails)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureDetails =
        FailureDetails.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "failureDetails") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      let jobId =
        ThirdPartyJobId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ~failureDetails ~clientToken ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureDetails =
        field_map_exn json__ "failureDetails" FailureDetails.of_json in
      let clientToken =
        field_map_exn json__ "clientToken" ClientToken.of_json in
      let jobId = field_map_exn json__ "jobId" ThirdPartyJobId.of_json in
      make ~failureDetails ~clientToken ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the input of a PutThirdPartyJobFailureResult action."]
module PutJobSuccessResultInput =
  struct
    type nonrec t =
      {
      jobId: JobId.t
        [@ocaml.doc
          "The unique system-generated ID of the job that succeeded. This is the same ID returned from PollForJobs."];
      currentRevision: CurrentRevision.t option
        [@ocaml.doc
          "The ID of the current revision of the artifact successfully worked on by the job."];
      continuationToken: ContinuationToken.t option
        [@ocaml.doc
          "A token generated by a job worker, such as a CodeDeploy deployment ID, that a successful job provides to identify a custom action in progress. Future jobs use this token to identify the running instance of the action. It can be reused to return more information about the progress of the custom action. When the action is complete, no continuation token should be supplied."];
      executionDetails: ExecutionDetails.t option
        [@ocaml.doc
          "The execution details of the successful job, such as the actions taken by the job worker."];
      outputVariables: OutputVariablesMap.t option
        [@ocaml.doc
          "Key-value pairs produced as output by a job worker that can be made available to a downstream action configuration. outputVariables can be included only when there is no continuation token on the request."]}
    let context_ = "PutJobSuccessResultInput"
    let make ?currentRevision =
      fun ?continuationToken ->
        fun ?executionDetails ->
          fun ?outputVariables ->
            fun ~jobId ->
              fun () ->
                {
                  currentRevision;
                  continuationToken;
                  executionDetails;
                  outputVariables;
                  jobId
                }
    let to_value x =
      structure_to_value
        [("jobId", (Some (JobId.to_value x.jobId)));
        ("currentRevision",
          (Option.map x.currentRevision ~f:CurrentRevision.to_value));
        ("continuationToken",
          (Option.map x.continuationToken ~f:ContinuationToken.to_value));
        ("executionDetails",
          (Option.map x.executionDetails ~f:ExecutionDetails.to_value));
        ("outputVariables",
          (Option.map x.outputVariables ~f:OutputVariablesMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outputVariables =
        (Option.map ~f:OutputVariablesMap.of_xml)
          (Xml.child xml_arg0 "outputVariables") in
      let executionDetails =
        (Option.map ~f:ExecutionDetails.of_xml)
          (Xml.child xml_arg0 "executionDetails") in
      let continuationToken =
        (Option.map ~f:ContinuationToken.of_xml)
          (Xml.child xml_arg0 "continuationToken") in
      let currentRevision =
        (Option.map ~f:CurrentRevision.of_xml)
          (Xml.child xml_arg0 "currentRevision") in
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ?outputVariables ?executionDetails ?continuationToken
        ?currentRevision ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outputVariables =
        field_map json__ "outputVariables" OutputVariablesMap.of_json in
      let executionDetails =
        field_map json__ "executionDetails" ExecutionDetails.of_json in
      let continuationToken =
        field_map json__ "continuationToken" ContinuationToken.of_json in
      let currentRevision =
        field_map json__ "currentRevision" CurrentRevision.of_json in
      let jobId = field_map_exn json__ "jobId" JobId.of_json in
      make ?outputVariables ?executionDetails ?continuationToken
        ?currentRevision ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a PutJobSuccessResult action."]
module PutJobFailureResultInput =
  struct
    type nonrec t =
      {
      jobId: JobId.t
        [@ocaml.doc
          "The unique system-generated ID of the job that failed. This is the same ID returned from PollForJobs."];
      failureDetails: FailureDetails.t
        [@ocaml.doc "The details about the failure of a job."]}
    let context_ = "PutJobFailureResultInput"
    let make ~jobId =
      fun ~failureDetails -> fun () -> { jobId; failureDetails }
    let to_value x =
      structure_to_value
        [("jobId", (Some (JobId.to_value x.jobId)));
        ("failureDetails", (Some (FailureDetails.to_value x.failureDetails)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureDetails =
        FailureDetails.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "failureDetails") in
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ~failureDetails ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureDetails =
        field_map_exn json__ "failureDetails" FailureDetails.of_json in
      let jobId = field_map_exn json__ "jobId" JobId.of_json in
      make ~failureDetails ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a PutJobFailureResult action."]
module PutApprovalResultOutput =
  struct
    type nonrec t =
      {
      approvedAt: Timestamp.t option
        [@ocaml.doc
          "The timestamp showing when the approval or rejection was submitted."]}
    type nonrec error =
      [ `ActionNotFoundException of ActionNotFoundException.t 
      | `ApprovalAlreadyCompletedException of
          ApprovalAlreadyCompletedException.t 
      | `InvalidApprovalTokenException of InvalidApprovalTokenException.t 
      | `PipelineNotFoundException of PipelineNotFoundException.t 
      | `StageNotFoundException of StageNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?approvedAt = fun () -> { approvedAt }
    let error_of_json name json =
      match name with
      | "ActionNotFoundException" ->
          `ActionNotFoundException (ActionNotFoundException.of_json json)
      | "ApprovalAlreadyCompletedException" ->
          `ApprovalAlreadyCompletedException
            (ApprovalAlreadyCompletedException.of_json json)
      | "InvalidApprovalTokenException" ->
          `InvalidApprovalTokenException
            (InvalidApprovalTokenException.of_json json)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_json json)
      | "StageNotFoundException" ->
          `StageNotFoundException (StageNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ActionNotFoundException" ->
          `ActionNotFoundException (ActionNotFoundException.of_xml xml)
      | "ApprovalAlreadyCompletedException" ->
          `ApprovalAlreadyCompletedException
            (ApprovalAlreadyCompletedException.of_xml xml)
      | "InvalidApprovalTokenException" ->
          `InvalidApprovalTokenException
            (InvalidApprovalTokenException.of_xml xml)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_xml xml)
      | "StageNotFoundException" ->
          `StageNotFoundException (StageNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ActionNotFoundException e ->
          `Assoc
            [("error", (`String "ActionNotFoundException"));
            ("details", (ActionNotFoundException.to_json e))]
      | `ApprovalAlreadyCompletedException e ->
          `Assoc
            [("error", (`String "ApprovalAlreadyCompletedException"));
            ("details", (ApprovalAlreadyCompletedException.to_json e))]
      | `InvalidApprovalTokenException e ->
          `Assoc
            [("error", (`String "InvalidApprovalTokenException"));
            ("details", (InvalidApprovalTokenException.to_json e))]
      | `PipelineNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineNotFoundException"));
            ("details", (PipelineNotFoundException.to_json e))]
      | `StageNotFoundException e ->
          `Assoc
            [("error", (`String "StageNotFoundException"));
            ("details", (StageNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("approvedAt", (Option.map x.approvedAt ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "approvedAt") in
      make ?approvedAt ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvedAt = field_map json__ "approvedAt" Timestamp.of_json in
      make ?approvedAt ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a PutApprovalResult action."]
module PutApprovalResultInput =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t
        [@ocaml.doc "The name of the pipeline that contains the action."];
      stageName: StageName.t
        [@ocaml.doc "The name of the stage that contains the action."];
      actionName: ActionName.t
        [@ocaml.doc
          "The name of the action for which approval is requested."];
      result: ApprovalResult.t
        [@ocaml.doc
          "Represents information about the result of the approval request."];
      token: ApprovalToken.t
        [@ocaml.doc
          "The system-generated token used to identify a unique approval request. The token for each open approval request can be obtained using the GetPipelineState action. It is used to validate that the approval request corresponding to this token is still valid. For a pipeline where the execution mode is set to PARALLEL, the token required to approve/reject an approval request as detailed above is not available. Instead, use the externalExecutionId in the response output from the ListActionExecutions action as the token in the approval request."]}
    let context_ = "PutApprovalResultInput"
    let make ~pipelineName =
      fun ~stageName ->
        fun ~actionName ->
          fun ~result ->
            fun ~token ->
              fun () ->
                { pipelineName; stageName; actionName; result; token }
    let to_value x =
      structure_to_value
        [("pipelineName", (Some (PipelineName.to_value x.pipelineName)));
        ("stageName", (Some (StageName.to_value x.stageName)));
        ("actionName", (Some (ActionName.to_value x.actionName)));
        ("result", (Some (ApprovalResult.to_value x.result)));
        ("token", (Some (ApprovalToken.to_value x.token)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let token =
        ApprovalToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "token") in
      let result =
        ApprovalResult.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "result") in
      let actionName =
        ActionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "actionName") in
      let stageName =
        StageName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "stageName") in
      let pipelineName =
        PipelineName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineName") in
      make ~token ~result ~actionName ~stageName ~pipelineName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let token = field_map_exn json__ "token" ApprovalToken.of_json in
      let result = field_map_exn json__ "result" ApprovalResult.of_json in
      let actionName = field_map_exn json__ "actionName" ActionName.of_json in
      let stageName = field_map_exn json__ "stageName" StageName.of_json in
      let pipelineName =
        field_map_exn json__ "pipelineName" PipelineName.of_json in
      make ~token ~result ~actionName ~stageName ~pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a PutApprovalResult action."]
module PutActionRevisionOutput =
  struct
    type nonrec t =
      {
      newRevision: Boolean.t option
        [@ocaml.doc
          "Indicates whether the artifact revision was previously used in an execution of the specified pipeline."];
      pipelineExecutionId: PipelineExecutionId.t option
        [@ocaml.doc "The ID of the current workflow state of the pipeline."]}
    type nonrec error =
      [ `ActionNotFoundException of ActionNotFoundException.t 
      | `ConcurrentPipelineExecutionsLimitExceededException of
          ConcurrentPipelineExecutionsLimitExceededException.t 
      | `PipelineNotFoundException of PipelineNotFoundException.t 
      | `StageNotFoundException of StageNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?newRevision =
      fun ?pipelineExecutionId ->
        fun () -> { newRevision; pipelineExecutionId }
    let error_of_json name json =
      match name with
      | "ActionNotFoundException" ->
          `ActionNotFoundException (ActionNotFoundException.of_json json)
      | "ConcurrentPipelineExecutionsLimitExceededException" ->
          `ConcurrentPipelineExecutionsLimitExceededException
            (ConcurrentPipelineExecutionsLimitExceededException.of_json json)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_json json)
      | "StageNotFoundException" ->
          `StageNotFoundException (StageNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ActionNotFoundException" ->
          `ActionNotFoundException (ActionNotFoundException.of_xml xml)
      | "ConcurrentPipelineExecutionsLimitExceededException" ->
          `ConcurrentPipelineExecutionsLimitExceededException
            (ConcurrentPipelineExecutionsLimitExceededException.of_xml xml)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_xml xml)
      | "StageNotFoundException" ->
          `StageNotFoundException (StageNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ActionNotFoundException e ->
          `Assoc
            [("error", (`String "ActionNotFoundException"));
            ("details", (ActionNotFoundException.to_json e))]
      | `ConcurrentPipelineExecutionsLimitExceededException e ->
          `Assoc
            [("error",
               (`String "ConcurrentPipelineExecutionsLimitExceededException"));
            ("details",
              (ConcurrentPipelineExecutionsLimitExceededException.to_json e))]
      | `PipelineNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineNotFoundException"));
            ("details", (PipelineNotFoundException.to_json e))]
      | `StageNotFoundException e ->
          `Assoc
            [("error", (`String "StageNotFoundException"));
            ("details", (StageNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("newRevision", (Option.map x.newRevision ~f:Boolean.to_value));
        ("pipelineExecutionId",
          (Option.map x.pipelineExecutionId ~f:PipelineExecutionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pipelineExecutionId =
        (Option.map ~f:PipelineExecutionId.of_xml)
          (Xml.child xml_arg0 "pipelineExecutionId") in
      let newRevision =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "newRevision") in
      make ?pipelineExecutionId ?newRevision ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pipelineExecutionId =
        field_map json__ "pipelineExecutionId" PipelineExecutionId.of_json in
      let newRevision = field_map json__ "newRevision" Boolean.of_json in
      make ?pipelineExecutionId ?newRevision ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a PutActionRevision action."]
module PutActionRevisionInput =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t
        [@ocaml.doc
          "The name of the pipeline that starts processing the revision to the source."];
      stageName: StageName.t
        [@ocaml.doc
          "The name of the stage that contains the action that acts on the revision."];
      actionName: ActionName.t
        [@ocaml.doc "The name of the action that processes the revision."];
      actionRevision: ActionRevision.t
        [@ocaml.doc
          "Represents information about the version (or revision) of an action."]}
    let context_ = "PutActionRevisionInput"
    let make ~pipelineName =
      fun ~stageName ->
        fun ~actionName ->
          fun ~actionRevision ->
            fun () -> { pipelineName; stageName; actionName; actionRevision }
    let to_value x =
      structure_to_value
        [("pipelineName", (Some (PipelineName.to_value x.pipelineName)));
        ("stageName", (Some (StageName.to_value x.stageName)));
        ("actionName", (Some (ActionName.to_value x.actionName)));
        ("actionRevision", (Some (ActionRevision.to_value x.actionRevision)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let actionRevision =
        ActionRevision.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "actionRevision") in
      let actionName =
        ActionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "actionName") in
      let stageName =
        StageName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "stageName") in
      let pipelineName =
        PipelineName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineName") in
      make ~actionRevision ~actionName ~stageName ~pipelineName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let actionRevision =
        field_map_exn json__ "actionRevision" ActionRevision.of_json in
      let actionName = field_map_exn json__ "actionName" ActionName.of_json in
      let stageName = field_map_exn json__ "stageName" StageName.of_json in
      let pipelineName =
        field_map_exn json__ "pipelineName" PipelineName.of_json in
      make ~actionRevision ~actionName ~stageName ~pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a PutActionRevision action."]
module PollForThirdPartyJobsOutput =
  struct
    type nonrec t =
      {
      jobs: ThirdPartyJobList.t option
        [@ocaml.doc "Information about the jobs to take action on."]}
    type nonrec error =
      [ `ActionTypeNotFoundException of ActionTypeNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobs = fun () -> { jobs }
    let error_of_json name json =
      match name with
      | "ActionTypeNotFoundException" ->
          `ActionTypeNotFoundException
            (ActionTypeNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ActionTypeNotFoundException" ->
          `ActionTypeNotFoundException
            (ActionTypeNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ActionTypeNotFoundException e ->
          `Assoc
            [("error", (`String "ActionTypeNotFoundException"));
            ("details", (ActionTypeNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("jobs", (Option.map x.jobs ~f:ThirdPartyJobList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobs =
        (Option.map ~f:ThirdPartyJobList.of_xml) (Xml.child xml_arg0 "jobs") in
      make ?jobs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobs = field_map json__ "jobs" ThirdPartyJobList.of_json in
      make ?jobs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a PollForThirdPartyJobs action."]
module PollForThirdPartyJobsInput =
  struct
    type nonrec t =
      {
      actionTypeId: ActionTypeId.t
        [@ocaml.doc "Represents information about an action type."];
      maxBatchSize: MaxBatchSize.t option
        [@ocaml.doc
          "The maximum number of jobs to return in a poll for jobs call."]}
    let context_ = "PollForThirdPartyJobsInput"
    let make ?maxBatchSize =
      fun ~actionTypeId -> fun () -> { maxBatchSize; actionTypeId }
    let to_value x =
      structure_to_value
        [("actionTypeId", (Some (ActionTypeId.to_value x.actionTypeId)));
        ("maxBatchSize",
          (Option.map x.maxBatchSize ~f:MaxBatchSize.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxBatchSize =
        (Option.map ~f:MaxBatchSize.of_xml)
          (Xml.child xml_arg0 "maxBatchSize") in
      let actionTypeId =
        ActionTypeId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "actionTypeId") in
      make ?maxBatchSize ~actionTypeId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxBatchSize = field_map json__ "maxBatchSize" MaxBatchSize.of_json in
      let actionTypeId =
        field_map_exn json__ "actionTypeId" ActionTypeId.of_json in
      make ?maxBatchSize ~actionTypeId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a PollForThirdPartyJobs action."]
module PollForJobsOutput =
  struct
    type nonrec t =
      {
      jobs: JobList.t option
        [@ocaml.doc "Information about the jobs to take action on."]}
    type nonrec error =
      [ `ActionTypeNotFoundException of ActionTypeNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobs = fun () -> { jobs }
    let error_of_json name json =
      match name with
      | "ActionTypeNotFoundException" ->
          `ActionTypeNotFoundException
            (ActionTypeNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ActionTypeNotFoundException" ->
          `ActionTypeNotFoundException
            (ActionTypeNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ActionTypeNotFoundException e ->
          `Assoc
            [("error", (`String "ActionTypeNotFoundException"));
            ("details", (ActionTypeNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("jobs", (Option.map x.jobs ~f:JobList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobs = (Option.map ~f:JobList.of_xml) (Xml.child xml_arg0 "jobs") in
      make ?jobs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobs = field_map json__ "jobs" JobList.of_json in make ?jobs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a PollForJobs action."]
module PollForJobsInput =
  struct
    type nonrec t =
      {
      actionTypeId: ActionTypeId.t
        [@ocaml.doc "Represents information about an action type."];
      maxBatchSize: MaxBatchSize.t option
        [@ocaml.doc
          "The maximum number of jobs to return in a poll for jobs call."];
      queryParam: QueryParamMap.t option
        [@ocaml.doc
          "A map of property names and values. For an action type with no queryable properties, this value must be null or an empty map. For an action type with a queryable property, you must supply that property as a key in the map. Only jobs whose action configuration matches the mapped value are returned."]}
    let context_ = "PollForJobsInput"
    let make ?maxBatchSize =
      fun ?queryParam ->
        fun ~actionTypeId ->
          fun () -> { maxBatchSize; queryParam; actionTypeId }
    let to_value x =
      structure_to_value
        [("actionTypeId", (Some (ActionTypeId.to_value x.actionTypeId)));
        ("maxBatchSize",
          (Option.map x.maxBatchSize ~f:MaxBatchSize.to_value));
        ("queryParam", (Option.map x.queryParam ~f:QueryParamMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let queryParam =
        (Option.map ~f:QueryParamMap.of_xml)
          (Xml.child xml_arg0 "queryParam") in
      let maxBatchSize =
        (Option.map ~f:MaxBatchSize.of_xml)
          (Xml.child xml_arg0 "maxBatchSize") in
      let actionTypeId =
        ActionTypeId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "actionTypeId") in
      make ?queryParam ?maxBatchSize ~actionTypeId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let queryParam = field_map json__ "queryParam" QueryParamMap.of_json in
      let maxBatchSize = field_map json__ "maxBatchSize" MaxBatchSize.of_json in
      let actionTypeId =
        field_map_exn json__ "actionTypeId" ActionTypeId.of_json in
      make ?queryParam ?maxBatchSize ~actionTypeId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a PollForJobs action."]
module OverrideStageConditionInput =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t
        [@ocaml.doc
          "The name of the pipeline with the stage that will override the condition."];
      stageName: StageName.t
        [@ocaml.doc "The name of the stage for the override."];
      pipelineExecutionId: PipelineExecutionId.t
        [@ocaml.doc "The ID of the pipeline execution for the override."];
      conditionType: ConditionType.t
        [@ocaml.doc
          "The type of condition to override for the stage, such as entry conditions, failure conditions, or success conditions."]}
    let context_ = "OverrideStageConditionInput"
    let make ~pipelineName =
      fun ~stageName ->
        fun ~pipelineExecutionId ->
          fun ~conditionType ->
            fun () ->
              { pipelineName; stageName; pipelineExecutionId; conditionType }
    let to_value x =
      structure_to_value
        [("pipelineName", (Some (PipelineName.to_value x.pipelineName)));
        ("stageName", (Some (StageName.to_value x.stageName)));
        ("pipelineExecutionId",
          (Some (PipelineExecutionId.to_value x.pipelineExecutionId)));
        ("conditionType", (Some (ConditionType.to_value x.conditionType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conditionType =
        ConditionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "conditionType") in
      let pipelineExecutionId =
        PipelineExecutionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineExecutionId") in
      let stageName =
        StageName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "stageName") in
      let pipelineName =
        PipelineName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineName") in
      make ~conditionType ~pipelineExecutionId ~stageName ~pipelineName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conditionType =
        field_map_exn json__ "conditionType" ConditionType.of_json in
      let pipelineExecutionId =
        field_map_exn json__ "pipelineExecutionId"
          PipelineExecutionId.of_json in
      let stageName = field_map_exn json__ "stageName" StageName.of_json in
      let pipelineName =
        field_map_exn json__ "pipelineName" PipelineName.of_json in
      make ~conditionType ~pipelineExecutionId ~stageName ~pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Used to override a stage condition. For more information about conditions, see Stage conditions and How do stage conditions work?."]
module OutputVariablesSizeExceededException =
  struct
    type nonrec t = {
      message: Message.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" Message.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exceeded the total size limit for all variables in the pipeline."]
module ListWebhooksOutput =
  struct
    type nonrec t =
      {
      webhooks: WebhookList.t option
        [@ocaml.doc
          "The JSON detail returned for each webhook in the list output for the ListWebhooks call."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the amount of returned information is significantly large, an identifier is also returned and can be used in a subsequent ListWebhooks call to return the next set of webhooks in the list."]}
    type nonrec error =
      [ `InvalidNextTokenException of InvalidNextTokenException.t 
      | `ValidationException of ValidationException.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
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("webhooks", (Option.map x.webhooks ~f:WebhookList.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:WebhookList.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" WebhookList.of_json in
      make ?nextToken ?webhooks ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a listing of all the webhooks in this Amazon Web Services Region for this account. The output lists all webhooks and includes the webhook URL and ARN and the configuration for each webhook. If a secret token was provided, it will be redacted in the response."]
module ListWebhooksInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token that was returned from the previous ListWebhooks call, which can be used to return the next set of webhooks in the list."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned nextToken value."]}
    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: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
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a listing of all the webhooks in this Amazon Web Services Region for this account. The output lists all webhooks and includes the webhook URL and ARN and the configuration for each webhook. If a secret token was provided, it will be redacted in the response."]
module ListTagsForResourceOutput =
  struct
    type nonrec t =
      {
      tags: TagList.t option [@ocaml.doc "The tags for the resource."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the amount of returned information is significantly large, an identifier is also returned and can be used in a subsequent API call to return the next page of the list. The ListTagsforResource call lists all available tags in one call and does not use pagination."]}
    type nonrec error =
      [ `InvalidArnException of InvalidArnException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun ?nextToken -> fun () -> { tags; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidArnException" ->
          `InvalidArnException (InvalidArnException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidArnException e ->
          `Assoc
            [("error", (`String "InvalidArnException"));
            ("details", (InvalidArnException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("tags", (Option.map x.tags ~f:TagList.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 tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      make ?nextToken ?tags ()
    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 tags = field_map json__ "tags" TagList.of_json in
      make ?nextToken ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the set of key-value pairs (metadata) that are used to manage the resource."]
module ListTagsForResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to get tags for."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token that was returned from the previous API call, which would be used to return the next page of the list. The ListTagsforResource call lists all available tags in one call and does not use pagination."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."]}
    let context_ = "ListTagsForResourceInput"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~resourceArn -> fun () -> { nextToken; maxResults; resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("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 resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ?maxResults ?nextToken ~resourceArn ()
    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 resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ?maxResults ?nextToken ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the set of key-value pairs (metadata) that are used to manage the resource."]
module ListRuleTypesOutput =
  struct
    type nonrec t =
      {
      ruleTypes: RuleTypeList.t option
        [@ocaml.doc "Lists the rules that are configured for the condition."]}
    type nonrec error =
      [ `InvalidNextTokenException of InvalidNextTokenException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ruleTypes = fun () -> { ruleTypes }
    let error_of_json name json =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ruleTypes", (Option.map x.ruleTypes ~f:RuleTypeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ruleTypes =
        (Option.map ~f:RuleTypeList.of_xml) (Xml.child xml_arg0 "ruleTypes") in
      make ?ruleTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ruleTypes = field_map json__ "ruleTypes" RuleTypeList.of_json in
      make ?ruleTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the rules for the condition. For more information about conditions, see Stage conditions and How do stage conditions work?.For more information about rules, see the CodePipeline rule reference."]
module ListRuleTypesInput =
  struct
    type nonrec t =
      {
      ruleOwnerFilter: RuleOwner.t option
        [@ocaml.doc "The rule owner to filter on."];
      regionFilter: AWSRegionName.t option
        [@ocaml.doc "The rule Region to filter on."]}
    let make ?ruleOwnerFilter =
      fun ?regionFilter -> fun () -> { ruleOwnerFilter; regionFilter }
    let to_value x =
      structure_to_value
        [("ruleOwnerFilter",
           (Option.map x.ruleOwnerFilter ~f:RuleOwner.to_value));
        ("regionFilter",
          (Option.map x.regionFilter ~f:AWSRegionName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let regionFilter =
        (Option.map ~f:AWSRegionName.of_xml)
          (Xml.child xml_arg0 "regionFilter") in
      let ruleOwnerFilter =
        (Option.map ~f:RuleOwner.of_xml)
          (Xml.child xml_arg0 "ruleOwnerFilter") in
      make ?regionFilter ?ruleOwnerFilter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let regionFilter =
        field_map json__ "regionFilter" AWSRegionName.of_json in
      let ruleOwnerFilter =
        field_map json__ "ruleOwnerFilter" RuleOwner.of_json in
      make ?regionFilter ?ruleOwnerFilter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the rules for the condition. For more information about conditions, see Stage conditions and How do stage conditions work?.For more information about rules, see the CodePipeline rule reference."]
module ListRuleExecutionsOutput =
  struct
    type nonrec t =
      {
      ruleExecutionDetails: RuleExecutionDetailList.t option
        [@ocaml.doc "Details about the output for listing rule executions."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that can be used in the next ListRuleExecutions call. To view all items in the list, continue to call this operation with each subsequent token until no more nextToken values are returned."]}
    type nonrec error =
      [ `InvalidNextTokenException of InvalidNextTokenException.t 
      | `PipelineExecutionNotFoundException of
          PipelineExecutionNotFoundException.t 
      | `PipelineNotFoundException of PipelineNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ruleExecutionDetails =
      fun ?nextToken -> fun () -> { ruleExecutionDetails; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "PipelineExecutionNotFoundException" ->
          `PipelineExecutionNotFoundException
            (PipelineExecutionNotFoundException.of_json json)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "PipelineExecutionNotFoundException" ->
          `PipelineExecutionNotFoundException
            (PipelineExecutionNotFoundException.of_xml xml)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `PipelineExecutionNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineExecutionNotFoundException"));
            ("details", (PipelineExecutionNotFoundException.to_json e))]
      | `PipelineNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineNotFoundException"));
            ("details", (PipelineNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ruleExecutionDetails",
           (Option.map x.ruleExecutionDetails
              ~f:RuleExecutionDetailList.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 ruleExecutionDetails =
        (Option.map ~f:RuleExecutionDetailList.of_xml)
          (Xml.child xml_arg0 "ruleExecutionDetails") in
      make ?nextToken ?ruleExecutionDetails ()
    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 ruleExecutionDetails =
        field_map json__ "ruleExecutionDetails"
          RuleExecutionDetailList.of_json in
      make ?nextToken ?ruleExecutionDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the rule executions that have occurred in a pipeline configured for conditions with rules."]
module ListRuleExecutionsInput =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t
        [@ocaml.doc
          "The name of the pipeline for which you want to get execution summary information."];
      filter: RuleExecutionFilter.t option
        [@ocaml.doc
          "Input information used to filter rule execution history."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned nextToken value. Pipeline history is limited to the most recent 12 months, based on pipeline execution start times. Default value is 100."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token that was returned from the previous ListRuleExecutions call, which can be used to return the next set of rule executions in the list."]}
    let context_ = "ListRuleExecutionsInput"
    let make ?filter =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~pipelineName ->
            fun () -> { filter; maxResults; nextToken; pipelineName }
    let to_value x =
      structure_to_value
        [("pipelineName", (Some (PipelineName.to_value x.pipelineName)));
        ("filter", (Option.map x.filter ~f:RuleExecutionFilter.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let filter =
        (Option.map ~f:RuleExecutionFilter.of_xml)
          (Xml.child xml_arg0 "filter") in
      let pipelineName =
        PipelineName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineName") in
      make ?nextToken ?maxResults ?filter ~pipelineName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let filter = field_map json__ "filter" RuleExecutionFilter.of_json in
      let pipelineName =
        field_map_exn json__ "pipelineName" PipelineName.of_json in
      make ?nextToken ?maxResults ?filter ~pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the rule executions that have occurred in a pipeline configured for conditions with rules."]
module ListPipelinesOutput =
  struct
    type nonrec t =
      {
      pipelines: PipelineList.t option [@ocaml.doc "The list of pipelines."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the amount of returned information is significantly large, an identifier is also returned. It can be used in a subsequent list pipelines call to return the next set of pipelines in the list."]}
    type nonrec error =
      [ `InvalidNextTokenException of InvalidNextTokenException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pipelines =
      fun ?nextToken -> fun () -> { pipelines; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("pipelines", (Option.map x.pipelines ~f:PipelineList.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 pipelines =
        (Option.map ~f:PipelineList.of_xml) (Xml.child xml_arg0 "pipelines") in
      make ?nextToken ?pipelines ()
    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 pipelines = field_map json__ "pipelines" PipelineList.of_json in
      make ?nextToken ?pipelines ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a ListPipelines action."]
module ListPipelinesInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "An identifier that was returned from the previous list pipelines call. It can be used to return the next set of pipelines in the list."];
      maxResults: MaxPipelines.t option
        [@ocaml.doc
          "The maximum number of pipelines to return in a single call. To retrieve the remaining pipelines, make another call with the returned nextToken value. The minimum value you can specify is 1. The maximum accepted value is 1000."]}
    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:MaxPipelines.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxPipelines.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" MaxPipelines.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 "Represents the input of a ListPipelines action."]
module ListPipelineExecutionsOutput =
  struct
    type nonrec t =
      {
      pipelineExecutionSummaries: PipelineExecutionSummaryList.t option
        [@ocaml.doc "A list of executions in the history of a pipeline."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that can be used in the next ListPipelineExecutions call. To view all items in the list, continue to call this operation with each subsequent token until no more nextToken values are returned."]}
    type nonrec error =
      [ `InvalidNextTokenException of InvalidNextTokenException.t 
      | `PipelineNotFoundException of PipelineNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pipelineExecutionSummaries =
      fun ?nextToken -> fun () -> { pipelineExecutionSummaries; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `PipelineNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineNotFoundException"));
            ("details", (PipelineNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("pipelineExecutionSummaries",
           (Option.map x.pipelineExecutionSummaries
              ~f:PipelineExecutionSummaryList.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 pipelineExecutionSummaries =
        (Option.map ~f:PipelineExecutionSummaryList.of_xml)
          (Xml.child xml_arg0 "pipelineExecutionSummaries") in
      make ?nextToken ?pipelineExecutionSummaries ()
    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 pipelineExecutionSummaries =
        field_map json__ "pipelineExecutionSummaries"
          PipelineExecutionSummaryList.of_json in
      make ?nextToken ?pipelineExecutionSummaries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a ListPipelineExecutions action."]
module ListPipelineExecutionsInput =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t
        [@ocaml.doc
          "The name of the pipeline for which you want to get execution summary information."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned nextToken value. Pipeline history is limited to the most recent 12 months, based on pipeline execution start times. Default value is 100."];
      filter: PipelineExecutionFilter.t option
        [@ocaml.doc "The pipeline execution to filter on."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token that was returned from the previous ListPipelineExecutions call, which can be used to return the next set of pipeline executions in the list."]}
    let context_ = "ListPipelineExecutionsInput"
    let make ?maxResults =
      fun ?filter ->
        fun ?nextToken ->
          fun ~pipelineName ->
            fun () -> { maxResults; filter; nextToken; pipelineName }
    let to_value x =
      structure_to_value
        [("pipelineName", (Some (PipelineName.to_value x.pipelineName)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("filter", (Option.map x.filter ~f:PipelineExecutionFilter.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 filter =
        (Option.map ~f:PipelineExecutionFilter.of_xml)
          (Xml.child xml_arg0 "filter") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let pipelineName =
        PipelineName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineName") in
      make ?nextToken ?filter ?maxResults ~pipelineName ()
    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 filter = field_map json__ "filter" PipelineExecutionFilter.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let pipelineName =
        field_map_exn json__ "pipelineName" PipelineName.of_json in
      make ?nextToken ?filter ?maxResults ~pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a ListPipelineExecutions action."]
module ListDeployActionExecutionTargetsOutput =
  struct
    type nonrec t =
      {
      targets: DeployActionExecutionTargetList.t option
        [@ocaml.doc "The targets for the deploy action."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An identifier that was returned from the previous list action types call, which can be used to return the next set of action types in the list."]}
    type nonrec error =
      [
        `ActionExecutionNotFoundException of
          ActionExecutionNotFoundException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `PipelineNotFoundException of PipelineNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?targets = fun ?nextToken -> fun () -> { targets; nextToken }
    let error_of_json name json =
      match name with
      | "ActionExecutionNotFoundException" ->
          `ActionExecutionNotFoundException
            (ActionExecutionNotFoundException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ActionExecutionNotFoundException" ->
          `ActionExecutionNotFoundException
            (ActionExecutionNotFoundException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ActionExecutionNotFoundException e ->
          `Assoc
            [("error", (`String "ActionExecutionNotFoundException"));
            ("details", (ActionExecutionNotFoundException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `PipelineNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineNotFoundException"));
            ("details", (PipelineNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("targets",
           (Option.map x.targets ~f:DeployActionExecutionTargetList.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 targets =
        (Option.map ~f:DeployActionExecutionTargetList.of_xml)
          (Xml.child xml_arg0 "targets") in
      make ?nextToken ?targets ()
    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 targets =
        field_map json__ "targets" DeployActionExecutionTargetList.of_json in
      make ?nextToken ?targets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the targets for the deploy action."]
module ListDeployActionExecutionTargetsInput =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t option
        [@ocaml.doc "The name of the pipeline with the deploy action."];
      actionExecutionId: ActionExecutionId.t
        [@ocaml.doc "The execution ID for the deploy action."];
      filters: TargetFilterList.t option
        [@ocaml.doc "Filters the targets for a specified deploy action."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned nextToken value."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An identifier that was returned from the previous list action types call, which can be used to return the next set of action types in the list."]}
    let context_ = "ListDeployActionExecutionTargetsInput"
    let make ?pipelineName =
      fun ?filters ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ~actionExecutionId ->
              fun () ->
                {
                  pipelineName;
                  filters;
                  maxResults;
                  nextToken;
                  actionExecutionId
                }
    let to_value x =
      structure_to_value
        [("pipelineName",
           (Option.map x.pipelineName ~f:PipelineName.to_value));
        ("actionExecutionId",
          (Some (ActionExecutionId.to_value x.actionExecutionId)));
        ("filters", (Option.map x.filters ~f:TargetFilterList.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let filters =
        (Option.map ~f:TargetFilterList.of_xml)
          (Xml.child xml_arg0 "filters") in
      let actionExecutionId =
        ActionExecutionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "actionExecutionId") in
      let pipelineName =
        (Option.map ~f:PipelineName.of_xml)
          (Xml.child xml_arg0 "pipelineName") in
      make ?nextToken ?maxResults ?filters ~actionExecutionId ?pipelineName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let filters = field_map json__ "filters" TargetFilterList.of_json in
      let actionExecutionId =
        field_map_exn json__ "actionExecutionId" ActionExecutionId.of_json in
      let pipelineName = field_map json__ "pipelineName" PipelineName.of_json in
      make ?nextToken ?maxResults ?filters ~actionExecutionId ?pipelineName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the targets for the deploy action."]
module ListActionTypesOutput =
  struct
    type nonrec t =
      {
      actionTypes: ActionTypeList.t option
        [@ocaml.doc "Provides details of the action types."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the amount of returned information is significantly large, an identifier is also returned. It can be used in a subsequent list action types call to return the next set of action types in the list."]}
    type nonrec error =
      [ `InvalidNextTokenException of InvalidNextTokenException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?actionTypes =
      fun ?nextToken -> fun () -> { actionTypes; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("actionTypes",
           (Option.map x.actionTypes ~f:ActionTypeList.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 actionTypes =
        (Option.map ~f:ActionTypeList.of_xml)
          (Xml.child xml_arg0 "actionTypes") in
      make ?nextToken ?actionTypes ()
    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 actionTypes = field_map json__ "actionTypes" ActionTypeList.of_json in
      make ?nextToken ?actionTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a ListActionTypes action."]
module ListActionTypesInput =
  struct
    type nonrec t =
      {
      actionOwnerFilter: ActionOwner.t option
        [@ocaml.doc
          "Filters the list of action types to those created by a specified entity."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An identifier that was returned from the previous list action types call, which can be used to return the next set of action types in the list."];
      regionFilter: AWSRegionName.t option
        [@ocaml.doc "The Region to filter on for the list of action types."]}
    let make ?actionOwnerFilter =
      fun ?nextToken ->
        fun ?regionFilter ->
          fun () -> { actionOwnerFilter; nextToken; regionFilter }
    let to_value x =
      structure_to_value
        [("actionOwnerFilter",
           (Option.map x.actionOwnerFilter ~f:ActionOwner.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("regionFilter",
          (Option.map x.regionFilter ~f:AWSRegionName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let regionFilter =
        (Option.map ~f:AWSRegionName.of_xml)
          (Xml.child xml_arg0 "regionFilter") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let actionOwnerFilter =
        (Option.map ~f:ActionOwner.of_xml)
          (Xml.child xml_arg0 "actionOwnerFilter") in
      make ?regionFilter ?nextToken ?actionOwnerFilter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let regionFilter =
        field_map json__ "regionFilter" AWSRegionName.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let actionOwnerFilter =
        field_map json__ "actionOwnerFilter" ActionOwner.of_json in
      make ?regionFilter ?nextToken ?actionOwnerFilter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a ListActionTypes action."]
module ListActionExecutionsOutput =
  struct
    type nonrec t =
      {
      actionExecutionDetails: ActionExecutionDetailList.t option
        [@ocaml.doc
          "The details for a list of recent executions, such as action execution ID."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If the amount of returned information is significantly large, an identifier is also returned and can be used in a subsequent ListActionExecutions call to return the next set of action executions in the list."]}
    type nonrec error =
      [ `InvalidNextTokenException of InvalidNextTokenException.t 
      | `PipelineExecutionNotFoundException of
          PipelineExecutionNotFoundException.t 
      | `PipelineNotFoundException of PipelineNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?actionExecutionDetails =
      fun ?nextToken -> fun () -> { actionExecutionDetails; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "PipelineExecutionNotFoundException" ->
          `PipelineExecutionNotFoundException
            (PipelineExecutionNotFoundException.of_json json)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "PipelineExecutionNotFoundException" ->
          `PipelineExecutionNotFoundException
            (PipelineExecutionNotFoundException.of_xml xml)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `PipelineExecutionNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineExecutionNotFoundException"));
            ("details", (PipelineExecutionNotFoundException.to_json e))]
      | `PipelineNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineNotFoundException"));
            ("details", (PipelineNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("actionExecutionDetails",
           (Option.map x.actionExecutionDetails
              ~f:ActionExecutionDetailList.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 actionExecutionDetails =
        (Option.map ~f:ActionExecutionDetailList.of_xml)
          (Xml.child xml_arg0 "actionExecutionDetails") in
      make ?nextToken ?actionExecutionDetails ()
    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 actionExecutionDetails =
        field_map json__ "actionExecutionDetails"
          ActionExecutionDetailList.of_json in
      make ?nextToken ?actionExecutionDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the action executions that have occurred in a pipeline."]
module ListActionExecutionsInput =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t
        [@ocaml.doc
          "The name of the pipeline for which you want to list action execution history."];
      filter: ActionExecutionFilter.t option
        [@ocaml.doc
          "Input information used to filter action execution history."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned nextToken value. Action execution history is retained for up to 12 months, based on action execution start times. Default value is 100."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token that was returned from the previous ListActionExecutions call, which can be used to return the next set of action executions in the list."]}
    let context_ = "ListActionExecutionsInput"
    let make ?filter =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~pipelineName ->
            fun () -> { filter; maxResults; nextToken; pipelineName }
    let to_value x =
      structure_to_value
        [("pipelineName", (Some (PipelineName.to_value x.pipelineName)));
        ("filter", (Option.map x.filter ~f:ActionExecutionFilter.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let filter =
        (Option.map ~f:ActionExecutionFilter.of_xml)
          (Xml.child xml_arg0 "filter") in
      let pipelineName =
        PipelineName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineName") in
      make ?nextToken ?maxResults ?filter ~pipelineName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let filter = field_map json__ "filter" ActionExecutionFilter.of_json in
      let pipelineName =
        field_map_exn json__ "pipelineName" PipelineName.of_json in
      make ?nextToken ?maxResults ?filter ~pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the action executions that have occurred in a pipeline."]
module InvalidJobStateException =
  struct
    type nonrec t = unit
    let make () = ()
    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 job state was specified in an invalid format."]
module GetThirdPartyJobDetailsOutput =
  struct
    type nonrec t =
      {
      jobDetails: ThirdPartyJobDetails.t option
        [@ocaml.doc
          "The details of the job, including any protected values defined for the job."]}
    type nonrec error =
      [ `InvalidClientTokenException of InvalidClientTokenException.t 
      | `InvalidJobException of InvalidJobException.t 
      | `JobNotFoundException of JobNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobDetails = fun () -> { jobDetails }
    let error_of_json name json =
      match name with
      | "InvalidClientTokenException" ->
          `InvalidClientTokenException
            (InvalidClientTokenException.of_json json)
      | "InvalidJobException" ->
          `InvalidJobException (InvalidJobException.of_json json)
      | "JobNotFoundException" ->
          `JobNotFoundException (JobNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidClientTokenException" ->
          `InvalidClientTokenException
            (InvalidClientTokenException.of_xml xml)
      | "InvalidJobException" ->
          `InvalidJobException (InvalidJobException.of_xml xml)
      | "JobNotFoundException" ->
          `JobNotFoundException (JobNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidClientTokenException e ->
          `Assoc
            [("error", (`String "InvalidClientTokenException"));
            ("details", (InvalidClientTokenException.to_json e))]
      | `InvalidJobException e ->
          `Assoc
            [("error", (`String "InvalidJobException"));
            ("details", (InvalidJobException.to_json e))]
      | `JobNotFoundException e ->
          `Assoc
            [("error", (`String "JobNotFoundException"));
            ("details", (JobNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("jobDetails",
           (Option.map x.jobDetails ~f:ThirdPartyJobDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobDetails =
        (Option.map ~f:ThirdPartyJobDetails.of_xml)
          (Xml.child xml_arg0 "jobDetails") in
      make ?jobDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobDetails =
        field_map json__ "jobDetails" ThirdPartyJobDetails.of_json in
      make ?jobDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a GetThirdPartyJobDetails action."]
module GetThirdPartyJobDetailsInput =
  struct
    type nonrec t =
      {
      jobId: ThirdPartyJobId.t
        [@ocaml.doc
          "The unique system-generated ID used for identifying the job."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "The clientToken portion of the clientId and clientToken pair used to verify that the calling entity is allowed access to the job and its details."]}
    let context_ = "GetThirdPartyJobDetailsInput"
    let make ~jobId = fun ~clientToken -> fun () -> { jobId; clientToken }
    let to_value x =
      structure_to_value
        [("jobId", (Some (ThirdPartyJobId.to_value x.jobId)));
        ("clientToken", (Some (ClientToken.to_value x.clientToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      let jobId =
        ThirdPartyJobId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ~clientToken ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken =
        field_map_exn json__ "clientToken" ClientToken.of_json in
      let jobId = field_map_exn json__ "jobId" ThirdPartyJobId.of_json in
      make ~clientToken ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the input of a GetThirdPartyJobDetails action."]
module GetPipelineStateOutput =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t option
        [@ocaml.doc
          "The name of the pipeline for which you want to get the state."];
      pipelineVersion: PipelineVersion.t option
        [@ocaml.doc
          "The version number of the pipeline. A newly created pipeline is always assigned a version number of 1."];
      stageStates: StageStateList.t option
        [@ocaml.doc
          "A list of the pipeline stage output information, including stage name, state, most recent run details, whether the stage is disabled, and other data."];
      created: Timestamp.t option
        [@ocaml.doc
          "The date and time the pipeline was created, in timestamp format."];
      updated: Timestamp.t option
        [@ocaml.doc
          "The date and time the pipeline was last updated, in timestamp format."]}
    type nonrec error =
      [ `PipelineNotFoundException of PipelineNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pipelineName =
      fun ?pipelineVersion ->
        fun ?stageStates ->
          fun ?created ->
            fun ?updated ->
              fun () ->
                {
                  pipelineName;
                  pipelineVersion;
                  stageStates;
                  created;
                  updated
                }
    let error_of_json name json =
      match name with
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `PipelineNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineNotFoundException"));
            ("details", (PipelineNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("pipelineName",
           (Option.map x.pipelineName ~f:PipelineName.to_value));
        ("pipelineVersion",
          (Option.map x.pipelineVersion ~f:PipelineVersion.to_value));
        ("stageStates",
          (Option.map x.stageStates ~f:StageStateList.to_value));
        ("created", (Option.map x.created ~f:Timestamp.to_value));
        ("updated", (Option.map x.updated ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updated =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "updated") in
      let created =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "created") in
      let stageStates =
        (Option.map ~f:StageStateList.of_xml)
          (Xml.child xml_arg0 "stageStates") in
      let pipelineVersion =
        (Option.map ~f:PipelineVersion.of_xml)
          (Xml.child xml_arg0 "pipelineVersion") in
      let pipelineName =
        (Option.map ~f:PipelineName.of_xml)
          (Xml.child xml_arg0 "pipelineName") in
      make ?updated ?created ?stageStates ?pipelineVersion ?pipelineName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updated = field_map json__ "updated" Timestamp.of_json in
      let created = field_map json__ "created" Timestamp.of_json in
      let stageStates = field_map json__ "stageStates" StageStateList.of_json in
      let pipelineVersion =
        field_map json__ "pipelineVersion" PipelineVersion.of_json in
      let pipelineName = field_map json__ "pipelineName" PipelineName.of_json in
      make ?updated ?created ?stageStates ?pipelineVersion ?pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a GetPipelineState action."]
module GetPipelineStateInput =
  struct
    type nonrec t =
      {
      name: PipelineName.t
        [@ocaml.doc
          "The name of the pipeline about which you want to get information."]}
    let context_ = "GetPipelineStateInput"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("name", (Some (PipelineName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        PipelineName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" PipelineName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a GetPipelineState action."]
module GetPipelineOutput =
  struct
    type nonrec t =
      {
      pipeline: PipelineDeclaration.t option
        [@ocaml.doc
          "Represents the structure of actions and stages to be performed in the pipeline."];
      metadata: PipelineMetadata.t option
        [@ocaml.doc
          "Represents the pipeline metadata information returned as part of the output of a GetPipeline action."]}
    type nonrec error =
      [ `PipelineNotFoundException of PipelineNotFoundException.t 
      | `PipelineVersionNotFoundException of
          PipelineVersionNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pipeline = fun ?metadata -> fun () -> { pipeline; metadata }
    let error_of_json name json =
      match name with
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_json json)
      | "PipelineVersionNotFoundException" ->
          `PipelineVersionNotFoundException
            (PipelineVersionNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_xml xml)
      | "PipelineVersionNotFoundException" ->
          `PipelineVersionNotFoundException
            (PipelineVersionNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `PipelineNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineNotFoundException"));
            ("details", (PipelineNotFoundException.to_json e))]
      | `PipelineVersionNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineVersionNotFoundException"));
            ("details", (PipelineVersionNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("pipeline",
           (Option.map x.pipeline ~f:PipelineDeclaration.to_value));
        ("metadata", (Option.map x.metadata ~f:PipelineMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:PipelineMetadata.of_xml)
          (Xml.child xml_arg0 "metadata") in
      let pipeline =
        (Option.map ~f:PipelineDeclaration.of_xml)
          (Xml.child xml_arg0 "pipeline") in
      make ?metadata ?pipeline ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map json__ "metadata" PipelineMetadata.of_json in
      let pipeline = field_map json__ "pipeline" PipelineDeclaration.of_json in
      make ?metadata ?pipeline ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a GetPipeline action."]
module GetPipelineInput =
  struct
    type nonrec t =
      {
      name: PipelineName.t
        [@ocaml.doc
          "The name of the pipeline for which you want to get information. Pipeline names must be unique in an Amazon Web Services account."];
      version: PipelineVersion.t option
        [@ocaml.doc
          "The version number of the pipeline. If you do not specify a version, defaults to the current version."]}
    let context_ = "GetPipelineInput"
    let make ?version = fun ~name -> fun () -> { version; name }
    let to_value x =
      structure_to_value
        [("name", (Some (PipelineName.to_value x.name)));
        ("version", (Option.map x.version ~f:PipelineVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:PipelineVersion.of_xml) (Xml.child xml_arg0 "version") in
      let name =
        PipelineName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?version ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "version" PipelineVersion.of_json in
      let name = field_map_exn json__ "name" PipelineName.of_json in
      make ?version ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a GetPipeline action."]
module GetPipelineExecutionOutput =
  struct
    type nonrec t =
      {
      pipelineExecution: PipelineExecution.t option
        [@ocaml.doc
          "Represents information about the execution of a pipeline."]}
    type nonrec error =
      [
        `PipelineExecutionNotFoundException of
          PipelineExecutionNotFoundException.t 
      | `PipelineNotFoundException of PipelineNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pipelineExecution = fun () -> { pipelineExecution }
    let error_of_json name json =
      match name with
      | "PipelineExecutionNotFoundException" ->
          `PipelineExecutionNotFoundException
            (PipelineExecutionNotFoundException.of_json json)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "PipelineExecutionNotFoundException" ->
          `PipelineExecutionNotFoundException
            (PipelineExecutionNotFoundException.of_xml xml)
      | "PipelineNotFoundException" ->
          `PipelineNotFoundException (PipelineNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `PipelineExecutionNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineExecutionNotFoundException"));
            ("details", (PipelineExecutionNotFoundException.to_json e))]
      | `PipelineNotFoundException e ->
          `Assoc
            [("error", (`String "PipelineNotFoundException"));
            ("details", (PipelineNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("pipelineExecution",
           (Option.map x.pipelineExecution ~f:PipelineExecution.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pipelineExecution =
        (Option.map ~f:PipelineExecution.of_xml)
          (Xml.child xml_arg0 "pipelineExecution") in
      make ?pipelineExecution ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pipelineExecution =
        field_map json__ "pipelineExecution" PipelineExecution.of_json in
      make ?pipelineExecution ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a GetPipelineExecution action."]
module GetPipelineExecutionInput =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t
        [@ocaml.doc
          "The name of the pipeline about which you want to get execution details."];
      pipelineExecutionId: PipelineExecutionId.t
        [@ocaml.doc
          "The ID of the pipeline execution about which you want to get execution details."]}
    let context_ = "GetPipelineExecutionInput"
    let make ~pipelineName =
      fun ~pipelineExecutionId ->
        fun () -> { pipelineName; pipelineExecutionId }
    let to_value x =
      structure_to_value
        [("pipelineName", (Some (PipelineName.to_value x.pipelineName)));
        ("pipelineExecutionId",
          (Some (PipelineExecutionId.to_value x.pipelineExecutionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pipelineExecutionId =
        PipelineExecutionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineExecutionId") in
      let pipelineName =
        PipelineName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineName") in
      make ~pipelineExecutionId ~pipelineName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pipelineExecutionId =
        field_map_exn json__ "pipelineExecutionId"
          PipelineExecutionId.of_json in
      let pipelineName =
        field_map_exn json__ "pipelineName" PipelineName.of_json in
      make ~pipelineExecutionId ~pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a GetPipelineExecution action."]
module GetJobDetailsOutput =
  struct
    type nonrec t =
      {
      jobDetails: JobDetails.t option
        [@ocaml.doc
          "The details of the job. If AWSSessionCredentials is used, a long-running job can call GetJobDetails again to obtain new credentials."]}
    type nonrec error =
      [ `JobNotFoundException of JobNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobDetails = fun () -> { jobDetails }
    let error_of_json name json =
      match name with
      | "JobNotFoundException" ->
          `JobNotFoundException (JobNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "JobNotFoundException" ->
          `JobNotFoundException (JobNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `JobNotFoundException e ->
          `Assoc
            [("error", (`String "JobNotFoundException"));
            ("details", (JobNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("jobDetails", (Option.map x.jobDetails ~f:JobDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobDetails =
        (Option.map ~f:JobDetails.of_xml) (Xml.child xml_arg0 "jobDetails") in
      make ?jobDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobDetails = field_map json__ "jobDetails" JobDetails.of_json in
      make ?jobDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a GetJobDetails action."]
module GetJobDetailsInput =
  struct
    type nonrec t =
      {
      jobId: JobId.t
        [@ocaml.doc "The unique system-generated ID for the job."]}
    let context_ = "GetJobDetailsInput"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("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
      make ~jobId ()
    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
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a GetJobDetails action."]
module GetActionTypeOutput =
  struct
    type nonrec t =
      {
      actionType: ActionTypeDeclaration.t option
        [@ocaml.doc
          "The action type information for the requested action type, such as the action type ID."]}
    type nonrec error =
      [ `ActionTypeNotFoundException of ActionTypeNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?actionType = fun () -> { actionType }
    let error_of_json name json =
      match name with
      | "ActionTypeNotFoundException" ->
          `ActionTypeNotFoundException
            (ActionTypeNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ActionTypeNotFoundException" ->
          `ActionTypeNotFoundException
            (ActionTypeNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ActionTypeNotFoundException e ->
          `Assoc
            [("error", (`String "ActionTypeNotFoundException"));
            ("details", (ActionTypeNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("actionType",
           (Option.map x.actionType ~f:ActionTypeDeclaration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let actionType =
        (Option.map ~f:ActionTypeDeclaration.of_xml)
          (Xml.child xml_arg0 "actionType") in
      make ?actionType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let actionType =
        field_map json__ "actionType" ActionTypeDeclaration.of_json in
      make ?actionType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about an action type created for an external provider, where the action is to be used by customers of the external provider. The action can be created with any supported integration model."]
module GetActionTypeInput =
  struct
    type nonrec t =
      {
      category: ActionCategory.t
        [@ocaml.doc
          "Defines what kind of action can be taken in the stage. The following are the valid values: Source Build Test Deploy Approval Invoke Compute"];
      owner: ActionTypeOwner.t
        [@ocaml.doc
          "The creator of an action type that was created with any supported integration model. There are two valid values: AWS and ThirdParty."];
      provider: ActionProvider.t
        [@ocaml.doc
          "The provider of the action type being called. The provider name is specified when the action type is created."];
      version: Version.t
        [@ocaml.doc "A string that describes the action type version."]}
    let context_ = "GetActionTypeInput"
    let make ~category =
      fun ~owner ->
        fun ~provider ->
          fun ~version -> fun () -> { category; owner; provider; version }
    let to_value x =
      structure_to_value
        [("category", (Some (ActionCategory.to_value x.category)));
        ("owner", (Some (ActionTypeOwner.to_value x.owner)));
        ("provider", (Some (ActionProvider.to_value x.provider)));
        ("version", (Some (Version.to_value x.version)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        Version.of_xml (Xml.child_exn ~context:context_ xml_arg0 "version") in
      let provider =
        ActionProvider.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "provider") in
      let owner =
        ActionTypeOwner.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "owner") in
      let category =
        ActionCategory.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "category") in
      make ~version ~provider ~owner ~category ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map_exn json__ "version" Version.of_json in
      let provider = field_map_exn json__ "provider" ActionProvider.of_json in
      let owner = field_map_exn json__ "owner" ActionTypeOwner.of_json in
      let category = field_map_exn json__ "category" ActionCategory.of_json in
      make ~version ~provider ~owner ~category ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about an action type created for an external provider, where the action is to be used by customers of the external provider. The action can be created with any supported integration model."]
module EnableStageTransitionInput =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t
        [@ocaml.doc
          "The name of the pipeline in which you want to enable the flow of artifacts from one stage to another."];
      stageName: StageName.t
        [@ocaml.doc
          "The name of the stage where you want to enable the transition of artifacts, either into the stage (inbound) or from that stage to the next stage (outbound)."];
      transitionType: StageTransitionType.t
        [@ocaml.doc
          "Specifies whether artifacts are allowed to enter the stage and be processed by the actions in that stage (inbound) or whether already processed artifacts are allowed to transition to the next stage (outbound)."]}
    let context_ = "EnableStageTransitionInput"
    let make ~pipelineName =
      fun ~stageName ->
        fun ~transitionType ->
          fun () -> { pipelineName; stageName; transitionType }
    let to_value x =
      structure_to_value
        [("pipelineName", (Some (PipelineName.to_value x.pipelineName)));
        ("stageName", (Some (StageName.to_value x.stageName)));
        ("transitionType",
          (Some (StageTransitionType.to_value x.transitionType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitionType =
        StageTransitionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transitionType") in
      let stageName =
        StageName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "stageName") in
      let pipelineName =
        PipelineName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineName") in
      make ~transitionType ~stageName ~pipelineName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitionType =
        field_map_exn json__ "transitionType" StageTransitionType.of_json in
      let stageName = field_map_exn json__ "stageName" StageName.of_json in
      let pipelineName =
        field_map_exn json__ "pipelineName" PipelineName.of_json in
      make ~transitionType ~stageName ~pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of an EnableStageTransition action."]
module DisableStageTransitionInput =
  struct
    type nonrec t =
      {
      pipelineName: PipelineName.t
        [@ocaml.doc
          "The name of the pipeline in which you want to disable the flow of artifacts from one stage to another."];
      stageName: StageName.t
        [@ocaml.doc
          "The name of the stage where you want to disable the inbound or outbound transition of artifacts."];
      transitionType: StageTransitionType.t
        [@ocaml.doc
          "Specifies whether artifacts are prevented from transitioning into the stage and being processed by the actions in that stage (inbound), or prevented from transitioning from the stage after they have been processed by the actions in that stage (outbound)."];
      reason: DisabledReason.t
        [@ocaml.doc
          "The reason given to the user that a stage is disabled, such as waiting for manual approval or manual tests. This message is displayed in the pipeline console UI."]}
    let context_ = "DisableStageTransitionInput"
    let make ~pipelineName =
      fun ~stageName ->
        fun ~transitionType ->
          fun ~reason ->
            fun () -> { pipelineName; stageName; transitionType; reason }
    let to_value x =
      structure_to_value
        [("pipelineName", (Some (PipelineName.to_value x.pipelineName)));
        ("stageName", (Some (StageName.to_value x.stageName)));
        ("transitionType",
          (Some (StageTransitionType.to_value x.transitionType)));
        ("reason", (Some (DisabledReason.to_value x.reason)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        DisabledReason.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "reason") in
      let transitionType =
        StageTransitionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transitionType") in
      let stageName =
        StageName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "stageName") in
      let pipelineName =
        PipelineName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipelineName") in
      make ~reason ~transitionType ~stageName ~pipelineName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map_exn json__ "reason" DisabledReason.of_json in
      let transitionType =
        field_map_exn json__ "transitionType" StageTransitionType.of_json in
      let stageName = field_map_exn json__ "stageName" StageName.of_json in
      let pipelineName =
        field_map_exn json__ "pipelineName" PipelineName.of_json in
      make ~reason ~transitionType ~stageName ~pipelineName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a DisableStageTransition action."]
module DeregisterWebhookWithThirdPartyOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ValidationException of ValidationException.t 
      | `WebhookNotFoundException of WebhookNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | "WebhookNotFoundException" ->
          `WebhookNotFoundException (WebhookNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | "WebhookNotFoundException" ->
          `WebhookNotFoundException (WebhookNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `WebhookNotFoundException e ->
          `Assoc
            [("error", (`String "WebhookNotFoundException"));
            ("details", (WebhookNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the connection between the webhook that was created by CodePipeline and the external tool with events to be detected. Currently supported only for webhooks that target an action type of GitHub."]
module DeregisterWebhookWithThirdPartyInput =
  struct
    type nonrec t =
      {
      webhookName: WebhookName.t option
        [@ocaml.doc "The name of the webhook you want to deregister."]}
    let make ?webhookName = fun () -> { webhookName }
    let to_value x =
      structure_to_value
        [("webhookName", (Option.map x.webhookName ~f:WebhookName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let webhookName =
        (Option.map ~f:WebhookName.of_xml) (Xml.child xml_arg0 "webhookName") in
      make ?webhookName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let webhookName = field_map json__ "webhookName" WebhookName.of_json in
      make ?webhookName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the connection between the webhook that was created by CodePipeline and the external tool with events to be detected. Currently supported only for webhooks that target an action type of GitHub."]
module DeleteWebhookOutput =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a previously created webhook by name. Deleting the webhook stops CodePipeline from starting a pipeline every time an external event occurs. The API returns successfully when trying to delete a webhook that is already deleted. If a deleted webhook is re-created by calling PutWebhook with the same name, it will have a different URL."]
module DeleteWebhookInput =
  struct
    type nonrec t =
      {
      name: WebhookName.t
        [@ocaml.doc "The name of the webhook you want to delete."]}
    let context_ = "DeleteWebhookInput"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("name", (Some (WebhookName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        WebhookName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" WebhookName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a previously created webhook by name. Deleting the webhook stops CodePipeline from starting a pipeline every time an external event occurs. The API returns successfully when trying to delete a webhook that is already deleted. If a deleted webhook is re-created by calling PutWebhook with the same name, it will have a different URL."]
module DeletePipelineInput =
  struct
    type nonrec t =
      {
      name: PipelineName.t
        [@ocaml.doc "The name of the pipeline to be deleted."]}
    let context_ = "DeletePipelineInput"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("name", (Some (PipelineName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        PipelineName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" PipelineName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a DeletePipeline action."]
module DeleteCustomActionTypeInput =
  struct
    type nonrec t =
      {
      category: ActionCategory.t
        [@ocaml.doc
          "The category of the custom action that you want to delete, such as source or deploy."];
      provider: ActionProvider.t
        [@ocaml.doc
          "The provider of the service used in the custom action, such as CodeDeploy."];
      version: Version.t
        [@ocaml.doc "The version of the custom action to delete."]}
    let context_ = "DeleteCustomActionTypeInput"
    let make ~category =
      fun ~provider ->
        fun ~version -> fun () -> { category; provider; version }
    let to_value x =
      structure_to_value
        [("category", (Some (ActionCategory.to_value x.category)));
        ("provider", (Some (ActionProvider.to_value x.provider)));
        ("version", (Some (Version.to_value x.version)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        Version.of_xml (Xml.child_exn ~context:context_ xml_arg0 "version") in
      let provider =
        ActionProvider.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "provider") in
      let category =
        ActionCategory.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "category") in
      make ~version ~provider ~category ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map_exn json__ "version" Version.of_json in
      let provider = field_map_exn json__ "provider" ActionProvider.of_json in
      let category = field_map_exn json__ "category" ActionCategory.of_json in
      make ~version ~provider ~category ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the input of a DeleteCustomActionType operation. The custom action will be marked as deleted."]
module CreatePipelineOutput =
  struct
    type nonrec t =
      {
      pipeline: PipelineDeclaration.t option
        [@ocaml.doc
          "Represents the structure of actions and stages to be performed in the pipeline."];
      tags: TagList.t option
        [@ocaml.doc "Specifies the tags applied to the pipeline."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidActionDeclarationException of
          InvalidActionDeclarationException.t 
      | `InvalidBlockerDeclarationException of
          InvalidBlockerDeclarationException.t 
      | `InvalidStageDeclarationException of
          InvalidStageDeclarationException.t 
      | `InvalidStructureException of InvalidStructureException.t 
      | `InvalidTagsException of InvalidTagsException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `PipelineNameInUseException of PipelineNameInUseException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pipeline = fun ?tags -> fun () -> { pipeline; tags }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidActionDeclarationException" ->
          `InvalidActionDeclarationException
            (InvalidActionDeclarationException.of_json json)
      | "InvalidBlockerDeclarationException" ->
          `InvalidBlockerDeclarationException
            (InvalidBlockerDeclarationException.of_json json)
      | "InvalidStageDeclarationException" ->
          `InvalidStageDeclarationException
            (InvalidStageDeclarationException.of_json json)
      | "InvalidStructureException" ->
          `InvalidStructureException (InvalidStructureException.of_json json)
      | "InvalidTagsException" ->
          `InvalidTagsException (InvalidTagsException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "PipelineNameInUseException" ->
          `PipelineNameInUseException
            (PipelineNameInUseException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidActionDeclarationException" ->
          `InvalidActionDeclarationException
            (InvalidActionDeclarationException.of_xml xml)
      | "InvalidBlockerDeclarationException" ->
          `InvalidBlockerDeclarationException
            (InvalidBlockerDeclarationException.of_xml xml)
      | "InvalidStageDeclarationException" ->
          `InvalidStageDeclarationException
            (InvalidStageDeclarationException.of_xml xml)
      | "InvalidStructureException" ->
          `InvalidStructureException (InvalidStructureException.of_xml xml)
      | "InvalidTagsException" ->
          `InvalidTagsException (InvalidTagsException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "PipelineNameInUseException" ->
          `PipelineNameInUseException (PipelineNameInUseException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidActionDeclarationException e ->
          `Assoc
            [("error", (`String "InvalidActionDeclarationException"));
            ("details", (InvalidActionDeclarationException.to_json e))]
      | `InvalidBlockerDeclarationException e ->
          `Assoc
            [("error", (`String "InvalidBlockerDeclarationException"));
            ("details", (InvalidBlockerDeclarationException.to_json e))]
      | `InvalidStageDeclarationException e ->
          `Assoc
            [("error", (`String "InvalidStageDeclarationException"));
            ("details", (InvalidStageDeclarationException.to_json e))]
      | `InvalidStructureException e ->
          `Assoc
            [("error", (`String "InvalidStructureException"));
            ("details", (InvalidStructureException.to_json e))]
      | `InvalidTagsException e ->
          `Assoc
            [("error", (`String "InvalidTagsException"));
            ("details", (InvalidTagsException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `PipelineNameInUseException e ->
          `Assoc
            [("error", (`String "PipelineNameInUseException"));
            ("details", (PipelineNameInUseException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("pipeline",
           (Option.map x.pipeline ~f:PipelineDeclaration.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let pipeline =
        (Option.map ~f:PipelineDeclaration.of_xml)
          (Xml.child xml_arg0 "pipeline") in
      make ?tags ?pipeline ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let pipeline = field_map json__ "pipeline" PipelineDeclaration.of_json in
      make ?tags ?pipeline ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a CreatePipeline action."]
module CreatePipelineInput =
  struct
    type nonrec t =
      {
      pipeline: PipelineDeclaration.t
        [@ocaml.doc
          "Represents the structure of actions and stages to be performed in the pipeline."];
      tags: TagList.t option [@ocaml.doc "The tags for the pipeline."]}
    let context_ = "CreatePipelineInput"
    let make ?tags = fun ~pipeline -> fun () -> { tags; pipeline }
    let to_value x =
      structure_to_value
        [("pipeline", (Some (PipelineDeclaration.to_value x.pipeline)));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let pipeline =
        PipelineDeclaration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pipeline") in
      make ?tags ~pipeline ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let pipeline =
        field_map_exn json__ "pipeline" PipelineDeclaration.of_json in
      make ?tags ~pipeline ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a CreatePipeline action."]
module CreateCustomActionTypeOutput =
  struct
    type nonrec t =
      {
      actionType: ActionType.t option
        [@ocaml.doc
          "Returns information about the details of an action type."];
      tags: TagList.t option
        [@ocaml.doc "Specifies the tags applied to the custom action."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidTagsException of InvalidTagsException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?actionType = fun ?tags -> fun () -> { actionType; tags }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidTagsException" ->
          `InvalidTagsException (InvalidTagsException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidTagsException" ->
          `InvalidTagsException (InvalidTagsException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidTagsException e ->
          `Assoc
            [("error", (`String "InvalidTagsException"));
            ("details", (InvalidTagsException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("actionType", (Option.map x.actionType ~f:ActionType.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let actionType =
        (Option.map ~f:ActionType.of_xml) (Xml.child xml_arg0 "actionType") in
      make ?tags ?actionType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let actionType = field_map json__ "actionType" ActionType.of_json in
      make ?tags ?actionType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a CreateCustomActionType operation."]
module CreateCustomActionTypeInput =
  struct
    type nonrec t =
      {
      category: ActionCategory.t
        [@ocaml.doc
          "The category of the custom action, such as a build action or a test action."];
      provider: ActionProvider.t
        [@ocaml.doc
          "The provider of the service used in the custom action, such as CodeDeploy."];
      version: Version.t
        [@ocaml.doc "The version identifier of the custom action."];
      settings: ActionTypeSettings.t option
        [@ocaml.doc
          "URLs that provide users information about this custom action."];
      configurationProperties: ActionConfigurationPropertyList.t option
        [@ocaml.doc
          "The configuration properties for the custom action. You can refer to a name in the configuration properties of the custom action within the URL templates by following the format of \\{Config:name\\}, as long as the configuration property is both required and not secret. For more information, see Create a Custom Action for a Pipeline."];
      inputArtifactDetails: ArtifactDetails.t
        [@ocaml.doc
          "The details of the input artifact for the action, such as its commit ID."];
      outputArtifactDetails: ArtifactDetails.t
        [@ocaml.doc
          "The details of the output artifact of the action, such as its commit ID."];
      tags: TagList.t option [@ocaml.doc "The tags for the custom action."]}
    let context_ = "CreateCustomActionTypeInput"
    let make ?settings =
      fun ?configurationProperties ->
        fun ?tags ->
          fun ~category ->
            fun ~provider ->
              fun ~version ->
                fun ~inputArtifactDetails ->
                  fun ~outputArtifactDetails ->
                    fun () ->
                      {
                        settings;
                        configurationProperties;
                        tags;
                        category;
                        provider;
                        version;
                        inputArtifactDetails;
                        outputArtifactDetails
                      }
    let to_value x =
      structure_to_value
        [("category", (Some (ActionCategory.to_value x.category)));
        ("provider", (Some (ActionProvider.to_value x.provider)));
        ("version", (Some (Version.to_value x.version)));
        ("settings", (Option.map x.settings ~f:ActionTypeSettings.to_value));
        ("configurationProperties",
          (Option.map x.configurationProperties
             ~f:ActionConfigurationPropertyList.to_value));
        ("inputArtifactDetails",
          (Some (ArtifactDetails.to_value x.inputArtifactDetails)));
        ("outputArtifactDetails",
          (Some (ArtifactDetails.to_value x.outputArtifactDetails)));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let outputArtifactDetails =
        ArtifactDetails.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "outputArtifactDetails") in
      let inputArtifactDetails =
        ArtifactDetails.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "inputArtifactDetails") in
      let configurationProperties =
        (Option.map ~f:ActionConfigurationPropertyList.of_xml)
          (Xml.child xml_arg0 "configurationProperties") in
      let settings =
        (Option.map ~f:ActionTypeSettings.of_xml)
          (Xml.child xml_arg0 "settings") in
      let version =
        Version.of_xml (Xml.child_exn ~context:context_ xml_arg0 "version") in
      let provider =
        ActionProvider.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "provider") in
      let category =
        ActionCategory.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "category") in
      make ?tags ~outputArtifactDetails ~inputArtifactDetails
        ?configurationProperties ?settings ~version ~provider ~category ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let outputArtifactDetails =
        field_map_exn json__ "outputArtifactDetails" ArtifactDetails.of_json in
      let inputArtifactDetails =
        field_map_exn json__ "inputArtifactDetails" ArtifactDetails.of_json in
      let configurationProperties =
        field_map json__ "configurationProperties"
          ActionConfigurationPropertyList.of_json in
      let settings = field_map json__ "settings" ActionTypeSettings.of_json in
      let version = field_map_exn json__ "version" Version.of_json in
      let provider = field_map_exn json__ "provider" ActionProvider.of_json in
      let category = field_map_exn json__ "category" ActionCategory.of_json in
      make ?tags ~outputArtifactDetails ~inputArtifactDetails
        ?configurationProperties ?settings ~version ~provider ~category ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the input of a CreateCustomActionType operation."]
module ConditionNotOverridableException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Unable to override because the condition does not allow overrides."]
module ActionTypeAlreadyExistsException =
  struct
    type nonrec t = unit
    let make () = ()
    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 specified action type already exists with a different definition."]
module AcknowledgeThirdPartyJobOutput =
  struct
    type nonrec t =
      {
      status: JobStatus.t option
        [@ocaml.doc
          "The status information for the third party job, if any."]}
    type nonrec error =
      [ `InvalidClientTokenException of InvalidClientTokenException.t 
      | `InvalidNonceException of InvalidNonceException.t 
      | `JobNotFoundException of JobNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "InvalidClientTokenException" ->
          `InvalidClientTokenException
            (InvalidClientTokenException.of_json json)
      | "InvalidNonceException" ->
          `InvalidNonceException (InvalidNonceException.of_json json)
      | "JobNotFoundException" ->
          `JobNotFoundException (JobNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidClientTokenException" ->
          `InvalidClientTokenException
            (InvalidClientTokenException.of_xml xml)
      | "InvalidNonceException" ->
          `InvalidNonceException (InvalidNonceException.of_xml xml)
      | "JobNotFoundException" ->
          `JobNotFoundException (JobNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidClientTokenException e ->
          `Assoc
            [("error", (`String "InvalidClientTokenException"));
            ("details", (InvalidClientTokenException.to_json e))]
      | `InvalidNonceException e ->
          `Assoc
            [("error", (`String "InvalidNonceException"));
            ("details", (InvalidNonceException.to_json e))]
      | `JobNotFoundException e ->
          `Assoc
            [("error", (`String "JobNotFoundException"));
            ("details", (JobNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:JobStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" JobStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of an AcknowledgeThirdPartyJob action."]
module AcknowledgeThirdPartyJobInput =
  struct
    type nonrec t =
      {
      jobId: ThirdPartyJobId.t
        [@ocaml.doc "The unique system-generated ID of the job."];
      nonce: Nonce.t
        [@ocaml.doc
          "A system-generated random number that CodePipeline uses to ensure that the job is being worked on by only one job worker. Get this number from the response to a GetThirdPartyJobDetails request."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "The clientToken portion of the clientId and clientToken pair used to verify that the calling entity is allowed access to the job and its details."]}
    let context_ = "AcknowledgeThirdPartyJobInput"
    let make ~jobId =
      fun ~nonce ->
        fun ~clientToken -> fun () -> { jobId; nonce; clientToken }
    let to_value x =
      structure_to_value
        [("jobId", (Some (ThirdPartyJobId.to_value x.jobId)));
        ("nonce", (Some (Nonce.to_value x.nonce)));
        ("clientToken", (Some (ClientToken.to_value x.clientToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientToken") in
      let nonce =
        Nonce.of_xml (Xml.child_exn ~context:context_ xml_arg0 "nonce") in
      let jobId =
        ThirdPartyJobId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ~clientToken ~nonce ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken =
        field_map_exn json__ "clientToken" ClientToken.of_json in
      let nonce = field_map_exn json__ "nonce" Nonce.of_json in
      let jobId = field_map_exn json__ "jobId" ThirdPartyJobId.of_json in
      make ~clientToken ~nonce ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the input of an AcknowledgeThirdPartyJob action."]
module AcknowledgeJobOutput =
  struct
    type nonrec t =
      {
      status: JobStatus.t option
        [@ocaml.doc "Whether the job worker has received the specified job."]}
    type nonrec error =
      [ `InvalidNonceException of InvalidNonceException.t 
      | `JobNotFoundException of JobNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "InvalidNonceException" ->
          `InvalidNonceException (InvalidNonceException.of_json json)
      | "JobNotFoundException" ->
          `JobNotFoundException (JobNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNonceException" ->
          `InvalidNonceException (InvalidNonceException.of_xml xml)
      | "JobNotFoundException" ->
          `JobNotFoundException (JobNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNonceException e ->
          `Assoc
            [("error", (`String "InvalidNonceException"));
            ("details", (InvalidNonceException.to_json e))]
      | `JobNotFoundException e ->
          `Assoc
            [("error", (`String "JobNotFoundException"));
            ("details", (JobNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:JobStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" JobStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of an AcknowledgeJob action."]
module AcknowledgeJobInput =
  struct
    type nonrec t =
      {
      jobId: JobId.t
        [@ocaml.doc
          "The unique system-generated ID of the job for which you want to confirm receipt."];
      nonce: Nonce.t
        [@ocaml.doc
          "A system-generated random number that CodePipeline uses to ensure that the job is being worked on by only one job worker. Get this number from the response of the PollForJobs request that returned this job."]}
    let context_ = "AcknowledgeJobInput"
    let make ~jobId = fun ~nonce -> fun () -> { jobId; nonce }
    let to_value x =
      structure_to_value
        [("jobId", (Some (JobId.to_value x.jobId)));
        ("nonce", (Some (Nonce.to_value x.nonce)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nonce =
        Nonce.of_xml (Xml.child_exn ~context:context_ xml_arg0 "nonce") in
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ~nonce ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nonce = field_map_exn json__ "nonce" Nonce.of_json in
      let jobId = field_map_exn json__ "jobId" JobId.of_json in
      make ~nonce ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of an AcknowledgeJob action."]