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.codecatalyst
let apiVersion = "2022-09-28"
let endpointPrefix = "codecatalyst"
let serviceFullName = "Amazon CodeCatalyst"
let signatureVersion = "bearer"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module SourceRepositoryBranchString =
  struct
    type nonrec t = string
    let context_ = "SourceRepositoryBranchString"
    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:"SourceRepositoryBranchString" j
    let to_json = simple_to_json to_value
  end
module SourceRepositoryNameString =
  struct
    type nonrec t = string
    let context_ = "SourceRepositoryNameString"
    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:"(?!.*[.]git$)[\\w\\-.]*")));
        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:"SourceRepositoryNameString" j
    let to_json = simple_to_json to_value
  end
module IdeNameString =
  struct
    type nonrec t = string
    let context_ = "IdeNameString"
    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:"IdeNameString" j
    let to_json = simple_to_json to_value
  end
module IdeRuntimeString =
  struct
    type nonrec t = string
    let context_ = "IdeRuntimeString"
    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:"IdeRuntimeString" j
    let to_json = simple_to_json to_value
  end
module ExecuteCommandSessionConfigurationArgumentsMemberString =
  struct
    type nonrec t = string
    let context_ = "ExecuteCommandSessionConfigurationArgumentsMemberString"
    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:"ExecuteCommandSessionConfigurationArgumentsMemberString" j
    let to_json = simple_to_json to_value
  end
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 WorkflowRunStatusReason =
  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 "Information about the status of a workflow run."]
module UserType =
  struct
    type nonrec t =
      | USER 
      | AWS_ACCOUNT 
      | UNKNOWN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | USER -> "USER"
      | AWS_ACCOUNT -> "AWS_ACCOUNT"
      | UNKNOWN -> "UNKNOWN"
      | Non_static_id s -> s
    let of_string =
      function
      | "USER" -> USER
      | "AWS_ACCOUNT" -> AWS_ACCOUNT
      | "UNKNOWN" -> UNKNOWN
      | 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 UserType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UserType" j)
    let to_json = simple_to_json to_value
  end
module DevEnvironmentRepositorySummary =
  struct
    type nonrec t =
      {
      repositoryName: SourceRepositoryNameString.t option
        [@ocaml.doc "The name of the source repository."];
      branchName: SourceRepositoryBranchString.t option
        [@ocaml.doc
          "The name of the branch in a source repository cloned into the Dev Environment."]}
    let make ?repositoryName =
      fun ?branchName -> fun () -> { repositoryName; branchName }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Option.map x.repositoryName
              ~f:SourceRepositoryNameString.to_value));
        ("branchName",
          (Option.map x.branchName ~f:SourceRepositoryBranchString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let branchName =
        (Option.map ~f:SourceRepositoryBranchString.of_xml)
          (Xml.child xml_arg0 "branchName") in
      let repositoryName =
        (Option.map ~f:SourceRepositoryNameString.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      make ?branchName ?repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let branchName =
        field_map json__ "branchName" SourceRepositoryBranchString.of_json in
      let repositoryName =
        field_map json__ "repositoryName" SourceRepositoryNameString.of_json in
      make ?branchName ?repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the source repsitory for a Dev Environment."]
module Ide =
  struct
    type nonrec t =
      {
      runtime: IdeRuntimeString.t option
        [@ocaml.doc "A link to the IDE runtime image."];
      name: IdeNameString.t option [@ocaml.doc "The name of the IDE."]}
    let make ?runtime = fun ?name -> fun () -> { runtime; name }
    let to_value x =
      structure_to_value
        [("runtime", (Option.map x.runtime ~f:IdeRuntimeString.to_value));
        ("name", (Option.map x.name ~f:IdeNameString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:IdeNameString.of_xml) (Xml.child xml_arg0 "name") in
      let runtime =
        (Option.map ~f:IdeRuntimeString.of_xml)
          (Xml.child xml_arg0 "runtime") in
      make ?name ?runtime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" IdeNameString.of_json in
      let runtime = field_map json__ "runtime" IdeRuntimeString.of_json in
      make ?name ?runtime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about an integrated development environment (IDE) used in a Dev Environment."]
module PersistentStorageSizeInGiBInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:64) >>= (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 PersistentStorageSizeInGiBInteger" 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 IdeConfigurationNameString =
  struct
    type nonrec t = string
    let context_ = "IdeConfigurationNameString"
    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:"IdeConfigurationNameString" j
    let to_json = simple_to_json to_value
  end
module IdeConfigurationRuntimeString =
  struct
    type nonrec t = string
    let context_ = "IdeConfigurationRuntimeString"
    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:"IdeConfigurationRuntimeString" j
    let to_json = simple_to_json to_value
  end
module ExecuteCommandSessionConfigurationArguments =
  struct
    type nonrec t =
      ExecuteCommandSessionConfigurationArgumentsMemberString.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:ExecuteCommandSessionConfigurationArgumentsMemberString.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:ExecuteCommandSessionConfigurationArgumentsMemberString.of_xml)
    let of_json j =
      list_of_json ~kind:"ExecuteCommandSessionConfigurationArguments"
        ~of_json:ExecuteCommandSessionConfigurationArgumentsMemberString.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ExecuteCommandSessionConfigurationCommandString =
  struct
    type nonrec t = string
    let context_ = "ExecuteCommandSessionConfigurationCommandString"
    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:"ExecuteCommandSessionConfigurationCommandString"
        j
    let to_json = simple_to_json to_value
  end
module SyntheticTimestamp_date_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 Uuid =
  struct
    type nonrec t = string
    let context_ = "Uuid"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-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:"Uuid" j
    let to_json = simple_to_json to_value
  end
module WorkflowDefinitionSummary =
  struct
    type nonrec t =
      {
      path: String_.t option
        [@ocaml.doc
          "The path to the workflow definition file stored in the source repository for the project, including the file name."]}
    let make ?path = fun () -> { path }
    let to_value x =
      structure_to_value [("path", (Option.map x.path ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let path = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "path") in
      make ?path ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let path = field_map json__ "path" String_.of_json in make ?path ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a workflow definition."]
module WorkflowRunMode =
  struct
    type nonrec t =
      | QUEUED 
      | PARALLEL 
      | SUPERSEDED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | QUEUED -> "QUEUED"
      | PARALLEL -> "PARALLEL"
      | SUPERSEDED -> "SUPERSEDED"
      | Non_static_id s -> s
    let of_string =
      function
      | "QUEUED" -> QUEUED
      | "PARALLEL" -> PARALLEL
      | "SUPERSEDED" -> SUPERSEDED
      | 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 WorkflowRunMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WorkflowRunMode" j)
    let to_json = simple_to_json to_value
  end
module WorkflowStatus =
  struct
    type nonrec t =
      | INVALID 
      | ACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INVALID -> "INVALID"
      | ACTIVE -> "ACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "INVALID" -> INVALID
      | "ACTIVE" -> ACTIVE
      | 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 WorkflowStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WorkflowStatus" j)
    let to_json = simple_to_json to_value
  end
module WorkflowRunStatus =
  struct
    type nonrec t =
      | SUCCEEDED 
      | FAILED 
      | STOPPED 
      | SUPERSEDED 
      | CANCELLED 
      | NOT_RUN 
      | VALIDATING 
      | PROVISIONING 
      | IN_PROGRESS 
      | STOPPING 
      | ABANDONED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUCCEEDED -> "SUCCEEDED"
      | FAILED -> "FAILED"
      | STOPPED -> "STOPPED"
      | SUPERSEDED -> "SUPERSEDED"
      | CANCELLED -> "CANCELLED"
      | NOT_RUN -> "NOT_RUN"
      | VALIDATING -> "VALIDATING"
      | PROVISIONING -> "PROVISIONING"
      | IN_PROGRESS -> "IN_PROGRESS"
      | STOPPING -> "STOPPING"
      | ABANDONED -> "ABANDONED"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUCCEEDED" -> SUCCEEDED
      | "FAILED" -> FAILED
      | "STOPPED" -> STOPPED
      | "SUPERSEDED" -> SUPERSEDED
      | "CANCELLED" -> CANCELLED
      | "NOT_RUN" -> NOT_RUN
      | "VALIDATING" -> VALIDATING
      | "PROVISIONING" -> PROVISIONING
      | "IN_PROGRESS" -> IN_PROGRESS
      | "STOPPING" -> STOPPING
      | "ABANDONED" -> ABANDONED
      | 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 WorkflowRunStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WorkflowRunStatus" j)
    let to_json = simple_to_json to_value
  end
module WorkflowRunStatusReasons =
  struct
    type nonrec t = WorkflowRunStatusReason.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:WorkflowRunStatusReason.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:WorkflowRunStatusReason.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkflowRunStatusReasons"
        ~of_json:WorkflowRunStatusReason.of_json j
    let to_json v = composed_to_json to_value v
  end
module NameString =
  struct
    type nonrec t = string
    let context_ = "NameString"
    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]+(?:[-_\\.][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:"NameString" j
    let to_json = simple_to_json to_value
  end
module RegionString =
  struct
    type nonrec t = string
    let context_ = "RegionString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(us(?:-gov)?|af|ap|ca|cn|eu|sa)-(central|(?:north|south)?(?:east|west)?)-(\\d+)")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RegionString" j
    let to_json = simple_to_json to_value
  end
module SourceRepositoryBranchRefString =
  struct
    type nonrec t = string
    let context_ = "SourceRepositoryBranchRefString"
    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:"SourceRepositoryBranchRefString" j
    let to_json = simple_to_json to_value
  end
module SourceRepositoryDescriptionString =
  struct
    type nonrec t = string
    let context_ = "SourceRepositoryDescriptionString"
    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:"SourceRepositoryDescriptionString" j
    let to_json = simple_to_json to_value
  end
module SourceRepositoryIdString =
  struct
    type nonrec t = string
    let context_ = "SourceRepositoryIdString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-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:"SourceRepositoryIdString" 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 ComparisonOperator =
  struct
    type nonrec t =
      | EQ 
      | GT 
      | GE 
      | LT 
      | LE 
      | BEGINS_WITH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EQ -> "EQ"
      | GT -> "GT"
      | GE -> "GE"
      | LT -> "LT"
      | LE -> "LE"
      | BEGINS_WITH -> "BEGINS_WITH"
      | Non_static_id s -> s
    let of_string =
      function
      | "EQ" -> EQ
      | "GT" -> GT
      | "GE" -> GE
      | "LT" -> LT
      | "LE" -> LE
      | "BEGINS_WITH" -> BEGINS_WITH
      | 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 ComparisonOperator" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ComparisonOperator" j)
    let to_json = simple_to_json to_value
  end
module FilterKey =
  struct
    type nonrec t =
      | HasAccessTo 
      | Name 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | HasAccessTo -> "hasAccessTo"
      | Name -> "name"
      | Non_static_id s -> s
    let of_string =
      function
      | "hasAccessTo" -> HasAccessTo
      | "name" -> Name
      | 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 FilterKey" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FilterKey" j)
    let to_json = simple_to_json to_value
  end
module StringList =
  struct
    type nonrec t = String_.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:String_.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:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"StringList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventPayload =
  struct
    type nonrec t =
      {
      contentType: String_.t option
        [@ocaml.doc "The type of content in the event payload."];
      data: String_.t option
        [@ocaml.doc "The data included in the event payload."]}
    let make ?contentType = fun ?data -> fun () -> { contentType; data }
    let to_value x =
      structure_to_value
        [("contentType", (Option.map x.contentType ~f:String_.to_value));
        ("data", (Option.map x.data ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let data = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "data") in
      let contentType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "contentType") in
      make ?data ?contentType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let data = field_map json__ "data" String_.of_json in
      let contentType = field_map json__ "contentType" String_.of_json in
      make ?data ?contentType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the payload of an event recording Amazon CodeCatalyst activity."]
module OperationType =
  struct
    type nonrec t =
      | READONLY 
      | MUTATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | READONLY -> "READONLY"
      | MUTATION -> "MUTATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "READONLY" -> READONLY
      | "MUTATION" -> MUTATION
      | 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 OperationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OperationType" j)
    let to_json = simple_to_json to_value
  end
module ProjectInformation =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the project in the space."];
      projectId: String_.t option
        [@ocaml.doc "The system-generated unique ID of the project."]}
    let make ?name = fun ?projectId -> fun () -> { name; projectId }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("projectId", (Option.map x.projectId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let projectId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "projectId") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?projectId ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let projectId = field_map json__ "projectId" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?projectId ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a project in a space."]
module UserIdentity =
  struct
    type nonrec t =
      {
      userType: UserType.t option
        [@ocaml.doc
          "The role assigned to the user in a Amazon CodeCatalyst space or project when the event occurred."];
      principalId: String_.t option
        [@ocaml.doc "The ID of the Amazon CodeCatalyst service principal."];
      userName: String_.t option
        [@ocaml.doc "The display name of the user in Amazon CodeCatalyst."];
      awsAccountId: String_.t option
        [@ocaml.doc
          "The Amazon Web Services account number of the user in Amazon Web Services, if any."]}
    let make ?userType =
      fun ?principalId ->
        fun ?userName ->
          fun ?awsAccountId ->
            fun () -> { userType; principalId; userName; awsAccountId }
    let to_value x =
      structure_to_value
        [("userType", (Option.map x.userType ~f:UserType.to_value));
        ("principalId", (Option.map x.principalId ~f:String_.to_value));
        ("userName", (Option.map x.userName ~f:String_.to_value));
        ("awsAccountId", (Option.map x.awsAccountId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let awsAccountId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "awsAccountId") in
      let userName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "userName") in
      let principalId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "principalId") in
      let userType =
        (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "userType") in
      make ?awsAccountId ?userName ?principalId ?userType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let awsAccountId = field_map json__ "awsAccountId" String_.of_json in
      let userName = field_map json__ "userName" String_.of_json in
      let principalId = field_map json__ "principalId" String_.of_json in
      let userType = field_map json__ "userType" UserType.of_json in
      make ?awsAccountId ?userName ?principalId ?userType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a user whose activity is recorded in an event for a space."]
module DevEnvironmentRepositorySummaries =
  struct
    type nonrec t = DevEnvironmentRepositorySummary.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:DevEnvironmentRepositorySummary.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:DevEnvironmentRepositorySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DevEnvironmentRepositorySummaries"
        ~of_json:DevEnvironmentRepositorySummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module DevEnvironmentStatus =
  struct
    type nonrec t =
      | PENDING 
      | RUNNING 
      | STARTING 
      | STOPPING 
      | STOPPED 
      | FAILED 
      | DELETING 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | RUNNING -> "RUNNING"
      | STARTING -> "STARTING"
      | STOPPING -> "STOPPING"
      | STOPPED -> "STOPPED"
      | FAILED -> "FAILED"
      | DELETING -> "DELETING"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "RUNNING" -> RUNNING
      | "STARTING" -> STARTING
      | "STOPPING" -> STOPPING
      | "STOPPED" -> STOPPED
      | "FAILED" -> FAILED
      | "DELETING" -> DELETING
      | "DELETED" -> DELETED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration DevEnvironmentStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DevEnvironmentStatus" j)
    let to_json = simple_to_json to_value
  end
module DevEnvironmentSummaryAliasString =
  struct
    type nonrec t = string
    let context_ = "DevEnvironmentSummaryAliasString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (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:"DevEnvironmentSummaryAliasString" j
    let to_json = simple_to_json to_value
  end
module DevEnvironmentSummaryCreatorIdString =
  struct
    type nonrec t = string
    let context_ = "DevEnvironmentSummaryCreatorIdString"
    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:"DevEnvironmentSummaryCreatorIdString" j
    let to_json = simple_to_json to_value
  end
module Ides =
  struct
    type nonrec t = Ide.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_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Ide.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:Ide.of_xml)
    let of_json j = list_of_json ~kind:"Ides" ~of_json:Ide.of_json j
    let to_json v = composed_to_json to_value v
  end
module InactivityTimeoutMinutes =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1200) >>= (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 InactivityTimeoutMinutes"
           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 InstanceType =
  struct
    type nonrec t =
      | Dev_standard1_small 
      | Dev_standard1_medium 
      | Dev_standard1_large 
      | Dev_standard1_xlarge 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Dev_standard1_small -> "dev.standard1.small"
      | Dev_standard1_medium -> "dev.standard1.medium"
      | Dev_standard1_large -> "dev.standard1.large"
      | Dev_standard1_xlarge -> "dev.standard1.xlarge"
      | Non_static_id s -> s
    let of_string =
      function
      | "dev.standard1.small" -> Dev_standard1_small
      | "dev.standard1.medium" -> Dev_standard1_medium
      | "dev.standard1.large" -> Dev_standard1_large
      | "dev.standard1.xlarge" -> Dev_standard1_xlarge
      | 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 InstanceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InstanceType" j)
    let to_json = simple_to_json to_value
  end
module PersistentStorage =
  struct
    type nonrec t =
      {
      sizeInGiB: PersistentStorageSizeInGiBInteger.t option
        [@ocaml.doc
          "The size of the persistent storage in gigabytes (specifically GiB). Valid values for storage are based on memory sizes in 16GB increments. Valid values are 16, 32, and 64."]}
    let make ?sizeInGiB = fun () -> { sizeInGiB }
    let to_value x =
      structure_to_value
        [("sizeInGiB",
           (Option.map x.sizeInGiB
              ~f:PersistentStorageSizeInGiBInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sizeInGiB =
        (Option.map ~f:PersistentStorageSizeInGiBInteger.of_xml)
          (Xml.child xml_arg0 "sizeInGiB") in
      make ?sizeInGiB ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sizeInGiB =
        field_map json__ "sizeInGiB"
          PersistentStorageSizeInGiBInteger.of_json in
      make ?sizeInGiB ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the persistent storage for a Dev Environment."]
module StatusReason =
  struct
    type nonrec t = string
    let context_ = "StatusReason"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max: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:"StatusReason" j
    let to_json = simple_to_json to_value
  end
module DevEnvironmentSessionSummaryIdString =
  struct
    type nonrec t = string
    let context_ = "DevEnvironmentSessionSummaryIdString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:96) >>=
             (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:"DevEnvironmentSessionSummaryIdString" j
    let to_json = simple_to_json to_value
  end
module AccessTokenId =
  struct
    type nonrec t = string
    let context_ = "AccessTokenId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:36) >>=
             (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:"AccessTokenId" j
    let to_json = simple_to_json to_value
  end
module AccessTokenName =
  struct
    type nonrec t = string
    let context_ = "AccessTokenName"
    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:"AccessTokenName" j
    let to_json = simple_to_json to_value
  end
module IdeConfiguration =
  struct
    type nonrec t =
      {
      runtime: IdeConfigurationRuntimeString.t option
        [@ocaml.doc
          "A link to the IDE runtime image. This parameter is not required for VSCode."];
      name: IdeConfigurationNameString.t option
        [@ocaml.doc
          "The name of the IDE. Valid values include Cloud9, IntelliJ, PyCharm, GoLand, and VSCode."]}
    let make ?runtime = fun ?name -> fun () -> { runtime; name }
    let to_value x =
      structure_to_value
        [("runtime",
           (Option.map x.runtime ~f:IdeConfigurationRuntimeString.to_value));
        ("name", (Option.map x.name ~f:IdeConfigurationNameString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:IdeConfigurationNameString.of_xml)
          (Xml.child xml_arg0 "name") in
      let runtime =
        (Option.map ~f:IdeConfigurationRuntimeString.of_xml)
          (Xml.child xml_arg0 "runtime") in
      make ?name ?runtime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" IdeConfigurationNameString.of_json in
      let runtime =
        field_map json__ "runtime" IdeConfigurationRuntimeString.of_json in
      make ?name ?runtime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the configuration of an integrated development environment (IDE) for a Dev Environment."]
module SensitiveString =
  struct
    type nonrec t = string
    let context_ = "SensitiveString"
    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:"SensitiveString" j
    let to_json = simple_to_json to_value
  end
module DevEnvironmentSessionType =
  struct
    type nonrec t =
      | SSM 
      | SSH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | SSM -> "SSM" | SSH -> "SSH" | Non_static_id s -> s
    let of_string =
      function | "SSM" -> SSM | "SSH" -> SSH | 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 DevEnvironmentSessionType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DevEnvironmentSessionType" j)
    let to_json = simple_to_json to_value
  end
module ExecuteCommandSessionConfiguration =
  struct
    type nonrec t =
      {
      command: ExecuteCommandSessionConfigurationCommandString.t
        [@ocaml.doc
          "The command used at the beginning of the SSH session to a Dev Environment."];
      arguments: ExecuteCommandSessionConfigurationArguments.t option
        [@ocaml.doc
          "An array of arguments containing arguments and members."]}
    let context_ = "ExecuteCommandSessionConfiguration"
    let make ?arguments = fun ~command -> fun () -> { arguments; command }
    let to_value x =
      structure_to_value
        [("command",
           (Some
              (ExecuteCommandSessionConfigurationCommandString.to_value
                 x.command)));
        ("arguments",
          (Option.map x.arguments
             ~f:ExecuteCommandSessionConfigurationArguments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arguments =
        (Option.map ~f:ExecuteCommandSessionConfigurationArguments.of_xml)
          (Xml.child xml_arg0 "arguments") in
      let command =
        ExecuteCommandSessionConfigurationCommandString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "command") in
      make ?arguments ~command ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arguments =
        field_map json__ "arguments"
          ExecuteCommandSessionConfigurationArguments.of_json in
      let command =
        field_map_exn json__ "command"
          ExecuteCommandSessionConfigurationCommandString.of_json in
      make ?arguments ~command ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the commands that will be run on a Dev Environment when an SSH session begins."]
module WorkflowSummary =
  struct
    type nonrec t =
      {
      id: Uuid.t option
        [@ocaml.doc "The system-generated unique ID of a workflow."];
      name: String_.t option [@ocaml.doc "The name of the workflow."];
      sourceRepositoryName: SourceRepositoryNameString.t option
        [@ocaml.doc
          "The name of the source repository where the workflow definition file is stored."];
      sourceBranchName: SourceRepositoryBranchString.t option
        [@ocaml.doc
          "The name of the branch of the source repository where the workflow definition file is stored."];
      definition: WorkflowDefinitionSummary.t option
        [@ocaml.doc "Information about the workflow definition file."];
      createdTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time the workflow was created, in coordinated universal time (UTC) timestamp format as specified in RFC 3339"];
      lastUpdatedTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time the workflow was last updated, in coordinated universal time (UTC) timestamp format as specified in RFC 3339"];
      runMode: WorkflowRunMode.t option
        [@ocaml.doc "The run mode of the workflow."];
      status: WorkflowStatus.t option
        [@ocaml.doc "The status of the workflow."]}
    let make ?id =
      fun ?name ->
        fun ?sourceRepositoryName ->
          fun ?sourceBranchName ->
            fun ?definition ->
              fun ?createdTime ->
                fun ?lastUpdatedTime ->
                  fun ?runMode ->
                    fun ?status ->
                      fun () ->
                        {
                          id;
                          name;
                          sourceRepositoryName;
                          sourceBranchName;
                          definition;
                          createdTime;
                          lastUpdatedTime;
                          runMode;
                          status
                        }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:Uuid.to_value));
        ("name", (Option.map x.name ~f:String_.to_value));
        ("sourceRepositoryName",
          (Option.map x.sourceRepositoryName
             ~f:SourceRepositoryNameString.to_value));
        ("sourceBranchName",
          (Option.map x.sourceBranchName
             ~f:SourceRepositoryBranchString.to_value));
        ("definition",
          (Option.map x.definition ~f:WorkflowDefinitionSummary.to_value));
        ("createdTime",
          (Option.map x.createdTime ~f:SyntheticTimestamp_date_time.to_value));
        ("lastUpdatedTime",
          (Option.map x.lastUpdatedTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("runMode", (Option.map x.runMode ~f:WorkflowRunMode.to_value));
        ("status", (Option.map x.status ~f:WorkflowStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:WorkflowStatus.of_xml) (Xml.child xml_arg0 "status") in
      let runMode =
        (Option.map ~f:WorkflowRunMode.of_xml) (Xml.child xml_arg0 "runMode") in
      let lastUpdatedTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTime") in
      let createdTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdTime") in
      let definition =
        (Option.map ~f:WorkflowDefinitionSummary.of_xml)
          (Xml.child xml_arg0 "definition") in
      let sourceBranchName =
        (Option.map ~f:SourceRepositoryBranchString.of_xml)
          (Xml.child xml_arg0 "sourceBranchName") in
      let sourceRepositoryName =
        (Option.map ~f:SourceRepositoryNameString.of_xml)
          (Xml.child xml_arg0 "sourceRepositoryName") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "id") in
      make ?status ?runMode ?lastUpdatedTime ?createdTime ?definition
        ?sourceBranchName ?sourceRepositoryName ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" WorkflowStatus.of_json in
      let runMode = field_map json__ "runMode" WorkflowRunMode.of_json in
      let lastUpdatedTime =
        field_map json__ "lastUpdatedTime"
          SyntheticTimestamp_date_time.of_json in
      let createdTime =
        field_map json__ "createdTime" SyntheticTimestamp_date_time.of_json in
      let definition =
        field_map json__ "definition" WorkflowDefinitionSummary.of_json in
      let sourceBranchName =
        field_map json__ "sourceBranchName"
          SourceRepositoryBranchString.of_json in
      let sourceRepositoryName =
        field_map json__ "sourceRepositoryName"
          SourceRepositoryNameString.of_json in
      let name = field_map json__ "name" String_.of_json in
      let id = field_map json__ "id" Uuid.of_json in
      make ?status ?runMode ?lastUpdatedTime ?createdTime ?definition
        ?sourceBranchName ?sourceRepositoryName ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a workflow."]
module WorkflowSortCriteria =
  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 "Information used to sort workflows in the returned list."]
module WorkflowRunSummary =
  struct
    type nonrec t =
      {
      id: Uuid.t option
        [@ocaml.doc "The system-generated unique ID of the workflow run."];
      workflowId: Uuid.t option
        [@ocaml.doc "The system-generated unique ID of the workflow."];
      workflowName: String_.t option [@ocaml.doc "The name of the workflow."];
      status: WorkflowRunStatus.t option
        [@ocaml.doc "The status of the workflow run."];
      statusReasons: WorkflowRunStatusReasons.t option
        [@ocaml.doc "The reasons for the workflow run status."];
      startTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time the workflow run began, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."];
      endTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time the workflow run ended, in coordinated universal time (UTC) timestamp format as specified in RFC 3339"];
      lastUpdatedTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time the workflow was last updated, in coordinated universal time (UTC) timestamp format as specified in RFC 3339"]}
    let make ?id =
      fun ?workflowId ->
        fun ?workflowName ->
          fun ?status ->
            fun ?statusReasons ->
              fun ?startTime ->
                fun ?endTime ->
                  fun ?lastUpdatedTime ->
                    fun () ->
                      {
                        id;
                        workflowId;
                        workflowName;
                        status;
                        statusReasons;
                        startTime;
                        endTime;
                        lastUpdatedTime
                      }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:Uuid.to_value));
        ("workflowId", (Option.map x.workflowId ~f:Uuid.to_value));
        ("workflowName", (Option.map x.workflowName ~f:String_.to_value));
        ("status", (Option.map x.status ~f:WorkflowRunStatus.to_value));
        ("statusReasons",
          (Option.map x.statusReasons ~f:WorkflowRunStatusReasons.to_value));
        ("startTime",
          (Option.map x.startTime ~f:SyntheticTimestamp_date_time.to_value));
        ("endTime",
          (Option.map x.endTime ~f:SyntheticTimestamp_date_time.to_value));
        ("lastUpdatedTime",
          (Option.map x.lastUpdatedTime
             ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTime") in
      let endTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "startTime") in
      let statusReasons =
        (Option.map ~f:WorkflowRunStatusReasons.of_xml)
          (Xml.child xml_arg0 "statusReasons") in
      let status =
        (Option.map ~f:WorkflowRunStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let workflowName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "workflowName") in
      let workflowId =
        (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "workflowId") in
      let id = (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "id") in
      make ?lastUpdatedTime ?endTime ?startTime ?statusReasons ?status
        ?workflowName ?workflowId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTime =
        field_map json__ "lastUpdatedTime"
          SyntheticTimestamp_date_time.of_json in
      let endTime =
        field_map json__ "endTime" SyntheticTimestamp_date_time.of_json in
      let startTime =
        field_map json__ "startTime" SyntheticTimestamp_date_time.of_json in
      let statusReasons =
        field_map json__ "statusReasons" WorkflowRunStatusReasons.of_json in
      let status = field_map json__ "status" WorkflowRunStatus.of_json in
      let workflowName = field_map json__ "workflowName" String_.of_json in
      let workflowId = field_map json__ "workflowId" Uuid.of_json in
      let id = field_map json__ "id" Uuid.of_json in
      make ?lastUpdatedTime ?endTime ?startTime ?statusReasons ?status
        ?workflowName ?workflowId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a workflow run."]
module WorkflowRunSortCriteria =
  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
       "Information used to sort workflow runs in the returned list."]
module SpaceSummary =
  struct
    type nonrec t =
      {
      name: NameString.t option [@ocaml.doc "The name of the space."];
      regionName: RegionString.t option
        [@ocaml.doc "The Amazon Web Services Region where the space exists."];
      displayName: String_.t option
        [@ocaml.doc "The friendly name of the space displayed to users."];
      description: String_.t option
        [@ocaml.doc "The description of the space."]}
    let make ?name =
      fun ?regionName ->
        fun ?displayName ->
          fun ?description ->
            fun () -> { name; regionName; displayName; description }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:NameString.to_value));
        ("regionName", (Option.map x.regionName ~f:RegionString.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let regionName =
        (Option.map ~f:RegionString.of_xml) (Xml.child xml_arg0 "regionName") in
      let name =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "name") in
      make ?description ?displayName ?regionName ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "description" String_.of_json in
      let displayName = field_map json__ "displayName" String_.of_json in
      let regionName = field_map json__ "regionName" RegionString.of_json in
      let name = field_map json__ "name" NameString.of_json in
      make ?description ?displayName ?regionName ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about an space."]
module ListSourceRepositoryBranchesItem =
  struct
    type nonrec t =
      {
      ref: SourceRepositoryBranchRefString.t option
        [@ocaml.doc "The Git reference name of the branch."];
      name: SourceRepositoryBranchString.t option
        [@ocaml.doc "The name of the branch."];
      lastUpdatedTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The time the branch was last updated, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."];
      headCommitId: String_.t option
        [@ocaml.doc
          "The commit ID of the tip of the branch at the time of the request, also known as the head commit."]}
    let make ?ref =
      fun ?name ->
        fun ?lastUpdatedTime ->
          fun ?headCommitId ->
            fun () -> { ref; name; lastUpdatedTime; headCommitId }
    let to_value x =
      structure_to_value
        [("ref",
           (Option.map x.ref ~f:SourceRepositoryBranchRefString.to_value));
        ("name",
          (Option.map x.name ~f:SourceRepositoryBranchString.to_value));
        ("lastUpdatedTime",
          (Option.map x.lastUpdatedTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("headCommitId", (Option.map x.headCommitId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let headCommitId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "headCommitId") in
      let lastUpdatedTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTime") in
      let name =
        (Option.map ~f:SourceRepositoryBranchString.of_xml)
          (Xml.child xml_arg0 "name") in
      let ref =
        (Option.map ~f:SourceRepositoryBranchRefString.of_xml)
          (Xml.child xml_arg0 "ref") in
      make ?headCommitId ?lastUpdatedTime ?name ?ref ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let headCommitId = field_map json__ "headCommitId" String_.of_json in
      let lastUpdatedTime =
        field_map json__ "lastUpdatedTime"
          SyntheticTimestamp_date_time.of_json in
      let name = field_map json__ "name" SourceRepositoryBranchString.of_json in
      let ref =
        field_map json__ "ref" SourceRepositoryBranchRefString.of_json in
      make ?headCommitId ?lastUpdatedTime ?name ?ref ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a branch of a source repository returned in a list of branches."]
module ListSourceRepositoriesItem =
  struct
    type nonrec t =
      {
      id: SourceRepositoryIdString.t option
        [@ocaml.doc
          "The system-generated unique ID of the source repository."];
      name: SourceRepositoryNameString.t option
        [@ocaml.doc "The name of the source repository."];
      description: SourceRepositoryDescriptionString.t option
        [@ocaml.doc "The description of the repository, if any."];
      lastUpdatedTime: Timestamp.t option
        [@ocaml.doc
          "The time the source repository was last updated, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."];
      createdTime: Timestamp.t option
        [@ocaml.doc
          "The time the source repository was created, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."]}
    let make ?id =
      fun ?name ->
        fun ?description ->
          fun ?lastUpdatedTime ->
            fun ?createdTime ->
              fun () ->
                { id; name; description; lastUpdatedTime; createdTime }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:SourceRepositoryIdString.to_value));
        ("name", (Option.map x.name ~f:SourceRepositoryNameString.to_value));
        ("description",
          (Option.map x.description
             ~f:SourceRepositoryDescriptionString.to_value));
        ("lastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:Timestamp.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdTime") in
      let lastUpdatedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTime") in
      let description =
        (Option.map ~f:SourceRepositoryDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:SourceRepositoryNameString.of_xml)
          (Xml.child xml_arg0 "name") in
      let id =
        (Option.map ~f:SourceRepositoryIdString.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?createdTime ?lastUpdatedTime ?description ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdTime = field_map json__ "createdTime" Timestamp.of_json in
      let lastUpdatedTime =
        field_map json__ "lastUpdatedTime" Timestamp.of_json in
      let description =
        field_map json__ "description"
          SourceRepositoryDescriptionString.of_json in
      let name = field_map json__ "name" SourceRepositoryNameString.of_json in
      let id = field_map json__ "id" SourceRepositoryIdString.of_json in
      make ?createdTime ?lastUpdatedTime ?description ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a source repository returned in a list of source repositories."]
module ProjectSummary =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the project in the space."];
      displayName: String_.t option
        [@ocaml.doc
          "The friendly name displayed to users of the project in Amazon CodeCatalyst."];
      description: String_.t option
        [@ocaml.doc "The description of the project."]}
    let make ?name =
      fun ?displayName ->
        fun ?description -> fun () -> { name; displayName; description }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:String_.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?description ?displayName ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "description" String_.of_json in
      let displayName = field_map json__ "displayName" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      make ?description ?displayName ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a project."]
module ProjectListFilter =
  struct
    type nonrec t =
      {
      key: FilterKey.t [@ocaml.doc "A key that can be used to sort results."];
      values: StringList.t [@ocaml.doc "The values of the key."];
      comparisonOperator: ComparisonOperator.t option
        [@ocaml.doc "The operator used to compare the fields."]}
    let context_ = "ProjectListFilter"
    let make ?comparisonOperator =
      fun ~key ->
        fun ~values -> fun () -> { comparisonOperator; key; values }
    let to_value x =
      structure_to_value
        [("key", (Some (FilterKey.to_value x.key)));
        ("values", (Some (StringList.to_value x.values)));
        ("comparisonOperator",
          (Option.map x.comparisonOperator ~f:ComparisonOperator.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comparisonOperator =
        (Option.map ~f:ComparisonOperator.of_xml)
          (Xml.child xml_arg0 "comparisonOperator") in
      let values =
        StringList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "values") in
      let key =
        FilterKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ?comparisonOperator ~values ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comparisonOperator =
        field_map json__ "comparisonOperator" ComparisonOperator.of_json in
      let values = field_map_exn json__ "values" StringList.of_json in
      let key = field_map_exn json__ "key" FilterKey.of_json in
      make ?comparisonOperator ~values ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "nformation about the filter used to narrow the results returned in a list of projects."]
module EventLogEntry =
  struct
    type nonrec t =
      {
      id: String_.t option
        [@ocaml.doc "The system-generated unique ID of the event."];
      eventName: String_.t option [@ocaml.doc "The name of the event."];
      eventType: String_.t option [@ocaml.doc "The type of the event."];
      eventCategory: String_.t option
        [@ocaml.doc "The category for the event."];
      eventSource: String_.t option [@ocaml.doc "The source of the event."];
      eventTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The time the event took place, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."];
      operationType: OperationType.t option
        [@ocaml.doc "The type of the event."];
      userIdentity: UserIdentity.t option
        [@ocaml.doc
          "The system-generated unique ID of the user whose actions are recorded in the event."];
      projectInformation: ProjectInformation.t option
        [@ocaml.doc
          "Information about the project where the event occurred."];
      requestId: String_.t option
        [@ocaml.doc "The system-generated unique ID of the request."];
      requestPayload: EventPayload.t option
        [@ocaml.doc "Information about the payload of the request."];
      responsePayload: EventPayload.t option
        [@ocaml.doc "Information about the payload of the response, if any."];
      errorCode: String_.t option
        [@ocaml.doc "The code of the error, if any."];
      sourceIpAddress: String_.t option
        [@ocaml.doc
          "The IP address of the user whose actions are recorded in the event."];
      userAgent: String_.t option
        [@ocaml.doc
          "The user agent whose actions are recorded in the event."]}
    let make ?id =
      fun ?eventName ->
        fun ?eventType ->
          fun ?eventCategory ->
            fun ?eventSource ->
              fun ?eventTime ->
                fun ?operationType ->
                  fun ?userIdentity ->
                    fun ?projectInformation ->
                      fun ?requestId ->
                        fun ?requestPayload ->
                          fun ?responsePayload ->
                            fun ?errorCode ->
                              fun ?sourceIpAddress ->
                                fun ?userAgent ->
                                  fun () ->
                                    {
                                      id;
                                      eventName;
                                      eventType;
                                      eventCategory;
                                      eventSource;
                                      eventTime;
                                      operationType;
                                      userIdentity;
                                      projectInformation;
                                      requestId;
                                      requestPayload;
                                      responsePayload;
                                      errorCode;
                                      sourceIpAddress;
                                      userAgent
                                    }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:String_.to_value));
        ("eventName", (Option.map x.eventName ~f:String_.to_value));
        ("eventType", (Option.map x.eventType ~f:String_.to_value));
        ("eventCategory", (Option.map x.eventCategory ~f:String_.to_value));
        ("eventSource", (Option.map x.eventSource ~f:String_.to_value));
        ("eventTime",
          (Option.map x.eventTime ~f:SyntheticTimestamp_date_time.to_value));
        ("operationType",
          (Option.map x.operationType ~f:OperationType.to_value));
        ("userIdentity",
          (Option.map x.userIdentity ~f:UserIdentity.to_value));
        ("projectInformation",
          (Option.map x.projectInformation ~f:ProjectInformation.to_value));
        ("requestId", (Option.map x.requestId ~f:String_.to_value));
        ("requestPayload",
          (Option.map x.requestPayload ~f:EventPayload.to_value));
        ("responsePayload",
          (Option.map x.responsePayload ~f:EventPayload.to_value));
        ("errorCode", (Option.map x.errorCode ~f:String_.to_value));
        ("sourceIpAddress",
          (Option.map x.sourceIpAddress ~f:String_.to_value));
        ("userAgent", (Option.map x.userAgent ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userAgent =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "userAgent") in
      let sourceIpAddress =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "sourceIpAddress") in
      let errorCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorCode") in
      let responsePayload =
        (Option.map ~f:EventPayload.of_xml)
          (Xml.child xml_arg0 "responsePayload") in
      let requestPayload =
        (Option.map ~f:EventPayload.of_xml)
          (Xml.child xml_arg0 "requestPayload") in
      let requestId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "requestId") in
      let projectInformation =
        (Option.map ~f:ProjectInformation.of_xml)
          (Xml.child xml_arg0 "projectInformation") in
      let userIdentity =
        (Option.map ~f:UserIdentity.of_xml)
          (Xml.child xml_arg0 "userIdentity") in
      let operationType =
        (Option.map ~f:OperationType.of_xml)
          (Xml.child xml_arg0 "operationType") in
      let eventTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "eventTime") in
      let eventSource =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "eventSource") in
      let eventCategory =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "eventCategory") in
      let eventType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "eventType") in
      let eventName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "eventName") in
      let id = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "id") in
      make ?userAgent ?sourceIpAddress ?errorCode ?responsePayload
        ?requestPayload ?requestId ?projectInformation ?userIdentity
        ?operationType ?eventTime ?eventSource ?eventCategory ?eventType
        ?eventName ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userAgent = field_map json__ "userAgent" String_.of_json in
      let sourceIpAddress =
        field_map json__ "sourceIpAddress" String_.of_json in
      let errorCode = field_map json__ "errorCode" String_.of_json in
      let responsePayload =
        field_map json__ "responsePayload" EventPayload.of_json in
      let requestPayload =
        field_map json__ "requestPayload" EventPayload.of_json in
      let requestId = field_map json__ "requestId" String_.of_json in
      let projectInformation =
        field_map json__ "projectInformation" ProjectInformation.of_json in
      let userIdentity = field_map json__ "userIdentity" UserIdentity.of_json in
      let operationType =
        field_map json__ "operationType" OperationType.of_json in
      let eventTime =
        field_map json__ "eventTime" SyntheticTimestamp_date_time.of_json in
      let eventSource = field_map json__ "eventSource" String_.of_json in
      let eventCategory = field_map json__ "eventCategory" String_.of_json in
      let eventType = field_map json__ "eventType" String_.of_json in
      let eventName = field_map json__ "eventName" String_.of_json in
      let id = field_map json__ "id" String_.of_json in
      make ?userAgent ?sourceIpAddress ?errorCode ?responsePayload
        ?requestPayload ?requestId ?projectInformation ?userIdentity
        ?operationType ?eventTime ?eventSource ?eventCategory ?eventType
        ?eventName ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about an entry in an event log of Amazon CodeCatalyst activity."]
module DevEnvironmentSummary =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t option
        [@ocaml.doc
          "The system-generated unique ID for the Dev Environment."];
      lastUpdatedTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The time when the Dev Environment was last updated, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."];
      creatorId: DevEnvironmentSummaryCreatorIdString.t option
        [@ocaml.doc
          "The system-generated unique ID of the user who created the Dev Environment."];
      status: DevEnvironmentStatus.t option
        [@ocaml.doc "The status of the Dev Environment."];
      statusReason: StatusReason.t option
        [@ocaml.doc "The reason for the status."];
      repositories: DevEnvironmentRepositorySummaries.t option
        [@ocaml.doc
          "Information about the repositories that will be cloned into the Dev Environment. If no rvalue is specified, no repository is cloned."];
      alias: DevEnvironmentSummaryAliasString.t option
        [@ocaml.doc "The user-specified alias for the Dev Environment."];
      ides: Ides.t option
        [@ocaml.doc
          "Information about the integrated development environment (IDE) configured for a Dev Environment."];
      instanceType: InstanceType.t option
        [@ocaml.doc
          "The Amazon EC2 instace type used for the Dev Environment."];
      inactivityTimeoutMinutes: InactivityTimeoutMinutes.t option
        [@ocaml.doc
          "The amount of time the Dev Environment will run without any activity detected before stopping, in minutes. Dev Environments consume compute minutes when running."];
      persistentStorage: PersistentStorage.t option
        [@ocaml.doc
          "Information about the configuration of persistent storage for the Dev Environment."];
      vpcConnectionName: NameString.t option
        [@ocaml.doc
          "The name of the connection used to connect to Amazon VPC used when the Dev Environment was created, if any."]}
    let make ?spaceName =
      fun ?projectName ->
        fun ?id ->
          fun ?lastUpdatedTime ->
            fun ?creatorId ->
              fun ?status ->
                fun ?statusReason ->
                  fun ?repositories ->
                    fun ?alias ->
                      fun ?ides ->
                        fun ?instanceType ->
                          fun ?inactivityTimeoutMinutes ->
                            fun ?persistentStorage ->
                              fun ?vpcConnectionName ->
                                fun () ->
                                  {
                                    spaceName;
                                    projectName;
                                    id;
                                    lastUpdatedTime;
                                    creatorId;
                                    status;
                                    statusReason;
                                    repositories;
                                    alias;
                                    ides;
                                    instanceType;
                                    inactivityTimeoutMinutes;
                                    persistentStorage;
                                    vpcConnectionName
                                  }
    let to_value x =
      structure_to_value
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("id", (Option.map x.id ~f:Uuid.to_value));
        ("lastUpdatedTime",
          (Option.map x.lastUpdatedTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("creatorId",
          (Option.map x.creatorId
             ~f:DevEnvironmentSummaryCreatorIdString.to_value));
        ("status", (Option.map x.status ~f:DevEnvironmentStatus.to_value));
        ("statusReason",
          (Option.map x.statusReason ~f:StatusReason.to_value));
        ("repositories",
          (Option.map x.repositories
             ~f:DevEnvironmentRepositorySummaries.to_value));
        ("alias",
          (Option.map x.alias ~f:DevEnvironmentSummaryAliasString.to_value));
        ("ides", (Option.map x.ides ~f:Ides.to_value));
        ("instanceType",
          (Option.map x.instanceType ~f:InstanceType.to_value));
        ("inactivityTimeoutMinutes",
          (Option.map x.inactivityTimeoutMinutes
             ~f:InactivityTimeoutMinutes.to_value));
        ("persistentStorage",
          (Option.map x.persistentStorage ~f:PersistentStorage.to_value));
        ("vpcConnectionName",
          (Option.map x.vpcConnectionName ~f:NameString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcConnectionName =
        (Option.map ~f:NameString.of_xml)
          (Xml.child xml_arg0 "vpcConnectionName") in
      let persistentStorage =
        (Option.map ~f:PersistentStorage.of_xml)
          (Xml.child xml_arg0 "persistentStorage") in
      let inactivityTimeoutMinutes =
        (Option.map ~f:InactivityTimeoutMinutes.of_xml)
          (Xml.child xml_arg0 "inactivityTimeoutMinutes") in
      let instanceType =
        (Option.map ~f:InstanceType.of_xml)
          (Xml.child xml_arg0 "instanceType") in
      let ides = (Option.map ~f:Ides.of_xml) (Xml.child xml_arg0 "ides") in
      let alias =
        (Option.map ~f:DevEnvironmentSummaryAliasString.of_xml)
          (Xml.child xml_arg0 "alias") in
      let repositories =
        (Option.map ~f:DevEnvironmentRepositorySummaries.of_xml)
          (Xml.child xml_arg0 "repositories") in
      let statusReason =
        (Option.map ~f:StatusReason.of_xml)
          (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:DevEnvironmentStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let creatorId =
        (Option.map ~f:DevEnvironmentSummaryCreatorIdString.of_xml)
          (Xml.child xml_arg0 "creatorId") in
      let lastUpdatedTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTime") in
      let id = (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "id") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?vpcConnectionName ?persistentStorage ?inactivityTimeoutMinutes
        ?instanceType ?ides ?alias ?repositories ?statusReason ?status
        ?creatorId ?lastUpdatedTime ?id ?projectName ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcConnectionName =
        field_map json__ "vpcConnectionName" NameString.of_json in
      let persistentStorage =
        field_map json__ "persistentStorage" PersistentStorage.of_json in
      let inactivityTimeoutMinutes =
        field_map json__ "inactivityTimeoutMinutes"
          InactivityTimeoutMinutes.of_json in
      let instanceType = field_map json__ "instanceType" InstanceType.of_json in
      let ides = field_map json__ "ides" Ides.of_json in
      let alias =
        field_map json__ "alias" DevEnvironmentSummaryAliasString.of_json in
      let repositories =
        field_map json__ "repositories"
          DevEnvironmentRepositorySummaries.of_json in
      let statusReason = field_map json__ "statusReason" StatusReason.of_json in
      let status = field_map json__ "status" DevEnvironmentStatus.of_json in
      let creatorId =
        field_map json__ "creatorId"
          DevEnvironmentSummaryCreatorIdString.of_json in
      let lastUpdatedTime =
        field_map json__ "lastUpdatedTime"
          SyntheticTimestamp_date_time.of_json in
      let id = field_map json__ "id" Uuid.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?vpcConnectionName ?persistentStorage ?inactivityTimeoutMinutes
        ?instanceType ?ides ?alias ?repositories ?statusReason ?status
        ?creatorId ?lastUpdatedTime ?id ?projectName ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a Dev Environment."]
module Filter =
  struct
    type nonrec t =
      {
      key: String_.t [@ocaml.doc "A key that can be used to sort results."];
      values: StringList.t [@ocaml.doc "The values of the key."];
      comparisonOperator: String_.t option
        [@ocaml.doc "The operator used to compare the fields."]}
    let context_ = "Filter"
    let make ?comparisonOperator =
      fun ~key ->
        fun ~values -> fun () -> { comparisonOperator; key; values }
    let to_value x =
      structure_to_value
        [("key", (Some (String_.to_value x.key)));
        ("values", (Some (StringList.to_value x.values)));
        ("comparisonOperator",
          (Option.map x.comparisonOperator ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comparisonOperator =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "comparisonOperator") in
      let values =
        StringList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "values") in
      let key =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ?comparisonOperator ~values ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comparisonOperator =
        field_map json__ "comparisonOperator" String_.of_json in
      let values = field_map_exn json__ "values" StringList.of_json in
      let key = field_map_exn json__ "key" String_.of_json in
      make ?comparisonOperator ~values ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a filter used to limit results of a query."]
module DevEnvironmentSessionSummary =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      devEnvironmentId: Uuid.t option
        [@ocaml.doc "The system-generated unique ID of the Dev Environment."];
      startedTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time the session started, in coordinated universal time (UTC) timestamp format as specified in RFC 3339"];
      id: DevEnvironmentSessionSummaryIdString.t option
        [@ocaml.doc
          "The system-generated unique ID of the Dev Environment session."]}
    let make ?spaceName =
      fun ?projectName ->
        fun ?devEnvironmentId ->
          fun ?startedTime ->
            fun ?id ->
              fun () ->
                { spaceName; projectName; devEnvironmentId; startedTime; id }
    let to_value x =
      structure_to_value
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("devEnvironmentId",
          (Option.map x.devEnvironmentId ~f:Uuid.to_value));
        ("startedTime",
          (Option.map x.startedTime ~f:SyntheticTimestamp_date_time.to_value));
        ("id",
          (Option.map x.id ~f:DevEnvironmentSessionSummaryIdString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        (Option.map ~f:DevEnvironmentSessionSummaryIdString.of_xml)
          (Xml.child xml_arg0 "id") in
      let startedTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "startedTime") in
      let devEnvironmentId =
        (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "devEnvironmentId") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?id ?startedTime ?devEnvironmentId ?projectName ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id =
        field_map json__ "id" DevEnvironmentSessionSummaryIdString.of_json in
      let startedTime =
        field_map json__ "startedTime" SyntheticTimestamp_date_time.of_json in
      let devEnvironmentId = field_map json__ "devEnvironmentId" Uuid.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?id ?startedTime ?devEnvironmentId ?projectName ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about active sessions for a Dev Environment."]
module AccessTokenSummary =
  struct
    type nonrec t =
      {
      id: AccessTokenId.t option
        [@ocaml.doc "The system-generated ID of the personal access token."];
      name: AccessTokenName.t option
        [@ocaml.doc "The friendly name of the personal access token."];
      expiresTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time when the personal access token will expire, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."]}
    let make ?id =
      fun ?name -> fun ?expiresTime -> fun () -> { id; name; expiresTime }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:AccessTokenId.to_value));
        ("name", (Option.map x.name ~f:AccessTokenName.to_value));
        ("expiresTime",
          (Option.map x.expiresTime ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expiresTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "expiresTime") in
      let name =
        (Option.map ~f:AccessTokenName.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:AccessTokenId.of_xml) (Xml.child xml_arg0 "id") in
      make ?expiresTime ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expiresTime =
        field_map json__ "expiresTime" SyntheticTimestamp_date_time.of_json in
      let name = field_map json__ "name" AccessTokenName.of_json in
      let id = field_map json__ "id" AccessTokenId.of_json in
      make ?expiresTime ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a specified personal access token (PAT)."]
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 PersistentStorageConfigurationSizeInGiBInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:64) >>= (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 PersistentStorageConfigurationSizeInGiBInteger"
           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 RepositoryInput =
  struct
    type nonrec t =
      {
      repositoryName: SourceRepositoryNameString.t
        [@ocaml.doc "The name of the source repository."];
      branchName: SourceRepositoryBranchString.t option
        [@ocaml.doc "The name of the branch in a source repository."]}
    let context_ = "RepositoryInput"
    let make ?branchName =
      fun ~repositoryName -> fun () -> { branchName; repositoryName }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (SourceRepositoryNameString.to_value x.repositoryName)));
        ("branchName",
          (Option.map x.branchName ~f:SourceRepositoryBranchString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let branchName =
        (Option.map ~f:SourceRepositoryBranchString.of_xml)
          (Xml.child xml_arg0 "branchName") in
      let repositoryName =
        SourceRepositoryNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?branchName ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let branchName =
        field_map json__ "branchName" SourceRepositoryBranchString.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName"
          SourceRepositoryNameString.of_json in
      make ?branchName ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a repository that will be cloned to a Dev Environment."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was denied because you don't have sufficient access to perform this action. Verify that you are a member of a role that allows this action."]
module ConflictException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was denied because the requested operation would cause a conflict with the current state of a service resource associated with the request. Another user might have updated the resource. Reload, make sure you have the latest data, and then try again."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was denied because the specified resource was not found. Verify that the spelling is correct and that you have access to the resource."]
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was denied because one or more resources has reached its limits for the tier the space belongs to. Either reduce the number of resources, or change the tier if applicable."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was denied because an input failed to satisfy the constraints specified by the service. Check the spelling and input requirements, and then try again."]
module VerifySessionResponseIdentityString =
  struct
    type nonrec t = string
    let context_ = "VerifySessionResponseIdentityString"
    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:"VerifySessionResponseIdentityString" j
    let to_json = simple_to_json to_value
  end
module SpaceDescription =
  struct
    type nonrec t = string
    let context_ = "SpaceDescription"
    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:"[a-zA-Z0-9]+(?:[-_a-zA-Z0-9.,;:/\\+=?&$%    ])*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SpaceDescription" j
    let to_json = simple_to_json to_value
  end
module ProjectDescription =
  struct
    type nonrec t = string
    let context_ = "ProjectDescription"
    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:"[a-zA-Z0-9]+(?:[-_a-zA-Z0-9.,;:/\\+=?&$%    ])*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ProjectDescription" j
    let to_json = simple_to_json to_value
  end
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_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:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module IdeConfigurationList =
  struct
    type nonrec t = IdeConfiguration.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_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IdeConfiguration.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:IdeConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"IdeConfigurationList"
        ~of_json:IdeConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateDevEnvironmentResponseAliasString =
  struct
    type nonrec t = string
    let context_ = "UpdateDevEnvironmentResponseAliasString"
    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]+(?:[-_\\.][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:"UpdateDevEnvironmentResponseAliasString" j
    let to_json = simple_to_json to_value
  end
module UpdateDevEnvironmentRequestAliasString =
  struct
    type nonrec t = string
    let context_ = "UpdateDevEnvironmentRequestAliasString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"$|^[a-zA-Z0-9]+(?:[-_\\.][a-zA-Z0-9]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"UpdateDevEnvironmentRequestAliasString" j
    let to_json = simple_to_json to_value
  end
module StopDevEnvironmentSessionResponseSessionIdString =
  struct
    type nonrec t = string
    let context_ = "StopDevEnvironmentSessionResponseSessionIdString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:96) >>=
             (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:"StopDevEnvironmentSessionResponseSessionIdString"
        j
    let to_json = simple_to_json to_value
  end
module StopDevEnvironmentSessionRequestSessionIdString =
  struct
    type nonrec t = string
    let context_ = "StopDevEnvironmentSessionRequestSessionIdString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:96) >>=
             (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:"StopDevEnvironmentSessionRequestSessionIdString"
        j
    let to_json = simple_to_json to_value
  end
module StartWorkflowRunRequestClientTokenString =
  struct
    type nonrec t = string
    let context_ = "StartWorkflowRunRequestClientTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9]+(?:[-_\\.][a-zA-Z0-9]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"StartWorkflowRunRequestClientTokenString" j
    let to_json = simple_to_json to_value
  end
module StartWorkflowRunRequestProjectNameString =
  struct
    type nonrec t = string
    let context_ = "StartWorkflowRunRequestProjectNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"[a-zA-Z0-9]+(?:[-_\\.][a-zA-Z0-9]+)*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"StartWorkflowRunRequestProjectNameString" j
    let to_json = simple_to_json to_value
  end
module StartWorkflowRunRequestSpaceNameString =
  struct
    type nonrec t = string
    let context_ = "StartWorkflowRunRequestSpaceNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"[a-zA-Z0-9]+(?:[-_\\.][a-zA-Z0-9]+)*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"StartWorkflowRunRequestSpaceNameString" j
    let to_json = simple_to_json to_value
  end
module DevEnvironmentAccessDetails =
  struct
    type nonrec t =
      {
      streamUrl: SensitiveString.t option
        [@ocaml.doc
          "The URL used to send commands to and from the Dev Environment."];
      tokenValue: SensitiveString.t option
        [@ocaml.doc
          "An encrypted token value that contains session and caller information used to authenticate the connection."]}
    let make ?streamUrl =
      fun ?tokenValue -> fun () -> { streamUrl; tokenValue }
    let to_value x =
      structure_to_value
        [("streamUrl", (Option.map x.streamUrl ~f:SensitiveString.to_value));
        ("tokenValue", (Option.map x.tokenValue ~f:SensitiveString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tokenValue =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "tokenValue") in
      let streamUrl =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "streamUrl") in
      make ?tokenValue ?streamUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tokenValue = field_map json__ "tokenValue" SensitiveString.of_json in
      let streamUrl = field_map json__ "streamUrl" SensitiveString.of_json in
      make ?tokenValue ?streamUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about connection details for a Dev Environment."]
module StartDevEnvironmentSessionResponseSessionIdString =
  struct
    type nonrec t = string
    let context_ = "StartDevEnvironmentSessionResponseSessionIdString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:96) >>=
             (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:"StartDevEnvironmentSessionResponseSessionIdString" j
    let to_json = simple_to_json to_value
  end
module DevEnvironmentSessionConfiguration =
  struct
    type nonrec t =
      {
      sessionType: DevEnvironmentSessionType.t
        [@ocaml.doc "The type of the session."];
      executeCommandSessionConfiguration:
        ExecuteCommandSessionConfiguration.t option
        [@ocaml.doc
          "Information about optional commands that will be run on the Dev Environment when the SSH session begins."]}
    let context_ = "DevEnvironmentSessionConfiguration"
    let make ?executeCommandSessionConfiguration =
      fun ~sessionType ->
        fun () -> { executeCommandSessionConfiguration; sessionType }
    let to_value x =
      structure_to_value
        [("sessionType",
           (Some (DevEnvironmentSessionType.to_value x.sessionType)));
        ("executeCommandSessionConfiguration",
          (Option.map x.executeCommandSessionConfiguration
             ~f:ExecuteCommandSessionConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let executeCommandSessionConfiguration =
        (Option.map ~f:ExecuteCommandSessionConfiguration.of_xml)
          (Xml.child xml_arg0 "executeCommandSessionConfiguration") in
      let sessionType =
        DevEnvironmentSessionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sessionType") in
      make ?executeCommandSessionConfiguration ~sessionType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let executeCommandSessionConfiguration =
        field_map json__ "executeCommandSessionConfiguration"
          ExecuteCommandSessionConfiguration.of_json in
      let sessionType =
        field_map_exn json__ "sessionType" DevEnvironmentSessionType.of_json in
      make ?executeCommandSessionConfiguration ~sessionType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the configuration of a Dev Environment session."]
module WorkflowSummaries =
  struct
    type nonrec t = WorkflowSummary.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:WorkflowSummary.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:WorkflowSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkflowSummaries" ~of_json:WorkflowSummary.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ListWorkflowsRequestMaxResultsInteger =
  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 ListWorkflowsRequestMaxResultsInteger"
           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 ListWorkflowsRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListWorkflowsRequestNextTokenString"
    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:"ListWorkflowsRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ListWorkflowsRequestSpaceNameString =
  struct
    type nonrec t = string
    let context_ = "ListWorkflowsRequestSpaceNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"[a-zA-Z0-9]+(?:[-_\\.][a-zA-Z0-9]+)*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ListWorkflowsRequestSpaceNameString" j
    let to_json = simple_to_json to_value
  end
module WorkflowSortCriteriaList =
  struct
    type nonrec t = WorkflowSortCriteria.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_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:WorkflowSortCriteria.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:WorkflowSortCriteria.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkflowSortCriteriaList"
        ~of_json:WorkflowSortCriteria.of_json j
    let to_json v = composed_to_json to_value v
  end
module WorkflowRunSummaries =
  struct
    type nonrec t = WorkflowRunSummary.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:WorkflowRunSummary.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:WorkflowRunSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkflowRunSummaries"
        ~of_json:WorkflowRunSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListWorkflowRunsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListWorkflowRunsRequestMaxResultsInteger"
           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 ListWorkflowRunsRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListWorkflowRunsRequestNextTokenString"
    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:"ListWorkflowRunsRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ListWorkflowRunsRequestProjectNameString =
  struct
    type nonrec t = string
    let context_ = "ListWorkflowRunsRequestProjectNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"[a-zA-Z0-9]+(?:[-_\\.][a-zA-Z0-9]+)*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"ListWorkflowRunsRequestProjectNameString" j
    let to_json = simple_to_json to_value
  end
module WorkflowRunSortCriteriaList =
  struct
    type nonrec t = WorkflowRunSortCriteria.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_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:WorkflowRunSortCriteria.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:WorkflowRunSortCriteria.of_xml)
    let of_json j =
      list_of_json ~kind:"WorkflowRunSortCriteriaList"
        ~of_json:WorkflowRunSortCriteria.of_json j
    let to_json v = composed_to_json to_value v
  end
module SpaceSummaries =
  struct
    type nonrec t = SpaceSummary.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:SpaceSummary.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:SpaceSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"SpaceSummaries" ~of_json:SpaceSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListSpacesRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListSpacesRequestNextTokenString"
    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:"ListSpacesRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ListSourceRepositoryBranchesItems =
  struct
    type nonrec t = ListSourceRepositoryBranchesItem.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:ListSourceRepositoryBranchesItem.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:ListSourceRepositoryBranchesItem.of_xml)
    let of_json j =
      list_of_json ~kind:"ListSourceRepositoryBranchesItems"
        ~of_json:ListSourceRepositoryBranchesItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListSourceRepositoryBranchesRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListSourceRepositoryBranchesRequestMaxResultsInteger"
           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 ListSourceRepositoryBranchesRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListSourceRepositoryBranchesRequestNextTokenString"
    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:"ListSourceRepositoryBranchesRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ListSourceRepositoriesItems =
  struct
    type nonrec t = ListSourceRepositoriesItem.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:ListSourceRepositoriesItem.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:ListSourceRepositoriesItem.of_xml)
    let of_json j =
      list_of_json ~kind:"ListSourceRepositoriesItems"
        ~of_json:ListSourceRepositoriesItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListSourceRepositoriesRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:200) >>= (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 ListSourceRepositoriesRequestMaxResultsInteger"
           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 ListSourceRepositoriesRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListSourceRepositoriesRequestNextTokenString"
    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:"ListSourceRepositoriesRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ProjectSummaries =
  struct
    type nonrec t = ProjectSummary.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:ProjectSummary.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:ProjectSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ProjectSummaries" ~of_json:ProjectSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListProjectsRequestMaxResultsInteger =
  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 ListProjectsRequestMaxResultsInteger"
           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 ListProjectsRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListProjectsRequestNextTokenString"
    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:"ListProjectsRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module ProjectListFilters =
  struct
    type nonrec t = ProjectListFilter.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:ProjectListFilter.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:ProjectListFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"ProjectListFilters"
        ~of_json:ProjectListFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module EventLogEntries =
  struct
    type nonrec t = EventLogEntry.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:EventLogEntry.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:EventLogEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"EventLogEntries" ~of_json:EventLogEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListEventLogsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:250) >>= (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 ListEventLogsRequestMaxResultsInteger"
           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 ListEventLogsRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListEventLogsRequestNextTokenString"
    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:"ListEventLogsRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module DevEnvironmentSummaryList =
  struct
    type nonrec t = DevEnvironmentSummary.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:DevEnvironmentSummary.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:DevEnvironmentSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DevEnvironmentSummaryList"
        ~of_json:DevEnvironmentSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Filters =
  struct
    type nonrec t = Filter.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:Filter.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:Filter.of_xml)
    let of_json j = list_of_json ~kind:"Filters" ~of_json:Filter.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListDevEnvironmentsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for ListDevEnvironmentsRequestMaxResultsInteger"
           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 ListDevEnvironmentsRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListDevEnvironmentsRequestNextTokenString"
    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:"ListDevEnvironmentsRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module DevEnvironmentSessionsSummaryList =
  struct
    type nonrec t = DevEnvironmentSessionSummary.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:DevEnvironmentSessionSummary.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:DevEnvironmentSessionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DevEnvironmentSessionsSummaryList"
        ~of_json:DevEnvironmentSessionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListDevEnvironmentSessionsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:200) >>= (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 ListDevEnvironmentSessionsRequestMaxResultsInteger"
           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 ListDevEnvironmentSessionsRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListDevEnvironmentSessionsRequestNextTokenString"
    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:"ListDevEnvironmentSessionsRequestNextTokenString"
        j
    let to_json = simple_to_json to_value
  end
module AccessTokenSummaries =
  struct
    type nonrec t = AccessTokenSummary.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:AccessTokenSummary.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:AccessTokenSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"AccessTokenSummaries"
        ~of_json:AccessTokenSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListAccessTokensRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_max i ~max:10); 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 ListAccessTokensRequestMaxResultsInteger"
           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 ListAccessTokensRequestNextTokenString =
  struct
    type nonrec t = string
    let context_ = "ListAccessTokensRequestNextTokenString"
    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:"ListAccessTokensRequestNextTokenString" j
    let to_json = simple_to_json to_value
  end
module GetWorkflowRunRequestProjectNameString =
  struct
    type nonrec t = string
    let context_ = "GetWorkflowRunRequestProjectNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"[a-zA-Z0-9]+(?:[-_\\.][a-zA-Z0-9]+)*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"GetWorkflowRunRequestProjectNameString" j
    let to_json = simple_to_json to_value
  end
module WorkflowDefinition =
  struct
    type nonrec t =
      {
      path: String_.t option
        [@ocaml.doc
          "The path to the workflow definition file stored in the source repository for the project, including the file name."]}
    let make ?path = fun () -> { path }
    let to_value x =
      structure_to_value [("path", (Option.map x.path ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let path = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "path") in
      make ?path ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let path = field_map json__ "path" String_.of_json in make ?path ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a workflow definition file."]
module GetWorkflowRequestProjectNameString =
  struct
    type nonrec t = string
    let context_ = "GetWorkflowRequestProjectNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"[a-zA-Z0-9]+(?:[-_\\.][a-zA-Z0-9]+)*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"GetWorkflowRequestProjectNameString" j
    let to_json = simple_to_json to_value
  end
module EmailAddress =
  struct
    type nonrec t =
      {
      email: String_.t option [@ocaml.doc "The email address."];
      verified: Boolean.t option
        [@ocaml.doc "Whether the email address has been verified."]}
    let make ?email = fun ?verified -> fun () -> { email; verified }
    let to_value x =
      structure_to_value
        [("email", (Option.map x.email ~f:String_.to_value));
        ("verified", (Option.map x.verified ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let verified =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "verified") in
      let email = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "email") in
      make ?verified ?email ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let verified = field_map json__ "verified" Boolean.of_json in
      let email = field_map json__ "email" String_.of_json in
      make ?verified ?email ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about an email address."]
module GetUserDetailsRequestIdString =
  struct
    type nonrec t = string
    let context_ = "GetUserDetailsRequestIdString"
    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:"GetUserDetailsRequestIdString" j
    let to_json = simple_to_json to_value
  end
module GetUserDetailsRequestUserNameString =
  struct
    type nonrec t = string
    let context_ = "GetUserDetailsRequestUserNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_.-]{3,100}")));
        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:"GetUserDetailsRequestUserNameString" j
    let to_json = simple_to_json to_value
  end
module GetDevEnvironmentResponseAliasString =
  struct
    type nonrec t = string
    let context_ = "GetDevEnvironmentResponseAliasString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (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:"GetDevEnvironmentResponseAliasString" j
    let to_json = simple_to_json to_value
  end
module GetDevEnvironmentResponseCreatorIdString =
  struct
    type nonrec t = string
    let context_ = "GetDevEnvironmentResponseCreatorIdString"
    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:"GetDevEnvironmentResponseCreatorIdString" j
    let to_json = simple_to_json to_value
  end
module ProjectDisplayName =
  struct
    type nonrec t = string
    let context_ = "ProjectDisplayName"
    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]+(?:[-_\\. ][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:"ProjectDisplayName" j
    let to_json = simple_to_json to_value
  end
module CreateDevEnvironmentRequestAliasString =
  struct
    type nonrec t = string
    let context_ = "CreateDevEnvironmentRequestAliasString"
    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]+(?:[-_\\.][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:"CreateDevEnvironmentRequestAliasString" j
    let to_json = simple_to_json to_value
  end
module PersistentStorageConfiguration =
  struct
    type nonrec t =
      {
      sizeInGiB: PersistentStorageConfigurationSizeInGiBInteger.t
        [@ocaml.doc
          "The size of the persistent storage in gigabytes (specifically GiB). Valid values for storage are based on memory sizes in 16GB increments. Valid values are 16, 32, and 64."]}
    let context_ = "PersistentStorageConfiguration"
    let make ~sizeInGiB = fun () -> { sizeInGiB }
    let to_value x =
      structure_to_value
        [("sizeInGiB",
           (Some
              (PersistentStorageConfigurationSizeInGiBInteger.to_value
                 x.sizeInGiB)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sizeInGiB =
        PersistentStorageConfigurationSizeInGiBInteger.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sizeInGiB") in
      make ~sizeInGiB ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sizeInGiB =
        field_map_exn json__ "sizeInGiB"
          PersistentStorageConfigurationSizeInGiBInteger.of_json in
      make ~sizeInGiB ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the configuration of persistent storage for a Dev Environment."]
module RepositoriesInput =
  struct
    type nonrec t = RepositoryInput.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:RepositoryInput.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:RepositoryInput.of_xml)
    let of_json j =
      list_of_json ~kind:"RepositoriesInput" ~of_json:RepositoryInput.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module AccessTokenSecret =
  struct
    type nonrec t = string
    let context_ = "AccessTokenSecret"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:4000) >>=
             (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:"AccessTokenSecret" j
    let to_json = simple_to_json to_value
  end
module VerifySessionResponse =
  struct
    type nonrec t =
      {
      identity: VerifySessionResponseIdentityString.t option
        [@ocaml.doc
          "The system-generated unique ID of the user in Amazon CodeCatalyst."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identity = fun () -> { identity }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("identity",
           (Option.map x.identity
              ~f:VerifySessionResponseIdentityString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identity =
        (Option.map ~f:VerifySessionResponseIdentityString.of_xml)
          (Xml.child xml_arg0 "identity") in
      make ?identity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identity =
        field_map json__ "identity"
          VerifySessionResponseIdentityString.of_json in
      make ?identity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Verifies whether the calling user has a valid Amazon CodeCatalyst login and session. If successful, this returns the ID of the user in Amazon CodeCatalyst."]
module UpdateSpaceResponse =
  struct
    type nonrec t =
      {
      name: NameString.t option [@ocaml.doc "The name of the space."];
      displayName: String_.t option
        [@ocaml.doc
          "The friendly name of the space displayed to users in Amazon CodeCatalyst."];
      description: String_.t option
        [@ocaml.doc "The description of the space."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?displayName ->
        fun ?description -> fun () -> { name; displayName; description }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("name", (Option.map x.name ~f:NameString.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let name =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "name") in
      make ?description ?displayName ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "description" String_.of_json in
      let displayName = field_map json__ "displayName" String_.of_json in
      let name = field_map json__ "name" NameString.of_json in
      make ?description ?displayName ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Changes one or more values for a space."]
module UpdateSpaceRequest =
  struct
    type nonrec t =
      {
      name: NameString.t [@ocaml.doc "The name of the space."];
      description: SpaceDescription.t option
        [@ocaml.doc "The description of the space."]}
    let context_ = "UpdateSpaceRequest"
    let make ?description = fun ~name -> fun () -> { description; name }
    let to_value x =
      structure_to_value
        [("name", (Some (NameString.to_value x.name)));
        ("description",
          (Option.map x.description ~f:SpaceDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:SpaceDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        NameString.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "description" SpaceDescription.of_json in
      let name = field_map_exn json__ "name" NameString.of_json in
      make ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Changes one or more values for a space."]
module UpdateProjectResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      name: NameString.t option [@ocaml.doc "The name of the project."];
      displayName: String_.t option
        [@ocaml.doc
          "The friendly name of the project displayed to users in Amazon CodeCatalyst."];
      description: String_.t option
        [@ocaml.doc "The description of the project."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?name ->
        fun ?displayName ->
          fun ?description ->
            fun () -> { spaceName; name; displayName; description }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("name", (Option.map x.name ~f:NameString.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let name =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "name") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?description ?displayName ?name ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "description" String_.of_json in
      let displayName = field_map json__ "displayName" String_.of_json in
      let name = field_map json__ "name" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?description ?displayName ?name ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Changes one or more values for a project."]
module UpdateProjectRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      name: NameString.t [@ocaml.doc "The name of the project."];
      description: ProjectDescription.t option
        [@ocaml.doc "The description of the project."]}
    let context_ = "UpdateProjectRequest"
    let make ?description =
      fun ~spaceName ->
        fun ~name -> fun () -> { description; spaceName; name }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("name", (Some (NameString.to_value x.name)));
        ("description",
          (Option.map x.description ~f:ProjectDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:ProjectDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        NameString.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?description ~name ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "description" ProjectDescription.of_json in
      let name = field_map_exn json__ "name" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ?description ~name ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Changes one or more values for a project."]
module UpdateDevEnvironmentResponse =
  struct
    type nonrec t =
      {
      id: Uuid.t option
        [@ocaml.doc "The system-generated unique ID of the Dev Environment."];
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      alias: UpdateDevEnvironmentResponseAliasString.t option
        [@ocaml.doc "The user-specified alias for the Dev Environment."];
      ides: IdeConfigurationList.t option
        [@ocaml.doc
          "Information about the integrated development environment (IDE) configured for the Dev Environment."];
      instanceType: InstanceType.t option
        [@ocaml.doc
          "The Amazon EC2 instace type to use for the Dev Environment."];
      inactivityTimeoutMinutes: InactivityTimeoutMinutes.t option
        [@ocaml.doc
          "The amount of time the Dev Environment will run without any activity detected before stopping, in minutes."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A user-specified idempotency token. Idempotency ensures that an API request completes only once. With an idempotent request, if the original request completes successfully, the subsequent retries return the result from the original successful request and have no additional effect."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?id =
      fun ?spaceName ->
        fun ?projectName ->
          fun ?alias ->
            fun ?ides ->
              fun ?instanceType ->
                fun ?inactivityTimeoutMinutes ->
                  fun ?clientToken ->
                    fun () ->
                      {
                        id;
                        spaceName;
                        projectName;
                        alias;
                        ides;
                        instanceType;
                        inactivityTimeoutMinutes;
                        clientToken
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("id", (Option.map x.id ~f:Uuid.to_value));
        ("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("alias",
          (Option.map x.alias
             ~f:UpdateDevEnvironmentResponseAliasString.to_value));
        ("ides", (Option.map x.ides ~f:IdeConfigurationList.to_value));
        ("instanceType",
          (Option.map x.instanceType ~f:InstanceType.to_value));
        ("inactivityTimeoutMinutes",
          (Option.map x.inactivityTimeoutMinutes
             ~f:InactivityTimeoutMinutes.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let inactivityTimeoutMinutes =
        (Option.map ~f:InactivityTimeoutMinutes.of_xml)
          (Xml.child xml_arg0 "inactivityTimeoutMinutes") in
      let instanceType =
        (Option.map ~f:InstanceType.of_xml)
          (Xml.child xml_arg0 "instanceType") in
      let ides =
        (Option.map ~f:IdeConfigurationList.of_xml)
          (Xml.child xml_arg0 "ides") in
      let alias =
        (Option.map ~f:UpdateDevEnvironmentResponseAliasString.of_xml)
          (Xml.child xml_arg0 "alias") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      let id = (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "id") in
      make ?clientToken ?inactivityTimeoutMinutes ?instanceType ?ides ?alias
        ?projectName ?spaceName ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let inactivityTimeoutMinutes =
        field_map json__ "inactivityTimeoutMinutes"
          InactivityTimeoutMinutes.of_json in
      let instanceType = field_map json__ "instanceType" InstanceType.of_json in
      let ides = field_map json__ "ides" IdeConfigurationList.of_json in
      let alias =
        field_map json__ "alias"
          UpdateDevEnvironmentResponseAliasString.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      let id = field_map json__ "id" Uuid.of_json in
      make ?clientToken ?inactivityTimeoutMinutes ?instanceType ?ides ?alias
        ?projectName ?spaceName ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes one or more values for a Dev Environment. Updating certain values of the Dev Environment will cause a restart."]
module UpdateDevEnvironmentRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t
        [@ocaml.doc "The system-generated unique ID of the Dev Environment."];
      alias: UpdateDevEnvironmentRequestAliasString.t option
        [@ocaml.doc
          "The user-specified alias for the Dev Environment. Changing this value will not cause a restart."];
      ides: IdeConfigurationList.t option
        [@ocaml.doc
          "Information about the integrated development environment (IDE) configured for a Dev Environment."];
      instanceType: InstanceType.t option
        [@ocaml.doc
          "The Amazon EC2 instace type to use for the Dev Environment. Changing this value will cause a restart of the Dev Environment if it is running."];
      inactivityTimeoutMinutes: InactivityTimeoutMinutes.t option
        [@ocaml.doc
          "The amount of time the Dev Environment will run without any activity detected before stopping, in minutes. Only whole integers are allowed. Dev Environments consume compute minutes when running. Changing this value will cause a restart of the Dev Environment if it is running."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A user-specified idempotency token. Idempotency ensures that an API request completes only once. With an idempotent request, if the original request completes successfully, the subsequent retries return the result from the original successful request and have no additional effect."]}
    let context_ = "UpdateDevEnvironmentRequest"
    let make ?alias =
      fun ?ides ->
        fun ?instanceType ->
          fun ?inactivityTimeoutMinutes ->
            fun ?clientToken ->
              fun ~spaceName ->
                fun ~projectName ->
                  fun ~id ->
                    fun () ->
                      {
                        alias;
                        ides;
                        instanceType;
                        inactivityTimeoutMinutes;
                        clientToken;
                        spaceName;
                        projectName;
                        id
                      }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("id", (Some (Uuid.to_value x.id)));
        ("alias",
          (Option.map x.alias
             ~f:UpdateDevEnvironmentRequestAliasString.to_value));
        ("ides", (Option.map x.ides ~f:IdeConfigurationList.to_value));
        ("instanceType",
          (Option.map x.instanceType ~f:InstanceType.to_value));
        ("inactivityTimeoutMinutes",
          (Option.map x.inactivityTimeoutMinutes
             ~f:InactivityTimeoutMinutes.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let inactivityTimeoutMinutes =
        (Option.map ~f:InactivityTimeoutMinutes.of_xml)
          (Xml.child xml_arg0 "inactivityTimeoutMinutes") in
      let instanceType =
        (Option.map ~f:InstanceType.of_xml)
          (Xml.child xml_arg0 "instanceType") in
      let ides =
        (Option.map ~f:IdeConfigurationList.of_xml)
          (Xml.child xml_arg0 "ides") in
      let alias =
        (Option.map ~f:UpdateDevEnvironmentRequestAliasString.of_xml)
          (Xml.child xml_arg0 "alias") in
      let id = Uuid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?clientToken ?inactivityTimeoutMinutes ?instanceType ?ides ?alias
        ~id ~projectName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let inactivityTimeoutMinutes =
        field_map json__ "inactivityTimeoutMinutes"
          InactivityTimeoutMinutes.of_json in
      let instanceType = field_map json__ "instanceType" InstanceType.of_json in
      let ides = field_map json__ "ides" IdeConfigurationList.of_json in
      let alias =
        field_map json__ "alias"
          UpdateDevEnvironmentRequestAliasString.of_json in
      let id = field_map_exn json__ "id" Uuid.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ?clientToken ?inactivityTimeoutMinutes ?instanceType ?ides ?alias
        ~id ~projectName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes one or more values for a Dev Environment. Updating certain values of the Dev Environment will cause a restart."]
module StopDevEnvironmentSessionResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t option
        [@ocaml.doc "The system-generated unique ID of the Dev Environment."];
      sessionId: StopDevEnvironmentSessionResponseSessionIdString.t option
        [@ocaml.doc
          "The system-generated unique ID of the Dev Environment session."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?projectName ->
        fun ?id ->
          fun ?sessionId ->
            fun () -> { spaceName; projectName; id; sessionId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("id", (Option.map x.id ~f:Uuid.to_value));
        ("sessionId",
          (Option.map x.sessionId
             ~f:StopDevEnvironmentSessionResponseSessionIdString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        (Option.map
           ~f:StopDevEnvironmentSessionResponseSessionIdString.of_xml)
          (Xml.child xml_arg0 "sessionId") in
      let id = (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "id") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?sessionId ?id ?projectName ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId =
        field_map json__ "sessionId"
          StopDevEnvironmentSessionResponseSessionIdString.of_json in
      let id = field_map json__ "id" Uuid.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?sessionId ?id ?projectName ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops a session for a specified Dev Environment."]
module StopDevEnvironmentSessionRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t
        [@ocaml.doc
          "The system-generated unique ID of the Dev Environment. To obtain this ID, use ListDevEnvironments."];
      sessionId: StopDevEnvironmentSessionRequestSessionIdString.t
        [@ocaml.doc
          "The system-generated unique ID of the Dev Environment session. This ID is returned by StartDevEnvironmentSession."]}
    let context_ = "StopDevEnvironmentSessionRequest"
    let make ~spaceName =
      fun ~projectName ->
        fun ~id ->
          fun ~sessionId ->
            fun () -> { spaceName; projectName; id; sessionId }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("id", (Some (Uuid.to_value x.id)));
        ("sessionId",
          (Some
             (StopDevEnvironmentSessionRequestSessionIdString.to_value
                x.sessionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        StopDevEnvironmentSessionRequestSessionIdString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let id = Uuid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ~sessionId ~id ~projectName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId =
        field_map_exn json__ "sessionId"
          StopDevEnvironmentSessionRequestSessionIdString.of_json in
      let id = field_map_exn json__ "id" Uuid.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ~sessionId ~id ~projectName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops a session for a specified Dev Environment."]
module StopDevEnvironmentResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t option
        [@ocaml.doc "The system-generated unique ID of the Dev Environment."];
      status: DevEnvironmentStatus.t option
        [@ocaml.doc "The status of the Dev Environment."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?projectName ->
        fun ?id ->
          fun ?status -> fun () -> { spaceName; projectName; id; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("id", (Option.map x.id ~f:Uuid.to_value));
        ("status", (Option.map x.status ~f:DevEnvironmentStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:DevEnvironmentStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let id = (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "id") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?status ?id ?projectName ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" DevEnvironmentStatus.of_json in
      let id = field_map json__ "id" Uuid.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?status ?id ?projectName ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Pauses a specified Dev Environment and places it in a non-running state. Stopped Dev Environments do not consume compute minutes."]
module StopDevEnvironmentRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t
        [@ocaml.doc "The system-generated unique ID of the Dev Environment."]}
    let context_ = "StopDevEnvironmentRequest"
    let make ~spaceName =
      fun ~projectName -> fun ~id -> fun () -> { spaceName; projectName; id }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("id", (Some (Uuid.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = Uuid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ~id ~projectName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" Uuid.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ~id ~projectName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Pauses a specified Dev Environment and places it in a non-running state. Stopped Dev Environments do not consume compute minutes."]
module StartWorkflowRunResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t option
        [@ocaml.doc "The system-generated unique ID of the workflow run."];
      workflowId: Uuid.t option
        [@ocaml.doc "The system-generated unique ID of the workflow."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?projectName ->
        fun ?id ->
          fun ?workflowId ->
            fun () -> { spaceName; projectName; id; workflowId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("id", (Option.map x.id ~f:Uuid.to_value));
        ("workflowId", (Option.map x.workflowId ~f:Uuid.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workflowId =
        (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "workflowId") in
      let id = (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "id") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?workflowId ?id ?projectName ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workflowId = field_map json__ "workflowId" Uuid.of_json in
      let id = field_map json__ "id" Uuid.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?workflowId ?id ?projectName ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Begins a run of a specified workflow."]
module StartWorkflowRunRequest =
  struct
    type nonrec t =
      {
      spaceName: StartWorkflowRunRequestSpaceNameString.t
        [@ocaml.doc "The name of the space."];
      projectName: StartWorkflowRunRequestProjectNameString.t
        [@ocaml.doc "The name of the project in the space."];
      workflowId: Uuid.t
        [@ocaml.doc
          "The system-generated unique ID of the workflow. To retrieve a list of workflow IDs, use ListWorkflows."];
      clientToken: StartWorkflowRunRequestClientTokenString.t option
        [@ocaml.doc
          "A user-specified idempotency token. Idempotency ensures that an API request completes only once. With an idempotent request, if the original request completes successfully, the subsequent retries return the result from the original successful request and have no additional effect."]}
    let context_ = "StartWorkflowRunRequest"
    let make ?clientToken =
      fun ~spaceName ->
        fun ~projectName ->
          fun ~workflowId ->
            fun () -> { clientToken; spaceName; projectName; workflowId }
    let to_value x =
      structure_to_value
        [("spaceName",
           (Some
              (StartWorkflowRunRequestSpaceNameString.to_value x.spaceName)));
        ("projectName",
          (Some
             (StartWorkflowRunRequestProjectNameString.to_value x.projectName)));
        ("workflowId", (Some (Uuid.to_value x.workflowId)));
        ("clientToken",
          (Option.map x.clientToken
             ~f:StartWorkflowRunRequestClientTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:StartWorkflowRunRequestClientTokenString.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      let workflowId =
        Uuid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "workflowId") in
      let projectName =
        StartWorkflowRunRequestProjectNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        StartWorkflowRunRequestSpaceNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?clientToken ~workflowId ~projectName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken =
        field_map json__ "clientToken"
          StartWorkflowRunRequestClientTokenString.of_json in
      let workflowId = field_map_exn json__ "workflowId" Uuid.of_json in
      let projectName =
        field_map_exn json__ "projectName"
          StartWorkflowRunRequestProjectNameString.of_json in
      let spaceName =
        field_map_exn json__ "spaceName"
          StartWorkflowRunRequestSpaceNameString.of_json in
      make ?clientToken ~workflowId ~projectName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Begins a run of a specified workflow."]
module StartDevEnvironmentSessionResponse =
  struct
    type nonrec t =
      {
      accessDetails: DevEnvironmentAccessDetails.t option ;
      sessionId: StartDevEnvironmentSessionResponseSessionIdString.t option
        [@ocaml.doc
          "The system-generated unique ID of the Dev Environment session."];
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t option
        [@ocaml.doc "The system-generated unique ID of the Dev Environment."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accessDetails =
      fun ?sessionId ->
        fun ?spaceName ->
          fun ?projectName ->
            fun ?id ->
              fun () ->
                { accessDetails; sessionId; spaceName; projectName; id }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("accessDetails",
           (Option.map x.accessDetails
              ~f:DevEnvironmentAccessDetails.to_value));
        ("sessionId",
          (Option.map x.sessionId
             ~f:StartDevEnvironmentSessionResponseSessionIdString.to_value));
        ("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("id", (Option.map x.id ~f:Uuid.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "id") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      let sessionId =
        (Option.map
           ~f:StartDevEnvironmentSessionResponseSessionIdString.of_xml)
          (Xml.child xml_arg0 "sessionId") in
      let accessDetails =
        (Option.map ~f:DevEnvironmentAccessDetails.of_xml)
          (Xml.child xml_arg0 "accessDetails") in
      make ?id ?projectName ?spaceName ?sessionId ?accessDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map json__ "id" Uuid.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      let sessionId =
        field_map json__ "sessionId"
          StartDevEnvironmentSessionResponseSessionIdString.of_json in
      let accessDetails =
        field_map json__ "accessDetails" DevEnvironmentAccessDetails.of_json in
      make ?id ?projectName ?spaceName ?sessionId ?accessDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Starts a session for a specified Dev Environment."]
module StartDevEnvironmentSessionRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t
        [@ocaml.doc "The system-generated unique ID of the Dev Environment."];
      sessionConfiguration: DevEnvironmentSessionConfiguration.t }
    let context_ = "StartDevEnvironmentSessionRequest"
    let make ~spaceName =
      fun ~projectName ->
        fun ~id ->
          fun ~sessionConfiguration ->
            fun () -> { spaceName; projectName; id; sessionConfiguration }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("id", (Some (Uuid.to_value x.id)));
        ("sessionConfiguration",
          (Some
             (DevEnvironmentSessionConfiguration.to_value
                x.sessionConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionConfiguration =
        DevEnvironmentSessionConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sessionConfiguration") in
      let id = Uuid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ~sessionConfiguration ~id ~projectName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionConfiguration =
        field_map_exn json__ "sessionConfiguration"
          DevEnvironmentSessionConfiguration.of_json in
      let id = field_map_exn json__ "id" Uuid.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ~sessionConfiguration ~id ~projectName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Starts a session for a specified Dev Environment."]
module StartDevEnvironmentResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t option
        [@ocaml.doc "The system-generated unique ID of the Dev Environment."];
      status: DevEnvironmentStatus.t option
        [@ocaml.doc "The status of the Dev Environment."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?projectName ->
        fun ?id ->
          fun ?status -> fun () -> { spaceName; projectName; id; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("id", (Option.map x.id ~f:Uuid.to_value));
        ("status", (Option.map x.status ~f:DevEnvironmentStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:DevEnvironmentStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let id = (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "id") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?status ?id ?projectName ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" DevEnvironmentStatus.of_json in
      let id = field_map json__ "id" Uuid.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?status ?id ?projectName ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a specified Dev Environment and puts it into an active state."]
module StartDevEnvironmentRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t
        [@ocaml.doc "The system-generated unique ID of the Dev Environment."];
      ides: IdeConfigurationList.t option
        [@ocaml.doc
          "Information about the integrated development environment (IDE) configured for a Dev Environment."];
      instanceType: InstanceType.t option
        [@ocaml.doc
          "The Amazon EC2 instace type to use for the Dev Environment."];
      inactivityTimeoutMinutes: InactivityTimeoutMinutes.t option
        [@ocaml.doc
          "The amount of time the Dev Environment will run without any activity detected before stopping, in minutes. Only whole integers are allowed. Dev Environments consume compute minutes when running."]}
    let context_ = "StartDevEnvironmentRequest"
    let make ?ides =
      fun ?instanceType ->
        fun ?inactivityTimeoutMinutes ->
          fun ~spaceName ->
            fun ~projectName ->
              fun ~id ->
                fun () ->
                  {
                    ides;
                    instanceType;
                    inactivityTimeoutMinutes;
                    spaceName;
                    projectName;
                    id
                  }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("id", (Some (Uuid.to_value x.id)));
        ("ides", (Option.map x.ides ~f:IdeConfigurationList.to_value));
        ("instanceType",
          (Option.map x.instanceType ~f:InstanceType.to_value));
        ("inactivityTimeoutMinutes",
          (Option.map x.inactivityTimeoutMinutes
             ~f:InactivityTimeoutMinutes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inactivityTimeoutMinutes =
        (Option.map ~f:InactivityTimeoutMinutes.of_xml)
          (Xml.child xml_arg0 "inactivityTimeoutMinutes") in
      let instanceType =
        (Option.map ~f:InstanceType.of_xml)
          (Xml.child xml_arg0 "instanceType") in
      let ides =
        (Option.map ~f:IdeConfigurationList.of_xml)
          (Xml.child xml_arg0 "ides") in
      let id = Uuid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?inactivityTimeoutMinutes ?instanceType ?ides ~id ~projectName
        ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inactivityTimeoutMinutes =
        field_map json__ "inactivityTimeoutMinutes"
          InactivityTimeoutMinutes.of_json in
      let instanceType = field_map json__ "instanceType" InstanceType.of_json in
      let ides = field_map json__ "ides" IdeConfigurationList.of_json in
      let id = field_map_exn json__ "id" Uuid.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ?inactivityTimeoutMinutes ?instanceType ?ides ~id ~projectName
        ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a specified Dev Environment and puts it into an active state."]
module ListWorkflowsResponse =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."];
      items: WorkflowSummaries.t option
        [@ocaml.doc "Information about the workflows in a project."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?items -> fun () -> { nextToken; items }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("items", (Option.map x.items ~f:WorkflowSummaries.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let items =
        (Option.map ~f:WorkflowSummaries.of_xml) (Xml.child xml_arg0 "items") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?items ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let items = field_map json__ "items" WorkflowSummaries.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?items ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of workflows in a specified project."]
module ListWorkflowsRequest =
  struct
    type nonrec t =
      {
      spaceName: ListWorkflowsRequestSpaceNameString.t
        [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      nextToken: ListWorkflowsRequestNextTokenString.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."];
      maxResults: ListWorkflowsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to show in a single call to this API. If the number of results is larger than the number you specified, the response will include a NextToken element, which you can use to obtain additional results."];
      sortBy: WorkflowSortCriteriaList.t option
        [@ocaml.doc
          "Information used to sort the items in the returned list."]}
    let context_ = "ListWorkflowsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?sortBy ->
          fun ~spaceName ->
            fun ~projectName ->
              fun () ->
                { nextToken; maxResults; sortBy; spaceName; projectName }
    let to_value x =
      structure_to_value
        [("spaceName",
           (Some (ListWorkflowsRequestSpaceNameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("nextToken",
          (Option.map x.nextToken
             ~f:ListWorkflowsRequestNextTokenString.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListWorkflowsRequestMaxResultsInteger.to_value));
        ("sortBy",
          (Option.map x.sortBy ~f:WorkflowSortCriteriaList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortBy =
        (Option.map ~f:WorkflowSortCriteriaList.of_xml)
          (Xml.child xml_arg0 "sortBy") in
      let maxResults =
        (Option.map ~f:ListWorkflowsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ListWorkflowsRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        ListWorkflowsRequestSpaceNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?sortBy ?maxResults ?nextToken ~projectName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortBy = field_map json__ "sortBy" WorkflowSortCriteriaList.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListWorkflowsRequestMaxResultsInteger.of_json in
      let nextToken =
        field_map json__ "nextToken"
          ListWorkflowsRequestNextTokenString.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName =
        field_map_exn json__ "spaceName"
          ListWorkflowsRequestSpaceNameString.of_json in
      make ?sortBy ?maxResults ?nextToken ~projectName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of workflows in a specified project."]
module ListWorkflowRunsResponse =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."];
      items: WorkflowRunSummaries.t option
        [@ocaml.doc "Information about the runs of a workflow."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?items -> fun () -> { nextToken; items }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("items", (Option.map x.items ~f:WorkflowRunSummaries.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let items =
        (Option.map ~f:WorkflowRunSummaries.of_xml)
          (Xml.child xml_arg0 "items") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?items ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let items = field_map json__ "items" WorkflowRunSummaries.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?items ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of workflow runs of a specified workflow."]
module ListWorkflowRunsRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      workflowId: Uuid.t option
        [@ocaml.doc
          "The ID of the workflow. To retrieve a list of workflow IDs, use ListWorkflows."];
      projectName: ListWorkflowRunsRequestProjectNameString.t
        [@ocaml.doc "The name of the project in the space."];
      nextToken: ListWorkflowRunsRequestNextTokenString.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."];
      maxResults: ListWorkflowRunsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to show in a single call to this API. If the number of results is larger than the number you specified, the response will include a NextToken element, which you can use to obtain additional results."];
      sortBy: WorkflowRunSortCriteriaList.t option
        [@ocaml.doc
          "Information used to sort the items in the returned list."]}
    let context_ = "ListWorkflowRunsRequest"
    let make ?workflowId =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ?sortBy ->
            fun ~spaceName ->
              fun ~projectName ->
                fun () ->
                  {
                    workflowId;
                    nextToken;
                    maxResults;
                    sortBy;
                    spaceName;
                    projectName
                  }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("workflowId", (Option.map x.workflowId ~f:Uuid.to_value));
        ("projectName",
          (Some
             (ListWorkflowRunsRequestProjectNameString.to_value x.projectName)));
        ("nextToken",
          (Option.map x.nextToken
             ~f:ListWorkflowRunsRequestNextTokenString.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListWorkflowRunsRequestMaxResultsInteger.to_value));
        ("sortBy",
          (Option.map x.sortBy ~f:WorkflowRunSortCriteriaList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortBy =
        (Option.map ~f:WorkflowRunSortCriteriaList.of_xml)
          (Xml.child xml_arg0 "sortBy") in
      let maxResults =
        (Option.map ~f:ListWorkflowRunsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ListWorkflowRunsRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let projectName =
        ListWorkflowRunsRequestProjectNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let workflowId =
        (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "workflowId") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?sortBy ?maxResults ?nextToken ~projectName ?workflowId ~spaceName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortBy =
        field_map json__ "sortBy" WorkflowRunSortCriteriaList.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListWorkflowRunsRequestMaxResultsInteger.of_json in
      let nextToken =
        field_map json__ "nextToken"
          ListWorkflowRunsRequestNextTokenString.of_json in
      let projectName =
        field_map_exn json__ "projectName"
          ListWorkflowRunsRequestProjectNameString.of_json in
      let workflowId = field_map json__ "workflowId" Uuid.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ?sortBy ?maxResults ?nextToken ~projectName ?workflowId ~spaceName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of workflow runs of a specified workflow."]
module ListSpacesResponse =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."];
      items: SpaceSummaries.t option
        [@ocaml.doc "Information about the spaces."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?items -> fun () -> { nextToken; items }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("items", (Option.map x.items ~f:SpaceSummaries.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let items =
        (Option.map ~f:SpaceSummaries.of_xml) (Xml.child xml_arg0 "items") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?items ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let items = field_map json__ "items" SpaceSummaries.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?items ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of spaces."]
module ListSpacesRequest =
  struct
    type nonrec t =
      {
      nextToken: ListSpacesRequestNextTokenString.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."]}
    let make ?nextToken = fun () -> { nextToken }
    let to_value x =
      structure_to_value
        [("nextToken",
           (Option.map x.nextToken
              ~f:ListSpacesRequestNextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:ListSpacesRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "nextToken" ListSpacesRequestNextTokenString.of_json in
      make ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of spaces."]
module ListSourceRepositoryBranchesResponse =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."];
      items: ListSourceRepositoryBranchesItems.t option
        [@ocaml.doc "Information about the source branches."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?items -> fun () -> { nextToken; items }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("items",
          (Option.map x.items ~f:ListSourceRepositoryBranchesItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let items =
        (Option.map ~f:ListSourceRepositoryBranchesItems.of_xml)
          (Xml.child xml_arg0 "items") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?items ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let items =
        field_map json__ "items" ListSourceRepositoryBranchesItems.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?items ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of branches in a specified source repository."]
module ListSourceRepositoryBranchesRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      sourceRepositoryName: SourceRepositoryNameString.t
        [@ocaml.doc "The name of the source repository."];
      nextToken: ListSourceRepositoryBranchesRequestNextTokenString.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."];
      maxResults:
        ListSourceRepositoryBranchesRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to show in a single call to this API. If the number of results is larger than the number you specified, the response will include a NextToken element, which you can use to obtain additional results."]}
    let context_ = "ListSourceRepositoryBranchesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~spaceName ->
          fun ~projectName ->
            fun ~sourceRepositoryName ->
              fun () ->
                {
                  nextToken;
                  maxResults;
                  spaceName;
                  projectName;
                  sourceRepositoryName
                }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("sourceRepositoryName",
          (Some (SourceRepositoryNameString.to_value x.sourceRepositoryName)));
        ("nextToken",
          (Option.map x.nextToken
             ~f:ListSourceRepositoryBranchesRequestNextTokenString.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListSourceRepositoryBranchesRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map
           ~f:ListSourceRepositoryBranchesRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map
           ~f:ListSourceRepositoryBranchesRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let sourceRepositoryName =
        SourceRepositoryNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceRepositoryName") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?maxResults ?nextToken ~sourceRepositoryName ~projectName
        ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListSourceRepositoryBranchesRequestMaxResultsInteger.of_json in
      let nextToken =
        field_map json__ "nextToken"
          ListSourceRepositoryBranchesRequestNextTokenString.of_json in
      let sourceRepositoryName =
        field_map_exn json__ "sourceRepositoryName"
          SourceRepositoryNameString.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ?maxResults ?nextToken ~sourceRepositoryName ~projectName
        ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of branches in a specified source repository."]
module ListSourceRepositoriesResponse =
  struct
    type nonrec t =
      {
      items: ListSourceRepositoriesItems.t option
        [@ocaml.doc "Information about the source repositories."];
      nextToken: String_.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("items",
           (Option.map x.items ~f:ListSourceRepositoriesItems.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:ListSourceRepositoriesItems.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let items =
        field_map json__ "items" ListSourceRepositoriesItems.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of source repositories in a project."]
module ListSourceRepositoriesRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      nextToken: ListSourceRepositoriesRequestNextTokenString.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."];
      maxResults: ListSourceRepositoriesRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to show in a single call to this API. If the number of results is larger than the number you specified, the response will include a NextToken element, which you can use to obtain additional results."]}
    let context_ = "ListSourceRepositoriesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~spaceName ->
          fun ~projectName ->
            fun () -> { nextToken; maxResults; spaceName; projectName }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("nextToken",
          (Option.map x.nextToken
             ~f:ListSourceRepositoriesRequestNextTokenString.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListSourceRepositoriesRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListSourceRepositoriesRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ListSourceRepositoriesRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?maxResults ?nextToken ~projectName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListSourceRepositoriesRequestMaxResultsInteger.of_json in
      let nextToken =
        field_map json__ "nextToken"
          ListSourceRepositoriesRequestNextTokenString.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ?maxResults ?nextToken ~projectName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of source repositories in a project."]
module ListProjectsResponse =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."];
      items: ProjectSummaries.t option
        [@ocaml.doc "Information about the projects."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?items -> fun () -> { nextToken; items }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("items", (Option.map x.items ~f:ProjectSummaries.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let items =
        (Option.map ~f:ProjectSummaries.of_xml) (Xml.child xml_arg0 "items") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?items ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let items = field_map json__ "items" ProjectSummaries.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?items ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of projects."]
module ListProjectsRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      nextToken: ListProjectsRequestNextTokenString.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."];
      maxResults: ListProjectsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to show in a single call to this API. If the number of results is larger than the number you specified, the response will include a NextToken element, which you can use to obtain additional results."];
      filters: ProjectListFilters.t option
        [@ocaml.doc
          "Information about filters to apply to narrow the results returned in the list."]}
    let context_ = "ListProjectsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?filters ->
          fun ~spaceName ->
            fun () -> { nextToken; maxResults; filters; spaceName }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("nextToken",
          (Option.map x.nextToken
             ~f:ListProjectsRequestNextTokenString.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListProjectsRequestMaxResultsInteger.to_value));
        ("filters", (Option.map x.filters ~f:ProjectListFilters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:ProjectListFilters.of_xml)
          (Xml.child xml_arg0 "filters") in
      let maxResults =
        (Option.map ~f:ListProjectsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ListProjectsRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?filters ?maxResults ?nextToken ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "filters" ProjectListFilters.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListProjectsRequestMaxResultsInteger.of_json in
      let nextToken =
        field_map json__ "nextToken"
          ListProjectsRequestNextTokenString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ?filters ?maxResults ?nextToken ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of projects."]
module ListEventLogsResponse =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."];
      items: EventLogEntries.t option
        [@ocaml.doc "Information about each event retrieved in the list."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?items -> fun () -> { nextToken; items }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("items", (Option.map x.items ~f:EventLogEntries.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let items =
        (Option.map ~f:EventLogEntries.of_xml) (Xml.child xml_arg0 "items") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?items ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let items = field_map json__ "items" EventLogEntries.of_json in
      let nextToken = field_map json__ "nextToken" String_.of_json in
      make ?items ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of events that occurred during a specific time in a space. You can use these events to audit user and system activity in a space. For more information, see Monitoring in the Amazon CodeCatalyst User Guide. ListEventLogs guarantees events for the last 30 days in a given space. You can also view and retrieve a list of management events over the last 90 days for Amazon CodeCatalyst in the CloudTrail console by viewing Event history, or by creating a trail to create and maintain a record of events that extends past 90 days. For more information, see Working with CloudTrail Event History and Working with CloudTrail trails."]
module ListEventLogsRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      startTime: SyntheticTimestamp_date_time.t
        [@ocaml.doc
          "The date and time when you want to start retrieving events, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."];
      endTime: SyntheticTimestamp_date_time.t
        [@ocaml.doc
          "The time after which you do not want any events retrieved, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."];
      eventName: String_.t option [@ocaml.doc "The name of the event."];
      nextToken: ListEventLogsRequestNextTokenString.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."];
      maxResults: ListEventLogsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to show in a single call to this API. If the number of results is larger than the number you specified, the response will include a NextToken element, which you can use to obtain additional results."]}
    let context_ = "ListEventLogsRequest"
    let make ?eventName =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~spaceName ->
            fun ~startTime ->
              fun ~endTime ->
                fun () ->
                  {
                    eventName;
                    nextToken;
                    maxResults;
                    spaceName;
                    startTime;
                    endTime
                  }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("startTime",
          (Some (SyntheticTimestamp_date_time.to_value x.startTime)));
        ("endTime", (Some (SyntheticTimestamp_date_time.to_value x.endTime)));
        ("eventName", (Option.map x.eventName ~f:String_.to_value));
        ("nextToken",
          (Option.map x.nextToken
             ~f:ListEventLogsRequestNextTokenString.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListEventLogsRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListEventLogsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ListEventLogsRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let eventName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "eventName") in
      let endTime =
        SyntheticTimestamp_date_time.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "endTime") in
      let startTime =
        SyntheticTimestamp_date_time.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "startTime") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?maxResults ?nextToken ?eventName ~endTime ~startTime ~spaceName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListEventLogsRequestMaxResultsInteger.of_json in
      let nextToken =
        field_map json__ "nextToken"
          ListEventLogsRequestNextTokenString.of_json in
      let eventName = field_map json__ "eventName" String_.of_json in
      let endTime =
        field_map_exn json__ "endTime" SyntheticTimestamp_date_time.of_json in
      let startTime =
        field_map_exn json__ "startTime" SyntheticTimestamp_date_time.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ?maxResults ?nextToken ?eventName ~endTime ~startTime ~spaceName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of events that occurred during a specific time in a space. You can use these events to audit user and system activity in a space. For more information, see Monitoring in the Amazon CodeCatalyst User Guide. ListEventLogs guarantees events for the last 30 days in a given space. You can also view and retrieve a list of management events over the last 90 days for Amazon CodeCatalyst in the CloudTrail console by viewing Event history, or by creating a trail to create and maintain a record of events that extends past 90 days. For more information, see Working with CloudTrail Event History and Working with CloudTrail trails."]
module ListDevEnvironmentsResponse =
  struct
    type nonrec t =
      {
      items: DevEnvironmentSummaryList.t option
        [@ocaml.doc "Information about the Dev Environments in a project."];
      nextToken: String_.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("items",
           (Option.map x.items ~f:DevEnvironmentSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:DevEnvironmentSummaryList.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let items = field_map json__ "items" DevEnvironmentSummaryList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of Dev Environments in a project."]
module ListDevEnvironmentsRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      filters: Filters.t option
        [@ocaml.doc
          "Information about filters to apply to narrow the results returned in the list."];
      nextToken: ListDevEnvironmentsRequestNextTokenString.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."];
      maxResults: ListDevEnvironmentsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to show in a single call to this API. If the number of results is larger than the number you specified, the response will include a NextToken element, which you can use to obtain additional results."]}
    let context_ = "ListDevEnvironmentsRequest"
    let make ?projectName =
      fun ?filters ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~spaceName ->
              fun () ->
                { projectName; filters; nextToken; maxResults; spaceName }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("filters", (Option.map x.filters ~f:Filters.to_value));
        ("nextToken",
          (Option.map x.nextToken
             ~f:ListDevEnvironmentsRequestNextTokenString.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListDevEnvironmentsRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ListDevEnvironmentsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:ListDevEnvironmentsRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "filters") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?maxResults ?nextToken ?filters ?projectName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListDevEnvironmentsRequestMaxResultsInteger.of_json in
      let nextToken =
        field_map json__ "nextToken"
          ListDevEnvironmentsRequestNextTokenString.of_json in
      let filters = field_map json__ "filters" Filters.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ?maxResults ?nextToken ?filters ?projectName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves a list of Dev Environments in a project."]
module ListDevEnvironmentSessionsResponse =
  struct
    type nonrec t =
      {
      items: DevEnvironmentSessionsSummaryList.t option
        [@ocaml.doc "Information about each session retrieved in the list."];
      nextToken: String_.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("items",
           (Option.map x.items ~f:DevEnvironmentSessionsSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:DevEnvironmentSessionsSummaryList.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let items =
        field_map json__ "items" DevEnvironmentSessionsSummaryList.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of active sessions for a Dev Environment in a project."]
module ListDevEnvironmentSessionsRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      devEnvironmentId: Uuid.t
        [@ocaml.doc "The system-generated unique ID of the Dev Environment."];
      nextToken: ListDevEnvironmentSessionsRequestNextTokenString.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."];
      maxResults: ListDevEnvironmentSessionsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to show in a single call to this API. If the number of results is larger than the number you specified, the response will include a NextToken element, which you can use to obtain additional results."]}
    let context_ = "ListDevEnvironmentSessionsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~spaceName ->
          fun ~projectName ->
            fun ~devEnvironmentId ->
              fun () ->
                {
                  nextToken;
                  maxResults;
                  spaceName;
                  projectName;
                  devEnvironmentId
                }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("devEnvironmentId", (Some (Uuid.to_value x.devEnvironmentId)));
        ("nextToken",
          (Option.map x.nextToken
             ~f:ListDevEnvironmentSessionsRequestNextTokenString.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListDevEnvironmentSessionsRequestMaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map
           ~f:ListDevEnvironmentSessionsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map
           ~f:ListDevEnvironmentSessionsRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let devEnvironmentId =
        Uuid.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "devEnvironmentId") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?maxResults ?nextToken ~devEnvironmentId ~projectName ~spaceName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          ListDevEnvironmentSessionsRequestMaxResultsInteger.of_json in
      let nextToken =
        field_map json__ "nextToken"
          ListDevEnvironmentSessionsRequestNextTokenString.of_json in
      let devEnvironmentId =
        field_map_exn json__ "devEnvironmentId" Uuid.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ?maxResults ?nextToken ~devEnvironmentId ~projectName ~spaceName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of active sessions for a Dev Environment in a project."]
module ListAccessTokensResponse =
  struct
    type nonrec t =
      {
      items: AccessTokenSummaries.t option
        [@ocaml.doc
          "A list of personal access tokens (PATs) associated with the calling user identity."];
      nextToken: String_.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?nextToken -> fun () -> { items; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("items", (Option.map x.items ~f:AccessTokenSummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let items =
        (Option.map ~f:AccessTokenSummaries.of_xml)
          (Xml.child xml_arg0 "items") in
      make ?nextToken ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let items = field_map json__ "items" AccessTokenSummaries.of_json in
      make ?nextToken ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all personal access tokens (PATs) associated with the user who calls the API. You can only list PATs associated with your Amazon Web Services Builder ID."]
module ListAccessTokensRequest =
  struct
    type nonrec t =
      {
      maxResults: ListAccessTokensRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of results to show in a single call to this API. If the number of results is larger than the number you specified, the response will include a NextToken element, which you can use to obtain additional results."];
      nextToken: ListAccessTokensRequestNextTokenString.t option
        [@ocaml.doc
          "A token returned from a call to this API to indicate the next batch of results to return, if any."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults",
           (Option.map x.maxResults
              ~f:ListAccessTokensRequestMaxResultsInteger.to_value));
        ("nextToken",
          (Option.map x.nextToken
             ~f:ListAccessTokensRequestNextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:ListAccessTokensRequestNextTokenString.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListAccessTokensRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "nextToken"
          ListAccessTokensRequestNextTokenString.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListAccessTokensRequestMaxResultsInteger.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all personal access tokens (PATs) associated with the user who calls the API. You can only list PATs associated with your Amazon Web Services Builder ID."]
module GetWorkflowRunResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t option [@ocaml.doc "The ID of the workflow run."];
      workflowId: Uuid.t option [@ocaml.doc "The ID of the workflow."];
      status: WorkflowRunStatus.t option
        [@ocaml.doc "The status of the workflow run."];
      statusReasons: WorkflowRunStatusReasons.t option
        [@ocaml.doc
          "Information about the reasons for the status of the workflow run."];
      startTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time the workflow run began, in coordinated universal time (UTC) timestamp format as specified in RFC 3339"];
      endTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time the workflow run ended, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."];
      lastUpdatedTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time the workflow run status was last updated, in coordinated universal time (UTC) timestamp format as specified in RFC 3339"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?projectName ->
        fun ?id ->
          fun ?workflowId ->
            fun ?status ->
              fun ?statusReasons ->
                fun ?startTime ->
                  fun ?endTime ->
                    fun ?lastUpdatedTime ->
                      fun () ->
                        {
                          spaceName;
                          projectName;
                          id;
                          workflowId;
                          status;
                          statusReasons;
                          startTime;
                          endTime;
                          lastUpdatedTime
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("id", (Option.map x.id ~f:Uuid.to_value));
        ("workflowId", (Option.map x.workflowId ~f:Uuid.to_value));
        ("status", (Option.map x.status ~f:WorkflowRunStatus.to_value));
        ("statusReasons",
          (Option.map x.statusReasons ~f:WorkflowRunStatusReasons.to_value));
        ("startTime",
          (Option.map x.startTime ~f:SyntheticTimestamp_date_time.to_value));
        ("endTime",
          (Option.map x.endTime ~f:SyntheticTimestamp_date_time.to_value));
        ("lastUpdatedTime",
          (Option.map x.lastUpdatedTime
             ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTime") in
      let endTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "startTime") in
      let statusReasons =
        (Option.map ~f:WorkflowRunStatusReasons.of_xml)
          (Xml.child xml_arg0 "statusReasons") in
      let status =
        (Option.map ~f:WorkflowRunStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let workflowId =
        (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "workflowId") in
      let id = (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "id") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?lastUpdatedTime ?endTime ?startTime ?statusReasons ?status
        ?workflowId ?id ?projectName ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTime =
        field_map json__ "lastUpdatedTime"
          SyntheticTimestamp_date_time.of_json in
      let endTime =
        field_map json__ "endTime" SyntheticTimestamp_date_time.of_json in
      let startTime =
        field_map json__ "startTime" SyntheticTimestamp_date_time.of_json in
      let statusReasons =
        field_map json__ "statusReasons" WorkflowRunStatusReasons.of_json in
      let status = field_map json__ "status" WorkflowRunStatus.of_json in
      let workflowId = field_map json__ "workflowId" Uuid.of_json in
      let id = field_map json__ "id" Uuid.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?lastUpdatedTime ?endTime ?startTime ?statusReasons ?status
        ?workflowId ?id ?projectName ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a specified run of a workflow."]
module GetWorkflowRunRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      id: Uuid.t
        [@ocaml.doc
          "The ID of the workflow run. To retrieve a list of workflow run IDs, use ListWorkflowRuns."];
      projectName: GetWorkflowRunRequestProjectNameString.t
        [@ocaml.doc "The name of the project in the space."]}
    let context_ = "GetWorkflowRunRequest"
    let make ~spaceName =
      fun ~id -> fun ~projectName -> fun () -> { spaceName; id; projectName }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("id", (Some (Uuid.to_value x.id)));
        ("projectName",
          (Some
             (GetWorkflowRunRequestProjectNameString.to_value x.projectName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let projectName =
        GetWorkflowRunRequestProjectNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let id = Uuid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ~projectName ~id ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let projectName =
        field_map_exn json__ "projectName"
          GetWorkflowRunRequestProjectNameString.of_json in
      let id = field_map_exn json__ "id" Uuid.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ~projectName ~id ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a specified run of a workflow."]
module GetWorkflowResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t option [@ocaml.doc "The ID of the workflow."];
      name: String_.t option [@ocaml.doc "The name of the workflow."];
      sourceRepositoryName: SourceRepositoryNameString.t option
        [@ocaml.doc
          "The name of the source repository where the workflow YAML is stored."];
      sourceBranchName: SourceRepositoryBranchString.t option
        [@ocaml.doc
          "The name of the branch that contains the workflow YAML."];
      definition: WorkflowDefinition.t option
        [@ocaml.doc
          "Information about the workflow definition file for the workflow."];
      createdTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time the workflow was created, in coordinated universal time (UTC) timestamp format as specified in RFC 3339"];
      lastUpdatedTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time the workflow was last updated, in coordinated universal time (UTC) timestamp format as specified in RFC 3339"];
      runMode: WorkflowRunMode.t option
        [@ocaml.doc
          "The behavior to use when multiple workflows occur at the same time. For more information, see https://docs.aws.amazon.com/codecatalyst/latest/userguide/workflows-configure-runs.html in the Amazon CodeCatalyst User Guide."];
      status: WorkflowStatus.t option
        [@ocaml.doc "The status of the workflow."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?projectName ->
        fun ?id ->
          fun ?name ->
            fun ?sourceRepositoryName ->
              fun ?sourceBranchName ->
                fun ?definition ->
                  fun ?createdTime ->
                    fun ?lastUpdatedTime ->
                      fun ?runMode ->
                        fun ?status ->
                          fun () ->
                            {
                              spaceName;
                              projectName;
                              id;
                              name;
                              sourceRepositoryName;
                              sourceBranchName;
                              definition;
                              createdTime;
                              lastUpdatedTime;
                              runMode;
                              status
                            }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("id", (Option.map x.id ~f:Uuid.to_value));
        ("name", (Option.map x.name ~f:String_.to_value));
        ("sourceRepositoryName",
          (Option.map x.sourceRepositoryName
             ~f:SourceRepositoryNameString.to_value));
        ("sourceBranchName",
          (Option.map x.sourceBranchName
             ~f:SourceRepositoryBranchString.to_value));
        ("definition",
          (Option.map x.definition ~f:WorkflowDefinition.to_value));
        ("createdTime",
          (Option.map x.createdTime ~f:SyntheticTimestamp_date_time.to_value));
        ("lastUpdatedTime",
          (Option.map x.lastUpdatedTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("runMode", (Option.map x.runMode ~f:WorkflowRunMode.to_value));
        ("status", (Option.map x.status ~f:WorkflowStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:WorkflowStatus.of_xml) (Xml.child xml_arg0 "status") in
      let runMode =
        (Option.map ~f:WorkflowRunMode.of_xml) (Xml.child xml_arg0 "runMode") in
      let lastUpdatedTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTime") in
      let createdTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "createdTime") in
      let definition =
        (Option.map ~f:WorkflowDefinition.of_xml)
          (Xml.child xml_arg0 "definition") in
      let sourceBranchName =
        (Option.map ~f:SourceRepositoryBranchString.of_xml)
          (Xml.child xml_arg0 "sourceBranchName") in
      let sourceRepositoryName =
        (Option.map ~f:SourceRepositoryNameString.of_xml)
          (Xml.child xml_arg0 "sourceRepositoryName") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      let id = (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "id") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?status ?runMode ?lastUpdatedTime ?createdTime ?definition
        ?sourceBranchName ?sourceRepositoryName ?name ?id ?projectName
        ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" WorkflowStatus.of_json in
      let runMode = field_map json__ "runMode" WorkflowRunMode.of_json in
      let lastUpdatedTime =
        field_map json__ "lastUpdatedTime"
          SyntheticTimestamp_date_time.of_json in
      let createdTime =
        field_map json__ "createdTime" SyntheticTimestamp_date_time.of_json in
      let definition =
        field_map json__ "definition" WorkflowDefinition.of_json in
      let sourceBranchName =
        field_map json__ "sourceBranchName"
          SourceRepositoryBranchString.of_json in
      let sourceRepositoryName =
        field_map json__ "sourceRepositoryName"
          SourceRepositoryNameString.of_json in
      let name = field_map json__ "name" String_.of_json in
      let id = field_map json__ "id" Uuid.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?status ?runMode ?lastUpdatedTime ?createdTime ?definition
        ?sourceBranchName ?sourceRepositoryName ?name ?id ?projectName
        ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a workflow."]
module GetWorkflowRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      id: Uuid.t
        [@ocaml.doc
          "The ID of the workflow. To rerieve a list of workflow IDs, use ListWorkflows."];
      projectName: GetWorkflowRequestProjectNameString.t
        [@ocaml.doc "The name of the project in the space."]}
    let context_ = "GetWorkflowRequest"
    let make ~spaceName =
      fun ~id -> fun ~projectName -> fun () -> { spaceName; id; projectName }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("id", (Some (Uuid.to_value x.id)));
        ("projectName",
          (Some (GetWorkflowRequestProjectNameString.to_value x.projectName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let projectName =
        GetWorkflowRequestProjectNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let id = Uuid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ~projectName ~id ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let projectName =
        field_map_exn json__ "projectName"
          GetWorkflowRequestProjectNameString.of_json in
      let id = field_map_exn json__ "id" Uuid.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ~projectName ~id ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a workflow."]
module GetUserDetailsResponse =
  struct
    type nonrec t =
      {
      userId: String_.t option
        [@ocaml.doc "The system-generated unique ID of the user."];
      userName: String_.t option
        [@ocaml.doc
          "The name of the user as displayed in Amazon CodeCatalyst."];
      displayName: String_.t option
        [@ocaml.doc
          "The friendly name displayed for the user in Amazon CodeCatalyst."];
      primaryEmail: EmailAddress.t option
        [@ocaml.doc
          "The email address provided by the user when they signed up."];
      version: String_.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?userId =
      fun ?userName ->
        fun ?displayName ->
          fun ?primaryEmail ->
            fun ?version ->
              fun () ->
                { userId; userName; displayName; primaryEmail; version }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("userId", (Option.map x.userId ~f:String_.to_value));
        ("userName", (Option.map x.userName ~f:String_.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value));
        ("primaryEmail",
          (Option.map x.primaryEmail ~f:EmailAddress.to_value));
        ("version", (Option.map x.version ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "version") in
      let primaryEmail =
        (Option.map ~f:EmailAddress.of_xml)
          (Xml.child xml_arg0 "primaryEmail") in
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let userName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "userName") in
      let userId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "userId") in
      make ?version ?primaryEmail ?displayName ?userName ?userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "version" String_.of_json in
      let primaryEmail = field_map json__ "primaryEmail" EmailAddress.of_json in
      let displayName = field_map json__ "displayName" String_.of_json in
      let userName = field_map json__ "userName" String_.of_json in
      let userId = field_map json__ "userId" String_.of_json in
      make ?version ?primaryEmail ?displayName ?userName ?userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a user."]
module GetUserDetailsRequest =
  struct
    type nonrec t =
      {
      id: GetUserDetailsRequestIdString.t option
        [@ocaml.doc "The system-generated unique ID of the user."];
      userName: GetUserDetailsRequestUserNameString.t option
        [@ocaml.doc
          "The name of the user as displayed in Amazon CodeCatalyst."]}
    let make ?id = fun ?userName -> fun () -> { id; userName }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:GetUserDetailsRequestIdString.to_value));
        ("userName",
          (Option.map x.userName
             ~f:GetUserDetailsRequestUserNameString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userName =
        (Option.map ~f:GetUserDetailsRequestUserNameString.of_xml)
          (Xml.child xml_arg0 "userName") in
      let id =
        (Option.map ~f:GetUserDetailsRequestIdString.of_xml)
          (Xml.child xml_arg0 "id") in
      make ?userName ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userName =
        field_map json__ "userName"
          GetUserDetailsRequestUserNameString.of_json in
      let id = field_map json__ "id" GetUserDetailsRequestIdString.of_json in
      make ?userName ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a user."]
module GetSubscriptionResponse =
  struct
    type nonrec t =
      {
      subscriptionType: String_.t option
        [@ocaml.doc "The type of the billing plan for the space."];
      awsAccountName: NameString.t option
        [@ocaml.doc
          "The display name of the Amazon Web Services account used for billing for the space."];
      pendingSubscriptionType: String_.t option
        [@ocaml.doc
          "The type of the billing plan that the space will be changed to at the start of the next billing cycle. This applies only to changes that reduce the functionality available for the space. Billing plan changes that increase functionality are applied immediately. For more information, see Pricing."];
      pendingSubscriptionStartTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The day and time the pending change will be applied to the space, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?subscriptionType =
      fun ?awsAccountName ->
        fun ?pendingSubscriptionType ->
          fun ?pendingSubscriptionStartTime ->
            fun () ->
              {
                subscriptionType;
                awsAccountName;
                pendingSubscriptionType;
                pendingSubscriptionStartTime
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("subscriptionType",
           (Option.map x.subscriptionType ~f:String_.to_value));
        ("awsAccountName",
          (Option.map x.awsAccountName ~f:NameString.to_value));
        ("pendingSubscriptionType",
          (Option.map x.pendingSubscriptionType ~f:String_.to_value));
        ("pendingSubscriptionStartTime",
          (Option.map x.pendingSubscriptionStartTime
             ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pendingSubscriptionStartTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "pendingSubscriptionStartTime") in
      let pendingSubscriptionType =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "pendingSubscriptionType") in
      let awsAccountName =
        (Option.map ~f:NameString.of_xml)
          (Xml.child xml_arg0 "awsAccountName") in
      let subscriptionType =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "subscriptionType") in
      make ?pendingSubscriptionStartTime ?pendingSubscriptionType
        ?awsAccountName ?subscriptionType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pendingSubscriptionStartTime =
        field_map json__ "pendingSubscriptionStartTime"
          SyntheticTimestamp_date_time.of_json in
      let pendingSubscriptionType =
        field_map json__ "pendingSubscriptionType" String_.of_json in
      let awsAccountName =
        field_map json__ "awsAccountName" NameString.of_json in
      let subscriptionType =
        field_map json__ "subscriptionType" String_.of_json in
      make ?pendingSubscriptionStartTime ?pendingSubscriptionType
        ?awsAccountName ?subscriptionType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the Amazon Web Services account used for billing purposes and the billing plan for the space."]
module GetSubscriptionRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."]}
    let context_ = "GetSubscriptionRequest"
    let make ~spaceName = fun () -> { spaceName }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the Amazon Web Services account used for billing purposes and the billing plan for the space."]
module GetSpaceResponse =
  struct
    type nonrec t =
      {
      name: NameString.t option [@ocaml.doc "The name of the space."];
      regionName: RegionString.t option
        [@ocaml.doc "The Amazon Web Services Region where the space exists."];
      displayName: String_.t option
        [@ocaml.doc "The friendly name of the space displayed to users."];
      description: String_.t option
        [@ocaml.doc "The description of the space."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name =
      fun ?regionName ->
        fun ?displayName ->
          fun ?description ->
            fun () -> { name; regionName; displayName; description }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("name", (Option.map x.name ~f:NameString.to_value));
        ("regionName", (Option.map x.regionName ~f:RegionString.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let regionName =
        (Option.map ~f:RegionString.of_xml) (Xml.child xml_arg0 "regionName") in
      let name =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "name") in
      make ?description ?displayName ?regionName ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "description" String_.of_json in
      let displayName = field_map json__ "displayName" String_.of_json in
      let regionName = field_map json__ "regionName" RegionString.of_json in
      let name = field_map json__ "name" NameString.of_json in
      make ?description ?displayName ?regionName ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about an space."]
module GetSpaceRequest =
  struct
    type nonrec t =
      {
      name: NameString.t [@ocaml.doc "The name of the space."]}
    let context_ = "GetSpaceRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("name", (Some (NameString.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        NameString.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" NameString.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about an space."]
module GetSourceRepositoryResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      name: SourceRepositoryNameString.t option
        [@ocaml.doc "The name of the source repository."];
      description: SourceRepositoryDescriptionString.t option
        [@ocaml.doc "The description of the source repository."];
      lastUpdatedTime: Timestamp.t option
        [@ocaml.doc
          "The time the source repository was last updated, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."];
      createdTime: Timestamp.t option
        [@ocaml.doc
          "The time the source repository was created, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?projectName ->
        fun ?name ->
          fun ?description ->
            fun ?lastUpdatedTime ->
              fun ?createdTime ->
                fun () ->
                  {
                    spaceName;
                    projectName;
                    name;
                    description;
                    lastUpdatedTime;
                    createdTime
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("name", (Option.map x.name ~f:SourceRepositoryNameString.to_value));
        ("description",
          (Option.map x.description
             ~f:SourceRepositoryDescriptionString.to_value));
        ("lastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:Timestamp.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdTime") in
      let lastUpdatedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTime") in
      let description =
        (Option.map ~f:SourceRepositoryDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:SourceRepositoryNameString.of_xml)
          (Xml.child xml_arg0 "name") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?createdTime ?lastUpdatedTime ?description ?name ?projectName
        ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdTime = field_map json__ "createdTime" Timestamp.of_json in
      let lastUpdatedTime =
        field_map json__ "lastUpdatedTime" Timestamp.of_json in
      let description =
        field_map json__ "description"
          SourceRepositoryDescriptionString.of_json in
      let name = field_map json__ "name" SourceRepositoryNameString.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?createdTime ?lastUpdatedTime ?description ?name ?projectName
        ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a source repository."]
module GetSourceRepositoryRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      name: SourceRepositoryNameString.t
        [@ocaml.doc "The name of the source repository."]}
    let context_ = "GetSourceRepositoryRequest"
    let make ~spaceName =
      fun ~projectName ->
        fun ~name -> fun () -> { spaceName; projectName; name }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("name", (Some (SourceRepositoryNameString.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        SourceRepositoryNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ~name ~projectName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map_exn json__ "name" SourceRepositoryNameString.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ~name ~projectName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a source repository."]
module GetSourceRepositoryCloneUrlsResponse =
  struct
    type nonrec t =
      {
      https: String_.t option
        [@ocaml.doc
          "The HTTPS URL to use when cloning the source repository."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?https = fun () -> { https }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("https", (Option.map x.https ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let https = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "https") in
      make ?https ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let https = field_map json__ "https" String_.of_json in make ?https ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the URLs that can be used with a Git client to clone a source repository."]
module GetSourceRepositoryCloneUrlsRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      sourceRepositoryName: SourceRepositoryNameString.t
        [@ocaml.doc "The name of the source repository."]}
    let context_ = "GetSourceRepositoryCloneUrlsRequest"
    let make ~spaceName =
      fun ~projectName ->
        fun ~sourceRepositoryName ->
          fun () -> { spaceName; projectName; sourceRepositoryName }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("sourceRepositoryName",
          (Some (SourceRepositoryNameString.to_value x.sourceRepositoryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceRepositoryName =
        SourceRepositoryNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceRepositoryName") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ~sourceRepositoryName ~projectName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceRepositoryName =
        field_map_exn json__ "sourceRepositoryName"
          SourceRepositoryNameString.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ~sourceRepositoryName ~projectName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the URLs that can be used with a Git client to clone a source repository."]
module GetProjectResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      name: String_.t option
        [@ocaml.doc "The name of the project in the space."];
      displayName: String_.t option
        [@ocaml.doc
          "The friendly name of the project displayed to users in Amazon CodeCatalyst."];
      description: String_.t option
        [@ocaml.doc "The description of the project."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?name ->
        fun ?displayName ->
          fun ?description ->
            fun () -> { spaceName; name; displayName; description }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("name", (Option.map x.name ~f:String_.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?description ?displayName ?name ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "description" String_.of_json in
      let displayName = field_map json__ "displayName" String_.of_json in
      let name = field_map json__ "name" String_.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?description ?displayName ?name ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a project."]
module GetProjectRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      name: NameString.t [@ocaml.doc "The name of the project in the space."]}
    let context_ = "GetProjectRequest"
    let make ~spaceName = fun ~name -> fun () -> { spaceName; name }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("name", (Some (NameString.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        NameString.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ~name ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ~name ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a project."]
module GetDevEnvironmentResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t option
        [@ocaml.doc "The system-generated unique ID of the Dev Environment."];
      lastUpdatedTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The time when the Dev Environment was last updated, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."];
      creatorId: GetDevEnvironmentResponseCreatorIdString.t option
        [@ocaml.doc
          "The system-generated unique ID of the user who created the Dev Environment."];
      status: DevEnvironmentStatus.t option
        [@ocaml.doc "The current status of the Dev Environment."];
      statusReason: StatusReason.t option
        [@ocaml.doc "The reason for the status."];
      repositories: DevEnvironmentRepositorySummaries.t option
        [@ocaml.doc
          "The source repository that contains the branch cloned into the Dev Environment."];
      alias: GetDevEnvironmentResponseAliasString.t option
        [@ocaml.doc "The user-specified alias for the Dev Environment."];
      ides: Ides.t option
        [@ocaml.doc
          "Information about the integrated development environment (IDE) configured for the Dev Environment."];
      instanceType: InstanceType.t option
        [@ocaml.doc
          "The Amazon EC2 instace type to use for the Dev Environment."];
      inactivityTimeoutMinutes: InactivityTimeoutMinutes.t option
        [@ocaml.doc
          "The amount of time the Dev Environment will run without any activity detected before stopping, in minutes."];
      persistentStorage: PersistentStorage.t option
        [@ocaml.doc
          "Information about the amount of storage allocated to the Dev Environment. By default, a Dev Environment is configured to have 16GB of persistent storage."];
      vpcConnectionName: NameString.t option
        [@ocaml.doc
          "The name of the connection used to connect to Amazon VPC used when the Dev Environment was created, if any."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?projectName ->
        fun ?id ->
          fun ?lastUpdatedTime ->
            fun ?creatorId ->
              fun ?status ->
                fun ?statusReason ->
                  fun ?repositories ->
                    fun ?alias ->
                      fun ?ides ->
                        fun ?instanceType ->
                          fun ?inactivityTimeoutMinutes ->
                            fun ?persistentStorage ->
                              fun ?vpcConnectionName ->
                                fun () ->
                                  {
                                    spaceName;
                                    projectName;
                                    id;
                                    lastUpdatedTime;
                                    creatorId;
                                    status;
                                    statusReason;
                                    repositories;
                                    alias;
                                    ides;
                                    instanceType;
                                    inactivityTimeoutMinutes;
                                    persistentStorage;
                                    vpcConnectionName
                                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("id", (Option.map x.id ~f:Uuid.to_value));
        ("lastUpdatedTime",
          (Option.map x.lastUpdatedTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("creatorId",
          (Option.map x.creatorId
             ~f:GetDevEnvironmentResponseCreatorIdString.to_value));
        ("status", (Option.map x.status ~f:DevEnvironmentStatus.to_value));
        ("statusReason",
          (Option.map x.statusReason ~f:StatusReason.to_value));
        ("repositories",
          (Option.map x.repositories
             ~f:DevEnvironmentRepositorySummaries.to_value));
        ("alias",
          (Option.map x.alias
             ~f:GetDevEnvironmentResponseAliasString.to_value));
        ("ides", (Option.map x.ides ~f:Ides.to_value));
        ("instanceType",
          (Option.map x.instanceType ~f:InstanceType.to_value));
        ("inactivityTimeoutMinutes",
          (Option.map x.inactivityTimeoutMinutes
             ~f:InactivityTimeoutMinutes.to_value));
        ("persistentStorage",
          (Option.map x.persistentStorage ~f:PersistentStorage.to_value));
        ("vpcConnectionName",
          (Option.map x.vpcConnectionName ~f:NameString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcConnectionName =
        (Option.map ~f:NameString.of_xml)
          (Xml.child xml_arg0 "vpcConnectionName") in
      let persistentStorage =
        (Option.map ~f:PersistentStorage.of_xml)
          (Xml.child xml_arg0 "persistentStorage") in
      let inactivityTimeoutMinutes =
        (Option.map ~f:InactivityTimeoutMinutes.of_xml)
          (Xml.child xml_arg0 "inactivityTimeoutMinutes") in
      let instanceType =
        (Option.map ~f:InstanceType.of_xml)
          (Xml.child xml_arg0 "instanceType") in
      let ides = (Option.map ~f:Ides.of_xml) (Xml.child xml_arg0 "ides") in
      let alias =
        (Option.map ~f:GetDevEnvironmentResponseAliasString.of_xml)
          (Xml.child xml_arg0 "alias") in
      let repositories =
        (Option.map ~f:DevEnvironmentRepositorySummaries.of_xml)
          (Xml.child xml_arg0 "repositories") in
      let statusReason =
        (Option.map ~f:StatusReason.of_xml)
          (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:DevEnvironmentStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let creatorId =
        (Option.map ~f:GetDevEnvironmentResponseCreatorIdString.of_xml)
          (Xml.child xml_arg0 "creatorId") in
      let lastUpdatedTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTime") in
      let id = (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "id") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?vpcConnectionName ?persistentStorage ?inactivityTimeoutMinutes
        ?instanceType ?ides ?alias ?repositories ?statusReason ?status
        ?creatorId ?lastUpdatedTime ?id ?projectName ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcConnectionName =
        field_map json__ "vpcConnectionName" NameString.of_json in
      let persistentStorage =
        field_map json__ "persistentStorage" PersistentStorage.of_json in
      let inactivityTimeoutMinutes =
        field_map json__ "inactivityTimeoutMinutes"
          InactivityTimeoutMinutes.of_json in
      let instanceType = field_map json__ "instanceType" InstanceType.of_json in
      let ides = field_map json__ "ides" Ides.of_json in
      let alias =
        field_map json__ "alias" GetDevEnvironmentResponseAliasString.of_json in
      let repositories =
        field_map json__ "repositories"
          DevEnvironmentRepositorySummaries.of_json in
      let statusReason = field_map json__ "statusReason" StatusReason.of_json in
      let status = field_map json__ "status" DevEnvironmentStatus.of_json in
      let creatorId =
        field_map json__ "creatorId"
          GetDevEnvironmentResponseCreatorIdString.of_json in
      let lastUpdatedTime =
        field_map json__ "lastUpdatedTime"
          SyntheticTimestamp_date_time.of_json in
      let id = field_map json__ "id" Uuid.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?vpcConnectionName ?persistentStorage ?inactivityTimeoutMinutes
        ?instanceType ?ides ?alias ?repositories ?statusReason ?status
        ?creatorId ?lastUpdatedTime ?id ?projectName ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a Dev Environment for a source repository in a project. Dev Environments are specific to the user who creates them."]
module GetDevEnvironmentRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t
        [@ocaml.doc
          "The system-generated unique ID of the Dev Environment for which you want to view information. To retrieve a list of Dev Environment IDs, use ListDevEnvironments."]}
    let context_ = "GetDevEnvironmentRequest"
    let make ~spaceName =
      fun ~projectName -> fun ~id -> fun () -> { spaceName; projectName; id }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("id", (Some (Uuid.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = Uuid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ~id ~projectName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" Uuid.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ~id ~projectName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a Dev Environment for a source repository in a project. Dev Environments are specific to the user who creates them."]
module DeleteSpaceResponse =
  struct
    type nonrec t =
      {
      name: NameString.t option [@ocaml.doc "The name of the space."];
      displayName: String_.t option
        [@ocaml.doc
          "The friendly name of the space displayed to users of the space in Amazon CodeCatalyst."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?name = fun ?displayName -> fun () -> { name; displayName }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("name", (Option.map x.name ~f:NameString.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let name =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "name") in
      make ?displayName ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let displayName = field_map json__ "displayName" String_.of_json in
      let name = field_map json__ "name" NameString.of_json in
      make ?displayName ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a space. Deleting a space cannot be undone. Additionally, since space names must be unique across Amazon CodeCatalyst, you cannot reuse names of deleted spaces."]
module DeleteSpaceRequest =
  struct
    type nonrec t =
      {
      name: NameString.t
        [@ocaml.doc
          "The name of the space. To retrieve a list of space names, use ListSpaces."]}
    let context_ = "DeleteSpaceRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("name", (Some (NameString.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        NameString.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" NameString.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a space. Deleting a space cannot be undone. Additionally, since space names must be unique across Amazon CodeCatalyst, you cannot reuse names of deleted spaces."]
module DeleteSourceRepositoryResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      name: SourceRepositoryNameString.t option
        [@ocaml.doc "The name of the repository."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?projectName ->
        fun ?name -> fun () -> { spaceName; projectName; name }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("name", (Option.map x.name ~f:SourceRepositoryNameString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:SourceRepositoryNameString.of_xml)
          (Xml.child xml_arg0 "name") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?name ?projectName ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" SourceRepositoryNameString.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?name ?projectName ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a source repository in Amazon CodeCatalyst. You cannot use this API to delete a linked repository. It can only be used to delete a Amazon CodeCatalyst source repository."]
module DeleteSourceRepositoryRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      name: SourceRepositoryNameString.t
        [@ocaml.doc "The name of the source repository."]}
    let context_ = "DeleteSourceRepositoryRequest"
    let make ~spaceName =
      fun ~projectName ->
        fun ~name -> fun () -> { spaceName; projectName; name }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("name", (Some (SourceRepositoryNameString.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        SourceRepositoryNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ~name ~projectName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map_exn json__ "name" SourceRepositoryNameString.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ~name ~projectName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a source repository in Amazon CodeCatalyst. You cannot use this API to delete a linked repository. It can only be used to delete a Amazon CodeCatalyst source repository."]
module DeleteProjectResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      name: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      displayName: String_.t option
        [@ocaml.doc
          "The friendly name displayed to users of the project in Amazon CodeCatalyst."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?name ->
        fun ?displayName -> fun () -> { spaceName; name; displayName }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("name", (Option.map x.name ~f:NameString.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let name =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "name") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?displayName ?name ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let displayName = field_map json__ "displayName" String_.of_json in
      let name = field_map json__ "name" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?displayName ?name ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a project in a space."]
module DeleteProjectRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      name: NameString.t
        [@ocaml.doc
          "The name of the project in the space. To retrieve a list of project names, use ListProjects."]}
    let context_ = "DeleteProjectRequest"
    let make ~spaceName = fun ~name -> fun () -> { spaceName; name }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("name", (Some (NameString.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        NameString.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ~name ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ~name ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a project in a space."]
module DeleteDevEnvironmentResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t option
        [@ocaml.doc
          "The system-generated unique ID of the deleted Dev Environment."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?projectName -> fun ?id -> fun () -> { spaceName; projectName; id }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("id", (Option.map x.id ~f:Uuid.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "id") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?id ?projectName ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map json__ "id" Uuid.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?id ?projectName ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a Dev Environment."]
module DeleteDevEnvironmentRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t
        [@ocaml.doc
          "The system-generated unique ID of the Dev Environment you want to delete. To retrieve a list of Dev Environment IDs, use ListDevEnvironments."]}
    let context_ = "DeleteDevEnvironmentRequest"
    let make ~spaceName =
      fun ~projectName -> fun ~id -> fun () -> { spaceName; projectName; id }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("id", (Some (Uuid.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = Uuid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ~id ~projectName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" Uuid.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ~id ~projectName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a Dev Environment."]
module DeleteAccessTokenResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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 specified personal access token (PAT). A personal access token can only be deleted by the user who created it."]
module DeleteAccessTokenRequest =
  struct
    type nonrec t =
      {
      id: AccessTokenId.t
        [@ocaml.doc
          "The ID of the personal access token to delete. You can find the IDs of all PATs associated with your Amazon Web Services Builder ID in a space by calling ListAccessTokens."]}
    let context_ = "DeleteAccessTokenRequest"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (AccessTokenId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        AccessTokenId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" AccessTokenId.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a specified personal access token (PAT). A personal access token can only be deleted by the user who created it."]
module CreateSourceRepositoryResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      name: SourceRepositoryNameString.t option
        [@ocaml.doc "The name of the source repository."];
      description: SourceRepositoryDescriptionString.t option
        [@ocaml.doc "The description of the source repository."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?projectName ->
        fun ?name ->
          fun ?description ->
            fun () -> { spaceName; projectName; name; description }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("name", (Option.map x.name ~f:SourceRepositoryNameString.to_value));
        ("description",
          (Option.map x.description
             ~f:SourceRepositoryDescriptionString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:SourceRepositoryDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:SourceRepositoryNameString.of_xml)
          (Xml.child xml_arg0 "name") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?description ?name ?projectName ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "description"
          SourceRepositoryDescriptionString.of_json in
      let name = field_map json__ "name" SourceRepositoryNameString.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?description ?name ?projectName ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an empty Git-based source repository in a specified project. The repository is created with an initial empty commit with a default branch named main."]
module CreateSourceRepositoryRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      name: SourceRepositoryNameString.t
        [@ocaml.doc
          "The name of the source repository. For more information about name requirements, see Quotas for source repositories."];
      description: SourceRepositoryDescriptionString.t option
        [@ocaml.doc "The description of the source repository."]}
    let context_ = "CreateSourceRepositoryRequest"
    let make ?description =
      fun ~spaceName ->
        fun ~projectName ->
          fun ~name ->
            fun () -> { description; spaceName; projectName; name }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("name", (Some (SourceRepositoryNameString.to_value x.name)));
        ("description",
          (Option.map x.description
             ~f:SourceRepositoryDescriptionString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:SourceRepositoryDescriptionString.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        SourceRepositoryNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?description ~name ~projectName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "description"
          SourceRepositoryDescriptionString.of_json in
      let name =
        field_map_exn json__ "name" SourceRepositoryNameString.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ?description ~name ~projectName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an empty Git-based source repository in a specified project. The repository is created with an initial empty commit with a default branch named main."]
module CreateSourceRepositoryBranchResponse =
  struct
    type nonrec t =
      {
      ref: SourceRepositoryBranchRefString.t option
        [@ocaml.doc "The Git reference name of the branch."];
      name: SourceRepositoryBranchString.t option
        [@ocaml.doc "The name of the newly created branch."];
      lastUpdatedTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The time the branch was last updated, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."];
      headCommitId: String_.t option
        [@ocaml.doc "The commit ID of the tip of the newly created branch."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ref =
      fun ?name ->
        fun ?lastUpdatedTime ->
          fun ?headCommitId ->
            fun () -> { ref; name; lastUpdatedTime; headCommitId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("ref",
           (Option.map x.ref ~f:SourceRepositoryBranchRefString.to_value));
        ("name",
          (Option.map x.name ~f:SourceRepositoryBranchString.to_value));
        ("lastUpdatedTime",
          (Option.map x.lastUpdatedTime
             ~f:SyntheticTimestamp_date_time.to_value));
        ("headCommitId", (Option.map x.headCommitId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let headCommitId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "headCommitId") in
      let lastUpdatedTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "lastUpdatedTime") in
      let name =
        (Option.map ~f:SourceRepositoryBranchString.of_xml)
          (Xml.child xml_arg0 "name") in
      let ref =
        (Option.map ~f:SourceRepositoryBranchRefString.of_xml)
          (Xml.child xml_arg0 "ref") in
      make ?headCommitId ?lastUpdatedTime ?name ?ref ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let headCommitId = field_map json__ "headCommitId" String_.of_json in
      let lastUpdatedTime =
        field_map json__ "lastUpdatedTime"
          SyntheticTimestamp_date_time.of_json in
      let name = field_map json__ "name" SourceRepositoryBranchString.of_json in
      let ref =
        field_map json__ "ref" SourceRepositoryBranchRefString.of_json in
      make ?headCommitId ?lastUpdatedTime ?name ?ref ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a branch in a specified source repository in Amazon CodeCatalyst. This API only creates a branch in a source repository hosted in Amazon CodeCatalyst. You cannot use this API to create a branch in a linked repository."]
module CreateSourceRepositoryBranchRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      sourceRepositoryName: SourceRepositoryNameString.t
        [@ocaml.doc
          "The name of the repository where you want to create a branch."];
      name: SourceRepositoryBranchString.t
        [@ocaml.doc "The name for the branch you're creating."];
      headCommitId: String_.t option
        [@ocaml.doc
          "The commit ID in an existing branch from which you want to create the new branch."]}
    let context_ = "CreateSourceRepositoryBranchRequest"
    let make ?headCommitId =
      fun ~spaceName ->
        fun ~projectName ->
          fun ~sourceRepositoryName ->
            fun ~name ->
              fun () ->
                {
                  headCommitId;
                  spaceName;
                  projectName;
                  sourceRepositoryName;
                  name
                }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("sourceRepositoryName",
          (Some (SourceRepositoryNameString.to_value x.sourceRepositoryName)));
        ("name", (Some (SourceRepositoryBranchString.to_value x.name)));
        ("headCommitId", (Option.map x.headCommitId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let headCommitId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "headCommitId") in
      let name =
        SourceRepositoryBranchString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let sourceRepositoryName =
        SourceRepositoryNameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceRepositoryName") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?headCommitId ~name ~sourceRepositoryName ~projectName ~spaceName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let headCommitId = field_map json__ "headCommitId" String_.of_json in
      let name =
        field_map_exn json__ "name" SourceRepositoryBranchString.of_json in
      let sourceRepositoryName =
        field_map_exn json__ "sourceRepositoryName"
          SourceRepositoryNameString.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ?headCommitId ~name ~sourceRepositoryName ~projectName ~spaceName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a branch in a specified source repository in Amazon CodeCatalyst. This API only creates a branch in a source repository hosted in Amazon CodeCatalyst. You cannot use this API to create a branch in a linked repository."]
module CreateProjectResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      name: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      displayName: String_.t option
        [@ocaml.doc "The friendly name of the project."];
      description: String_.t option
        [@ocaml.doc "The description of the project."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?name ->
        fun ?displayName ->
          fun ?description ->
            fun () -> { spaceName; name; displayName; description }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("name", (Option.map x.name ~f:NameString.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value));
        ("description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "description") in
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let name =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "name") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?description ?displayName ?name ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "description" String_.of_json in
      let displayName = field_map json__ "displayName" String_.of_json in
      let name = field_map json__ "name" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?description ?displayName ?name ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a project in a specified space."]
module CreateProjectRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      displayName: ProjectDisplayName.t
        [@ocaml.doc
          "The friendly name of the project that will be displayed to users."];
      description: ProjectDescription.t option
        [@ocaml.doc
          "The description of the project. This description will be displayed to all users of the project. We recommend providing a brief description of the project and its intended purpose."]}
    let context_ = "CreateProjectRequest"
    let make ?description =
      fun ~spaceName ->
        fun ~displayName -> fun () -> { description; spaceName; displayName }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("displayName", (Some (ProjectDisplayName.to_value x.displayName)));
        ("description",
          (Option.map x.description ~f:ProjectDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:ProjectDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let displayName =
        ProjectDisplayName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "displayName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?description ~displayName ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "description" ProjectDescription.of_json in
      let displayName =
        field_map_exn json__ "displayName" ProjectDisplayName.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ?description ~displayName ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a project in a specified space."]
module CreateDevEnvironmentResponse =
  struct
    type nonrec t =
      {
      spaceName: NameString.t option [@ocaml.doc "The name of the space."];
      projectName: NameString.t option
        [@ocaml.doc "The name of the project in the space."];
      id: Uuid.t option
        [@ocaml.doc "The system-generated unique ID of the Dev Environment."];
      vpcConnectionName: NameString.t option
        [@ocaml.doc
          "The name of the connection used to connect to Amazon VPC used when the Dev Environment was created, if any."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?spaceName =
      fun ?projectName ->
        fun ?id ->
          fun ?vpcConnectionName ->
            fun () -> { spaceName; projectName; id; vpcConnectionName }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("spaceName", (Option.map x.spaceName ~f:NameString.to_value));
        ("projectName", (Option.map x.projectName ~f:NameString.to_value));
        ("id", (Option.map x.id ~f:Uuid.to_value));
        ("vpcConnectionName",
          (Option.map x.vpcConnectionName ~f:NameString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcConnectionName =
        (Option.map ~f:NameString.of_xml)
          (Xml.child xml_arg0 "vpcConnectionName") in
      let id = (Option.map ~f:Uuid.of_xml) (Xml.child xml_arg0 "id") in
      let projectName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "projectName") in
      let spaceName =
        (Option.map ~f:NameString.of_xml) (Xml.child xml_arg0 "spaceName") in
      make ?vpcConnectionName ?id ?projectName ?spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcConnectionName =
        field_map json__ "vpcConnectionName" NameString.of_json in
      let id = field_map json__ "id" Uuid.of_json in
      let projectName = field_map json__ "projectName" NameString.of_json in
      let spaceName = field_map json__ "spaceName" NameString.of_json in
      make ?vpcConnectionName ?id ?projectName ?spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Dev Environment in Amazon CodeCatalyst, a cloud-based development environment that you can use to quickly work on the code stored in the source repositories of your project. When created in the Amazon CodeCatalyst console, by default a Dev Environment is configured to have a 2 core processor, 4GB of RAM, and 16GB of persistent storage. None of these defaults apply to a Dev Environment created programmatically."]
module CreateDevEnvironmentRequest =
  struct
    type nonrec t =
      {
      spaceName: NameString.t [@ocaml.doc "The name of the space."];
      projectName: NameString.t
        [@ocaml.doc "The name of the project in the space."];
      repositories: RepositoriesInput.t option
        [@ocaml.doc
          "The source repository that contains the branch to clone into the Dev Environment."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A user-specified idempotency token. Idempotency ensures that an API request completes only once. With an idempotent request, if the original request completes successfully, the subsequent retries return the result from the original successful request and have no additional effect."];
      alias: CreateDevEnvironmentRequestAliasString.t option
        [@ocaml.doc "The user-defined alias for a Dev Environment."];
      ides: IdeConfigurationList.t option
        [@ocaml.doc
          "Information about the integrated development environment (IDE) configured for a Dev Environment. An IDE is required to create a Dev Environment. For Dev Environment creation, this field contains configuration information and must be provided."];
      instanceType: InstanceType.t
        [@ocaml.doc
          "The Amazon EC2 instace type to use for the Dev Environment."];
      inactivityTimeoutMinutes: InactivityTimeoutMinutes.t option
        [@ocaml.doc
          "The amount of time the Dev Environment will run without any activity detected before stopping, in minutes. Only whole integers are allowed. Dev Environments consume compute minutes when running."];
      persistentStorage: PersistentStorageConfiguration.t
        [@ocaml.doc
          "Information about the amount of storage allocated to the Dev Environment. By default, a Dev Environment is configured to have 16GB of persistent storage when created from the Amazon CodeCatalyst console, but there is no default when programmatically creating a Dev Environment. Valid values for persistent storage are based on memory sizes in 16GB increments. Valid values are 16, 32, and 64."];
      vpcConnectionName: NameString.t option
        [@ocaml.doc
          "The name of the connection that will be used to connect to Amazon VPC, if any."]}
    let context_ = "CreateDevEnvironmentRequest"
    let make ?repositories =
      fun ?clientToken ->
        fun ?alias ->
          fun ?ides ->
            fun ?inactivityTimeoutMinutes ->
              fun ?vpcConnectionName ->
                fun ~spaceName ->
                  fun ~projectName ->
                    fun ~instanceType ->
                      fun ~persistentStorage ->
                        fun () ->
                          {
                            repositories;
                            clientToken;
                            alias;
                            ides;
                            inactivityTimeoutMinutes;
                            vpcConnectionName;
                            spaceName;
                            projectName;
                            instanceType;
                            persistentStorage
                          }
    let to_value x =
      structure_to_value
        [("spaceName", (Some (NameString.to_value x.spaceName)));
        ("projectName", (Some (NameString.to_value x.projectName)));
        ("repositories",
          (Option.map x.repositories ~f:RepositoriesInput.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("alias",
          (Option.map x.alias
             ~f:CreateDevEnvironmentRequestAliasString.to_value));
        ("ides", (Option.map x.ides ~f:IdeConfigurationList.to_value));
        ("instanceType", (Some (InstanceType.to_value x.instanceType)));
        ("inactivityTimeoutMinutes",
          (Option.map x.inactivityTimeoutMinutes
             ~f:InactivityTimeoutMinutes.to_value));
        ("persistentStorage",
          (Some (PersistentStorageConfiguration.to_value x.persistentStorage)));
        ("vpcConnectionName",
          (Option.map x.vpcConnectionName ~f:NameString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcConnectionName =
        (Option.map ~f:NameString.of_xml)
          (Xml.child xml_arg0 "vpcConnectionName") in
      let persistentStorage =
        PersistentStorageConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "persistentStorage") in
      let inactivityTimeoutMinutes =
        (Option.map ~f:InactivityTimeoutMinutes.of_xml)
          (Xml.child xml_arg0 "inactivityTimeoutMinutes") in
      let instanceType =
        InstanceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instanceType") in
      let ides =
        (Option.map ~f:IdeConfigurationList.of_xml)
          (Xml.child xml_arg0 "ides") in
      let alias =
        (Option.map ~f:CreateDevEnvironmentRequestAliasString.of_xml)
          (Xml.child xml_arg0 "alias") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let repositories =
        (Option.map ~f:RepositoriesInput.of_xml)
          (Xml.child xml_arg0 "repositories") in
      let projectName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      let spaceName =
        NameString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "spaceName") in
      make ?vpcConnectionName ~persistentStorage ?inactivityTimeoutMinutes
        ~instanceType ?ides ?alias ?clientToken ?repositories ~projectName
        ~spaceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcConnectionName =
        field_map json__ "vpcConnectionName" NameString.of_json in
      let persistentStorage =
        field_map_exn json__ "persistentStorage"
          PersistentStorageConfiguration.of_json in
      let inactivityTimeoutMinutes =
        field_map json__ "inactivityTimeoutMinutes"
          InactivityTimeoutMinutes.of_json in
      let instanceType =
        field_map_exn json__ "instanceType" InstanceType.of_json in
      let ides = field_map json__ "ides" IdeConfigurationList.of_json in
      let alias =
        field_map json__ "alias"
          CreateDevEnvironmentRequestAliasString.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let repositories =
        field_map json__ "repositories" RepositoriesInput.of_json in
      let projectName = field_map_exn json__ "projectName" NameString.of_json in
      let spaceName = field_map_exn json__ "spaceName" NameString.of_json in
      make ?vpcConnectionName ~persistentStorage ?inactivityTimeoutMinutes
        ~instanceType ?ides ?alias ?clientToken ?repositories ~projectName
        ~spaceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Dev Environment in Amazon CodeCatalyst, a cloud-based development environment that you can use to quickly work on the code stored in the source repositories of your project. When created in the Amazon CodeCatalyst console, by default a Dev Environment is configured to have a 2 core processor, 4GB of RAM, and 16GB of persistent storage. None of these defaults apply to a Dev Environment created programmatically."]
module CreateAccessTokenResponse =
  struct
    type nonrec t =
      {
      secret: AccessTokenSecret.t option
        [@ocaml.doc "The secret value of the personal access token."];
      name: AccessTokenName.t option
        [@ocaml.doc "The friendly name of the personal access token."];
      expiresTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time the personal access token expires, in coordinated universal time (UTC) timestamp format as specified in RFC 3339. If not specified, the default is one year from creation."];
      accessTokenId: AccessTokenId.t option
        [@ocaml.doc "The system-generated unique ID of the access token."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?secret =
      fun ?name ->
        fun ?expiresTime ->
          fun ?accessTokenId ->
            fun () -> { secret; name; expiresTime; accessTokenId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.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
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("secret", (Option.map x.secret ~f:AccessTokenSecret.to_value));
        ("name", (Option.map x.name ~f:AccessTokenName.to_value));
        ("expiresTime",
          (Option.map x.expiresTime ~f:SyntheticTimestamp_date_time.to_value));
        ("accessTokenId",
          (Option.map x.accessTokenId ~f:AccessTokenId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessTokenId =
        (Option.map ~f:AccessTokenId.of_xml)
          (Xml.child xml_arg0 "accessTokenId") in
      let expiresTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "expiresTime") in
      let name =
        (Option.map ~f:AccessTokenName.of_xml) (Xml.child xml_arg0 "name") in
      let secret =
        (Option.map ~f:AccessTokenSecret.of_xml)
          (Xml.child xml_arg0 "secret") in
      make ?accessTokenId ?expiresTime ?name ?secret ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessTokenId =
        field_map json__ "accessTokenId" AccessTokenId.of_json in
      let expiresTime =
        field_map json__ "expiresTime" SyntheticTimestamp_date_time.of_json in
      let name = field_map json__ "name" AccessTokenName.of_json in
      let secret = field_map json__ "secret" AccessTokenSecret.of_json in
      make ?accessTokenId ?expiresTime ?name ?secret ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a personal access token (PAT) for the current user. A personal access token (PAT) is similar to a password. It is associated with your user identity for use across all spaces and projects in Amazon CodeCatalyst. You use PATs to access CodeCatalyst from resources that include integrated development environments (IDEs) and Git-based source repositories. PATs represent you in Amazon CodeCatalyst and you can manage them in your user settings.For more information, see Managing personal access tokens in Amazon CodeCatalyst."]
module CreateAccessTokenRequest =
  struct
    type nonrec t =
      {
      name: AccessTokenName.t
        [@ocaml.doc "The friendly name of the personal access token."];
      expiresTime: SyntheticTimestamp_date_time.t option
        [@ocaml.doc
          "The date and time the personal access token expires, in coordinated universal time (UTC) timestamp format as specified in RFC 3339."]}
    let context_ = "CreateAccessTokenRequest"
    let make ?expiresTime = fun ~name -> fun () -> { expiresTime; name }
    let to_value x =
      structure_to_value
        [("name", (Some (AccessTokenName.to_value x.name)));
        ("expiresTime",
          (Option.map x.expiresTime ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expiresTime =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "expiresTime") in
      let name =
        AccessTokenName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?expiresTime ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expiresTime =
        field_map json__ "expiresTime" SyntheticTimestamp_date_time.of_json in
      let name = field_map_exn json__ "name" AccessTokenName.of_json in
      make ?expiresTime ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a personal access token (PAT) for the current user. A personal access token (PAT) is similar to a password. It is associated with your user identity for use across all spaces and projects in Amazon CodeCatalyst. You use PATs to access CodeCatalyst from resources that include integrated development environments (IDEs) and Git-based source repositories. PATs represent you in Amazon CodeCatalyst and you can manage them in your user settings.For more information, see Managing personal access tokens in Amazon CodeCatalyst."]